0  'W/TIME.BA  8 SEP 87  E.J.Carmody
1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
10 W$="WORLD STANDARD TIME":CALL16959
15 CLS:CALL17001:PRINT@0,W$:CALL17006
20 PRINT@80,"What is U.S. local time zone?"
25 PRINT@120,"<1>EASTERN     <2>CENTRAL"
30 PRINT@160,"<3>MOUNTAIN    <4>PACIFIC    <5>HAWAII"
35 INPUT"SELECTION";K1:K1=K1-1:IFK1=4THENK1=5
40 CLS:CALL17001:PRINT@0,W$:CALL17006
45 PRINT@80,"Are you on ---"
50 PRINT@120,"<1>STANDARD    <2>DAYLIGHT SAVING"
55 INPUT"SELECTION";K2:K2=K2-1:IFK2=0THENC$="STD"ELSEC$="DST"
60 IFK1<0ORK1>5ORK2<0ORK2>1THENBEEP:GOTO15
65 CLS:CALL17001:PRINT@0,W$:CALL17006:DD$="SatSunMonTueWedThuFriSatSun"
70 D$=DAY$
75 T1=VAL(LEFT$(TIME$,2))+INT(100*VAL(MID$(TIME$,4,2))/60+.5)/100
80 CALL17001:PRINT@20,"LOCAL: "DAY$" "LEFT$(TIME$,5)" "C$:CALL17006
85 FORI=1TO6:READL$,K3,K4:P=INSTR(4,DD$,DAY$)
90 T2=K1-K2+K3+T1:IFT2>=24THENT2=T2-24:GOTO110
95 GOSUB160
100 IFK4=1THENGOSUB165
105 GOTO120
110 GOSUB160
115 IFK4=0THENGOSUB150
120 PRINT@I*40+X,L$;SPACE$(10-LEN(L$));D$;" ";T2$:D$=DAY$
125 NEXT:IFX=20THENX=0:GOTO130ELSEX=20:GOTO85
130 PRINT@280,"Press any key to continue"
135 K$=INKEY$:IFK$=""THEN135
140 N=N+1:IFN=3THEN145ELSEGOTO85
145 N=0:RESTORE:GOTO70
150 P=P+3:D$=MID$(DD$,P,3):RETURN
155 P=P-3:D$=MID$(DD$,P,3):RETURN
160 TA$=STR$(INT(T2)):TB$=STR$(INT(((T2-INT(T2))*60+.5)))
165 IFINT(T2)<10THENTA$="0"+RIGHT$(TA$,1)ELSETA$=RIGHT$(TA$,2)
170 IFT2-INT(T2)<.158THENTB$="0"+RIGHT$(TB$,1)ELSETB$=RIGHT$(TB$,2)
175 T2$=TA$+":"+TB$:RETURN
180 DATA "ANCHORAGE",19,1,"AZORES",4,0,"BERMUDA",1,0,"BUENOS A.",2,0,   "CAPETOWN",6,0,"CHICAGO",23,1
185 DATA CLEVELAND,0,0,DENVER,22,1,DETROIT,0,0,EGYPT,7,0,ENGLAND,5,0,   FRANCE,6,0
190 DATA GERMANY,6,0,GREECE,7,0,HAWAII,19,1,INDIA,10.5,0,IRAN,9,0,      IRELAND,5,0
195 DATA ISRAEL,7,0,ITALY,6,0,JAPAN,14,0,LAS VEGAS,22,1,LOS ANGEL,21,1, MANILA,13,0
200 DATA MELBOURNE,15,0,MEXICO C.,23,1,MONTREAL,0,0,MOSCOW,8,0,         NEW YORK,0,0,NEWFNDLND,1.5,0
205 DATA RIO deJAN,2,0,SHANGHAI,13,0,SIDNEY,15,0,SINGAPORE,13,0,        ST.LOUIS,23,1,VENEZUELA,1,0