Home » Archimedes archive » Acorn User » AU 1994-06.adf » !StarInfo_StarInfo » Marshall/!WorldTime/!progOS3
Marshall/!WorldTime/!progOS3
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1994-06.adf » !StarInfo_StarInfo |
| Filename: | Marshall/!WorldTime/!progOS3 |
| Read OK: | ✔ |
| File size: | 4B72 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10 REM >!WorldTime.!progOS3
20 REM World Clock with Terminator
30 REM by P.E.Marshall
40 REM
50 REM Version 1.3 Nov 1993 for Archimedes RiscOs 3 only
60 REM
70 PROCinitalize
80 ONERROR PROCerror
90 REPEAT
100 SYS&42 TO T%
110 SYS&400E1,&81810,blk%,T%+5 TO reason,ptr% : REM Wimp_PollIdle
120 CASE reason OF
130 WHEN 0 : IF active THEN SYS "Hourglass_On":PROCmain:SYS "Hourglass_Off"
140 WHEN 1 : PROCredrawwindow
150 WHEN 2 : SYS "Wimp_OpenWindow",,ptr%
160 WHEN 3 : PROCshut(ptr%!0) : active=FALSE
170 WHEN 5 : active=TRUE
180 WHEN 6 : PROCclicked
190 WHEN 9 : PROCprocess_menu : active=TRUE
200 WHEN 17,18 : PROCOSmessage
210 ENDCASE
220 UNTIL quit=TRUE
230 SYS"Wimp_CloseDown"
240END
250:
260DEFPROCinitalize
270 C%=OPENIN("<WorldTime$Dir>.MapXY")
280 DIM databuf EXT#C%
290 CLOSE#C%
300 OSCLI("LOAD <WorldTime$Dir>.MapXY "+STR$~databuf)
310 quit =FALSE
320 termi =TRUE
330 clocks =TRUE
340 cities =TRUE
350 sun =TRUE
360 today =TRUE
370 realtime=TRUE
380 active = 1
390 step =FALSE
400 dst =0
410 est =0
420 DIM localbuf% 16 : REM not used now
430 DIM timebuf% 16 : $timebuf%="12:00"
440 DIM datebuf% 16 : $datebuf%="01/01"
450 DIM stepmins% 16 : $stepmins%="15"
460 DIM stepdays% 16 : $stepdays%="0"
470 DIM blk% &200, menu1% &200, menu3% &100, menu4% &100
480 DIM menu5% &100, menu6% &100, menu7% &100, menu9% &600
490 M%=40
500 DIM cityname$(M%),cityX(M%),cityY(M%),clockX(M%),clockY(M%)
510 DIM citytime(M%),smtype(M%),cityon%(M%)
520 SYS"Wimp_Initialise" ,200,&4B534154,"WorldTime" TO version%,task%
530 window1=FNcreate(1162,-700,"World Time",7,3,&4F,0)
540 PROCload
550 PROCmenu1
560 PROCmenu3
570 PROCmenu4
580 PROCmenu5
590 PROCwrite_sub(menu6%,"Minutes",stepmins%)
600 PROCwrite_sub(menu7%,"Days",stepdays%)
610 sprite1size=640*200+100
620 sprite2size=16*16+100
630 DIM sprite1% sprite1size,sprite2% sprite2size
640 !sprite1%=sprite1size : !sprite2%=sprite2size
650 sprite1%!8=16 : sprite2%!8=16
660 SYS&2E,9+256,sprite1% : REM "OS_SpriteOp"
670 SYS&2E,9+256,sprite2%
680 SYS&2E,15+256,sprite1%,"SCREEN",0,640,200,15
690 SYS&2E,15+256,sprite2%,"TEMP",0,16,16,15
700 res%=4
710 xoffset=4
720 yoffset=308
730 DIM timeblk 8,ordinal 32
740 DIM timeformat 128
750 DIM timestring 128
760 PROCassemble
770 RESTORE+1
780 I%=-1
790 REPEAT
800 I%+=1
810 READ cityname$(I%),y,x,citytime(I%),smtype(I%)
820 cityX(I%)=(180+x)*3.2+xoffset
830 cityY(I%)=y*4+yoffset
840 UNTIL cityname$(I%)="end"
850 no_citys=I%-1
860 PROCmenu9
870 oldtime=0
880 DIM col_tab% 256,scale% 16
890 PROCmode
900 PROCiconbar
910 PROCscreen
920ENDPROC
930:
940REM City,N Lat,W Long,GMT difference,daylight saving 0=none 1=US dst 2=euro 3=UK
950REM If last char < text on left, > text on right otherwise text below.
960
970DATA"Adelaide<",-35,138,9.5,0
980DATA"Anchorage�",61,-149,-9,1
990DATA"Antigua�",17,-61,-4,0
1000DATA"Beijing<",40,116,8,0
1010DATA"Brussels>",51,4,1,2
1020DATA"Canberra>",-35,149,10,0
1030DATA"Cape Town�",-34,18,2,0
1040DATA"Caracas>",10,-67,-4,0
1050DATA"Chicago<",42,-87.5,-6,1
1060DATA"Delhi�",28,77,5.5,0
1070DATA"Denver>",39,-105,-7,1
1080DATA"Dubai>",25,55,4,0
1090DATA"Hong Kong>",22,114,8,0
1100DATA"Honolulu�",21,-158,-10,0
1110DATA"Jerusalem�",32,35,2,0
1120DATA"Joh'burg>",-26,28,2,2
1130DATA"Kuwait�",29,47,3,0
1140DATA"Lagos�",6,3,1,0
1150DATA"Lisbon�",38,-9,0,2
1160DATA"London<",51,0,0,3
1170DATA"Los Angeles<",34,-118,-8,1
1180DATA"Mexico>",19,-99,-6,0
1190DATA"Moscow>",55,37,3,2
1200DATA"New York>",42,-76,-5,1
1210DATA"Paris>",49,3,1,2
1220DATA"Perth<",-32,116,8,0
1230DATA"Rio>",-23,-43,-3,0
1240DATA"Seoul�",37,127,9,0
1250DATA"Sydney>",-34,151,10,0
1260DATA"Tehran>",35,49,3.5,0
1270DATA"Tokyo>",35,139,9,0
1280DATA"Toronto>",44,-79,-5,1
1290DATA"Vancouver<",49,-123,-5,1
1300DATA"Washington<",39,-77,-5,1
1310DATA"Wellington<",-41.5,175,12,0
1320DATA"end",0,0,0,0
1330:
1340 DEFFNcreate(ww,wh,T$,wf,wb,flags,addr)
1350 blk%!24=-1:blk%!28=flags
1360 blk%?32=7 :blk%?33=2
1370 blk%?34=wf:blk%?35=wb
1380 blk%?36=3 :blk%?37=2
1390 blk%?38=12:blk%?39=0
1400 blk%!40=0 :blk%!44=wh
1410 blk%!48=ww:blk%!52=0
1420 IF addr=0 blk%!56=&3D ELSE blk%!56=&13D
1430 blk%!60=0
1440 blk%!64=0:blk%!68=0
1450 IF addr=0 THEN
1460 $(blk%+72)=T$
1470 ELSE
1480 $addr=T$
1490 blk%!72=addr
1500 blk%!76=-1
1510 blk%!80=32
1520 ENDIF
1530 blk%!84=0
1540 SYS "Wimp_CreateWindow",,blk% TO handle
1550=handle
1560:
1570DEFPROCmenu1
1580 PROCinfobox
1590 flags=&7000021
1600 P%=menu1%
1610 PROCmenu_header("World Time",14)
1620 PROCmenu_item(&00,info_window,flags,"Info")
1630 PROCmenu_item(&00,menu3%,flags,"Display Date")
1640 PROCmenu_item(&00,menu4%,flags,"Display Time")
1650 PROCmenu_item(&02-step,menu5%,flags,"Step")
1660 PROCmenu_item(&00-termi,-1,flags,"Terminator")
1670 PROCmenu_item(&00-sun,-1,flags,"Sun")
1680 PROCmenu_item(&00-clocks,-1,flags,"Clocks")
1690 PROCmenu_item(&02-cities,menu9%,flags,"Cities")
1700 PROCmenu_item(&00,-1,flags,"Save setup")
1710 PROCmenu_item(&80,-1,flags,"Quit")
1720ENDPROC
1730:
1740DEFPROCmenu3
1750 flags=&7000021
1760 P%=menu3%
1770 PROCmenu_header("Date dd/mm",12)
1780 PROCmenu_item(&00-today,-1,flags,"Today")
1790 PROCwrite_item(&84-NOT today,datebuf%)
1800ENDPROC
1810:
1820DEFPROCmenu4
1830 flags=&7000021
1840 P%=menu4%
1850 PROCmenu_header("Time hh:mm",12)
1860 PROCmenu_item(&00-realtime,-1,flags,"Now")
1870 PROCwrite_item(&84-NOT realtime,timebuf%)
1880ENDPROC
1890:
1900DEFPROCmenu5
1910 flags=&7000021
1920 P%=menu5%
1930 PROCmenu_header("Interval",12)
1940 PROCmenu_item(&00,menu6%,flags,"Minutes")
1950 PROCmenu_item(&80,menu7%,flags,"Days")
1960ENDPROC
1970:
1980DEFPROCmenu9
1990 flags=&7000021
2000 P%=menu9%
2010 PROCmenu_header("Cities",12)
2020 FOR I%=0 TO no_citys-1
2030 PROCmenu_item(&00-cityon%(I%),-1,flags,LEFT$(cityname$(I%)))
2040 NEXT
2050 PROCmenu_item(&80-cityon%(no_citys),-1,flags,LEFT$(cityname$(no_citys)))
2060ENDPROC
2070:
2080DEFPROCwrite_sub(P%,h$,adr%)
2090 PROCmenu_header(h$,8)
2100 PROCwrite_item(&84,adr%)
2110ENDPROC
2120:
2130DEFPROCwrite_item(A%,adr%)
2140 P%!0=A%
2150 P%!4=-1
2160 P%!8=&7000119
2170 P%!12=adr%
2180 P%!16=-1
2190 P%!20=16
2200ENDPROC
2210:
2220DEFPROCmenu_header(T$,w)
2230 $P%=T$
2240 P%!12=&70207
2250 P%!16=w*16
2260 P%!20=34
2270 P%!24=8
2280 P%+=28
2290ENDPROC
2300:
2310DEFPROCmenu_item(A%,B%,C%,T$)
2320 P%!0=A%
2330 P%!4=B%
2340 P%!8=C%
2350 $(P%+12)=T$
2360 P%+=24
2370ENDPROC
2380:
2390DEFPROCiconbar
2400 blk%!0=-1
2410 blk%!4=0
2420 blk%!8=0
2430 blk%!12=68
2440 blk%!16=68
2450 blk%!20=&3002
2460 $(blk%+24)="!WorldTime"
2470 SYS "Wimp_CreateIcon",,blk% TO iconbar
2480ENDPROC
2490:
2500DEFPROCinfobox
2510 DIM infotext 128,infotitle 32 : P%=infotext
2520 info_window=FNcreate(680,-244,"About This Program",7,1,%10000011,infotitle)
2530 y=-60
2540 RESTORE+1
2550 FOR I%=0 TO 3
2560 READ t$,$P%
2570 PROCcreate_icon(info_window,0,16,180,y,t$,&17000211)
2580 PROCcreate_icon(info_window,P%,190,660,y,"",&700013D)
2590 y-=60 : P%+=32
2600 NEXT
2610 PROCopenup(info_window,0,0,680,244)
2620 PROCshut(info_window)
2630 DATA "Name :","World Time"
2640 DATA "Purpose :","Clock & Sunlight terminator"
2650 DATA "Author :", "� P.E.Marshall, Lichfield "
2660 DATA "Version :","1.41 (1/1/94) RiscOs 3 ONLY"
2670ENDPROC
2680:
2690DEFPROCcreate_icon(handle,addr,minx,maxx,miny,t$,flags)
2700 blk%!0=handle:blk%!4=minx
2710 blk%!8=miny :blk%!12=maxx
2720 blk%!16=miny+56
2730 blk%!20=flags
2740 IF addr=0 THEN
2750 $(blk%+24)=t$
2760 ELSE
2770 blk%!24=addr
2780 blk%!28=-1
2790 blk%!32=24
2800 ENDIF
2810 SYS"Wimp_CreateIcon",,blk%
2820ENDPROC
2830:
2840DEFPROCopenup(handle,x,y,w,h)
2850 blk%!0=handle
2860 blk%!4=x :blk%!8=y-h
2870 blk%!12=x+w :blk%!16=y
2880 blk%!20=0 :blk%!24=0
2890 blk%!28=-1
2900 SYS "Wimp_OpenWindow",,blk%
2910ENDPROC
2920:
2930DEFPROCclicked
2940 handle=ptr%!12
2950 button=ptr%!8
2960 icon=ptr%!16
2970 IF (button AND 4) AND icon=iconbar THEN PROCopenup(window1,20,900,1160,700):active=TRUE
2980 IF button AND 2 THEN active=FALSE : SYS "Wimp_CreateMenu",,menu1%,ptr%!0-64,-ptr%!4*(icon<>iconbar)-(icon=iconbar)*560
2990ENDPROC
3000:
3010DEFPROCprocess_menu
3020 CASE ptr%!0 OF
3030 WHEN 1 :
3040 CASE ptr%!4 OF
3050 WHEN 0 : today=TRUE : PROCmenu3
3060 WHEN 1 : today=FALSE: PROCmenu3
3070 ENDCASE
3080 WHEN 2 :
3090 CASE ptr%!4 OF
3100 WHEN 0 : realtime=TRUE : PROCmenu4
3110 WHEN 1 : realtime=FALSE: PROCmenu4
3120 ENDCASE
3130 WHEN 3 : IF ptr%!4=-1 THEN step=step EOR -1 : ELSE step = TRUE
3140 PROCmenu1
3150 WHEN 4 : termi=termi EOR -1 : PROCmenu1 : PROCscreen
3160 WHEN 5 : sun=sun EOR -1 : PROCmenu1
3170 WHEN 6 : clocks=clocks EOR -1 : PROCmenu1 : PROCscreen
3180 WHEN 7 : Q%=ptr%!4
3190 IF Q%=-1 THEN
3200 cities=cities EOR -1
3210 PROCmenu1
3220 ELSE
3230 cityon%(Q%)=cityon%(Q%) EOR -1
3240 PROCmenu9
3250 ENDIF
3260 PROCscreen
3270 WHEN 8 : PROCsave
3280 WHEN 9: quit=TRUE
3290 ENDCASE
3300 SYS"Wimp_GetPointerInfo",,blk%
3310 button=blk%!8
3320 IF button AND 1 THEN SYS "Wimp_CreateMenu",,menu1%,ptr%!0-64,ptr%!4
3330 oldtime=0
3340 IF ABS(VAL($stepdays%))>400 THEN $stepdays%="400"
3350ENDPROC
3360:
3370DEFPROCredrawwindow
3380 LOCAL window
3390 handle=ptr%!0
3400 SYS "Wimp_RedrawWindow",,ptr% TO flag
3410 WHILE flag<>0
3420 IF handle=window1 THEN PROCwrite_window1
3430 SYS "Wimp_GetRectangle",,ptr% TO flag
3440 ENDWHILE
3450ENDPROC
3460:
3470DEFPROCupdate
3480 blk%!0=window1:blk%!4=0
3490 blk%!8=-720 :blk%!12=1200
3500 blk%!16=0
3510 SYS "Wimp_UpdateWindow",,blk% TO flag
3520 WHILE flag<>0
3530 PROCwrite_window1
3540 SYS "Wimp_GetRectangle",,ptr% TO flag
3550 ENDWHILE
3560ENDPROC
3570:
3580DEFPROCwrite_window1
3590 SYS &2E,52+256,sprite1%,"SCREEN",ptr%!4-ptr%!20,ptr%!16-700-ptr%!24,8,scale%,col_tab%
3600ENDPROC
3610:
3620DEFPROCshut(handle)
3630 blk%!0=handle
3640 SYS "Wimp_CloseWindow",,blk%
3650ENDPROC
3660:
3670DEFPROCOSmessage
3680 reason=blk%!16
3690 CASE reason OF
3700 WHEN 0 : quit=TRUE
3710 WHEN &400C1 : PROCmode : active=1
3720 ENDCASE
3730ENDPROC
3740:
3750DEFPROCerror
3760 !blk%=0
3770 $(blk%+4)=REPORT$+" at line "+STR$ERL+CHR$0
3780 SYS"Wimp_ReportError",blk%,1,"World Time"
3790 SYS"Wimp_CloseDown"
3800END
3810ENDPROC
3820:
3830DEFPROCforegnd
3840 SYS&2E,V0%,V1%,V2%,V3%
3850ENDPROC
3860:
3870DEFPROCbackgnd
3880 SYS&2E,60+256,sprite1%,"SCREEN" TO V0%,V1%,V2%,V3%
3890ENDPROC
3900:
3910DEFPROCsave
3920 ch%=OPENOUT("<WorldTime$Dir>.SETUP")
3930 PRINT#ch%,termi,clocks,sun,today,realtime,dst,est,cities
3940 PRINT#ch%,$localbuf%,$timebuf%,$datebuf%,$stepmins%,$stepdays%
3950 PRINT#ch%,no_citys
3960 FOR I%=0 TO no_citys : PRINT#ch%,cityon%(I%) : NEXT
3970 CLOSE#ch%
3980ENDPROC
3990:
4000DEFPROCload
4010 ch%=OPENIN("<WorldTime$Dir>.SETUP")
4020 IF ch%=0 THEN ENDPROC
4030 INPUT#ch%,termi,clocks,sun,today,realtime,dst,est,cities
4040 INPUT#ch%,$localbuf%,$timebuf%,$datebuf%,$stepmins%,$stepdays%
4050 INPUT#ch%,no_citys
4060 FOR I%=0 TO no_citys : INPUT#ch%,cityon%(I%) : NEXT
4070 CLOSE#ch%
4080ENDPROC
4090:
4100DEFPROCmain
4110 IF active=1 THEN active=TRUE : PROCscreen
4120 REM Territory_ReadCurrentTimeZone
4130 SYS &43048 TO r0,r1
4140 localoffset=r1/360000
4150 IF NOT step THEN
4160 REM get current UTC time in 5-byte centisecs "OS_Word 14,3"
4170 timeblk?0 = 3 : SYS 7,14,timeblk
4180 ELSE
4190 PROCaddtime(VAL($stepmins%)/60 + VAL($stepdays%)*24)
4200 ENDIF
4210 REM Territory_ConvertTimeToUTCOrdinals
4220 SYS &43049,-1,timeblk,ordinal
4230 year=ordinal!24
4240 IF today OR step THEN
4250 month=ordinal!20
4260 day = ordinal!16
4270 ELSE
4280 month=VAL(RIGHT$($datebuf%,2))
4290 day =VAL(LEFT$($datebuf%,2))
4300 ENDIF
4310 IF realtime OR step THEN
4320 hour=ordinal!12
4330 min= ordinal!8
4340 ELSE
4350 hour=VAL(LEFT$($timebuf%,2))
4360 min= VAL(RIGHT$($timebuf%,2))
4370 ENDIF
4380 REM convert ordinals into UTC 5-byte
4390 A%=day : B%=month : C%=year : D%=hour : E% =min : F%=0 : CALL convert
4400 IF ABS(!timeblk-oldtime)< 6000 THEN ENDPROC
4410 oldtime=!timeblk
4420
4430 timedif=12-(hour+min/60)
4440 IF timedif<-12 THEN timedif+=24
4450 PROCequations
4460 PROCbackgnd
4470 PROCunplotsun
4480 IF termi PROCgreyline
4490 IF clocks PROCclocks:PROCshowdate
4500 IF sun PROCplotsun
4510 PROCforegnd
4520 PROCupdate
4530ENDPROC
4540:
4550DEFFNtimetext(f$)
4560 REM convert 5-byte time to string in LOCAL format
4570 $timeformat=f$+CHR$0
4580 REM "OS_ConvertDateAndTime"
4590 SYS &C1,timeblk,timestring,64,timeformat TO r0,r1
4600 ?r1=13
4610=$timestring
4620:
4630DEFPROCaddtime(t)
4640 A%=t*180000 : CALL add : CALL add
4650 REM 2 adds keeps 365 days under 32 bits
4660ENDPROC
4670:
4680DEFPROCclocks
4690VDU5
4700FOR I%=0 TO no_citys
4710 IF cityon%(I%) THEN
4720 X%=clockX(I%) : Y%=clockY(I%)
4730 GCOL0,blackcol
4740 RECTANGLEFILLX%+8,Y%-64,80,32
4750 GCOL0,textcol
4760 H%=timeblk!4:L%=timeblk!0
4770 PROCaddtime(citytime(I%)-localoffset)
4780 IF FNsummer(smtype(I%)) THEN PROCaddtime(1)
4790 MOVE X%+10,Y%-36
4800 PRINT FNtimetext("%24:%MI")
4810 timeblk!4=H%:timeblk!0=L%
4820 ENDIF
4830NEXT
4840ENDPROC
4850:
4860DEFPROCshowdate
4870 X%=20 : Y%=660
4880 GCOL0,bckgndcol TINT0
4890 RECTANGLEFILL X%,Y%,1160,36
4900 GCOL0,textcol
4910 MOVE 640,Y%+30
4920 PRINT FNtimetext("%24:%MI %W3 %zDY%ST %M3 %CE%YR Local");
4930 L%=timeblk!0:H%=timeblk!4
4940 REM convert to GMT. 5-byte time is already GMT but OS3 ConvertDateAndTime makes it local!
4950 PROCaddtime(-localoffset)
4960 MOVE 60,Y%+30
4970 PRINT FNtimetext("%24:%MI %W3 %zDY%ST %M3 %CE%YR UTC")
4980 timeblk!0=L%:timeblk!4=H%
4990ENDPROC
5000:
5010DEFFNsummer(C%)
5020 S%=FALSE
5030 weekday=ordinal!28 : REM day of week 1=sunday
5040 CASE C% OF
5050 WHEN 1 : REM US DST= first Sunday April to last Sunday Oct
5060 IF (month=4 AND day-weekday>=0) OR month>4 THEN S%=TRUE
5070 IF (month=10 AND 31-day+weekday<=7) OR month>10 THEN S%=FALSE
5080 WHEN 2 : REM Euro summer time last Sunday March to last Sunday Sept
5090 IF (month=3 AND 31-day+weekday<=7) OR month>3 THEN S%=TRUE
5100 IF (month=9 AND 31-day+weekday<=7) OR month>9 THEN S%=FALSE
5110 WHEN 3 : REM British summer time last Sunday March to Sunday after last Saturday October
5120 IF (month=3 AND 31-day+weekday<=7) OR month>3 THEN S%=TRUE
5130 IF (month=10 AND 28-day+weekday<=6) OR month>10 THEN S%=FALSE
5140 ENDCASE
5150=S%
5160:
5170DEFPROCscreen
5180 SX%=0 : SY%=-100
5190 PROCbackgnd
5200 GCOL0,clearcol TINT 0
5210 RECTANGLEFILL0,0,1200,720
5220 PROCcountrys
5230 PROCfill
5240 PROCgrid
5250 PROCcitys
5260 PROCforegnd
5270 oldtime=0
5280ENDPROC
5290:
5300DEFPROCgrid
5310 REM 1 deg lat=4, 1 deg long=3.2, 1hr =48 graphics units
5320 rh=xoffset+360*3.2
5330 GCOL0,bckgndcol TINT0
5340 RECTANGLEFILL 0,656,1200,48
5350 GCOL0,linescol TINT3
5360 RESTORE+1
5370 FOR I%=0 TO 4
5380 READ lat
5390 MOVE 0,yoffset+lat*4 : PLOT17,1200,0
5400 NEXT
5410 Y%=yoffset-85*4 : L%=85*8
5420 FOR X%=0TO 12
5430 MOVE xoffset+X%*96,Y% : PLOT17,0,L%
5440 NEXT
5450ENDPROC
5460:
5470DATA -66.5,-23.5,0,23.5,66.5
5480:
5490DEFPROCmode
5500 SYS "Wimp_ReadPixTrans",&100,sprite1%,"SCREEN",,,,scale%,col_tab%
5510 SYS "ColourTrans_SelectTable",15,0,-1,-1,col_tab%
5520 SYS "OS_ReadModeVariable",MODE,9 TO r0,r1,r2
5530 IF r2<>3 THEN
5540 REM modify colour trans table for best 16 colour effect (due to OR/AND plotting)
5550 RESTORE +1
5560 FOR I%=0 TO 5
5570 READ C%,N%
5580 col_tab%?C%=N%
5590 NEXT
5600 ENDIF
5610 DATA 108,10,32,13,128,8,204,15,76,8,176,3
5620 col_tab%?76=5
5630 clearcol=32
5640 landcol=4
5650 coastcol=9
5660 linescol=42
5670 bckgndcol=63
5680 textcol=3
5690 citycol=63
5700 blackcol=0
5710 suncol=15
5720ENDPROC
5730
5740:
5750DEFPROCcitys
5760VDU5
5770FOR I%=0 TO no_citys
5780 IF cityon%(I%) THEN
5790 X%=cityX(I%) : Y%=cityY(I%)
5800 GCOL0,citycol TINT 128
5810 IF cities RECTANGLE X%,Y%,4,4
5820 CASE RIGHT$(cityname$(I%)) OF
5830 WHEN ">"
5840 PLOT0,8,0
5850 WHEN "<"
5860 PLOT0,-LEN(cityname$(I%))*16+8,0
5870 X%-=100
5880 OTHERWISE
5890 PLOT0,-LEN(cityname$(I%))*8+8,-12
5900 Y%-=12 : X%-=48
5910 ENDCASE
5920 IF cities PRINT LEFT$(cityname$(I%))
5930 clockX(I%)=X%:clockY(I%)=Y%
5940 ENDIF
5950NEXT
5960ENDPROC
5970:
5980DEFPROCgreyline
5990 GCOL 1,25 TINT 0
6000 RECTANGLEFILL0,0,1200,652
6010 GCOL 2,38 TINT 0
6020 FOR latdeg=-85 TO 85 STEP res%/2
6030 lat=RAD(latdeg)
6040 PROCrise_set
6050 PROCplot
6060 NEXT
6070ENDPROC
6080:
6090DEFPROCequations
6100 REM Territory_ConvertTimeToUTCOrdinals
6110 SYS &43049,-1,timeblk,ordinal
6120 A=2*PI*(ordinal!32-1)/365 : REM uses day of year
6130 REM declination
6140 decl=0.456-22.915*COS(A)-0.43*COS(2*A)-0.156*COS(3*A)+3.83*SIN(A)+0.06*SIN(2*A)-0.082*SIN(3*A)
6150 tde=TAN(RAD(decl))
6160 REM equation of time
6170 equ=0.008+0.51*COS(A)-3.197*COS(2*A)-0.106*COS(3*A)-0.15*COS(4*A)-7.317*SIN(A)-9.471*SIN(2*A)-0.391*SIN(3*A)-0.242*SIN(4*A)
6180ENDPROC
6190:
6200DEFPROCrise_set
6210 flag=0
6220 a=tde*TAN(lat)
6230 IF a>1 THEN flag=1 : ENDPROC
6240 IF a<-1 THEN flag=2 : ENDPROC
6250 b=DEG(-ATN(a/SQR(-a*a+1))+PI/2)
6260 rise=b/15
6270 set=-rise
6280 set=set+timedif-equ/60
6290 rise=rise+timedif-equ/60
6300 IF rise>=24 THEN rise-=24
6310 IF rise<=0 THEN rise+=24
6320 IF set>=24 THEN set-=24
6330 IF set<=0 THEN set+=24
6340ENDPROC
6350:
6360DEFPROCplot
6370 Y%=yoffset+latdeg*4 :REM /15*60
6380 CASE flag OF
6390 WHEN 0
6400 R%=48*rise
6410 S%=48*set
6420 IF set>rise THEN
6430 RECTANGLEFILL 0,Y%,R%+xoffset,res%
6440 RECTANGLEFILL xoffset+S%,Y%,rh-S%,res%
6450 ELSE
6460 RECTANGLEFILL xoffset+S%,Y%,R%-S%,res%
6470 ENDIF
6480 WHEN 2 : RECTANGLEFILL 0,Y%,rh+xoffset,res%
6490 ENDCASE
6500ENDPROC
6510:
6520DEFPROCplotsun
6530 SY%=decl*4+yoffset
6540 SX%=xoffset+((12+timedif)*48)
6550 SYS&2E,16+256,sprite2%,"TEMP",0,SX%-16,SY%-16,SX%+16,SY%+16
6560 GCOL0,7
6570 MOVE SX%-16,SY% : DRAWBY32,0
6580 MOVE SX%,SY%-16 : DRAWBY0,32
6590 CIRCLE SX%,SY%,8
6600 GCOL0,suncol TINT 3
6610 CIRCLEFILL SX%,SY%,6
6620ENDPROC
6630:
6640DEFPROCunplotsun
6650 SYS&2E,34+256,sprite2%,"TEMP",SX%-16,SY%-16,0
6660ENDPROC
6670:
6680DEFPROCfill
6690 GCOL 128+landcol
6700 RESTORE +1
6710 REPEAT
6720 READ lat,long
6730 PLOT 143,(180+long)*3.2+xoffset,lat*4+yoffset
6740 UNTIL lat=&FFFF
6750 MOVE 360*3.2,60*4+yoffset : REM move tip of Russia
6760 MOVE 369*3.2+xoffset,70*4+yoffset
6770 PLOT 190,0,60*4+yoffset
6780ENDPROC
6790:
6800REM Centre for fill Lat, Long
6810DATA 53.5,-8,54,-2,51,23,64,20,76,-40,50,-80,0,-70,-19,46,-5,141,-25,135
6820DATA -2,112,0,114,36,138,-72,-67,-75,30,20,10,67,-70,4,102,-1,102,65,-17.5
6830DATA &FFFF,&FFFF
6840:
6850DEFPROCcountrys
6860 GCOL0,coastcol
6870 P%=databuf
6880 X%=P%!0 : Y%=P%!4
6890 WHILE Y%<>&FFFF
6900 MOVE X%,Y%
6910 P%+=8 : X%=P%!0 : Y%=P%!4
6920 WHILE X%<>&FFFF
6930 P%+=8
6940 DRAW X%,Y%
6950 X%=P%!0 : Y%=P%!4
6960 ENDWHILE
6970 P%+=8 : X%=P%!0 : Y%=P%!4
6980 ENDWHILE
6990ENDPROC
7000:
7010DEFPROCassemble
7020day=0 : month=1 : year=2 : hour=3 : min=4 : sec=5 : yr=6
7030leap=7 : acc=8 : total=9 : table=10 : high=11 : low=12
7040link=14 : pc=15
7050DIM code 512
7060FOR pass=0 TO 2 STEP 2
7070 P%=code
7080[ OPT pass
7090; convert day,month,year,hour,min,sec into 5 byte time.
7100; accurate 1901 - 2100 only. (100 and 400 leap years not allowed for.)
7110.baseyear EQUD 1900
7120.dyinyr EQUD 365
7130.mult EQUD 16875 ; 24*60*60*100 centisecs per day >>9
7140.dytomnth
7150 EQUD 0 ; not used
7160 EQUD 0 ; Number of days before this month (so Jan=0)
7170 EQUD 31
7180 EQUD 59
7190 EQUD 90
7200 EQUD 120
7210 EQUD 151
7220 EQUD 181
7230 EQUD 212
7240 EQUD 243
7250 EQUD 273
7260 EQUD 304
7270 EQUD 334
7280.convert
7290LDR acc,baseyear ; fetch base year (1900)
7300SUB yr,year,acc ; yr= year - 1900
7310SUB acc,yr,#1 ; leap=(yr-1) DIV 4
7320MOV leap,acc,LSR #2 ; (DIV 4)
7330LDR acc,dyinyr ; load 365
7340MLA total,acc,yr,leap ; total=years*365+leap days
7350ADR table,dytomnth ; address of days-in-month table
7360LDR acc,[table,month,LSL#2] ; get no. of days up to this month
7370ADD total,total,acc ; add to days accumalator
7380ADD total,total,day ; add no. of days in this month up to today
7390SUB total,total,#1 ; less 1 - today not over yet!
7400MOV acc,year,LSR #2 ; get this year, DIV by 4
7410SUBS acc,year,acc,LSL #2 ; multiply by 4 again and subtract (=MOD 4)
7420BNE totaldays ; branch if not leap year
7430CMP month,#2 ; if leap year see if gone past Feb 29
7440ADDGT total,total,#1 ; if so add 1 more day
7450.totaldays ; now at final total no. of days
7460; sums so far kept under 32 bits. Now multiply up into 5 bytes
7470MOV high,#0 ; zero high byte
7480LDR acc,mult ; load 16875
7490MUL low,total,acc ; days * 16875 to low byte
7500MOV leap,#9 ; using leap register for loop counter
7510.loop
7520MOV high,high, LSL #1 ; multiply by 2^9 (512) by shifting
7530MOVS low,low,LSL #1 ; low byte through carry.
7540ADC high,high,#0 ; add carry
7550SUBS leap,leap,#1 ; decrement counter
7560BNE loop
7570STR low,timeblk ; store result of days, now in centisecs
7580STR high,timeblk+4
7590; convert hours,mins,secs to centisecs
7600MOV acc,#60
7610MLA min,hour,acc,min ; hours into mins and add mins
7620MLA sec,min,acc,sec ; mins to secs and add secs
7630MOV acc,#100
7640MUL R0,sec,acc ; secs into centisecs
7650; now add on to 'days' total
7660:
7670; Subroutine to add/subtract R0 to 5-byte time
7680.add LDR R1,timeblk ; get low 4 bytes
7690 LDRB R2,timeblk+4 ; get highbyte
7700 MOVS R0,R0 ; see if minus
7710 BMI sub
7720 ADDS R1,R0,R1 ; add R0 (A%) to low
7730 ADCS R2,R2,#0 ; add carry and high byte
7740 BAL done
7750.sub RSB R0,R0,#0 ; make positive
7760 SUBS R1,R1,R0 ; sub R0 (A%) from low
7770 SBCS R2,R2,#0 ; sub carry
7780
7790.done STR R1,timeblk ; store back
7800 STR R2,timeblk+4 ; store highbyte
7810 MOV pc,link
7820] NEXT
7830ENDPROC
� >!WorldTime.!progOS3
# � World Clock with Terminator
� by P.E.Marshall
( �
2< � Version 1.3 Nov 1993 for Archimedes RiscOs 3 only
< �
F �initalize
P � �error
Z �
d ș&42 � T%
nB ș&400E1,&81810,blk%,T%+5 � reason,ptr% : � Wimp_PollIdle
x Ȏ reason �
�D � 0 : � active � ș "Hourglass_On":�main:ș "Hourglass_Off"
� � 1 : �redrawwindow
�) � 2 : ș "Wimp_OpenWindow",,ptr%
�' � 3 : �shut(ptr%!0) : active=�
� � 5 : active=�
� � 6 : �clicked
�' � 9 : �process_menu : active=�
� � 17,18 : �OSmessage
� �
�
� quit=�
� ș"Wimp_CloseDown"
��
�:
��initalize
" C%=�("<WorldTime$Dir>.MapXY")
� databuf �#C%
" �#C%
,/ �("LOAD <WorldTime$Dir>.MapXY "+�~databuf)
6 quit =�
@ termi =�
J clocks =�
T cities =�
^ sun =�
h today =�
r realtime=�
| active = 1
� step =�
� dst =0
� est =0
�$ � localbuf% 16 : � not used now
�' � timebuf% 16 : $timebuf%="12:00"
�' � datebuf% 16 : $datebuf%="01/01"
�% � stepmins% 16 : $stepmins%="15"
�$ � stepdays% 16 : $stepdays%="0"
�9 � blk% &200, menu1% &200, menu3% &100, menu4% &100
�9 � menu5% &100, menu6% &100, menu7% &100, menu9% &600
�
M%=40
�> � cityname$(M%),cityX(M%),cityY(M%),clockX(M%),clockY(M%)
�* � citytime(M%),smtype(M%),cityon%(M%)
D ș"Wimp_Initialise" ,200,&4B534154,"WorldTime" � version%,task%
6 window1=�create(1162,-700,"World Time",7,3,&4F,0)
�load
& �menu1
0 �menu3
: �menu4
D �menu5
N+ �write_sub(menu6%,"Minutes",stepmins%)
X( �write_sub(menu7%,"Days",stepdays%)
b sprite1size=640*200+100
l sprite2size=16*16+100
v0 � sprite1% sprite1size,sprite2% sprite2size
�2 !sprite1%=sprite1size : !sprite2%=sprite2size
�" sprite1%!8=16 : sprite2%!8=16
�+ ș&2E,9+256,sprite1% : � "OS_SpriteOp"
� ș&2E,9+256,sprite2%
�0 ș&2E,15+256,sprite1%,"SCREEN",0,640,200,15
�, ș&2E,15+256,sprite2%,"TEMP",0,16,16,15
� res%=4
� xoffset=4
� yoffset=308
� � timeblk 8,ordinal 32
� � timeformat 128
� � timestring 128
� �assemble
�+1
I%=-1
�
I%+=1
*2 � cityname$(I%),y,x,citytime(I%),smtype(I%)
4$ cityX(I%)=(180+x)*3.2+xoffset
> cityY(I%)=y*4+yoffset
H � cityname$(I%)="end"
R no_citys=I%-1
\ �menu9
f oldtime=0
p � col_tab% 256,scale% 16
z
�mode
�
�iconbar
� �screen
��
�:
�R� City,N Lat,W Long,GMT difference,daylight saving 0=none 1=US dst 2=euro 3=UK
�H� If last char < text on left, > text on right otherwise text below.
�
� �"Adelaide<",-35,138,9.5,0
� �"Anchorage�",61,-149,-9,1
��"Antigua�",17,-61,-4,0
��"Beijing<",40,116,8,0
��"Brussels>",51,4,1,2
� �"Canberra>",-35,149,10,0
�"Cape Town�",-34,18,2,0
�"Caracas>",10,-67,-4,0
�"Chicago<",42,-87.5,-6,1
$�"Delhi�",28,77,5.5,0
.�"Denver>",39,-105,-7,1
8�"Dubai>",25,55,4,0
B �"Hong Kong>",22,114,8,0
L �"Honolulu�",21,-158,-10,0
V�"Jerusalem�",32,35,2,0
`�"Joh'burg>",-26,28,2,2
j�"Kuwait�",29,47,3,0
t�"Lagos�",6,3,1,0
~�"Lisbon�",38,-9,0,2
��"London<",51,0,0,3
� �"Los Angeles<",34,-118,-8,1
��"Mexico>",19,-99,-6,0
��"Moscow>",55,37,3,2
� �"New York>",42,-76,-5,1
��"Paris>",49,3,1,2
��"Perth<",-32,116,8,0
��"Rio>",-23,-43,-3,0
��"Seoul�",37,127,9,0
��"Sydney>",-34,151,10,0
��"Tehran>",35,49,3.5,0
��"Tokyo>",35,139,9,0
�"Toronto>",44,-79,-5,1
�"Vancouver<",49,-123,-5,1
�"Washington<",39,-77,-5,1
!�"Wellington<",-41.5,175,12,0
(�"end",0,0,0,0
2:
<( ݤcreate(ww,wh,T$,wf,wb,flags,addr)
F blk%!24=-1:blk%!28=flags
P blk%?32=7 :blk%?33=2
Z blk%?34=wf:blk%?35=wb
d blk%?36=3 :blk%?37=2
n blk%?38=12:blk%?39=0
x blk%!40=0 :blk%!44=wh
� blk%!48=ww:blk%!52=0
�( � addr=0 blk%!56=&3D � blk%!56=&13D
� blk%!60=0
� blk%!64=0:blk%!68=0
� � addr=0 �
� $(blk%+72)=T$
� �
� $addr=T$
� blk%!72=addr
� blk%!76=-1
� blk%!80=32
� �
� blk%!84=0
* ș "Wimp_CreateWindow",,blk% � handle
=handle
:
" ��menu1
,
�infobox
6 flags=&7000021
@ P%=menu1%
J" �menu_header("World Time",14)
T- �menu_item(&00,info_window,flags,"Info")
^0 �menu_item(&00,menu3%,flags,"Display Date")
h0 �menu_item(&00,menu4%,flags,"Display Time")
r- �menu_item(&02-step,menu5%,flags,"Step")
|0 �menu_item(&00-termi,-1,flags,"Terminator")
�' �menu_item(&00-sun,-1,flags,"Sun")
�- �menu_item(&00-clocks,-1,flags,"Clocks")
�1 �menu_item(&02-cities,menu9%,flags,"Cities")
�* �menu_item(&00,-1,flags,"Save setup")
�$ �menu_item(&80,-1,flags,"Quit")
��
�:
� ��menu3
� flags=&7000021
� P%=menu3%
�" �menu_header("Date dd/mm",12)
�+ �menu_item(&00-today,-1,flags,"Today")
�& �write_item(&84-� today,datebuf%)
�
:
��menu4
& flags=&7000021
0 P%=menu4%
:" �menu_header("Time hh:mm",12)
D, �menu_item(&00-realtime,-1,flags,"Now")
N) �write_item(&84-� realtime,timebuf%)
X�
b:
l ��menu5
v flags=&7000021
� P%=menu5%
� �menu_header("Interval",12)
�+ �menu_item(&00,menu6%,flags,"Minutes")
�( �menu_item(&80,menu7%,flags,"Days")
��
�:
� ��menu9
� flags=&7000021
� P%=menu9%
� �menu_header("Cities",12)
� � I%=0 � no_citys-1
�: �menu_item(&00-cityon%(I%),-1,flags,�cityname$(I%)))
� �
F �menu_item(&80-cityon%(no_citys),-1,flags,�cityname$(no_citys)))
�
:
��write_sub(P%,h$,adr%)
* �menu_header(h$,8)
4 �write_item(&84,adr%)
>�
H:
R��write_item(A%,adr%)
\ P%!0=A%
f P%!4=-1
p P%!8=&7000119
z P%!12=adr%
�
P%!16=-1
�
P%!20=16
��
�:
���menu_header(T$,w)
� $P%=T$
� P%!12=&70207
� P%!16=w*16
�
P%!20=34
� P%!24=8
� P%+=28
��
�:
��menu_item(A%,B%,C%,T$)
P%!0=A%
P%!4=B%
$ P%!8=C%
. $(P%+12)=T$
8 P%+=24
B�
L:
V
��iconbar
` blk%!0=-1
j
blk%!4=0
t
blk%!8=0
~ blk%!12=68
� blk%!16=68
� blk%!20=&3002
� $(blk%+24)="!WorldTime"
�) ș "Wimp_CreateIcon",,blk% � iconbar
��
�:
�
��infobox
�. � infotext 128,infotitle 32 : P%=infotext
�O info_window=�create(680,-244,"About This Program",7,1,%10000011,infotitle)
�
y=-60
� �+1
� � I%=0 � 3
� t$,$P%
8 �create_icon(info_window,0,16,180,y,t$,&17000211)
9 �create_icon(info_window,P%,190,660,y,"",&700013D)
y-=60 : P%+=32
( �
2% �openup(info_window,0,0,680,244)
< �shut(info_window)
F � "Name :","World Time"
P0 � "Purpose :","Clock & Sunlight terminator"
Z/ � "Author :", "� P.E.Marshall, Lichfield "
d0 � "Version :","1.41 (1/1/94) RiscOs 3 ONLY"
n�
x:
�6��create_icon(handle,addr,minx,maxx,miny,t$,flags)
� blk%!0=handle:blk%!4=minx
� blk%!8=miny :blk%!12=maxx
� blk%!16=miny+56
� blk%!20=flags
� � addr=0 �
� $(blk%+24)=t$
� �
� blk%!24=addr
� blk%!28=-1
� blk%!32=24
� �
� ș"Wimp_CreateIcon",,blk%
�
:
��openup(handle,x,y,w,h)
" blk%!0=handle
, blk%!4=x :blk%!8=y-h
6 blk%!12=x+w :blk%!16=y
@ blk%!20=0 :blk%!24=0
J blk%!28=-1
T ș "Wimp_OpenWindow",,blk%
^�
h:
r
��clicked
| handle=ptr%!12
� button=ptr%!8
� icon=ptr%!16
�N � (button � 4) � icon=iconbar � �openup(window1,20,900,1160,700):active=�
�p � button � 2 � active=� : ș "Wimp_CreateMenu",,menu1%,ptr%!0-64,-ptr%!4*(icon<>iconbar)-(icon=iconbar)*560
��
�:
���process_menu
� Ȏ ptr%!0 �
� � 1 :
� Ȏ ptr%!4 �
�! � 0 : today=� : �menu3
� � 1 : today=�: �menu3
�
�
� 2 :
Ȏ ptr%!4 �
$ � 0 : realtime=� : �menu4
&# � 1 : realtime=�: �menu4
0
�
:6 � 3 : � ptr%!4=-1 � step=step � -1 : � step = �
D �menu1
N0 � 4 : termi=termi � -1 : �menu1 : �screen
X" � 5 : sun=sun � -1 : �menu1
b2 � 6 : clocks=clocks � -1 : �menu1 : �screen
l � 7 : Q%=ptr%!4
v � Q%=-1 �
� cities=cities � -1
� �menu1
�
�
�' cityon%(Q%)=cityon%(Q%) � -1
� �menu9
�
�
� �screen
� � 8 : �save
� � 9: quit=�
� �
�" ș"Wimp_GetPointerInfo",,blk%
� button=blk%!8
�A � button � 1 � ș "Wimp_CreateMenu",,menu1%,ptr%!0-64,ptr%!4
oldtime=0
. � �(�($stepdays%))>400 � $stepdays%="400"
�
:
*��redrawwindow
4
� window
> handle=ptr%!0
H( ș "Wimp_RedrawWindow",,ptr% � flag
R ȕ flag<>0
\( � handle=window1 � �write_window1
f* ș "Wimp_GetRectangle",,ptr% � flag
p �
z�
�:
� ��update
� blk%!0=window1:blk%!4=0
� blk%!8=-720 :blk%!12=1200
� blk%!16=0
�( ș "Wimp_UpdateWindow",,blk% � flag
� ȕ flag<>0
� �write_window1
�* ș "Wimp_GetRectangle",,ptr% � flag
� �
��
�:
���write_window1
Y ș &2E,52+256,sprite1%,"SCREEN",ptr%!4-ptr%!20,ptr%!16-700-ptr%!24,8,scale%,col_tab%
�
:
$��shut(handle)
. blk%!0=handle
8 ș "Wimp_CloseWindow",,blk%
B�
L:
V��OSmessage
` reason=blk%!16
j Ȏ reason �
t � 0 : quit=�
~" � &400C1 : �mode : active=1
� �
��
�:
� ��error
� !blk%=0
�# $(blk%+4)=�$+" at line "+Þ+�0
�- ș"Wimp_ReportError",blk%,1,"World Time"
� ș"Wimp_CloseDown"
��
��
�:
�
��foregnd
ș&2E,V0%,V1%,V2%,V3%
�
:
��backgnd
(5 ș&2E,60+256,sprite1%,"SCREEN" � V0%,V1%,V2%,V3%
2�
<:
F
��save
P# ch%=�("<WorldTime$Dir>.SETUP")
Z9 �#ch%,termi,clocks,sun,today,realtime,dst,est,cities
d? �#ch%,$localbuf%,$timebuf%,$datebuf%,$stepmins%,$stepdays%
n �#ch%,no_citys
x. � I%=0 � no_citys : �#ch%,cityon%(I%) : �
�
�#ch%
��
�:
�
��load
�# ch%=�("<WorldTime$Dir>.SETUP")
� � ch%=0 � �
�9 �#ch%,termi,clocks,sun,today,realtime,dst,est,cities
�? �#ch%,$localbuf%,$timebuf%,$datebuf%,$stepmins%,$stepdays%
� �#ch%,no_citys
�. � I%=0 � no_citys : �#ch%,cityon%(I%) : �
�
�#ch%
��
�:
��main
$ � active=1 � active=� : �screen
$ � Territory_ReadCurrentTimeZone
" ș &43048 � r0,r1
, localoffset=r1/360000
6 � � step �
@@ � get current UTC time in 5-byte centisecs "OS_Word 14,3"
J& timeblk?0 = 3 : ș 7,14,timeblk
T �
^4 �addtime(�($stepmins%)/60 + �($stepdays%)*24)
h �
r) � Territory_ConvertTimeToUTCOrdinals
|! ș &43049,-1,timeblk,ordinal
� year=ordinal!24
� � today � step �
� month=ordinal!20
� day = ordinal!16
� �
� month=�(�$datebuf%,2))
� day =�(�$datebuf%,2))
� �
� � realtime � step �
� hour=ordinal!12
� min= ordinal!8
� �
� hour=�(�$timebuf%,2))
min= �(�$timebuf%,2))
�
' � convert ordinals into UTC 5-byte
&G A%=day : B%=month : C%=year : D%=hour : E% =min : F%=0 : � convert
0$ � �(!timeblk-oldtime)< 6000 � �
: oldtime=!timeblk
D
N timedif=12-(hour+min/60)
X � timedif<-12 � timedif+=24
b �equations
l
�backgnd
v �unplotsun
� � termi �greyline
� � clocks �clocks:�showdate
� � sun �plotsun
�
�foregnd
� �update
��
�:
�ݤtimetext(f$)
�4 � convert 5-byte time to string in LOCAL format
� $timeformat=f$+�0
� � "OS_ConvertDateAndTime"
�4 ș &C1,timeblk,timestring,64,timeformat � r0,r1
� ?r1=13
=$timestring
:
��addtime(t)
! A%=t*180000 : � add : � add
*+ � 2 adds keeps 365 days under 32 bits
4�
>:
H ��clocks
R�5
\� I%=0 � no_citys
f � cityon%(I%) �
p% X%=clockX(I%) : Y%=clockY(I%)
z �0,blackcol
� ȓȐX%+8,Y%-64,80,32
� �0,textcol
�! H%=timeblk!4:L%=timeblk!0
�* �addtime(citytime(I%)-localoffset)
�+ � �summer(smtype(I%)) � �addtime(1)
� � X%+10,Y%-36
� � �timetext("%24:%MI")
�! timeblk!4=H%:timeblk!0=L%
� �
��
��
�:
���showdate
X%=20 : Y%=660
�0,bckgndcol Ȝ0
ȓȐ X%,Y%,1160,36
$ �0,textcol
. � 640,Y%+30
89 � �timetext("%24:%MI %W3 %zDY%ST %M3 %CE%YR Local");
B L%=timeblk!0:H%=timeblk!4
L\ � convert to GMT. 5-byte time is already GMT but OS3 ConvertDateAndTime makes it local!
V �addtime(-localoffset)
` � 60,Y%+30
j6 � �timetext("%24:%MI %W3 %zDY%ST %M3 %CE%YR UTC")
t timeblk!0=L%:timeblk!4=H%
~�
�:
�ݤsummer(C%)
� S%=�
�0 weekday=ordinal!28 : � day of week 1=sunday
� Ȏ C% �
�; � 1 : � US DST= first Sunday April to last Sunday Oct
�4 � (month=4 � day-weekday>=0) � month>4 � S%=�
�9 � (month=10 � 31-day+weekday<=7) � month>10 � S%=�
�D � 2 : � Euro summer time last Sunday March to last Sunday Sept
�7 � (month=3 � 31-day+weekday<=7) � month>3 � S%=�
�7 � (month=9 � 31-day+weekday<=7) � month>9 � S%=�
�Y � 3 : � British summer time last Sunday March to Sunday after last Saturday October
7 � (month=3 � 31-day+weekday<=7) � month>3 � S%=�
9 � (month=10 � 28-day+weekday<=6) � month>10 � S%=�
�
=S%
(:
2 ��screen
< SX%=0 : SY%=-100
F
�backgnd
P �0,clearcol Ȝ 0
Z ȓȐ0,0,1200,720
d �countrys
n
�fill
x
�grid
� �citys
�
�foregnd
� oldtime=0
��
�:
�
��grid
�: � 1 deg lat=4, 1 deg long=3.2, 1hr =48 graphics units
� rh=xoffset+360*3.2
� �0,bckgndcol Ȝ0
� ȓȐ 0,656,1200,48
� �0,linescol Ȝ3
� �+1
� � I%=0 � 4
� lat
& � 0,yoffset+lat*4 : �17,1200,0
�
" Y%=yoffset-85*4 : L%=85*8
, � X%=0� 12
6$ � xoffset+X%*96,Y% : �17,0,L%
@ �
J�
T:
^ � -66.5,-23.5,0,23.5,66.5
h:
r
��mode
|E ș "Wimp_ReadPixTrans",&100,sprite1%,"SCREEN",,,,scale%,col_tab%
�5 ș "ColourTrans_SelectTable",15,0,-1,-1,col_tab%
�, ș "OS_ReadModeVariable",�,9 � r0,r1,r2
� � r2<>3 �
�S � modify colour trans table for best 16 colour effect (due to OR/AND plotting)
� � +1
� � I%=0 � 5
� � C%,N%
� col_tab%?C%=N%
� �
� �
�+ � 108,10,32,13,128,8,204,15,76,8,176,3
� col_tab%?76=5
� clearcol=32
landcol=4
coastcol=9
linescol=42
& bckgndcol=63
0 textcol=3
: citycol=63
D blackcol=0
N suncol=15
X�
b
l:
v ��citys
��5
�� I%=0 � no_citys
� � cityon%(I%) �
�" X%=cityX(I%) : Y%=cityY(I%)
� �0,citycol Ȝ 128
� � cities ȓ X%,Y%,4,4
� Ȏ �cityname$(I%)) �
� � ">"
� �0,8,0
� � "<"
�$ �0,-�(cityname$(I%))*16+8,0
� X%-=100
�
% �0,-�(cityname$(I%))*8+8,-12
Y%-=12 : X%-=48
�
! � cities � �cityname$(I%))
*" clockX(I%)=X%:clockY(I%)=Y%
4 �
>�
H�
R:
\��greyline
f � 1,25 Ȝ 0
p ȓȐ0,0,1200,652
z � 2,38 Ȝ 0
� � latdeg=-85 � 85 � res%/2
� lat=�(latdeg)
� �rise_set
� �plot
� �
��
�:
���equations
�) � Territory_ConvertTimeToUTCOrdinals
�! ș &43049,-1,timeblk,ordinal
�2 A=2*�*(ordinal!32-1)/365 : � uses day of year
� � declination
�W decl=0.456-22.915*�(A)-0.43*�(2*A)-0.156*�(3*A)+3.83*�(A)+0.06*�(2*A)-0.082*�(3*A)
tde=�(�(decl))
� equation of time
p equ=0.008+0.51*�(A)-3.197*�(2*A)-0.106*�(3*A)-0.15*�(4*A)-7.317*�(A)-9.471*�(2*A)-0.391*�(3*A)-0.242*�(4*A)
$�
.:
8��rise_set
B flag=0
L a=tde*�(lat)
V � a>1 � flag=1 : �
` � a<-1 � flag=2 : �
j b=�(-�(a/�(-a*a+1))+�/2)
t rise=b/15
~ set=-rise
� set=set+timedif-equ/60
� rise=rise+timedif-equ/60
� � rise>=24 � rise-=24
� � rise<=0 � rise+=24
� � set>=24 � set-=24
� � set<=0 � set+=24
��
�:
�
��plot
�" Y%=yoffset+latdeg*4 :� /15*60
� Ȏ flag �
� � 0
R%=48*rise
S%=48*set
� set>rise �
# ȓȐ 0,Y%,R%+xoffset,res%
(' ȓȐ xoffset+S%,Y%,rh-S%,res%
2 �
<' ȓȐ xoffset+S%,Y%,R%-S%,res%
F �
P% � 2 : ȓȐ 0,Y%,rh+xoffset,res%
Z �
d�
n:
x
��plotsun
� SY%=decl*4+yoffset
�" SX%=xoffset+((12+timedif)*48)
�? ș&2E,16+256,sprite2%,"TEMP",0,SX%-16,SY%-16,SX%+16,SY%+16
� �0,7
� � SX%-16,SY% : �BY32,0
� � SX%,SY%-16 : �BY0,32
� ȏ SX%,SY%,8
� �0,suncol Ȝ 3
� ȏȐ SX%,SY%,6
��
�:
���unplotsun
�1 ș&2E,34+256,sprite2%,"TEMP",SX%-16,SY%-16,0
�
:
��fill
" � 128+landcol
, � +1
6 �
@ � lat,long
J1 � 143,(180+long)*3.2+xoffset,lat*4+yoffset
T � lat=&FFFF
^2 � 360*3.2,60*4+yoffset : � move tip of Russia
h# � 369*3.2+xoffset,70*4+yoffset
r � 190,0,60*4+yoffset
|�
�:
�"� Centre for fill Lat, Long
�I� 53.5,-8,54,-2,51,23,64,20,76,-40,50,-80,0,-70,-19,46,-5,141,-25,135
�K� -2,112,0,114,36,138,-72,-67,-75,30,20,10,67,-70,4,102,-1,102,65,-17.5
�� &FFFF,&FFFF
�:
���countrys
� �0,coastcol
� P%=databuf
� X%=P%!0 : Y%=P%!4
� ȕ Y%<>&FFFF
� � X%,Y%
� P%+=8 : X%=P%!0 : Y%=P%!4
ȕ X%<>&FFFF
P%+=8
� X%,Y%
& X%=P%!0 : Y%=P%!4
0 �
: P%+=8 : X%=P%!0 : Y%=P%!4
D �
N�
X:
b��assemble
lBday=0 : month=1 : year=2 : hour=3 : min=4 : sec=5 : yr=6
v<leap=7 : acc=8 : total=9 : table=10 : high=11 : low=12
�link=14 : pc=15
�� code 512
�� pass=0 � 2 � 2
�
P%=code
�[ OPT pass
�;; convert day,month,year,hour,min,sec into 5 byte time.
�J; accurate 1901 - 2100 only. (100 and 400 leap years not allowed for.)
�.baseyear EQUD 1900
�.dyinyr EQUD 365
�@.mult EQUD 16875 ; 24*60*60*100 centisecs per day >>9
�
.dytomnth
� EQUD 0 ; not used
�? EQUD 0 ; Number of days before this month (so Jan=0)
EQUD 31
EQUD 59
EQUD 90
EQUD 120
* EQUD 151
4 EQUD 181
> EQUD 212
H EQUD 243
R EQUD 273
\ EQUD 304
f EQUD 334
p .convert
z5LDR acc,baseyear ; fetch base year (1900)
�.SUB yr,year,acc ; yr= year - 1900
�.SUB acc,yr,#1 ; leap=(yr-1) � 4
�$MOV leap,acc,LSR #2 ; (� 4)
�'LDR acc,dyinyr ; load 365
�8MLA total,acc,yr,leap ; total=years*365+leap days
�BADR table,dytomnth ; address of days-in-month table
�DLDR acc,[table,month,LSL#2] ; get no. of days up to this month
�;ADD total,total,acc ; add to days accumalator
�HADD total,total,day ; add no. of days in this month up to today
�;SUB total,total,#1 ; less 1 - today not over yet!
�4MOV acc,year,LSR #2 ; get this year, � by 4
�FSUBS acc,year,acc,LSL #2 ; multiply by 4 again and subtract (=� 4)
�6BNE totaldays ; branch if not leap year
CCMP month,#2 ; if leap year see if gone past Feb 29
3ADDGT total,total,#1 ; if so add 1 more day
=.totaldays ; now at final total no. of days
$B; sums so far kept under 32 bits. Now multiply up into 5 bytes
.-MOV high,#0 ; zero high byte
8)LDR acc,mult ; load 16875
B7MUL low,total,acc ; days * 16875 to low byte
LCMOV leap,#9 ; using leap register for loop counter
V .loop
`@MOV high,high, LSL #1 ; multiply by 2^9 (512) by shifting
j6MOVS low,low,LSL #1 ; low byte through carry.
t(ADC high,high,#0 ; add carry
~0SUBS leap,leap,#1 ; decrement counter
� BNE loop
�ESTR low,timeblk ; store result of days, now in centisecs
�STR high,timeblk+4
�*; convert hours,mins,secs to centisecs
�MOV acc,#60
�;MLA min,hour,acc,min ; hours into mins and add mins
�8MLA sec,min,acc,sec ; mins to secs and add secs
�MOV acc,#100
�2MUL R0,sec,acc ; secs into centisecs
� ; now add on to 'days' total
�:
�2; Subroutine to add/subtract R0 to 5-byte time
/.add LDR R1,timeblk ; get low 4 bytes
, LDRB R2,timeblk+4 ; get highbyte
, MOVS R0,R0 ; see if minus
BMI sub
(2 ADDS R1,R0,R1 ; add R0 (A%) to low
27 ADCS R2,R2,#0 ; add carry and high byte
< BAL done
F-.sub RSB R0,R0,#0 ; make positive
P4 SUBS R1,R1,R0 ; sub R0 (A%) from low
Z) SBCS R2,R2,#0 ; sub carry
d
n*.done STR R1,timeblk ; store back
x. STR R2,timeblk+4 ; store highbyte
� MOV pc,link
�] �
��
� 00000000 0d 00 0a 1b 20 f4 20 3e 21 57 6f 72 6c 64 54 69 |.... . >!WorldTi|
00000010 6d 65 2e 21 70 72 6f 67 4f 53 33 0d 00 14 23 20 |me.!progOS3...# |
00000020 f4 20 20 57 6f 72 6c 64 20 43 6c 6f 63 6b 20 77 |. World Clock w|
00000030 69 74 68 20 54 65 72 6d 69 6e 61 74 6f 72 0d 00 |ith Terminator..|
00000040 1e 17 20 f4 20 20 62 79 20 50 2e 45 2e 4d 61 72 |.. . by P.E.Mar|
00000050 73 68 61 6c 6c 0d 00 28 06 20 f4 0d 00 32 3c 20 |shall..(. ...2< |
00000060 f4 20 20 56 65 72 73 69 6f 6e 20 31 2e 33 20 20 |. Version 1.3 |
00000070 4e 6f 76 20 31 39 39 33 20 20 20 66 6f 72 20 41 |Nov 1993 for A|
00000080 72 63 68 69 6d 65 64 65 73 20 52 69 73 63 4f 73 |rchimedes RiscOs|
00000090 20 33 20 6f 6e 6c 79 0d 00 3c 06 20 f4 0d 00 46 | 3 only..<. ...F|
000000a0 0f 20 f2 69 6e 69 74 61 6c 69 7a 65 0d 00 50 0e |. .initalize..P.|
000000b0 20 ee 85 20 f2 65 72 72 6f 72 0d 00 5a 06 20 f5 | .. .error..Z. .|
000000c0 0d 00 64 13 20 20 20 20 20 c8 99 26 34 32 20 b8 |..d. ..&42 .|
000000d0 20 54 25 0d 00 6e 42 20 20 20 20 20 c8 99 26 34 | T%..nB ..&4|
000000e0 30 30 45 31 2c 26 38 31 38 31 30 2c 62 6c 6b 25 |00E1,&81810,blk%|
000000f0 2c 54 25 2b 35 20 b8 20 72 65 61 73 6f 6e 2c 70 |,T%+5 . reason,p|
00000100 74 72 25 20 3a 20 f4 20 57 69 6d 70 5f 50 6f 6c |tr% : . Wimp_Pol|
00000110 6c 49 64 6c 65 0d 00 78 12 20 20 20 c8 8e 20 72 |lIdle..x. .. r|
00000120 65 61 73 6f 6e 20 ca 0d 00 82 44 20 20 20 20 20 |eason ....D |
00000130 c9 20 30 20 3a 20 e7 20 61 63 74 69 76 65 20 8c |. 0 : . active .|
00000140 20 c8 99 20 22 48 6f 75 72 67 6c 61 73 73 5f 4f | .. "Hourglass_O|
00000150 6e 22 3a f2 6d 61 69 6e 3a c8 99 20 22 48 6f 75 |n":.main:.. "Hou|
00000160 72 67 6c 61 73 73 5f 4f 66 66 22 0d 00 8c 1c 20 |rglass_Off".... |
00000170 20 20 20 20 c9 20 31 20 3a 20 f2 72 65 64 72 61 | . 1 : .redra|
00000180 77 77 69 6e 64 6f 77 0d 00 96 29 20 20 20 20 20 |wwindow...) |
00000190 c9 20 32 20 3a 20 c8 99 20 22 57 69 6d 70 5f 4f |. 2 : .. "Wimp_O|
000001a0 70 65 6e 57 69 6e 64 6f 77 22 2c 2c 70 74 72 25 |penWindow",,ptr%|
000001b0 0d 00 a0 27 20 20 20 20 20 c9 20 33 20 3a 20 f2 |...' . 3 : .|
000001c0 73 68 75 74 28 70 74 72 25 21 30 29 20 3a 20 61 |shut(ptr%!0) : a|
000001d0 63 74 69 76 65 3d a3 0d 00 aa 17 20 20 20 20 20 |ctive=..... |
000001e0 c9 20 35 20 3a 20 61 63 74 69 76 65 3d b9 0d 00 |. 5 : active=...|
000001f0 b4 17 20 20 20 20 20 c9 20 36 20 3a 20 f2 63 6c |.. . 6 : .cl|
00000200 69 63 6b 65 64 0d 00 be 27 20 20 20 20 20 c9 20 |icked...' . |
00000210 39 20 3a 20 f2 70 72 6f 63 65 73 73 5f 6d 65 6e |9 : .process_men|
00000220 75 20 3a 20 61 63 74 69 76 65 3d b9 0d 00 c8 1d |u : active=.....|
00000230 20 20 20 20 20 c9 20 31 37 2c 31 38 20 3a 20 f2 | . 17,18 : .|
00000240 4f 53 6d 65 73 73 61 67 65 0d 00 d2 08 20 20 20 |OSmessage.... |
00000250 cb 0d 00 dc 0d 20 fd 20 71 75 69 74 3d b9 0d 00 |..... . quit=...|
00000260 e6 17 20 c8 99 22 57 69 6d 70 5f 43 6c 6f 73 65 |.. .."Wimp_Close|
00000270 44 6f 77 6e 22 0d 00 f0 05 e0 0d 00 fa 05 3a 0d |Down".........:.|
00000280 01 04 0f dd f2 69 6e 69 74 61 6c 69 7a 65 0d 01 |.....initalize..|
00000290 0e 22 20 43 25 3d 8e 28 22 3c 57 6f 72 6c 64 54 |." C%=.("<WorldT|
000002a0 69 6d 65 24 44 69 72 3e 2e 4d 61 70 58 59 22 29 |ime$Dir>.MapXY")|
000002b0 0d 01 18 13 20 de 20 64 61 74 61 62 75 66 20 a2 |.... . databuf .|
000002c0 23 43 25 0d 01 22 09 20 d9 23 43 25 0d 01 2c 2f |#C%..". .#C%..,/|
000002d0 20 ff 28 22 4c 4f 41 44 20 3c 57 6f 72 6c 64 54 | .("LOAD <WorldT|
000002e0 69 6d 65 24 44 69 72 3e 2e 4d 61 70 58 59 20 22 |ime$Dir>.MapXY "|
000002f0 2b c3 7e 64 61 74 61 62 75 66 29 0d 01 36 0f 20 |+.~databuf)..6. |
00000300 71 75 69 74 20 20 20 20 3d a3 0d 01 40 0f 20 74 |quit =...@. t|
00000310 65 72 6d 69 20 20 20 3d b9 0d 01 4a 0f 20 63 6c |ermi =...J. cl|
00000320 6f 63 6b 73 20 20 3d b9 0d 01 54 0f 20 63 69 74 |ocks =...T. cit|
00000330 69 65 73 20 20 3d b9 0d 01 5e 0f 20 73 75 6e 20 |ies =...^. sun |
00000340 20 20 20 20 3d b9 0d 01 68 0f 20 74 6f 64 61 79 | =...h. today|
00000350 20 20 20 3d b9 0d 01 72 0f 20 72 65 61 6c 74 69 | =...r. realti|
00000360 6d 65 3d b9 0d 01 7c 10 20 61 63 74 69 76 65 20 |me=...|. active |
00000370 20 3d 20 31 0d 01 86 0f 20 73 74 65 70 20 20 20 | = 1.... step |
00000380 20 3d a3 0d 01 90 0f 20 64 73 74 20 20 20 20 20 | =..... dst |
00000390 3d 30 0d 01 9a 0f 20 65 73 74 20 20 20 20 20 3d |=0.... est =|
000003a0 30 0d 01 a4 24 20 de 20 6c 6f 63 61 6c 62 75 66 |0...$ . localbuf|
000003b0 25 20 31 36 20 3a 20 f4 20 6e 6f 74 20 75 73 65 |% 16 : . not use|
000003c0 64 20 6e 6f 77 0d 01 ae 27 20 de 20 74 69 6d 65 |d now...' . time|
000003d0 62 75 66 25 20 20 31 36 20 3a 20 24 74 69 6d 65 |buf% 16 : $time|
000003e0 62 75 66 25 3d 22 31 32 3a 30 30 22 0d 01 b8 27 |buf%="12:00"...'|
000003f0 20 de 20 64 61 74 65 62 75 66 25 20 20 31 36 20 | . datebuf% 16 |
00000400 3a 20 24 64 61 74 65 62 75 66 25 3d 22 30 31 2f |: $datebuf%="01/|
00000410 30 31 22 0d 01 c2 25 20 de 20 73 74 65 70 6d 69 |01"...% . stepmi|
00000420 6e 73 25 20 31 36 20 3a 20 24 73 74 65 70 6d 69 |ns% 16 : $stepmi|
00000430 6e 73 25 3d 22 31 35 22 0d 01 cc 24 20 de 20 73 |ns%="15"...$ . s|
00000440 74 65 70 64 61 79 73 25 20 31 36 20 3a 20 24 73 |tepdays% 16 : $s|
00000450 74 65 70 64 61 79 73 25 3d 22 30 22 0d 01 d6 39 |tepdays%="0"...9|
00000460 20 de 20 62 6c 6b 25 20 20 20 26 32 30 30 2c 20 | . blk% &200, |
00000470 6d 65 6e 75 31 25 20 26 32 30 30 2c 20 6d 65 6e |menu1% &200, men|
00000480 75 33 25 20 26 31 30 30 2c 20 6d 65 6e 75 34 25 |u3% &100, menu4%|
00000490 20 26 31 30 30 0d 01 e0 39 20 de 20 6d 65 6e 75 | &100...9 . menu|
000004a0 35 25 20 26 31 30 30 2c 20 6d 65 6e 75 36 25 20 |5% &100, menu6% |
000004b0 26 31 30 30 2c 20 6d 65 6e 75 37 25 20 26 31 30 |&100, menu7% &10|
000004c0 30 2c 20 6d 65 6e 75 39 25 20 26 36 30 30 0d 01 |0, menu9% &600..|
000004d0 ea 0a 20 4d 25 3d 34 30 0d 01 f4 3e 20 de 20 63 |.. M%=40...> . c|
000004e0 69 74 79 6e 61 6d 65 24 28 4d 25 29 2c 63 69 74 |ityname$(M%),cit|
000004f0 79 58 28 4d 25 29 2c 63 69 74 79 59 28 4d 25 29 |yX(M%),cityY(M%)|
00000500 2c 63 6c 6f 63 6b 58 28 4d 25 29 2c 63 6c 6f 63 |,clockX(M%),cloc|
00000510 6b 59 28 4d 25 29 0d 01 fe 2a 20 de 20 63 69 74 |kY(M%)...* . cit|
00000520 79 74 69 6d 65 28 4d 25 29 2c 73 6d 74 79 70 65 |ytime(M%),smtype|
00000530 28 4d 25 29 2c 63 69 74 79 6f 6e 25 28 4d 25 29 |(M%),cityon%(M%)|
00000540 0d 02 08 44 20 c8 99 22 57 69 6d 70 5f 49 6e 69 |...D .."Wimp_Ini|
00000550 74 69 61 6c 69 73 65 22 20 2c 32 30 30 2c 26 34 |tialise" ,200,&4|
00000560 42 35 33 34 31 35 34 2c 22 57 6f 72 6c 64 54 69 |B534154,"WorldTi|
00000570 6d 65 22 20 b8 20 76 65 72 73 69 6f 6e 25 2c 74 |me" . version%,t|
00000580 61 73 6b 25 0d 02 12 36 20 77 69 6e 64 6f 77 31 |ask%...6 window1|
00000590 3d a4 63 72 65 61 74 65 28 31 31 36 32 2c 2d 37 |=.create(1162,-7|
000005a0 30 30 2c 22 57 6f 72 6c 64 20 54 69 6d 65 22 2c |00,"World Time",|
000005b0 37 2c 33 2c 26 34 46 2c 30 29 0d 02 1c 0a 20 f2 |7,3,&4F,0).... .|
000005c0 6c 6f 61 64 0d 02 26 0b 20 f2 6d 65 6e 75 31 0d |load..&. .menu1.|
000005d0 02 30 0b 20 f2 6d 65 6e 75 33 0d 02 3a 0b 20 f2 |.0. .menu3..:. .|
000005e0 6d 65 6e 75 34 0d 02 44 0b 20 f2 6d 65 6e 75 35 |menu4..D. .menu5|
000005f0 0d 02 4e 2b 20 f2 77 72 69 74 65 5f 73 75 62 28 |..N+ .write_sub(|
00000600 6d 65 6e 75 36 25 2c 22 4d 69 6e 75 74 65 73 22 |menu6%,"Minutes"|
00000610 2c 73 74 65 70 6d 69 6e 73 25 29 0d 02 58 28 20 |,stepmins%)..X( |
00000620 f2 77 72 69 74 65 5f 73 75 62 28 6d 65 6e 75 37 |.write_sub(menu7|
00000630 25 2c 22 44 61 79 73 22 2c 73 74 65 70 64 61 79 |%,"Days",stepday|
00000640 73 25 29 0d 02 62 1c 20 73 70 72 69 74 65 31 73 |s%)..b. sprite1s|
00000650 69 7a 65 3d 36 34 30 2a 32 30 30 2b 31 30 30 0d |ize=640*200+100.|
00000660 02 6c 1a 20 73 70 72 69 74 65 32 73 69 7a 65 3d |.l. sprite2size=|
00000670 31 36 2a 31 36 2b 31 30 30 0d 02 76 30 20 de 20 |16*16+100..v0 . |
00000680 73 70 72 69 74 65 31 25 20 73 70 72 69 74 65 31 |sprite1% sprite1|
00000690 73 69 7a 65 2c 73 70 72 69 74 65 32 25 20 73 70 |size,sprite2% sp|
000006a0 72 69 74 65 32 73 69 7a 65 0d 02 80 32 20 21 73 |rite2size...2 !s|
000006b0 70 72 69 74 65 31 25 3d 73 70 72 69 74 65 31 73 |prite1%=sprite1s|
000006c0 69 7a 65 20 3a 20 21 73 70 72 69 74 65 32 25 3d |ize : !sprite2%=|
000006d0 73 70 72 69 74 65 32 73 69 7a 65 0d 02 8a 22 20 |sprite2size..." |
000006e0 73 70 72 69 74 65 31 25 21 38 3d 31 36 20 3a 20 |sprite1%!8=16 : |
000006f0 73 70 72 69 74 65 32 25 21 38 3d 31 36 0d 02 94 |sprite2%!8=16...|
00000700 2b 20 c8 99 26 32 45 2c 39 2b 32 35 36 2c 73 70 |+ ..&2E,9+256,sp|
00000710 72 69 74 65 31 25 20 3a 20 f4 20 22 4f 53 5f 53 |rite1% : . "OS_S|
00000720 70 72 69 74 65 4f 70 22 0d 02 9e 19 20 c8 99 26 |priteOp".... ..&|
00000730 32 45 2c 39 2b 32 35 36 2c 73 70 72 69 74 65 32 |2E,9+256,sprite2|
00000740 25 0d 02 a8 30 20 c8 99 26 32 45 2c 31 35 2b 32 |%...0 ..&2E,15+2|
00000750 35 36 2c 73 70 72 69 74 65 31 25 2c 22 53 43 52 |56,sprite1%,"SCR|
00000760 45 45 4e 22 2c 30 2c 36 34 30 2c 32 30 30 2c 31 |EEN",0,640,200,1|
00000770 35 0d 02 b2 2c 20 c8 99 26 32 45 2c 31 35 2b 32 |5..., ..&2E,15+2|
00000780 35 36 2c 73 70 72 69 74 65 32 25 2c 22 54 45 4d |56,sprite2%,"TEM|
00000790 50 22 2c 30 2c 31 36 2c 31 36 2c 31 35 0d 02 bc |P",0,16,16,15...|
000007a0 0b 20 72 65 73 25 3d 34 0d 02 c6 0e 20 78 6f 66 |. res%=4.... xof|
000007b0 66 73 65 74 3d 34 0d 02 d0 10 20 79 6f 66 66 73 |fset=4.... yoffs|
000007c0 65 74 3d 33 30 38 0d 02 da 1b 20 de 20 74 69 6d |et=308.... . tim|
000007d0 65 62 6c 6b 20 38 2c 6f 72 64 69 6e 61 6c 20 33 |eblk 8,ordinal 3|
000007e0 32 0d 02 e4 15 20 de 20 74 69 6d 65 66 6f 72 6d |2.... . timeform|
000007f0 61 74 20 31 32 38 0d 02 ee 15 20 de 20 74 69 6d |at 128.... . tim|
00000800 65 73 74 72 69 6e 67 20 31 32 38 0d 02 f8 0e 20 |estring 128.... |
00000810 f2 61 73 73 65 6d 62 6c 65 0d 03 02 08 20 f7 2b |.assemble.... .+|
00000820 31 0d 03 0c 0a 20 49 25 3d 2d 31 0d 03 16 06 20 |1.... I%=-1.... |
00000830 f5 0d 03 20 0c 20 20 20 49 25 2b 3d 31 0d 03 2a |... . I%+=1..*|
00000840 32 20 20 20 f3 20 63 69 74 79 6e 61 6d 65 24 28 |2 . cityname$(|
00000850 49 25 29 2c 79 2c 78 2c 63 69 74 79 74 69 6d 65 |I%),y,x,citytime|
00000860 28 49 25 29 2c 73 6d 74 79 70 65 28 49 25 29 0d |(I%),smtype(I%).|
00000870 03 34 24 20 20 20 63 69 74 79 58 28 49 25 29 3d |.4$ cityX(I%)=|
00000880 28 31 38 30 2b 78 29 2a 33 2e 32 2b 78 6f 66 66 |(180+x)*3.2+xoff|
00000890 73 65 74 0d 03 3e 1c 20 20 20 63 69 74 79 59 28 |set..>. cityY(|
000008a0 49 25 29 3d 79 2a 34 2b 79 6f 66 66 73 65 74 0d |I%)=y*4+yoffset.|
000008b0 03 48 1a 20 fd 20 63 69 74 79 6e 61 6d 65 24 28 |.H. . cityname$(|
000008c0 49 25 29 3d 22 65 6e 64 22 0d 03 52 12 20 6e 6f |I%)="end"..R. no|
000008d0 5f 63 69 74 79 73 3d 49 25 2d 31 0d 03 5c 0b 20 |_citys=I%-1..\. |
000008e0 f2 6d 65 6e 75 39 0d 03 66 0e 20 6f 6c 64 74 69 |.menu9..f. oldti|
000008f0 6d 65 3d 30 0d 03 70 1d 20 de 20 63 6f 6c 5f 74 |me=0..p. . col_t|
00000900 61 62 25 20 32 35 36 2c 73 63 61 6c 65 25 20 31 |ab% 256,scale% 1|
00000910 36 0d 03 7a 0a 20 f2 6d 6f 64 65 0d 03 84 0d 20 |6..z. .mode.... |
00000920 f2 69 63 6f 6e 62 61 72 0d 03 8e 0c 20 f2 73 63 |.iconbar.... .sc|
00000930 72 65 65 6e 0d 03 98 05 e1 0d 03 a2 05 3a 0d 03 |reen.........:..|
00000940 ac 52 f4 20 43 69 74 79 2c 4e 20 4c 61 74 2c 57 |.R. City,N Lat,W|
00000950 20 4c 6f 6e 67 2c 47 4d 54 20 64 69 66 66 65 72 | Long,GMT differ|
00000960 65 6e 63 65 2c 64 61 79 6c 69 67 68 74 20 73 61 |ence,daylight sa|
00000970 76 69 6e 67 20 30 3d 6e 6f 6e 65 20 31 3d 55 53 |ving 0=none 1=US|
00000980 20 64 73 74 20 32 3d 65 75 72 6f 20 33 3d 55 4b | dst 2=euro 3=UK|
00000990 0d 03 b6 48 f4 20 49 66 20 6c 61 73 74 20 63 68 |...H. If last ch|
000009a0 61 72 20 3c 20 74 65 78 74 20 6f 6e 20 6c 65 66 |ar < text on lef|
000009b0 74 2c 20 3e 20 74 65 78 74 20 6f 6e 20 72 69 67 |t, > text on rig|
000009c0 68 74 20 6f 74 68 65 72 77 69 73 65 20 74 65 78 |ht otherwise tex|
000009d0 74 20 62 65 6c 6f 77 2e 0d 03 c0 04 0d 03 ca 1e |t below.........|
000009e0 dc 22 41 64 65 6c 61 69 64 65 3c 22 2c 2d 33 35 |."Adelaide<",-35|
000009f0 2c 31 33 38 2c 39 2e 35 2c 30 0d 03 d4 1e dc 22 |,138,9.5,0....."|
00000a00 41 6e 63 68 6f 72 61 67 65 8a 22 2c 36 31 2c 2d |Anchorage.",61,-|
00000a10 31 34 39 2c 2d 39 2c 31 0d 03 de 1b dc 22 41 6e |149,-9,1....."An|
00000a20 74 69 67 75 61 8a 22 2c 31 37 2c 2d 36 31 2c 2d |tigua.",17,-61,-|
00000a30 34 2c 30 0d 03 e8 1a dc 22 42 65 69 6a 69 6e 67 |4,0....."Beijing|
00000a40 3c 22 2c 34 30 2c 31 31 36 2c 38 2c 30 0d 03 f2 |<",40,116,8,0...|
00000a50 19 dc 22 42 72 75 73 73 65 6c 73 3e 22 2c 35 31 |.."Brussels>",51|
00000a60 2c 34 2c 31 2c 32 0d 03 fc 1d dc 22 43 61 6e 62 |,4,1,2....."Canb|
00000a70 65 72 72 61 3e 22 2c 2d 33 35 2c 31 34 39 2c 31 |erra>",-35,149,1|
00000a80 30 2c 30 0d 04 06 1c dc 22 43 61 70 65 20 54 6f |0,0....."Cape To|
00000a90 77 6e 8a 22 2c 2d 33 34 2c 31 38 2c 32 2c 30 0d |wn.",-34,18,2,0.|
00000aa0 04 10 1b dc 22 43 61 72 61 63 61 73 3e 22 2c 31 |...."Caracas>",1|
00000ab0 30 2c 2d 36 37 2c 2d 34 2c 30 0d 04 1a 1d dc 22 |0,-67,-4,0....."|
00000ac0 43 68 69 63 61 67 6f 3c 22 2c 34 32 2c 2d 38 37 |Chicago<",42,-87|
00000ad0 2e 35 2c 2d 36 2c 31 0d 04 24 19 dc 22 44 65 6c |.5,-6,1..$.."Del|
00000ae0 68 69 8a 22 2c 32 38 2c 37 37 2c 35 2e 35 2c 30 |hi.",28,77,5.5,0|
00000af0 0d 04 2e 1b dc 22 44 65 6e 76 65 72 3e 22 2c 33 |....."Denver>",3|
00000b00 39 2c 2d 31 30 35 2c 2d 37 2c 31 0d 04 38 17 dc |9,-105,-7,1..8..|
00000b10 22 44 75 62 61 69 3e 22 2c 32 35 2c 35 35 2c 34 |"Dubai>",25,55,4|
00000b20 2c 30 0d 04 42 1c dc 22 48 6f 6e 67 20 4b 6f 6e |,0..B.."Hong Kon|
00000b30 67 3e 22 2c 32 32 2c 31 31 34 2c 38 2c 30 0d 04 |g>",22,114,8,0..|
00000b40 4c 1e dc 22 48 6f 6e 6f 6c 75 6c 75 8a 22 2c 32 |L.."Honolulu.",2|
00000b50 31 2c 2d 31 35 38 2c 2d 31 30 2c 30 0d 04 56 1b |1,-158,-10,0..V.|
00000b60 dc 22 4a 65 72 75 73 61 6c 65 6d 8a 22 2c 33 32 |."Jerusalem.",32|
00000b70 2c 33 35 2c 32 2c 30 0d 04 60 1b dc 22 4a 6f 68 |,35,2,0..`.."Joh|
00000b80 27 62 75 72 67 3e 22 2c 2d 32 36 2c 32 38 2c 32 |'burg>",-26,28,2|
00000b90 2c 32 0d 04 6a 18 dc 22 4b 75 77 61 69 74 8a 22 |,2..j.."Kuwait."|
00000ba0 2c 32 39 2c 34 37 2c 33 2c 30 0d 04 74 15 dc 22 |,29,47,3,0..t.."|
00000bb0 4c 61 67 6f 73 8a 22 2c 36 2c 33 2c 31 2c 30 0d |Lagos.",6,3,1,0.|
00000bc0 04 7e 18 dc 22 4c 69 73 62 6f 6e 8a 22 2c 33 38 |.~.."Lisbon.",38|
00000bd0 2c 2d 39 2c 30 2c 32 0d 04 88 17 dc 22 4c 6f 6e |,-9,0,2....."Lon|
00000be0 64 6f 6e 3c 22 2c 35 31 2c 30 2c 30 2c 33 0d 04 |don<",51,0,0,3..|
00000bf0 92 20 dc 22 4c 6f 73 20 41 6e 67 65 6c 65 73 3c |. ."Los Angeles<|
00000c00 22 2c 33 34 2c 2d 31 31 38 2c 2d 38 2c 31 0d 04 |",34,-118,-8,1..|
00000c10 9c 1a dc 22 4d 65 78 69 63 6f 3e 22 2c 31 39 2c |..."Mexico>",19,|
00000c20 2d 39 39 2c 2d 36 2c 30 0d 04 a6 18 dc 22 4d 6f |-99,-6,0....."Mo|
00000c30 73 63 6f 77 3e 22 2c 35 35 2c 33 37 2c 33 2c 32 |scow>",55,37,3,2|
00000c40 0d 04 b0 1c dc 22 4e 65 77 20 59 6f 72 6b 3e 22 |....."New York>"|
00000c50 2c 34 32 2c 2d 37 36 2c 2d 35 2c 31 0d 04 ba 16 |,42,-76,-5,1....|
00000c60 dc 22 50 61 72 69 73 3e 22 2c 34 39 2c 33 2c 31 |."Paris>",49,3,1|
00000c70 2c 32 0d 04 c4 19 dc 22 50 65 72 74 68 3c 22 2c |,2....."Perth<",|
00000c80 2d 33 32 2c 31 31 36 2c 38 2c 30 0d 04 ce 18 dc |-32,116,8,0.....|
00000c90 22 52 69 6f 3e 22 2c 2d 32 33 2c 2d 34 33 2c 2d |"Rio>",-23,-43,-|
00000ca0 33 2c 30 0d 04 d8 18 dc 22 53 65 6f 75 6c 8a 22 |3,0....."Seoul."|
00000cb0 2c 33 37 2c 31 32 37 2c 39 2c 30 0d 04 e2 1b dc |,37,127,9,0.....|
00000cc0 22 53 79 64 6e 65 79 3e 22 2c 2d 33 34 2c 31 35 |"Sydney>",-34,15|
00000cd0 31 2c 31 30 2c 30 0d 04 ec 1a dc 22 54 65 68 72 |1,10,0....."Tehr|
00000ce0 61 6e 3e 22 2c 33 35 2c 34 39 2c 33 2e 35 2c 30 |an>",35,49,3.5,0|
00000cf0 0d 04 f6 18 dc 22 54 6f 6b 79 6f 3e 22 2c 33 35 |....."Tokyo>",35|
00000d00 2c 31 33 39 2c 39 2c 30 0d 05 00 1b dc 22 54 6f |,139,9,0....."To|
00000d10 72 6f 6e 74 6f 3e 22 2c 34 34 2c 2d 37 39 2c 2d |ronto>",44,-79,-|
00000d20 35 2c 31 0d 05 0a 1e dc 22 56 61 6e 63 6f 75 76 |5,1....."Vancouv|
00000d30 65 72 3c 22 2c 34 39 2c 2d 31 32 33 2c 2d 35 2c |er<",49,-123,-5,|
00000d40 31 0d 05 14 1e dc 22 57 61 73 68 69 6e 67 74 6f |1....."Washingto|
00000d50 6e 3c 22 2c 33 39 2c 2d 37 37 2c 2d 35 2c 31 0d |n<",39,-77,-5,1.|
00000d60 05 1e 21 dc 22 57 65 6c 6c 69 6e 67 74 6f 6e 3c |..!."Wellington<|
00000d70 22 2c 2d 34 31 2e 35 2c 31 37 35 2c 31 32 2c 30 |",-41.5,175,12,0|
00000d80 0d 05 28 12 dc 22 65 6e 64 22 2c 30 2c 30 2c 30 |..(.."end",0,0,0|
00000d90 2c 30 0d 05 32 05 3a 0d 05 3c 28 20 dd a4 63 72 |,0..2.:..<( ..cr|
00000da0 65 61 74 65 28 77 77 2c 77 68 2c 54 24 2c 77 66 |eate(ww,wh,T$,wf|
00000db0 2c 77 62 2c 66 6c 61 67 73 2c 61 64 64 72 29 0d |,wb,flags,addr).|
00000dc0 05 46 1d 20 62 6c 6b 25 21 32 34 3d 2d 31 3a 62 |.F. blk%!24=-1:b|
00000dd0 6c 6b 25 21 32 38 3d 66 6c 61 67 73 0d 05 50 19 |lk%!28=flags..P.|
00000de0 20 62 6c 6b 25 3f 33 32 3d 37 20 3a 62 6c 6b 25 | blk%?32=7 :blk%|
00000df0 3f 33 33 3d 32 0d 05 5a 1a 20 62 6c 6b 25 3f 33 |?33=2..Z. blk%?3|
00000e00 34 3d 77 66 3a 62 6c 6b 25 3f 33 35 3d 77 62 0d |4=wf:blk%?35=wb.|
00000e10 05 64 19 20 62 6c 6b 25 3f 33 36 3d 33 20 3a 62 |.d. blk%?36=3 :b|
00000e20 6c 6b 25 3f 33 37 3d 32 0d 05 6e 19 20 62 6c 6b |lk%?37=2..n. blk|
00000e30 25 3f 33 38 3d 31 32 3a 62 6c 6b 25 3f 33 39 3d |%?38=12:blk%?39=|
00000e40 30 0d 05 78 1a 20 62 6c 6b 25 21 34 30 3d 30 20 |0..x. blk%!40=0 |
00000e50 3a 62 6c 6b 25 21 34 34 3d 77 68 0d 05 82 19 20 |:blk%!44=wh.... |
00000e60 62 6c 6b 25 21 34 38 3d 77 77 3a 62 6c 6b 25 21 |blk%!48=ww:blk%!|
00000e70 35 32 3d 30 0d 05 8c 28 20 e7 20 61 64 64 72 3d |52=0...( . addr=|
00000e80 30 20 62 6c 6b 25 21 35 36 3d 26 33 44 20 8b 20 |0 blk%!56=&3D . |
00000e90 62 6c 6b 25 21 35 36 3d 26 31 33 44 0d 05 96 0e |blk%!56=&13D....|
00000ea0 20 62 6c 6b 25 21 36 30 3d 30 0d 05 a0 18 20 62 | blk%!60=0.... b|
00000eb0 6c 6b 25 21 36 34 3d 30 3a 62 6c 6b 25 21 36 38 |lk%!64=0:blk%!68|
00000ec0 3d 30 0d 05 aa 0f 20 e7 20 61 64 64 72 3d 30 20 |=0.... . addr=0 |
00000ed0 8c 0d 05 b4 14 20 20 20 24 28 62 6c 6b 25 2b 37 |..... $(blk%+7|
00000ee0 32 29 3d 54 24 0d 05 be 06 20 cc 0d 05 c8 0f 20 |2)=T$.... ..... |
00000ef0 20 20 24 61 64 64 72 3d 54 24 0d 05 d2 13 20 20 | $addr=T$.... |
00000f00 20 62 6c 6b 25 21 37 32 3d 61 64 64 72 0d 05 dc | blk%!72=addr...|
00000f10 11 20 20 20 62 6c 6b 25 21 37 36 3d 2d 31 0d 05 |. blk%!76=-1..|
00000f20 e6 11 20 20 20 62 6c 6b 25 21 38 30 3d 33 32 0d |.. blk%!80=32.|
00000f30 05 f0 06 20 cd 0d 05 fa 0e 20 62 6c 6b 25 21 38 |... ..... blk%!8|
00000f40 34 3d 30 0d 06 04 2a 20 c8 99 20 22 57 69 6d 70 |4=0...* .. "Wimp|
00000f50 5f 43 72 65 61 74 65 57 69 6e 64 6f 77 22 2c 2c |_CreateWindow",,|
00000f60 62 6c 6b 25 20 b8 20 68 61 6e 64 6c 65 0d 06 0e |blk% . handle...|
00000f70 0b 3d 68 61 6e 64 6c 65 0d 06 18 05 3a 0d 06 22 |.=handle....:.."|
00000f80 0b dd f2 6d 65 6e 75 31 0d 06 2c 0d 20 f2 69 6e |...menu1..,. .in|
00000f90 66 6f 62 6f 78 0d 06 36 13 20 66 6c 61 67 73 3d |fobox..6. flags=|
00000fa0 26 37 30 30 30 30 32 31 0d 06 40 0e 20 50 25 3d |&7000021..@. P%=|
00000fb0 6d 65 6e 75 31 25 0d 06 4a 22 20 f2 6d 65 6e 75 |menu1%..J" .menu|
00000fc0 5f 68 65 61 64 65 72 28 22 57 6f 72 6c 64 20 54 |_header("World T|
00000fd0 69 6d 65 22 2c 31 34 29 0d 06 54 2d 20 f2 6d 65 |ime",14)..T- .me|
00000fe0 6e 75 5f 69 74 65 6d 28 26 30 30 2c 69 6e 66 6f |nu_item(&00,info|
00000ff0 5f 77 69 6e 64 6f 77 2c 66 6c 61 67 73 2c 22 49 |_window,flags,"I|
00001000 6e 66 6f 22 29 0d 06 5e 30 20 f2 6d 65 6e 75 5f |nfo")..^0 .menu_|
00001010 69 74 65 6d 28 26 30 30 2c 6d 65 6e 75 33 25 2c |item(&00,menu3%,|
00001020 66 6c 61 67 73 2c 22 44 69 73 70 6c 61 79 20 44 |flags,"Display D|
00001030 61 74 65 22 29 0d 06 68 30 20 f2 6d 65 6e 75 5f |ate")..h0 .menu_|
00001040 69 74 65 6d 28 26 30 30 2c 6d 65 6e 75 34 25 2c |item(&00,menu4%,|
00001050 66 6c 61 67 73 2c 22 44 69 73 70 6c 61 79 20 54 |flags,"Display T|
00001060 69 6d 65 22 29 0d 06 72 2d 20 f2 6d 65 6e 75 5f |ime")..r- .menu_|
00001070 69 74 65 6d 28 26 30 32 2d 73 74 65 70 2c 6d 65 |item(&02-step,me|
00001080 6e 75 35 25 2c 66 6c 61 67 73 2c 22 53 74 65 70 |nu5%,flags,"Step|
00001090 22 29 0d 06 7c 30 20 f2 6d 65 6e 75 5f 69 74 65 |")..|0 .menu_ite|
000010a0 6d 28 26 30 30 2d 74 65 72 6d 69 2c 2d 31 2c 66 |m(&00-termi,-1,f|
000010b0 6c 61 67 73 2c 22 54 65 72 6d 69 6e 61 74 6f 72 |lags,"Terminator|
000010c0 22 29 0d 06 86 27 20 f2 6d 65 6e 75 5f 69 74 65 |")...' .menu_ite|
000010d0 6d 28 26 30 30 2d 73 75 6e 2c 2d 31 2c 66 6c 61 |m(&00-sun,-1,fla|
000010e0 67 73 2c 22 53 75 6e 22 29 0d 06 90 2d 20 f2 6d |gs,"Sun")...- .m|
000010f0 65 6e 75 5f 69 74 65 6d 28 26 30 30 2d 63 6c 6f |enu_item(&00-clo|
00001100 63 6b 73 2c 2d 31 2c 66 6c 61 67 73 2c 22 43 6c |cks,-1,flags,"Cl|
00001110 6f 63 6b 73 22 29 0d 06 9a 31 20 f2 6d 65 6e 75 |ocks")...1 .menu|
00001120 5f 69 74 65 6d 28 26 30 32 2d 63 69 74 69 65 73 |_item(&02-cities|
00001130 2c 6d 65 6e 75 39 25 2c 66 6c 61 67 73 2c 22 43 |,menu9%,flags,"C|
00001140 69 74 69 65 73 22 29 0d 06 a4 2a 20 f2 6d 65 6e |ities")...* .men|
00001150 75 5f 69 74 65 6d 28 26 30 30 2c 2d 31 2c 66 6c |u_item(&00,-1,fl|
00001160 61 67 73 2c 22 53 61 76 65 20 73 65 74 75 70 22 |ags,"Save setup"|
00001170 29 0d 06 ae 24 20 f2 6d 65 6e 75 5f 69 74 65 6d |)...$ .menu_item|
00001180 28 26 38 30 2c 2d 31 2c 66 6c 61 67 73 2c 22 51 |(&80,-1,flags,"Q|
00001190 75 69 74 22 29 0d 06 b8 05 e1 0d 06 c2 05 3a 0d |uit").........:.|
000011a0 06 cc 0b dd f2 6d 65 6e 75 33 0d 06 d6 13 20 66 |.....menu3.... f|
000011b0 6c 61 67 73 3d 26 37 30 30 30 30 32 31 0d 06 e0 |lags=&7000021...|
000011c0 0e 20 50 25 3d 6d 65 6e 75 33 25 0d 06 ea 22 20 |. P%=menu3%..." |
000011d0 f2 6d 65 6e 75 5f 68 65 61 64 65 72 28 22 44 61 |.menu_header("Da|
000011e0 74 65 20 64 64 2f 6d 6d 22 2c 31 32 29 0d 06 f4 |te dd/mm",12)...|
000011f0 2b 20 f2 6d 65 6e 75 5f 69 74 65 6d 28 26 30 30 |+ .menu_item(&00|
00001200 2d 74 6f 64 61 79 2c 2d 31 2c 66 6c 61 67 73 2c |-today,-1,flags,|
00001210 22 54 6f 64 61 79 22 29 0d 06 fe 26 20 f2 77 72 |"Today")...& .wr|
00001220 69 74 65 5f 69 74 65 6d 28 26 38 34 2d ac 20 74 |ite_item(&84-. t|
00001230 6f 64 61 79 2c 64 61 74 65 62 75 66 25 29 0d 07 |oday,datebuf%)..|
00001240 08 05 e1 0d 07 12 05 3a 0d 07 1c 0b dd f2 6d 65 |.......:......me|
00001250 6e 75 34 0d 07 26 13 20 66 6c 61 67 73 3d 26 37 |nu4..&. flags=&7|
00001260 30 30 30 30 32 31 0d 07 30 0e 20 50 25 3d 6d 65 |000021..0. P%=me|
00001270 6e 75 34 25 0d 07 3a 22 20 f2 6d 65 6e 75 5f 68 |nu4%..:" .menu_h|
00001280 65 61 64 65 72 28 22 54 69 6d 65 20 68 68 3a 6d |eader("Time hh:m|
00001290 6d 22 2c 31 32 29 0d 07 44 2c 20 f2 6d 65 6e 75 |m",12)..D, .menu|
000012a0 5f 69 74 65 6d 28 26 30 30 2d 72 65 61 6c 74 69 |_item(&00-realti|
000012b0 6d 65 2c 2d 31 2c 66 6c 61 67 73 2c 22 4e 6f 77 |me,-1,flags,"Now|
000012c0 22 29 0d 07 4e 29 20 f2 77 72 69 74 65 5f 69 74 |")..N) .write_it|
000012d0 65 6d 28 26 38 34 2d ac 20 72 65 61 6c 74 69 6d |em(&84-. realtim|
000012e0 65 2c 74 69 6d 65 62 75 66 25 29 0d 07 58 05 e1 |e,timebuf%)..X..|
000012f0 0d 07 62 05 3a 0d 07 6c 0b dd f2 6d 65 6e 75 35 |..b.:..l...menu5|
00001300 0d 07 76 13 20 66 6c 61 67 73 3d 26 37 30 30 30 |..v. flags=&7000|
00001310 30 32 31 0d 07 80 0e 20 50 25 3d 6d 65 6e 75 35 |021.... P%=menu5|
00001320 25 0d 07 8a 20 20 f2 6d 65 6e 75 5f 68 65 61 64 |%... .menu_head|
00001330 65 72 28 22 49 6e 74 65 72 76 61 6c 22 2c 31 32 |er("Interval",12|
00001340 29 0d 07 94 2b 20 f2 6d 65 6e 75 5f 69 74 65 6d |)...+ .menu_item|
00001350 28 26 30 30 2c 6d 65 6e 75 36 25 2c 66 6c 61 67 |(&00,menu6%,flag|
00001360 73 2c 22 4d 69 6e 75 74 65 73 22 29 0d 07 9e 28 |s,"Minutes")...(|
00001370 20 f2 6d 65 6e 75 5f 69 74 65 6d 28 26 38 30 2c | .menu_item(&80,|
00001380 6d 65 6e 75 37 25 2c 66 6c 61 67 73 2c 22 44 61 |menu7%,flags,"Da|
00001390 79 73 22 29 0d 07 a8 05 e1 0d 07 b2 05 3a 0d 07 |ys").........:..|
000013a0 bc 0b dd f2 6d 65 6e 75 39 0d 07 c6 13 20 66 6c |....menu9.... fl|
000013b0 61 67 73 3d 26 37 30 30 30 30 32 31 0d 07 d0 0e |ags=&7000021....|
000013c0 20 50 25 3d 6d 65 6e 75 39 25 0d 07 da 1e 20 f2 | P%=menu9%.... .|
000013d0 6d 65 6e 75 5f 68 65 61 64 65 72 28 22 43 69 74 |menu_header("Cit|
000013e0 69 65 73 22 2c 31 32 29 0d 07 e4 18 20 e3 20 49 |ies",12).... . I|
000013f0 25 3d 30 20 b8 20 6e 6f 5f 63 69 74 79 73 2d 31 |%=0 . no_citys-1|
00001400 0d 07 ee 3a 20 20 f2 6d 65 6e 75 5f 69 74 65 6d |...: .menu_item|
00001410 28 26 30 30 2d 63 69 74 79 6f 6e 25 28 49 25 29 |(&00-cityon%(I%)|
00001420 2c 2d 31 2c 66 6c 61 67 73 2c c0 63 69 74 79 6e |,-1,flags,.cityn|
00001430 61 6d 65 24 28 49 25 29 29 29 0d 07 f8 06 20 ed |ame$(I%))).... .|
00001440 0d 08 02 46 20 20 f2 6d 65 6e 75 5f 69 74 65 6d |...F .menu_item|
00001450 28 26 38 30 2d 63 69 74 79 6f 6e 25 28 6e 6f 5f |(&80-cityon%(no_|
00001460 63 69 74 79 73 29 2c 2d 31 2c 66 6c 61 67 73 2c |citys),-1,flags,|
00001470 c0 63 69 74 79 6e 61 6d 65 24 28 6e 6f 5f 63 69 |.cityname$(no_ci|
00001480 74 79 73 29 29 29 0d 08 0c 05 e1 0d 08 16 05 3a |tys))).........:|
00001490 0d 08 20 1b dd f2 77 72 69 74 65 5f 73 75 62 28 |.. ...write_sub(|
000014a0 50 25 2c 68 24 2c 61 64 72 25 29 0d 08 2a 17 20 |P%,h$,adr%)..*. |
000014b0 f2 6d 65 6e 75 5f 68 65 61 64 65 72 28 68 24 2c |.menu_header(h$,|
000014c0 38 29 0d 08 34 1a 20 f2 77 72 69 74 65 5f 69 74 |8)..4. .write_it|
000014d0 65 6d 28 26 38 34 2c 61 64 72 25 29 0d 08 3e 05 |em(&84,adr%)..>.|
000014e0 e1 0d 08 48 05 3a 0d 08 52 19 dd f2 77 72 69 74 |...H.:..R...writ|
000014f0 65 5f 69 74 65 6d 28 41 25 2c 61 64 72 25 29 0d |e_item(A%,adr%).|
00001500 08 5c 0c 20 50 25 21 30 3d 41 25 0d 08 66 0c 20 |.\. P%!0=A%..f. |
00001510 50 25 21 34 3d 2d 31 0d 08 70 12 20 50 25 21 38 |P%!4=-1..p. P%!8|
00001520 3d 26 37 30 30 30 31 31 39 0d 08 7a 0f 20 50 25 |=&7000119..z. P%|
00001530 21 31 32 3d 61 64 72 25 0d 08 84 0d 20 50 25 21 |!12=adr%.... P%!|
00001540 31 36 3d 2d 31 0d 08 8e 0d 20 50 25 21 32 30 3d |16=-1.... P%!20=|
00001550 31 36 0d 08 98 05 e1 0d 08 a2 05 3a 0d 08 ac 17 |16.........:....|
00001560 dd f2 6d 65 6e 75 5f 68 65 61 64 65 72 28 54 24 |..menu_header(T$|
00001570 2c 77 29 0d 08 b6 0b 20 24 50 25 3d 54 24 0d 08 |,w).... $P%=T$..|
00001580 c0 11 20 50 25 21 31 32 3d 26 37 30 32 30 37 0d |.. P%!12=&70207.|
00001590 08 ca 0f 20 50 25 21 31 36 3d 77 2a 31 36 0d 08 |... P%!16=w*16..|
000015a0 d4 0d 20 50 25 21 32 30 3d 33 34 0d 08 de 0c 20 |.. P%!20=34.... |
000015b0 50 25 21 32 34 3d 38 0d 08 e8 0b 20 50 25 2b 3d |P%!24=8.... P%+=|
000015c0 32 38 0d 08 f2 05 e1 0d 08 fc 05 3a 0d 09 06 1c |28.........:....|
000015d0 dd f2 6d 65 6e 75 5f 69 74 65 6d 28 41 25 2c 42 |..menu_item(A%,B|
000015e0 25 2c 43 25 2c 54 24 29 0d 09 10 0c 20 50 25 21 |%,C%,T$).... P%!|
000015f0 30 3d 41 25 0d 09 1a 0c 20 50 25 21 34 3d 42 25 |0=A%.... P%!4=B%|
00001600 0d 09 24 0c 20 50 25 21 38 3d 43 25 0d 09 2e 10 |..$. P%!8=C%....|
00001610 20 24 28 50 25 2b 31 32 29 3d 54 24 0d 09 38 0b | $(P%+12)=T$..8.|
00001620 20 50 25 2b 3d 32 34 0d 09 42 05 e1 0d 09 4c 05 | P%+=24..B....L.|
00001630 3a 0d 09 56 0d dd f2 69 63 6f 6e 62 61 72 0d 09 |:..V...iconbar..|
00001640 60 0e 20 62 6c 6b 25 21 30 3d 2d 31 0d 09 6a 0d |`. blk%!0=-1..j.|
00001650 20 62 6c 6b 25 21 34 3d 30 0d 09 74 0d 20 62 6c | blk%!4=0..t. bl|
00001660 6b 25 21 38 3d 30 0d 09 7e 0f 20 62 6c 6b 25 21 |k%!8=0..~. blk%!|
00001670 31 32 3d 36 38 0d 09 88 0f 20 62 6c 6b 25 21 31 |12=68.... blk%!1|
00001680 36 3d 36 38 0d 09 92 12 20 62 6c 6b 25 21 32 30 |6=68.... blk%!20|
00001690 3d 26 33 30 30 32 0d 09 9c 1c 20 24 28 62 6c 6b |=&3002.... $(blk|
000016a0 25 2b 32 34 29 3d 22 21 57 6f 72 6c 64 54 69 6d |%+24)="!WorldTim|
000016b0 65 22 0d 09 a6 29 20 c8 99 20 22 57 69 6d 70 5f |e"...) .. "Wimp_|
000016c0 43 72 65 61 74 65 49 63 6f 6e 22 2c 2c 62 6c 6b |CreateIcon",,blk|
000016d0 25 20 b8 20 69 63 6f 6e 62 61 72 0d 09 b0 05 e1 |% . iconbar.....|
000016e0 0d 09 ba 05 3a 0d 09 c4 0d dd f2 69 6e 66 6f 62 |....:......infob|
000016f0 6f 78 0d 09 ce 2e 20 de 20 69 6e 66 6f 74 65 78 |ox.... . infotex|
00001700 74 20 31 32 38 2c 69 6e 66 6f 74 69 74 6c 65 20 |t 128,infotitle |
00001710 33 32 20 3a 20 50 25 3d 69 6e 66 6f 74 65 78 74 |32 : P%=infotext|
00001720 0d 09 d8 4f 20 69 6e 66 6f 5f 77 69 6e 64 6f 77 |...O info_window|
00001730 3d a4 63 72 65 61 74 65 28 36 38 30 2c 2d 32 34 |=.create(680,-24|
00001740 34 2c 22 41 62 6f 75 74 20 54 68 69 73 20 50 72 |4,"About This Pr|
00001750 6f 67 72 61 6d 22 2c 37 2c 31 2c 25 31 30 30 30 |ogram",7,1,%1000|
00001760 30 30 31 31 2c 69 6e 66 6f 74 69 74 6c 65 29 0d |0011,infotitle).|
00001770 09 e2 0a 20 79 3d 2d 36 30 0d 09 ec 08 20 f7 2b |... y=-60.... .+|
00001780 31 0d 09 f6 0f 20 e3 20 49 25 3d 30 20 b8 20 33 |1.... . I%=0 . 3|
00001790 0d 0a 00 0f 20 20 20 f3 20 74 24 2c 24 50 25 0d |.... . t$,$P%.|
000017a0 0a 0a 38 20 20 20 f2 63 72 65 61 74 65 5f 69 63 |..8 .create_ic|
000017b0 6f 6e 28 69 6e 66 6f 5f 77 69 6e 64 6f 77 2c 30 |on(info_window,0|
000017c0 2c 31 36 2c 31 38 30 2c 79 2c 74 24 2c 26 31 37 |,16,180,y,t$,&17|
000017d0 30 30 30 32 31 31 29 0d 0a 14 39 20 20 20 f2 63 |000211)...9 .c|
000017e0 72 65 61 74 65 5f 69 63 6f 6e 28 69 6e 66 6f 5f |reate_icon(info_|
000017f0 77 69 6e 64 6f 77 2c 50 25 2c 31 39 30 2c 36 36 |window,P%,190,66|
00001800 30 2c 79 2c 22 22 2c 26 37 30 30 30 31 33 44 29 |0,y,"",&700013D)|
00001810 0d 0a 1e 15 20 20 20 79 2d 3d 36 30 20 3a 20 50 |.... y-=60 : P|
00001820 25 2b 3d 33 32 0d 0a 28 06 20 ed 0d 0a 32 25 20 |%+=32..(. ...2% |
00001830 f2 6f 70 65 6e 75 70 28 69 6e 66 6f 5f 77 69 6e |.openup(info_win|
00001840 64 6f 77 2c 30 2c 30 2c 36 38 30 2c 32 34 34 29 |dow,0,0,680,244)|
00001850 0d 0a 3c 17 20 f2 73 68 75 74 28 69 6e 66 6f 5f |..<. .shut(info_|
00001860 77 69 6e 64 6f 77 29 0d 0a 46 1c 20 dc 20 22 4e |window)..F. . "N|
00001870 61 6d 65 20 3a 22 2c 22 57 6f 72 6c 64 20 54 69 |ame :","World Ti|
00001880 6d 65 22 0d 0a 50 30 20 dc 20 22 50 75 72 70 6f |me"..P0 . "Purpo|
00001890 73 65 20 3a 22 2c 22 43 6c 6f 63 6b 20 26 20 53 |se :","Clock & S|
000018a0 75 6e 6c 69 67 68 74 20 74 65 72 6d 69 6e 61 74 |unlight terminat|
000018b0 6f 72 22 0d 0a 5a 2f 20 dc 20 22 41 75 74 68 6f |or"..Z/ . "Autho|
000018c0 72 20 3a 22 2c 20 22 a9 20 50 2e 45 2e 4d 61 72 |r :", ". P.E.Mar|
000018d0 73 68 61 6c 6c 2c 20 4c 69 63 68 66 69 65 6c 64 |shall, Lichfield|
000018e0 20 22 0d 0a 64 30 20 dc 20 22 56 65 72 73 69 6f | "..d0 . "Versio|
000018f0 6e 20 3a 22 2c 22 31 2e 34 31 20 28 31 2f 31 2f |n :","1.41 (1/1/|
00001900 39 34 29 20 52 69 73 63 4f 73 20 33 20 4f 4e 4c |94) RiscOs 3 ONL|
00001910 59 22 0d 0a 6e 05 e1 0d 0a 78 05 3a 0d 0a 82 36 |Y"..n....x.:...6|
00001920 dd f2 63 72 65 61 74 65 5f 69 63 6f 6e 28 68 61 |..create_icon(ha|
00001930 6e 64 6c 65 2c 61 64 64 72 2c 6d 69 6e 78 2c 6d |ndle,addr,minx,m|
00001940 61 78 78 2c 6d 69 6e 79 2c 74 24 2c 66 6c 61 67 |axx,miny,t$,flag|
00001950 73 29 0d 0a 8c 1e 20 62 6c 6b 25 21 30 3d 68 61 |s).... blk%!0=ha|
00001960 6e 64 6c 65 3a 62 6c 6b 25 21 34 3d 6d 69 6e 78 |ndle:blk%!4=minx|
00001970 0d 0a 96 1f 20 62 6c 6b 25 21 38 3d 6d 69 6e 79 |.... blk%!8=miny|
00001980 20 20 3a 62 6c 6b 25 21 31 32 3d 6d 61 78 78 0d | :blk%!12=maxx.|
00001990 0a a0 14 20 62 6c 6b 25 21 31 36 3d 6d 69 6e 79 |... blk%!16=miny|
000019a0 2b 35 36 0d 0a aa 12 20 62 6c 6b 25 21 32 30 3d |+56.... blk%!20=|
000019b0 66 6c 61 67 73 0d 0a b4 0f 20 e7 20 61 64 64 72 |flags.... . addr|
000019c0 3d 30 20 8c 0d 0a be 14 20 20 20 24 28 62 6c 6b |=0 ..... $(blk|
000019d0 25 2b 32 34 29 3d 74 24 0d 0a c8 06 20 cc 0d 0a |%+24)=t$.... ...|
000019e0 d2 13 20 20 20 62 6c 6b 25 21 32 34 3d 61 64 64 |.. blk%!24=add|
000019f0 72 0d 0a dc 11 20 20 20 62 6c 6b 25 21 32 38 3d |r.... blk%!28=|
00001a00 2d 31 0d 0a e6 11 20 20 20 62 6c 6b 25 21 33 32 |-1.... blk%!32|
00001a10 3d 32 34 0d 0a f0 06 20 cd 0d 0a fa 1e 20 c8 99 |=24.... ..... ..|
00001a20 22 57 69 6d 70 5f 43 72 65 61 74 65 49 63 6f 6e |"Wimp_CreateIcon|
00001a30 22 2c 2c 62 6c 6b 25 0d 0b 04 05 e1 0d 0b 0e 05 |",,blk%.........|
00001a40 3a 0d 0b 18 1c dd f2 6f 70 65 6e 75 70 28 68 61 |:......openup(ha|
00001a50 6e 64 6c 65 2c 78 2c 79 2c 77 2c 68 29 0d 0b 22 |ndle,x,y,w,h).."|
00001a60 12 20 62 6c 6b 25 21 30 3d 68 61 6e 64 6c 65 0d |. blk%!0=handle.|
00001a70 0b 2c 1c 20 62 6c 6b 25 21 34 3d 78 20 20 20 20 |.,. blk%!4=x |
00001a80 3a 62 6c 6b 25 21 38 3d 79 2d 68 0d 0b 36 1b 20 |:blk%!8=y-h..6. |
00001a90 62 6c 6b 25 21 31 32 3d 78 2b 77 20 3a 62 6c 6b |blk%!12=x+w :blk|
00001aa0 25 21 31 36 3d 79 0d 0b 40 1b 20 62 6c 6b 25 21 |%!16=y..@. blk%!|
00001ab0 32 30 3d 30 20 20 20 3a 62 6c 6b 25 21 32 34 3d |20=0 :blk%!24=|
00001ac0 30 0d 0b 4a 0f 20 62 6c 6b 25 21 32 38 3d 2d 31 |0..J. blk%!28=-1|
00001ad0 0d 0b 54 1f 20 c8 99 20 22 57 69 6d 70 5f 4f 70 |..T. .. "Wimp_Op|
00001ae0 65 6e 57 69 6e 64 6f 77 22 2c 2c 62 6c 6b 25 0d |enWindow",,blk%.|
00001af0 0b 5e 05 e1 0d 0b 68 05 3a 0d 0b 72 0d dd f2 63 |.^....h.:..r...c|
00001b00 6c 69 63 6b 65 64 0d 0b 7c 13 20 68 61 6e 64 6c |licked..|. handl|
00001b10 65 3d 70 74 72 25 21 31 32 0d 0b 86 12 20 62 75 |e=ptr%!12.... bu|
00001b20 74 74 6f 6e 3d 70 74 72 25 21 38 0d 0b 90 11 20 |tton=ptr%!8.... |
00001b30 69 63 6f 6e 3d 70 74 72 25 21 31 36 0d 0b 9a 4e |icon=ptr%!16...N|
00001b40 20 e7 20 28 62 75 74 74 6f 6e 20 80 20 34 29 20 | . (button . 4) |
00001b50 80 20 69 63 6f 6e 3d 69 63 6f 6e 62 61 72 20 8c |. icon=iconbar .|
00001b60 20 f2 6f 70 65 6e 75 70 28 77 69 6e 64 6f 77 31 | .openup(window1|
00001b70 2c 32 30 2c 39 30 30 2c 31 31 36 30 2c 37 30 30 |,20,900,1160,700|
00001b80 29 3a 61 63 74 69 76 65 3d b9 0d 0b a4 70 20 e7 |):active=....p .|
00001b90 20 62 75 74 74 6f 6e 20 80 20 32 20 8c 20 61 63 | button . 2 . ac|
00001ba0 74 69 76 65 3d a3 20 3a 20 c8 99 20 22 57 69 6d |tive=. : .. "Wim|
00001bb0 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c 2c 6d |p_CreateMenu",,m|
00001bc0 65 6e 75 31 25 2c 70 74 72 25 21 30 2d 36 34 2c |enu1%,ptr%!0-64,|
00001bd0 2d 70 74 72 25 21 34 2a 28 69 63 6f 6e 3c 3e 69 |-ptr%!4*(icon<>i|
00001be0 63 6f 6e 62 61 72 29 2d 28 69 63 6f 6e 3d 69 63 |conbar)-(icon=ic|
00001bf0 6f 6e 62 61 72 29 2a 35 36 30 0d 0b ae 05 e1 0d |onbar)*560......|
00001c00 0b b8 05 3a 0d 0b c2 12 dd f2 70 72 6f 63 65 73 |...:......proces|
00001c10 73 5f 6d 65 6e 75 0d 0b cc 10 20 c8 8e 20 70 74 |s_menu.... .. pt|
00001c20 72 25 21 30 20 ca 0d 0b d6 0c 20 20 20 c9 20 31 |r%!0 ..... . 1|
00001c30 20 3a 0d 0b e0 14 20 20 20 20 20 c8 8e 20 70 74 | :.... .. pt|
00001c40 72 25 21 34 20 ca 0d 0b ea 21 20 20 20 20 20 20 |r%!4 ....! |
00001c50 20 c9 20 30 20 3a 20 74 6f 64 61 79 3d b9 20 3a | . 0 : today=. :|
00001c60 20 f2 6d 65 6e 75 33 0d 0b f4 20 20 20 20 20 20 | .menu3... |
00001c70 20 20 c9 20 31 20 3a 20 74 6f 64 61 79 3d a3 3a | . 1 : today=.:|
00001c80 20 f2 6d 65 6e 75 33 0d 0b fe 0a 20 20 20 20 20 | .menu3.... |
00001c90 cb 0d 0c 08 0c 20 20 20 c9 20 32 20 3a 0d 0c 12 |..... . 2 :...|
00001ca0 14 20 20 20 20 20 c8 8e 20 70 74 72 25 21 34 20 |. .. ptr%!4 |
00001cb0 ca 0d 0c 1c 24 20 20 20 20 20 20 20 c9 20 30 20 |....$ . 0 |
00001cc0 3a 20 72 65 61 6c 74 69 6d 65 3d b9 20 3a 20 f2 |: realtime=. : .|
00001cd0 6d 65 6e 75 34 0d 0c 26 23 20 20 20 20 20 20 20 |menu4..&# |
00001ce0 c9 20 31 20 3a 20 72 65 61 6c 74 69 6d 65 3d a3 |. 1 : realtime=.|
00001cf0 3a 20 f2 6d 65 6e 75 34 0d 0c 30 0a 20 20 20 20 |: .menu4..0. |
00001d00 20 cb 0d 0c 3a 36 20 20 20 c9 20 33 20 3a 20 e7 | ...:6 . 3 : .|
00001d10 20 70 74 72 25 21 34 3d 2d 31 20 8c 20 73 74 65 | ptr%!4=-1 . ste|
00001d20 70 3d 73 74 65 70 20 82 20 2d 31 20 3a 20 8b 20 |p=step . -1 : . |
00001d30 73 74 65 70 20 3d 20 b9 0d 0c 44 11 20 20 20 20 |step = ...D. |
00001d40 20 20 20 f2 6d 65 6e 75 31 0d 0c 4e 30 20 20 20 | .menu1..N0 |
00001d50 c9 20 34 20 3a 20 74 65 72 6d 69 3d 74 65 72 6d |. 4 : termi=term|
00001d60 69 20 82 20 2d 31 20 3a 20 f2 6d 65 6e 75 31 20 |i . -1 : .menu1 |
00001d70 3a 20 f2 73 63 72 65 65 6e 0d 0c 58 22 20 20 20 |: .screen..X" |
00001d80 c9 20 35 20 3a 20 73 75 6e 3d 73 75 6e 20 82 20 |. 5 : sun=sun . |
00001d90 2d 31 20 3a 20 f2 6d 65 6e 75 31 0d 0c 62 32 20 |-1 : .menu1..b2 |
00001da0 20 20 c9 20 36 20 3a 20 63 6c 6f 63 6b 73 3d 63 | . 6 : clocks=c|
00001db0 6c 6f 63 6b 73 20 82 20 2d 31 20 3a 20 f2 6d 65 |locks . -1 : .me|
00001dc0 6e 75 31 20 3a 20 f2 73 63 72 65 65 6e 0d 0c 6c |nu1 : .screen..l|
00001dd0 16 20 20 20 c9 20 37 20 3a 20 51 25 3d 70 74 72 |. . 7 : Q%=ptr|
00001de0 25 21 34 0d 0c 76 12 20 20 20 20 20 e7 20 51 25 |%!4..v. . Q%|
00001df0 3d 2d 31 20 8c 0d 0c 80 1d 20 20 20 20 20 20 20 |=-1 ..... |
00001e00 63 69 74 69 65 73 3d 63 69 74 69 65 73 20 82 20 |cities=cities . |
00001e10 2d 31 0d 0c 8a 11 20 20 20 20 20 20 20 f2 6d 65 |-1.... .me|
00001e20 6e 75 31 0d 0c 94 0a 20 20 20 20 20 cc 0d 0c 9e |nu1.... ....|
00001e30 27 20 20 20 20 20 20 20 63 69 74 79 6f 6e 25 28 |' cityon%(|
00001e40 51 25 29 3d 63 69 74 79 6f 6e 25 28 51 25 29 20 |Q%)=cityon%(Q%) |
00001e50 82 20 2d 31 0d 0c a8 11 20 20 20 20 20 20 20 f2 |. -1.... .|
00001e60 6d 65 6e 75 39 0d 0c b2 0a 20 20 20 20 20 cd 0d |menu9.... ..|
00001e70 0c bc 10 20 20 20 20 20 f2 73 63 72 65 65 6e 0d |... .screen.|
00001e80 0c c6 12 20 20 20 c9 20 38 20 3a 20 f2 73 61 76 |... . 8 : .sav|
00001e90 65 0d 0c d0 12 20 20 20 c9 20 39 3a 20 71 75 69 |e.... . 9: qui|
00001ea0 74 3d b9 0d 0c da 06 20 cb 0d 0c e4 22 20 c8 99 |t=..... ...." ..|
00001eb0 22 57 69 6d 70 5f 47 65 74 50 6f 69 6e 74 65 72 |"Wimp_GetPointer|
00001ec0 49 6e 66 6f 22 2c 2c 62 6c 6b 25 0d 0c ee 12 20 |Info",,blk%.... |
00001ed0 62 75 74 74 6f 6e 3d 62 6c 6b 25 21 38 0d 0c f8 |button=blk%!8...|
00001ee0 41 20 e7 20 62 75 74 74 6f 6e 20 80 20 31 20 8c |A . button . 1 .|
00001ef0 20 c8 99 20 22 57 69 6d 70 5f 43 72 65 61 74 65 | .. "Wimp_Create|
00001f00 4d 65 6e 75 22 2c 2c 6d 65 6e 75 31 25 2c 70 74 |Menu",,menu1%,pt|
00001f10 72 25 21 30 2d 36 34 2c 70 74 72 25 21 34 0d 0d |r%!0-64,ptr%!4..|
00001f20 02 0e 20 6f 6c 64 74 69 6d 65 3d 30 0d 0d 0c 2e |.. oldtime=0....|
00001f30 20 e7 20 94 28 bb 28 24 73 74 65 70 64 61 79 73 | . .(.($stepdays|
00001f40 25 29 29 3e 34 30 30 20 8c 20 24 73 74 65 70 64 |%))>400 . $stepd|
00001f50 61 79 73 25 3d 22 34 30 30 22 0d 0d 16 05 e1 0d |ays%="400"......|
00001f60 0d 20 05 3a 0d 0d 2a 12 dd f2 72 65 64 72 61 77 |. .:..*...redraw|
00001f70 77 69 6e 64 6f 77 0d 0d 34 0d 20 ea 20 77 69 6e |window..4. . win|
00001f80 64 6f 77 0d 0d 3e 12 20 68 61 6e 64 6c 65 3d 70 |dow..>. handle=p|
00001f90 74 72 25 21 30 0d 0d 48 28 20 c8 99 20 22 57 69 |tr%!0..H( .. "Wi|
00001fa0 6d 70 5f 52 65 64 72 61 77 57 69 6e 64 6f 77 22 |mp_RedrawWindow"|
00001fb0 2c 2c 70 74 72 25 20 b8 20 66 6c 61 67 0d 0d 52 |,,ptr% . flag..R|
00001fc0 0f 20 c8 95 20 66 6c 61 67 3c 3e 30 0d 0d 5c 28 |. .. flag<>0..\(|
00001fd0 20 20 20 e7 20 68 61 6e 64 6c 65 3d 77 69 6e 64 | . handle=wind|
00001fe0 6f 77 31 20 8c 20 f2 77 72 69 74 65 5f 77 69 6e |ow1 . .write_win|
00001ff0 64 6f 77 31 0d 0d 66 2a 20 20 20 c8 99 20 22 57 |dow1..f* .. "W|
00002000 69 6d 70 5f 47 65 74 52 65 63 74 61 6e 67 6c 65 |imp_GetRectangle|
00002010 22 2c 2c 70 74 72 25 20 b8 20 66 6c 61 67 0d 0d |",,ptr% . flag..|
00002020 70 06 20 ce 0d 0d 7a 05 e1 0d 0d 84 05 3a 0d 0d |p. ...z......:..|
00002030 8e 0c dd f2 75 70 64 61 74 65 0d 0d 98 1c 20 62 |....update.... b|
00002040 6c 6b 25 21 30 3d 77 69 6e 64 6f 77 31 3a 62 6c |lk%!0=window1:bl|
00002050 6b 25 21 34 3d 30 0d 0d a2 20 20 62 6c 6b 25 21 |k%!4=0... blk%!|
00002060 38 3d 2d 37 32 30 20 20 20 3a 62 6c 6b 25 21 31 |8=-720 :blk%!1|
00002070 32 3d 31 32 30 30 0d 0d ac 0e 20 62 6c 6b 25 21 |2=1200.... blk%!|
00002080 31 36 3d 30 0d 0d b6 28 20 c8 99 20 22 57 69 6d |16=0...( .. "Wim|
00002090 70 5f 55 70 64 61 74 65 57 69 6e 64 6f 77 22 2c |p_UpdateWindow",|
000020a0 2c 62 6c 6b 25 20 b8 20 66 6c 61 67 0d 0d c0 0f |,blk% . flag....|
000020b0 20 c8 95 20 66 6c 61 67 3c 3e 30 0d 0d ca 15 20 | .. flag<>0.... |
000020c0 20 20 f2 77 72 69 74 65 5f 77 69 6e 64 6f 77 31 | .write_window1|
000020d0 0d 0d d4 2a 20 20 20 c8 99 20 22 57 69 6d 70 5f |...* .. "Wimp_|
000020e0 47 65 74 52 65 63 74 61 6e 67 6c 65 22 2c 2c 70 |GetRectangle",,p|
000020f0 74 72 25 20 b8 20 66 6c 61 67 0d 0d de 06 20 ce |tr% . flag.... .|
00002100 0d 0d e8 05 e1 0d 0d f2 05 3a 0d 0d fc 13 dd f2 |.........:......|
00002110 77 72 69 74 65 5f 77 69 6e 64 6f 77 31 0d 0e 06 |write_window1...|
00002120 59 20 c8 99 20 26 32 45 2c 35 32 2b 32 35 36 2c |Y .. &2E,52+256,|
00002130 73 70 72 69 74 65 31 25 2c 22 53 43 52 45 45 4e |sprite1%,"SCREEN|
00002140 22 2c 70 74 72 25 21 34 2d 70 74 72 25 21 32 30 |",ptr%!4-ptr%!20|
00002150 2c 70 74 72 25 21 31 36 2d 37 30 30 2d 70 74 72 |,ptr%!16-700-ptr|
00002160 25 21 32 34 2c 38 2c 73 63 61 6c 65 25 2c 63 6f |%!24,8,scale%,co|
00002170 6c 5f 74 61 62 25 0d 0e 10 05 e1 0d 0e 1a 05 3a |l_tab%.........:|
00002180 0d 0e 24 12 dd f2 73 68 75 74 28 68 61 6e 64 6c |..$...shut(handl|
00002190 65 29 0d 0e 2e 12 20 62 6c 6b 25 21 30 3d 68 61 |e).... blk%!0=ha|
000021a0 6e 64 6c 65 0d 0e 38 20 20 c8 99 20 22 57 69 6d |ndle..8 .. "Wim|
000021b0 70 5f 43 6c 6f 73 65 57 69 6e 64 6f 77 22 2c 2c |p_CloseWindow",,|
000021c0 62 6c 6b 25 0d 0e 42 05 e1 0d 0e 4c 05 3a 0d 0e |blk%..B....L.:..|
000021d0 56 0f dd f2 4f 53 6d 65 73 73 61 67 65 0d 0e 60 |V...OSmessage..`|
000021e0 13 20 72 65 61 73 6f 6e 3d 62 6c 6b 25 21 31 36 |. reason=blk%!16|
000021f0 0d 0e 6a 10 20 c8 8e 20 72 65 61 73 6f 6e 20 ca |..j. .. reason .|
00002200 0d 0e 74 13 20 20 20 c9 20 30 20 3a 20 71 75 69 |..t. . 0 : qui|
00002210 74 3d b9 0d 0e 7e 22 20 20 20 c9 20 26 34 30 30 |t=...~" . &400|
00002220 43 31 20 3a 20 f2 6d 6f 64 65 20 3a 20 61 63 74 |C1 : .mode : act|
00002230 69 76 65 3d 31 0d 0e 88 06 20 cb 0d 0e 92 05 e1 |ive=1.... ......|
00002240 0d 0e 9c 05 3a 0d 0e a6 0b dd f2 65 72 72 6f 72 |....:......error|
00002250 0d 0e b0 0c 20 21 62 6c 6b 25 3d 30 0d 0e ba 23 |.... !blk%=0...#|
00002260 20 24 28 62 6c 6b 25 2b 34 29 3d f6 24 2b 22 20 | $(blk%+4)=.$+" |
00002270 61 74 20 6c 69 6e 65 20 22 2b c3 9e 2b bd 30 0d |at line "+..+.0.|
00002280 0e c4 2d 20 c8 99 22 57 69 6d 70 5f 52 65 70 6f |..- .."Wimp_Repo|
00002290 72 74 45 72 72 6f 72 22 2c 62 6c 6b 25 2c 31 2c |rtError",blk%,1,|
000022a0 22 57 6f 72 6c 64 20 54 69 6d 65 22 0d 0e ce 17 |"World Time"....|
000022b0 20 c8 99 22 57 69 6d 70 5f 43 6c 6f 73 65 44 6f | .."Wimp_CloseDo|
000022c0 77 6e 22 0d 0e d8 05 e0 0d 0e e2 05 e1 0d 0e ec |wn".............|
000022d0 05 3a 0d 0e f6 0d dd f2 66 6f 72 65 67 6e 64 0d |.:......foregnd.|
000022e0 0f 00 1a 20 c8 99 26 32 45 2c 56 30 25 2c 56 31 |... ..&2E,V0%,V1|
000022f0 25 2c 56 32 25 2c 56 33 25 0d 0f 0a 05 e1 0d 0f |%,V2%,V3%.......|
00002300 14 05 3a 0d 0f 1e 0d dd f2 62 61 63 6b 67 6e 64 |..:......backgnd|
00002310 0d 0f 28 35 20 c8 99 26 32 45 2c 36 30 2b 32 35 |..(5 ..&2E,60+25|
00002320 36 2c 73 70 72 69 74 65 31 25 2c 22 53 43 52 45 |6,sprite1%,"SCRE|
00002330 45 4e 22 20 b8 20 56 30 25 2c 56 31 25 2c 56 32 |EN" . V0%,V1%,V2|
00002340 25 2c 56 33 25 0d 0f 32 05 e1 0d 0f 3c 05 3a 0d |%,V3%..2....<.:.|
00002350 0f 46 0a dd f2 73 61 76 65 0d 0f 50 23 20 63 68 |.F...save..P# ch|
00002360 25 3d ae 28 22 3c 57 6f 72 6c 64 54 69 6d 65 24 |%=.("<WorldTime$|
00002370 44 69 72 3e 2e 53 45 54 55 50 22 29 0d 0f 5a 39 |Dir>.SETUP")..Z9|
00002380 20 f1 23 63 68 25 2c 74 65 72 6d 69 2c 63 6c 6f | .#ch%,termi,clo|
00002390 63 6b 73 2c 73 75 6e 2c 74 6f 64 61 79 2c 72 65 |cks,sun,today,re|
000023a0 61 6c 74 69 6d 65 2c 64 73 74 2c 65 73 74 2c 63 |altime,dst,est,c|
000023b0 69 74 69 65 73 0d 0f 64 3f 20 f1 23 63 68 25 2c |ities..d? .#ch%,|
000023c0 24 6c 6f 63 61 6c 62 75 66 25 2c 24 74 69 6d 65 |$localbuf%,$time|
000023d0 62 75 66 25 2c 24 64 61 74 65 62 75 66 25 2c 24 |buf%,$datebuf%,$|
000023e0 73 74 65 70 6d 69 6e 73 25 2c 24 73 74 65 70 64 |stepmins%,$stepd|
000023f0 61 79 73 25 0d 0f 6e 13 20 f1 23 63 68 25 2c 6e |ays%..n. .#ch%,n|
00002400 6f 5f 63 69 74 79 73 0d 0f 78 2e 20 e3 20 49 25 |o_citys..x. . I%|
00002410 3d 30 20 b8 20 6e 6f 5f 63 69 74 79 73 20 3a 20 |=0 . no_citys : |
00002420 f1 23 63 68 25 2c 63 69 74 79 6f 6e 25 28 49 25 |.#ch%,cityon%(I%|
00002430 29 20 3a 20 ed 0d 0f 82 0a 20 d9 23 63 68 25 0d |) : ..... .#ch%.|
00002440 0f 8c 05 e1 0d 0f 96 05 3a 0d 0f a0 0a dd f2 6c |........:......l|
00002450 6f 61 64 0d 0f aa 23 20 63 68 25 3d 8e 28 22 3c |oad...# ch%=.("<|
00002460 57 6f 72 6c 64 54 69 6d 65 24 44 69 72 3e 2e 53 |WorldTime$Dir>.S|
00002470 45 54 55 50 22 29 0d 0f b4 10 20 e7 20 63 68 25 |ETUP").... . ch%|
00002480 3d 30 20 8c 20 e1 0d 0f be 39 20 e8 23 63 68 25 |=0 . ....9 .#ch%|
00002490 2c 74 65 72 6d 69 2c 63 6c 6f 63 6b 73 2c 73 75 |,termi,clocks,su|
000024a0 6e 2c 74 6f 64 61 79 2c 72 65 61 6c 74 69 6d 65 |n,today,realtime|
000024b0 2c 64 73 74 2c 65 73 74 2c 63 69 74 69 65 73 0d |,dst,est,cities.|
000024c0 0f c8 3f 20 e8 23 63 68 25 2c 24 6c 6f 63 61 6c |..? .#ch%,$local|
000024d0 62 75 66 25 2c 24 74 69 6d 65 62 75 66 25 2c 24 |buf%,$timebuf%,$|
000024e0 64 61 74 65 62 75 66 25 2c 24 73 74 65 70 6d 69 |datebuf%,$stepmi|
000024f0 6e 73 25 2c 24 73 74 65 70 64 61 79 73 25 0d 0f |ns%,$stepdays%..|
00002500 d2 13 20 e8 23 63 68 25 2c 6e 6f 5f 63 69 74 79 |.. .#ch%,no_city|
00002510 73 0d 0f dc 2e 20 e3 20 49 25 3d 30 20 b8 20 6e |s.... . I%=0 . n|
00002520 6f 5f 63 69 74 79 73 20 3a 20 e8 23 63 68 25 2c |o_citys : .#ch%,|
00002530 63 69 74 79 6f 6e 25 28 49 25 29 20 3a 20 ed 0d |cityon%(I%) : ..|
00002540 0f e6 0a 20 d9 23 63 68 25 0d 0f f0 05 e1 0d 0f |... .#ch%.......|
00002550 fa 05 3a 0d 10 04 0a dd f2 6d 61 69 6e 0d 10 0e |..:......main...|
00002560 24 20 e7 20 61 63 74 69 76 65 3d 31 20 8c 20 61 |$ . active=1 . a|
00002570 63 74 69 76 65 3d b9 20 3a 20 f2 73 63 72 65 65 |ctive=. : .scree|
00002580 6e 0d 10 18 24 20 f4 20 54 65 72 72 69 74 6f 72 |n...$ . Territor|
00002590 79 5f 52 65 61 64 43 75 72 72 65 6e 74 54 69 6d |y_ReadCurrentTim|
000025a0 65 5a 6f 6e 65 0d 10 22 16 20 c8 99 20 26 34 33 |eZone..". .. &43|
000025b0 30 34 38 20 b8 20 72 30 2c 72 31 0d 10 2c 1a 20 |048 . r0,r1..,. |
000025c0 6c 6f 63 61 6c 6f 66 66 73 65 74 3d 72 31 2f 33 |localoffset=r1/3|
000025d0 36 30 30 30 30 0d 10 36 0f 20 e7 20 ac 20 73 74 |60000..6. . . st|
000025e0 65 70 20 8c 0d 10 40 40 20 20 20 f4 20 67 65 74 |ep ...@@ . get|
000025f0 20 63 75 72 72 65 6e 74 20 55 54 43 20 74 69 6d | current UTC tim|
00002600 65 20 69 6e 20 35 2d 62 79 74 65 20 63 65 6e 74 |e in 5-byte cent|
00002610 69 73 65 63 73 20 22 4f 53 5f 57 6f 72 64 20 31 |isecs "OS_Word 1|
00002620 34 2c 33 22 0d 10 4a 26 20 20 20 74 69 6d 65 62 |4,3"..J& timeb|
00002630 6c 6b 3f 30 20 3d 20 33 20 3a 20 c8 99 20 37 2c |lk?0 = 3 : .. 7,|
00002640 31 34 2c 74 69 6d 65 62 6c 6b 0d 10 54 06 20 cc |14,timeblk..T. .|
00002650 0d 10 5e 34 20 20 20 f2 61 64 64 74 69 6d 65 28 |..^4 .addtime(|
00002660 bb 28 24 73 74 65 70 6d 69 6e 73 25 29 2f 36 30 |.($stepmins%)/60|
00002670 20 2b 20 bb 28 24 73 74 65 70 64 61 79 73 25 29 | + .($stepdays%)|
00002680 2a 32 34 29 0d 10 68 06 20 cd 0d 10 72 29 20 f4 |*24)..h. ...r) .|
00002690 20 54 65 72 72 69 74 6f 72 79 5f 43 6f 6e 76 65 | Territory_Conve|
000026a0 72 74 54 69 6d 65 54 6f 55 54 43 4f 72 64 69 6e |rtTimeToUTCOrdin|
000026b0 61 6c 73 0d 10 7c 21 20 c8 99 20 26 34 33 30 34 |als..|! .. &4304|
000026c0 39 2c 2d 31 2c 74 69 6d 65 62 6c 6b 2c 6f 72 64 |9,-1,timeblk,ord|
000026d0 69 6e 61 6c 0d 10 86 14 20 79 65 61 72 3d 6f 72 |inal.... year=or|
000026e0 64 69 6e 61 6c 21 32 34 0d 10 90 15 20 e7 20 74 |dinal!24.... . t|
000026f0 6f 64 61 79 20 84 20 73 74 65 70 20 8c 0d 10 9a |oday . step ....|
00002700 17 20 20 20 6d 6f 6e 74 68 3d 6f 72 64 69 6e 61 |. month=ordina|
00002710 6c 21 32 30 0d 10 a4 17 20 20 20 64 61 79 20 3d |l!20.... day =|
00002720 20 6f 72 64 69 6e 61 6c 21 31 36 0d 10 ae 06 20 | ordinal!16.... |
00002730 cc 0d 10 b8 1d 20 20 20 6d 6f 6e 74 68 3d bb 28 |..... month=.(|
00002740 c2 24 64 61 74 65 62 75 66 25 2c 32 29 29 0d 10 |.$datebuf%,2))..|
00002750 c2 1c 20 20 20 64 61 79 20 3d bb 28 c0 24 64 61 |.. day =.(.$da|
00002760 74 65 62 75 66 25 2c 32 29 29 0d 10 cc 06 20 cd |tebuf%,2)).... .|
00002770 0d 10 d6 18 20 e7 20 72 65 61 6c 74 69 6d 65 20 |.... . realtime |
00002780 84 20 73 74 65 70 20 8c 0d 10 e0 16 20 20 20 68 |. step ..... h|
00002790 6f 75 72 3d 6f 72 64 69 6e 61 6c 21 31 32 0d 10 |our=ordinal!12..|
000027a0 ea 15 20 20 20 6d 69 6e 3d 20 6f 72 64 69 6e 61 |.. min= ordina|
000027b0 6c 21 38 0d 10 f4 06 20 cc 0d 10 fe 1c 20 20 20 |l!8.... ..... |
000027c0 68 6f 75 72 3d bb 28 c0 24 74 69 6d 65 62 75 66 |hour=.(.$timebuf|
000027d0 25 2c 32 29 29 0d 11 08 1c 20 20 20 6d 69 6e 3d |%,2)).... min=|
000027e0 20 bb 28 c2 24 74 69 6d 65 62 75 66 25 2c 32 29 | .(.$timebuf%,2)|
000027f0 29 0d 11 12 06 20 cd 0d 11 1c 27 20 f4 20 63 6f |).... ....' . co|
00002800 6e 76 65 72 74 20 6f 72 64 69 6e 61 6c 73 20 69 |nvert ordinals i|
00002810 6e 74 6f 20 55 54 43 20 35 2d 62 79 74 65 0d 11 |nto UTC 5-byte..|
00002820 26 47 20 41 25 3d 64 61 79 20 3a 20 42 25 3d 6d |&G A%=day : B%=m|
00002830 6f 6e 74 68 20 3a 20 43 25 3d 79 65 61 72 20 3a |onth : C%=year :|
00002840 20 44 25 3d 68 6f 75 72 20 3a 20 45 25 20 3d 6d | D%=hour : E% =m|
00002850 69 6e 20 3a 20 46 25 3d 30 20 3a 20 d6 20 63 6f |in : F%=0 : . co|
00002860 6e 76 65 72 74 0d 11 30 24 20 e7 20 94 28 21 74 |nvert..0$ . .(!t|
00002870 69 6d 65 62 6c 6b 2d 6f 6c 64 74 69 6d 65 29 3c |imeblk-oldtime)<|
00002880 20 36 30 30 30 20 8c 20 e1 0d 11 3a 15 20 6f 6c | 6000 . ...:. ol|
00002890 64 74 69 6d 65 3d 21 74 69 6d 65 62 6c 6b 0d 11 |dtime=!timeblk..|
000028a0 44 04 0d 11 4e 1d 20 74 69 6d 65 64 69 66 3d 31 |D...N. timedif=1|
000028b0 32 2d 28 68 6f 75 72 2b 6d 69 6e 2f 36 30 29 0d |2-(hour+min/60).|
000028c0 11 58 20 20 e7 20 74 69 6d 65 64 69 66 3c 2d 31 |.X . timedif<-1|
000028d0 32 20 8c 20 74 69 6d 65 64 69 66 2b 3d 32 34 0d |2 . timedif+=24.|
000028e0 11 62 0f 20 f2 65 71 75 61 74 69 6f 6e 73 0d 11 |.b. .equations..|
000028f0 6c 0d 20 f2 62 61 63 6b 67 6e 64 0d 11 76 0f 20 |l. .backgnd..v. |
00002900 f2 75 6e 70 6c 6f 74 73 75 6e 0d 11 80 18 20 e7 |.unplotsun.... .|
00002910 20 74 65 72 6d 69 20 20 20 f2 67 72 65 79 6c 69 | termi .greyli|
00002920 6e 65 0d 11 8a 20 20 e7 20 63 6c 6f 63 6b 73 20 |ne... . clocks |
00002930 20 f2 63 6c 6f 63 6b 73 3a f2 73 68 6f 77 64 61 | .clocks:.showda|
00002940 74 65 0d 11 94 17 20 e7 20 73 75 6e 20 20 20 20 |te.... . sun |
00002950 20 f2 70 6c 6f 74 73 75 6e 0d 11 9e 0d 20 f2 66 | .plotsun.... .f|
00002960 6f 72 65 67 6e 64 0d 11 a8 0c 20 f2 75 70 64 61 |oregnd.... .upda|
00002970 74 65 0d 11 b2 05 e1 0d 11 bc 05 3a 0d 11 c6 12 |te.........:....|
00002980 dd a4 74 69 6d 65 74 65 78 74 28 66 24 29 0d 11 |..timetext(f$)..|
00002990 d0 34 20 f4 20 63 6f 6e 76 65 72 74 20 35 2d 62 |.4 . convert 5-b|
000029a0 79 74 65 20 74 69 6d 65 20 74 6f 20 73 74 72 69 |yte time to stri|
000029b0 6e 67 20 69 6e 20 4c 4f 43 41 4c 20 66 6f 72 6d |ng in LOCAL form|
000029c0 61 74 0d 11 da 16 20 24 74 69 6d 65 66 6f 72 6d |at.... $timeform|
000029d0 61 74 3d 66 24 2b bd 30 0d 11 e4 1e 20 f4 20 22 |at=f$+.0.... . "|
000029e0 4f 53 5f 43 6f 6e 76 65 72 74 44 61 74 65 41 6e |OS_ConvertDateAn|
000029f0 64 54 69 6d 65 22 0d 11 ee 34 20 c8 99 20 26 43 |dTime"...4 .. &C|
00002a00 31 2c 74 69 6d 65 62 6c 6b 2c 74 69 6d 65 73 74 |1,timeblk,timest|
00002a10 72 69 6e 67 2c 36 34 2c 74 69 6d 65 66 6f 72 6d |ring,64,timeform|
00002a20 61 74 20 b8 20 72 30 2c 72 31 0d 11 f8 0b 20 3f |at . r0,r1.... ?|
00002a30 72 31 3d 31 33 0d 12 02 10 3d 24 74 69 6d 65 73 |r1=13....=$times|
00002a40 74 72 69 6e 67 0d 12 0c 05 3a 0d 12 16 10 dd f2 |tring....:......|
00002a50 61 64 64 74 69 6d 65 28 74 29 0d 12 20 21 20 20 |addtime(t).. ! |
00002a60 41 25 3d 74 2a 31 38 30 30 30 30 20 3a 20 d6 20 |A%=t*180000 : . |
00002a70 61 64 64 20 3a 20 d6 20 61 64 64 0d 12 2a 2b 20 |add : . add..*+ |
00002a80 20 f4 20 32 20 61 64 64 73 20 6b 65 65 70 73 20 | . 2 adds keeps |
00002a90 33 36 35 20 64 61 79 73 20 75 6e 64 65 72 20 33 |365 days under 3|
00002aa0 32 20 62 69 74 73 0d 12 34 05 e1 0d 12 3e 05 3a |2 bits..4....>.:|
00002ab0 0d 12 48 0c dd f2 63 6c 6f 63 6b 73 0d 12 52 06 |..H...clocks..R.|
00002ac0 ef 35 0d 12 5c 15 e3 20 49 25 3d 30 20 b8 20 6e |.5..\.. I%=0 . n|
00002ad0 6f 5f 63 69 74 79 73 0d 12 66 15 20 20 e7 20 63 |o_citys..f. . c|
00002ae0 69 74 79 6f 6e 25 28 49 25 29 20 8c 0d 12 70 25 |ityon%(I%) ...p%|
00002af0 20 20 20 20 58 25 3d 63 6c 6f 63 6b 58 28 49 25 | X%=clockX(I%|
00002b00 29 20 3a 20 59 25 3d 63 6c 6f 63 6b 59 28 49 25 |) : Y%=clockY(I%|
00002b10 29 0d 12 7a 13 20 20 20 20 e6 30 2c 62 6c 61 63 |)..z. .0,blac|
00002b20 6b 63 6f 6c 0d 12 84 1c 20 20 20 20 c8 93 c8 90 |kcol.... ....|
00002b30 58 25 2b 38 2c 59 25 2d 36 34 2c 38 30 2c 33 32 |X%+8,Y%-64,80,32|
00002b40 0d 12 8e 12 20 20 20 20 e6 30 2c 74 65 78 74 63 |.... .0,textc|
00002b50 6f 6c 0d 12 98 21 20 20 20 20 48 25 3d 74 69 6d |ol...! H%=tim|
00002b60 65 62 6c 6b 21 34 3a 4c 25 3d 74 69 6d 65 62 6c |eblk!4:L%=timebl|
00002b70 6b 21 30 0d 12 a2 2a 20 20 20 20 f2 61 64 64 74 |k!0...* .addt|
00002b80 69 6d 65 28 63 69 74 79 74 69 6d 65 28 49 25 29 |ime(citytime(I%)|
00002b90 2d 6c 6f 63 61 6c 6f 66 66 73 65 74 29 0d 12 ac |-localoffset)...|
00002ba0 2b 20 20 20 20 e7 20 a4 73 75 6d 6d 65 72 28 73 |+ . .summer(s|
00002bb0 6d 74 79 70 65 28 49 25 29 29 20 8c 20 f2 61 64 |mtype(I%)) . .ad|
00002bc0 64 74 69 6d 65 28 31 29 0d 12 b6 15 20 20 20 20 |dtime(1).... |
00002bd0 ec 20 58 25 2b 31 30 2c 59 25 2d 33 36 0d 12 c0 |. X%+10,Y%-36...|
00002be0 1e 20 20 20 20 f1 20 a4 74 69 6d 65 74 65 78 74 |. . .timetext|
00002bf0 28 22 25 32 34 3a 25 4d 49 22 29 0d 12 ca 21 20 |("%24:%MI")...! |
00002c00 20 20 20 74 69 6d 65 62 6c 6b 21 34 3d 48 25 3a | timeblk!4=H%:|
00002c10 74 69 6d 65 62 6c 6b 21 30 3d 4c 25 0d 12 d4 07 |timeblk!0=L%....|
00002c20 20 20 cd 0d 12 de 05 ed 0d 12 e8 05 e1 0d 12 f2 | ..............|
00002c30 05 3a 0d 12 fc 0e dd f2 73 68 6f 77 64 61 74 65 |.:......showdate|
00002c40 0d 13 06 13 20 58 25 3d 32 30 20 3a 20 59 25 3d |.... X%=20 : Y%=|
00002c50 36 36 30 0d 13 10 15 20 e6 30 2c 62 63 6b 67 6e |660.... .0,bckgn|
00002c60 64 63 6f 6c 20 c8 9c 30 0d 13 1a 17 20 c8 93 c8 |dcol ..0.... ...|
00002c70 90 20 58 25 2c 59 25 2c 31 31 36 30 2c 33 36 0d |. X%,Y%,1160,36.|
00002c80 13 24 0f 20 e6 30 2c 74 65 78 74 63 6f 6c 0d 13 |.$. .0,textcol..|
00002c90 2e 10 20 ec 20 36 34 30 2c 59 25 2b 33 30 0d 13 |.. . 640,Y%+30..|
00002ca0 38 39 20 f1 20 a4 74 69 6d 65 74 65 78 74 28 22 |89 . .timetext("|
00002cb0 25 32 34 3a 25 4d 49 20 25 57 33 20 25 7a 44 59 |%24:%MI %W3 %zDY|
00002cc0 25 53 54 20 25 4d 33 20 25 43 45 25 59 52 20 4c |%ST %M3 %CE%YR L|
00002cd0 6f 63 61 6c 22 29 3b 0d 13 42 1e 20 4c 25 3d 74 |ocal");..B. L%=t|
00002ce0 69 6d 65 62 6c 6b 21 30 3a 48 25 3d 74 69 6d 65 |imeblk!0:H%=time|
00002cf0 62 6c 6b 21 34 0d 13 4c 5c 20 f4 20 63 6f 6e 76 |blk!4..L\ . conv|
00002d00 65 72 74 20 74 6f 20 47 4d 54 2e 20 35 2d 62 79 |ert to GMT. 5-by|
00002d10 74 65 20 74 69 6d 65 20 69 73 20 61 6c 72 65 61 |te time is alrea|
00002d20 64 79 20 47 4d 54 20 62 75 74 20 4f 53 33 20 43 |dy GMT but OS3 C|
00002d30 6f 6e 76 65 72 74 44 61 74 65 41 6e 64 54 69 6d |onvertDateAndTim|
00002d40 65 20 6d 61 6b 65 73 20 69 74 20 6c 6f 63 61 6c |e makes it local|
00002d50 21 0d 13 56 1b 20 f2 61 64 64 74 69 6d 65 28 2d |!..V. .addtime(-|
00002d60 6c 6f 63 61 6c 6f 66 66 73 65 74 29 0d 13 60 0f |localoffset)..`.|
00002d70 20 ec 20 36 30 2c 59 25 2b 33 30 0d 13 6a 36 20 | . 60,Y%+30..j6 |
00002d80 f1 20 a4 74 69 6d 65 74 65 78 74 28 22 25 32 34 |. .timetext("%24|
00002d90 3a 25 4d 49 20 25 57 33 20 25 7a 44 59 25 53 54 |:%MI %W3 %zDY%ST|
00002da0 20 25 4d 33 20 25 43 45 25 59 52 20 55 54 43 22 | %M3 %CE%YR UTC"|
00002db0 29 0d 13 74 1e 20 74 69 6d 65 62 6c 6b 21 30 3d |)..t. timeblk!0=|
00002dc0 4c 25 3a 74 69 6d 65 62 6c 6b 21 34 3d 48 25 0d |L%:timeblk!4=H%.|
00002dd0 13 7e 05 e1 0d 13 88 05 3a 0d 13 92 10 dd a4 73 |.~......:......s|
00002de0 75 6d 6d 65 72 28 43 25 29 0d 13 9c 09 20 53 25 |ummer(C%).... S%|
00002df0 3d a3 0d 13 a6 30 20 77 65 65 6b 64 61 79 3d 6f |=....0 weekday=o|
00002e00 72 64 69 6e 61 6c 21 32 38 20 3a 20 f4 20 64 61 |rdinal!28 : . da|
00002e10 79 20 6f 66 20 77 65 65 6b 20 31 3d 73 75 6e 64 |y of week 1=sund|
00002e20 61 79 0d 13 b0 0c 20 c8 8e 20 43 25 20 ca 0d 13 |ay.... .. C% ...|
00002e30 ba 3b 20 20 c9 20 31 20 3a 20 f4 20 55 53 20 44 |.; . 1 : . US D|
00002e40 53 54 3d 20 66 69 72 73 74 20 53 75 6e 64 61 79 |ST= first Sunday|
00002e50 20 41 70 72 69 6c 20 74 6f 20 6c 61 73 74 20 53 | April to last S|
00002e60 75 6e 64 61 79 20 4f 63 74 0d 13 c4 34 20 20 20 |unday Oct...4 |
00002e70 e7 20 28 6d 6f 6e 74 68 3d 34 20 80 20 64 61 79 |. (month=4 . day|
00002e80 2d 77 65 65 6b 64 61 79 3e 3d 30 29 20 84 20 6d |-weekday>=0) . m|
00002e90 6f 6e 74 68 3e 34 20 8c 20 53 25 3d b9 0d 13 ce |onth>4 . S%=....|
00002ea0 39 20 20 20 e7 20 28 6d 6f 6e 74 68 3d 31 30 20 |9 . (month=10 |
00002eb0 80 20 33 31 2d 64 61 79 2b 77 65 65 6b 64 61 79 |. 31-day+weekday|
00002ec0 3c 3d 37 29 20 84 20 6d 6f 6e 74 68 3e 31 30 20 |<=7) . month>10 |
00002ed0 8c 20 53 25 3d a3 0d 13 d8 44 20 20 c9 20 32 20 |. S%=....D . 2 |
00002ee0 3a 20 f4 20 45 75 72 6f 20 73 75 6d 6d 65 72 20 |: . Euro summer |
00002ef0 74 69 6d 65 20 6c 61 73 74 20 53 75 6e 64 61 79 |time last Sunday|
00002f00 20 4d 61 72 63 68 20 74 6f 20 6c 61 73 74 20 53 | March to last S|
00002f10 75 6e 64 61 79 20 53 65 70 74 0d 13 e2 37 20 20 |unday Sept...7 |
00002f20 20 e7 20 28 6d 6f 6e 74 68 3d 33 20 80 20 33 31 | . (month=3 . 31|
00002f30 2d 64 61 79 2b 77 65 65 6b 64 61 79 3c 3d 37 29 |-day+weekday<=7)|
00002f40 20 84 20 6d 6f 6e 74 68 3e 33 20 8c 20 53 25 3d | . month>3 . S%=|
00002f50 b9 0d 13 ec 37 20 20 20 e7 20 28 6d 6f 6e 74 68 |....7 . (month|
00002f60 3d 39 20 80 20 33 31 2d 64 61 79 2b 77 65 65 6b |=9 . 31-day+week|
00002f70 64 61 79 3c 3d 37 29 20 84 20 6d 6f 6e 74 68 3e |day<=7) . month>|
00002f80 39 20 8c 20 53 25 3d a3 0d 13 f6 59 20 20 c9 20 |9 . S%=....Y . |
00002f90 33 20 3a 20 f4 20 42 72 69 74 69 73 68 20 73 75 |3 : . British su|
00002fa0 6d 6d 65 72 20 74 69 6d 65 20 6c 61 73 74 20 53 |mmer time last S|
00002fb0 75 6e 64 61 79 20 4d 61 72 63 68 20 74 6f 20 53 |unday March to S|
00002fc0 75 6e 64 61 79 20 61 66 74 65 72 20 6c 61 73 74 |unday after last|
00002fd0 20 53 61 74 75 72 64 61 79 20 4f 63 74 6f 62 65 | Saturday Octobe|
00002fe0 72 0d 14 00 37 20 20 20 e7 20 28 6d 6f 6e 74 68 |r...7 . (month|
00002ff0 3d 33 20 80 20 33 31 2d 64 61 79 2b 77 65 65 6b |=3 . 31-day+week|
00003000 64 61 79 3c 3d 37 29 20 84 20 6d 6f 6e 74 68 3e |day<=7) . month>|
00003010 33 20 8c 20 53 25 3d b9 0d 14 0a 39 20 20 20 e7 |3 . S%=....9 .|
00003020 20 28 6d 6f 6e 74 68 3d 31 30 20 80 20 32 38 2d | (month=10 . 28-|
00003030 64 61 79 2b 77 65 65 6b 64 61 79 3c 3d 36 29 20 |day+weekday<=6) |
00003040 84 20 6d 6f 6e 74 68 3e 31 30 20 8c 20 53 25 3d |. month>10 . S%=|
00003050 a3 0d 14 14 06 20 cb 0d 14 1e 07 3d 53 25 0d 14 |..... .....=S%..|
00003060 28 05 3a 0d 14 32 0c dd f2 73 63 72 65 65 6e 0d |(.:..2...screen.|
00003070 14 3c 15 20 53 58 25 3d 30 20 3a 20 53 59 25 3d |.<. SX%=0 : SY%=|
00003080 2d 31 30 30 0d 14 46 0d 20 f2 62 61 63 6b 67 6e |-100..F. .backgn|
00003090 64 0d 14 50 15 20 e6 30 2c 63 6c 65 61 72 63 6f |d..P. .0,clearco|
000030a0 6c 20 c8 9c 20 30 0d 14 5a 15 20 c8 93 c8 90 30 |l .. 0..Z. ....0|
000030b0 2c 30 2c 31 32 30 30 2c 37 32 30 0d 14 64 0e 20 |,0,1200,720..d. |
000030c0 f2 63 6f 75 6e 74 72 79 73 0d 14 6e 0a 20 f2 66 |.countrys..n. .f|
000030d0 69 6c 6c 0d 14 78 0a 20 f2 67 72 69 64 0d 14 82 |ill..x. .grid...|
000030e0 0b 20 f2 63 69 74 79 73 0d 14 8c 0d 20 f2 66 6f |. .citys.... .fo|
000030f0 72 65 67 6e 64 0d 14 96 0e 20 6f 6c 64 74 69 6d |regnd.... oldtim|
00003100 65 3d 30 0d 14 a0 05 e1 0d 14 aa 05 3a 0d 14 b4 |e=0.........:...|
00003110 0a dd f2 67 72 69 64 0d 14 be 3a 20 f4 20 31 20 |...grid...: . 1 |
00003120 64 65 67 20 6c 61 74 3d 34 2c 20 31 20 64 65 67 |deg lat=4, 1 deg|
00003130 20 6c 6f 6e 67 3d 33 2e 32 2c 20 31 68 72 20 3d | long=3.2, 1hr =|
00003140 34 38 20 67 72 61 70 68 69 63 73 20 75 6e 69 74 |48 graphics unit|
00003150 73 0d 14 c8 17 20 72 68 3d 78 6f 66 66 73 65 74 |s.... rh=xoffset|
00003160 2b 33 36 30 2a 33 2e 32 0d 14 d2 15 20 e6 30 2c |+360*3.2.... .0,|
00003170 62 63 6b 67 6e 64 63 6f 6c 20 c8 9c 30 0d 14 dc |bckgndcol ..0...|
00003180 17 20 c8 93 c8 90 20 30 2c 36 35 36 2c 31 32 30 |. .... 0,656,120|
00003190 30 2c 34 38 0d 14 e6 14 20 e6 30 2c 6c 69 6e 65 |0,48.... .0,line|
000031a0 73 63 6f 6c 20 c8 9c 33 0d 14 f0 08 20 f7 2b 31 |scol ..3.... .+1|
000031b0 0d 14 fa 0f 20 e3 20 49 25 3d 30 20 b8 20 34 0d |.... . I%=0 . 4.|
000031c0 15 04 0c 20 20 20 f3 20 6c 61 74 0d 15 0e 26 20 |... . lat...& |
000031d0 20 20 20 ec 20 30 2c 79 6f 66 66 73 65 74 2b 6c | . 0,yoffset+l|
000031e0 61 74 2a 34 20 3a 20 f0 31 37 2c 31 32 30 30 2c |at*4 : .17,1200,|
000031f0 30 0d 15 18 06 20 ed 0d 15 22 1e 20 59 25 3d 79 |0.... ...". Y%=y|
00003200 6f 66 66 73 65 74 2d 38 35 2a 34 20 3a 20 4c 25 |offset-85*4 : L%|
00003210 3d 38 35 2a 38 0d 15 2c 0f 20 e3 20 58 25 3d 30 |=85*8..,. . X%=0|
00003220 b8 20 31 32 0d 15 36 24 20 20 20 ec 20 78 6f 66 |. 12..6$ . xof|
00003230 66 73 65 74 2b 58 25 2a 39 36 2c 59 25 20 3a 20 |fset+X%*96,Y% : |
00003240 f0 31 37 2c 30 2c 4c 25 0d 15 40 06 20 ed 0d 15 |.17,0,L%..@. ...|
00003250 4a 05 e1 0d 15 54 05 3a 0d 15 5e 1d dc 20 2d 36 |J....T.:..^.. -6|
00003260 36 2e 35 2c 2d 32 33 2e 35 2c 30 2c 32 33 2e 35 |6.5,-23.5,0,23.5|
00003270 2c 36 36 2e 35 0d 15 68 05 3a 0d 15 72 0a dd f2 |,66.5..h.:..r...|
00003280 6d 6f 64 65 0d 15 7c 45 20 c8 99 20 22 57 69 6d |mode..|E .. "Wim|
00003290 70 5f 52 65 61 64 50 69 78 54 72 61 6e 73 22 2c |p_ReadPixTrans",|
000032a0 26 31 30 30 2c 73 70 72 69 74 65 31 25 2c 22 53 |&100,sprite1%,"S|
000032b0 43 52 45 45 4e 22 2c 2c 2c 2c 73 63 61 6c 65 25 |CREEN",,,,scale%|
000032c0 2c 63 6f 6c 5f 74 61 62 25 0d 15 86 35 20 c8 99 |,col_tab%...5 ..|
000032d0 20 22 43 6f 6c 6f 75 72 54 72 61 6e 73 5f 53 65 | "ColourTrans_Se|
000032e0 6c 65 63 74 54 61 62 6c 65 22 2c 31 35 2c 30 2c |lectTable",15,0,|
000032f0 2d 31 2c 2d 31 2c 63 6f 6c 5f 74 61 62 25 0d 15 |-1,-1,col_tab%..|
00003300 90 2c 20 c8 99 20 22 4f 53 5f 52 65 61 64 4d 6f |., .. "OS_ReadMo|
00003310 64 65 56 61 72 69 61 62 6c 65 22 2c eb 2c 39 20 |deVariable",.,9 |
00003320 b8 20 72 30 2c 72 31 2c 72 32 0d 15 9a 0e 20 e7 |. r0,r1,r2.... .|
00003330 20 72 32 3c 3e 33 20 8c 0d 15 a4 53 20 f4 20 6d | r2<>3 ....S . m|
00003340 6f 64 69 66 79 20 63 6f 6c 6f 75 72 20 74 72 61 |odify colour tra|
00003350 6e 73 20 74 61 62 6c 65 20 66 6f 72 20 62 65 73 |ns table for bes|
00003360 74 20 31 36 20 63 6f 6c 6f 75 72 20 65 66 66 65 |t 16 colour effe|
00003370 63 74 20 28 64 75 65 20 74 6f 20 4f 52 2f 41 4e |ct (due to OR/AN|
00003380 44 20 70 6c 6f 74 74 69 6e 67 29 0d 15 ae 09 20 |D plotting).... |
00003390 f7 20 2b 31 0d 15 b8 0f 20 e3 20 49 25 3d 30 20 |. +1.... . I%=0 |
000033a0 b8 20 35 0d 15 c2 0e 20 20 20 f3 20 43 25 2c 4e |. 5.... . C%,N|
000033b0 25 0d 15 cc 15 20 20 20 63 6f 6c 5f 74 61 62 25 |%.... col_tab%|
000033c0 3f 43 25 3d 4e 25 0d 15 d6 07 20 20 ed 0d 15 e0 |?C%=N%.... ....|
000033d0 06 20 cd 0d 15 ea 2b 20 dc 20 31 30 38 2c 31 30 |. ....+ . 108,10|
000033e0 2c 33 32 2c 31 33 2c 31 32 38 2c 38 2c 32 30 34 |,32,13,128,8,204|
000033f0 2c 31 35 2c 37 36 2c 38 2c 31 37 36 2c 33 0d 15 |,15,76,8,176,3..|
00003400 f4 12 20 63 6f 6c 5f 74 61 62 25 3f 37 36 3d 35 |.. col_tab%?76=5|
00003410 0d 15 fe 10 20 63 6c 65 61 72 63 6f 6c 3d 33 32 |.... clearcol=32|
00003420 0d 16 08 0e 20 6c 61 6e 64 63 6f 6c 3d 34 0d 16 |.... landcol=4..|
00003430 12 0f 20 63 6f 61 73 74 63 6f 6c 3d 39 0d 16 1c |.. coastcol=9...|
00003440 10 20 6c 69 6e 65 73 63 6f 6c 3d 34 32 0d 16 26 |. linescol=42..&|
00003450 11 20 62 63 6b 67 6e 64 63 6f 6c 3d 36 33 0d 16 |. bckgndcol=63..|
00003460 30 0e 20 74 65 78 74 63 6f 6c 3d 33 0d 16 3a 0f |0. textcol=3..:.|
00003470 20 63 69 74 79 63 6f 6c 3d 36 33 0d 16 44 0f 20 | citycol=63..D. |
00003480 62 6c 61 63 6b 63 6f 6c 3d 30 0d 16 4e 0e 20 73 |blackcol=0..N. s|
00003490 75 6e 63 6f 6c 3d 31 35 0d 16 58 05 e1 0d 16 62 |uncol=15..X....b|
000034a0 04 0d 16 6c 05 3a 0d 16 76 0b dd f2 63 69 74 79 |...l.:..v...city|
000034b0 73 0d 16 80 06 ef 35 0d 16 8a 15 e3 20 49 25 3d |s.....5..... I%=|
000034c0 30 20 b8 20 6e 6f 5f 63 69 74 79 73 0d 16 94 14 |0 . no_citys....|
000034d0 20 e7 20 63 69 74 79 6f 6e 25 28 49 25 29 20 8c | . cityon%(I%) .|
000034e0 0d 16 9e 22 20 20 20 58 25 3d 63 69 74 79 58 28 |..." X%=cityX(|
000034f0 49 25 29 20 3a 20 59 25 3d 63 69 74 79 59 28 49 |I%) : Y%=cityY(I|
00003500 25 29 0d 16 a8 18 20 20 20 e6 30 2c 63 69 74 79 |%).... .0,city|
00003510 63 6f 6c 20 c8 9c 20 31 32 38 0d 16 b2 1c 20 20 |col .. 128.... |
00003520 20 e7 20 63 69 74 69 65 73 20 c8 93 20 58 25 2c | . cities .. X%,|
00003530 59 25 2c 34 2c 34 0d 16 bc 1b 20 20 20 c8 8e 20 |Y%,4,4.... .. |
00003540 c2 63 69 74 79 6e 61 6d 65 24 28 49 25 29 29 20 |.cityname$(I%)) |
00003550 ca 0d 16 c6 0c 20 20 20 c9 20 22 3e 22 0d 16 d0 |..... . ">"...|
00003560 0f 20 20 20 20 20 f0 30 2c 38 2c 30 0d 16 da 0c |. .0,8,0....|
00003570 20 20 20 c9 20 22 3c 22 0d 16 e4 24 20 20 20 20 | . "<"...$ |
00003580 20 f0 30 2c 2d a9 28 63 69 74 79 6e 61 6d 65 24 | .0,-.(cityname$|
00003590 28 49 25 29 29 2a 31 36 2b 38 2c 30 0d 16 ee 10 |(I%))*16+8,0....|
000035a0 20 20 20 20 20 58 25 2d 3d 31 30 30 0d 16 f8 08 | X%-=100....|
000035b0 20 20 20 7f 0d 17 02 25 20 20 20 20 20 f0 30 2c | ....% .0,|
000035c0 2d a9 28 63 69 74 79 6e 61 6d 65 24 28 49 25 29 |-.(cityname$(I%)|
000035d0 29 2a 38 2b 38 2c 2d 31 32 0d 17 0c 18 20 20 20 |)*8+8,-12.... |
000035e0 20 20 59 25 2d 3d 31 32 20 3a 20 58 25 2d 3d 34 | Y%-=12 : X%-=4|
000035f0 38 0d 17 16 08 20 20 20 cb 0d 17 20 21 20 20 20 |8.... ... ! |
00003600 e7 20 63 69 74 69 65 73 20 f1 20 c0 63 69 74 79 |. cities . .city|
00003610 6e 61 6d 65 24 28 49 25 29 29 0d 17 2a 22 20 20 |name$(I%))..*" |
00003620 20 63 6c 6f 63 6b 58 28 49 25 29 3d 58 25 3a 63 | clockX(I%)=X%:c|
00003630 6c 6f 63 6b 59 28 49 25 29 3d 59 25 0d 17 34 06 |lockY(I%)=Y%..4.|
00003640 20 cd 0d 17 3e 05 ed 0d 17 48 05 e1 0d 17 52 05 | ...>....H....R.|
00003650 3a 0d 17 5c 0e dd f2 67 72 65 79 6c 69 6e 65 0d |:..\...greyline.|
00003660 17 66 10 20 e6 20 31 2c 32 35 20 c8 9c 20 30 0d |.f. . 1,25 .. 0.|
00003670 17 70 15 20 c8 93 c8 90 30 2c 30 2c 31 32 30 30 |.p. ....0,0,1200|
00003680 2c 36 35 32 0d 17 7a 10 20 e6 20 32 2c 33 38 20 |,652..z. . 2,38 |
00003690 c8 9c 20 30 0d 17 84 1f 20 e3 20 6c 61 74 64 65 |.. 0.... . latde|
000036a0 67 3d 2d 38 35 20 b8 20 38 35 20 88 20 72 65 73 |g=-85 . 85 . res|
000036b0 25 2f 32 0d 17 8e 14 20 20 20 6c 61 74 3d b2 28 |%/2.... lat=.(|
000036c0 6c 61 74 64 65 67 29 0d 17 98 10 20 20 20 f2 72 |latdeg).... .r|
000036d0 69 73 65 5f 73 65 74 0d 17 a2 0c 20 20 20 f2 70 |ise_set.... .p|
000036e0 6c 6f 74 0d 17 ac 06 20 ed 0d 17 b6 05 e1 0d 17 |lot.... ........|
000036f0 c0 05 3a 0d 17 ca 0f dd f2 65 71 75 61 74 69 6f |..:......equatio|
00003700 6e 73 0d 17 d4 29 20 f4 20 54 65 72 72 69 74 6f |ns...) . Territo|
00003710 72 79 5f 43 6f 6e 76 65 72 74 54 69 6d 65 54 6f |ry_ConvertTimeTo|
00003720 55 54 43 4f 72 64 69 6e 61 6c 73 0d 17 de 21 20 |UTCOrdinals...! |
00003730 c8 99 20 26 34 33 30 34 39 2c 2d 31 2c 74 69 6d |.. &43049,-1,tim|
00003740 65 62 6c 6b 2c 6f 72 64 69 6e 61 6c 0d 17 e8 32 |eblk,ordinal...2|
00003750 20 41 3d 32 2a af 2a 28 6f 72 64 69 6e 61 6c 21 | A=2*.*(ordinal!|
00003760 33 32 2d 31 29 2f 33 36 35 20 3a 20 f4 20 75 73 |32-1)/365 : . us|
00003770 65 73 20 64 61 79 20 6f 66 20 79 65 61 72 0d 17 |es day of year..|
00003780 f2 12 20 f4 20 64 65 63 6c 69 6e 61 74 69 6f 6e |.. . declination|
00003790 0d 17 fc 57 20 64 65 63 6c 3d 30 2e 34 35 36 2d |...W decl=0.456-|
000037a0 32 32 2e 39 31 35 2a 9b 28 41 29 2d 30 2e 34 33 |22.915*.(A)-0.43|
000037b0 2a 9b 28 32 2a 41 29 2d 30 2e 31 35 36 2a 9b 28 |*.(2*A)-0.156*.(|
000037c0 33 2a 41 29 2b 33 2e 38 33 2a b5 28 41 29 2b 30 |3*A)+3.83*.(A)+0|
000037d0 2e 30 36 2a b5 28 32 2a 41 29 2d 30 2e 30 38 32 |.06*.(2*A)-0.082|
000037e0 2a b5 28 33 2a 41 29 0d 18 06 13 20 74 64 65 3d |*.(3*A).... tde=|
000037f0 b7 28 b2 28 64 65 63 6c 29 29 0d 18 10 17 20 f4 |.(.(decl)).... .|
00003800 20 65 71 75 61 74 69 6f 6e 20 6f 66 20 74 69 6d | equation of tim|
00003810 65 0d 18 1a 70 20 65 71 75 3d 30 2e 30 30 38 2b |e...p equ=0.008+|
00003820 30 2e 35 31 2a 9b 28 41 29 2d 33 2e 31 39 37 2a |0.51*.(A)-3.197*|
00003830 9b 28 32 2a 41 29 2d 30 2e 31 30 36 2a 9b 28 33 |.(2*A)-0.106*.(3|
00003840 2a 41 29 2d 30 2e 31 35 2a 9b 28 34 2a 41 29 2d |*A)-0.15*.(4*A)-|
00003850 37 2e 33 31 37 2a b5 28 41 29 2d 39 2e 34 37 31 |7.317*.(A)-9.471|
00003860 2a b5 28 32 2a 41 29 2d 30 2e 33 39 31 2a b5 28 |*.(2*A)-0.391*.(|
00003870 33 2a 41 29 2d 30 2e 32 34 32 2a b5 28 34 2a 41 |3*A)-0.242*.(4*A|
00003880 29 0d 18 24 05 e1 0d 18 2e 05 3a 0d 18 38 0e dd |)..$......:..8..|
00003890 f2 72 69 73 65 5f 73 65 74 0d 18 42 0b 20 66 6c |.rise_set..B. fl|
000038a0 61 67 3d 30 0d 18 4c 11 20 61 3d 74 64 65 2a b7 |ag=0..L. a=tde*.|
000038b0 28 6c 61 74 29 0d 18 56 18 20 e7 20 61 3e 31 20 |(lat)..V. . a>1 |
000038c0 20 8c 20 66 6c 61 67 3d 31 20 3a 20 e1 0d 18 60 | . flag=1 : ...`|
000038d0 18 20 e7 20 61 3c 2d 31 20 8c 20 66 6c 61 67 3d |. . a<-1 . flag=|
000038e0 32 20 3a 20 e1 0d 18 6a 1d 20 62 3d 9d 28 2d 99 |2 : ...j. b=.(-.|
000038f0 28 61 2f b6 28 2d 61 2a 61 2b 31 29 29 2b af 2f |(a/.(-a*a+1))+./|
00003900 32 29 0d 18 74 0e 20 72 69 73 65 3d 62 2f 31 35 |2)..t. rise=b/15|
00003910 0d 18 7e 0e 20 73 65 74 3d 2d 72 69 73 65 0d 18 |..~. set=-rise..|
00003920 88 1b 20 73 65 74 3d 73 65 74 2b 74 69 6d 65 64 |.. set=set+timed|
00003930 69 66 2d 65 71 75 2f 36 30 0d 18 92 1d 20 72 69 |if-equ/60.... ri|
00003940 73 65 3d 72 69 73 65 2b 74 69 6d 65 64 69 66 2d |se=rise+timedif-|
00003950 65 71 75 2f 36 30 0d 18 9c 1a 20 e7 20 72 69 73 |equ/60.... . ris|
00003960 65 3e 3d 32 34 20 8c 20 72 69 73 65 2d 3d 32 34 |e>=24 . rise-=24|
00003970 0d 18 a6 1a 20 e7 20 72 69 73 65 3c 3d 30 20 20 |.... . rise<=0 |
00003980 8c 20 72 69 73 65 2b 3d 32 34 0d 18 b0 19 20 e7 |. rise+=24.... .|
00003990 20 73 65 74 3e 3d 32 34 20 20 8c 20 73 65 74 2d | set>=24 . set-|
000039a0 3d 32 34 0d 18 ba 19 20 e7 20 73 65 74 3c 3d 30 |=24.... . set<=0|
000039b0 20 20 20 8c 20 73 65 74 2b 3d 32 34 0d 18 c4 05 | . set+=24....|
000039c0 e1 0d 18 ce 05 3a 0d 18 d8 0a dd f2 70 6c 6f 74 |.....:......plot|
000039d0 0d 18 e2 22 20 59 25 3d 79 6f 66 66 73 65 74 2b |..." Y%=yoffset+|
000039e0 6c 61 74 64 65 67 2a 34 20 3a f4 20 2f 31 35 2a |latdeg*4 :. /15*|
000039f0 36 30 0d 18 ec 0e 20 c8 8e 20 66 6c 61 67 20 ca |60.... .. flag .|
00003a00 0d 18 f6 09 20 20 c9 20 30 0d 19 00 12 20 20 20 |.... . 0.... |
00003a10 20 52 25 3d 34 38 2a 72 69 73 65 0d 19 0a 11 20 | R%=48*rise.... |
00003a20 20 20 20 53 25 3d 34 38 2a 73 65 74 0d 19 14 14 | S%=48*set....|
00003a30 20 20 20 20 e7 20 73 65 74 3e 72 69 73 65 20 8c | . set>rise .|
00003a40 0d 19 1e 23 20 20 20 20 20 20 c8 93 c8 90 20 30 |...# .... 0|
00003a50 2c 59 25 2c 52 25 2b 78 6f 66 66 73 65 74 2c 72 |,Y%,R%+xoffset,r|
00003a60 65 73 25 0d 19 28 27 20 20 20 20 20 20 c8 93 c8 |es%..(' ...|
00003a70 90 20 78 6f 66 66 73 65 74 2b 53 25 2c 59 25 2c |. xoffset+S%,Y%,|
00003a80 72 68 2d 53 25 2c 72 65 73 25 0d 19 32 09 20 20 |rh-S%,res%..2. |
00003a90 20 20 cc 0d 19 3c 27 20 20 20 20 20 20 c8 93 c8 | ...<' ...|
00003aa0 90 20 78 6f 66 66 73 65 74 2b 53 25 2c 59 25 2c |. xoffset+S%,Y%,|
00003ab0 52 25 2d 53 25 2c 72 65 73 25 0d 19 46 09 20 20 |R%-S%,res%..F. |
00003ac0 20 20 cd 0d 19 50 25 20 20 c9 20 32 20 3a 20 c8 | ...P% . 2 : .|
00003ad0 93 c8 90 20 30 2c 59 25 2c 72 68 2b 78 6f 66 66 |... 0,Y%,rh+xoff|
00003ae0 73 65 74 2c 72 65 73 25 0d 19 5a 06 20 cb 0d 19 |set,res%..Z. ...|
00003af0 64 05 e1 0d 19 6e 05 3a 0d 19 78 0d dd f2 70 6c |d....n.:..x...pl|
00003b00 6f 74 73 75 6e 0d 19 82 17 20 53 59 25 3d 64 65 |otsun.... SY%=de|
00003b10 63 6c 2a 34 2b 79 6f 66 66 73 65 74 0d 19 8c 22 |cl*4+yoffset..."|
00003b20 20 53 58 25 3d 78 6f 66 66 73 65 74 2b 28 28 31 | SX%=xoffset+((1|
00003b30 32 2b 74 69 6d 65 64 69 66 29 2a 34 38 29 0d 19 |2+timedif)*48)..|
00003b40 96 3f 20 c8 99 26 32 45 2c 31 36 2b 32 35 36 2c |.? ..&2E,16+256,|
00003b50 73 70 72 69 74 65 32 25 2c 22 54 45 4d 50 22 2c |sprite2%,"TEMP",|
00003b60 30 2c 53 58 25 2d 31 36 2c 53 59 25 2d 31 36 2c |0,SX%-16,SY%-16,|
00003b70 53 58 25 2b 31 36 2c 53 59 25 2b 31 36 0d 19 a0 |SX%+16,SY%+16...|
00003b80 09 20 e6 30 2c 37 0d 19 aa 1b 20 ec 20 53 58 25 |. .0,7.... . SX%|
00003b90 2d 31 36 2c 53 59 25 20 3a 20 df 42 59 33 32 2c |-16,SY% : .BY32,|
00003ba0 30 0d 19 b4 1b 20 ec 20 53 58 25 2c 53 59 25 2d |0.... . SX%,SY%-|
00003bb0 31 36 20 3a 20 df 42 59 30 2c 33 32 0d 19 be 11 |16 : .BY0,32....|
00003bc0 20 c8 8f 20 53 58 25 2c 53 59 25 2c 38 0d 19 c8 | .. SX%,SY%,8...|
00003bd0 13 20 e6 30 2c 73 75 6e 63 6f 6c 20 c8 9c 20 33 |. .0,suncol .. 3|
00003be0 0d 19 d2 13 20 c8 8f c8 90 20 53 58 25 2c 53 59 |.... .... SX%,SY|
00003bf0 25 2c 36 0d 19 dc 05 e1 0d 19 e6 05 3a 0d 19 f0 |%,6.........:...|
00003c00 0f dd f2 75 6e 70 6c 6f 74 73 75 6e 0d 19 fa 31 |...unplotsun...1|
00003c10 20 c8 99 26 32 45 2c 33 34 2b 32 35 36 2c 73 70 | ..&2E,34+256,sp|
00003c20 72 69 74 65 32 25 2c 22 54 45 4d 50 22 2c 53 58 |rite2%,"TEMP",SX|
00003c30 25 2d 31 36 2c 53 59 25 2d 31 36 2c 30 0d 1a 04 |%-16,SY%-16,0...|
00003c40 05 e1 0d 1a 0e 05 3a 0d 1a 18 0a dd f2 66 69 6c |......:......fil|
00003c50 6c 0d 1a 22 12 20 e6 20 31 32 38 2b 6c 61 6e 64 |l..". . 128+land|
00003c60 63 6f 6c 0d 1a 2c 09 20 f7 20 2b 31 0d 1a 36 06 |col..,. . +1..6.|
00003c70 20 f5 0d 1a 40 11 20 20 20 f3 20 6c 61 74 2c 6c | ...@. . lat,l|
00003c80 6f 6e 67 0d 1a 4a 31 20 20 20 f0 20 31 34 33 2c |ong..J1 . 143,|
00003c90 28 31 38 30 2b 6c 6f 6e 67 29 2a 33 2e 32 2b 78 |(180+long)*3.2+x|
00003ca0 6f 66 66 73 65 74 2c 6c 61 74 2a 34 2b 79 6f 66 |offset,lat*4+yof|
00003cb0 66 73 65 74 0d 1a 54 10 20 fd 20 6c 61 74 3d 26 |fset..T. . lat=&|
00003cc0 46 46 46 46 0d 1a 5e 32 20 ec 20 33 36 30 2a 33 |FFFF..^2 . 360*3|
00003cd0 2e 32 2c 36 30 2a 34 2b 79 6f 66 66 73 65 74 20 |.2,60*4+yoffset |
00003ce0 3a 20 f4 20 6d 6f 76 65 20 74 69 70 20 6f 66 20 |: . move tip of |
00003cf0 52 75 73 73 69 61 0d 1a 68 23 20 ec 20 33 36 39 |Russia..h# . 369|
00003d00 2a 33 2e 32 2b 78 6f 66 66 73 65 74 2c 37 30 2a |*3.2+xoffset,70*|
00003d10 34 2b 79 6f 66 66 73 65 74 0d 1a 72 19 20 f0 20 |4+yoffset..r. . |
00003d20 31 39 30 2c 30 2c 36 30 2a 34 2b 79 6f 66 66 73 |190,0,60*4+yoffs|
00003d30 65 74 0d 1a 7c 05 e1 0d 1a 86 05 3a 0d 1a 90 22 |et..|......:..."|
00003d40 f4 20 20 20 43 65 6e 74 72 65 20 66 6f 72 20 66 |. Centre for f|
00003d50 69 6c 6c 20 20 4c 61 74 2c 20 4c 6f 6e 67 0d 1a |ill Lat, Long..|
00003d60 9a 49 dc 20 35 33 2e 35 2c 2d 38 2c 35 34 2c 2d |.I. 53.5,-8,54,-|
00003d70 32 2c 35 31 2c 32 33 2c 36 34 2c 32 30 2c 37 36 |2,51,23,64,20,76|
00003d80 2c 2d 34 30 2c 35 30 2c 2d 38 30 2c 30 2c 2d 37 |,-40,50,-80,0,-7|
00003d90 30 2c 2d 31 39 2c 34 36 2c 2d 35 2c 31 34 31 2c |0,-19,46,-5,141,|
00003da0 2d 32 35 2c 31 33 35 0d 1a a4 4b dc 20 2d 32 2c |-25,135...K. -2,|
00003db0 31 31 32 2c 30 2c 31 31 34 2c 33 36 2c 31 33 38 |112,0,114,36,138|
00003dc0 2c 2d 37 32 2c 2d 36 37 2c 2d 37 35 2c 33 30 2c |,-72,-67,-75,30,|
00003dd0 32 30 2c 31 30 2c 36 37 2c 2d 37 30 2c 34 2c 31 |20,10,67,-70,4,1|
00003de0 30 32 2c 2d 31 2c 31 30 32 2c 36 35 2c 2d 31 37 |02,-1,102,65,-17|
00003df0 2e 35 0d 1a ae 11 dc 20 26 46 46 46 46 2c 26 46 |.5..... &FFFF,&F|
00003e00 46 46 46 0d 1a b8 05 3a 0d 1a c2 0e dd f2 63 6f |FFF....:......co|
00003e10 75 6e 74 72 79 73 0d 1a cc 10 20 e6 30 2c 63 6f |untrys.... .0,co|
00003e20 61 73 74 63 6f 6c 0d 1a d6 0f 20 50 25 3d 64 61 |astcol.... P%=da|
00003e30 74 61 62 75 66 0d 1a e0 16 20 58 25 3d 50 25 21 |tabuf.... X%=P%!|
00003e40 30 20 3a 20 59 25 3d 50 25 21 34 0d 1a ea 11 20 |0 : Y%=P%!4.... |
00003e50 c8 95 20 59 25 3c 3e 26 46 46 46 46 0d 1a f4 0e |.. Y%<>&FFFF....|
00003e60 20 20 20 ec 20 58 25 2c 59 25 0d 1a fe 20 20 20 | . X%,Y%... |
00003e70 20 50 25 2b 3d 38 20 3a 20 58 25 3d 50 25 21 30 | P%+=8 : X%=P%!0|
00003e80 20 3a 20 59 25 3d 50 25 21 34 0d 1b 08 13 20 20 | : Y%=P%!4.... |
00003e90 20 c8 95 20 58 25 3c 3e 26 46 46 46 46 0d 1b 12 | .. X%<>&FFFF...|
00003ea0 0e 20 20 20 20 20 50 25 2b 3d 38 0d 1b 1c 10 20 |. P%+=8.... |
00003eb0 20 20 20 20 df 20 58 25 2c 59 25 0d 1b 26 1a 20 | . X%,Y%..&. |
00003ec0 20 20 20 20 58 25 3d 50 25 21 30 20 3a 20 59 25 | X%=P%!0 : Y%|
00003ed0 3d 50 25 21 34 0d 1b 30 08 20 20 20 ce 0d 1b 3a |=P%!4..0. ...:|
00003ee0 20 20 20 20 50 25 2b 3d 38 20 3a 20 58 25 3d 50 | P%+=8 : X%=P|
00003ef0 25 21 30 20 3a 20 59 25 3d 50 25 21 34 0d 1b 44 |%!0 : Y%=P%!4..D|
00003f00 06 20 ce 0d 1b 4e 05 e1 0d 1b 58 05 3a 0d 1b 62 |. ...N....X.:..b|
00003f10 0e dd f2 61 73 73 65 6d 62 6c 65 0d 1b 6c 42 64 |...assemble..lBd|
00003f20 61 79 3d 30 20 20 3a 20 6d 6f 6e 74 68 3d 31 20 |ay=0 : month=1 |
00003f30 3a 20 79 65 61 72 3d 32 20 20 3a 20 68 6f 75 72 |: year=2 : hour|
00003f40 3d 33 20 20 20 3a 20 6d 69 6e 3d 34 20 20 20 3a |=3 : min=4 :|
00003f50 20 73 65 63 3d 35 20 3a 20 79 72 3d 36 0d 1b 76 | sec=5 : yr=6..v|
00003f60 3c 6c 65 61 70 3d 37 20 3a 20 61 63 63 3d 38 20 |<leap=7 : acc=8 |
00003f70 20 20 3a 20 74 6f 74 61 6c 3d 39 20 3a 20 74 61 | : total=9 : ta|
00003f80 62 6c 65 3d 31 30 20 3a 20 68 69 67 68 3d 31 31 |ble=10 : high=11|
00003f90 20 3a 20 6c 6f 77 3d 31 32 0d 1b 80 13 6c 69 6e | : low=12....lin|
00003fa0 6b 3d 31 34 20 3a 20 70 63 3d 31 35 0d 1b 8a 0e |k=14 : pc=15....|
00003fb0 de 20 63 6f 64 65 20 35 31 32 0d 1b 94 14 e3 20 |. code 512..... |
00003fc0 70 61 73 73 3d 30 20 b8 20 32 20 88 20 32 0d 1b |pass=0 . 2 . 2..|
00003fd0 9e 0d 20 20 50 25 3d 63 6f 64 65 0d 1b a8 0e 5b |.. P%=code....[|
00003fe0 20 4f 50 54 20 70 61 73 73 0d 1b b2 3b 3b 20 63 | OPT pass...;; c|
00003ff0 6f 6e 76 65 72 74 20 64 61 79 2c 6d 6f 6e 74 68 |onvert day,month|
00004000 2c 79 65 61 72 2c 68 6f 75 72 2c 6d 69 6e 2c 73 |,year,hour,min,s|
00004010 65 63 20 69 6e 74 6f 20 35 20 62 79 74 65 20 74 |ec into 5 byte t|
00004020 69 6d 65 2e 0d 1b bc 4a 3b 20 61 63 63 75 72 61 |ime....J; accura|
00004030 74 65 20 31 39 30 31 20 2d 20 32 31 30 30 20 6f |te 1901 - 2100 o|
00004040 6e 6c 79 2e 20 28 31 30 30 20 61 6e 64 20 34 30 |nly. (100 and 40|
00004050 30 20 6c 65 61 70 20 79 65 61 72 73 20 6e 6f 74 |0 leap years not|
00004060 20 61 6c 6c 6f 77 65 64 20 66 6f 72 2e 29 0d 1b | allowed for.)..|
00004070 c6 1a 2e 62 61 73 65 79 65 61 72 20 20 45 51 55 |...baseyear EQU|
00004080 44 20 20 20 31 39 30 30 0d 1b d0 1a 2e 64 79 69 |D 1900.....dyi|
00004090 6e 79 72 20 20 20 20 45 51 55 44 20 20 20 20 33 |nyr EQUD 3|
000040a0 36 35 0d 1b da 40 2e 6d 75 6c 74 20 20 20 20 20 |65...@.mult |
000040b0 20 45 51 55 44 20 20 31 36 38 37 35 20 20 3b 20 | EQUD 16875 ; |
000040c0 32 34 2a 36 30 2a 36 30 2a 31 30 30 20 63 65 6e |24*60*60*100 cen|
000040d0 74 69 73 65 63 73 20 70 65 72 20 64 61 79 20 3e |tisecs per day >|
000040e0 3e 39 0d 1b e4 0d 2e 64 79 74 6f 6d 6e 74 68 0d |>9.....dytomnth.|
000040f0 1b ee 1c 20 20 20 45 51 55 44 20 20 20 30 20 20 |... EQUD 0 |
00004100 20 3b 20 6e 6f 74 20 75 73 65 64 0d 1b f8 3f 20 | ; not used...? |
00004110 20 20 45 51 55 44 20 20 20 30 20 20 20 3b 20 4e | EQUD 0 ; N|
00004120 75 6d 62 65 72 20 6f 66 20 64 61 79 73 20 62 65 |umber of days be|
00004130 66 6f 72 65 20 74 68 69 73 20 6d 6f 6e 74 68 20 |fore this month |
00004140 28 73 6f 20 4a 61 6e 3d 30 29 0d 1c 02 0f 20 20 |(so Jan=0).... |
00004150 20 45 51 55 44 20 20 33 31 0d 1c 0c 0f 20 20 20 | EQUD 31.... |
00004160 45 51 55 44 20 20 35 39 0d 1c 16 0f 20 20 20 45 |EQUD 59.... E|
00004170 51 55 44 20 20 39 30 0d 1c 20 10 20 20 20 45 51 |QUD 90.. . EQ|
00004180 55 44 20 20 31 32 30 0d 1c 2a 10 20 20 20 45 51 |UD 120..*. EQ|
00004190 55 44 20 20 31 35 31 0d 1c 34 10 20 20 20 45 51 |UD 151..4. EQ|
000041a0 55 44 20 20 31 38 31 0d 1c 3e 10 20 20 20 45 51 |UD 181..>. EQ|
000041b0 55 44 20 20 32 31 32 0d 1c 48 10 20 20 20 45 51 |UD 212..H. EQ|
000041c0 55 44 20 20 32 34 33 0d 1c 52 10 20 20 20 45 51 |UD 243..R. EQ|
000041d0 55 44 20 20 32 37 33 0d 1c 5c 10 20 20 20 45 51 |UD 273..\. EQ|
000041e0 55 44 20 20 33 30 34 0d 1c 66 10 20 20 20 45 51 |UD 304..f. EQ|
000041f0 55 44 20 20 33 33 34 0d 1c 70 0c 2e 63 6f 6e 76 |UD 334..p..conv|
00004200 65 72 74 0d 1c 7a 35 4c 44 52 20 61 63 63 2c 62 |ert..z5LDR acc,b|
00004210 61 73 65 79 65 61 72 20 20 20 20 20 20 20 20 20 |aseyear |
00004220 3b 20 66 65 74 63 68 20 62 61 73 65 20 79 65 61 |; fetch base yea|
00004230 72 20 28 31 39 30 30 29 0d 1c 84 2e 53 55 42 20 |r (1900)....SUB |
00004240 79 72 2c 79 65 61 72 2c 61 63 63 20 20 20 20 20 |yr,year,acc |
00004250 20 20 20 20 20 3b 20 79 72 3d 20 79 65 61 72 20 | ; yr= year |
00004260 2d 20 31 39 30 30 0d 1c 8e 2e 53 55 42 20 61 63 |- 1900....SUB ac|
00004270 63 2c 79 72 2c 23 31 20 20 20 20 20 20 20 20 20 |c,yr,#1 |
00004280 20 20 20 3b 20 6c 65 61 70 3d 28 79 72 2d 31 29 | ; leap=(yr-1)|
00004290 20 81 20 34 0d 1c 98 24 4d 4f 56 20 6c 65 61 70 | . 4...$MOV leap|
000042a0 2c 61 63 63 2c 4c 53 52 20 23 32 20 20 20 20 20 |,acc,LSR #2 |
000042b0 20 3b 20 28 81 20 34 29 0d 1c a2 27 4c 44 52 20 | ; (. 4)...'LDR |
000042c0 61 63 63 2c 64 79 69 6e 79 72 20 20 20 20 20 20 |acc,dyinyr |
000042d0 20 20 20 20 20 3b 20 6c 6f 61 64 20 33 36 35 0d | ; load 365.|
000042e0 1c ac 38 4d 4c 41 20 74 6f 74 61 6c 2c 61 63 63 |..8MLA total,acc|
000042f0 2c 79 72 2c 6c 65 61 70 20 20 20 20 3b 20 74 6f |,yr,leap ; to|
00004300 74 61 6c 3d 79 65 61 72 73 2a 33 36 35 2b 6c 65 |tal=years*365+le|
00004310 61 70 20 64 61 79 73 0d 1c b6 42 41 44 52 20 74 |ap days...BADR t|
00004320 61 62 6c 65 2c 64 79 74 6f 6d 6e 74 68 20 20 20 |able,dytomnth |
00004330 20 20 20 20 20 20 20 20 20 3b 20 61 64 64 72 65 | ; addre|
00004340 73 73 20 6f 66 20 64 61 79 73 2d 69 6e 2d 6d 6f |ss of days-in-mo|
00004350 6e 74 68 20 74 61 62 6c 65 0d 1c c0 44 4c 44 52 |nth table...DLDR|
00004360 20 61 63 63 2c 5b 74 61 62 6c 65 2c 6d 6f 6e 74 | acc,[table,mont|
00004370 68 2c 4c 53 4c 23 32 5d 20 20 20 3b 20 67 65 74 |h,LSL#2] ; get|
00004380 20 6e 6f 2e 20 6f 66 20 64 61 79 73 20 75 70 20 | no. of days up |
00004390 74 6f 20 74 68 69 73 20 6d 6f 6e 74 68 0d 1c ca |to this month...|
000043a0 3b 41 44 44 20 74 6f 74 61 6c 2c 74 6f 74 61 6c |;ADD total,total|
000043b0 2c 61 63 63 20 20 20 20 20 20 20 20 20 20 20 3b |,acc ;|
000043c0 20 61 64 64 20 74 6f 20 64 61 79 73 20 61 63 63 | add to days acc|
000043d0 75 6d 61 6c 61 74 6f 72 0d 1c d4 48 41 44 44 20 |umalator...HADD |
000043e0 74 6f 74 61 6c 2c 74 6f 74 61 6c 2c 64 61 79 20 |total,total,day |
000043f0 20 20 20 20 20 3b 20 61 64 64 20 6e 6f 2e 20 6f | ; add no. o|
00004400 66 20 64 61 79 73 20 69 6e 20 74 68 69 73 20 6d |f days in this m|
00004410 6f 6e 74 68 20 75 70 20 74 6f 20 74 6f 64 61 79 |onth up to today|
00004420 0d 1c de 3b 53 55 42 20 74 6f 74 61 6c 2c 74 6f |...;SUB total,to|
00004430 74 61 6c 2c 23 31 20 20 20 20 20 20 20 3b 20 6c |tal,#1 ; l|
00004440 65 73 73 20 31 20 2d 20 74 6f 64 61 79 20 6e 6f |ess 1 - today no|
00004450 74 20 6f 76 65 72 20 79 65 74 21 0d 1c e8 34 4d |t over yet!...4M|
00004460 4f 56 20 61 63 63 2c 79 65 61 72 2c 4c 53 52 20 |OV acc,year,LSR |
00004470 23 32 20 20 20 20 20 20 3b 20 67 65 74 20 74 68 |#2 ; get th|
00004480 69 73 20 79 65 61 72 2c 20 81 20 62 79 20 34 0d |is year, . by 4.|
00004490 1c f2 46 53 55 42 53 20 61 63 63 2c 79 65 61 72 |..FSUBS acc,year|
000044a0 2c 61 63 63 2c 4c 53 4c 20 23 32 20 3b 20 6d 75 |,acc,LSL #2 ; mu|
000044b0 6c 74 69 70 6c 79 20 62 79 20 34 20 61 67 61 69 |ltiply by 4 agai|
000044c0 6e 20 61 6e 64 20 73 75 62 74 72 61 63 74 20 28 |n and subtract (|
000044d0 3d 83 20 34 29 0d 1c fc 36 42 4e 45 20 74 6f 74 |=. 4)...6BNE tot|
000044e0 61 6c 64 61 79 73 20 20 20 20 20 20 20 20 20 20 |aldays |
000044f0 20 20 3b 20 62 72 61 6e 63 68 20 69 66 20 6e 6f | ; branch if no|
00004500 74 20 6c 65 61 70 20 79 65 61 72 0d 1d 06 43 43 |t leap year...CC|
00004510 4d 50 20 6d 6f 6e 74 68 2c 23 32 20 20 20 20 20 |MP month,#2 |
00004520 20 20 20 20 20 20 20 20 3b 20 69 66 20 6c 65 61 | ; if lea|
00004530 70 20 79 65 61 72 20 73 65 65 20 69 66 20 67 6f |p year see if go|
00004540 6e 65 20 70 61 73 74 20 46 65 62 20 32 39 0d 1d |ne past Feb 29..|
00004550 10 33 41 44 44 47 54 20 74 6f 74 61 6c 2c 74 6f |.3ADDGT total,to|
00004560 74 61 6c 2c 23 31 20 20 20 20 20 3b 20 69 66 20 |tal,#1 ; if |
00004570 73 6f 20 61 64 64 20 31 20 6d 6f 72 65 20 64 61 |so add 1 more da|
00004580 79 0d 1d 1a 3d 2e 74 6f 74 61 6c 64 61 79 73 20 |y...=.totaldays |
00004590 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 | ; |
000045a0 6e 6f 77 20 61 74 20 66 69 6e 61 6c 20 74 6f 74 |now at final tot|
000045b0 61 6c 20 6e 6f 2e 20 6f 66 20 64 61 79 73 0d 1d |al no. of days..|
000045c0 24 42 3b 20 73 75 6d 73 20 73 6f 20 66 61 72 20 |$B; sums so far |
000045d0 6b 65 70 74 20 75 6e 64 65 72 20 33 32 20 62 69 |kept under 32 bi|
000045e0 74 73 2e 20 4e 6f 77 20 6d 75 6c 74 69 70 6c 79 |ts. Now multiply|
000045f0 20 75 70 20 69 6e 74 6f 20 35 20 62 79 74 65 73 | up into 5 bytes|
00004600 0d 1d 2e 2d 4d 4f 56 20 68 69 67 68 2c 23 30 20 |...-MOV high,#0 |
00004610 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 7a | ; z|
00004620 65 72 6f 20 68 69 67 68 20 62 79 74 65 0d 1d 38 |ero high byte..8|
00004630 29 4c 44 52 20 61 63 63 2c 6d 75 6c 74 20 20 20 |)LDR acc,mult |
00004640 20 20 20 20 20 20 20 20 20 20 3b 20 6c 6f 61 64 | ; load|
00004650 20 31 36 38 37 35 0d 1d 42 37 4d 55 4c 20 6c 6f | 16875..B7MUL lo|
00004660 77 2c 74 6f 74 61 6c 2c 61 63 63 20 20 20 20 20 |w,total,acc |
00004670 20 20 20 3b 20 64 61 79 73 20 2a 20 31 36 38 37 | ; days * 1687|
00004680 35 20 74 6f 20 6c 6f 77 20 62 79 74 65 0d 1d 4c |5 to low byte..L|
00004690 43 4d 4f 56 20 6c 65 61 70 2c 23 39 20 20 20 20 |CMOV leap,#9 |
000046a0 20 20 20 20 20 20 20 20 20 20 3b 20 75 73 69 6e | ; usin|
000046b0 67 20 6c 65 61 70 20 72 65 67 69 73 74 65 72 20 |g leap register |
000046c0 66 6f 72 20 6c 6f 6f 70 20 63 6f 75 6e 74 65 72 |for loop counter|
000046d0 0d 1d 56 09 2e 6c 6f 6f 70 0d 1d 60 40 4d 4f 56 |..V..loop..`@MOV|
000046e0 20 20 68 69 67 68 2c 68 69 67 68 2c 20 4c 53 4c | high,high, LSL|
000046f0 20 23 31 20 20 20 3b 20 6d 75 6c 74 69 70 6c 79 | #1 ; multiply|
00004700 20 62 79 20 32 5e 39 20 28 35 31 32 29 20 62 79 | by 2^9 (512) by|
00004710 20 73 68 69 66 74 69 6e 67 0d 1d 6a 36 4d 4f 56 | shifting..j6MOV|
00004720 53 20 6c 6f 77 2c 6c 6f 77 2c 4c 53 4c 20 23 31 |S low,low,LSL #1|
00004730 20 20 20 20 20 20 3b 20 6c 6f 77 20 62 79 74 65 | ; low byte|
00004740 20 74 68 72 6f 75 67 68 20 63 61 72 72 79 2e 0d | through carry..|
00004750 1d 74 28 41 44 43 20 20 68 69 67 68 2c 68 69 67 |.t(ADC high,hig|
00004760 68 2c 23 30 20 20 20 20 20 20 20 20 3b 20 61 64 |h,#0 ; ad|
00004770 64 20 63 61 72 72 79 0d 1d 7e 30 53 55 42 53 20 |d carry..~0SUBS |
00004780 6c 65 61 70 2c 6c 65 61 70 2c 23 31 20 20 20 20 |leap,leap,#1 |
00004790 20 20 20 20 3b 20 64 65 63 72 65 6d 65 6e 74 20 | ; decrement |
000047a0 63 6f 75 6e 74 65 72 0d 1d 88 0c 42 4e 45 20 6c |counter....BNE l|
000047b0 6f 6f 70 0d 1d 92 45 53 54 52 20 6c 6f 77 2c 74 |oop...ESTR low,t|
000047c0 69 6d 65 62 6c 6b 20 20 20 20 20 20 20 20 20 20 |imeblk |
000047d0 3b 20 73 74 6f 72 65 20 72 65 73 75 6c 74 20 6f |; store result o|
000047e0 66 20 64 61 79 73 2c 20 6e 6f 77 20 69 6e 20 63 |f days, now in c|
000047f0 65 6e 74 69 73 65 63 73 0d 1d 9c 16 53 54 52 20 |entisecs....STR |
00004800 68 69 67 68 2c 74 69 6d 65 62 6c 6b 2b 34 0d 1d |high,timeblk+4..|
00004810 a6 2a 3b 20 63 6f 6e 76 65 72 74 20 68 6f 75 72 |.*; convert hour|
00004820 73 2c 6d 69 6e 73 2c 73 65 63 73 20 74 6f 20 63 |s,mins,secs to c|
00004830 65 6e 74 69 73 65 63 73 0d 1d b0 0f 4d 4f 56 20 |entisecs....MOV |
00004840 61 63 63 2c 23 36 30 0d 1d ba 3b 4d 4c 41 20 6d |acc,#60...;MLA m|
00004850 69 6e 2c 68 6f 75 72 2c 61 63 63 2c 6d 69 6e 20 |in,hour,acc,min |
00004860 20 20 20 20 3b 20 68 6f 75 72 73 20 69 6e 74 6f | ; hours into|
00004870 20 6d 69 6e 73 20 61 6e 64 20 61 64 64 20 6d 69 | mins and add mi|
00004880 6e 73 0d 1d c4 38 4d 4c 41 20 73 65 63 2c 6d 69 |ns...8MLA sec,mi|
00004890 6e 2c 61 63 63 2c 73 65 63 20 20 20 20 20 20 3b |n,acc,sec ;|
000048a0 20 6d 69 6e 73 20 74 6f 20 73 65 63 73 20 61 6e | mins to secs an|
000048b0 64 20 61 64 64 20 73 65 63 73 0d 1d ce 10 4d 4f |d add secs....MO|
000048c0 56 20 61 63 63 2c 23 31 30 30 0d 1d d8 32 4d 55 |V acc,#100...2MU|
000048d0 4c 20 52 30 2c 73 65 63 2c 61 63 63 20 20 20 20 |L R0,sec,acc |
000048e0 20 20 20 20 20 20 20 3b 20 73 65 63 73 20 69 6e | ; secs in|
000048f0 74 6f 20 63 65 6e 74 69 73 65 63 73 0d 1d e2 20 |to centisecs... |
00004900 3b 20 6e 6f 77 20 61 64 64 20 6f 6e 20 74 6f 20 |; now add on to |
00004910 27 64 61 79 73 27 20 74 6f 74 61 6c 0d 1d ec 05 |'days' total....|
00004920 3a 0d 1d f6 32 3b 20 53 75 62 72 6f 75 74 69 6e |:...2; Subroutin|
00004930 65 20 74 6f 20 61 64 64 2f 73 75 62 74 72 61 63 |e to add/subtrac|
00004940 74 20 52 30 20 74 6f 20 35 2d 62 79 74 65 20 74 |t R0 to 5-byte t|
00004950 69 6d 65 0d 1e 00 2f 2e 61 64 64 20 20 4c 44 52 |ime.../.add LDR|
00004960 20 20 52 31 2c 74 69 6d 65 62 6c 6b 20 20 20 20 | R1,timeblk |
00004970 20 3b 20 67 65 74 20 6c 6f 77 20 34 20 62 79 74 | ; get low 4 byt|
00004980 65 73 0d 1e 0a 2c 20 20 20 20 20 20 4c 44 52 42 |es..., LDRB|
00004990 20 52 32 2c 74 69 6d 65 62 6c 6b 2b 34 20 20 20 | R2,timeblk+4 |
000049a0 3b 20 67 65 74 20 68 69 67 68 62 79 74 65 0d 1e |; get highbyte..|
000049b0 14 2c 20 20 20 20 20 20 4d 4f 56 53 20 52 30 2c |., MOVS R0,|
000049c0 52 30 20 20 20 20 20 20 20 20 20 20 3b 20 73 65 |R0 ; se|
000049d0 65 20 69 66 20 6d 69 6e 75 73 0d 1e 1e 12 20 20 |e if minus.... |
000049e0 20 20 20 20 42 4d 49 20 20 73 75 62 0d 1e 28 32 | BMI sub..(2|
000049f0 20 20 20 20 20 20 41 44 44 53 20 52 31 2c 52 30 | ADDS R1,R0|
00004a00 2c 52 31 20 20 20 20 20 20 20 3b 20 61 64 64 20 |,R1 ; add |
00004a10 52 30 20 28 41 25 29 20 74 6f 20 6c 6f 77 0d 1e |R0 (A%) to low..|
00004a20 32 37 20 20 20 20 20 20 41 44 43 53 20 52 32 2c |27 ADCS R2,|
00004a30 52 32 2c 23 30 20 20 20 20 20 20 20 3b 20 61 64 |R2,#0 ; ad|
00004a40 64 20 63 61 72 72 79 20 61 6e 64 20 68 69 67 68 |d carry and high|
00004a50 20 62 79 74 65 0d 1e 3c 13 20 20 20 20 20 20 42 | byte..<. B|
00004a60 41 4c 20 20 64 6f 6e 65 0d 1e 46 2d 2e 73 75 62 |AL done..F-.sub|
00004a70 20 20 52 53 42 20 20 52 30 2c 52 30 2c 23 30 20 | RSB R0,R0,#0 |
00004a80 20 20 20 20 20 20 3b 20 6d 61 6b 65 20 70 6f 73 | ; make pos|
00004a90 69 74 69 76 65 0d 1e 50 34 20 20 20 20 20 20 53 |itive..P4 S|
00004aa0 55 42 53 20 52 31 2c 52 31 2c 52 30 20 20 20 20 |UBS R1,R1,R0 |
00004ab0 20 20 20 3b 20 73 75 62 20 52 30 20 28 41 25 29 | ; sub R0 (A%)|
00004ac0 20 66 72 6f 6d 20 6c 6f 77 0d 1e 5a 29 20 20 20 | from low..Z) |
00004ad0 20 20 20 53 42 43 53 20 52 32 2c 52 32 2c 23 30 | SBCS R2,R2,#0|
00004ae0 20 20 20 20 20 20 20 3b 20 73 75 62 20 63 61 72 | ; sub car|
00004af0 72 79 0d 1e 64 04 0d 1e 6e 2a 2e 64 6f 6e 65 20 |ry..d...n*.done |
00004b00 53 54 52 20 20 52 31 2c 74 69 6d 65 62 6c 6b 20 |STR R1,timeblk |
00004b10 20 20 20 20 3b 20 73 74 6f 72 65 20 62 61 63 6b | ; store back|
00004b20 0d 1e 78 2e 20 20 20 20 20 20 53 54 52 20 20 52 |..x. STR R|
00004b30 32 2c 74 69 6d 65 62 6c 6b 2b 34 20 20 20 3b 20 |2,timeblk+4 ; |
00004b40 73 74 6f 72 65 20 68 69 67 68 62 79 74 65 0d 1e |store highbyte..|
00004b50 82 16 20 20 20 20 20 20 4d 4f 56 20 20 70 63 2c |.. MOV pc,|
00004b60 6c 69 6e 6b 0d 1e 8c 07 5d 20 ed 0d 1e 96 05 e1 |link....] ......|
00004b70 0d ff |..|
00004b72 
.