5 REM Q232TIME.BAS SETS TIME IN AN AE DEVICE WITH RS232 OPTION 12/13/95
6 REM WRITTEN BY JIM RECCELLI, APPLIED TECHNICAL SYSTEMS, QBASIC VERSION
10 OPEN "COM2:2400,N,8,1" FOR RANDOM AS #1
20 H1$ = MID$(TIME$, 1, 1)
30 H2$ = MID$(TIME$, 2, 1)
40 H1H2$ = MID$(TIME$, 1, 2)
45 'PRINT H1H2$
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$(4); H1$; H2$; M1$; M2$; S1$; S2$; CHR$(0)
130 CLOSE 1
135 SYSTEM
140 END