5 REM 232TIME.BAS SETS TIME IN AN AE DEVICE WITH RS232 OPTION TO COM 2
6 REM WRITTEN BY JIM RECCELLI, APPLIED TECHNICAL SYSTEMS, 1/22/94
10 OPEN "COM2:2400,N,8,1" AS 1
20 H1$=MID$(TIME$,1,1)
30 H2$=MID$(TIME$,2,1)
40 H1H2$=MID$(TIME$,1,2)
43 PRINT H1H2$

45 ' BLOCK TO CONVERT TO 12 HR FORMAT 
46 IF VAL(H1H2$)=22 THEN H1$="1":H2$="0":GOTO 60
47 IF VAL(H1H2$)=23 THEN H1$="1":H2$="1":GOTO 60
50 IF VAL(H1H2$)>12 THEN H1H2=VAL(H1H2$)-12:H1H2$=STR$(H1H2):H1$=MID$(H1H2$,1,1):H2$=MID$(H1H2$,2,1):PRINT H1H2$,H1H2

60 PRINT TIME$
70 M1$=MID$(TIME$,4,1)
80 M2$=MID$(TIME$,5,1)
90 S1$=MID$(TIME$,7,1)
100 S2$=MID$(TIME$,8,1)
120 PRINT#1, CHR$(0);CHR$(0);CHR$(17);CHR$(0);CHR$(3);H1$;H2$;M1$;M2$;S1$;S2$;CHR$(0)
130 CLOSE 1
135 SYSTEM
140 END