�     >!WorldTime!progOS2
%�     World Clock with Terminator
� By  P E Marshall
('� For 32-bit machines WITH OS2 ONLY
2
� (c) BAU
<:� �error
F�initalize
P
� �error
Z�
d    ș&42 � T%
nB    ș&400E1,&81810,blk%,T%+50 � reason,ptr% : � Wimp_PollIdle
x  Ȏ reason �
�C    � 0 : � active � ș "Hourglass_On":�main:ș "Hourglass_Off"
�    � 1 : �redrawwindow
�3    � 2 : ș "Wimp_OpenWindow",,ptr% : active=�
�&    � 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 : $localbuf%="-4"

�' � timebuf%  16 : $timebuf%="12:00"

�' � datebuf%  16 : $datebuf%="01/06"

�% � stepmins% 16 : $stepmins%="15"

�$ � stepdays% 16 : $stepdays%="0"

�D � blk%   &200, menu1% &200, menu2% &100,menu3% &100,menu4% &100

�D � menu5% &100, menu6% &100, menu7% &100,menu8% &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(menu2%,"Local-UTC",localbuf%)
X+ �write_sub(menu6%,"Minutes",stepmins%)
b( �write_sub(menu7%,"Days",stepdays%)
l sprite1size=640*200+100
v sprite2size=16*16+100
�0 � 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
� � timeformat 128
� � timestring 128
 �assemble
 �+1

 I%=-1
  �
*   I%+=1
42   � cityname$(I%),y,x,citytime(I%),smtype(I%)
>$   cityX(I%)=(180+x)*3.2+xoffset
H   cityY(I%)=y*4+yoffset
R � cityname$(I%)="end"
\ no_citys=I%-1
f �menu9
p oldtime=0
z � col_tab% 256,scale% 16
�
 �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
8�"Denver>",39,-105,-7,1
B�"Dubai>",25,55,4,0
L�"Hong Kong>",22,114,8,0
V�"Honolulu�",21,-158,-10,0
`�"Jerusalem�",32,35,2,0
j�"Joh'burg>",-26,28,2,2
t�"Kuwait�",29,47,3,0
~�"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
2�"end",0,0,0,0
<:
F'ݤcreate(ww,wh,T$,wf,wb,flags,addr)
P blk%!24=-1:blk%!28=flags
Z blk%?32=7 :blk%?33=2
d blk%?34=wf:blk%?35=wb
n blk%?36=3 :blk%?37=2
x blk%?38=12:blk%?39=0
� 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
":
,��setup_subs
6
@�
J:
T��menu1
^
 �infobox
h flags=&7000021
r P%=menu1%
|" �menu_header("World Time",14)
�- �menu_item(&00,info_window,flags,"Info")
�0 �menu_item(&00,menu3%,flags,"Display Date")
�0 �menu_item(&00,menu4%,flags,"Display Time")
�- �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")
�0 �menu_item(&00,menu2%,flags,"Local Offset")
�* �menu_item(&00,-1,flags,"Save setup")
�$ �menu_item(&80,-1,flags,"Quit")
�
��
:
��menu3
 flags=&7000021
& P%=menu3%
0" �menu_header("Date dd/mm",12)
:+ �menu_item(&00-today,-1,flags,"Today")
D& �write_item(&84-� today,datebuf%)
N�
X:
b��menu4
l flags=&7000021
v P%=menu4%
�" �menu_header("Time hh:mm",12)
�, �menu_item(&00-realtime,-1,flags,"Now")
�) �write_item(&84-� realtime,timebuf%)
��
�:
���menu5
� 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
4:  �menu_item(&00-cityon%(I%),-1,flags,�cityname$(I%)))
> �
HF  �menu_item(&80-cityon%(no_citys),-1,flags,�cityname$(no_citys)))
R�
\:
f��write_sub(P%,h$,adr%)
p �menu_header(h$,12)
z �write_item(&84,adr%)
��
�:
���write_item(A%,adr%)
� P%!0=A%
� P%!4=-1
� P%!8=&7000119
� P%!12=adr%
�
 P%!16=-1
�
 P%!20=16
��
�:
���menu_header(T$,w)
� $P%=T$
	 P%!12=&70207
	 P%!16=w*16
	
 P%!20=44
	$ P%!24=0
	. P%+=28
	8�
	B:
	L��menu_item(A%,B%,C%,T$)
	V P%!0=A%
	` P%!4=B%
	j P%!8=C%
	t $(P%+12)=T$
	~ P%+=24
	��
	�:
	�
��iconbar
	� blk%!0=-1
	�
 blk%!4=0
	�
 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
2 �+1
< � I%=0 � 3
F   � t$,$P%
P8   �create_icon(info_window,0,16,180,y,t$,&17000211)
Z9   �create_icon(info_window,P%,190,660,y,"",&700013D)
d   y-=60 : P%+=32
n �
x% �openup(info_window,0,0,680,244)
� �shut(info_window)
� � "Name :","World Time"
�0 � "Purpose :","Clock & Sunlight terminator"
�. � "Author :","P E Marshall, Antigua W.I."
�+ � "Version :","1.31 (1/1/94) OS2 ONLY"
��
�:
�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
6 �
@ ș"Wimp_CreateIcon",,blk%
J�
T:
^��openup(handle,x,y,w,h)
h blk%!0=handle
r blk%!4=x    :blk%!8=y-h
| blk%!12=x+w :blk%!16=y
� blk%!20=0   :blk%!24=0
� blk%!28=-1
� ș "Wimp_OpenWindow",,blk%
��
�:
�
��clicked
� handle=ptr%!12
� button=ptr%!8
� icon=ptr%!16
�N � (button � 4) � icon=iconbar � �openup(window1,20,900,1160,700):active=�
�{ � button � 2 � active=� : ș "Wimp_CreateMenu",,menu1%,ptr%!0-64,-ptr%!4*(icon<>iconbar)-(icon=iconbar)*688 � active=�
��
�:
��process_menu
 Ȏ ptr%!0 �
   � 1 :
&     Ȏ ptr%!4 �
0!       � 0 : today=� : �menu3
:        � 1 : today=�: �menu3
D
     �
N   � 2 :
X     Ȏ ptr%!4 �
b$       � 0 : realtime=� : �menu4
l#       � 1 : realtime=�: �menu4
v
     �
�6   � 3 : � ptr%!4=-1 � step=step � -1 : � step = �
�         �menu1
�0   � 4 : termi=termi � -1 : �menu1 : �screen
�"   � 5 : sun=sun � -1 : �menu1
�2   � 6 : clocks=clocks � -1 : �menu1 : �screen
�   � 7 :  Q%=ptr%!4
�     � Q%=-1 �
�       cities=cities � -1
�       �menu1
�
     �
�'       cityon%(Q%)=cityon%(Q%) � -1
�       �menu9
�
     �

     �screen

   � 9 : �save

   � 10: quit=�

  �

*" ș"Wimp_GetPointerInfo",,blk%

4 button=blk%!8

>A � button � 1 � ș "Wimp_CreateMenu",,menu1%,ptr%!0-64,ptr%!4

H oldtime=0

R. � �(�($stepdays%))>400 � $stepdays%="400"

\�

f:

p��redrawwindow

z
 � window

� handle=ptr%!0

�( ș "Wimp_RedrawWindow",,ptr% � flag

� ȕ flag<>0

�(   � handle=window1 � �write_window1

�*   ș "Wimp_GetRectangle",,ptr% � flag

� �

��

�:

���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
$ �
.�
8:
B��write_window1
LY ș &2E,52+256,sprite1%,"SCREEN",ptr%!4-ptr%!20,ptr%!16-700-ptr%!24,8,scale%,col_tab%
V�
`:
j��shut(handle)
t blk%!0=handle
~  ș "Wimp_CloseWindow",,blk%
��
�:
���OSmessage
� reason=blk%!16
� Ȏ reason �
�   � 0 : quit=�
�"   � &400C1 : �mode : active=1
� �
��
�:
���error
� !blk%=0
# $(blk%+4)=�$+" at line "+Þ+�0

- ș"Wimp_ReportError",blk%,1,"World Time"
 ș"Wimp_CloseDown"
�
(�
2:
<
��foregnd
F ș&2E,V0%,V1%,V2%,V3%
P�
Z:
d
��backgnd
n5 ș&2E,60+256,sprite1%,"SCREEN" � V0%,V1%,V2%,V3%
x�
�:
�
��save
�# ch%=�("<WorldTime$Dir>.SETUP")
�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%
��
�:
�
��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%
6�
@:
J
��main
T$ � active=1 � active=� : �screen
^ localoffset=�($localbuf%)
h � � step �
r-   � get current time in 5-byte centisecs
|4   timeblk?0 = 3 : ș 7,14,timeblk : � "OS_Word"
�0   �addtime(-localoffset) : � Convert to UTC
� �
�4   �addtime(�($stepmins%)/60 + �($stepdays%)*24)
� �
� year=�timeval("%CE%YR")
� � today � step �
�   month=�timeval("%MN")
�   day=�timeval("%DY")
� �
�   month=�(�$datebuf%,2))
�   day=�(�$datebuf%,2))
� �
� � realtime � step �
    hour=�timeval("%24")
   min= �timeval("%MI")
 �
&   hour=�(�$timebuf%,2))
0   min=�(�$timebuf%,2))
: �
DG A%=day : B%=month : C%=year : D%=hour : E% =min : F%=0 : � convert
N$ � �(!timeblk-oldtime)< 6000 � �
X oldtime=!timeblk
b
l timedif=12-(hour+min/60)
v  � timedif<-12 � timedif+=24
� �equations
�
 �backgnd
� �unplotsun
� � termi   �greyline
�  � clocks  �clocks:�showdate
� � sun     �plotsun
�
 �foregnd
� �update
��
�:
���screen
� ș "Hourglass_On"
� SX%=0 : SY%=-100

 �backgnd
 �0,clearcol Ȝ 0
 ȓȐ0,0,1200,720
  �countrys
*
 �fill
4
 �grid
> �citys
H
 �foregnd
R oldtime=0
\ ș "Hourglass_Off"
f�
p:
z
��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
�$   � xoffset+X%*96,Y% : �17,0,L%
 �
�
:
$� -66.5,-23.5,0,23.5,66.5
.:
8
��mode
BE ș "Wimp_ReadPixTrans",&100,sprite1%,"SCREEN",,,,scale%,col_tab%
L5 ș "ColourTrans_SelectTable",15,0,-1,-1,col_tab%
V, ș "OS_ReadModeVariable",�,9 � r0,r1,r2
` � r2<>3 �
jS � modify colour trans table for best 16 colour effect (due to OR/AND plotting)
t	 � +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
� textcol=3
 citycol=63

 blackcol=0
 suncol=15
�
(:
23ݤtimetext(f$): � convert 5-byte time to string
< $timeformat=f$+�0
F � "OS_ConvertDateAndTime"
P4 ș &C1,timeblk,timestring,64,timeformat � r0,r1
Z ?r1=13
d=$timestring
n:
x2ݤtimeval(f$): � convert 5-byte time to number
� $timeformat=f$+�0
�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
��
�:
�ݤsummer(C%)
�	 S%=�
� weekday=�timeval("%WN")
 Ȏ 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
67   � (month=3 � 31-day+weekday<=7) � month>3 � S%=�
@7   � (month=9 � 31-day+weekday<=7) � month>9 � S%=�
JY  � 3 : � British summer time last Sunday March to Sunday after last Saturday October
T7   � (month=3 � 31-day+weekday<=7) � month>3 � S%=�
^9   � (month=10 � 28-day+weekday<=6) � month>10 � S%=�
h �
r=S%
|:
���showdate
� X%=40 : Y%=660
� �0,bckgndcol Ȝ0
� ȓȐ X%,Y%,1160,36
� �0,textcol
� � X%,Y%+30
� L%=timeblk!0:H%=timeblk!4
�9 � �timetext(" %24:%MI  %W3 %zDY%ST %M3 %CE%YR UTC");
�6 �addtime(localoffset)   : � convert back to Local
�= � �timetext("    %24:%MI  %W3 %zDY%ST %M3 %CE%YR Local")
� timeblk!0=L%:timeblk!4=H%
��
�:
��citys
�5
� I%=0 � no_citys
& � cityon%(I%) �
0"   X%=cityX(I%) : Y%=cityY(I%)
:   �0,citycol Ȝ 128
D   � cities ȓ X%,Y%,4,4
N   Ȏ �cityname$(I%)) �
X   � ">"
b     �0,8,0
l   � "<"
v$     �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%
� �
��
��
�:
���clocks
��5
� I%=0 � no_citys
  � cityon%(I%) �
%    X%=clockX(I%) : Y%=clockY(I%)
     �0,blackcol
*    ȓȐX%+8,Y%-64,80,32
4    �0,textcol
>!    H%=timeblk!4:L%=timeblk!0
H    �addtime(citytime(I%))
R+    � �summer(smtype(I%)) � �addtime(1)
\    � X%+10,Y%-36
f    � �timetext("%24:%MI")
p!    timeblk!4=H%:timeblk!0=L%
z  �
��
��
�:
���greyline
� � 1,25 Ȝ 0
� ȓȐ0,0,1200,652
� � 2,38 Ȝ 0
� � latdeg=-85 � 85 � res%/2
�   lat=�(latdeg)
�   �rise_set
�   �plot
� �
��
:
��equations
" A=2*�*(�timeval("%DN")-1)/365
$ � 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)
8 tde=�(�(decl))
B � equation of time
Lp 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)
V�
`:
j��rise_set
t flag=0
~ a=tde*�(lat)
� � a>1  � flag=1 : �
� � a<-1 � flag=2 : �
� b=�(-�(a/�(-a*a+1))+�/2)
� 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
2    R%=48*rise
<    S%=48*set
F    � set>rise �
P#      ȓȐ 0,Y%,R%+xoffset,res%
Z'      ȓȐ xoffset+S%,Y%,rh-S%,res%
d	    �
n'      ȓȐ xoffset+S%,Y%,R%-S%,res%
x	    �
�%  � 2 : ȓȐ 0,Y%,rh+xoffset,res%
� �
��
�:
�
��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
6�
@:
J
��fill
T � 128+landcol
^	 � +1
h �
r   � lat,long
|1   � 143,(180+long)*3.2+xoffset,lat*4+yoffset
� � lat=&FFFF
�2 � 360*3.2,60*4+yoffset : � move tip of Russia
�# � 369*3.2+xoffset,70*4+yoffset
� � 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%
0    P%+=8 : X%=P%!0 : Y%=P%!4
:   ȕ X%<>&FFFF
D     P%+=8
N     � X%,Y%
X     X%=P%!0 : Y%=P%!4
b   �
l    P%+=8 : X%=P%!0 : Y%=P%!4
v �
��
�:
���assemble
�Bday=0  : month=1 : year=2  : hour=3   : min=4   : sec=5 : yr=6
�<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)
4   EQUD  31
>   EQUD  59
H   EQUD  90
R   EQUD  120
\   EQUD  151
f   EQUD  181
p   EQUD  212
z   EQUD  243
�   EQUD  273
�   EQUD  304
�   EQUD  334
�.convert
�5LDR 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
8CCMP month,#2             ; if leap year see if gone past Feb 29
B3ADDGT total,total,#1     ; if so add 1 more day
L=.totaldays               ; now at final total no. of days
VB; sums so far kept under 32 bits. Now multiply up into 5 bytes
`-MOV high,#0              ; zero high byte
j)LDR acc,mult             ; load 16875
t7MUL low,total,acc        ; days * 16875 to low byte
~CMOV leap,#9              ; using leap register for loop counter
�	.loop
�@MOV  high,high, LSL #1   ; multiply by 2^9 (512) by shifting
�6MOVS low,low,LSL #1      ; low byte through carry.
�(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
2/.add  LDR  R1,timeblk     ; get low 4 bytes
<,      LDRB R2,timeblk+4   ; get highbyte
F,      MOVS R0,R0          ; see if minus
P      BMI  sub
Z2      ADDS R1,R0,R1       ; add R0 (A%) to low
d7      ADCS R2,R2,#0       ; add carry and high byte
n      BAL  done
x-.sub  RSB  R0,R0,#0       ; make positive
�4      SUBS R1,R1,R0       ; sub R0 (A%) from low
�)      SBCS R2,R2,#0       ; sub carry
�
�*.done STR  R1,timeblk     ; store back
�.      STR  R2,timeblk+4   ; store highbyte
�      MOV  pc,link
�] �
��
�

00000000  0d 00 0a 1d f4 20 20 20  20 20 3e 21 57 6f 72 6c  |.....     >!Worl|
00000010  64 54 69 6d 65 21 70 72  6f 67 4f 53 32 0d 00 14  |dTime!progOS2...|
00000020  25 f4 20 20 20 20 20 57  6f 72 6c 64 20 43 6c 6f  |%.     World Clo|
00000030  63 6b 20 77 69 74 68 20  54 65 72 6d 69 6e 61 74  |ck with Terminat|
00000040  6f 72 0d 00 1e 16 f4 20  42 79 20 20 50 20 45 20  |or..... By  P E |
00000050  4d 61 72 73 68 61 6c 6c  0d 00 28 27 f4 20 46 6f  |Marshall..('. Fo|
00000060  72 20 33 32 2d 62 69 74  20 6d 61 63 68 69 6e 65  |r 32-bit machine|
00000070  73 20 57 49 54 48 20 4f  53 32 20 4f 4e 4c 59 0d  |s WITH OS2 ONLY.|
00000080  00 32 0d f4 20 28 63 29  20 42 41 55 0d 00 3c 0e  |.2.. (c) BAU..<.|
00000090  3a ee 85 20 f2 65 72 72  6f 72 0d 00 46 0e f2 69  |:.. .error..F..i|
000000a0  6e 69 74 61 6c 69 7a 65  0d 00 50 0d ee 85 20 f2  |nitalize..P... .|
000000b0  65 72 72 6f 72 0d 00 5a  05 f5 0d 00 64 12 20 20  |error..Z....d.  |
000000c0  20 20 c8 99 26 34 32 20  b8 20 54 25 0d 00 6e 42  |  ..&42 . T%..nB|
000000d0  20 20 20 20 c8 99 26 34  30 30 45 31 2c 26 38 31  |    ..&400E1,&81|
000000e0  38 31 30 2c 62 6c 6b 25  2c 54 25 2b 35 30 20 b8  |810,blk%,T%+50 .|
000000f0  20 72 65 61 73 6f 6e 2c  70 74 72 25 20 3a 20 f4  | reason,ptr% : .|
00000100  20 57 69 6d 70 5f 50 6f  6c 6c 49 64 6c 65 0d 00  | Wimp_PollIdle..|
00000110  78 11 20 20 c8 8e 20 72  65 61 73 6f 6e 20 ca 0d  |x.  .. reason ..|
00000120  00 82 43 20 20 20 20 c9  20 30 20 3a 20 e7 20 61  |..C    . 0 : . a|
00000130  63 74 69 76 65 20 8c 20  c8 99 20 22 48 6f 75 72  |ctive . .. "Hour|
00000140  67 6c 61 73 73 5f 4f 6e  22 3a f2 6d 61 69 6e 3a  |glass_On":.main:|
00000150  c8 99 20 22 48 6f 75 72  67 6c 61 73 73 5f 4f 66  |.. "Hourglass_Of|
00000160  66 22 0d 00 8c 1b 20 20  20 20 c9 20 31 20 3a 20  |f"....    . 1 : |
00000170  f2 72 65 64 72 61 77 77  69 6e 64 6f 77 0d 00 96  |.redrawwindow...|
00000180  33 20 20 20 20 c9 20 32  20 3a 20 c8 99 20 22 57  |3    . 2 : .. "W|
00000190  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
000001a0  2c 70 74 72 25 20 3a 20  61 63 74 69 76 65 3d b9  |,ptr% : active=.|
000001b0  0d 00 a0 26 20 20 20 20  c9 20 33 20 3a 20 f2 73  |...&    . 3 : .s|
000001c0  68 75 74 28 70 74 72 25  21 30 29 20 3a 20 61 63  |hut(ptr%!0) : ac|
000001d0  74 69 76 65 3d a3 0d 00  aa 16 20 20 20 20 c9 20  |tive=.....    . |
000001e0  35 20 3a 20 61 63 74 69  76 65 3d b9 0d 00 b4 16  |5 : active=.....|
000001f0  20 20 20 20 c9 20 36 20  3a 20 f2 63 6c 69 63 6b  |    . 6 : .click|
00000200  65 64 0d 00 be 26 20 20  20 20 c9 20 39 20 3a 20  |ed...&    . 9 : |
00000210  f2 70 72 6f 63 65 73 73  5f 6d 65 6e 75 20 3a 20  |.process_menu : |
00000220  61 63 74 69 76 65 3d b9  0d 00 c8 1c 20 20 20 20  |active=.....    |
00000230  c9 20 31 37 2c 31 38 20  3a 20 f2 4f 53 6d 65 73  |. 17,18 : .OSmes|
00000240  73 61 67 65 0d 00 d2 07  20 20 cb 0d 00 dc 0c fd  |sage....  ......|
00000250  20 71 75 69 74 3d b9 0d  00 e6 16 c8 99 22 57 69  | quit=......."Wi|
00000260  6d 70 5f 43 6c 6f 73 65  44 6f 77 6e 22 0d 00 f0  |mp_CloseDown"...|
00000270  05 e0 0d 00 fa 05 3a 0d  01 04 0f dd f2 69 6e 69  |......:......ini|
00000280  74 61 6c 69 7a 65 0d 01  0e 22 20 43 25 3d 8e 28  |talize..." C%=.(|
00000290  22 3c 57 6f 72 6c 64 54  69 6d 65 24 44 69 72 3e  |"<WorldTime$Dir>|
000002a0  2e 4d 61 70 58 59 22 29  0d 01 18 13 20 de 20 64  |.MapXY").... . d|
000002b0  61 74 61 62 75 66 20 a2  23 43 25 0d 01 22 09 20  |atabuf .#C%..". |
000002c0  d9 23 43 25 0d 01 2c 2f  20 ff 28 22 4c 4f 41 44  |.#C%..,/ .("LOAD|
000002d0  20 3c 57 6f 72 6c 64 54  69 6d 65 24 44 69 72 3e  | <WorldTime$Dir>|
000002e0  2e 4d 61 70 58 59 20 22  2b c3 7e 64 61 74 61 62  |.MapXY "+.~datab|
000002f0  75 66 29 0d 01 36 0f 20  71 75 69 74 20 20 20 20  |uf)..6. quit    |
00000300  3d a3 0d 01 40 0f 20 74  65 72 6d 69 20 20 20 3d  |=...@. termi   =|
00000310  b9 0d 01 4a 0f 20 63 6c  6f 63 6b 73 20 20 3d b9  |...J. clocks  =.|
00000320  0d 01 54 0f 20 63 69 74  69 65 73 20 20 3d b9 0d  |..T. cities  =..|
00000330  01 5e 0f 20 73 75 6e 20  20 20 20 20 3d b9 0d 01  |.^. sun     =...|
00000340  68 0f 20 74 6f 64 61 79  20 20 20 3d b9 0d 01 72  |h. today   =...r|
00000350  0f 20 72 65 61 6c 74 69  6d 65 3d b9 0d 01 7c 10  |. realtime=...|.|
00000360  20 61 63 74 69 76 65 20  20 3d 20 31 0d 01 86 0f  | active  = 1....|
00000370  20 73 74 65 70 20 20 20  20 3d a3 0d 01 90 0a 20  | step    =..... |
00000380  64 73 74 3d 30 0d 01 9a  0a 20 65 73 74 3d 30 0d  |dst=0.... est=0.|
00000390  01 a4 25 20 de 20 6c 6f  63 61 6c 62 75 66 25 20  |..% . localbuf% |
000003a0  31 36 20 3a 20 24 6c 6f  63 61 6c 62 75 66 25 3d  |16 : $localbuf%=|
000003b0  22 2d 34 22 0d 01 ae 27  20 de 20 74 69 6d 65 62  |"-4"...' . timeb|
000003c0  75 66 25 20 20 31 36 20  3a 20 24 74 69 6d 65 62  |uf%  16 : $timeb|
000003d0  75 66 25 3d 22 31 32 3a  30 30 22 0d 01 b8 27 20  |uf%="12:00"...' |
000003e0  de 20 64 61 74 65 62 75  66 25 20 20 31 36 20 3a  |. datebuf%  16 :|
000003f0  20 24 64 61 74 65 62 75  66 25 3d 22 30 31 2f 30  | $datebuf%="01/0|
00000400  36 22 0d 01 c2 25 20 de  20 73 74 65 70 6d 69 6e  |6"...% . stepmin|
00000410  73 25 20 31 36 20 3a 20  24 73 74 65 70 6d 69 6e  |s% 16 : $stepmin|
00000420  73 25 3d 22 31 35 22 0d  01 cc 24 20 de 20 73 74  |s%="15"...$ . st|
00000430  65 70 64 61 79 73 25 20  31 36 20 3a 20 24 73 74  |epdays% 16 : $st|
00000440  65 70 64 61 79 73 25 3d  22 30 22 0d 01 d6 44 20  |epdays%="0"...D |
00000450  de 20 62 6c 6b 25 20 20  20 26 32 30 30 2c 20 6d  |. blk%   &200, m|
00000460  65 6e 75 31 25 20 26 32  30 30 2c 20 6d 65 6e 75  |enu1% &200, menu|
00000470  32 25 20 26 31 30 30 2c  6d 65 6e 75 33 25 20 26  |2% &100,menu3% &|
00000480  31 30 30 2c 6d 65 6e 75  34 25 20 26 31 30 30 0d  |100,menu4% &100.|
00000490  01 e0 44 20 de 20 6d 65  6e 75 35 25 20 26 31 30  |..D . menu5% &10|
000004a0  30 2c 20 6d 65 6e 75 36  25 20 26 31 30 30 2c 20  |0, menu6% &100, |
000004b0  6d 65 6e 75 37 25 20 26  31 30 30 2c 6d 65 6e 75  |menu7% &100,menu|
000004c0  38 25 20 26 31 30 30 2c  6d 65 6e 75 39 25 20 26  |8% &100,menu9% &|
000004d0  36 30 30 0d 01 ea 0a 20  4d 25 3d 34 30 0d 01 f4  |600.... M%=40...|
000004e0  3e 20 de 20 63 69 74 79  6e 61 6d 65 24 28 4d 25  |> . cityname$(M%|
000004f0  29 2c 63 69 74 79 58 28  4d 25 29 2c 63 69 74 79  |),cityX(M%),city|
00000500  59 28 4d 25 29 2c 63 6c  6f 63 6b 58 28 4d 25 29  |Y(M%),clockX(M%)|
00000510  2c 63 6c 6f 63 6b 59 28  4d 25 29 0d 01 fe 2a 20  |,clockY(M%)...* |
00000520  de 20 63 69 74 79 74 69  6d 65 28 4d 25 29 2c 73  |. citytime(M%),s|
00000530  6d 74 79 70 65 28 4d 25  29 2c 63 69 74 79 6f 6e  |mtype(M%),cityon|
00000540  25 28 4d 25 29 0d 02 08  44 20 c8 99 22 57 69 6d  |%(M%)...D .."Wim|
00000550  70 5f 49 6e 69 74 69 61  6c 69 73 65 22 20 2c 32  |p_Initialise" ,2|
00000560  30 30 2c 26 34 42 35 33  34 31 35 34 2c 22 57 6f  |00,&4B534154,"Wo|
00000570  72 6c 64 54 69 6d 65 22  20 b8 20 76 65 72 73 69  |rldTime" . versi|
00000580  6f 6e 25 2c 74 61 73 6b  25 0d 02 12 36 20 77 69  |on%,task%...6 wi|
00000590  6e 64 6f 77 31 3d a4 63  72 65 61 74 65 28 31 31  |ndow1=.create(11|
000005a0  36 32 2c 2d 37 30 30 2c  22 57 6f 72 6c 64 20 54  |62,-700,"World T|
000005b0  69 6d 65 22 2c 37 2c 33  2c 26 34 46 2c 30 29 0d  |ime",7,3,&4F,0).|
000005c0  02 1c 0a 20 f2 6c 6f 61  64 0d 02 26 0b 20 f2 6d  |... .load..&. .m|
000005d0  65 6e 75 31 0d 02 30 0b  20 f2 6d 65 6e 75 33 0d  |enu1..0. .menu3.|
000005e0  02 3a 0b 20 f2 6d 65 6e  75 34 0d 02 44 0b 20 f2  |.:. .menu4..D. .|
000005f0  6d 65 6e 75 35 0d 02 4e  2d 20 f2 77 72 69 74 65  |menu5..N- .write|
00000600  5f 73 75 62 28 6d 65 6e  75 32 25 2c 22 4c 6f 63  |_sub(menu2%,"Loc|
00000610  61 6c 2d 55 54 43 22 2c  6c 6f 63 61 6c 62 75 66  |al-UTC",localbuf|
00000620  25 29 0d 02 58 2b 20 f2  77 72 69 74 65 5f 73 75  |%)..X+ .write_su|
00000630  62 28 6d 65 6e 75 36 25  2c 22 4d 69 6e 75 74 65  |b(menu6%,"Minute|
00000640  73 22 2c 73 74 65 70 6d  69 6e 73 25 29 0d 02 62  |s",stepmins%)..b|
00000650  28 20 f2 77 72 69 74 65  5f 73 75 62 28 6d 65 6e  |( .write_sub(men|
00000660  75 37 25 2c 22 44 61 79  73 22 2c 73 74 65 70 64  |u7%,"Days",stepd|
00000670  61 79 73 25 29 0d 02 6c  1c 20 73 70 72 69 74 65  |ays%)..l. sprite|
00000680  31 73 69 7a 65 3d 36 34  30 2a 32 30 30 2b 31 30  |1size=640*200+10|
00000690  30 0d 02 76 1a 20 73 70  72 69 74 65 32 73 69 7a  |0..v. sprite2siz|
000006a0  65 3d 31 36 2a 31 36 2b  31 30 30 0d 02 80 30 20  |e=16*16+100...0 |
000006b0  de 20 73 70 72 69 74 65  31 25 20 73 70 72 69 74  |. sprite1% sprit|
000006c0  65 31 73 69 7a 65 2c 73  70 72 69 74 65 32 25 20  |e1size,sprite2% |
000006d0  73 70 72 69 74 65 32 73  69 7a 65 0d 02 8a 32 20  |sprite2size...2 |
000006e0  21 73 70 72 69 74 65 31  25 3d 73 70 72 69 74 65  |!sprite1%=sprite|
000006f0  31 73 69 7a 65 20 3a 20  21 73 70 72 69 74 65 32  |1size : !sprite2|
00000700  25 3d 73 70 72 69 74 65  32 73 69 7a 65 0d 02 94  |%=sprite2size...|
00000710  22 20 73 70 72 69 74 65  31 25 21 38 3d 31 36 20  |" sprite1%!8=16 |
00000720  3a 20 73 70 72 69 74 65  32 25 21 38 3d 31 36 0d  |: sprite2%!8=16.|
00000730  02 9e 2b 20 c8 99 26 32  45 2c 39 2b 32 35 36 2c  |..+ ..&2E,9+256,|
00000740  73 70 72 69 74 65 31 25  20 3a 20 f4 20 22 4f 53  |sprite1% : . "OS|
00000750  5f 53 70 72 69 74 65 4f  70 22 0d 02 a8 19 20 c8  |_SpriteOp".... .|
00000760  99 26 32 45 2c 39 2b 32  35 36 2c 73 70 72 69 74  |.&2E,9+256,sprit|
00000770  65 32 25 0d 02 b2 30 20  c8 99 26 32 45 2c 31 35  |e2%...0 ..&2E,15|
00000780  2b 32 35 36 2c 73 70 72  69 74 65 31 25 2c 22 53  |+256,sprite1%,"S|
00000790  43 52 45 45 4e 22 2c 30  2c 36 34 30 2c 32 30 30  |CREEN",0,640,200|
000007a0  2c 31 35 0d 02 bc 2c 20  c8 99 26 32 45 2c 31 35  |,15..., ..&2E,15|
000007b0  2b 32 35 36 2c 73 70 72  69 74 65 32 25 2c 22 54  |+256,sprite2%,"T|
000007c0  45 4d 50 22 2c 30 2c 31  36 2c 31 36 2c 31 35 0d  |EMP",0,16,16,15.|
000007d0  02 c6 0b 20 72 65 73 25  3d 34 0d 02 d0 0e 20 78  |... res%=4.... x|
000007e0  6f 66 66 73 65 74 3d 34  0d 02 da 10 20 79 6f 66  |offset=4.... yof|
000007f0  66 73 65 74 3d 33 30 38  0d 02 e4 10 20 de 20 74  |fset=308.... . t|
00000800  69 6d 65 62 6c 6b 20 38  0d 02 ee 15 20 de 20 74  |imeblk 8.... . t|
00000810  69 6d 65 66 6f 72 6d 61  74 20 31 32 38 0d 02 f8  |imeformat 128...|
00000820  15 20 de 20 74 69 6d 65  73 74 72 69 6e 67 20 31  |. . timestring 1|
00000830  32 38 0d 03 02 0e 20 f2  61 73 73 65 6d 62 6c 65  |28.... .assemble|
00000840  0d 03 0c 08 20 f7 2b 31  0d 03 16 0a 20 49 25 3d  |.... .+1.... I%=|
00000850  2d 31 0d 03 20 06 20 f5  0d 03 2a 0c 20 20 20 49  |-1.. . ...*.   I|
00000860  25 2b 3d 31 0d 03 34 32  20 20 20 f3 20 63 69 74  |%+=1..42   . cit|
00000870  79 6e 61 6d 65 24 28 49  25 29 2c 79 2c 78 2c 63  |yname$(I%),y,x,c|
00000880  69 74 79 74 69 6d 65 28  49 25 29 2c 73 6d 74 79  |itytime(I%),smty|
00000890  70 65 28 49 25 29 0d 03  3e 24 20 20 20 63 69 74  |pe(I%)..>$   cit|
000008a0  79 58 28 49 25 29 3d 28  31 38 30 2b 78 29 2a 33  |yX(I%)=(180+x)*3|
000008b0  2e 32 2b 78 6f 66 66 73  65 74 0d 03 48 1c 20 20  |.2+xoffset..H.  |
000008c0  20 63 69 74 79 59 28 49  25 29 3d 79 2a 34 2b 79  | cityY(I%)=y*4+y|
000008d0  6f 66 66 73 65 74 0d 03  52 1a 20 fd 20 63 69 74  |offset..R. . cit|
000008e0  79 6e 61 6d 65 24 28 49  25 29 3d 22 65 6e 64 22  |yname$(I%)="end"|
000008f0  0d 03 5c 12 20 6e 6f 5f  63 69 74 79 73 3d 49 25  |..\. no_citys=I%|
00000900  2d 31 0d 03 66 0b 20 f2  6d 65 6e 75 39 0d 03 70  |-1..f. .menu9..p|
00000910  0e 20 6f 6c 64 74 69 6d  65 3d 30 0d 03 7a 1d 20  |. oldtime=0..z. |
00000920  de 20 63 6f 6c 5f 74 61  62 25 20 32 35 36 2c 73  |. col_tab% 256,s|
00000930  63 61 6c 65 25 20 31 36  0d 03 84 0a 20 f2 6d 6f  |cale% 16.... .mo|
00000940  64 65 0d 03 8e 0d 20 f2  69 63 6f 6e 62 61 72 0d  |de.... .iconbar.|
00000950  03 98 0c 20 f2 73 63 72  65 65 6e 0d 03 a2 05 e1  |... .screen.....|
00000960  0d 03 ac 05 3a 0d 03 b6  52 f4 20 43 69 74 79 2c  |....:...R. City,|
00000970  4e 20 4c 61 74 2c 57 20  4c 6f 6e 67 2c 47 4d 54  |N Lat,W Long,GMT|
00000980  20 64 69 66 66 65 72 65  6e 63 65 2c 64 61 79 6c  | difference,dayl|
00000990  69 67 68 74 20 73 61 76  69 6e 67 20 30 3d 6e 6f  |ight saving 0=no|
000009a0  6e 65 20 31 3d 55 53 20  64 73 74 20 32 3d 65 75  |ne 1=US dst 2=eu|
000009b0  72 6f 20 33 3d 55 4b 0d  03 c0 48 f4 20 49 66 20  |ro 3=UK...H. If |
000009c0  6c 61 73 74 20 63 68 61  72 20 3c 20 74 65 78 74  |last char < text|
000009d0  20 6f 6e 20 6c 65 66 74  2c 20 3e 20 74 65 78 74  | on left, > text|
000009e0  20 6f 6e 20 72 69 67 68  74 20 6f 74 68 65 72 77  | on right otherw|
000009f0  69 73 65 20 74 65 78 74  20 62 65 6c 6f 77 2e 0d  |ise text below..|
00000a00  03 ca 04 0d 03 d4 1e dc  22 41 64 65 6c 61 69 64  |........"Adelaid|
00000a10  65 3c 22 2c 2d 33 35 2c  31 33 38 2c 39 2e 35 2c  |e<",-35,138,9.5,|
00000a20  30 0d 03 de 1e dc 22 41  6e 63 68 6f 72 61 67 65  |0....."Anchorage|
00000a30  8a 22 2c 36 31 2c 2d 31  34 39 2c 2d 39 2c 31 0d  |.",61,-149,-9,1.|
00000a40  03 e8 1b dc 22 41 6e 74  69 67 75 61 8a 22 2c 31  |...."Antigua.",1|
00000a50  37 2c 2d 36 31 2c 2d 34  2c 30 0d 03 f2 1a dc 22  |7,-61,-4,0....."|
00000a60  42 65 69 6a 69 6e 67 3c  22 2c 34 30 2c 31 31 36  |Beijing<",40,116|
00000a70  2c 38 2c 30 0d 03 fc 19  dc 22 42 72 75 73 73 65  |,8,0....."Brusse|
00000a80  6c 73 3e 22 2c 35 31 2c  34 2c 31 2c 32 0d 04 06  |ls>",51,4,1,2...|
00000a90  1d dc 22 43 61 6e 62 65  72 72 61 3e 22 2c 2d 33  |.."Canberra>",-3|
00000aa0  35 2c 31 34 39 2c 31 30  2c 30 0d 04 10 1c dc 22  |5,149,10,0....."|
00000ab0  43 61 70 65 20 54 6f 77  6e 8a 22 2c 2d 33 34 2c  |Cape Town.",-34,|
00000ac0  31 38 2c 32 2c 30 0d 04  1a 1b dc 22 43 61 72 61  |18,2,0....."Cara|
00000ad0  63 61 73 3e 22 2c 31 30  2c 2d 36 37 2c 2d 34 2c  |cas>",10,-67,-4,|
00000ae0  30 0d 04 24 1d dc 22 43  68 69 63 61 67 6f 3c 22  |0..$.."Chicago<"|
00000af0  2c 34 32 2c 2d 38 37 2e  35 2c 2d 36 2c 31 0d 04  |,42,-87.5,-6,1..|
00000b00  2e 19 dc 22 44 65 6c 68  69 8a 22 2c 32 38 2c 37  |..."Delhi.",28,7|
00000b10  37 2c 35 2e 35 2c 30 0d  04 38 1b dc 22 44 65 6e  |7,5.5,0..8.."Den|
00000b20  76 65 72 3e 22 2c 33 39  2c 2d 31 30 35 2c 2d 37  |ver>",39,-105,-7|
00000b30  2c 31 0d 04 42 17 dc 22  44 75 62 61 69 3e 22 2c  |,1..B.."Dubai>",|
00000b40  32 35 2c 35 35 2c 34 2c  30 0d 04 4c 1c dc 22 48  |25,55,4,0..L.."H|
00000b50  6f 6e 67 20 4b 6f 6e 67  3e 22 2c 32 32 2c 31 31  |ong Kong>",22,11|
00000b60  34 2c 38 2c 30 0d 04 56  1e dc 22 48 6f 6e 6f 6c  |4,8,0..V.."Honol|
00000b70  75 6c 75 8a 22 2c 32 31  2c 2d 31 35 38 2c 2d 31  |ulu.",21,-158,-1|
00000b80  30 2c 30 0d 04 60 1b dc  22 4a 65 72 75 73 61 6c  |0,0..`.."Jerusal|
00000b90  65 6d 8a 22 2c 33 32 2c  33 35 2c 32 2c 30 0d 04  |em.",32,35,2,0..|
00000ba0  6a 1b dc 22 4a 6f 68 27  62 75 72 67 3e 22 2c 2d  |j.."Joh'burg>",-|
00000bb0  32 36 2c 32 38 2c 32 2c  32 0d 04 74 18 dc 22 4b  |26,28,2,2..t.."K|
00000bc0  75 77 61 69 74 8a 22 2c  32 39 2c 34 37 2c 33 2c  |uwait.",29,47,3,|
00000bd0  30 0d 04 7e 15 dc 22 4c  61 67 6f 73 8a 22 2c 36  |0..~.."Lagos.",6|
00000be0  2c 33 2c 31 2c 30 0d 04  88 18 dc 22 4c 69 73 62  |,3,1,0....."Lisb|
00000bf0  6f 6e 8a 22 2c 33 38 2c  2d 39 2c 30 2c 32 0d 04  |on.",38,-9,0,2..|
00000c00  92 17 dc 22 4c 6f 6e 64  6f 6e 3c 22 2c 35 31 2c  |..."London<",51,|
00000c10  30 2c 30 2c 33 0d 04 9c  20 dc 22 4c 6f 73 20 41  |0,0,3... ."Los A|
00000c20  6e 67 65 6c 65 73 3c 22  2c 33 34 2c 2d 31 31 38  |ngeles<",34,-118|
00000c30  2c 2d 38 2c 31 0d 04 a6  1a dc 22 4d 65 78 69 63  |,-8,1....."Mexic|
00000c40  6f 3e 22 2c 31 39 2c 2d  39 39 2c 2d 36 2c 30 0d  |o>",19,-99,-6,0.|
00000c50  04 b0 18 dc 22 4d 6f 73  63 6f 77 3e 22 2c 35 35  |...."Moscow>",55|
00000c60  2c 33 37 2c 33 2c 32 0d  04 ba 1c dc 22 4e 65 77  |,37,3,2....."New|
00000c70  20 59 6f 72 6b 3e 22 2c  34 32 2c 2d 37 36 2c 2d  | York>",42,-76,-|
00000c80  35 2c 31 0d 04 c4 16 dc  22 50 61 72 69 73 3e 22  |5,1....."Paris>"|
00000c90  2c 34 39 2c 33 2c 31 2c  32 0d 04 ce 19 dc 22 50  |,49,3,1,2....."P|
00000ca0  65 72 74 68 3c 22 2c 2d  33 32 2c 31 31 36 2c 38  |erth<",-32,116,8|
00000cb0  2c 30 0d 04 d8 18 dc 22  52 69 6f 3e 22 2c 2d 32  |,0....."Rio>",-2|
00000cc0  33 2c 2d 34 33 2c 2d 33  2c 30 0d 04 e2 18 dc 22  |3,-43,-3,0....."|
00000cd0  53 65 6f 75 6c 8a 22 2c  33 37 2c 31 32 37 2c 39  |Seoul.",37,127,9|
00000ce0  2c 30 0d 04 ec 1b dc 22  53 79 64 6e 65 79 3e 22  |,0....."Sydney>"|
00000cf0  2c 2d 33 34 2c 31 35 31  2c 31 30 2c 30 0d 04 f6  |,-34,151,10,0...|
00000d00  1a dc 22 54 65 68 72 61  6e 3e 22 2c 33 35 2c 34  |.."Tehran>",35,4|
00000d10  39 2c 33 2e 35 2c 30 0d  05 00 18 dc 22 54 6f 6b  |9,3.5,0....."Tok|
00000d20  79 6f 3e 22 2c 33 35 2c  31 33 39 2c 39 2c 30 0d  |yo>",35,139,9,0.|
00000d30  05 0a 1b dc 22 54 6f 72  6f 6e 74 6f 3e 22 2c 34  |...."Toronto>",4|
00000d40  34 2c 2d 37 39 2c 2d 35  2c 31 0d 05 14 1e dc 22  |4,-79,-5,1....."|
00000d50  56 61 6e 63 6f 75 76 65  72 3c 22 2c 34 39 2c 2d  |Vancouver<",49,-|
00000d60  31 32 33 2c 2d 35 2c 31  0d 05 1e 1e dc 22 57 61  |123,-5,1....."Wa|
00000d70  73 68 69 6e 67 74 6f 6e  3c 22 2c 33 39 2c 2d 37  |shington<",39,-7|
00000d80  37 2c 2d 35 2c 31 0d 05  28 21 dc 22 57 65 6c 6c  |7,-5,1..(!."Well|
00000d90  69 6e 67 74 6f 6e 3c 22  2c 2d 34 31 2e 35 2c 31  |ington<",-41.5,1|
00000da0  37 35 2c 31 32 2c 30 0d  05 32 12 dc 22 65 6e 64  |75,12,0..2.."end|
00000db0  22 2c 30 2c 30 2c 30 2c  30 0d 05 3c 05 3a 0d 05  |",0,0,0,0..<.:..|
00000dc0  46 27 dd a4 63 72 65 61  74 65 28 77 77 2c 77 68  |F'..create(ww,wh|
00000dd0  2c 54 24 2c 77 66 2c 77  62 2c 66 6c 61 67 73 2c  |,T$,wf,wb,flags,|
00000de0  61 64 64 72 29 0d 05 50  1d 20 62 6c 6b 25 21 32  |addr)..P. blk%!2|
00000df0  34 3d 2d 31 3a 62 6c 6b  25 21 32 38 3d 66 6c 61  |4=-1:blk%!28=fla|
00000e00  67 73 0d 05 5a 19 20 62  6c 6b 25 3f 33 32 3d 37  |gs..Z. blk%?32=7|
00000e10  20 3a 62 6c 6b 25 3f 33  33 3d 32 0d 05 64 1a 20  | :blk%?33=2..d. |
00000e20  62 6c 6b 25 3f 33 34 3d  77 66 3a 62 6c 6b 25 3f  |blk%?34=wf:blk%?|
00000e30  33 35 3d 77 62 0d 05 6e  19 20 62 6c 6b 25 3f 33  |35=wb..n. blk%?3|
00000e40  36 3d 33 20 3a 62 6c 6b  25 3f 33 37 3d 32 0d 05  |6=3 :blk%?37=2..|
00000e50  78 19 20 62 6c 6b 25 3f  33 38 3d 31 32 3a 62 6c  |x. blk%?38=12:bl|
00000e60  6b 25 3f 33 39 3d 30 0d  05 82 1a 20 62 6c 6b 25  |k%?39=0.... blk%|
00000e70  21 34 30 3d 30 20 3a 62  6c 6b 25 21 34 34 3d 77  |!40=0 :blk%!44=w|
00000e80  68 0d 05 8c 19 20 62 6c  6b 25 21 34 38 3d 77 77  |h.... blk%!48=ww|
00000e90  3a 62 6c 6b 25 21 35 32  3d 30 0d 05 96 28 20 e7  |:blk%!52=0...( .|
00000ea0  20 61 64 64 72 3d 30 20  62 6c 6b 25 21 35 36 3d  | addr=0 blk%!56=|
00000eb0  26 33 44 20 8b 20 62 6c  6b 25 21 35 36 3d 26 31  |&3D . blk%!56=&1|
00000ec0  33 44 0d 05 a0 0e 20 62  6c 6b 25 21 36 30 3d 30  |3D.... blk%!60=0|
00000ed0  0d 05 aa 18 20 62 6c 6b  25 21 36 34 3d 30 3a 62  |.... blk%!64=0:b|
00000ee0  6c 6b 25 21 36 38 3d 30  0d 05 b4 0f 20 e7 20 61  |lk%!68=0.... . a|
00000ef0  64 64 72 3d 30 20 8c 0d  05 be 14 20 20 20 24 28  |ddr=0 .....   $(|
00000f00  62 6c 6b 25 2b 37 32 29  3d 54 24 0d 05 c8 06 20  |blk%+72)=T$.... |
00000f10  cc 0d 05 d2 0f 20 20 20  24 61 64 64 72 3d 54 24  |.....   $addr=T$|
00000f20  0d 05 dc 13 20 20 20 62  6c 6b 25 21 37 32 3d 61  |....   blk%!72=a|
00000f30  64 64 72 0d 05 e6 11 20  20 20 62 6c 6b 25 21 37  |ddr....   blk%!7|
00000f40  36 3d 2d 31 0d 05 f0 11  20 20 20 62 6c 6b 25 21  |6=-1....   blk%!|
00000f50  38 30 3d 33 32 0d 05 fa  06 20 cd 0d 06 04 0e 20  |80=32.... ..... |
00000f60  62 6c 6b 25 21 38 34 3d  30 0d 06 0e 2a 20 c8 99  |blk%!84=0...* ..|
00000f70  20 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  | "Wimp_CreateWin|
00000f80  64 6f 77 22 2c 2c 62 6c  6b 25 20 b8 20 68 61 6e  |dow",,blk% . han|
00000f90  64 6c 65 0d 06 18 0b 3d  68 61 6e 64 6c 65 0d 06  |dle....=handle..|
00000fa0  22 05 3a 0d 06 2c 10 dd  f2 73 65 74 75 70 5f 73  |".:..,...setup_s|
00000fb0  75 62 73 0d 06 36 04 0d  06 40 05 e1 0d 06 4a 05  |ubs..6...@....J.|
00000fc0  3a 0d 06 54 0b dd f2 6d  65 6e 75 31 0d 06 5e 0d  |:..T...menu1..^.|
00000fd0  20 f2 69 6e 66 6f 62 6f  78 0d 06 68 13 20 66 6c  | .infobox..h. fl|
00000fe0  61 67 73 3d 26 37 30 30  30 30 32 31 0d 06 72 0e  |ags=&7000021..r.|
00000ff0  20 50 25 3d 6d 65 6e 75  31 25 0d 06 7c 22 20 f2  | P%=menu1%..|" .|
00001000  6d 65 6e 75 5f 68 65 61  64 65 72 28 22 57 6f 72  |menu_header("Wor|
00001010  6c 64 20 54 69 6d 65 22  2c 31 34 29 0d 06 86 2d  |ld Time",14)...-|
00001020  20 f2 6d 65 6e 75 5f 69  74 65 6d 28 26 30 30 2c  | .menu_item(&00,|
00001030  69 6e 66 6f 5f 77 69 6e  64 6f 77 2c 66 6c 61 67  |info_window,flag|
00001040  73 2c 22 49 6e 66 6f 22  29 0d 06 90 30 20 f2 6d  |s,"Info")...0 .m|
00001050  65 6e 75 5f 69 74 65 6d  28 26 30 30 2c 6d 65 6e  |enu_item(&00,men|
00001060  75 33 25 2c 66 6c 61 67  73 2c 22 44 69 73 70 6c  |u3%,flags,"Displ|
00001070  61 79 20 44 61 74 65 22  29 0d 06 9a 30 20 f2 6d  |ay Date")...0 .m|
00001080  65 6e 75 5f 69 74 65 6d  28 26 30 30 2c 6d 65 6e  |enu_item(&00,men|
00001090  75 34 25 2c 66 6c 61 67  73 2c 22 44 69 73 70 6c  |u4%,flags,"Displ|
000010a0  61 79 20 54 69 6d 65 22  29 0d 06 a4 2d 20 f2 6d  |ay Time")...- .m|
000010b0  65 6e 75 5f 69 74 65 6d  28 26 30 32 2d 73 74 65  |enu_item(&02-ste|
000010c0  70 2c 6d 65 6e 75 35 25  2c 66 6c 61 67 73 2c 22  |p,menu5%,flags,"|
000010d0  53 74 65 70 22 29 0d 06  ae 30 20 f2 6d 65 6e 75  |Step")...0 .menu|
000010e0  5f 69 74 65 6d 28 26 30  30 2d 74 65 72 6d 69 2c  |_item(&00-termi,|
000010f0  2d 31 2c 66 6c 61 67 73  2c 22 54 65 72 6d 69 6e  |-1,flags,"Termin|
00001100  61 74 6f 72 22 29 0d 06  b8 27 20 f2 6d 65 6e 75  |ator")...' .menu|
00001110  5f 69 74 65 6d 28 26 30  30 2d 73 75 6e 2c 2d 31  |_item(&00-sun,-1|
00001120  2c 66 6c 61 67 73 2c 22  53 75 6e 22 29 0d 06 c2  |,flags,"Sun")...|
00001130  2d 20 f2 6d 65 6e 75 5f  69 74 65 6d 28 26 30 30  |- .menu_item(&00|
00001140  2d 63 6c 6f 63 6b 73 2c  2d 31 2c 66 6c 61 67 73  |-clocks,-1,flags|
00001150  2c 22 43 6c 6f 63 6b 73  22 29 0d 06 cc 31 20 f2  |,"Clocks")...1 .|
00001160  6d 65 6e 75 5f 69 74 65  6d 28 26 30 32 2d 63 69  |menu_item(&02-ci|
00001170  74 69 65 73 2c 6d 65 6e  75 39 25 2c 66 6c 61 67  |ties,menu9%,flag|
00001180  73 2c 22 43 69 74 69 65  73 22 29 0d 06 d6 30 20  |s,"Cities")...0 |
00001190  f2 6d 65 6e 75 5f 69 74  65 6d 28 26 30 30 2c 6d  |.menu_item(&00,m|
000011a0  65 6e 75 32 25 2c 66 6c  61 67 73 2c 22 4c 6f 63  |enu2%,flags,"Loc|
000011b0  61 6c 20 4f 66 66 73 65  74 22 29 0d 06 e0 2a 20  |al Offset")...* |
000011c0  f2 6d 65 6e 75 5f 69 74  65 6d 28 26 30 30 2c 2d  |.menu_item(&00,-|
000011d0  31 2c 66 6c 61 67 73 2c  22 53 61 76 65 20 73 65  |1,flags,"Save se|
000011e0  74 75 70 22 29 0d 06 ea  24 20 f2 6d 65 6e 75 5f  |tup")...$ .menu_|
000011f0  69 74 65 6d 28 26 38 30  2c 2d 31 2c 66 6c 61 67  |item(&80,-1,flag|
00001200  73 2c 22 51 75 69 74 22  29 0d 06 f4 04 0d 06 fe  |s,"Quit").......|
00001210  05 e1 0d 07 08 05 3a 0d  07 12 0b dd f2 6d 65 6e  |......:......men|
00001220  75 33 0d 07 1c 13 20 66  6c 61 67 73 3d 26 37 30  |u3.... flags=&70|
00001230  30 30 30 32 31 0d 07 26  0e 20 50 25 3d 6d 65 6e  |00021..&. P%=men|
00001240  75 33 25 0d 07 30 22 20  f2 6d 65 6e 75 5f 68 65  |u3%..0" .menu_he|
00001250  61 64 65 72 28 22 44 61  74 65 20 64 64 2f 6d 6d  |ader("Date dd/mm|
00001260  22 2c 31 32 29 0d 07 3a  2b 20 f2 6d 65 6e 75 5f  |",12)..:+ .menu_|
00001270  69 74 65 6d 28 26 30 30  2d 74 6f 64 61 79 2c 2d  |item(&00-today,-|
00001280  31 2c 66 6c 61 67 73 2c  22 54 6f 64 61 79 22 29  |1,flags,"Today")|
00001290  0d 07 44 26 20 f2 77 72  69 74 65 5f 69 74 65 6d  |..D& .write_item|
000012a0  28 26 38 34 2d ac 20 74  6f 64 61 79 2c 64 61 74  |(&84-. today,dat|
000012b0  65 62 75 66 25 29 0d 07  4e 05 e1 0d 07 58 05 3a  |ebuf%)..N....X.:|
000012c0  0d 07 62 0b dd f2 6d 65  6e 75 34 0d 07 6c 13 20  |..b...menu4..l. |
000012d0  66 6c 61 67 73 3d 26 37  30 30 30 30 32 31 0d 07  |flags=&7000021..|
000012e0  76 0e 20 50 25 3d 6d 65  6e 75 34 25 0d 07 80 22  |v. P%=menu4%..."|
000012f0  20 f2 6d 65 6e 75 5f 68  65 61 64 65 72 28 22 54  | .menu_header("T|
00001300  69 6d 65 20 68 68 3a 6d  6d 22 2c 31 32 29 0d 07  |ime hh:mm",12)..|
00001310  8a 2c 20 f2 6d 65 6e 75  5f 69 74 65 6d 28 26 30  |., .menu_item(&0|
00001320  30 2d 72 65 61 6c 74 69  6d 65 2c 2d 31 2c 66 6c  |0-realtime,-1,fl|
00001330  61 67 73 2c 22 4e 6f 77  22 29 0d 07 94 29 20 f2  |ags,"Now")...) .|
00001340  77 72 69 74 65 5f 69 74  65 6d 28 26 38 34 2d ac  |write_item(&84-.|
00001350  20 72 65 61 6c 74 69 6d  65 2c 74 69 6d 65 62 75  | realtime,timebu|
00001360  66 25 29 0d 07 9e 05 e1  0d 07 a8 05 3a 0d 07 b2  |f%).........:...|
00001370  0b dd f2 6d 65 6e 75 35  0d 07 bc 13 20 66 6c 61  |...menu5.... fla|
00001380  67 73 3d 26 37 30 30 30  30 32 31 0d 07 c6 0e 20  |gs=&7000021.... |
00001390  50 25 3d 6d 65 6e 75 35  25 0d 07 d0 20 20 f2 6d  |P%=menu5%...  .m|
000013a0  65 6e 75 5f 68 65 61 64  65 72 28 22 49 6e 74 65  |enu_header("Inte|
000013b0  72 76 61 6c 22 2c 31 32  29 0d 07 da 2b 20 f2 6d  |rval",12)...+ .m|
000013c0  65 6e 75 5f 69 74 65 6d  28 26 30 30 2c 6d 65 6e  |enu_item(&00,men|
000013d0  75 36 25 2c 66 6c 61 67  73 2c 22 4d 69 6e 75 74  |u6%,flags,"Minut|
000013e0  65 73 22 29 0d 07 e4 28  20 f2 6d 65 6e 75 5f 69  |es")...( .menu_i|
000013f0  74 65 6d 28 26 38 30 2c  6d 65 6e 75 37 25 2c 66  |tem(&80,menu7%,f|
00001400  6c 61 67 73 2c 22 44 61  79 73 22 29 0d 07 ee 05  |lags,"Days")....|
00001410  e1 0d 07 f8 05 3a 0d 08  02 0b dd f2 6d 65 6e 75  |.....:......menu|
00001420  39 0d 08 0c 13 20 66 6c  61 67 73 3d 26 37 30 30  |9.... flags=&700|
00001430  30 30 32 31 0d 08 16 0e  20 50 25 3d 6d 65 6e 75  |0021.... P%=menu|
00001440  39 25 0d 08 20 1e 20 f2  6d 65 6e 75 5f 68 65 61  |9%.. . .menu_hea|
00001450  64 65 72 28 22 43 69 74  69 65 73 22 2c 31 32 29  |der("Cities",12)|
00001460  0d 08 2a 18 20 e3 20 49  25 3d 30 20 b8 20 6e 6f  |..*. . I%=0 . no|
00001470  5f 63 69 74 79 73 2d 31  0d 08 34 3a 20 20 f2 6d  |_citys-1..4:  .m|
00001480  65 6e 75 5f 69 74 65 6d  28 26 30 30 2d 63 69 74  |enu_item(&00-cit|
00001490  79 6f 6e 25 28 49 25 29  2c 2d 31 2c 66 6c 61 67  |yon%(I%),-1,flag|
000014a0  73 2c c0 63 69 74 79 6e  61 6d 65 24 28 49 25 29  |s,.cityname$(I%)|
000014b0  29 29 0d 08 3e 06 20 ed  0d 08 48 46 20 20 f2 6d  |))..>. ...HF  .m|
000014c0  65 6e 75 5f 69 74 65 6d  28 26 38 30 2d 63 69 74  |enu_item(&80-cit|
000014d0  79 6f 6e 25 28 6e 6f 5f  63 69 74 79 73 29 2c 2d  |yon%(no_citys),-|
000014e0  31 2c 66 6c 61 67 73 2c  c0 63 69 74 79 6e 61 6d  |1,flags,.citynam|
000014f0  65 24 28 6e 6f 5f 63 69  74 79 73 29 29 29 0d 08  |e$(no_citys)))..|
00001500  52 05 e1 0d 08 5c 05 3a  0d 08 66 1b dd f2 77 72  |R....\.:..f...wr|
00001510  69 74 65 5f 73 75 62 28  50 25 2c 68 24 2c 61 64  |ite_sub(P%,h$,ad|
00001520  72 25 29 0d 08 70 18 20  f2 6d 65 6e 75 5f 68 65  |r%)..p. .menu_he|
00001530  61 64 65 72 28 68 24 2c  31 32 29 0d 08 7a 1a 20  |ader(h$,12)..z. |
00001540  f2 77 72 69 74 65 5f 69  74 65 6d 28 26 38 34 2c  |.write_item(&84,|
00001550  61 64 72 25 29 0d 08 84  05 e1 0d 08 8e 05 3a 0d  |adr%).........:.|
00001560  08 98 19 dd f2 77 72 69  74 65 5f 69 74 65 6d 28  |.....write_item(|
00001570  41 25 2c 61 64 72 25 29  0d 08 a2 0c 20 50 25 21  |A%,adr%).... P%!|
00001580  30 3d 41 25 0d 08 ac 0c  20 50 25 21 34 3d 2d 31  |0=A%.... P%!4=-1|
00001590  0d 08 b6 12 20 50 25 21  38 3d 26 37 30 30 30 31  |.... P%!8=&70001|
000015a0  31 39 0d 08 c0 0f 20 50  25 21 31 32 3d 61 64 72  |19.... P%!12=adr|
000015b0  25 0d 08 ca 0d 20 50 25  21 31 36 3d 2d 31 0d 08  |%.... P%!16=-1..|
000015c0  d4 0d 20 50 25 21 32 30  3d 31 36 0d 08 de 05 e1  |.. P%!20=16.....|
000015d0  0d 08 e8 05 3a 0d 08 f2  17 dd f2 6d 65 6e 75 5f  |....:......menu_|
000015e0  68 65 61 64 65 72 28 54  24 2c 77 29 0d 08 fc 0b  |header(T$,w)....|
000015f0  20 24 50 25 3d 54 24 0d  09 06 11 20 50 25 21 31  | $P%=T$.... P%!1|
00001600  32 3d 26 37 30 32 30 37  0d 09 10 0f 20 50 25 21  |2=&70207.... P%!|
00001610  31 36 3d 77 2a 31 36 0d  09 1a 0d 20 50 25 21 32  |16=w*16.... P%!2|
00001620  30 3d 34 34 0d 09 24 0c  20 50 25 21 32 34 3d 30  |0=44..$. P%!24=0|
00001630  0d 09 2e 0b 20 50 25 2b  3d 32 38 0d 09 38 05 e1  |.... P%+=28..8..|
00001640  0d 09 42 05 3a 0d 09 4c  1c dd f2 6d 65 6e 75 5f  |..B.:..L...menu_|
00001650  69 74 65 6d 28 41 25 2c  42 25 2c 43 25 2c 54 24  |item(A%,B%,C%,T$|
00001660  29 0d 09 56 0c 20 50 25  21 30 3d 41 25 0d 09 60  |)..V. P%!0=A%..`|
00001670  0c 20 50 25 21 34 3d 42  25 0d 09 6a 0c 20 50 25  |. P%!4=B%..j. P%|
00001680  21 38 3d 43 25 0d 09 74  10 20 24 28 50 25 2b 31  |!8=C%..t. $(P%+1|
00001690  32 29 3d 54 24 0d 09 7e  0b 20 50 25 2b 3d 32 34  |2)=T$..~. P%+=24|
000016a0  0d 09 88 05 e1 0d 09 92  05 3a 0d 09 9c 0d dd f2  |.........:......|
000016b0  69 63 6f 6e 62 61 72 0d  09 a6 0e 20 62 6c 6b 25  |iconbar.... blk%|
000016c0  21 30 3d 2d 31 0d 09 b0  0d 20 62 6c 6b 25 21 34  |!0=-1.... blk%!4|
000016d0  3d 30 0d 09 ba 0d 20 62  6c 6b 25 21 38 3d 30 0d  |=0.... blk%!8=0.|
000016e0  09 c4 0f 20 62 6c 6b 25  21 31 32 3d 36 38 0d 09  |... blk%!12=68..|
000016f0  ce 0f 20 62 6c 6b 25 21  31 36 3d 36 38 0d 09 d8  |.. blk%!16=68...|
00001700  12 20 62 6c 6b 25 21 32  30 3d 26 33 30 30 32 0d  |. blk%!20=&3002.|
00001710  09 e2 1c 20 24 28 62 6c  6b 25 2b 32 34 29 3d 22  |... $(blk%+24)="|
00001720  21 57 6f 72 6c 64 54 69  6d 65 22 0d 09 ec 29 20  |!WorldTime"...) |
00001730  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 49  |.. "Wimp_CreateI|
00001740  63 6f 6e 22 2c 2c 62 6c  6b 25 20 b8 20 69 63 6f  |con",,blk% . ico|
00001750  6e 62 61 72 0d 09 f6 05  e1 0d 0a 00 05 3a 0d 0a  |nbar.........:..|
00001760  0a 0d dd f2 69 6e 66 6f  62 6f 78 0d 0a 14 2e 20  |....infobox.... |
00001770  de 20 69 6e 66 6f 74 65  78 74 20 31 32 38 2c 69  |. infotext 128,i|
00001780  6e 66 6f 74 69 74 6c 65  20 33 32 20 3a 20 50 25  |nfotitle 32 : P%|
00001790  3d 69 6e 66 6f 74 65 78  74 0d 0a 1e 4f 20 69 6e  |=infotext...O in|
000017a0  66 6f 5f 77 69 6e 64 6f  77 3d a4 63 72 65 61 74  |fo_window=.creat|
000017b0  65 28 36 38 30 2c 2d 32  34 34 2c 22 41 62 6f 75  |e(680,-244,"Abou|
000017c0  74 20 54 68 69 73 20 50  72 6f 67 72 61 6d 22 2c  |t This Program",|
000017d0  37 2c 31 2c 25 31 30 30  30 30 30 31 31 2c 69 6e  |7,1,%10000011,in|
000017e0  66 6f 74 69 74 6c 65 29  0d 0a 28 0a 20 79 3d 2d  |fotitle)..(. y=-|
000017f0  36 30 0d 0a 32 08 20 f7  2b 31 0d 0a 3c 0f 20 e3  |60..2. .+1..<. .|
00001800  20 49 25 3d 30 20 b8 20  33 0d 0a 46 0f 20 20 20  | I%=0 . 3..F.   |
00001810  f3 20 74 24 2c 24 50 25  0d 0a 50 38 20 20 20 f2  |. t$,$P%..P8   .|
00001820  63 72 65 61 74 65 5f 69  63 6f 6e 28 69 6e 66 6f  |create_icon(info|
00001830  5f 77 69 6e 64 6f 77 2c  30 2c 31 36 2c 31 38 30  |_window,0,16,180|
00001840  2c 79 2c 74 24 2c 26 31  37 30 30 30 32 31 31 29  |,y,t$,&17000211)|
00001850  0d 0a 5a 39 20 20 20 f2  63 72 65 61 74 65 5f 69  |..Z9   .create_i|
00001860  63 6f 6e 28 69 6e 66 6f  5f 77 69 6e 64 6f 77 2c  |con(info_window,|
00001870  50 25 2c 31 39 30 2c 36  36 30 2c 79 2c 22 22 2c  |P%,190,660,y,"",|
00001880  26 37 30 30 30 31 33 44  29 0d 0a 64 15 20 20 20  |&700013D)..d.   |
00001890  79 2d 3d 36 30 20 3a 20  50 25 2b 3d 33 32 0d 0a  |y-=60 : P%+=32..|
000018a0  6e 06 20 ed 0d 0a 78 25  20 f2 6f 70 65 6e 75 70  |n. ...x% .openup|
000018b0  28 69 6e 66 6f 5f 77 69  6e 64 6f 77 2c 30 2c 30  |(info_window,0,0|
000018c0  2c 36 38 30 2c 32 34 34  29 0d 0a 82 17 20 f2 73  |,680,244).... .s|
000018d0  68 75 74 28 69 6e 66 6f  5f 77 69 6e 64 6f 77 29  |hut(info_window)|
000018e0  0d 0a 8c 1c 20 dc 20 22  4e 61 6d 65 20 3a 22 2c  |.... . "Name :",|
000018f0  22 57 6f 72 6c 64 20 54  69 6d 65 22 0d 0a 96 30  |"World Time"...0|
00001900  20 dc 20 22 50 75 72 70  6f 73 65 20 3a 22 2c 22  | . "Purpose :","|
00001910  43 6c 6f 63 6b 20 26 20  53 75 6e 6c 69 67 68 74  |Clock & Sunlight|
00001920  20 74 65 72 6d 69 6e 61  74 6f 72 22 0d 0a a0 2e  | terminator"....|
00001930  20 dc 20 22 41 75 74 68  6f 72 20 3a 22 2c 22 50  | . "Author :","P|
00001940  20 45 20 4d 61 72 73 68  61 6c 6c 2c 20 41 6e 74  | E Marshall, Ant|
00001950  69 67 75 61 20 57 2e 49  2e 22 0d 0a aa 2b 20 dc  |igua W.I."...+ .|
00001960  20 22 56 65 72 73 69 6f  6e 20 3a 22 2c 22 31 2e  | "Version :","1.|
00001970  33 31 20 28 31 2f 31 2f  39 34 29 20 4f 53 32 20  |31 (1/1/94) OS2 |
00001980  4f 4e 4c 59 22 0d 0a b4  05 e1 0d 0a be 05 3a 0d  |ONLY".........:.|
00001990  0a c8 36 dd f2 63 72 65  61 74 65 5f 69 63 6f 6e  |..6..create_icon|
000019a0  28 68 61 6e 64 6c 65 2c  61 64 64 72 2c 6d 69 6e  |(handle,addr,min|
000019b0  78 2c 6d 61 78 78 2c 6d  69 6e 79 2c 74 24 2c 66  |x,maxx,miny,t$,f|
000019c0  6c 61 67 73 29 0d 0a d2  1e 20 62 6c 6b 25 21 30  |lags).... blk%!0|
000019d0  3d 68 61 6e 64 6c 65 3a  62 6c 6b 25 21 34 3d 6d  |=handle:blk%!4=m|
000019e0  69 6e 78 0d 0a dc 1f 20  62 6c 6b 25 21 38 3d 6d  |inx.... blk%!8=m|
000019f0  69 6e 79 20 20 3a 62 6c  6b 25 21 31 32 3d 6d 61  |iny  :blk%!12=ma|
00001a00  78 78 0d 0a e6 14 20 62  6c 6b 25 21 31 36 3d 6d  |xx.... blk%!16=m|
00001a10  69 6e 79 2b 35 36 0d 0a  f0 12 20 62 6c 6b 25 21  |iny+56.... blk%!|
00001a20  32 30 3d 66 6c 61 67 73  0d 0a fa 0f 20 e7 20 61  |20=flags.... . a|
00001a30  64 64 72 3d 30 20 8c 0d  0b 04 14 20 20 20 24 28  |ddr=0 .....   $(|
00001a40  62 6c 6b 25 2b 32 34 29  3d 74 24 0d 0b 0e 06 20  |blk%+24)=t$.... |
00001a50  cc 0d 0b 18 13 20 20 20  62 6c 6b 25 21 32 34 3d  |.....   blk%!24=|
00001a60  61 64 64 72 0d 0b 22 11  20 20 20 62 6c 6b 25 21  |addr..".   blk%!|
00001a70  32 38 3d 2d 31 0d 0b 2c  11 20 20 20 62 6c 6b 25  |28=-1..,.   blk%|
00001a80  21 33 32 3d 32 34 0d 0b  36 06 20 cd 0d 0b 40 1e  |!32=24..6. ...@.|
00001a90  20 c8 99 22 57 69 6d 70  5f 43 72 65 61 74 65 49  | .."Wimp_CreateI|
00001aa0  63 6f 6e 22 2c 2c 62 6c  6b 25 0d 0b 4a 05 e1 0d  |con",,blk%..J...|
00001ab0  0b 54 05 3a 0d 0b 5e 1c  dd f2 6f 70 65 6e 75 70  |.T.:..^...openup|
00001ac0  28 68 61 6e 64 6c 65 2c  78 2c 79 2c 77 2c 68 29  |(handle,x,y,w,h)|
00001ad0  0d 0b 68 12 20 62 6c 6b  25 21 30 3d 68 61 6e 64  |..h. blk%!0=hand|
00001ae0  6c 65 0d 0b 72 1c 20 62  6c 6b 25 21 34 3d 78 20  |le..r. blk%!4=x |
00001af0  20 20 20 3a 62 6c 6b 25  21 38 3d 79 2d 68 0d 0b  |   :blk%!8=y-h..|
00001b00  7c 1b 20 62 6c 6b 25 21  31 32 3d 78 2b 77 20 3a  ||. blk%!12=x+w :|
00001b10  62 6c 6b 25 21 31 36 3d  79 0d 0b 86 1b 20 62 6c  |blk%!16=y.... bl|
00001b20  6b 25 21 32 30 3d 30 20  20 20 3a 62 6c 6b 25 21  |k%!20=0   :blk%!|
00001b30  32 34 3d 30 0d 0b 90 0f  20 62 6c 6b 25 21 32 38  |24=0.... blk%!28|
00001b40  3d 2d 31 0d 0b 9a 1f 20  c8 99 20 22 57 69 6d 70  |=-1.... .. "Wimp|
00001b50  5f 4f 70 65 6e 57 69 6e  64 6f 77 22 2c 2c 62 6c  |_OpenWindow",,bl|
00001b60  6b 25 0d 0b a4 05 e1 0d  0b ae 05 3a 0d 0b b8 0d  |k%.........:....|
00001b70  dd f2 63 6c 69 63 6b 65  64 0d 0b c2 13 20 68 61  |..clicked.... ha|
00001b80  6e 64 6c 65 3d 70 74 72  25 21 31 32 0d 0b cc 12  |ndle=ptr%!12....|
00001b90  20 62 75 74 74 6f 6e 3d  70 74 72 25 21 38 0d 0b  | button=ptr%!8..|
00001ba0  d6 11 20 69 63 6f 6e 3d  70 74 72 25 21 31 36 0d  |.. icon=ptr%!16.|
00001bb0  0b e0 4e 20 e7 20 28 62  75 74 74 6f 6e 20 80 20  |..N . (button . |
00001bc0  34 29 20 80 20 69 63 6f  6e 3d 69 63 6f 6e 62 61  |4) . icon=iconba|
00001bd0  72 20 8c 20 f2 6f 70 65  6e 75 70 28 77 69 6e 64  |r . .openup(wind|
00001be0  6f 77 31 2c 32 30 2c 39  30 30 2c 31 31 36 30 2c  |ow1,20,900,1160,|
00001bf0  37 30 30 29 3a 61 63 74  69 76 65 3d b9 0d 0b ea  |700):active=....|
00001c00  7b 20 e7 20 62 75 74 74  6f 6e 20 80 20 32 20 8c  |{ . button . 2 .|
00001c10  20 61 63 74 69 76 65 3d  a3 20 3a 20 c8 99 20 22  | active=. : .. "|
00001c20  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
00001c30  2c 2c 6d 65 6e 75 31 25  2c 70 74 72 25 21 30 2d  |,,menu1%,ptr%!0-|
00001c40  36 34 2c 2d 70 74 72 25  21 34 2a 28 69 63 6f 6e  |64,-ptr%!4*(icon|
00001c50  3c 3e 69 63 6f 6e 62 61  72 29 2d 28 69 63 6f 6e  |<>iconbar)-(icon|
00001c60  3d 69 63 6f 6e 62 61 72  29 2a 36 38 38 20 8b 20  |=iconbar)*688 . |
00001c70  61 63 74 69 76 65 3d b9  0d 0b f4 05 e1 0d 0b fe  |active=.........|
00001c80  05 3a 0d 0c 08 12 dd f2  70 72 6f 63 65 73 73 5f  |.:......process_|
00001c90  6d 65 6e 75 0d 0c 12 10  20 c8 8e 20 70 74 72 25  |menu.... .. ptr%|
00001ca0  21 30 20 ca 0d 0c 1c 0c  20 20 20 c9 20 31 20 3a  |!0 .....   . 1 :|
00001cb0  0d 0c 26 14 20 20 20 20  20 c8 8e 20 70 74 72 25  |..&.     .. ptr%|
00001cc0  21 34 20 ca 0d 0c 30 21  20 20 20 20 20 20 20 c9  |!4 ...0!       .|
00001cd0  20 30 20 3a 20 74 6f 64  61 79 3d b9 20 3a 20 f2  | 0 : today=. : .|
00001ce0  6d 65 6e 75 33 0d 0c 3a  20 20 20 20 20 20 20 20  |menu3..:        |
00001cf0  c9 20 31 20 3a 20 74 6f  64 61 79 3d a3 3a 20 f2  |. 1 : today=.: .|
00001d00  6d 65 6e 75 33 0d 0c 44  0a 20 20 20 20 20 cb 0d  |menu3..D.     ..|
00001d10  0c 4e 0c 20 20 20 c9 20  32 20 3a 0d 0c 58 14 20  |.N.   . 2 :..X. |
00001d20  20 20 20 20 c8 8e 20 70  74 72 25 21 34 20 ca 0d  |    .. ptr%!4 ..|
00001d30  0c 62 24 20 20 20 20 20  20 20 c9 20 30 20 3a 20  |.b$       . 0 : |
00001d40  72 65 61 6c 74 69 6d 65  3d b9 20 3a 20 f2 6d 65  |realtime=. : .me|
00001d50  6e 75 34 0d 0c 6c 23 20  20 20 20 20 20 20 c9 20  |nu4..l#       . |
00001d60  31 20 3a 20 72 65 61 6c  74 69 6d 65 3d a3 3a 20  |1 : realtime=.: |
00001d70  f2 6d 65 6e 75 34 0d 0c  76 0a 20 20 20 20 20 cb  |.menu4..v.     .|
00001d80  0d 0c 80 36 20 20 20 c9  20 33 20 3a 20 e7 20 70  |...6   . 3 : . p|
00001d90  74 72 25 21 34 3d 2d 31  20 8c 20 73 74 65 70 3d  |tr%!4=-1 . step=|
00001da0  73 74 65 70 20 82 20 2d  31 20 3a 20 8b 20 73 74  |step . -1 : . st|
00001db0  65 70 20 3d 20 b9 0d 0c  8a 13 20 20 20 20 20 20  |ep = .....      |
00001dc0  20 20 20 f2 6d 65 6e 75  31 0d 0c 94 30 20 20 20  |   .menu1...0   |
00001dd0  c9 20 34 20 3a 20 74 65  72 6d 69 3d 74 65 72 6d  |. 4 : termi=term|
00001de0  69 20 82 20 2d 31 20 3a  20 f2 6d 65 6e 75 31 20  |i . -1 : .menu1 |
00001df0  3a 20 f2 73 63 72 65 65  6e 0d 0c 9e 22 20 20 20  |: .screen..."   |
00001e00  c9 20 35 20 3a 20 73 75  6e 3d 73 75 6e 20 82 20  |. 5 : sun=sun . |
00001e10  2d 31 20 3a 20 f2 6d 65  6e 75 31 0d 0c a8 32 20  |-1 : .menu1...2 |
00001e20  20 20 c9 20 36 20 3a 20  63 6c 6f 63 6b 73 3d 63  |  . 6 : clocks=c|
00001e30  6c 6f 63 6b 73 20 82 20  2d 31 20 3a 20 f2 6d 65  |locks . -1 : .me|
00001e40  6e 75 31 20 3a 20 f2 73  63 72 65 65 6e 0d 0c b2  |nu1 : .screen...|
00001e50  17 20 20 20 c9 20 37 20  3a 20 20 51 25 3d 70 74  |.   . 7 :  Q%=pt|
00001e60  72 25 21 34 0d 0c bc 12  20 20 20 20 20 e7 20 51  |r%!4....     . Q|
00001e70  25 3d 2d 31 20 8c 0d 0c  c6 1d 20 20 20 20 20 20  |%=-1 .....      |
00001e80  20 63 69 74 69 65 73 3d  63 69 74 69 65 73 20 82  | cities=cities .|
00001e90  20 2d 31 0d 0c d0 11 20  20 20 20 20 20 20 f2 6d  | -1....       .m|
00001ea0  65 6e 75 31 0d 0c da 0a  20 20 20 20 20 cc 0d 0c  |enu1....     ...|
00001eb0  e4 27 20 20 20 20 20 20  20 63 69 74 79 6f 6e 25  |.'       cityon%|
00001ec0  28 51 25 29 3d 63 69 74  79 6f 6e 25 28 51 25 29  |(Q%)=cityon%(Q%)|
00001ed0  20 82 20 2d 31 0d 0c ee  11 20 20 20 20 20 20 20  | . -1....       |
00001ee0  f2 6d 65 6e 75 39 0d 0c  f8 0a 20 20 20 20 20 cd  |.menu9....     .|
00001ef0  0d 0d 02 10 20 20 20 20  20 f2 73 63 72 65 65 6e  |....     .screen|
00001f00  0d 0d 0c 12 20 20 20 c9  20 39 20 3a 20 f2 73 61  |....   . 9 : .sa|
00001f10  76 65 0d 0d 16 13 20 20  20 c9 20 31 30 3a 20 71  |ve....   . 10: q|
00001f20  75 69 74 3d b9 0d 0d 20  06 20 cb 0d 0d 2a 22 20  |uit=... . ...*" |
00001f30  c8 99 22 57 69 6d 70 5f  47 65 74 50 6f 69 6e 74  |.."Wimp_GetPoint|
00001f40  65 72 49 6e 66 6f 22 2c  2c 62 6c 6b 25 0d 0d 34  |erInfo",,blk%..4|
00001f50  12 20 62 75 74 74 6f 6e  3d 62 6c 6b 25 21 38 0d  |. button=blk%!8.|
00001f60  0d 3e 41 20 e7 20 62 75  74 74 6f 6e 20 80 20 31  |.>A . button . 1|
00001f70  20 8c 20 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  | . .. "Wimp_Crea|
00001f80  74 65 4d 65 6e 75 22 2c  2c 6d 65 6e 75 31 25 2c  |teMenu",,menu1%,|
00001f90  70 74 72 25 21 30 2d 36  34 2c 70 74 72 25 21 34  |ptr%!0-64,ptr%!4|
00001fa0  0d 0d 48 0e 20 6f 6c 64  74 69 6d 65 3d 30 0d 0d  |..H. oldtime=0..|
00001fb0  52 2e 20 e7 20 94 28 bb  28 24 73 74 65 70 64 61  |R. . .(.($stepda|
00001fc0  79 73 25 29 29 3e 34 30  30 20 8c 20 24 73 74 65  |ys%))>400 . $ste|
00001fd0  70 64 61 79 73 25 3d 22  34 30 30 22 0d 0d 5c 05  |pdays%="400"..\.|
00001fe0  e1 0d 0d 66 05 3a 0d 0d  70 12 dd f2 72 65 64 72  |...f.:..p...redr|
00001ff0  61 77 77 69 6e 64 6f 77  0d 0d 7a 0d 20 ea 20 77  |awwindow..z. . w|
00002000  69 6e 64 6f 77 0d 0d 84  12 20 68 61 6e 64 6c 65  |indow.... handle|
00002010  3d 70 74 72 25 21 30 0d  0d 8e 28 20 c8 99 20 22  |=ptr%!0...( .. "|
00002020  57 69 6d 70 5f 52 65 64  72 61 77 57 69 6e 64 6f  |Wimp_RedrawWindo|
00002030  77 22 2c 2c 70 74 72 25  20 b8 20 66 6c 61 67 0d  |w",,ptr% . flag.|
00002040  0d 98 0f 20 c8 95 20 66  6c 61 67 3c 3e 30 0d 0d  |... .. flag<>0..|
00002050  a2 28 20 20 20 e7 20 68  61 6e 64 6c 65 3d 77 69  |.(   . handle=wi|
00002060  6e 64 6f 77 31 20 8c 20  f2 77 72 69 74 65 5f 77  |ndow1 . .write_w|
00002070  69 6e 64 6f 77 31 0d 0d  ac 2a 20 20 20 c8 99 20  |indow1...*   .. |
00002080  22 57 69 6d 70 5f 47 65  74 52 65 63 74 61 6e 67  |"Wimp_GetRectang|
00002090  6c 65 22 2c 2c 70 74 72  25 20 b8 20 66 6c 61 67  |le",,ptr% . flag|
000020a0  0d 0d b6 06 20 ce 0d 0d  c0 05 e1 0d 0d ca 05 3a  |.... ..........:|
000020b0  0d 0d d4 0c dd f2 75 70  64 61 74 65 0d 0d de 1c  |......update....|
000020c0  20 62 6c 6b 25 21 30 3d  77 69 6e 64 6f 77 31 3a  | blk%!0=window1:|
000020d0  62 6c 6b 25 21 34 3d 30  0d 0d e8 20 20 62 6c 6b  |blk%!4=0...  blk|
000020e0  25 21 38 3d 2d 37 32 30  20 20 20 3a 62 6c 6b 25  |%!8=-720   :blk%|
000020f0  21 31 32 3d 31 32 30 30  0d 0d f2 0e 20 62 6c 6b  |!12=1200.... blk|
00002100  25 21 31 36 3d 30 0d 0d  fc 28 20 c8 99 20 22 57  |%!16=0...( .. "W|
00002110  69 6d 70 5f 55 70 64 61  74 65 57 69 6e 64 6f 77  |imp_UpdateWindow|
00002120  22 2c 2c 62 6c 6b 25 20  b8 20 66 6c 61 67 0d 0e  |",,blk% . flag..|
00002130  06 0f 20 c8 95 20 66 6c  61 67 3c 3e 30 0d 0e 10  |.. .. flag<>0...|
00002140  15 20 20 20 f2 77 72 69  74 65 5f 77 69 6e 64 6f  |.   .write_windo|
00002150  77 31 0d 0e 1a 2a 20 20  20 c8 99 20 22 57 69 6d  |w1...*   .. "Wim|
00002160  70 5f 47 65 74 52 65 63  74 61 6e 67 6c 65 22 2c  |p_GetRectangle",|
00002170  2c 70 74 72 25 20 b8 20  66 6c 61 67 0d 0e 24 06  |,ptr% . flag..$.|
00002180  20 ce 0d 0e 2e 05 e1 0d  0e 38 05 3a 0d 0e 42 13  | ........8.:..B.|
00002190  dd f2 77 72 69 74 65 5f  77 69 6e 64 6f 77 31 0d  |..write_window1.|
000021a0  0e 4c 59 20 c8 99 20 26  32 45 2c 35 32 2b 32 35  |.LY .. &2E,52+25|
000021b0  36 2c 73 70 72 69 74 65  31 25 2c 22 53 43 52 45  |6,sprite1%,"SCRE|
000021c0  45 4e 22 2c 70 74 72 25  21 34 2d 70 74 72 25 21  |EN",ptr%!4-ptr%!|
000021d0  32 30 2c 70 74 72 25 21  31 36 2d 37 30 30 2d 70  |20,ptr%!16-700-p|
000021e0  74 72 25 21 32 34 2c 38  2c 73 63 61 6c 65 25 2c  |tr%!24,8,scale%,|
000021f0  63 6f 6c 5f 74 61 62 25  0d 0e 56 05 e1 0d 0e 60  |col_tab%..V....`|
00002200  05 3a 0d 0e 6a 12 dd f2  73 68 75 74 28 68 61 6e  |.:..j...shut(han|
00002210  64 6c 65 29 0d 0e 74 12  20 62 6c 6b 25 21 30 3d  |dle)..t. blk%!0=|
00002220  68 61 6e 64 6c 65 0d 0e  7e 20 20 c8 99 20 22 57  |handle..~  .. "W|
00002230  69 6d 70 5f 43 6c 6f 73  65 57 69 6e 64 6f 77 22  |imp_CloseWindow"|
00002240  2c 2c 62 6c 6b 25 0d 0e  88 05 e1 0d 0e 92 05 3a  |,,blk%.........:|
00002250  0d 0e 9c 0f dd f2 4f 53  6d 65 73 73 61 67 65 0d  |......OSmessage.|
00002260  0e a6 13 20 72 65 61 73  6f 6e 3d 62 6c 6b 25 21  |... reason=blk%!|
00002270  31 36 0d 0e b0 10 20 c8  8e 20 72 65 61 73 6f 6e  |16.... .. reason|
00002280  20 ca 0d 0e ba 13 20 20  20 c9 20 30 20 3a 20 71  | .....   . 0 : q|
00002290  75 69 74 3d b9 0d 0e c4  22 20 20 20 c9 20 26 34  |uit=...."   . &4|
000022a0  30 30 43 31 20 3a 20 f2  6d 6f 64 65 20 3a 20 61  |00C1 : .mode : a|
000022b0  63 74 69 76 65 3d 31 0d  0e ce 06 20 cb 0d 0e d8  |ctive=1.... ....|
000022c0  05 e1 0d 0e e2 05 3a 0d  0e ec 0b dd f2 65 72 72  |......:......err|
000022d0  6f 72 0d 0e f6 0c 20 21  62 6c 6b 25 3d 30 0d 0f  |or.... !blk%=0..|
000022e0  00 23 20 24 28 62 6c 6b  25 2b 34 29 3d f6 24 2b  |.# $(blk%+4)=.$+|
000022f0  22 20 61 74 20 6c 69 6e  65 20 22 2b c3 9e 2b bd  |" at line "+..+.|
00002300  30 0d 0f 0a 2d 20 c8 99  22 57 69 6d 70 5f 52 65  |0...- .."Wimp_Re|
00002310  70 6f 72 74 45 72 72 6f  72 22 2c 62 6c 6b 25 2c  |portError",blk%,|
00002320  31 2c 22 57 6f 72 6c 64  20 54 69 6d 65 22 0d 0f  |1,"World Time"..|
00002330  14 17 20 c8 99 22 57 69  6d 70 5f 43 6c 6f 73 65  |.. .."Wimp_Close|
00002340  44 6f 77 6e 22 0d 0f 1e  05 e0 0d 0f 28 05 e1 0d  |Down".......(...|
00002350  0f 32 05 3a 0d 0f 3c 0d  dd f2 66 6f 72 65 67 6e  |.2.:..<...foregn|
00002360  64 0d 0f 46 1a 20 c8 99  26 32 45 2c 56 30 25 2c  |d..F. ..&2E,V0%,|
00002370  56 31 25 2c 56 32 25 2c  56 33 25 0d 0f 50 05 e1  |V1%,V2%,V3%..P..|
00002380  0d 0f 5a 05 3a 0d 0f 64  0d dd f2 62 61 63 6b 67  |..Z.:..d...backg|
00002390  6e 64 0d 0f 6e 35 20 c8  99 26 32 45 2c 36 30 2b  |nd..n5 ..&2E,60+|
000023a0  32 35 36 2c 73 70 72 69  74 65 31 25 2c 22 53 43  |256,sprite1%,"SC|
000023b0  52 45 45 4e 22 20 b8 20  56 30 25 2c 56 31 25 2c  |REEN" . V0%,V1%,|
000023c0  56 32 25 2c 56 33 25 0d  0f 78 05 e1 0d 0f 82 05  |V2%,V3%..x......|
000023d0  3a 0d 0f 8c 0a dd f2 73  61 76 65 0d 0f 96 23 20  |:......save...# |
000023e0  63 68 25 3d ae 28 22 3c  57 6f 72 6c 64 54 69 6d  |ch%=.("<WorldTim|
000023f0  65 24 44 69 72 3e 2e 53  45 54 55 50 22 29 0d 0f  |e$Dir>.SETUP")..|
00002400  a0 39 20 f1 23 63 68 25  2c 74 65 72 6d 69 2c 63  |.9 .#ch%,termi,c|
00002410  6c 6f 63 6b 73 2c 73 75  6e 2c 74 6f 64 61 79 2c  |locks,sun,today,|
00002420  72 65 61 6c 74 69 6d 65  2c 64 73 74 2c 65 73 74  |realtime,dst,est|
00002430  2c 63 69 74 69 65 73 0d  0f aa 3f 20 f1 23 63 68  |,cities...? .#ch|
00002440  25 2c 24 6c 6f 63 61 6c  62 75 66 25 2c 24 74 69  |%,$localbuf%,$ti|
00002450  6d 65 62 75 66 25 2c 24  64 61 74 65 62 75 66 25  |mebuf%,$datebuf%|
00002460  2c 24 73 74 65 70 6d 69  6e 73 25 2c 24 73 74 65  |,$stepmins%,$ste|
00002470  70 64 61 79 73 25 0d 0f  b4 13 20 f1 23 63 68 25  |pdays%.... .#ch%|
00002480  2c 6e 6f 5f 63 69 74 79  73 0d 0f be 2e 20 e3 20  |,no_citys.... . |
00002490  49 25 3d 30 20 b8 20 6e  6f 5f 63 69 74 79 73 20  |I%=0 . no_citys |
000024a0  3a 20 f1 23 63 68 25 2c  63 69 74 79 6f 6e 25 28  |: .#ch%,cityon%(|
000024b0  49 25 29 20 3a 20 ed 0d  0f c8 0a 20 d9 23 63 68  |I%) : ..... .#ch|
000024c0  25 0d 0f d2 05 e1 0d 0f  dc 05 3a 0d 0f e6 0a dd  |%.........:.....|
000024d0  f2 6c 6f 61 64 0d 0f f0  23 20 63 68 25 3d 8e 28  |.load...# ch%=.(|
000024e0  22 3c 57 6f 72 6c 64 54  69 6d 65 24 44 69 72 3e  |"<WorldTime$Dir>|
000024f0  2e 53 45 54 55 50 22 29  0d 0f fa 10 20 e7 20 63  |.SETUP").... . c|
00002500  68 25 3d 30 20 8c 20 e1  0d 10 04 39 20 e8 23 63  |h%=0 . ....9 .#c|
00002510  68 25 2c 74 65 72 6d 69  2c 63 6c 6f 63 6b 73 2c  |h%,termi,clocks,|
00002520  73 75 6e 2c 74 6f 64 61  79 2c 72 65 61 6c 74 69  |sun,today,realti|
00002530  6d 65 2c 64 73 74 2c 65  73 74 2c 63 69 74 69 65  |me,dst,est,citie|
00002540  73 0d 10 0e 3f 20 e8 23  63 68 25 2c 24 6c 6f 63  |s...? .#ch%,$loc|
00002550  61 6c 62 75 66 25 2c 24  74 69 6d 65 62 75 66 25  |albuf%,$timebuf%|
00002560  2c 24 64 61 74 65 62 75  66 25 2c 24 73 74 65 70  |,$datebuf%,$step|
00002570  6d 69 6e 73 25 2c 24 73  74 65 70 64 61 79 73 25  |mins%,$stepdays%|
00002580  0d 10 18 13 20 e8 23 63  68 25 2c 6e 6f 5f 63 69  |.... .#ch%,no_ci|
00002590  74 79 73 0d 10 22 2e 20  e3 20 49 25 3d 30 20 b8  |tys..". . I%=0 .|
000025a0  20 6e 6f 5f 63 69 74 79  73 20 3a 20 e8 23 63 68  | no_citys : .#ch|
000025b0  25 2c 63 69 74 79 6f 6e  25 28 49 25 29 20 3a 20  |%,cityon%(I%) : |
000025c0  ed 0d 10 2c 0a 20 d9 23  63 68 25 0d 10 36 05 e1  |...,. .#ch%..6..|
000025d0  0d 10 40 05 3a 0d 10 4a  0a dd f2 6d 61 69 6e 0d  |..@.:..J...main.|
000025e0  10 54 24 20 e7 20 61 63  74 69 76 65 3d 31 20 8c  |.T$ . active=1 .|
000025f0  20 61 63 74 69 76 65 3d  b9 20 3a 20 f2 73 63 72  | active=. : .scr|
00002600  65 65 6e 0d 10 5e 1e 20  6c 6f 63 61 6c 6f 66 66  |een..^. localoff|
00002610  73 65 74 3d bb 28 24 6c  6f 63 61 6c 62 75 66 25  |set=.($localbuf%|
00002620  29 0d 10 68 0f 20 e7 20  ac 20 73 74 65 70 20 8c  |)..h. . . step .|
00002630  0d 10 72 2d 20 20 20 f4  20 67 65 74 20 63 75 72  |..r-   . get cur|
00002640  72 65 6e 74 20 74 69 6d  65 20 69 6e 20 35 2d 62  |rent time in 5-b|
00002650  79 74 65 20 63 65 6e 74  69 73 65 63 73 0d 10 7c  |yte centisecs..||
00002660  34 20 20 20 74 69 6d 65  62 6c 6b 3f 30 20 3d 20  |4   timeblk?0 = |
00002670  33 20 3a 20 c8 99 20 37  2c 31 34 2c 74 69 6d 65  |3 : .. 7,14,time|
00002680  62 6c 6b 20 3a 20 f4 20  22 4f 53 5f 57 6f 72 64  |blk : . "OS_Word|
00002690  22 0d 10 86 30 20 20 20  f2 61 64 64 74 69 6d 65  |"...0   .addtime|
000026a0  28 2d 6c 6f 63 61 6c 6f  66 66 73 65 74 29 20 3a  |(-localoffset) :|
000026b0  20 f4 20 43 6f 6e 76 65  72 74 20 74 6f 20 55 54  | . Convert to UT|
000026c0  43 0d 10 90 06 20 cc 0d  10 9a 34 20 20 20 f2 61  |C.... ....4   .a|
000026d0  64 64 74 69 6d 65 28 bb  28 24 73 74 65 70 6d 69  |ddtime(.($stepmi|
000026e0  6e 73 25 29 2f 36 30 20  2b 20 bb 28 24 73 74 65  |ns%)/60 + .($ste|
000026f0  70 64 61 79 73 25 29 2a  32 34 29 0d 10 a4 06 20  |pdays%)*24).... |
00002700  cd 0d 10 ae 1c 20 79 65  61 72 3d a4 74 69 6d 65  |..... year=.time|
00002710  76 61 6c 28 22 25 43 45  25 59 52 22 29 0d 10 b8  |val("%CE%YR")...|
00002720  15 20 e7 20 74 6f 64 61  79 20 84 20 73 74 65 70  |. . today . step|
00002730  20 8c 0d 10 c2 1c 20 20  20 6d 6f 6e 74 68 3d a4  | .....   month=.|
00002740  74 69 6d 65 76 61 6c 28  22 25 4d 4e 22 29 0d 10  |timeval("%MN")..|
00002750  cc 1a 20 20 20 64 61 79  3d a4 74 69 6d 65 76 61  |..   day=.timeva|
00002760  6c 28 22 25 44 59 22 29  0d 10 d6 06 20 cc 0d 10  |l("%DY").... ...|
00002770  e0 1d 20 20 20 6d 6f 6e  74 68 3d bb 28 c2 24 64  |..   month=.(.$d|
00002780  61 74 65 62 75 66 25 2c  32 29 29 0d 10 ea 1b 20  |atebuf%,2)).... |
00002790  20 20 64 61 79 3d bb 28  c0 24 64 61 74 65 62 75  |  day=.(.$datebu|
000027a0  66 25 2c 32 29 29 0d 10  f4 06 20 cd 0d 10 fe 18  |f%,2)).... .....|
000027b0  20 e7 20 72 65 61 6c 74  69 6d 65 20 84 20 73 74  | . realtime . st|
000027c0  65 70 20 8c 0d 11 08 1c  20 20 20 20 68 6f 75 72  |ep .....    hour|
000027d0  3d a4 74 69 6d 65 76 61  6c 28 22 25 32 34 22 29  |=.timeval("%24")|
000027e0  0d 11 12 1b 20 20 20 6d  69 6e 3d 20 a4 74 69 6d  |....   min= .tim|
000027f0  65 76 61 6c 28 22 25 4d  49 22 29 0d 11 1c 06 20  |eval("%MI").... |
00002800  cc 0d 11 26 1c 20 20 20  68 6f 75 72 3d bb 28 c0  |...&.   hour=.(.|
00002810  24 74 69 6d 65 62 75 66  25 2c 32 29 29 0d 11 30  |$timebuf%,2))..0|
00002820  1b 20 20 20 6d 69 6e 3d  bb 28 c2 24 74 69 6d 65  |.   min=.(.$time|
00002830  62 75 66 25 2c 32 29 29  0d 11 3a 06 20 cd 0d 11  |buf%,2))..:. ...|
00002840  44 47 20 41 25 3d 64 61  79 20 3a 20 42 25 3d 6d  |DG A%=day : B%=m|
00002850  6f 6e 74 68 20 3a 20 43  25 3d 79 65 61 72 20 3a  |onth : C%=year :|
00002860  20 44 25 3d 68 6f 75 72  20 3a 20 45 25 20 3d 6d  | D%=hour : E% =m|
00002870  69 6e 20 3a 20 46 25 3d  30 20 3a 20 d6 20 63 6f  |in : F%=0 : . co|
00002880  6e 76 65 72 74 0d 11 4e  24 20 e7 20 94 28 21 74  |nvert..N$ . .(!t|
00002890  69 6d 65 62 6c 6b 2d 6f  6c 64 74 69 6d 65 29 3c  |imeblk-oldtime)<|
000028a0  20 36 30 30 30 20 8c 20  e1 0d 11 58 15 20 6f 6c  | 6000 . ...X. ol|
000028b0  64 74 69 6d 65 3d 21 74  69 6d 65 62 6c 6b 0d 11  |dtime=!timeblk..|
000028c0  62 04 0d 11 6c 1d 20 74  69 6d 65 64 69 66 3d 31  |b...l. timedif=1|
000028d0  32 2d 28 68 6f 75 72 2b  6d 69 6e 2f 36 30 29 0d  |2-(hour+min/60).|
000028e0  11 76 20 20 e7 20 74 69  6d 65 64 69 66 3c 2d 31  |.v  . timedif<-1|
000028f0  32 20 8c 20 74 69 6d 65  64 69 66 2b 3d 32 34 0d  |2 . timedif+=24.|
00002900  11 80 0f 20 f2 65 71 75  61 74 69 6f 6e 73 0d 11  |... .equations..|
00002910  8a 0d 20 f2 62 61 63 6b  67 6e 64 0d 11 94 0f 20  |.. .backgnd.... |
00002920  f2 75 6e 70 6c 6f 74 73  75 6e 0d 11 9e 18 20 e7  |.unplotsun.... .|
00002930  20 74 65 72 6d 69 20 20  20 f2 67 72 65 79 6c 69  | termi   .greyli|
00002940  6e 65 0d 11 a8 20 20 e7  20 63 6c 6f 63 6b 73 20  |ne...  . clocks |
00002950  20 f2 63 6c 6f 63 6b 73  3a f2 73 68 6f 77 64 61  | .clocks:.showda|
00002960  74 65 0d 11 b2 17 20 e7  20 73 75 6e 20 20 20 20  |te.... . sun    |
00002970  20 f2 70 6c 6f 74 73 75  6e 0d 11 bc 0d 20 f2 66  | .plotsun.... .f|
00002980  6f 72 65 67 6e 64 0d 11  c6 0c 20 f2 75 70 64 61  |oregnd.... .upda|
00002990  74 65 0d 11 d0 05 e1 0d  11 da 05 3a 0d 11 e4 0c  |te.........:....|
000029a0  dd f2 73 63 72 65 65 6e  0d 11 ee 16 20 c8 99 20  |..screen.... .. |
000029b0  22 48 6f 75 72 67 6c 61  73 73 5f 4f 6e 22 0d 11  |"Hourglass_On"..|
000029c0  f8 15 20 53 58 25 3d 30  20 3a 20 53 59 25 3d 2d  |.. SX%=0 : SY%=-|
000029d0  31 30 30 0d 12 02 0d 20  f2 62 61 63 6b 67 6e 64  |100.... .backgnd|
000029e0  0d 12 0c 15 20 e6 30 2c  63 6c 65 61 72 63 6f 6c  |.... .0,clearcol|
000029f0  20 c8 9c 20 30 0d 12 16  15 20 c8 93 c8 90 30 2c  | .. 0.... ....0,|
00002a00  30 2c 31 32 30 30 2c 37  32 30 0d 12 20 0e 20 f2  |0,1200,720.. . .|
00002a10  63 6f 75 6e 74 72 79 73  0d 12 2a 0a 20 f2 66 69  |countrys..*. .fi|
00002a20  6c 6c 0d 12 34 0a 20 f2  67 72 69 64 0d 12 3e 0b  |ll..4. .grid..>.|
00002a30  20 f2 63 69 74 79 73 0d  12 48 0d 20 f2 66 6f 72  | .citys..H. .for|
00002a40  65 67 6e 64 0d 12 52 0e  20 6f 6c 64 74 69 6d 65  |egnd..R. oldtime|
00002a50  3d 30 0d 12 5c 17 20 c8  99 20 22 48 6f 75 72 67  |=0..\. .. "Hourg|
00002a60  6c 61 73 73 5f 4f 66 66  22 0d 12 66 05 e1 0d 12  |lass_Off"..f....|
00002a70  70 05 3a 0d 12 7a 0a dd  f2 67 72 69 64 0d 12 84  |p.:..z...grid...|
00002a80  3a 20 f4 20 31 20 64 65  67 20 6c 61 74 3d 34 2c  |: . 1 deg lat=4,|
00002a90  20 31 20 64 65 67 20 6c  6f 6e 67 3d 33 2e 32 2c  | 1 deg long=3.2,|
00002aa0  20 31 68 72 20 3d 34 38  20 67 72 61 70 68 69 63  | 1hr =48 graphic|
00002ab0  73 20 75 6e 69 74 73 0d  12 8e 17 20 72 68 3d 78  |s units.... rh=x|
00002ac0  6f 66 66 73 65 74 2b 33  36 30 2a 33 2e 32 0d 12  |offset+360*3.2..|
00002ad0  98 15 20 e6 30 2c 62 63  6b 67 6e 64 63 6f 6c 20  |.. .0,bckgndcol |
00002ae0  c8 9c 30 0d 12 a2 17 20  c8 93 c8 90 20 30 2c 36  |..0.... .... 0,6|
00002af0  35 36 2c 31 32 30 30 2c  34 38 0d 12 ac 14 20 e6  |56,1200,48.... .|
00002b00  30 2c 6c 69 6e 65 73 63  6f 6c 20 c8 9c 33 0d 12  |0,linescol ..3..|
00002b10  b6 08 20 f7 2b 31 0d 12  c0 0f 20 e3 20 49 25 3d  |.. .+1.... . I%=|
00002b20  30 20 b8 20 34 0d 12 ca  0c 20 20 20 f3 20 6c 61  |0 . 4....   . la|
00002b30  74 0d 12 d4 26 20 20 20  20 ec 20 30 2c 79 6f 66  |t...&    . 0,yof|
00002b40  66 73 65 74 2b 6c 61 74  2a 34 20 3a 20 f0 31 37  |fset+lat*4 : .17|
00002b50  2c 31 32 30 30 2c 30 0d  12 de 06 20 ed 0d 12 e8  |,1200,0.... ....|
00002b60  1e 20 59 25 3d 79 6f 66  66 73 65 74 2d 38 35 2a  |. Y%=yoffset-85*|
00002b70  34 20 3a 20 4c 25 3d 38  35 2a 38 0d 12 f2 0f 20  |4 : L%=85*8.... |
00002b80  e3 20 58 25 3d 30 b8 20  31 32 0d 12 fc 24 20 20  |. X%=0. 12...$  |
00002b90  20 ec 20 78 6f 66 66 73  65 74 2b 58 25 2a 39 36  | . xoffset+X%*96|
00002ba0  2c 59 25 20 3a 20 f0 31  37 2c 30 2c 4c 25 0d 13  |,Y% : .17,0,L%..|
00002bb0  06 06 20 ed 0d 13 10 05  e1 0d 13 1a 05 3a 0d 13  |.. ..........:..|
00002bc0  24 1d dc 20 2d 36 36 2e  35 2c 2d 32 33 2e 35 2c  |$.. -66.5,-23.5,|
00002bd0  30 2c 32 33 2e 35 2c 36  36 2e 35 0d 13 2e 05 3a  |0,23.5,66.5....:|
00002be0  0d 13 38 0a dd f2 6d 6f  64 65 0d 13 42 45 20 c8  |..8...mode..BE .|
00002bf0  99 20 22 57 69 6d 70 5f  52 65 61 64 50 69 78 54  |. "Wimp_ReadPixT|
00002c00  72 61 6e 73 22 2c 26 31  30 30 2c 73 70 72 69 74  |rans",&100,sprit|
00002c10  65 31 25 2c 22 53 43 52  45 45 4e 22 2c 2c 2c 2c  |e1%,"SCREEN",,,,|
00002c20  73 63 61 6c 65 25 2c 63  6f 6c 5f 74 61 62 25 0d  |scale%,col_tab%.|
00002c30  13 4c 35 20 c8 99 20 22  43 6f 6c 6f 75 72 54 72  |.L5 .. "ColourTr|
00002c40  61 6e 73 5f 53 65 6c 65  63 74 54 61 62 6c 65 22  |ans_SelectTable"|
00002c50  2c 31 35 2c 30 2c 2d 31  2c 2d 31 2c 63 6f 6c 5f  |,15,0,-1,-1,col_|
00002c60  74 61 62 25 0d 13 56 2c  20 c8 99 20 22 4f 53 5f  |tab%..V, .. "OS_|
00002c70  52 65 61 64 4d 6f 64 65  56 61 72 69 61 62 6c 65  |ReadModeVariable|
00002c80  22 2c eb 2c 39 20 b8 20  72 30 2c 72 31 2c 72 32  |",.,9 . r0,r1,r2|
00002c90  0d 13 60 0e 20 e7 20 72  32 3c 3e 33 20 8c 0d 13  |..`. . r2<>3 ...|
00002ca0  6a 53 20 f4 20 6d 6f 64  69 66 79 20 63 6f 6c 6f  |jS . modify colo|
00002cb0  75 72 20 74 72 61 6e 73  20 74 61 62 6c 65 20 66  |ur trans table f|
00002cc0  6f 72 20 62 65 73 74 20  31 36 20 63 6f 6c 6f 75  |or best 16 colou|
00002cd0  72 20 65 66 66 65 63 74  20 28 64 75 65 20 74 6f  |r effect (due to|
00002ce0  20 4f 52 2f 41 4e 44 20  70 6c 6f 74 74 69 6e 67  | OR/AND plotting|
00002cf0  29 0d 13 74 09 20 f7 20  2b 31 0d 13 7e 0f 20 e3  |)..t. . +1..~. .|
00002d00  20 49 25 3d 30 20 b8 20  35 0d 13 88 0e 20 20 20  | I%=0 . 5....   |
00002d10  f3 20 43 25 2c 4e 25 0d  13 92 15 20 20 20 63 6f  |. C%,N%....   co|
00002d20  6c 5f 74 61 62 25 3f 43  25 3d 4e 25 0d 13 9c 07  |l_tab%?C%=N%....|
00002d30  20 20 ed 0d 13 a6 06 20  cd 0d 13 b0 2b 20 dc 20  |  ..... ....+ . |
00002d40  31 30 38 2c 31 30 2c 33  32 2c 31 33 2c 31 32 38  |108,10,32,13,128|
00002d50  2c 38 2c 32 30 34 2c 31  35 2c 37 36 2c 38 2c 31  |,8,204,15,76,8,1|
00002d60  37 36 2c 33 0d 13 ba 12  20 63 6f 6c 5f 74 61 62  |76,3.... col_tab|
00002d70  25 3f 37 36 3d 35 0d 13  c4 10 20 63 6c 65 61 72  |%?76=5.... clear|
00002d80  63 6f 6c 3d 33 32 0d 13  ce 0e 20 6c 61 6e 64 63  |col=32.... landc|
00002d90  6f 6c 3d 34 0d 13 d8 0f  20 63 6f 61 73 74 63 6f  |ol=4.... coastco|
00002da0  6c 3d 39 0d 13 e2 10 20  6c 69 6e 65 73 63 6f 6c  |l=9.... linescol|
00002db0  3d 34 32 0d 13 ec 11 20  62 63 6b 67 6e 64 63 6f  |=42.... bckgndco|
00002dc0  6c 3d 36 33 0d 13 f6 0e  20 74 65 78 74 63 6f 6c  |l=63.... textcol|
00002dd0  3d 33 0d 14 00 0f 20 63  69 74 79 63 6f 6c 3d 36  |=3.... citycol=6|
00002de0  33 0d 14 0a 0f 20 62 6c  61 63 6b 63 6f 6c 3d 30  |3.... blackcol=0|
00002df0  0d 14 14 0e 20 73 75 6e  63 6f 6c 3d 31 35 0d 14  |.... suncol=15..|
00002e00  1e 05 e1 0d 14 28 05 3a  0d 14 32 33 dd a4 74 69  |.....(.:..23..ti|
00002e10  6d 65 74 65 78 74 28 66  24 29 3a 20 f4 20 63 6f  |metext(f$): . co|
00002e20  6e 76 65 72 74 20 35 2d  62 79 74 65 20 74 69 6d  |nvert 5-byte tim|
00002e30  65 20 74 6f 20 73 74 72  69 6e 67 0d 14 3c 16 20  |e to string..<. |
00002e40  24 74 69 6d 65 66 6f 72  6d 61 74 3d 66 24 2b bd  |$timeformat=f$+.|
00002e50  30 0d 14 46 1e 20 f4 20  22 4f 53 5f 43 6f 6e 76  |0..F. . "OS_Conv|
00002e60  65 72 74 44 61 74 65 41  6e 64 54 69 6d 65 22 0d  |ertDateAndTime".|
00002e70  14 50 34 20 c8 99 20 26  43 31 2c 74 69 6d 65 62  |.P4 .. &C1,timeb|
00002e80  6c 6b 2c 74 69 6d 65 73  74 72 69 6e 67 2c 36 34  |lk,timestring,64|
00002e90  2c 74 69 6d 65 66 6f 72  6d 61 74 20 b8 20 72 30  |,timeformat . r0|
00002ea0  2c 72 31 0d 14 5a 0b 20  3f 72 31 3d 31 33 0d 14  |,r1..Z. ?r1=13..|
00002eb0  64 10 3d 24 74 69 6d 65  73 74 72 69 6e 67 0d 14  |d.=$timestring..|
00002ec0  6e 05 3a 0d 14 78 32 dd  a4 74 69 6d 65 76 61 6c  |n.:..x2..timeval|
00002ed0  28 66 24 29 3a 20 f4 20  63 6f 6e 76 65 72 74 20  |(f$): . convert |
00002ee0  35 2d 62 79 74 65 20 74  69 6d 65 20 74 6f 20 6e  |5-byte time to n|
00002ef0  75 6d 62 65 72 0d 14 82  16 20 24 74 69 6d 65 66  |umber.... $timef|
00002f00  6f 72 6d 61 74 3d 66 24  2b bd 30 0d 14 8c 34 20  |ormat=f$+.0...4 |
00002f10  c8 99 20 26 43 31 2c 74  69 6d 65 62 6c 6b 2c 74  |.. &C1,timeblk,t|
00002f20  69 6d 65 73 74 72 69 6e  67 2c 36 34 2c 74 69 6d  |imestring,64,tim|
00002f30  65 66 6f 72 6d 61 74 20  b8 20 72 30 2c 72 31 0d  |eformat . r0,r1.|
00002f40  14 96 0b 20 3f 72 31 3d  31 33 0d 14 a0 13 3d bb  |... ?r1=13....=.|
00002f50  28 24 74 69 6d 65 73 74  72 69 6e 67 29 0d 14 aa  |($timestring)...|
00002f60  05 3a 0d 14 b4 10 dd f2  61 64 64 74 69 6d 65 28  |.:......addtime(|
00002f70  74 29 0d 14 be 21 20 20  41 25 3d 74 2a 31 38 30  |t)...!  A%=t*180|
00002f80  30 30 30 20 3a 20 d6 20  61 64 64 20 3a 20 d6 20  |000 : . add : . |
00002f90  61 64 64 0d 14 c8 2b 20  20 f4 20 32 20 61 64 64  |add...+  . 2 add|
00002fa0  73 20 6b 65 65 70 73 20  33 36 35 20 64 61 79 73  |s keeps 365 days|
00002fb0  20 75 6e 64 65 72 20 33  32 20 62 69 74 73 0d 14  | under 32 bits..|
00002fc0  d2 05 e1 0d 14 dc 05 3a  0d 14 e6 10 dd a4 73 75  |.......:......su|
00002fd0  6d 6d 65 72 28 43 25 29  0d 14 f0 09 20 53 25 3d  |mmer(C%).... S%=|
00002fe0  a3 0d 14 fa 1c 20 77 65  65 6b 64 61 79 3d a4 74  |..... weekday=.t|
00002ff0  69 6d 65 76 61 6c 28 22  25 57 4e 22 29 0d 15 04  |imeval("%WN")...|
00003000  0c 20 c8 8e 20 43 25 20  ca 0d 15 0e 3b 20 20 c9  |. .. C% ....;  .|
00003010  20 31 20 3a 20 f4 20 55  53 20 44 53 54 3d 20 66  | 1 : . US DST= f|
00003020  69 72 73 74 20 53 75 6e  64 61 79 20 41 70 72 69  |irst Sunday Apri|
00003030  6c 20 74 6f 20 6c 61 73  74 20 53 75 6e 64 61 79  |l to last Sunday|
00003040  20 4f 63 74 0d 15 18 34  20 20 20 e7 20 28 6d 6f  | Oct...4   . (mo|
00003050  6e 74 68 3d 34 20 80 20  64 61 79 2d 77 65 65 6b  |nth=4 . day-week|
00003060  64 61 79 3e 3d 30 29 20  84 20 6d 6f 6e 74 68 3e  |day>=0) . month>|
00003070  34 20 8c 20 53 25 3d b9  0d 15 22 39 20 20 20 e7  |4 . S%=..."9   .|
00003080  20 28 6d 6f 6e 74 68 3d  31 30 20 80 20 33 31 2d  | (month=10 . 31-|
00003090  64 61 79 2b 77 65 65 6b  64 61 79 3c 3d 37 29 20  |day+weekday<=7) |
000030a0  84 20 6d 6f 6e 74 68 3e  31 30 20 8c 20 53 25 3d  |. month>10 . S%=|
000030b0  a3 0d 15 2c 44 20 20 c9  20 32 20 3a 20 f4 20 45  |...,D  . 2 : . E|
000030c0  75 72 6f 20 73 75 6d 6d  65 72 20 74 69 6d 65 20  |uro summer time |
000030d0  6c 61 73 74 20 53 75 6e  64 61 79 20 4d 61 72 63  |last Sunday Marc|
000030e0  68 20 74 6f 20 6c 61 73  74 20 53 75 6e 64 61 79  |h to last Sunday|
000030f0  20 53 65 70 74 0d 15 36  37 20 20 20 e7 20 28 6d  | Sept..67   . (m|
00003100  6f 6e 74 68 3d 33 20 80  20 33 31 2d 64 61 79 2b  |onth=3 . 31-day+|
00003110  77 65 65 6b 64 61 79 3c  3d 37 29 20 84 20 6d 6f  |weekday<=7) . mo|
00003120  6e 74 68 3e 33 20 8c 20  53 25 3d b9 0d 15 40 37  |nth>3 . S%=...@7|
00003130  20 20 20 e7 20 28 6d 6f  6e 74 68 3d 39 20 80 20  |   . (month=9 . |
00003140  33 31 2d 64 61 79 2b 77  65 65 6b 64 61 79 3c 3d  |31-day+weekday<=|
00003150  37 29 20 84 20 6d 6f 6e  74 68 3e 39 20 8c 20 53  |7) . month>9 . S|
00003160  25 3d a3 0d 15 4a 59 20  20 c9 20 33 20 3a 20 f4  |%=...JY  . 3 : .|
00003170  20 42 72 69 74 69 73 68  20 73 75 6d 6d 65 72 20  | British summer |
00003180  74 69 6d 65 20 6c 61 73  74 20 53 75 6e 64 61 79  |time last Sunday|
00003190  20 4d 61 72 63 68 20 74  6f 20 53 75 6e 64 61 79  | March to Sunday|
000031a0  20 61 66 74 65 72 20 6c  61 73 74 20 53 61 74 75  | after last Satu|
000031b0  72 64 61 79 20 4f 63 74  6f 62 65 72 0d 15 54 37  |rday October..T7|
000031c0  20 20 20 e7 20 28 6d 6f  6e 74 68 3d 33 20 80 20  |   . (month=3 . |
000031d0  33 31 2d 64 61 79 2b 77  65 65 6b 64 61 79 3c 3d  |31-day+weekday<=|
000031e0  37 29 20 84 20 6d 6f 6e  74 68 3e 33 20 8c 20 53  |7) . month>3 . S|
000031f0  25 3d b9 0d 15 5e 39 20  20 20 e7 20 28 6d 6f 6e  |%=...^9   . (mon|
00003200  74 68 3d 31 30 20 80 20  32 38 2d 64 61 79 2b 77  |th=10 . 28-day+w|
00003210  65 65 6b 64 61 79 3c 3d  36 29 20 84 20 6d 6f 6e  |eekday<=6) . mon|
00003220  74 68 3e 31 30 20 8c 20  53 25 3d a3 0d 15 68 06  |th>10 . S%=...h.|
00003230  20 cb 0d 15 72 07 3d 53  25 0d 15 7c 05 3a 0d 15  | ...r.=S%..|.:..|
00003240  86 0e dd f2 73 68 6f 77  64 61 74 65 0d 15 90 13  |....showdate....|
00003250  20 58 25 3d 34 30 20 3a  20 59 25 3d 36 36 30 0d  | X%=40 : Y%=660.|
00003260  15 9a 15 20 e6 30 2c 62  63 6b 67 6e 64 63 6f 6c  |... .0,bckgndcol|
00003270  20 c8 9c 30 0d 15 a4 17  20 c8 93 c8 90 20 58 25  | ..0.... .... X%|
00003280  2c 59 25 2c 31 31 36 30  2c 33 36 0d 15 ae 0f 20  |,Y%,1160,36.... |
00003290  e6 30 2c 74 65 78 74 63  6f 6c 0d 15 b8 0f 20 ec  |.0,textcol.... .|
000032a0  20 58 25 2c 59 25 2b 33  30 0d 15 c2 1e 20 4c 25  | X%,Y%+30.... L%|
000032b0  3d 74 69 6d 65 62 6c 6b  21 30 3a 48 25 3d 74 69  |=timeblk!0:H%=ti|
000032c0  6d 65 62 6c 6b 21 34 0d  15 cc 39 20 f1 20 a4 74  |meblk!4...9 . .t|
000032d0  69 6d 65 74 65 78 74 28  22 20 25 32 34 3a 25 4d  |imetext(" %24:%M|
000032e0  49 20 20 25 57 33 20 25  7a 44 59 25 53 54 20 25  |I  %W3 %zDY%ST %|
000032f0  4d 33 20 25 43 45 25 59  52 20 55 54 43 22 29 3b  |M3 %CE%YR UTC");|
00003300  0d 15 d6 36 20 f2 61 64  64 74 69 6d 65 28 6c 6f  |...6 .addtime(lo|
00003310  63 61 6c 6f 66 66 73 65  74 29 20 20 20 3a 20 f4  |caloffset)   : .|
00003320  20 63 6f 6e 76 65 72 74  20 62 61 63 6b 20 74 6f  | convert back to|
00003330  20 4c 6f 63 61 6c 0d 15  e0 3d 20 f1 20 a4 74 69  | Local...= . .ti|
00003340  6d 65 74 65 78 74 28 22  20 20 20 20 25 32 34 3a  |metext("    %24:|
00003350  25 4d 49 20 20 25 57 33  20 25 7a 44 59 25 53 54  |%MI  %W3 %zDY%ST|
00003360  20 25 4d 33 20 25 43 45  25 59 52 20 4c 6f 63 61  | %M3 %CE%YR Loca|
00003370  6c 22 29 0d 15 ea 1e 20  74 69 6d 65 62 6c 6b 21  |l").... timeblk!|
00003380  30 3d 4c 25 3a 74 69 6d  65 62 6c 6b 21 34 3d 48  |0=L%:timeblk!4=H|
00003390  25 0d 15 f4 05 e1 0d 15  fe 05 3a 0d 16 08 0b dd  |%.........:.....|
000033a0  f2 63 69 74 79 73 0d 16  12 06 ef 35 0d 16 1c 15  |.citys.....5....|
000033b0  e3 20 49 25 3d 30 20 b8  20 6e 6f 5f 63 69 74 79  |. I%=0 . no_city|
000033c0  73 0d 16 26 14 20 e7 20  63 69 74 79 6f 6e 25 28  |s..&. . cityon%(|
000033d0  49 25 29 20 8c 0d 16 30  22 20 20 20 58 25 3d 63  |I%) ...0"   X%=c|
000033e0  69 74 79 58 28 49 25 29  20 3a 20 59 25 3d 63 69  |ityX(I%) : Y%=ci|
000033f0  74 79 59 28 49 25 29 0d  16 3a 18 20 20 20 e6 30  |tyY(I%)..:.   .0|
00003400  2c 63 69 74 79 63 6f 6c  20 c8 9c 20 31 32 38 0d  |,citycol .. 128.|
00003410  16 44 1c 20 20 20 e7 20  63 69 74 69 65 73 20 c8  |.D.   . cities .|
00003420  93 20 58 25 2c 59 25 2c  34 2c 34 0d 16 4e 1b 20  |. X%,Y%,4,4..N. |
00003430  20 20 c8 8e 20 c2 63 69  74 79 6e 61 6d 65 24 28  |  .. .cityname$(|
00003440  49 25 29 29 20 ca 0d 16  58 0c 20 20 20 c9 20 22  |I%)) ...X.   . "|
00003450  3e 22 0d 16 62 0f 20 20  20 20 20 f0 30 2c 38 2c  |>"..b.     .0,8,|
00003460  30 0d 16 6c 0c 20 20 20  c9 20 22 3c 22 0d 16 76  |0..l.   . "<"..v|
00003470  24 20 20 20 20 20 f0 30  2c 2d a9 28 63 69 74 79  |$     .0,-.(city|
00003480  6e 61 6d 65 24 28 49 25  29 29 2a 31 36 2b 38 2c  |name$(I%))*16+8,|
00003490  30 0d 16 80 10 20 20 20  20 20 58 25 2d 3d 31 30  |0....     X%-=10|
000034a0  30 0d 16 8a 08 20 20 20  7f 0d 16 94 25 20 20 20  |0....   ....%   |
000034b0  20 20 f0 30 2c 2d a9 28  63 69 74 79 6e 61 6d 65  |  .0,-.(cityname|
000034c0  24 28 49 25 29 29 2a 38  2b 38 2c 2d 31 32 0d 16  |$(I%))*8+8,-12..|
000034d0  9e 18 20 20 20 20 20 59  25 2d 3d 31 32 20 3a 20  |..     Y%-=12 : |
000034e0  58 25 2d 3d 34 38 0d 16  a8 08 20 20 20 cb 0d 16  |X%-=48....   ...|
000034f0  b2 21 20 20 20 e7 20 63  69 74 69 65 73 20 f1 20  |.!   . cities . |
00003500  c0 63 69 74 79 6e 61 6d  65 24 28 49 25 29 29 0d  |.cityname$(I%)).|
00003510  16 bc 22 20 20 20 63 6c  6f 63 6b 58 28 49 25 29  |.."   clockX(I%)|
00003520  3d 58 25 3a 63 6c 6f 63  6b 59 28 49 25 29 3d 59  |=X%:clockY(I%)=Y|
00003530  25 0d 16 c6 06 20 cd 0d  16 d0 05 ed 0d 16 da 05  |%.... ..........|
00003540  e1 0d 16 e4 05 3a 0d 16  ee 0c dd f2 63 6c 6f 63  |.....:......cloc|
00003550  6b 73 0d 16 f8 06 ef 35  0d 17 02 15 e3 20 49 25  |ks.....5..... I%|
00003560  3d 30 20 b8 20 6e 6f 5f  63 69 74 79 73 0d 17 0c  |=0 . no_citys...|
00003570  15 20 20 e7 20 63 69 74  79 6f 6e 25 28 49 25 29  |.  . cityon%(I%)|
00003580  20 8c 0d 17 16 25 20 20  20 20 58 25 3d 63 6c 6f  | ....%    X%=clo|
00003590  63 6b 58 28 49 25 29 20  3a 20 59 25 3d 63 6c 6f  |ckX(I%) : Y%=clo|
000035a0  63 6b 59 28 49 25 29 0d  17 20 13 20 20 20 20 e6  |ckY(I%).. .    .|
000035b0  30 2c 62 6c 61 63 6b 63  6f 6c 0d 17 2a 1c 20 20  |0,blackcol..*.  |
000035c0  20 20 c8 93 c8 90 58 25  2b 38 2c 59 25 2d 36 34  |  ....X%+8,Y%-64|
000035d0  2c 38 30 2c 33 32 0d 17  34 12 20 20 20 20 e6 30  |,80,32..4.    .0|
000035e0  2c 74 65 78 74 63 6f 6c  0d 17 3e 21 20 20 20 20  |,textcol..>!    |
000035f0  48 25 3d 74 69 6d 65 62  6c 6b 21 34 3a 4c 25 3d  |H%=timeblk!4:L%=|
00003600  74 69 6d 65 62 6c 6b 21  30 0d 17 48 1e 20 20 20  |timeblk!0..H.   |
00003610  20 f2 61 64 64 74 69 6d  65 28 63 69 74 79 74 69  | .addtime(cityti|
00003620  6d 65 28 49 25 29 29 0d  17 52 2b 20 20 20 20 e7  |me(I%))..R+    .|
00003630  20 a4 73 75 6d 6d 65 72  28 73 6d 74 79 70 65 28  | .summer(smtype(|
00003640  49 25 29 29 20 8c 20 f2  61 64 64 74 69 6d 65 28  |I%)) . .addtime(|
00003650  31 29 0d 17 5c 15 20 20  20 20 ec 20 58 25 2b 31  |1)..\.    . X%+1|
00003660  30 2c 59 25 2d 33 36 0d  17 66 1e 20 20 20 20 f1  |0,Y%-36..f.    .|
00003670  20 a4 74 69 6d 65 74 65  78 74 28 22 25 32 34 3a  | .timetext("%24:|
00003680  25 4d 49 22 29 0d 17 70  21 20 20 20 20 74 69 6d  |%MI")..p!    tim|
00003690  65 62 6c 6b 21 34 3d 48  25 3a 74 69 6d 65 62 6c  |eblk!4=H%:timebl|
000036a0  6b 21 30 3d 4c 25 0d 17  7a 07 20 20 cd 0d 17 84  |k!0=L%..z.  ....|
000036b0  05 ed 0d 17 8e 05 e1 0d  17 98 05 3a 0d 17 a2 0e  |...........:....|
000036c0  dd f2 67 72 65 79 6c 69  6e 65 0d 17 ac 10 20 e6  |..greyline.... .|
000036d0  20 31 2c 32 35 20 c8 9c  20 30 0d 17 b6 15 20 c8  | 1,25 .. 0.... .|
000036e0  93 c8 90 30 2c 30 2c 31  32 30 30 2c 36 35 32 0d  |...0,0,1200,652.|
000036f0  17 c0 10 20 e6 20 32 2c  33 38 20 c8 9c 20 30 0d  |... . 2,38 .. 0.|
00003700  17 ca 1f 20 e3 20 6c 61  74 64 65 67 3d 2d 38 35  |... . latdeg=-85|
00003710  20 b8 20 38 35 20 88 20  72 65 73 25 2f 32 0d 17  | . 85 . res%/2..|
00003720  d4 14 20 20 20 6c 61 74  3d b2 28 6c 61 74 64 65  |..   lat=.(latde|
00003730  67 29 0d 17 de 10 20 20  20 f2 72 69 73 65 5f 73  |g)....   .rise_s|
00003740  65 74 0d 17 e8 0c 20 20  20 f2 70 6c 6f 74 0d 17  |et....   .plot..|
00003750  f2 06 20 ed 0d 17 fc 05  e1 0d 18 06 05 3a 0d 18  |.. ..........:..|
00003760  10 0f dd f2 65 71 75 61  74 69 6f 6e 73 0d 18 1a  |....equations...|
00003770  22 20 41 3d 32 2a af 2a  28 a4 74 69 6d 65 76 61  |" A=2*.*(.timeva|
00003780  6c 28 22 25 44 4e 22 29  2d 31 29 2f 33 36 35 0d  |l("%DN")-1)/365.|
00003790  18 24 12 20 f4 20 64 65  63 6c 69 6e 61 74 69 6f  |.$. . declinatio|
000037a0  6e 0d 18 2e 57 20 64 65  63 6c 3d 30 2e 34 35 36  |n...W decl=0.456|
000037b0  2d 32 32 2e 39 31 35 2a  9b 28 41 29 2d 30 2e 34  |-22.915*.(A)-0.4|
000037c0  33 2a 9b 28 32 2a 41 29  2d 30 2e 31 35 36 2a 9b  |3*.(2*A)-0.156*.|
000037d0  28 33 2a 41 29 2b 33 2e  38 33 2a b5 28 41 29 2b  |(3*A)+3.83*.(A)+|
000037e0  30 2e 30 36 2a b5 28 32  2a 41 29 2d 30 2e 30 38  |0.06*.(2*A)-0.08|
000037f0  32 2a b5 28 33 2a 41 29  0d 18 38 13 20 74 64 65  |2*.(3*A)..8. tde|
00003800  3d b7 28 b2 28 64 65 63  6c 29 29 0d 18 42 17 20  |=.(.(decl))..B. |
00003810  f4 20 65 71 75 61 74 69  6f 6e 20 6f 66 20 74 69  |. equation of ti|
00003820  6d 65 0d 18 4c 70 20 65  71 75 3d 30 2e 30 30 38  |me..Lp equ=0.008|
00003830  2b 30 2e 35 31 2a 9b 28  41 29 2d 33 2e 31 39 37  |+0.51*.(A)-3.197|
00003840  2a 9b 28 32 2a 41 29 2d  30 2e 31 30 36 2a 9b 28  |*.(2*A)-0.106*.(|
00003850  33 2a 41 29 2d 30 2e 31  35 2a 9b 28 34 2a 41 29  |3*A)-0.15*.(4*A)|
00003860  2d 37 2e 33 31 37 2a b5  28 41 29 2d 39 2e 34 37  |-7.317*.(A)-9.47|
00003870  31 2a b5 28 32 2a 41 29  2d 30 2e 33 39 31 2a b5  |1*.(2*A)-0.391*.|
00003880  28 33 2a 41 29 2d 30 2e  32 34 32 2a b5 28 34 2a  |(3*A)-0.242*.(4*|
00003890  41 29 0d 18 56 05 e1 0d  18 60 05 3a 0d 18 6a 0e  |A)..V....`.:..j.|
000038a0  dd f2 72 69 73 65 5f 73  65 74 0d 18 74 0b 20 66  |..rise_set..t. f|
000038b0  6c 61 67 3d 30 0d 18 7e  11 20 61 3d 74 64 65 2a  |lag=0..~. a=tde*|
000038c0  b7 28 6c 61 74 29 0d 18  88 18 20 e7 20 61 3e 31  |.(lat).... . a>1|
000038d0  20 20 8c 20 66 6c 61 67  3d 31 20 3a 20 e1 0d 18  |  . flag=1 : ...|
000038e0  92 18 20 e7 20 61 3c 2d  31 20 8c 20 66 6c 61 67  |.. . a<-1 . flag|
000038f0  3d 32 20 3a 20 e1 0d 18  9c 1d 20 62 3d 9d 28 2d  |=2 : ..... b=.(-|
00003900  99 28 61 2f b6 28 2d 61  2a 61 2b 31 29 29 2b af  |.(a/.(-a*a+1))+.|
00003910  2f 32 29 0d 18 a6 0e 20  72 69 73 65 3d 62 2f 31  |/2).... rise=b/1|
00003920  35 0d 18 b0 0e 20 73 65  74 3d 2d 72 69 73 65 0d  |5.... set=-rise.|
00003930  18 ba 1b 20 73 65 74 3d  73 65 74 2b 74 69 6d 65  |... set=set+time|
00003940  64 69 66 2d 65 71 75 2f  36 30 0d 18 c4 1d 20 72  |dif-equ/60.... r|
00003950  69 73 65 3d 72 69 73 65  2b 74 69 6d 65 64 69 66  |ise=rise+timedif|
00003960  2d 65 71 75 2f 36 30 0d  18 ce 1a 20 e7 20 72 69  |-equ/60.... . ri|
00003970  73 65 3e 3d 32 34 20 8c  20 72 69 73 65 2d 3d 32  |se>=24 . rise-=2|
00003980  34 0d 18 d8 1a 20 e7 20  72 69 73 65 3c 3d 30 20  |4.... . rise<=0 |
00003990  20 8c 20 72 69 73 65 2b  3d 32 34 0d 18 e2 19 20  | . rise+=24.... |
000039a0  e7 20 73 65 74 3e 3d 32  34 20 20 8c 20 73 65 74  |. set>=24  . set|
000039b0  2d 3d 32 34 0d 18 ec 19  20 e7 20 73 65 74 3c 3d  |-=24.... . set<=|
000039c0  30 20 20 20 8c 20 73 65  74 2b 3d 32 34 0d 18 f6  |0   . set+=24...|
000039d0  05 e1 0d 19 00 05 3a 0d  19 0a 0a dd f2 70 6c 6f  |......:......plo|
000039e0  74 0d 19 14 22 20 59 25  3d 79 6f 66 66 73 65 74  |t..." Y%=yoffset|
000039f0  2b 6c 61 74 64 65 67 2a  34 20 3a f4 20 2f 31 35  |+latdeg*4 :. /15|
00003a00  2a 36 30 0d 19 1e 0e 20  c8 8e 20 66 6c 61 67 20  |*60.... .. flag |
00003a10  ca 0d 19 28 09 20 20 c9  20 30 0d 19 32 12 20 20  |...(.  . 0..2.  |
00003a20  20 20 52 25 3d 34 38 2a  72 69 73 65 0d 19 3c 11  |  R%=48*rise..<.|
00003a30  20 20 20 20 53 25 3d 34  38 2a 73 65 74 0d 19 46  |    S%=48*set..F|
00003a40  14 20 20 20 20 e7 20 73  65 74 3e 72 69 73 65 20  |.    . set>rise |
00003a50  8c 0d 19 50 23 20 20 20  20 20 20 c8 93 c8 90 20  |...P#      .... |
00003a60  30 2c 59 25 2c 52 25 2b  78 6f 66 66 73 65 74 2c  |0,Y%,R%+xoffset,|
00003a70  72 65 73 25 0d 19 5a 27  20 20 20 20 20 20 c8 93  |res%..Z'      ..|
00003a80  c8 90 20 78 6f 66 66 73  65 74 2b 53 25 2c 59 25  |.. xoffset+S%,Y%|
00003a90  2c 72 68 2d 53 25 2c 72  65 73 25 0d 19 64 09 20  |,rh-S%,res%..d. |
00003aa0  20 20 20 cc 0d 19 6e 27  20 20 20 20 20 20 c8 93  |   ...n'      ..|
00003ab0  c8 90 20 78 6f 66 66 73  65 74 2b 53 25 2c 59 25  |.. xoffset+S%,Y%|
00003ac0  2c 52 25 2d 53 25 2c 72  65 73 25 0d 19 78 09 20  |,R%-S%,res%..x. |
00003ad0  20 20 20 cd 0d 19 82 25  20 20 c9 20 32 20 3a 20  |   ....%  . 2 : |
00003ae0  c8 93 c8 90 20 30 2c 59  25 2c 72 68 2b 78 6f 66  |.... 0,Y%,rh+xof|
00003af0  66 73 65 74 2c 72 65 73  25 0d 19 8c 06 20 cb 0d  |fset,res%.... ..|
00003b00  19 96 05 e1 0d 19 a0 05  3a 0d 19 aa 0d dd f2 70  |........:......p|
00003b10  6c 6f 74 73 75 6e 0d 19  b4 17 20 53 59 25 3d 64  |lotsun.... SY%=d|
00003b20  65 63 6c 2a 34 2b 79 6f  66 66 73 65 74 0d 19 be  |ecl*4+yoffset...|
00003b30  22 20 53 58 25 3d 78 6f  66 66 73 65 74 2b 28 28  |" SX%=xoffset+((|
00003b40  31 32 2b 74 69 6d 65 64  69 66 29 2a 34 38 29 0d  |12+timedif)*48).|
00003b50  19 c8 3f 20 c8 99 26 32  45 2c 31 36 2b 32 35 36  |..? ..&2E,16+256|
00003b60  2c 73 70 72 69 74 65 32  25 2c 22 54 45 4d 50 22  |,sprite2%,"TEMP"|
00003b70  2c 30 2c 53 58 25 2d 31  36 2c 53 59 25 2d 31 36  |,0,SX%-16,SY%-16|
00003b80  2c 53 58 25 2b 31 36 2c  53 59 25 2b 31 36 0d 19  |,SX%+16,SY%+16..|
00003b90  d2 09 20 e6 30 2c 37 0d  19 dc 1b 20 ec 20 53 58  |.. .0,7.... . SX|
00003ba0  25 2d 31 36 2c 53 59 25  20 3a 20 df 42 59 33 32  |%-16,SY% : .BY32|
00003bb0  2c 30 0d 19 e6 1b 20 ec  20 53 58 25 2c 53 59 25  |,0.... . SX%,SY%|
00003bc0  2d 31 36 20 3a 20 df 42  59 30 2c 33 32 0d 19 f0  |-16 : .BY0,32...|
00003bd0  11 20 c8 8f 20 53 58 25  2c 53 59 25 2c 38 0d 19  |. .. SX%,SY%,8..|
00003be0  fa 13 20 e6 30 2c 73 75  6e 63 6f 6c 20 c8 9c 20  |.. .0,suncol .. |
00003bf0  33 0d 1a 04 13 20 c8 8f  c8 90 20 53 58 25 2c 53  |3.... .... SX%,S|
00003c00  59 25 2c 36 0d 1a 0e 05  e1 0d 1a 18 05 3a 0d 1a  |Y%,6.........:..|
00003c10  22 0f dd f2 75 6e 70 6c  6f 74 73 75 6e 0d 1a 2c  |"...unplotsun..,|
00003c20  31 20 c8 99 26 32 45 2c  33 34 2b 32 35 36 2c 73  |1 ..&2E,34+256,s|
00003c30  70 72 69 74 65 32 25 2c  22 54 45 4d 50 22 2c 53  |prite2%,"TEMP",S|
00003c40  58 25 2d 31 36 2c 53 59  25 2d 31 36 2c 30 0d 1a  |X%-16,SY%-16,0..|
00003c50  36 05 e1 0d 1a 40 05 3a  0d 1a 4a 0a dd f2 66 69  |6....@.:..J...fi|
00003c60  6c 6c 0d 1a 54 12 20 e6  20 31 32 38 2b 6c 61 6e  |ll..T. . 128+lan|
00003c70  64 63 6f 6c 0d 1a 5e 09  20 f7 20 2b 31 0d 1a 68  |dcol..^. . +1..h|
00003c80  06 20 f5 0d 1a 72 11 20  20 20 f3 20 6c 61 74 2c  |. ...r.   . lat,|
00003c90  6c 6f 6e 67 0d 1a 7c 31  20 20 20 f0 20 31 34 33  |long..|1   . 143|
00003ca0  2c 28 31 38 30 2b 6c 6f  6e 67 29 2a 33 2e 32 2b  |,(180+long)*3.2+|
00003cb0  78 6f 66 66 73 65 74 2c  6c 61 74 2a 34 2b 79 6f  |xoffset,lat*4+yo|
00003cc0  66 66 73 65 74 0d 1a 86  10 20 fd 20 6c 61 74 3d  |ffset.... . lat=|
00003cd0  26 46 46 46 46 0d 1a 90  32 20 ec 20 33 36 30 2a  |&FFFF...2 . 360*|
00003ce0  33 2e 32 2c 36 30 2a 34  2b 79 6f 66 66 73 65 74  |3.2,60*4+yoffset|
00003cf0  20 3a 20 f4 20 6d 6f 76  65 20 74 69 70 20 6f 66  | : . move tip of|
00003d00  20 52 75 73 73 69 61 0d  1a 9a 23 20 ec 20 33 36  | Russia...# . 36|
00003d10  39 2a 33 2e 32 2b 78 6f  66 66 73 65 74 2c 37 30  |9*3.2+xoffset,70|
00003d20  2a 34 2b 79 6f 66 66 73  65 74 0d 1a a4 19 20 f0  |*4+yoffset.... .|
00003d30  20 31 39 30 2c 30 2c 36  30 2a 34 2b 79 6f 66 66  | 190,0,60*4+yoff|
00003d40  73 65 74 0d 1a ae 05 e1  0d 1a b8 05 3a 0d 1a c2  |set.........:...|
00003d50  22 f4 20 20 20 43 65 6e  74 72 65 20 66 6f 72 20  |".   Centre for |
00003d60  66 69 6c 6c 20 20 4c 61  74 2c 20 4c 6f 6e 67 0d  |fill  Lat, Long.|
00003d70  1a cc 49 dc 20 35 33 2e  35 2c 2d 38 2c 35 34 2c  |..I. 53.5,-8,54,|
00003d80  2d 32 2c 35 31 2c 32 33  2c 36 34 2c 32 30 2c 37  |-2,51,23,64,20,7|
00003d90  36 2c 2d 34 30 2c 35 30  2c 2d 38 30 2c 30 2c 2d  |6,-40,50,-80,0,-|
00003da0  37 30 2c 2d 31 39 2c 34  36 2c 2d 35 2c 31 34 31  |70,-19,46,-5,141|
00003db0  2c 2d 32 35 2c 31 33 35  0d 1a d6 4b dc 20 2d 32  |,-25,135...K. -2|
00003dc0  2c 31 31 32 2c 30 2c 31  31 34 2c 33 36 2c 31 33  |,112,0,114,36,13|
00003dd0  38 2c 2d 37 32 2c 2d 36  37 2c 2d 37 35 2c 33 30  |8,-72,-67,-75,30|
00003de0  2c 32 30 2c 31 30 2c 36  37 2c 2d 37 30 2c 34 2c  |,20,10,67,-70,4,|
00003df0  31 30 32 2c 2d 31 2c 31  30 32 2c 36 35 2c 2d 31  |102,-1,102,65,-1|
00003e00  37 2e 35 0d 1a e0 11 dc  20 26 46 46 46 46 2c 26  |7.5..... &FFFF,&|
00003e10  46 46 46 46 0d 1a ea 05  3a 0d 1a f4 0e dd f2 63  |FFFF....:......c|
00003e20  6f 75 6e 74 72 79 73 0d  1a fe 10 20 e6 30 2c 63  |ountrys.... .0,c|
00003e30  6f 61 73 74 63 6f 6c 0d  1b 08 0f 20 50 25 3d 64  |oastcol.... P%=d|
00003e40  61 74 61 62 75 66 0d 1b  12 16 20 58 25 3d 50 25  |atabuf.... X%=P%|
00003e50  21 30 20 3a 20 59 25 3d  50 25 21 34 0d 1b 1c 11  |!0 : Y%=P%!4....|
00003e60  20 c8 95 20 59 25 3c 3e  26 46 46 46 46 0d 1b 26  | .. Y%<>&FFFF..&|
00003e70  0e 20 20 20 ec 20 58 25  2c 59 25 0d 1b 30 20 20  |.   . X%,Y%..0  |
00003e80  20 20 50 25 2b 3d 38 20  3a 20 58 25 3d 50 25 21  |  P%+=8 : X%=P%!|
00003e90  30 20 3a 20 59 25 3d 50  25 21 34 0d 1b 3a 13 20  |0 : Y%=P%!4..:. |
00003ea0  20 20 c8 95 20 58 25 3c  3e 26 46 46 46 46 0d 1b  |  .. X%<>&FFFF..|
00003eb0  44 0e 20 20 20 20 20 50  25 2b 3d 38 0d 1b 4e 10  |D.     P%+=8..N.|
00003ec0  20 20 20 20 20 df 20 58  25 2c 59 25 0d 1b 58 1a  |     . X%,Y%..X.|
00003ed0  20 20 20 20 20 58 25 3d  50 25 21 30 20 3a 20 59  |     X%=P%!0 : Y|
00003ee0  25 3d 50 25 21 34 0d 1b  62 08 20 20 20 ce 0d 1b  |%=P%!4..b.   ...|
00003ef0  6c 20 20 20 20 50 25 2b  3d 38 20 3a 20 58 25 3d  |l    P%+=8 : X%=|
00003f00  50 25 21 30 20 3a 20 59  25 3d 50 25 21 34 0d 1b  |P%!0 : Y%=P%!4..|
00003f10  76 06 20 ce 0d 1b 80 05  e1 0d 1b 8a 05 3a 0d 1b  |v. ..........:..|
00003f20  94 0e dd f2 61 73 73 65  6d 62 6c 65 0d 1b 9e 42  |....assemble...B|
00003f30  64 61 79 3d 30 20 20 3a  20 6d 6f 6e 74 68 3d 31  |day=0  : month=1|
00003f40  20 3a 20 79 65 61 72 3d  32 20 20 3a 20 68 6f 75  | : year=2  : hou|
00003f50  72 3d 33 20 20 20 3a 20  6d 69 6e 3d 34 20 20 20  |r=3   : min=4   |
00003f60  3a 20 73 65 63 3d 35 20  3a 20 79 72 3d 36 0d 1b  |: sec=5 : yr=6..|
00003f70  a8 3c 6c 65 61 70 3d 37  20 3a 20 61 63 63 3d 38  |.<leap=7 : acc=8|
00003f80  20 20 20 3a 20 74 6f 74  61 6c 3d 39 20 3a 20 74  |   : total=9 : t|
00003f90  61 62 6c 65 3d 31 30 20  3a 20 68 69 67 68 3d 31  |able=10 : high=1|
00003fa0  31 20 3a 20 6c 6f 77 3d  31 32 0d 1b b2 13 6c 69  |1 : low=12....li|
00003fb0  6e 6b 3d 31 34 20 3a 20  70 63 3d 31 35 0d 1b bc  |nk=14 : pc=15...|
00003fc0  0e de 20 63 6f 64 65 20  35 31 32 0d 1b c6 14 e3  |.. code 512.....|
00003fd0  20 70 61 73 73 3d 30 20  b8 20 32 20 88 20 32 0d  | pass=0 . 2 . 2.|
00003fe0  1b d0 0d 20 20 50 25 3d  63 6f 64 65 0d 1b da 0e  |...  P%=code....|
00003ff0  5b 20 4f 50 54 20 70 61  73 73 0d 1b e4 3b 3b 20  |[ OPT pass...;; |
00004000  63 6f 6e 76 65 72 74 20  64 61 79 2c 6d 6f 6e 74  |convert day,mont|
00004010  68 2c 79 65 61 72 2c 68  6f 75 72 2c 6d 69 6e 2c  |h,year,hour,min,|
00004020  73 65 63 20 69 6e 74 6f  20 35 20 62 79 74 65 20  |sec into 5 byte |
00004030  74 69 6d 65 2e 0d 1b ee  4a 3b 20 61 63 63 75 72  |time....J; accur|
00004040  61 74 65 20 31 39 30 31  20 2d 20 32 31 30 30 20  |ate 1901 - 2100 |
00004050  6f 6e 6c 79 2e 20 28 31  30 30 20 61 6e 64 20 34  |only. (100 and 4|
00004060  30 30 20 6c 65 61 70 20  79 65 61 72 73 20 6e 6f  |00 leap years no|
00004070  74 20 61 6c 6c 6f 77 65  64 20 66 6f 72 2e 29 0d  |t allowed for.).|
00004080  1b f8 1a 2e 62 61 73 65  79 65 61 72 20 20 45 51  |....baseyear  EQ|
00004090  55 44 20 20 20 31 39 30  30 0d 1c 02 1a 2e 64 79  |UD   1900.....dy|
000040a0  69 6e 79 72 20 20 20 20  45 51 55 44 20 20 20 20  |inyr    EQUD    |
000040b0  33 36 35 0d 1c 0c 40 2e  6d 75 6c 74 20 20 20 20  |365...@.mult    |
000040c0  20 20 45 51 55 44 20 20  31 36 38 37 35 20 20 3b  |  EQUD  16875  ;|
000040d0  20 32 34 2a 36 30 2a 36  30 2a 31 30 30 20 63 65  | 24*60*60*100 ce|
000040e0  6e 74 69 73 65 63 73 20  70 65 72 20 64 61 79 20  |ntisecs per day |
000040f0  3e 3e 39 0d 1c 16 0d 2e  64 79 74 6f 6d 6e 74 68  |>>9.....dytomnth|
00004100  0d 1c 20 1c 20 20 20 45  51 55 44 20 20 20 30 20  |.. .   EQUD   0 |
00004110  20 20 3b 20 6e 6f 74 20  75 73 65 64 0d 1c 2a 3f  |  ; not used..*?|
00004120  20 20 20 45 51 55 44 20  20 20 30 20 20 20 3b 20  |   EQUD   0   ; |
00004130  4e 75 6d 62 65 72 20 6f  66 20 64 61 79 73 20 62  |Number of days b|
00004140  65 66 6f 72 65 20 74 68  69 73 20 6d 6f 6e 74 68  |efore this month|
00004150  20 28 73 6f 20 4a 61 6e  3d 30 29 0d 1c 34 0f 20  | (so Jan=0)..4. |
00004160  20 20 45 51 55 44 20 20  33 31 0d 1c 3e 0f 20 20  |  EQUD  31..>.  |
00004170  20 45 51 55 44 20 20 35  39 0d 1c 48 0f 20 20 20  | EQUD  59..H.   |
00004180  45 51 55 44 20 20 39 30  0d 1c 52 10 20 20 20 45  |EQUD  90..R.   E|
00004190  51 55 44 20 20 31 32 30  0d 1c 5c 10 20 20 20 45  |QUD  120..\.   E|
000041a0  51 55 44 20 20 31 35 31  0d 1c 66 10 20 20 20 45  |QUD  151..f.   E|
000041b0  51 55 44 20 20 31 38 31  0d 1c 70 10 20 20 20 45  |QUD  181..p.   E|
000041c0  51 55 44 20 20 32 31 32  0d 1c 7a 10 20 20 20 45  |QUD  212..z.   E|
000041d0  51 55 44 20 20 32 34 33  0d 1c 84 10 20 20 20 45  |QUD  243....   E|
000041e0  51 55 44 20 20 32 37 33  0d 1c 8e 10 20 20 20 45  |QUD  273....   E|
000041f0  51 55 44 20 20 33 30 34  0d 1c 98 10 20 20 20 45  |QUD  304....   E|
00004200  51 55 44 20 20 33 33 34  0d 1c a2 0c 2e 63 6f 6e  |QUD  334.....con|
00004210  76 65 72 74 0d 1c ac 35  4c 44 52 20 61 63 63 2c  |vert...5LDR acc,|
00004220  62 61 73 65 79 65 61 72  20 20 20 20 20 20 20 20  |baseyear        |
00004230  20 3b 20 66 65 74 63 68  20 62 61 73 65 20 79 65  | ; fetch base ye|
00004240  61 72 20 28 31 39 30 30  29 0d 1c b6 2e 53 55 42  |ar (1900)....SUB|
00004250  20 79 72 2c 79 65 61 72  2c 61 63 63 20 20 20 20  | yr,year,acc    |
00004260  20 20 20 20 20 20 3b 20  79 72 3d 20 79 65 61 72  |      ; yr= year|
00004270  20 2d 20 31 39 30 30 0d  1c c0 2e 53 55 42 20 61  | - 1900....SUB a|
00004280  63 63 2c 79 72 2c 23 31  20 20 20 20 20 20 20 20  |cc,yr,#1        |
00004290  20 20 20 20 3b 20 6c 65  61 70 3d 28 79 72 2d 31  |    ; leap=(yr-1|
000042a0  29 20 81 20 34 0d 1c ca  24 4d 4f 56 20 6c 65 61  |) . 4...$MOV lea|
000042b0  70 2c 61 63 63 2c 4c 53  52 20 23 32 20 20 20 20  |p,acc,LSR #2    |
000042c0  20 20 3b 20 28 81 20 34  29 0d 1c d4 27 4c 44 52  |  ; (. 4)...'LDR|
000042d0  20 61 63 63 2c 64 79 69  6e 79 72 20 20 20 20 20  | acc,dyinyr     |
000042e0  20 20 20 20 20 20 3b 20  6c 6f 61 64 20 33 36 35  |      ; load 365|
000042f0  0d 1c de 38 4d 4c 41 20  74 6f 74 61 6c 2c 61 63  |...8MLA total,ac|
00004300  63 2c 79 72 2c 6c 65 61  70 20 20 20 20 3b 20 74  |c,yr,leap    ; t|
00004310  6f 74 61 6c 3d 79 65 61  72 73 2a 33 36 35 2b 6c  |otal=years*365+l|
00004320  65 61 70 20 64 61 79 73  0d 1c e8 42 41 44 52 20  |eap days...BADR |
00004330  74 61 62 6c 65 2c 64 79  74 6f 6d 6e 74 68 20 20  |table,dytomnth  |
00004340  20 20 20 20 20 20 20 20  20 20 3b 20 61 64 64 72  |          ; addr|
00004350  65 73 73 20 6f 66 20 64  61 79 73 2d 69 6e 2d 6d  |ess of days-in-m|
00004360  6f 6e 74 68 20 74 61 62  6c 65 0d 1c f2 44 4c 44  |onth table...DLD|
00004370  52 20 61 63 63 2c 5b 74  61 62 6c 65 2c 6d 6f 6e  |R acc,[table,mon|
00004380  74 68 2c 4c 53 4c 23 32  5d 20 20 20 3b 20 67 65  |th,LSL#2]   ; ge|
00004390  74 20 6e 6f 2e 20 6f 66  20 64 61 79 73 20 75 70  |t no. of days up|
000043a0  20 74 6f 20 74 68 69 73  20 6d 6f 6e 74 68 0d 1c  | to this month..|
000043b0  fc 3b 41 44 44 20 74 6f  74 61 6c 2c 74 6f 74 61  |.;ADD total,tota|
000043c0  6c 2c 61 63 63 20 20 20  20 20 20 20 20 20 20 20  |l,acc           |
000043d0  3b 20 61 64 64 20 74 6f  20 64 61 79 73 20 61 63  |; add to days ac|
000043e0  63 75 6d 61 6c 61 74 6f  72 0d 1d 06 48 41 44 44  |cumalator...HADD|
000043f0  20 74 6f 74 61 6c 2c 74  6f 74 61 6c 2c 64 61 79  | total,total,day|
00004400  20 20 20 20 20 20 3b 20  61 64 64 20 6e 6f 2e 20  |      ; add no. |
00004410  6f 66 20 64 61 79 73 20  69 6e 20 74 68 69 73 20  |of days in this |
00004420  6d 6f 6e 74 68 20 75 70  20 74 6f 20 74 6f 64 61  |month up to toda|
00004430  79 0d 1d 10 3b 53 55 42  20 74 6f 74 61 6c 2c 74  |y...;SUB total,t|
00004440  6f 74 61 6c 2c 23 31 20  20 20 20 20 20 20 3b 20  |otal,#1       ; |
00004450  6c 65 73 73 20 31 20 2d  20 74 6f 64 61 79 20 6e  |less 1 - today n|
00004460  6f 74 20 6f 76 65 72 20  79 65 74 21 0d 1d 1a 34  |ot over yet!...4|
00004470  4d 4f 56 20 61 63 63 2c  79 65 61 72 2c 4c 53 52  |MOV acc,year,LSR|
00004480  20 23 32 20 20 20 20 20  20 3b 20 67 65 74 20 74  | #2      ; get t|
00004490  68 69 73 20 79 65 61 72  2c 20 81 20 62 79 20 34  |his year, . by 4|
000044a0  0d 1d 24 46 53 55 42 53  20 61 63 63 2c 79 65 61  |..$FSUBS acc,yea|
000044b0  72 2c 61 63 63 2c 4c 53  4c 20 23 32 20 3b 20 6d  |r,acc,LSL #2 ; m|
000044c0  75 6c 74 69 70 6c 79 20  62 79 20 34 20 61 67 61  |ultiply by 4 aga|
000044d0  69 6e 20 61 6e 64 20 73  75 62 74 72 61 63 74 20  |in and subtract |
000044e0  28 3d 83 20 34 29 0d 1d  2e 36 42 4e 45 20 74 6f  |(=. 4)...6BNE to|
000044f0  74 61 6c 64 61 79 73 20  20 20 20 20 20 20 20 20  |taldays         |
00004500  20 20 20 3b 20 62 72 61  6e 63 68 20 69 66 20 6e  |   ; branch if n|
00004510  6f 74 20 6c 65 61 70 20  79 65 61 72 0d 1d 38 43  |ot leap year..8C|
00004520  43 4d 50 20 6d 6f 6e 74  68 2c 23 32 20 20 20 20  |CMP month,#2    |
00004530  20 20 20 20 20 20 20 20  20 3b 20 69 66 20 6c 65  |         ; if le|
00004540  61 70 20 79 65 61 72 20  73 65 65 20 69 66 20 67  |ap year see if g|
00004550  6f 6e 65 20 70 61 73 74  20 46 65 62 20 32 39 0d  |one past Feb 29.|
00004560  1d 42 33 41 44 44 47 54  20 74 6f 74 61 6c 2c 74  |.B3ADDGT total,t|
00004570  6f 74 61 6c 2c 23 31 20  20 20 20 20 3b 20 69 66  |otal,#1     ; if|
00004580  20 73 6f 20 61 64 64 20  31 20 6d 6f 72 65 20 64  | so add 1 more d|
00004590  61 79 0d 1d 4c 3d 2e 74  6f 74 61 6c 64 61 79 73  |ay..L=.totaldays|
000045a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
000045b0  20 6e 6f 77 20 61 74 20  66 69 6e 61 6c 20 74 6f  | now at final to|
000045c0  74 61 6c 20 6e 6f 2e 20  6f 66 20 64 61 79 73 0d  |tal no. of days.|
000045d0  1d 56 42 3b 20 73 75 6d  73 20 73 6f 20 66 61 72  |.VB; sums so far|
000045e0  20 6b 65 70 74 20 75 6e  64 65 72 20 33 32 20 62  | kept under 32 b|
000045f0  69 74 73 2e 20 4e 6f 77  20 6d 75 6c 74 69 70 6c  |its. Now multipl|
00004600  79 20 75 70 20 69 6e 74  6f 20 35 20 62 79 74 65  |y up into 5 byte|
00004610  73 0d 1d 60 2d 4d 4f 56  20 68 69 67 68 2c 23 30  |s..`-MOV high,#0|
00004620  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 20  |              ; |
00004630  7a 65 72 6f 20 68 69 67  68 20 62 79 74 65 0d 1d  |zero high byte..|
00004640  6a 29 4c 44 52 20 61 63  63 2c 6d 75 6c 74 20 20  |j)LDR acc,mult  |
00004650  20 20 20 20 20 20 20 20  20 20 20 3b 20 6c 6f 61  |           ; loa|
00004660  64 20 31 36 38 37 35 0d  1d 74 37 4d 55 4c 20 6c  |d 16875..t7MUL l|
00004670  6f 77 2c 74 6f 74 61 6c  2c 61 63 63 20 20 20 20  |ow,total,acc    |
00004680  20 20 20 20 3b 20 64 61  79 73 20 2a 20 31 36 38  |    ; days * 168|
00004690  37 35 20 74 6f 20 6c 6f  77 20 62 79 74 65 0d 1d  |75 to low byte..|
000046a0  7e 43 4d 4f 56 20 6c 65  61 70 2c 23 39 20 20 20  |~CMOV leap,#9   |
000046b0  20 20 20 20 20 20 20 20  20 20 20 3b 20 75 73 69  |           ; usi|
000046c0  6e 67 20 6c 65 61 70 20  72 65 67 69 73 74 65 72  |ng leap register|
000046d0  20 66 6f 72 20 6c 6f 6f  70 20 63 6f 75 6e 74 65  | for loop counte|
000046e0  72 0d 1d 88 09 2e 6c 6f  6f 70 0d 1d 92 40 4d 4f  |r.....loop...@MO|
000046f0  56 20 20 68 69 67 68 2c  68 69 67 68 2c 20 4c 53  |V  high,high, LS|
00004700  4c 20 23 31 20 20 20 3b  20 6d 75 6c 74 69 70 6c  |L #1   ; multipl|
00004710  79 20 62 79 20 32 5e 39  20 28 35 31 32 29 20 62  |y by 2^9 (512) b|
00004720  79 20 73 68 69 66 74 69  6e 67 0d 1d 9c 36 4d 4f  |y shifting...6MO|
00004730  56 53 20 6c 6f 77 2c 6c  6f 77 2c 4c 53 4c 20 23  |VS low,low,LSL #|
00004740  31 20 20 20 20 20 20 3b  20 6c 6f 77 20 62 79 74  |1      ; low byt|
00004750  65 20 74 68 72 6f 75 67  68 20 63 61 72 72 79 2e  |e through carry.|
00004760  0d 1d a6 28 41 44 43 20  20 68 69 67 68 2c 68 69  |...(ADC  high,hi|
00004770  67 68 2c 23 30 20 20 20  20 20 20 20 20 3b 20 61  |gh,#0        ; a|
00004780  64 64 20 63 61 72 72 79  0d 1d b0 30 53 55 42 53  |dd carry...0SUBS|
00004790  20 6c 65 61 70 2c 6c 65  61 70 2c 23 31 20 20 20  | leap,leap,#1   |
000047a0  20 20 20 20 20 3b 20 64  65 63 72 65 6d 65 6e 74  |     ; decrement|
000047b0  20 63 6f 75 6e 74 65 72  0d 1d ba 0c 42 4e 45 20  | counter....BNE |
000047c0  6c 6f 6f 70 0d 1d c4 45  53 54 52 20 6c 6f 77 2c  |loop...ESTR low,|
000047d0  74 69 6d 65 62 6c 6b 20  20 20 20 20 20 20 20 20  |timeblk         |
000047e0  20 3b 20 73 74 6f 72 65  20 72 65 73 75 6c 74 20  | ; store result |
000047f0  6f 66 20 64 61 79 73 2c  20 6e 6f 77 20 69 6e 20  |of days, now in |
00004800  63 65 6e 74 69 73 65 63  73 0d 1d ce 16 53 54 52  |centisecs....STR|
00004810  20 68 69 67 68 2c 74 69  6d 65 62 6c 6b 2b 34 0d  | high,timeblk+4.|
00004820  1d d8 2a 3b 20 63 6f 6e  76 65 72 74 20 68 6f 75  |..*; convert hou|
00004830  72 73 2c 6d 69 6e 73 2c  73 65 63 73 20 74 6f 20  |rs,mins,secs to |
00004840  63 65 6e 74 69 73 65 63  73 0d 1d e2 0f 4d 4f 56  |centisecs....MOV|
00004850  20 61 63 63 2c 23 36 30  0d 1d ec 3b 4d 4c 41 20  | acc,#60...;MLA |
00004860  6d 69 6e 2c 68 6f 75 72  2c 61 63 63 2c 6d 69 6e  |min,hour,acc,min|
00004870  20 20 20 20 20 3b 20 68  6f 75 72 73 20 69 6e 74  |     ; hours int|
00004880  6f 20 6d 69 6e 73 20 61  6e 64 20 61 64 64 20 6d  |o mins and add m|
00004890  69 6e 73 0d 1d f6 38 4d  4c 41 20 73 65 63 2c 6d  |ins...8MLA sec,m|
000048a0  69 6e 2c 61 63 63 2c 73  65 63 20 20 20 20 20 20  |in,acc,sec      |
000048b0  3b 20 6d 69 6e 73 20 74  6f 20 73 65 63 73 20 61  |; mins to secs a|
000048c0  6e 64 20 61 64 64 20 73  65 63 73 0d 1e 00 10 4d  |nd add secs....M|
000048d0  4f 56 20 61 63 63 2c 23  31 30 30 0d 1e 0a 32 4d  |OV acc,#100...2M|
000048e0  55 4c 20 52 30 2c 73 65  63 2c 61 63 63 20 20 20  |UL R0,sec,acc   |
000048f0  20 20 20 20 20 20 20 20  3b 20 73 65 63 73 20 69  |        ; secs i|
00004900  6e 74 6f 20 63 65 6e 74  69 73 65 63 73 0d 1e 14  |nto centisecs...|
00004910  20 3b 20 6e 6f 77 20 61  64 64 20 6f 6e 20 74 6f  | ; now add on to|
00004920  20 27 64 61 79 73 27 20  74 6f 74 61 6c 0d 1e 1e  | 'days' total...|
00004930  05 3a 0d 1e 28 32 3b 20  53 75 62 72 6f 75 74 69  |.:..(2; Subrouti|
00004940  6e 65 20 74 6f 20 61 64  64 2f 73 75 62 74 72 61  |ne to add/subtra|
00004950  63 74 20 52 30 20 74 6f  20 35 2d 62 79 74 65 20  |ct R0 to 5-byte |
00004960  74 69 6d 65 0d 1e 32 2f  2e 61 64 64 20 20 4c 44  |time..2/.add  LD|
00004970  52 20 20 52 31 2c 74 69  6d 65 62 6c 6b 20 20 20  |R  R1,timeblk   |
00004980  20 20 3b 20 67 65 74 20  6c 6f 77 20 34 20 62 79  |  ; get low 4 by|
00004990  74 65 73 0d 1e 3c 2c 20  20 20 20 20 20 4c 44 52  |tes..<,      LDR|
000049a0  42 20 52 32 2c 74 69 6d  65 62 6c 6b 2b 34 20 20  |B R2,timeblk+4  |
000049b0  20 3b 20 67 65 74 20 68  69 67 68 62 79 74 65 0d  | ; get highbyte.|
000049c0  1e 46 2c 20 20 20 20 20  20 4d 4f 56 53 20 52 30  |.F,      MOVS R0|
000049d0  2c 52 30 20 20 20 20 20  20 20 20 20 20 3b 20 73  |,R0          ; s|
000049e0  65 65 20 69 66 20 6d 69  6e 75 73 0d 1e 50 12 20  |ee if minus..P. |
000049f0  20 20 20 20 20 42 4d 49  20 20 73 75 62 0d 1e 5a  |     BMI  sub..Z|
00004a00  32 20 20 20 20 20 20 41  44 44 53 20 52 31 2c 52  |2      ADDS R1,R|
00004a10  30 2c 52 31 20 20 20 20  20 20 20 3b 20 61 64 64  |0,R1       ; add|
00004a20  20 52 30 20 28 41 25 29  20 74 6f 20 6c 6f 77 0d  | R0 (A%) to low.|
00004a30  1e 64 37 20 20 20 20 20  20 41 44 43 53 20 52 32  |.d7      ADCS R2|
00004a40  2c 52 32 2c 23 30 20 20  20 20 20 20 20 3b 20 61  |,R2,#0       ; a|
00004a50  64 64 20 63 61 72 72 79  20 61 6e 64 20 68 69 67  |dd carry and hig|
00004a60  68 20 62 79 74 65 0d 1e  6e 13 20 20 20 20 20 20  |h byte..n.      |
00004a70  42 41 4c 20 20 64 6f 6e  65 0d 1e 78 2d 2e 73 75  |BAL  done..x-.su|
00004a80  62 20 20 52 53 42 20 20  52 30 2c 52 30 2c 23 30  |b  RSB  R0,R0,#0|
00004a90  20 20 20 20 20 20 20 3b  20 6d 61 6b 65 20 70 6f  |       ; make po|
00004aa0  73 69 74 69 76 65 0d 1e  82 34 20 20 20 20 20 20  |sitive...4      |
00004ab0  53 55 42 53 20 52 31 2c  52 31 2c 52 30 20 20 20  |SUBS R1,R1,R0   |
00004ac0  20 20 20 20 3b 20 73 75  62 20 52 30 20 28 41 25  |    ; sub R0 (A%|
00004ad0  29 20 66 72 6f 6d 20 6c  6f 77 0d 1e 8c 29 20 20  |) from low...)  |
00004ae0  20 20 20 20 53 42 43 53  20 52 32 2c 52 32 2c 23  |    SBCS R2,R2,#|
00004af0  30 20 20 20 20 20 20 20  3b 20 73 75 62 20 63 61  |0       ; sub ca|
00004b00  72 72 79 0d 1e 96 04 0d  1e a0 2a 2e 64 6f 6e 65  |rry.......*.done|
00004b10  20 53 54 52 20 20 52 31  2c 74 69 6d 65 62 6c 6b  | STR  R1,timeblk|
00004b20  20 20 20 20 20 3b 20 73  74 6f 72 65 20 62 61 63  |     ; store bac|
00004b30  6b 0d 1e aa 2e 20 20 20  20 20 20 53 54 52 20 20  |k....      STR  |
00004b40  52 32 2c 74 69 6d 65 62  6c 6b 2b 34 20 20 20 3b  |R2,timeblk+4   ;|
00004b50  20 73 74 6f 72 65 20 68  69 67 68 62 79 74 65 0d  | store highbyte.|
00004b60  1e b4 16 20 20 20 20 20  20 4d 4f 56 20 20 70 63  |...      MOV  pc|
00004b70  2c 6c 69 6e 6b 0d 1e be  07 5d 20 ed 0d 1e c8 05  |,link....] .....|
00004b80  e1 0d ff                                          |...|
00004b83