10 REM TZONE12.BAS SETS TIMEIN 12 HR FORMAT IN FOUR AE DEVICES WITH RS232 OPTION
20 REM WRITTEN BY JIM RECCELLI, APPLIED TECHNICAL SYSTEMS, 12/8/95
30 'FILENAME "TZON124" - USED WITH AE SERIES 4 ZONE CLOCKS.  REF TIME IS READ FROM
40 'THE PC'S CLOCK.  EACH OF (4) ZONES IS AN OFFSET FROM REF TIME.
50 OPEN "COM1:2400,N,8,1" FOR RANDOM AS 1
55 CLS :     'ENTER OFFSETS FOR TIME ZONES
60 INPUT "ENTER TIME ZONE 1 OFFSET TO ADD TO REF TIME >>  ", TZ1
65 IF TZ1 > 11 THEN 60
70 INPUT "ENTER TIME ZONE 2 OFFSET TO ADD TO REF TIME >>  ", TZ2
75 IF TZ2 > 11 THEN 70
80 INPUT "ENTER TIME ZONE 3 OFFSET TO ADD TO REF TIME >>  ", TZ3
85 IF TZ3 > 11 THEN 80
90 INPUT "ENTER TIME ZONE 4 OFFSET TO ADD TO REF TIME >>  ", TZ4
95 IF TZ4 > 11 THEN 90
94 CLS
100 H1H2$ = MID$(TIME$, 1, 2)
110 PRINT TIME$
120 M1$ = MID$(TIME$, 4, 1)
130 M2$ = MID$(TIME$, 5, 1)
140 S1$ = MID$(TIME$, 7, 1)
150 S2$ = MID$(TIME$, 8, 1)
160 '           TIME ZONE SECTION - ENTER TIME ZONE 1 OFFSET
170 T = VAL(H1H2$) + TZ1
171 IF T < 13 AND T > 0 THEN T1 = T: GOTO 180
175 GOSUB 9000
176 T1 = T12
180 T1H1 = INT(T1 / 10)
190 T1H2 = T1 MOD 10
200 '           ENTER TIME ZONE 2 OFFSET
210 T = VAL(H1H2$) + TZ2
211 IF T < 13 AND T > 0 THEN T2 = T: GOTO 220
215 GOSUB 9000
216 T2 = T12
220 T2H1 = INT(T2 / 10)
230 T2H2 = T2 MOD 10
240 '           ENTER TIME ZONE 3 OFFSET
250 T = VAL(H1H2$) + TZ3
251 IF T < 13 AND T > 0 THEN T3 = T: GOTO 260
255 GOSUB 9000
256 T3 = T12
260 T3H1 = INT(T3 / 10)
270 T3H2 = T3 MOD 10
280 '           ENTER TIME ZONE 4 OFFSET
290 T = VAL(H1H2$) + TZ4
291 IF T < 13 AND T > 0 THEN T4 = T: GOTO 300
295 GOSUB 9000
296 T4 = T12
300 T4H1 = INT(T4 / 10)
310 T4H2 = T4 MOD 10
320 M1 = VAL(M1$): M2 = VAL(M2$): S1 = VAL(S1$): S2 = VAL(S2$)
330 'PRINT ALL TIME ZONES TO THE SCREEN
340 CLS
350 PRINT TIME$
360 PRINT H1H2$
370 PRINT "TIME ZONE 1  ", T1H1; T1H2; ":"; M1; M2; ":"; S1; S2
380 PRINT "TIME ZONE 2  ", T2H1; T2H2; ":"; M1; M2; ":"; S1; S2
390 PRINT "TIME ZONE 3  ", T3H1; T3H2; ":"; M1; M2; ":"; S1; S2
400 PRINT "TIME ZONE 4  ", T4H1; T4H2; ":"; M1; M2; ":"; S1; S2
410 PRINT #1, CHR$(17); CHR$(4); CHR$(3); CHR$(T1H1); CHR$(T1H2); CHR$(M1); CHR$(M2); CHR$(S1); CHR$(S2); CHR$(0)
420 PRINT #1, CHR$(17); CHR$(3); CHR$(3); CHR$(T2H1); CHR$(T2H2); CHR$(M1); CHR$(M2); CHR$(S1); CHR$(S2); CHR$(0)
430 PRINT #1, CHR$(17); CHR$(2); CHR$(3); CHR$(T3H1); CHR$(T3H2); CHR$(M1); CHR$(M2); CHR$(S1); CHR$(S2); CHR$(0)
440 PRINT #1, CHR$(17); CHR$(1); CHR$(3); CHR$(T4H1); CHR$(T4H2); CHR$(M1); CHR$(M2); CHR$(S1); CHR$(S2); CHR$(0)
500 GOTO 9998
9000 'ADJUST FOR 12 HOUR FORMAT
9010 IF T = 34 THEN T12 = 10
9011 IF T = 33 THEN T12 = 9
9012 IF T = 32 THEN T12 = 8
9013 IF T = 31 THEN T12 = 7
9014 IF T = 30 THEN T12 = 6
9015 IF T = 29 THEN T12 = 5
9016 IF T = 28 THEN T12 = 4
9017 IF T = 27 THEN T12 = 3
9018 IF T = 26 THEN T12 = 2
9019 IF T = 25 THEN T12 = 1
9020 IF T = 24 THEN T12 = 12
9021 IF T = 23 THEN T12 = 11
9022 IF T = 22 THEN T12 = 10
9023 IF T = 21 THEN T12 = 9
9024 IF T = 20 THEN T12 = 8
9025 IF T = 19 THEN T12 = 7
9026 IF T = 18 THEN T12 = 6
9027 IF T = 17 THEN T12 = 5
9028 IF T = 16 THEN T12 = 4
9029 IF T = 15 THEN T12 = 3
9030 IF T = 14 THEN T12 = 2
9031 IF T = 13 THEN T12 = 1
9032 IF T = 0 THEN T12 = 12
9100 RETURN
9998 CLOSE 1
9999 SYSTEM
10000 END