start tok64 d64-O162mr
1050 city$="columbus{space*8}"
1060 down=7
1070 across=7
1080 POKE53280,9:POKE53281,6
1090 PRINT"{black}{clear}{down*7}{right*9}please enter date"
1100 OPEN1,3
1110 DIM dm(15):cc$="{home}{down*23}"
1120 PRINT:PRINT"{yellow}{space*7}{reverse on}month{reverse off}{space*4}{reverse on}day{reverse off}{space*4}{reverse on}year{reverse off}
1130 PRINT"{cyan}{space*8}{sh -} {sh -}{space*5}{sh -*2}{space*5}{sh -}{sh space}{sh -}
1140 PRINT"{space*8}{sh -} J{sh asterisk*4}I{sh -*2}U{sh asterisk*4}K {sh -}
1150 PRINT"{space*8}J{sh asterisk*5}I{sh -*4}U{sh asterisk*5}K
1160 PRINT"{space*14}{sh -*6}
1170 PRINT"{black}
1180 PRINTSPC(12):
1190 INPUTdt$
1200 PRINT"{clear}{down*7}{right*9}please enter time"
1205 PRINT:PRINT"{light green}{space*9}{reverse on}use{reverse off} {reverse on}24{reverse off} {reverse on}hour{reverse off} {reverse on}format{reverse off}
1207 PRINT:PRINT"{white}{space*2}{reverse on}hours:midnight=00 noon=12 11pm=23{reverse off}
1210 PRINT:PRINT:PRINT"{yellow}{space*7}{reverse on}hours{reverse off}{space*2}{reverse on}minutes{reverse off} {reverse on}seconds{reverse off}
1220 PRINT"{cyan}{space*8}{sh -} {sh -}{space*5}{sh -*2}{space*5}{sh -}{sh space}{sh -}
1230 PRINT"{space*8}{sh -} J{sh asterisk*4}I{sh -*2}U{sh asterisk*4}K {sh -}
1240 PRINT"{space*8}J{sh asterisk*5}I{sh -*4}U{sh asterisk*5}K
1250 PRINT"{space*14}{sh -*6}
1260 PRINT"{black}
1270 PRINTSPC(12):
1280 INPUTlt$
1290 GOSUB3090
1300 GOSUB2950
1310 GET b$:IF b$="" GOTO1310
1320 IF b$="e"THEN b=50000
1330 IF b$="c"THEN b=60000
1340 IF b$="m"THEN b=70000
1350 IF b$="p"THEN b=80000
1360 IFb$="o" THEN GOSUB3010
1370 t=VAL(lt$)+b-ds*10000:IFt>240000THENt=t-240000
1380 bx=b/10000
1390 t$="{0*6}"+MID$(STR$(t),2)
1400 ti$=RIGHT$(t$,6)
1410 mm$=LEFT$(dt$,2):dd$=MID$(dt$,3,2):yy$=RIGHT$(dt$,2)
1420 mm=VAL(mm$):dd=VAL(dd$):yy=VAL(yy$)
1430 IFmm=1THEN1510
1440 FORi=1TO12
1450 READ dm(i)
1460 NEXTi
1470 IF y/4=INT(y/4)THEN dm(2)=29
1480 FOR i=1TOmm-1
1490 jd=jd+dm(i)
1500 NEXTi
1510 jd=jd+dd
1520 DATA 31,28,31,30,31,30,31,31,30,31,30,31
1530 IFmm=6THENq=11
1540 IF (mm=7)OR(mm=5)THENq=12
1550 IF (mm=8)OR(mm=4)THENq=13
1560 IF (mm=9)OR(mm=3)THENq=14
1570 IF (mm=10)OR(mm=2)THENq=15
1580 IF (mm=11)OR(mm=1)THENq=16
1590 IF (mm=12)THENq=17
1600 REM
1610 PRINT"{clear}
1620 PRINT"{cm @*3}N{space*2}M{space*2}M {cm i*23}{space*6}";
1630 PRINT"{cm h}{space*5}H{space*3}M{cm j}{white}{space*2}short-wave clock{space*3}{black}{reverse on}{cm k}{reverse off}{space*6}";
1640 PRINT"{cm g}{space*6}{cm g}{sh @}{cm t}M{reverse on}{cm i*23}{reverse off}"
1650 PRINT"{cm h}{space*9}{cm n}{space*2}{yellow} Q = sun {black}{space*3}N{cm t*13}P";
1660 PRINT"{cm g}{space*9}{cm m}{space*13}N {cm m}P{space*11}N";
1670 PRINT"{cm g}{space*9}{cm m}{space*13}L {cm m} P{space*9}N
1680 PRINT"{cm g}{space*9}N{space*14}LNN{cm t}{space*8}N
1690 PRINT"M{space*8}N{space*10}{cm s}{space*2}{sh @}{sh -}{cm @}N{space*9}N
1700 PRINT" M{space*6}N{space*10}K{cm w} N{space*12}N
1710 PRINT"{space*2}M{space*3}{cm @}N{space*12}{cm x}N{space*12}{cm m}
1720 PRINT"{arrow left}{space*2}MO{cm t}B{cm g}{space*12}O{space*13}{cm m}
1730 PRINT"hon.M '{space*11}{cm a}KNMMNP{space*10}M {cm s}
1740 PRINT"{space*5}O{cm t*2}M{space*9}{cm z}{cm x} '{space*2}N{space*10}{cm m*2}G
1750 PRINT"- - {cm g}- - M - - - -{cm g}- - -{cm m}M- - - - -{sh @}{cm m}H-
1760 PRINT"{space*4}{cm g}{space*5}M{space*7}{cm g}{space*5}{cm m}M{space*9}{sh @}{cm m}H
1770 PRINT"{space*4}{cm g}{space*5}{cm m}{space*7}M{space*6}MMN{cm t}M{space*2}NM{sh @}{space*2}{cm x}
1780 PRINT"{space*4}M{space*5}N{space*8}P{space*5}N{space*4}MN{space*2}M
1790 PRINT"{space*5}M{space*3}N{space*9}{cm m}{space*4}N{space*9}M{cm @} {cm @}
1800 PRINT"{space*5}{cm m}{space*2}N{space*11}M{space*2}{cm m}{space*14}M
1810 PRINT"{space*5}{cm m} N{space*13}M N{space*10}N{cm t*2}M
1820 PRINT"{space*5}{cm m}N{space*15}{cm t}{space*11}M{cm @*2}NN";"{home}"
1830 PRINT"{home}{down*7}{right*17}{space*3}{reverse on}gmt{reverse off}
1840 PRINT"{home}{down*8}{right}l.a.{up}{right*5}d.c.{right*4}{down}london{right*11}{down*3}tokyo
1850 PRINT"{home}{down*17}{right*12}{up*2}{space*2}{down*2}{right*4}{down*3}{right} cape town{down}{right*2}n.zealand
1860 PRINT"{home}{down*15}{right*21}cairo
1870 PRINT"{home}{down*12}{right*18}jerusalem
1880 PRINT"{home}{down*16}{right*8}asuncion
1890 PRINT"{home}{right*36}{down*4}nome
1900 PRINT"{home}{down*9}{right*26}moscow{down*6}{left*4}dacca
1910 PRINT"{home}{down*18}{right*33}sidney
1920 PRINT"{home}{down*5}{right*24}{space*2}oslo
1930 PRINT"{home}{down*5}s.lake
1940 PRINT"{home}{down*18}{right*2}chile
1950 PRINT"{home}{down*5}{right*7}ill.
1960 PRINT"{home}{down*15}{space*2}quito
1970 PRINT"{home}{down*20}tahiti
1980 PRINT"{home}{right*32}{down*13}hanoi
1990 h0$=LEFT$(ti$,2):h0=VAL(h0$):ha=h0+19:IFha<0THENha=ha+23
2000 ha=h0+16+ds:IFha>23THENha=ha-24:REM san francisco
2010 hh=h0+14:IFhh>23THENhh=hh-24:REM hilo
2020 hx=h0-bx+ds:IFhx<0THENhx=hx+24:REM local
2030 hv=h0+2:IFhv>23THENhv=hv-24:REM cairo
2040 h2=h0+19+ds:IFh2>23THENh2=h2-24:REM new york
2050 h3=h0+20:IFh3>23THENh3=h3-24:REM rio
2060 hc=h0+1:IFhc>23THENhc=hc-24:REM oslo
2070 hd=h0+17+ds:IFhd>23THENhd=hd-24:REM salt lake
2080 he=h0+19:IFhe>23THENhe=he-24:REM chile
2090 hf=h0+18+ds:IFhf>23THENhf=hf-24:REM ill.
2100 hj=h0+19:IFhj>23THENhj=hj-24:REM quito
2110 hp=h0+14:IFhp>23THENhp=hp-24:REM tahiti
2120 ht=h0+7:IFht>23THENht=ht-24:REM nam
2130 hu=h0+13+ds:IFhu>23THENhu=hu-24:REM nome
2140 h4=h0+2:IFh4>23THENh4=h4-24:REM jerusalem or capetown
2150 h5=h0+2:IFh5>23THENh5=h5-24:REM cape town
2160 h10=h0+3:IFh10>23THENh10=h10-24:REM  moscow
2170 hb=h0+10:IFhb>23THENhb=hb-24:REM sidney
2180 h6=h0+9:IFh6>23THENh6=h6-24:REM tokyo
2190 h7=h0+12:IFh7>23THENh7=h7-24:REM n.zeal
2200 h8=h0+6:IFh8>23THENh8=h8-24:REM dacca
2210 h9=h0:IFh9>23THENh9=h9-24:REM london
2220 ha$=STR$(ha):ha$=RIGHT$(ha$,2):ho$=RIGHT$(STR$(h0),2)
2230 h2$=RIGHT$(STR$(h2),2):h3$=RIGHT$(STR$(h3),2):h4$=RIGHT$(STR$(h4),2)
2240 hh$=RIGHT$(STR$(hh),2)
2250 hx$=RIGHT$(STR$(hx),2)
2260 h5$=RIGHT$(STR$(h5),2):h6$=RIGHT$(STR$(h6),2):h7$=RIGHT$(STR$(h7),2)
2270 hv$=RIGHT$(STR$(hv),2)
2280 h10$=RIGHT$(STR$(h10),2)
2290 hb$=RIGHT$(STR$(hb),2)
2300 hc$=RIGHT$(STR$(hc),2)
2310 hd$=RIGHT$(STR$(hd),2)
2320 he$=RIGHT$(STR$(he),2)
2330 h8$=RIGHT$(STR$(h8),2)
2340 hf$=RIGHT$(STR$(hf),2)
2350 hj$=RIGHT$(STR$(hj),2)
2360 hp$=RIGHT$(STR$(hp),2)
2370 ht$=RIGHT$(STR$(ht),2)
2380 hu$=RIGHT$(STR$(hu),2)
2390 h9$=RIGHT$(STR$(h9),2)
2400 mm$=MID$(ti$,3,2):ss$=RIGHT$(ti$,2)
2410 PRINT"{white}{home}{reverse on}{down*9}";ha$;":";mm$;"{gray}{up}{right*3}";h2$;":";mm$
2420 PRINTTAB(18);"{pink}{reverse on}";h9$;":";mm$
2430 PRINTTAB(35);"{green}{down*2}{reverse on}";h6$;":";mm$;
2440 PRINT"{light blue}";hh$;":";mm$
2450 PRINT"{light gray}{home}{down*17}{reverse on}";TAB(9);h3$;":";mm$;
2460 PRINT"{reverse on}{right*7}{down*4}";h5$;":";mm$;
2470 PRINT"{yellow}{reverse on}{down}{right*8}";h7$;":";mm$;"{reverse off}"
2480 PRINT"{cyan}{home}{down*6}{right*6}{reverse on}";hf$;":";mm$;"{reverse off}"
2490 PRINT"{home}{down*16}{right*2}{reverse on}";hj$;":";mm$;"{reverse off}"
2500 PRINT"{home}{down*21}{arrow left}{reverse on}";hp$":";mm$;"{reverse off}"
2510 PRINT"{light green}{home}{right*32}{down*14}{reverse on}";ht$;":";mm$;"{reverse off}"
2520 PRINT"{home}{down*10}{reverse on}";TAB(27);h10$;":";mm$;"{reverse off}"
2530 PRINT"{home}{down*19}{reverse on}";TAB(33);hb$;":";mm$;"{reverse off}"
2540 PRINT"{home}{down*6}{reverse on}";TAB(24);hc$;":";mm$;"{reverse off}"
2550 PRINT"{home}{down*6}{reverse on}";hd$;":";mm$;"{reverse off}"
2560 PRINT"{home}{down*19}{reverse on}";TAB(4);he$;":";mm$;"{reverse off}"
2570 PRINT"{gray}{home}{down*13}{reverse on}";TAB(22);h4$;":";mm$;
2580 PRINT"{home}{right*34}{down*5}{reverse on}";hu$;":";mm$;"{reverse off}"
2590 PRINT"{home}{down*16}{right*28}{reverse on}";h8$;":";mm$;"{reverse off}"
2600 PRINT"{light blue}{home}{down*16}{right*21}{reverse on}";hv$;":";mm$;"{reverse off}"
2610 GOSUB2850
2620 bb=(h0<0)OR(h0>=3)
2630 b=(h0>=0)AND(h0<3)
2640 PRINT"{home}{right*10}{down*5}";
2650 IF (h0>=20)OR(b)THEN PRINT"(over pacific)":GOTO2670
2660 PRINT"{black}{cm n}{space*14}"
2670 IF (h0<20)AND(bb)THEN PRINT"{home}{right*12}{space*29}"
2680 y=2*(h0-3)
2690 IFy=0THEN y=y+1
2700 IFy>=12THEN y=y+2
2710 IFy>=32 THEN y=y+3
2720 IF y=37THEN y=38
2730 x2=39-y
2740 IF (hh<>h0)AND(x2>39)THEN1990
2750 IF (hh<>h0)AND (x2<=0)THENPRINTLEFT$(cc$,q+1)"{right}"tk$:GOTO1990
2760 IFx1=x2GOTO2790
2770 IFx1<>0THENPRINTLEFT$(cc$,q+1)TAB(x1)tk$:PRINT"{up}";
2780 PRINTLEFT$(cc$,q+1)SPC(x2);:GET#1,tk$:PRINT"{up}"
2790 PRINTLEFT$(cc$,q+1)SPC(x2)"{yellow}W";
2800 FOR zz=1TO50:NEXTzz
2810 PRINT"{left}Q";
2820 x1=x2
2830 hh=h0
2840 GOTO1990
2850 PRINTLEFT$(cc$,down+1)TAB(across)"*"
2860 PRINT"{yellow}{home}{down*23}*";city$
2870 PRINT"{right}{reverse on}";hx$;":";mm$;":";ss$;"{reverse off}";" (";b$;
2880 IF ds THENPRINT"dt)";:GOTO2900
2890 PRINT"st)";
2900 PRINT"{home}{down}"
2910 RETURN
2920 INPUTn
2930 b=n*10000
2940 RETURN
2950 PRINT"{clear}{down*3}{reverse on}{right*7}enter time zone{reverse off}"
2960 PRINT:PRINT"type {reverse on}e{reverse off} if in eastern u.s. time zone
2970 PRINT:PRINT"type {reverse on}c{reverse off} if in central u.s. time zone
2980 PRINT:PRINT"type {reverse on}m{reverse off} if in mountain time
2990 PRINT:PRINT"type {reverse on}p{reverse off} if in pacific time
3000 PRINT:PRINT"if not in cont. u.s., type {reverse on}o{reverse off} for other":RETURN
3010 PRINT"{clear}{reverse on}if outside cont. u.s.
3020 PRINT:PRINT"enter number of hour you must add
3030 PRINT:PRINT"to local time to equal greenwich time
3040 PRINT:PRINT"count west from england (i.e.
3050 PRINT:PRINT"greenland=3 japan=15)
3060 INPUTn
3070 b=n*10000
3080 RETURN
3090 REM daylight savings
3100 PRINT"{down*3}"
3110 PRINT"daylight savings time (y/n)"
3120 GET ds$:IF ds$="" GOTO3120
3130 ds=0
3140 IF ds$="y"THEN ds=1
3150 RETURN
stop tok64
(bastext 1.0)