100 dim t(4)
1000 input"{clear}enter time [hhmmss]";in$:iflen(in$)<>6then1000
1010 input"[a]m [p]m";b$:ifb$<>"a"andb$<>"p"then1010
1020 fori=0to3
1030 t(i)=val(mid$(in$,i*2+1,1))*16+val(mid$(in$,i*2+2,1))
1040 ifi=0thenifb$="p"thent(0)=t(0)or128
1050 poke56331-i,t(i):nexti
1060 print
1100 a$="":fori=0to3
1110 t(i)=peek(56331-i)
1120 ifi>0then1140
1140 a$=a$+chr$(48+(t(i) and240)/16)+chr$(48+(t(i)and15))+":"
1150 nexti:a$=left$(a$,8)
1155 a$=a$+" am":ift(0)>127 thena$=a$+" pm":t(0)=t(0)and127
1160 print"{up}",a$
1170 goto 1100