10 REM 24TZ15.BAS SETS TIME IN 24 HR FORMAT IN 15 AE DEVICES WITH RS232 OPTION
20 REM WRITTEN BY JIM RECCELLI, APPLIED TECHNICAL SYSTEMS, 3/21/97
30 'FILENAME "24TZ15C1" - USED WITH AE SERIES MULTI-ZONE CLOCKS.  REF TIME IS READ FROM
40 'THE PC'S CLOCK.  EACH OF (15) 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 > 23 THEN 60
70 INPUT "ENTER TIME ZONE 2 OFFSET TO ADD TO REF TIME >>  ", TZ2
75 IF TZ2 > 23 THEN 70
80 INPUT "ENTER TIME ZONE 3 OFFSET TO ADD TO REF TIME >>  ", TZ3
85 IF TZ3 > 23 THEN 80
90 INPUT "ENTER TIME ZONE 4 OFFSET TO ADD TO REF TIME >>  ", TZ4
95 IF TZ4 > 23 THEN 90
100 INPUT "ENTER TIME ZONE 5 OFFSET TO ADD TO REF TIME >>  ", TZ5
105 IF TZ4 > 23 THEN 100
110 INPUT "ENTER TIME ZONE 6 OFFSET TO ADD TO REF TIME >>  ", TZ6
115 IF TZ4 > 23 THEN 110
120 INPUT "ENTER TIME ZONE 7 OFFSET TO ADD TO REF TIME >>  ", TZ7
125 IF TZ4 > 23 THEN 120
130 INPUT "ENTER TIME ZONE 8 OFFSET TO ADD TO REF TIME >>  ", TZ8
135 IF TZ4 > 23 THEN 130
140 INPUT "ENTER TIME ZONE 9 OFFSET TO ADD TO REF TIME >>  ", TZ9
145 IF TZ4 > 23 THEN 140
150 INPUT "ENTER TIME ZONE 10 OFFSET TO ADD TO REF TIME >>  ", TZ10
155 IF TZ4 > 23 THEN 150
160 INPUT "ENTER TIME ZONE 11 OFFSET TO ADD TO REF TIME >>  ", TZ11
165 IF TZ4 > 23 THEN 160
170 INPUT "ENTER TIME ZONE 12 OFFSET TO ADD TO REF TIME >>  ", TZ12
175 IF TZ4 > 23 THEN 170
180 INPUT "ENTER TIME ZONE 13 OFFSET TO ADD TO REF TIME >>  ", TZ13
185 IF TZ4 > 23 THEN 180
190 INPUT "ENTER TIME ZONE 14 OFFSET TO ADD TO REF TIME >>  ", TZ14
195 IF TZ4 > 23 THEN 190
200 INPUT "ENTER TIME ZONE 15 OFFSET TO ADD TO REF TIME >>  ", TZ15
205 IF TZ4 > 23 THEN 200

299 CLS
1100 H1H2$ = MID$(TIME$, 1, 2)
1110 PRINT TIME$
1120 M1$ = MID$(TIME$, 4, 1)
1130 M2$ = MID$(TIME$, 5, 1)
1140 S1$ = MID$(TIME$, 7, 1)
1150 S2$ = MID$(TIME$, 8, 1)
1160 '           TIME ZONE SECTION - ENTER TIME ZONE 1 OFFSET
1170 T = VAL(H1H2$) + TZ1
1171 IF T < 24 AND T > 0 THEN T1 = T: GOTO 1180
1175 GOSUB 9000
1176 T1 = T16
1180 T1H1 = INT(T1 / 10)
1190 T1H2 = T1 MOD 10
1200 '           ENTER TIME ZONE 2 OFFSET
1210 T = VAL(H1H2$) + TZ2
1211 IF T < 24 AND T > 0 THEN T2 = T: GOTO 1220
1215 GOSUB 9000
1216 T2 = T16
1220 T2H1 = INT(T2 / 10)
1230 T2H2 = T2 MOD 10
1240 '           ENTER TIME ZONE 3 OFFSET
1250 T = VAL(H1H2$) + TZ3
1251 IF T < 24 AND T > 0 THEN T3 = T: GOTO 1260
1255 GOSUB 9000
1256 T3 = T16
1260 T3H1 = INT(T3 / 10)
1270 T3H2 = T3 MOD 10
1280 '           ENTER TIME ZONE 4 OFFSET
1290 T = VAL(H1H2$) + TZ4
1291 IF T < 24 AND T > 0 THEN T4 = T: GOTO 1300
1295 GOSUB 9000
1296 T4 = T16
1300 T4H1 = INT(T4 / 10)
1310 T4H2 = T4 MOD 10

1360 '           ENTER TIME ZONE 5 OFFSET
1370 T = VAL(H1H2$) + TZ5
1371 IF T < 24 AND T > 0 THEN T5 = T: GOTO 1380
1375 GOSUB 9000
1376 T5 = T16
1380 T5H1 = INT(T5 / 10)
1390 T5H2 = T5 MOD 10

1460 '           ENTER TIME ZONE 6 OFFSET
1470 T = VAL(H1H2$) + TZ6
1471 IF T < 24 AND T > 0 THEN T6 = T: GOTO 1480
1475 GOSUB 9000
1476 T6 = T16
1480 T6H1 = INT(T6 / 10)
1490 T6H2 = T6 MOD 10

1560 '           ENTER TIME ZONE 7 OFFSET
1570 T = VAL(H1H2$) + TZ7
1571 IF T < 24 AND T > 0 THEN T7 = T: GOTO 1580
1575 GOSUB 9000
1576 T7 = T16
1580 T7H1 = INT(T7 / 10)
1590 T7H2 = T7 MOD 10

1660 '           ENTER TIME ZONE 8 OFFSET
1670 T = VAL(H1H2$) + TZ8
1671 IF T < 24 AND T > 0 THEN T8 = T: GOTO 1680
1675 GOSUB 9000
1676 T8 = T16
1680 T8H1 = INT(T8 / 10)
1690 T8H2 = T8 MOD 10

1760 '           ENTER TIME ZONE 9 OFFSET
1770 T = VAL(H1H2$) + TZ9
1771 IF T < 24 AND T > 0 THEN T9 = T: GOTO 1780
1775 GOSUB 9000
1776 T9 = T16
1780 T9H1 = INT(T9 / 10)
1790 T9H2 = T9 MOD 10

1860 '           ENTER TIME ZONE 10 OFFSET
1870 T = VAL(H1H2$) + TZ10
1871 IF T < 24 AND T > 0 THEN T10 = T: GOTO 1880
1875 GOSUB 9000
1876 T10 = T16
1880 T10H1 = INT(T10 / 10)
1890 T10H2 = T10 MOD 10

1960 '           ENTER TIME ZONE 11 OFFSET
1970 T = VAL(H1H2$) + TZ11
1971 IF T < 24 AND T > 0 THEN T11 = T: GOTO 1980
1975 GOSUB 9000
1976 T11 = T16
1980 T11H1 = INT(T11 / 10)
1990 T11H2 = T11 MOD 10

2060 '           ENTER TIME ZONE 12 OFFSET
2070 T = VAL(H1H2$) + TZ12
2071 IF T < 24 AND T > 0 THEN T12 = T: GOTO 2080
2075 GOSUB 9000
2076 T12 = T16
2080 T12H1 = INT(T12 / 10)
2090 T12H2 = T12 MOD 10

2160 '           ENTER TIME ZONE 13 OFFSET
2170 T = VAL(H1H2$) + TZ13
2171 IF T < 24 AND T > 0 THEN T13 = T: GOTO 2180
2175 GOSUB 9000
2176 T13 = T16
2180 T13H1 = INT(T13 / 10)
2190 T13H2 = T13 MOD 10

2260 '           ENTER TIME ZONE 14 OFFSET
2270 T = VAL(H1H2$) + TZ14
2271 IF T < 24 AND T > 0 THEN T14 = T: GOTO 2280
2275 GOSUB 9000
2276 T14 = T16
2280 T14H1 = INT(T14 / 10)
2290 T14H2 = T14 MOD 10

2360 '           ENTER TIME ZONE 15 OFFSET
2370 T = VAL(H1H2$) + TZ15
2371 IF T < 24 AND T > 0 THEN T15 = T: GOTO 2380
2375 GOSUB 9000
2376 T15 = T16
2380 T15H1 = INT(T15 / 10)
2390 T15H2 = T15 MOD 10

3320 M1 = VAL(M1$): M2 = VAL(M2$): S1 = VAL(S1$): S2 = VAL(S2$)
3330 'PRINT ALL TIME ZONES TO THE SCREEN
3340 CLS
3350 PRINT TIME$
3360 PRINT H1H2$
3370 PRINT "TIME ZONE 1   ", T1H1; T1H2; ":"; M1; M2; ":"; S1; S2
3380 PRINT "TIME ZONE 2   ", T2H1; T2H2; ":"; M1; M2; ":"; S1; S2
3390 PRINT "TIME ZONE 3   ", T3H1; T3H2; ":"; M1; M2; ":"; S1; S2
3400 PRINT "TIME ZONE 4   ", T4H1; T4H2; ":"; M1; M2; ":"; S1; S2
3405 PRINT "TIME ZONE 5   ", T5H1; T5H2; ":"; M1; M2; ":"; S1; S2
3406 PRINT "TIME ZONE 6   ", T6H1; T6H2; ":"; M1; M2; ":"; S1; S2
3407 PRINT "TIME ZONE 7   ", T7H1; T7H2; ":"; M1; M2; ":"; S1; S2
3408 PRINT "TIME ZONE 8   ", T8H1; T8H2; ":"; M1; M2; ":"; S1; S2
3409 PRINT "TIME ZONE 9   ", T9H1; T9H2; ":"; M1; M2; ":"; S1; S2
3410 PRINT "TIME ZONE 10  ", T10H1; T10H2; ":"; M1; M2; ":"; S1; S2
3411 PRINT "TIME ZONE 11  ", T11H1; T11H2; ":"; M1; M2; ":"; S1; S2
3412 PRINT "TIME ZONE 12  ", T12H1; T12H2; ":"; M1; M2; ":"; S1; S2
3413 PRINT "TIME ZONE 13  ", T13H1; T13H2; ":"; M1; M2; ":"; S1; S2
3414 PRINT "TIME ZONE 14  ", T14H1; T14H2; ":"; M1; M2; ":"; S1; S2
3415 PRINT "TIME ZONE 15  ", T15H1; T15H2; ":"; M1; M2; ":"; S1; S2

3501 PRINT #1, CHR$(17); CHR$(1); CHR$(4); CHR$(T1H1); CHR$(T1H2); CHR$(M1); CHR$(M2); CHR$(S1); CHR$(S2); CHR$(0)
3502 PRINT #1, CHR$(17); CHR$(2); CHR$(4); CHR$(T2H1); CHR$(T2H2); CHR$(M1); CHR$(M2); CHR$(S1); CHR$(S2); CHR$(0)
3503 PRINT #1, CHR$(17); CHR$(3); CHR$(4); CHR$(T3H1); CHR$(T3H2); CHR$(M1); CHR$(M2); CHR$(S1); CHR$(S2); CHR$(0)
3504 PRINT #1, CHR$(17); CHR$(4); CHR$(4); CHR$(T4H1); CHR$(T4H2); CHR$(M1); CHR$(M2); CHR$(S1); CHR$(S2); CHR$(0)
3505 PRINT #1, CHR$(17); CHR$(5); CHR$(4); CHR$(T5H1); CHR$(T5H2); CHR$(M1); CHR$(M2); CHR$(S1); CHR$(S2); CHR$(0)
3506 PRINT #1, CHR$(17); CHR$(6); CHR$(4); CHR$(T6H1); CHR$(T6H2); CHR$(M1); CHR$(M2); CHR$(S1); CHR$(S2); CHR$(0)
3507 PRINT #1, CHR$(17); CHR$(7); CHR$(4); CHR$(T7H1); CHR$(T7H2); CHR$(M1); CHR$(M2); CHR$(S1); CHR$(S2); CHR$(0)
3508 PRINT #1, CHR$(17); CHR$(8); CHR$(4); CHR$(T8H1); CHR$(T8H2); CHR$(M1); CHR$(M2); CHR$(S1); CHR$(S2); CHR$(0)
3509 PRINT #1, CHR$(17); CHR$(9); CHR$(4); CHR$(T9H1); CHR$(T9H2); CHR$(M1); CHR$(M2); CHR$(S1); CHR$(S2); CHR$(0)
3510 PRINT #1, CHR$(17); CHR$(10); CHR$(4); CHR$(T10H1); CHR$(T10H2); CHR$(M1); CHR$(M2); CHR$(S1); CHR$(S2); CHR$(0)
3511 PRINT #1, CHR$(17); CHR$(11); CHR$(4); CHR$(T11H1); CHR$(T11H2); CHR$(M1); CHR$(M2); CHR$(S1); CHR$(S2); CHR$(0)
3512 PRINT #1, CHR$(17); CHR$(12); CHR$(4); CHR$(T12H1); CHR$(T12H2); CHR$(M1); CHR$(M2); CHR$(S1); CHR$(S2); CHR$(0)
3513 PRINT #1, CHR$(17); CHR$(13); CHR$(4); CHR$(T13H1); CHR$(T13H2); CHR$(M1); CHR$(M2); CHR$(S1); CHR$(S2); CHR$(0)
3514 PRINT #1, CHR$(17); CHR$(14); CHR$(4); CHR$(T14H1); CHR$(T14H2); CHR$(M1); CHR$(M2); CHR$(S1); CHR$(S2); CHR$(0)
3515 PRINT #1, CHR$(17); CHR$(15); CHR$(4); CHR$(T15H1); CHR$(T15H2); CHR$(M1); CHR$(M2); CHR$(S1); CHR$(S2); CHR$(0)
3600 GOTO 9998

9000 'ADJUST FOR HOURS > 23
9010 IF T = 24 THEN T16 = 0
9011 IF T = 25 THEN T16 = 1
9012 IF T = 26 THEN T16 = 2
9013 IF T = 27 THEN T16 = 3
9014 IF T = 28 THEN T16 = 4
9015 IF T = 29 THEN T16 = 5
9016 IF T = 30 THEN T16 = 6
9017 IF T = 31 THEN T16 = 7
9018 IF T = 32 THEN T16 = 8
9019 IF T = 33 THEN T16 = 9
9020 IF T = 34 THEN T16 = 10
9021 IF T = 35 THEN T16 = 11
9022 IF T = 36 THEN T16 = 12
9023 IF T = 37 THEN T16 = 13
9024 IF T = 38 THEN T16 = 14
9025 IF T = 39 THEN T16 = 15
9026 IF T = 40 THEN T16 = 16
9027 IF T = 41 THEN T16 = 17
9028 IF T = 42 THEN T16 = 18
9029 IF T = 43 THEN T16 = 19
9030 IF T = 44 THEN T16 = 20
9031 IF T = 45 THEN T16 = 21
9032 IF T = 46 THEN T16 = 22
9100 RETURN
9998 CLOSE 1
9999 SYSTEM
10000 END