0 'AM-PM.100
1 'Converts Military into AM/PM.
2 'Alan Linker [70116,436]
5 CLS:PRINT"AM-PM.100"
10 T$=TIME$
15 IFT$=<"12:00:00"THEN50
20 L=VAL(LEFT$(TIME$,2))
25 L=L-12:IFL=0THENL=12
35 T$=STR$(L)+RIGHT$(T$,6)
40 PRINT@85,T$" PM ":PRINT@165,DAY$", "DATE$:GOTO10
50 T$=TIME$
55 IFT$>="12:00:00"THEN10
60 L$=(LEFT$(TIME$,2))
65 IFVAL(L$)=0THENL$="12"
70 T$=L$+RIGHT$(T$,6)
75 PRINT@85,T$" AM ":PRINT@165,DAY$", "DATE$" ":GOTO50