1 'WTIME.BA (C)1988 Barye Phillips
2 'A world clock that compensates for
3 'Daylight Savings Time.  Set SP in
4 'line 7 for the difference between
5 'local time and GMT/UTC.  Use ESC
6 'to return to the M100 menu.
7 CLS:V=40:DIM C$(10):DIM D(10):SP=5
8 PRINT@V," Daylight Savings Time?"
9 K$=INKEY$:IF K$<>"y" AND K$<>"n" THEN 8 ELSE FOR I=1 TO 10:cls:READ R$,R:C$(I)=R$:D(I)=R:NEXT:IF K$="y"THEN D(3)=D(3)+1:D(4)=D(4)+1:SP=SP-1
10 GOSUB 22:GOTO 12
11 V$=RIGHT$(TIME$,2):GOSUB 14:PRINT@44,G$:IF V$<>"00" THEN 13
12 FOR I=1 TO 4:GOSUB 17:PRINT @V*(I+2)+1,T$:NEXT:FOR I=5 TO 10:GOSUB 17:PRINT @V*(I-4)+20,T$:NEXT
13 K$=INKEY$:IF K$<>CHR$(27) THEN 11 ELSE if isrun then run"menu" else system
14 GOSUB 22:IF G>=24 THEN G=G-24
15 Q$=STR$(G):IF G<10 THEN Q$=" 0"+RIGHT$(Q$,1)
16 G$=Q$+RIGHT$(TIME$,6)+" UTC ":RETURN
17 M$=" AM":H=G+D(I):IF H<0 THEN H=H+24 ELSE IF H>=24 THEN H=H-24
18 IF H>=12 THEN M$=" PM":H=H-12
19 IF H=0 THEN H=12
20 L$=STR$(H):IF LEN(L$)<2 THEN L$=" "+L$
21 T$=L$+MID$(TIME$,3,3)+M$+" "+C$(I):RETURN
22 G=VAL(LEFT$(TIME$,2))+SP:RETURN
23 DATA "London",0,"Caracas",-4,"New York",-5,"Seattle",-8,"Honolulu",-10,"Sydney",10,"Beijing",8,"Jakarta",7,"Karachi",5,"Athens",2