Home » Archimedes archive » Acorn Computing » 1993 10 Mega Disk.adf » 93_10 » Miscellany/!Sunrise/!Runimage
Miscellany/!Sunrise/!Runimage
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn Computing » 1993 10 Mega Disk.adf » 93_10 |
| Filename: | Miscellany/!Sunrise/!Runimage |
| Read OK: | ✔ |
| File size: | 2981 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
D��< ��40�� � �Q��Z �� �BASIC -Quit @00009000,0000EB78 � h� x
e�Wimp_Start("Sunrise",970,714):�Create_Windows:�Create_Menus:�Wimp_WaitForEvent:�Wimp_CloseDown:�
���Create_Windows:�Wimp_SpritesLoad:information_Window%=�Wimp_WindowLoad("information"):latitude_Window%=�Wimp_WindowLoad("latitude"):longitude_Window%=�Wimp_WindowLoad("longitude"):info_Window%=�Wimp_WindowLoad("info")
�save_Window%=�Wimp_WindowLoad("save"):print_Window%=�Wimp_WindowLoad("print"):�Wimp_IconPutText(info_Window%,12,"0.30 (22-Jul-1993)"):Bar_Icon%=�Wimp_IconBar("!sunrise"):�
($ݤEvent_Save(window%):Ȏwindow%�
2�save_Window%:=�
<:=�
F�
P%ݤEvent_Sprites(window%)=sprites%
Z���Create_Menus:menu$="Sunrise \Info>info_Window%\Save>save_Window%\Print>print_Window%\Longitude>longitude_Window%\Latitude>latitude_Window%\Quit":Bar_Menu%=�Wimp_MenuCreate(menu$):�Wimp_MenuDottedLine(Bar_Menu%,1):�Wimp_MenuDottedLine(Bar_Menu%,5):�
d$ݤEvent_Menu(window%):Ȏwindow%�
n�Bar_Window%:=Bar_Menu%
x:=�
��
�8��Event_Draw(window%,x_origin%,y_origin%):Ȏwindow%�
�4�information_Window%:�User_DrawinformationWindow
��
��
����User_DrawinformationWindow:�i%,x%,y%,h%:y%=y_origin%+8:x%=x_origin%-12:�x%,y%:�"Sunrise at "�format(sunrise)", Sunset at "�format(sunset)".":y%-=32:�
�>��Event_MouseClick(window%,icon%,button%,x%,y%):Ȏwindow%�
�<�Bar_Window%:�Wimp_WindowBringToTop(information_Window%)
�=�print_Window%:�icon%=2�(button%=4�button%=1)��Wimp_print
��
��
����Wimp_print:�(�Wimp_IconText(print_Window%,1))=0�ENDPROCELSEp%=0:�:�2,21:�5)"Sunrise at "+�format(sunrise)+", Sunset at "+�format(sunset)+", on "+��$,15)+".":�6,3:p%=p%+1:�p%=�(�Wimp_IconText(print_Window%,1)):�Wimp_MenuClose:�
�3��Event_KeyPress(window%,icon%,key%):Ȏwindow%�
v�latitude_Window%:lat=�(�Wimp_IconText(latitude_Window%,0)):�Wimp_WindowClose(information_Window%):�Wimp_MenuClose
y�longitude_Window%:long=�(�Wimp_IconText(longitude_Window%,0)):�Wimp_WindowClose(information_Window%):�Wimp_MenuClose
�
"�
,&��Event_MenuChoice(menu%):Ȏmenu%�
6"�Bar_Menu%:�User_MenuChoiceBar
@�
J�
T/��User_MenuChoiceBar:Ȏ�Wimp_MenuChoice(0)�
^�6:finished%=�
h�
r�
|.��Event_SaveFile(file$,window%):Ȏwindow%�
�D�save_Window%:�Save_data:�Wimp_SendToEdit(file$):�Wimp_MenuClose
��
��
����Save_data:�#0:outfile%=�(file$):�#outfile%,"Sunrise at "+�format(sunrise)+", Sunset at "+�format(sunset)+", on "+��$,15)+".":�#outfile%:�"Settype "+file$+" &FFF":�
�Q��Wimp_WindowAlert(title$,message$):�Wimp_WindowAlertBox(title$,message$,0):�
�\��Wimp_WindowAlertBox(title$,message$,button%):�response%:$(wimp%+4)=message$:Ȏbutton%�
��2:response%=1
��1:response%=15
��3:response%=(1<<5)+16
��4:response%=(1<<6)+16
�:response%=16
��
�0ș&400DF,wimp%,response%,title$�,response%:�
�ݤWimp_WindowCancel(title$,message$):$(wimp%+4)=message$:response%=23:ș&400DF,wimp%,response%,title$�,response%:=response%-2
T��Wimp_WindowErrorBox(title$,message$):�Wimp_WindowAlertBox(title$,message$,2):�
TݤWimp_WindowLoad(window$):=�Wimp_WindowLoadFrom(window$,"<Obey$Dir>.Templates")
&�ݤWimp_WindowLoadFrom(window$,template$):�c%,i%,n%,j%,sp$,sp2$:ș&400D9,,template$:ș&400DB,,wimp%,icons%,icon_memory%,-1,window$,0�,,icons%:Ȏsprites%�
0�1:wimp%!64=sprites%
:&:wimp%!64=�Event_Sprites(window%)
D�
NTș&400C1,,wimp%�c%:ș&400DA:ș&400D6,c%,wimp%+40,1+2+(1<<8),2+(1<<8):Ȏwimp%!40�
X�-1:
b :i%=40
lt�:wimp%!4=wimp%!i%:wimp%!0=c%:ș&400CE,,wimp%:sp$=�Wimp_GetStringAtAddress(wimp%!28):ș&400C4,,wimp%:Ȏsprites%�
v�1:wimp%!32=1
�:
��ș&2E,&108,sprites%�,,,n%:j%=0:�:j%+=1:ș&2E,&10D,sprites%,pointer_block%,20,j%:sp2$=�Wimp_GetStringAtAddress(pointer_block%):�j%=n%�sp$=sp2$:�sp$=sp2$�wimp%!32=sprites%�wimp%!32=1
��
�=wimp%!4=c%:ș&400C2,,wimp%+4�handle%:i%+=4:�(wimp%!i%)=-1
��
�=c%
�a��Wimp_WindowBringToTop(window%):!wimp%=window%:ș&400CB,,wimp%:wimp%!28=-1:ș&400C5,,wimp%:�
�@��Wimp_WindowClose(window%):!wimp%=window%:ș&400C6,,wimp%:�
ЙݤWimp_IconBar(Sprite$):�icon%:wimp%!0=-1:wimp%!4=0:wimp%!8=0:wimp%!12=68:wimp%!16=68:wimp%!20=&3002:$(wimp%+24)=Sprite$:ș&400C2,,wimp%�icon%:=icon%
�ݤWimp_IconText(window%,icon%):wimp%!0=window%:wimp%!4=icon%:ș&400CE,,wimp%:�((wimp%!24)�&100)=0�1,"Icon isn't indirected"
�=$(wimp%!28)
���Wimp_IconPutText(window%,icon%,text$):wimp%!0=window%:wimp%!4=icon%:ș&400CE,,wimp%:�((wimp%!24)�&100)=0�1,"Icon isn't indirected"
�Z$(wimp%!28)=text$:wimp%!0=window%:wimp%!4=icon%:wimp%!8=0:wimp%!12=0:ș&400CD,,wimp%:�
3ݤWimp_MenuChoice(level%):=(wimp%!(4*level%))+1
�ݤWimp_MenuCreate(menu$):�menu%,index%,width%,length%,k%,s%:�menu%28+�Wimp_MenuNoOfEntries(menu$)*24:menu%?12=7:menu%?13=2:menu%?14=7:menu%?15=0:menu%!16=140:menu%!20=44:menu%!24=0:index%=menu%+28:$menu%=�menu$,�menu$,"\")-1)
Bwidth%=�(�menu$,�menu$,"\")-1)):menu$+="\":Menu_NoOfEntries%=0
ȕmenu$<>""
*(menu$=�menu$,�menu$,"\")+1):Ȏmenu$�
4�""
>:
H`!index%=0:index%!4=-1:index%!8=&7000021:length%=�menu$,"\")-1:k%=��menu$,length%),">"):Ȏk%�
R�0
\
f:s%=�(�menu$,k%+1,length%-k%)):index%!4=s%:length%=k%-1
p�
z?$(index%+12)=�menu$,length%):�length%>width%�width%=length%
�index%+=24
��
��
�;menu%!16=16*(width%+1):index%!-24=index%!-24�&80:=menu%
�UݤWimp_MenuNoOfEntries(menu$):�n%,j%:n%=0:j%=0:�:j%=�menu$,"\",j%+1):�j%<>0�n%+=1
�
�j%=0:=n%
�"��Wimp_MenuClose:ș&400D4,-1:�
�\��Wimp_MenuDottedLine(menu%,item%):menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))�2:�
�]��Wimp_SpritesLoad:�Wimp_SpritesPathLoad("<Obey$Dir>.Sprites"):direct_sprites%=sprites%:�
��Wimp_SpritesPathLoad(pathname$):�S%,T%:S%=�"<Obey$Dir>.Sprites":T%=�#S%+16:�#S%:�sprites%T%,spname%12:!sprites%=T%:sprites%!8=0:ș&2E,&109,sprites%:ș&2E,&10A,sprites%,pathname$:�
�.ݤWimp_GetFileFromPathname(f$):Ȏ�f$,".")�
�
�0:=f$
�5:=�Wimp_GetFileFromPathname(�f$,�(f$)-�f$,".")))
�
>ݤWimp_GetFilePathName:=�Wimp_GetStringAtAddress(wimp%+44)
/ݤWimp_GetStringAtAddress(array%):�s$:s$=""
$?ȕ(?array%<>13)�(?array%<>0):s$+=�(?array%):array%+=1:�:=s$
.���Wimp_SendToEdit(file$):�n%:wimp%!4=&6CC01C0C:wimp%!16=5:wimp%!36=0:wimp%!40=&FFF:$(wimp%+44)=file$+�0:n%=�file$+45:�n%�4�!wimp%=4+(n%>>2)<<2�!wimp%=n%
8ș&400E7,17,wimp%,0:�
Bp��Wimp_Start(TaskName$,wimp_memory%,icon%):�wimp%wimp_memory%,icons%icon%:�wimp_memory%<256�wimp_memory%=256
L{icon_memory%=icons%+icon%:task$=TaskName$:indirect_sprites%=1:direct_sprites%=1:�Wimp_SetEventVariables:��Wimp_Error:�
V5ș&400C0,200,&4B534154,TaskName$�version%,task%:�
`���Wimp_SetEventVariables:�pointer_block%20:long=1.475:lat=53.65:null%=1:draw%=2:pointer_leaving%=1<<4:pointer_entering%=1<<5:mouse%=1<<6:drag%=1<<7:key%=1<<8:menu%=1<<9:scroll%=1<<10:lose_caret%=1<<11:gain_caret%=1<<12:message%=(1<<17)+(1<<18)
j�recorder%=1<<18:acknowledge%=1<<19:window%=0:sprites%=1:version%=0:task%=0:Bar_Window%=-2:Bar_Icon%=0:Bar_Menu%=0:x_origin%=0:y_origin%=0:SaveWindow%=-3:message_quit%=0:message_save%=2:message_load%=3:mouse_button%=2:save_event%=0
t top_line%=0:bottom_line%=0:�
~��Wimp_Error:�X$,x%:
��x%=�:X$=�$+�(x%):�ErrorMsg%36:ErrorMsg%!0=36:ErrorMsg%!12=0:ErrorMsg%!16=&81080:ErrorMsg%!20=x%:$(ErrorMsg%+24)="!RunImage":ș&400E7,17,ErrorMsg%:�Wimp_WindowAlert(task$,X$):�Wimp_CloseDown:�
�,��Wimp_CloseDown:ș&400DD,task%,"TASK":�
� ��Wimp_Quit:finished%=�:�
�m��Wimp_WaitForEvent:�mask%,event%:finished%=�:mask%=%111000011001:�:ș&400C7,mask%,wimp%�event%:Ȏevent%�
��1:�Wimp_PollDrawWindow
��2:ș&400C5,,wimp%
� �3:�Wimp_PollCloseWindow
��6:�Wimp_PollMouseClick
� �7:�Wimp_PollSaveMessage
��8:�Wimp_PollKeyPress
� �9:�Event_MenuChoice(menu%)
� �17,18:�Wimp_PollMessages
�
��date:t=0.988*(d%-1+30.3*(m%-1)):E=(0.123*�(�(t+87))-(�(�((2*t)+20))))/6:D3=-23.5*(�(�(t+10))):N=�(�(-1*(�(�(D3)))*�(�(lat)))):sunrise=((long-N)/15)-E+11.77:sunset=((long+N)/15)-E+12.04:�finished%:�
���Wimp_PollDrawWindow:�more%:ș&400C8,,wimp%�more%:window%=wimp%!0:x_origin%=16+wimp%!4-wimp%!20:y_origin%=-16+wimp%!16-wimp%!24
ȕmore%
(B�Event_Draw(window%,x_origin%,y_origin%):ș&400CA,,wimp%�more%
2�
<�
Fm��Wimp_PollCloseWindow:ș&400CF,,wimp%:window%=wimp%!12:buttons%=wimp%!8:!wimp%=window%:ș&400C6,,wimp%:�
Pj��Wimp_PollMouseClick:button%=wimp%!8:window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4:Ȏbutton%�
Z�2:�Wimp_PollMenuPopUp
d :Ȏ�Event_Save(window%)�
nɹ:�Wimp_PollMouseSave
x ɣ:�Wimp_PollEventMouseClick
��
��
��
�<��Wimp_PollMenuPopUp:menu%=�Event_Menu(window%):Ȏmenu%�
�ɣ:
�:
�Ȏwindow%�
� �-2:n%=0
�*ȕ((Bar_Menu%!(28+n%*24))�%10000000)=0
� n%+=1
��
�&ș&400D4,,Bar_Menu%,x%-64,96+n%*44
�!:ș&400D4,,menu%,x%-64,y%+20
�
�
�
"!��Wimp_PollMouseSave:Ȏicon%�
,.�0:�button%�&50��Wimp_PollDragBox(window%)
6.�2:�button%� 5��WimpPoll_SaveFile(window%)
@�
J�
TO��Wimp_PollEventMouseClick:�Event_MouseClick(window%,icon%,button%,x%,y%):�
^���Wimp_PollDragBox(window%):�x%,y%:save%=window%:!wimp%=window%:ș&400CB,,wimp%:x%=wimp%!4-wimp%!20:y%=wimp%!16-wimp%!24:wimp%!4=0:ș&400CE,,wimp%:!wimp%=window%:wimp%!4=5:wimp%!8=x%+wimp%!8:wimp%!12=y%+wimp%!12
h{wimp%!16=x%+wimp%!16:wimp%!20=y%+wimp%!20:wimp%!24=0:wimp%!28=0:wimp%!32=&7FFFFFFF:wimp%!36=&7FFFFFFF:ș&400D0,,wimp%:�
r[��Wimp_PollKeyPress:window%=wimp%!0:icon%=wimp%!4:key%=wimp%!24:Ȏ�Event_Save(window%)�
|"ɹ:�WimpPoll_SaveFile(window%)
�*ɣ:�Event_KeyPress(window%,icon%,key%)
��
��
����Wimp_PollSaveMessage:�file$,window%,icon%,x%,y%:ș&400CF,,wimp%:window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4:wimp%!0=save%:wimp%!4=1:ș&400CE,,wimp%:file$=$(wimp%!28):file$=�Wimp_GetFileFromPathname(file$):wimp%!20=window%:wimp%!24=icon%
��wimp%!28=x%:wimp%!32=y%:wimp%!36=length%:wimp%!0=64:wimp%!12=0:wimp%!16=1:wimp%!40=&FFF:$(wimp%+44)=file$:ș&400E7,17,wimp%,wimp%!20,wimp%!24:�
�S��Wimp_PollMessages:�file$:file$=�Wimp_GetStringAtAddress(wimp%+44):Ȏwimp%!16�
��0:finished%=�
̷�2:wimp%!0=save%:wimp%!4=1:ș&400CE,,wimp%:$(wimp%!28)=file$:wimp%!0=save%:wimp%!4=1:wimp%!8=0:wimp%!12=0:ș&400CD,,wimp%:ș&400D2,save%,1,,,-1,�file$:�Event_SaveFile(file$,save%)
��
��
�'ݤformat(time):�time<0�time=time+24
�Chrs%=�(time):mins%=(time-hrs%)*60:�mins%=60�mins%=0:hrs%=hrs%+1
��hrs%>23�hrs%=hrs%-24
(=�zero(hrs%)+":"+�zero(mins%)+" gmt"
!ݤzero(num%):=�"0"+�(num%),2)
^��date:d%=�(��$,5,2)):m%=�"JanFebMarAprMayJunJulAugSepOctNovDec",��$,8,3)):m%=(m%-1)�3+1:�
&r��WimpPoll_SaveFile(window%):�file$:wimp%!0=window%:wimp%!4=1:ș&400CE,,wimp%:file$=$(wimp%!28):Ȏ�file$,".")�
0�0:
:U$(wimp%+4)="To save, drag the icon to a directory window":ș&400DF,wimp%,16,task$
D:
N"�Event_SaveFile(file$,window%)
X�
bș&400D4,-1:�
� 00000000 44 10 9f e5 3c 20 9f e5 34 30 9f e5 04 00 12 e4 |D...< ..40......|
00000010 04 00 03 e4 04 10 51 e2 fb ff ff 5a 00 00 8f e2 |......Q....Z....|
00000020 05 00 00 ef 42 41 53 49 43 20 2d 51 75 69 74 20 |....BASIC -Quit |
00000030 40 30 30 30 30 39 30 30 30 2c 30 30 30 30 45 42 |@00009000,0000EB|
00000040 37 38 00 ca 18 08 01 00 68 f8 00 00 18 78 00 00 |78......h....x..|
00000050 0d 00 0a 65 f2 57 69 6d 70 5f 53 74 61 72 74 28 |...e.Wimp_Start(|
00000060 22 53 75 6e 72 69 73 65 22 2c 39 37 30 2c 37 31 |"Sunrise",970,71|
00000070 34 29 3a f2 43 72 65 61 74 65 5f 57 69 6e 64 6f |4):.Create_Windo|
00000080 77 73 3a f2 43 72 65 61 74 65 5f 4d 65 6e 75 73 |ws:.Create_Menus|
00000090 3a f2 57 69 6d 70 5f 57 61 69 74 46 6f 72 45 76 |:.Wimp_WaitForEv|
000000a0 65 6e 74 3a f2 57 69 6d 70 5f 43 6c 6f 73 65 44 |ent:.Wimp_CloseD|
000000b0 6f 77 6e 3a e0 0d 00 14 de dd f2 43 72 65 61 74 |own:.......Creat|
000000c0 65 5f 57 69 6e 64 6f 77 73 3a f2 57 69 6d 70 5f |e_Windows:.Wimp_|
000000d0 53 70 72 69 74 65 73 4c 6f 61 64 3a 69 6e 66 6f |SpritesLoad:info|
000000e0 72 6d 61 74 69 6f 6e 5f 57 69 6e 64 6f 77 25 3d |rmation_Window%=|
000000f0 a4 57 69 6d 70 5f 57 69 6e 64 6f 77 4c 6f 61 64 |.Wimp_WindowLoad|
00000100 28 22 69 6e 66 6f 72 6d 61 74 69 6f 6e 22 29 3a |("information"):|
00000110 6c 61 74 69 74 75 64 65 5f 57 69 6e 64 6f 77 25 |latitude_Window%|
00000120 3d a4 57 69 6d 70 5f 57 69 6e 64 6f 77 4c 6f 61 |=.Wimp_WindowLoa|
00000130 64 28 22 6c 61 74 69 74 75 64 65 22 29 3a 6c 6f |d("latitude"):lo|
00000140 6e 67 69 74 75 64 65 5f 57 69 6e 64 6f 77 25 3d |ngitude_Window%=|
00000150 a4 57 69 6d 70 5f 57 69 6e 64 6f 77 4c 6f 61 64 |.Wimp_WindowLoad|
00000160 28 22 6c 6f 6e 67 69 74 75 64 65 22 29 3a 69 6e |("longitude"):in|
00000170 66 6f 5f 57 69 6e 64 6f 77 25 3d a4 57 69 6d 70 |fo_Window%=.Wimp|
00000180 5f 57 69 6e 64 6f 77 4c 6f 61 64 28 22 69 6e 66 |_WindowLoad("inf|
00000190 6f 22 29 0d 00 1e af 73 61 76 65 5f 57 69 6e 64 |o")....save_Wind|
000001a0 6f 77 25 3d a4 57 69 6d 70 5f 57 69 6e 64 6f 77 |ow%=.Wimp_Window|
000001b0 4c 6f 61 64 28 22 73 61 76 65 22 29 3a 70 72 69 |Load("save"):pri|
000001c0 6e 74 5f 57 69 6e 64 6f 77 25 3d a4 57 69 6d 70 |nt_Window%=.Wimp|
000001d0 5f 57 69 6e 64 6f 77 4c 6f 61 64 28 22 70 72 69 |_WindowLoad("pri|
000001e0 6e 74 22 29 3a f2 57 69 6d 70 5f 49 63 6f 6e 50 |nt"):.Wimp_IconP|
000001f0 75 74 54 65 78 74 28 69 6e 66 6f 5f 57 69 6e 64 |utText(info_Wind|
00000200 6f 77 25 2c 31 32 2c 22 30 2e 33 30 20 28 32 32 |ow%,12,"0.30 (22|
00000210 2d 4a 75 6c 2d 31 39 39 33 29 22 29 3a 42 61 72 |-Jul-1993)"):Bar|
00000220 5f 49 63 6f 6e 25 3d a4 57 69 6d 70 5f 49 63 6f |_Icon%=.Wimp_Ico|
00000230 6e 42 61 72 28 22 21 73 75 6e 72 69 73 65 22 29 |nBar("!sunrise")|
00000240 3a e1 0d 00 28 24 dd a4 45 76 65 6e 74 5f 53 61 |:...($..Event_Sa|
00000250 76 65 28 77 69 6e 64 6f 77 25 29 3a c8 8e 77 69 |ve(window%):..wi|
00000260 6e 64 6f 77 25 ca 0d 00 32 14 c9 73 61 76 65 5f |ndow%...2..save_|
00000270 57 69 6e 64 6f 77 25 3a 3d b9 0d 00 3c 08 7f 3a |Window%:=...<..:|
00000280 3d a3 0d 00 46 05 cb 0d 00 50 25 dd a4 45 76 65 |=...F....P%..Eve|
00000290 6e 74 5f 53 70 72 69 74 65 73 28 77 69 6e 64 6f |nt_Sprites(windo|
000002a0 77 25 29 3d 73 70 72 69 74 65 73 25 0d 00 5a fe |w%)=sprites%..Z.|
000002b0 dd f2 43 72 65 61 74 65 5f 4d 65 6e 75 73 3a 6d |..Create_Menus:m|
000002c0 65 6e 75 24 3d 22 53 75 6e 72 69 73 65 00 5c 49 |enu$="Sunrise.\I|
000002d0 6e 66 6f 3e 69 6e 66 6f 5f 57 69 6e 64 6f 77 25 |nfo>info_Window%|
000002e0 5c 53 61 76 65 3e 73 61 76 65 5f 57 69 6e 64 6f |\Save>save_Windo|
000002f0 77 25 5c 50 72 69 6e 74 3e 70 72 69 6e 74 5f 57 |w%\Print>print_W|
00000300 69 6e 64 6f 77 25 5c 4c 6f 6e 67 69 74 75 64 65 |indow%\Longitude|
00000310 3e 6c 6f 6e 67 69 74 75 64 65 5f 57 69 6e 64 6f |>longitude_Windo|
00000320 77 25 5c 4c 61 74 69 74 75 64 65 3e 6c 61 74 69 |w%\Latitude>lati|
00000330 74 75 64 65 5f 57 69 6e 64 6f 77 25 5c 51 75 69 |tude_Window%\Qui|
00000340 74 22 3a 42 61 72 5f 4d 65 6e 75 25 3d a4 57 69 |t":Bar_Menu%=.Wi|
00000350 6d 70 5f 4d 65 6e 75 43 72 65 61 74 65 28 6d 65 |mp_MenuCreate(me|
00000360 6e 75 24 29 3a f2 57 69 6d 70 5f 4d 65 6e 75 44 |nu$):.Wimp_MenuD|
00000370 6f 74 74 65 64 4c 69 6e 65 28 42 61 72 5f 4d 65 |ottedLine(Bar_Me|
00000380 6e 75 25 2c 31 29 3a f2 57 69 6d 70 5f 4d 65 6e |nu%,1):.Wimp_Men|
00000390 75 44 6f 74 74 65 64 4c 69 6e 65 28 42 61 72 5f |uDottedLine(Bar_|
000003a0 4d 65 6e 75 25 2c 35 29 3a e1 0d 00 64 24 dd a4 |Menu%,5):...d$..|
000003b0 45 76 65 6e 74 5f 4d 65 6e 75 28 77 69 6e 64 6f |Event_Menu(windo|
000003c0 77 25 29 3a c8 8e 77 69 6e 64 6f 77 25 ca 0d 00 |w%):..window%...|
000003d0 6e 1b c9 42 61 72 5f 57 69 6e 64 6f 77 25 3a 3d |n..Bar_Window%:=|
000003e0 42 61 72 5f 4d 65 6e 75 25 0d 00 78 08 7f 3a 3d |Bar_Menu%..x..:=|
000003f0 a3 0d 00 82 05 cb 0d 00 8c 38 dd f2 45 76 65 6e |.........8..Even|
00000400 74 5f 44 72 61 77 28 77 69 6e 64 6f 77 25 2c 78 |t_Draw(window%,x|
00000410 5f 6f 72 69 67 69 6e 25 2c 79 5f 6f 72 69 67 69 |_origin%,y_origi|
00000420 6e 25 29 3a c8 8e 77 69 6e 64 6f 77 25 ca 0d 00 |n%):..window%...|
00000430 96 34 c9 69 6e 66 6f 72 6d 61 74 69 6f 6e 5f 57 |.4.information_W|
00000440 69 6e 64 6f 77 25 3a f2 55 73 65 72 5f 44 72 61 |indow%:.User_Dra|
00000450 77 69 6e 66 6f 72 6d 61 74 69 6f 6e 57 69 6e 64 |winformationWind|
00000460 6f 77 0d 00 a0 05 cb 0d 00 aa 05 e1 0d 00 b4 9b |ow..............|
00000470 dd f2 55 73 65 72 5f 44 72 61 77 69 6e 66 6f 72 |..User_Drawinfor|
00000480 6d 61 74 69 6f 6e 57 69 6e 64 6f 77 3a ea 69 25 |mationWindow:.i%|
00000490 2c 78 25 2c 79 25 2c 68 25 3a 79 25 3d 79 5f 6f |,x%,y%,h%:y%=y_o|
000004a0 72 69 67 69 6e 25 2b 38 3a 78 25 3d 78 5f 6f 72 |rigin%+8:x%=x_or|
000004b0 69 67 69 6e 25 2d 31 32 3a ec 78 25 2c 79 25 3a |igin%-12:.x%,y%:|
000004c0 f1 22 53 75 6e 72 69 73 65 20 61 74 20 22 a4 66 |."Sunrise at ".f|
000004d0 6f 72 6d 61 74 28 73 75 6e 72 69 73 65 29 22 2c |ormat(sunrise)",|
000004e0 20 53 75 6e 73 65 74 20 61 74 20 22 a4 66 6f 72 | Sunset at ".for|
000004f0 6d 61 74 28 73 75 6e 73 65 74 29 22 2e 22 3a 79 |mat(sunset)".":y|
00000500 25 2d 3d 33 32 3a e1 0d 00 be 3e dd f2 45 76 65 |%-=32:....>..Eve|
00000510 6e 74 5f 4d 6f 75 73 65 43 6c 69 63 6b 28 77 69 |nt_MouseClick(wi|
00000520 6e 64 6f 77 25 2c 69 63 6f 6e 25 2c 62 75 74 74 |ndow%,icon%,butt|
00000530 6f 6e 25 2c 78 25 2c 79 25 29 3a c8 8e 77 69 6e |on%,x%,y%):..win|
00000540 64 6f 77 25 ca 0d 00 c8 3c c9 42 61 72 5f 57 69 |dow%....<.Bar_Wi|
00000550 6e 64 6f 77 25 3a f2 57 69 6d 70 5f 57 69 6e 64 |ndow%:.Wimp_Wind|
00000560 6f 77 42 72 69 6e 67 54 6f 54 6f 70 28 69 6e 66 |owBringToTop(inf|
00000570 6f 72 6d 61 74 69 6f 6e 5f 57 69 6e 64 6f 77 25 |ormation_Window%|
00000580 29 0d 00 d2 3d c9 70 72 69 6e 74 5f 57 69 6e 64 |)...=.print_Wind|
00000590 6f 77 25 3a e7 69 63 6f 6e 25 3d 32 80 28 62 75 |ow%:.icon%=2.(bu|
000005a0 74 74 6f 6e 25 3d 34 84 62 75 74 74 6f 6e 25 3d |tton%=4.button%=|
000005b0 31 29 8c f2 57 69 6d 70 5f 70 72 69 6e 74 0d 00 |1)..Wimp_print..|
000005c0 dc 05 cb 0d 00 e6 05 e1 0d 00 f0 ea dd f2 57 69 |..............Wi|
000005d0 6d 70 5f 70 72 69 6e 74 3a e7 bb 28 a4 57 69 6d |mp_print:..(.Wim|
000005e0 70 5f 49 63 6f 6e 54 65 78 74 28 70 72 69 6e 74 |p_IconText(print|
000005f0 5f 57 69 6e 64 6f 77 25 2c 31 29 29 3d 30 8c 45 |_Window%,1))=0.E|
00000600 4e 44 50 52 4f 43 45 4c 53 45 70 25 3d 30 3a f5 |NDPROCELSEp%=0:.|
00000610 3a ef 32 2c 32 31 3a f1 8a 35 29 22 53 75 6e 72 |:.2,21:..5)"Sunr|
00000620 69 73 65 20 61 74 20 22 2b a4 66 6f 72 6d 61 74 |ise at "+.format|
00000630 28 73 75 6e 72 69 73 65 29 2b 22 2c 20 53 75 6e |(sunrise)+", Sun|
00000640 73 65 74 20 61 74 20 22 2b a4 66 6f 72 6d 61 74 |set at "+.format|
00000650 28 73 75 6e 73 65 74 29 2b 22 2c 20 6f 6e 20 22 |(sunset)+", on "|
00000660 2b c0 91 24 2c 31 35 29 2b 22 2e 22 3a ef 36 2c |+..$,15)+".":.6,|
00000670 33 3a 70 25 3d 70 25 2b 31 3a fd 70 25 3d bb 28 |3:p%=p%+1:.p%=.(|
00000680 a4 57 69 6d 70 5f 49 63 6f 6e 54 65 78 74 28 70 |.Wimp_IconText(p|
00000690 72 69 6e 74 5f 57 69 6e 64 6f 77 25 2c 31 29 29 |rint_Window%,1))|
000006a0 3a f2 57 69 6d 70 5f 4d 65 6e 75 43 6c 6f 73 65 |:.Wimp_MenuClose|
000006b0 3a e1 0d 00 fa 33 dd f2 45 76 65 6e 74 5f 4b 65 |:....3..Event_Ke|
000006c0 79 50 72 65 73 73 28 77 69 6e 64 6f 77 25 2c 69 |yPress(window%,i|
000006d0 63 6f 6e 25 2c 6b 65 79 25 29 3a c8 8e 77 69 6e |con%,key%):..win|
000006e0 64 6f 77 25 ca 0d 01 04 76 c9 6c 61 74 69 74 75 |dow%....v.latitu|
000006f0 64 65 5f 57 69 6e 64 6f 77 25 3a 6c 61 74 3d bb |de_Window%:lat=.|
00000700 28 a4 57 69 6d 70 5f 49 63 6f 6e 54 65 78 74 28 |(.Wimp_IconText(|
00000710 6c 61 74 69 74 75 64 65 5f 57 69 6e 64 6f 77 25 |latitude_Window%|
00000720 2c 30 29 29 3a f2 57 69 6d 70 5f 57 69 6e 64 6f |,0)):.Wimp_Windo|
00000730 77 43 6c 6f 73 65 28 69 6e 66 6f 72 6d 61 74 69 |wClose(informati|
00000740 6f 6e 5f 57 69 6e 64 6f 77 25 29 3a f2 57 69 6d |on_Window%):.Wim|
00000750 70 5f 4d 65 6e 75 43 6c 6f 73 65 0d 01 0e 79 c9 |p_MenuClose...y.|
00000760 6c 6f 6e 67 69 74 75 64 65 5f 57 69 6e 64 6f 77 |longitude_Window|
00000770 25 3a 6c 6f 6e 67 3d bb 28 a4 57 69 6d 70 5f 49 |%:long=.(.Wimp_I|
00000780 63 6f 6e 54 65 78 74 28 6c 6f 6e 67 69 74 75 64 |conText(longitud|
00000790 65 5f 57 69 6e 64 6f 77 25 2c 30 29 29 3a f2 57 |e_Window%,0)):.W|
000007a0 69 6d 70 5f 57 69 6e 64 6f 77 43 6c 6f 73 65 28 |imp_WindowClose(|
000007b0 69 6e 66 6f 72 6d 61 74 69 6f 6e 5f 57 69 6e 64 |information_Wind|
000007c0 6f 77 25 29 3a f2 57 69 6d 70 5f 4d 65 6e 75 43 |ow%):.Wimp_MenuC|
000007d0 6c 6f 73 65 0d 01 18 05 cb 0d 01 22 05 e1 0d 01 |lose......."....|
000007e0 2c 26 dd f2 45 76 65 6e 74 5f 4d 65 6e 75 43 68 |,&..Event_MenuCh|
000007f0 6f 69 63 65 28 6d 65 6e 75 25 29 3a c8 8e 6d 65 |oice(menu%):..me|
00000800 6e 75 25 ca 0d 01 36 22 c9 42 61 72 5f 4d 65 6e |nu%...6".Bar_Men|
00000810 75 25 3a f2 55 73 65 72 5f 4d 65 6e 75 43 68 6f |u%:.User_MenuCho|
00000820 69 63 65 42 61 72 0d 01 40 05 cb 0d 01 4a 05 e1 |iceBar..@....J..|
00000830 0d 01 54 2f dd f2 55 73 65 72 5f 4d 65 6e 75 43 |..T/..User_MenuC|
00000840 68 6f 69 63 65 42 61 72 3a c8 8e a4 57 69 6d 70 |hoiceBar:...Wimp|
00000850 5f 4d 65 6e 75 43 68 6f 69 63 65 28 30 29 ca 0d |_MenuChoice(0)..|
00000860 01 5e 12 c9 36 3a 66 69 6e 69 73 68 65 64 25 3d |.^..6:finished%=|
00000870 b9 0d 01 68 05 cb 0d 01 72 05 e1 0d 01 7c 2e dd |...h....r....|..|
00000880 f2 45 76 65 6e 74 5f 53 61 76 65 46 69 6c 65 28 |.Event_SaveFile(|
00000890 66 69 6c 65 24 2c 77 69 6e 64 6f 77 25 29 3a c8 |file$,window%):.|
000008a0 8e 77 69 6e 64 6f 77 25 ca 0d 01 86 44 c9 73 61 |.window%....D.sa|
000008b0 76 65 5f 57 69 6e 64 6f 77 25 3a f2 53 61 76 65 |ve_Window%:.Save|
000008c0 5f 64 61 74 61 3a f2 57 69 6d 70 5f 53 65 6e 64 |_data:.Wimp_Send|
000008d0 54 6f 45 64 69 74 28 66 69 6c 65 24 29 3a f2 57 |ToEdit(file$):.W|
000008e0 69 6d 70 5f 4d 65 6e 75 43 6c 6f 73 65 0d 01 90 |imp_MenuClose...|
000008f0 05 cb 0d 01 9a 05 e1 0d 01 a4 a9 dd f2 53 61 76 |.............Sav|
00000900 65 5f 64 61 74 61 3a d9 23 30 3a 6f 75 74 66 69 |e_data:.#0:outfi|
00000910 6c 65 25 3d ae 28 66 69 6c 65 24 29 3a d5 23 6f |le%=.(file$):.#o|
00000920 75 74 66 69 6c 65 25 2c 22 53 75 6e 72 69 73 65 |utfile%,"Sunrise|
00000930 20 61 74 20 22 2b a4 66 6f 72 6d 61 74 28 73 75 | at "+.format(su|
00000940 6e 72 69 73 65 29 2b 22 2c 20 53 75 6e 73 65 74 |nrise)+", Sunset|
00000950 20 61 74 20 22 2b a4 66 6f 72 6d 61 74 28 73 75 | at "+.format(su|
00000960 6e 73 65 74 29 2b 22 2c 20 6f 6e 20 22 2b c0 91 |nset)+", on "+..|
00000970 24 2c 31 35 29 2b 22 2e 22 3a d9 23 6f 75 74 66 |$,15)+".":.#outf|
00000980 69 6c 65 25 3a ff 22 53 65 74 74 79 70 65 20 22 |ile%:."Settype "|
00000990 2b 66 69 6c 65 24 2b 22 20 26 46 46 46 22 3a e1 |+file$+" &FFF":.|
000009a0 0d 01 ae 51 dd f2 57 69 6d 70 5f 57 69 6e 64 6f |...Q..Wimp_Windo|
000009b0 77 41 6c 65 72 74 28 74 69 74 6c 65 24 2c 6d 65 |wAlert(title$,me|
000009c0 73 73 61 67 65 24 29 3a f2 57 69 6d 70 5f 57 69 |ssage$):.Wimp_Wi|
000009d0 6e 64 6f 77 41 6c 65 72 74 42 6f 78 28 74 69 74 |ndowAlertBox(tit|
000009e0 6c 65 24 2c 6d 65 73 73 61 67 65 24 2c 30 29 3a |le$,message$,0):|
000009f0 e1 0d 01 b8 5c dd f2 57 69 6d 70 5f 57 69 6e 64 |....\..Wimp_Wind|
00000a00 6f 77 41 6c 65 72 74 42 6f 78 28 74 69 74 6c 65 |owAlertBox(title|
00000a10 24 2c 6d 65 73 73 61 67 65 24 2c 62 75 74 74 6f |$,message$,butto|
00000a20 6e 25 29 3a ea 72 65 73 70 6f 6e 73 65 25 3a 24 |n%):.response%:$|
00000a30 28 77 69 6d 70 25 2b 34 29 3d 6d 65 73 73 61 67 |(wimp%+4)=messag|
00000a40 65 24 3a c8 8e 62 75 74 74 6f 6e 25 ca 0d 01 c2 |e$:..button%....|
00000a50 12 c9 32 3a 72 65 73 70 6f 6e 73 65 25 3d 31 0d |..2:response%=1.|
00000a60 01 cc 13 c9 31 3a 72 65 73 70 6f 6e 73 65 25 3d |....1:response%=|
00000a70 31 35 0d 01 d6 1a c9 33 3a 72 65 73 70 6f 6e 73 |15.....3:respons|
00000a80 65 25 3d 28 31 3c 3c 35 29 2b 31 36 0d 01 e0 1a |e%=(1<<5)+16....|
00000a90 c9 34 3a 72 65 73 70 6f 6e 73 65 25 3d 28 31 3c |.4:response%=(1<|
00000aa0 3c 36 29 2b 31 36 0d 01 ea 12 7f 3a 72 65 73 70 |<6)+16.....:resp|
00000ab0 6f 6e 73 65 25 3d 31 36 0d 01 f4 05 cb 0d 01 fe |onse%=16........|
00000ac0 30 c8 99 26 34 30 30 44 46 2c 77 69 6d 70 25 2c |0..&400DF,wimp%,|
00000ad0 72 65 73 70 6f 6e 73 65 25 2c 74 69 74 6c 65 24 |response%,title$|
00000ae0 b8 2c 72 65 73 70 6f 6e 73 65 25 3a e1 0d 02 08 |.,response%:....|
00000af0 81 dd a4 57 69 6d 70 5f 57 69 6e 64 6f 77 43 61 |...Wimp_WindowCa|
00000b00 6e 63 65 6c 28 74 69 74 6c 65 24 2c 6d 65 73 73 |ncel(title$,mess|
00000b10 61 67 65 24 29 3a 24 28 77 69 6d 70 25 2b 34 29 |age$):$(wimp%+4)|
00000b20 3d 6d 65 73 73 61 67 65 24 3a 72 65 73 70 6f 6e |=message$:respon|
00000b30 73 65 25 3d 32 33 3a c8 99 26 34 30 30 44 46 2c |se%=23:..&400DF,|
00000b40 77 69 6d 70 25 2c 72 65 73 70 6f 6e 73 65 25 2c |wimp%,response%,|
00000b50 74 69 74 6c 65 24 b8 2c 72 65 73 70 6f 6e 73 65 |title$.,response|
00000b60 25 3a 3d 72 65 73 70 6f 6e 73 65 25 2d 32 0d 02 |%:=response%-2..|
00000b70 12 54 dd f2 57 69 6d 70 5f 57 69 6e 64 6f 77 45 |.T..Wimp_WindowE|
00000b80 72 72 6f 72 42 6f 78 28 74 69 74 6c 65 24 2c 6d |rrorBox(title$,m|
00000b90 65 73 73 61 67 65 24 29 3a f2 57 69 6d 70 5f 57 |essage$):.Wimp_W|
00000ba0 69 6e 64 6f 77 41 6c 65 72 74 42 6f 78 28 74 69 |indowAlertBox(ti|
00000bb0 74 6c 65 24 2c 6d 65 73 73 61 67 65 24 2c 32 29 |tle$,message$,2)|
00000bc0 3a e1 0d 02 1c 54 dd a4 57 69 6d 70 5f 57 69 6e |:....T..Wimp_Win|
00000bd0 64 6f 77 4c 6f 61 64 28 77 69 6e 64 6f 77 24 29 |dowLoad(window$)|
00000be0 3a 3d a4 57 69 6d 70 5f 57 69 6e 64 6f 77 4c 6f |:=.Wimp_WindowLo|
00000bf0 61 64 46 72 6f 6d 28 77 69 6e 64 6f 77 24 2c 22 |adFrom(window$,"|
00000c00 3c 4f 62 65 79 24 44 69 72 3e 2e 54 65 6d 70 6c |<Obey$Dir>.Templ|
00000c10 61 74 65 73 22 29 0d 02 26 9c dd a4 57 69 6d 70 |ates")..&...Wimp|
00000c20 5f 57 69 6e 64 6f 77 4c 6f 61 64 46 72 6f 6d 28 |_WindowLoadFrom(|
00000c30 77 69 6e 64 6f 77 24 2c 74 65 6d 70 6c 61 74 65 |window$,template|
00000c40 24 29 3a ea 63 25 2c 69 25 2c 6e 25 2c 6a 25 2c |$):.c%,i%,n%,j%,|
00000c50 73 70 24 2c 73 70 32 24 3a c8 99 26 34 30 30 44 |sp$,sp2$:..&400D|
00000c60 39 2c 2c 74 65 6d 70 6c 61 74 65 24 3a c8 99 26 |9,,template$:..&|
00000c70 34 30 30 44 42 2c 2c 77 69 6d 70 25 2c 69 63 6f |400DB,,wimp%,ico|
00000c80 6e 73 25 2c 69 63 6f 6e 5f 6d 65 6d 6f 72 79 25 |ns%,icon_memory%|
00000c90 2c 2d 31 2c 77 69 6e 64 6f 77 24 2c 30 b8 2c 2c |,-1,window$,0.,,|
00000ca0 69 63 6f 6e 73 25 3a c8 8e 73 70 72 69 74 65 73 |icons%:..sprites|
00000cb0 25 ca 0d 02 30 18 c9 31 3a 77 69 6d 70 25 21 36 |%...0..1:wimp%!6|
00000cc0 34 3d 73 70 72 69 74 65 73 25 0d 02 3a 26 7f 3a |4=sprites%..:&.:|
00000cd0 77 69 6d 70 25 21 36 34 3d a4 45 76 65 6e 74 5f |wimp%!64=.Event_|
00000ce0 53 70 72 69 74 65 73 28 77 69 6e 64 6f 77 25 29 |Sprites(window%)|
00000cf0 0d 02 44 05 cb 0d 02 4e 54 c8 99 26 34 30 30 43 |..D....NT..&400C|
00000d00 31 2c 2c 77 69 6d 70 25 b8 63 25 3a c8 99 26 34 |1,,wimp%.c%:..&4|
00000d10 30 30 44 41 3a c8 99 26 34 30 30 44 36 2c 63 25 |00DA:..&400D6,c%|
00000d20 2c 77 69 6d 70 25 2b 34 30 2c 31 2b 32 2b 28 31 |,wimp%+40,1+2+(1|
00000d30 3c 3c 38 29 2c 32 2b 28 31 3c 3c 38 29 3a c8 8e |<<8),2+(1<<8):..|
00000d40 77 69 6d 70 25 21 34 30 ca 0d 02 58 08 c9 2d 31 |wimp%!40...X..-1|
00000d50 3a 0d 02 62 0b 7f 3a 69 25 3d 34 30 0d 02 6c 74 |:..b..:i%=40..lt|
00000d60 f5 3a 77 69 6d 70 25 21 34 3d 77 69 6d 70 25 21 |.:wimp%!4=wimp%!|
00000d70 69 25 3a 77 69 6d 70 25 21 30 3d 63 25 3a c8 99 |i%:wimp%!0=c%:..|
00000d80 26 34 30 30 43 45 2c 2c 77 69 6d 70 25 3a 73 70 |&400CE,,wimp%:sp|
00000d90 24 3d a4 57 69 6d 70 5f 47 65 74 53 74 72 69 6e |$=.Wimp_GetStrin|
00000da0 67 41 74 41 64 64 72 65 73 73 28 77 69 6d 70 25 |gAtAddress(wimp%|
00000db0 21 32 38 29 3a c8 99 26 34 30 30 43 34 2c 2c 77 |!28):..&400C4,,w|
00000dc0 69 6d 70 25 3a c8 8e 73 70 72 69 74 65 73 25 ca |imp%:..sprites%.|
00000dd0 0d 02 76 11 c9 31 3a 77 69 6d 70 25 21 33 32 3d |..v..1:wimp%!32=|
00000de0 31 0d 02 80 06 7f 3a 0d 02 8a b8 c8 99 26 32 45 |1.....:......&2E|
00000df0 2c 26 31 30 38 2c 73 70 72 69 74 65 73 25 b8 2c |,&108,sprites%.,|
00000e00 2c 2c 6e 25 3a 6a 25 3d 30 3a f5 3a 6a 25 2b 3d |,,n%:j%=0:.:j%+=|
00000e10 31 3a c8 99 26 32 45 2c 26 31 30 44 2c 73 70 72 |1:..&2E,&10D,spr|
00000e20 69 74 65 73 25 2c 70 6f 69 6e 74 65 72 5f 62 6c |ites%,pointer_bl|
00000e30 6f 63 6b 25 2c 32 30 2c 6a 25 3a 73 70 32 24 3d |ock%,20,j%:sp2$=|
00000e40 a4 57 69 6d 70 5f 47 65 74 53 74 72 69 6e 67 41 |.Wimp_GetStringA|
00000e50 74 41 64 64 72 65 73 73 28 70 6f 69 6e 74 65 72 |tAddress(pointer|
00000e60 5f 62 6c 6f 63 6b 25 29 3a fd 6a 25 3d 6e 25 84 |_block%):.j%=n%.|
00000e70 73 70 24 3d 73 70 32 24 3a e7 73 70 24 3d 73 70 |sp$=sp2$:.sp$=sp|
00000e80 32 24 8c 77 69 6d 70 25 21 33 32 3d 73 70 72 69 |2$.wimp%!32=spri|
00000e90 74 65 73 25 8b 77 69 6d 70 25 21 33 32 3d 31 0d |tes%.wimp%!32=1.|
00000ea0 02 94 05 cb 0d 02 9e 3d 77 69 6d 70 25 21 34 3d |.......=wimp%!4=|
00000eb0 63 25 3a c8 99 26 34 30 30 43 32 2c 2c 77 69 6d |c%:..&400C2,,wim|
00000ec0 70 25 2b 34 b8 68 61 6e 64 6c 65 25 3a 69 25 2b |p%+4.handle%:i%+|
00000ed0 3d 34 3a fd 28 77 69 6d 70 25 21 69 25 29 3d 2d |=4:.(wimp%!i%)=-|
00000ee0 31 0d 02 a8 05 cb 0d 02 b2 07 3d 63 25 0d 02 bc |1.........=c%...|
00000ef0 61 dd f2 57 69 6d 70 5f 57 69 6e 64 6f 77 42 72 |a..Wimp_WindowBr|
00000f00 69 6e 67 54 6f 54 6f 70 28 77 69 6e 64 6f 77 25 |ingToTop(window%|
00000f10 29 3a 21 77 69 6d 70 25 3d 77 69 6e 64 6f 77 25 |):!wimp%=window%|
00000f20 3a c8 99 26 34 30 30 43 42 2c 2c 77 69 6d 70 25 |:..&400CB,,wimp%|
00000f30 3a 77 69 6d 70 25 21 32 38 3d 2d 31 3a c8 99 26 |:wimp%!28=-1:..&|
00000f40 34 30 30 43 35 2c 2c 77 69 6d 70 25 3a e1 0d 02 |400C5,,wimp%:...|
00000f50 c6 40 dd f2 57 69 6d 70 5f 57 69 6e 64 6f 77 43 |.@..Wimp_WindowC|
00000f60 6c 6f 73 65 28 77 69 6e 64 6f 77 25 29 3a 21 77 |lose(window%):!w|
00000f70 69 6d 70 25 3d 77 69 6e 64 6f 77 25 3a c8 99 26 |imp%=window%:..&|
00000f80 34 30 30 43 36 2c 2c 77 69 6d 70 25 3a e1 0d 02 |400C6,,wimp%:...|
00000f90 d0 99 dd a4 57 69 6d 70 5f 49 63 6f 6e 42 61 72 |....Wimp_IconBar|
00000fa0 28 53 70 72 69 74 65 24 29 3a ea 69 63 6f 6e 25 |(Sprite$):.icon%|
00000fb0 3a 77 69 6d 70 25 21 30 3d 2d 31 3a 77 69 6d 70 |:wimp%!0=-1:wimp|
00000fc0 25 21 34 3d 30 3a 77 69 6d 70 25 21 38 3d 30 3a |%!4=0:wimp%!8=0:|
00000fd0 77 69 6d 70 25 21 31 32 3d 36 38 3a 77 69 6d 70 |wimp%!12=68:wimp|
00000fe0 25 21 31 36 3d 36 38 3a 77 69 6d 70 25 21 32 30 |%!16=68:wimp%!20|
00000ff0 3d 26 33 30 30 32 3a 24 28 77 69 6d 70 25 2b 32 |=&3002:$(wimp%+2|
00001000 34 29 3d 53 70 72 69 74 65 24 3a c8 99 26 34 30 |4)=Sprite$:..&40|
00001010 30 43 32 2c 2c 77 69 6d 70 25 b8 69 63 6f 6e 25 |0C2,,wimp%.icon%|
00001020 3a 3d 69 63 6f 6e 25 0d 02 da 7f dd a4 57 69 6d |:=icon%......Wim|
00001030 70 5f 49 63 6f 6e 54 65 78 74 28 77 69 6e 64 6f |p_IconText(windo|
00001040 77 25 2c 69 63 6f 6e 25 29 3a 77 69 6d 70 25 21 |w%,icon%):wimp%!|
00001050 30 3d 77 69 6e 64 6f 77 25 3a 77 69 6d 70 25 21 |0=window%:wimp%!|
00001060 34 3d 69 63 6f 6e 25 3a c8 99 26 34 30 30 43 45 |4=icon%:..&400CE|
00001070 2c 2c 77 69 6d 70 25 3a e7 28 28 77 69 6d 70 25 |,,wimp%:.((wimp%|
00001080 21 32 34 29 80 26 31 30 30 29 3d 30 85 31 2c 22 |!24).&100)=0.1,"|
00001090 49 63 6f 6e 20 69 73 6e 27 74 20 69 6e 64 69 72 |Icon isn't indir|
000010a0 65 63 74 65 64 22 0d 02 e4 10 3d 24 28 77 69 6d |ected"....=$(wim|
000010b0 70 25 21 32 38 29 0d 02 ee 88 dd f2 57 69 6d 70 |p%!28)......Wimp|
000010c0 5f 49 63 6f 6e 50 75 74 54 65 78 74 28 77 69 6e |_IconPutText(win|
000010d0 64 6f 77 25 2c 69 63 6f 6e 25 2c 74 65 78 74 24 |dow%,icon%,text$|
000010e0 29 3a 77 69 6d 70 25 21 30 3d 77 69 6e 64 6f 77 |):wimp%!0=window|
000010f0 25 3a 77 69 6d 70 25 21 34 3d 69 63 6f 6e 25 3a |%:wimp%!4=icon%:|
00001100 c8 99 26 34 30 30 43 45 2c 2c 77 69 6d 70 25 3a |..&400CE,,wimp%:|
00001110 e7 28 28 77 69 6d 70 25 21 32 34 29 80 26 31 30 |.((wimp%!24).&10|
00001120 30 29 3d 30 85 31 2c 22 49 63 6f 6e 20 69 73 6e |0)=0.1,"Icon isn|
00001130 27 74 20 69 6e 64 69 72 65 63 74 65 64 22 0d 02 |'t indirected"..|
00001140 f8 5a 24 28 77 69 6d 70 25 21 32 38 29 3d 74 65 |.Z$(wimp%!28)=te|
00001150 78 74 24 3a 77 69 6d 70 25 21 30 3d 77 69 6e 64 |xt$:wimp%!0=wind|
00001160 6f 77 25 3a 77 69 6d 70 25 21 34 3d 69 63 6f 6e |ow%:wimp%!4=icon|
00001170 25 3a 77 69 6d 70 25 21 38 3d 30 3a 77 69 6d 70 |%:wimp%!8=0:wimp|
00001180 25 21 31 32 3d 30 3a c8 99 26 34 30 30 43 44 2c |%!12=0:..&400CD,|
00001190 2c 77 69 6d 70 25 3a e1 0d 03 02 33 dd a4 57 69 |,wimp%:....3..Wi|
000011a0 6d 70 5f 4d 65 6e 75 43 68 6f 69 63 65 28 6c 65 |mp_MenuChoice(le|
000011b0 76 65 6c 25 29 3a 3d 28 77 69 6d 70 25 21 28 34 |vel%):=(wimp%!(4|
000011c0 2a 6c 65 76 65 6c 25 29 29 2b 31 0d 03 0c e5 dd |*level%))+1.....|
000011d0 a4 57 69 6d 70 5f 4d 65 6e 75 43 72 65 61 74 65 |.Wimp_MenuCreate|
000011e0 28 6d 65 6e 75 24 29 3a ea 6d 65 6e 75 25 2c 69 |(menu$):.menu%,i|
000011f0 6e 64 65 78 25 2c 77 69 64 74 68 25 2c 6c 65 6e |ndex%,width%,len|
00001200 67 74 68 25 2c 6b 25 2c 73 25 3a de 6d 65 6e 75 |gth%,k%,s%:.menu|
00001210 25 32 38 2b a4 57 69 6d 70 5f 4d 65 6e 75 4e 6f |%28+.Wimp_MenuNo|
00001220 4f 66 45 6e 74 72 69 65 73 28 6d 65 6e 75 24 29 |OfEntries(menu$)|
00001230 2a 32 34 3a 6d 65 6e 75 25 3f 31 32 3d 37 3a 6d |*24:menu%?12=7:m|
00001240 65 6e 75 25 3f 31 33 3d 32 3a 6d 65 6e 75 25 3f |enu%?13=2:menu%?|
00001250 31 34 3d 37 3a 6d 65 6e 75 25 3f 31 35 3d 30 3a |14=7:menu%?15=0:|
00001260 6d 65 6e 75 25 21 31 36 3d 31 34 30 3a 6d 65 6e |menu%!16=140:men|
00001270 75 25 21 32 30 3d 34 34 3a 6d 65 6e 75 25 21 32 |u%!20=44:menu%!2|
00001280 34 3d 30 3a 69 6e 64 65 78 25 3d 6d 65 6e 75 25 |4=0:index%=menu%|
00001290 2b 32 38 3a 24 6d 65 6e 75 25 3d c0 6d 65 6e 75 |+28:$menu%=.menu|
000012a0 24 2c a7 6d 65 6e 75 24 2c 22 5c 22 29 2d 31 29 |$,.menu$,"\")-1)|
000012b0 0d 03 16 42 77 69 64 74 68 25 3d a9 28 c0 6d 65 |...Bwidth%=.(.me|
000012c0 6e 75 24 2c a7 6d 65 6e 75 24 2c 22 5c 22 29 2d |nu$,.menu$,"\")-|
000012d0 31 29 29 3a 6d 65 6e 75 24 2b 3d 22 5c 22 3a 4d |1)):menu$+="\":M|
000012e0 65 6e 75 5f 4e 6f 4f 66 45 6e 74 72 69 65 73 25 |enu_NoOfEntries%|
000012f0 3d 30 0d 03 20 0f c8 95 6d 65 6e 75 24 3c 3e 22 |=0.. ...menu$<>"|
00001300 22 0d 03 2a 28 6d 65 6e 75 24 3d c1 6d 65 6e 75 |"..*(menu$=.menu|
00001310 24 2c a7 6d 65 6e 75 24 2c 22 5c 22 29 2b 31 29 |$,.menu$,"\")+1)|
00001320 3a c8 8e 6d 65 6e 75 24 ca 0d 03 34 07 c9 22 22 |:..menu$...4..""|
00001330 0d 03 3e 06 7f 3a 0d 03 48 60 21 69 6e 64 65 78 |..>..:..H`!index|
00001340 25 3d 30 3a 69 6e 64 65 78 25 21 34 3d 2d 31 3a |%=0:index%!4=-1:|
00001350 69 6e 64 65 78 25 21 38 3d 26 37 30 30 30 30 32 |index%!8=&700002|
00001360 31 3a 6c 65 6e 67 74 68 25 3d a7 6d 65 6e 75 24 |1:length%=.menu$|
00001370 2c 22 5c 22 29 2d 31 3a 6b 25 3d a7 c0 6d 65 6e |,"\")-1:k%=..men|
00001380 75 24 2c 6c 65 6e 67 74 68 25 29 2c 22 3e 22 29 |u$,length%),">")|
00001390 3a c8 8e 6b 25 ca 0d 03 52 06 c9 30 0d 03 5c 05 |:..k%...R..0..\.|
000013a0 7f 0d 03 66 3a 73 25 3d a0 28 c1 6d 65 6e 75 24 |...f:s%=.(.menu$|
000013b0 2c 6b 25 2b 31 2c 6c 65 6e 67 74 68 25 2d 6b 25 |,k%+1,length%-k%|
000013c0 29 29 3a 69 6e 64 65 78 25 21 34 3d 73 25 3a 6c |)):index%!4=s%:l|
000013d0 65 6e 67 74 68 25 3d 6b 25 2d 31 0d 03 70 05 cb |ength%=k%-1..p..|
000013e0 0d 03 7a 3f 24 28 69 6e 64 65 78 25 2b 31 32 29 |..z?$(index%+12)|
000013f0 3d c0 6d 65 6e 75 24 2c 6c 65 6e 67 74 68 25 29 |=.menu$,length%)|
00001400 3a e7 6c 65 6e 67 74 68 25 3e 77 69 64 74 68 25 |:.length%>width%|
00001410 8c 77 69 64 74 68 25 3d 6c 65 6e 67 74 68 25 0d |.width%=length%.|
00001420 03 84 0e 69 6e 64 65 78 25 2b 3d 32 34 0d 03 8e |...index%+=24...|
00001430 05 cb 0d 03 98 05 ce 0d 03 a2 3b 6d 65 6e 75 25 |..........;menu%|
00001440 21 31 36 3d 31 36 2a 28 77 69 64 74 68 25 2b 31 |!16=16*(width%+1|
00001450 29 3a 69 6e 64 65 78 25 21 2d 32 34 3d 69 6e 64 |):index%!-24=ind|
00001460 65 78 25 21 2d 32 34 84 26 38 30 3a 3d 6d 65 6e |ex%!-24.&80:=men|
00001470 75 25 0d 03 ac 55 dd a4 57 69 6d 70 5f 4d 65 6e |u%...U..Wimp_Men|
00001480 75 4e 6f 4f 66 45 6e 74 72 69 65 73 28 6d 65 6e |uNoOfEntries(men|
00001490 75 24 29 3a ea 6e 25 2c 6a 25 3a 6e 25 3d 30 3a |u$):.n%,j%:n%=0:|
000014a0 6a 25 3d 30 3a f5 3a 6a 25 3d a7 6d 65 6e 75 24 |j%=0:.:j%=.menu$|
000014b0 2c 22 5c 22 2c 6a 25 2b 31 29 3a e7 6a 25 3c 3e |,"\",j%+1):.j%<>|
000014c0 30 8c 6e 25 2b 3d 31 0d 03 b6 0d fd 6a 25 3d 30 |0.n%+=1.....j%=0|
000014d0 3a 3d 6e 25 0d 03 c0 22 dd f2 57 69 6d 70 5f 4d |:=n%..."..Wimp_M|
000014e0 65 6e 75 43 6c 6f 73 65 3a c8 99 26 34 30 30 44 |enuClose:..&400D|
000014f0 34 2c 2d 31 3a e1 0d 03 ca 5c dd f2 57 69 6d 70 |4,-1:....\..Wimp|
00001500 5f 4d 65 6e 75 44 6f 74 74 65 64 4c 69 6e 65 28 |_MenuDottedLine(|
00001510 6d 65 6e 75 25 2c 69 74 65 6d 25 29 3a 6d 65 6e |menu%,item%):men|
00001520 75 25 21 28 32 38 2b 28 69 74 65 6d 25 2d 31 29 |u%!(28+(item%-1)|
00001530 2a 32 34 29 3d 28 6d 65 6e 75 25 21 28 32 38 2b |*24)=(menu%!(28+|
00001540 28 69 74 65 6d 25 2d 31 29 2a 32 34 29 29 84 32 |(item%-1)*24)).2|
00001550 3a e1 0d 03 d4 5d dd f2 57 69 6d 70 5f 53 70 72 |:....]..Wimp_Spr|
00001560 69 74 65 73 4c 6f 61 64 3a f2 57 69 6d 70 5f 53 |itesLoad:.Wimp_S|
00001570 70 72 69 74 65 73 50 61 74 68 4c 6f 61 64 28 22 |pritesPathLoad("|
00001580 3c 4f 62 65 79 24 44 69 72 3e 2e 53 70 72 69 74 |<Obey$Dir>.Sprit|
00001590 65 73 22 29 3a 64 69 72 65 63 74 5f 73 70 72 69 |es"):direct_spri|
000015a0 74 65 73 25 3d 73 70 72 69 74 65 73 25 3a e1 0d |tes%=sprites%:..|
000015b0 03 de b9 dd f2 57 69 6d 70 5f 53 70 72 69 74 65 |.....Wimp_Sprite|
000015c0 73 50 61 74 68 4c 6f 61 64 28 70 61 74 68 6e 61 |sPathLoad(pathna|
000015d0 6d 65 24 29 3a ea 53 25 2c 54 25 3a 53 25 3d 8e |me$):.S%,T%:S%=.|
000015e0 22 3c 4f 62 65 79 24 44 69 72 3e 2e 53 70 72 69 |"<Obey$Dir>.Spri|
000015f0 74 65 73 22 3a 54 25 3d a2 23 53 25 2b 31 36 3a |tes":T%=.#S%+16:|
00001600 d9 23 53 25 3a de 73 70 72 69 74 65 73 25 54 25 |.#S%:.sprites%T%|
00001610 2c 73 70 6e 61 6d 65 25 31 32 3a 21 73 70 72 69 |,spname%12:!spri|
00001620 74 65 73 25 3d 54 25 3a 73 70 72 69 74 65 73 25 |tes%=T%:sprites%|
00001630 21 38 3d 30 3a c8 99 26 32 45 2c 26 31 30 39 2c |!8=0:..&2E,&109,|
00001640 73 70 72 69 74 65 73 25 3a c8 99 26 32 45 2c 26 |sprites%:..&2E,&|
00001650 31 30 41 2c 73 70 72 69 74 65 73 25 2c 70 61 74 |10A,sprites%,pat|
00001660 68 6e 61 6d 65 24 3a e1 0d 03 e8 2e dd a4 57 69 |hname$:.......Wi|
00001670 6d 70 5f 47 65 74 46 69 6c 65 46 72 6f 6d 50 61 |mp_GetFileFromPa|
00001680 74 68 6e 61 6d 65 28 66 24 29 3a c8 8e a7 66 24 |thname(f$):...f$|
00001690 2c 22 2e 22 29 ca 0d 03 f2 0a c9 30 3a 3d 66 24 |,".")......0:=f$|
000016a0 0d 03 fc 35 7f 3a 3d a4 57 69 6d 70 5f 47 65 74 |...5.:=.Wimp_Get|
000016b0 46 69 6c 65 46 72 6f 6d 50 61 74 68 6e 61 6d 65 |FileFromPathname|
000016c0 28 c2 66 24 2c a9 28 66 24 29 2d a7 66 24 2c 22 |(.f$,.(f$)-.f$,"|
000016d0 2e 22 29 29 29 0d 04 06 05 cb 0d 04 10 3e dd a4 |.")))........>..|
000016e0 57 69 6d 70 5f 47 65 74 46 69 6c 65 50 61 74 68 |Wimp_GetFilePath|
000016f0 4e 61 6d 65 3a 3d a4 57 69 6d 70 5f 47 65 74 53 |Name:=.Wimp_GetS|
00001700 74 72 69 6e 67 41 74 41 64 64 72 65 73 73 28 77 |tringAtAddress(w|
00001710 69 6d 70 25 2b 34 34 29 0d 04 1a 2f dd a4 57 69 |imp%+44).../..Wi|
00001720 6d 70 5f 47 65 74 53 74 72 69 6e 67 41 74 41 64 |mp_GetStringAtAd|
00001730 64 72 65 73 73 28 61 72 72 61 79 25 29 3a ea 73 |dress(array%):.s|
00001740 24 3a 73 24 3d 22 22 0d 04 24 3f c8 95 28 3f 61 |$:s$=""..$?..(?a|
00001750 72 72 61 79 25 3c 3e 31 33 29 80 28 3f 61 72 72 |rray%<>13).(?arr|
00001760 61 79 25 3c 3e 30 29 3a 73 24 2b 3d bd 28 3f 61 |ay%<>0):s$+=.(?a|
00001770 72 72 61 79 25 29 3a 61 72 72 61 79 25 2b 3d 31 |rray%):array%+=1|
00001780 3a ce 3a 3d 73 24 0d 04 2e 9c dd f2 57 69 6d 70 |:.:=s$......Wimp|
00001790 5f 53 65 6e 64 54 6f 45 64 69 74 28 66 69 6c 65 |_SendToEdit(file|
000017a0 24 29 3a ea 6e 25 3a 77 69 6d 70 25 21 34 3d 26 |$):.n%:wimp%!4=&|
000017b0 36 43 43 30 31 43 30 43 3a 77 69 6d 70 25 21 31 |6CC01C0C:wimp%!1|
000017c0 36 3d 35 3a 77 69 6d 70 25 21 33 36 3d 30 3a 77 |6=5:wimp%!36=0:w|
000017d0 69 6d 70 25 21 34 30 3d 26 46 46 46 3a 24 28 77 |imp%!40=&FFF:$(w|
000017e0 69 6d 70 25 2b 34 34 29 3d 66 69 6c 65 24 2b bd |imp%+44)=file$+.|
000017f0 30 3a 6e 25 3d a9 66 69 6c 65 24 2b 34 35 3a e7 |0:n%=.file$+45:.|
00001800 6e 25 83 34 8c 21 77 69 6d 70 25 3d 34 2b 28 6e |n%.4.!wimp%=4+(n|
00001810 25 3e 3e 32 29 3c 3c 32 8b 21 77 69 6d 70 25 3d |%>>2)<<2.!wimp%=|
00001820 6e 25 0d 04 38 19 c8 99 26 34 30 30 45 37 2c 31 |n%..8...&400E7,1|
00001830 37 2c 77 69 6d 70 25 2c 30 3a e1 0d 04 42 70 dd |7,wimp%,0:...Bp.|
00001840 f2 57 69 6d 70 5f 53 74 61 72 74 28 54 61 73 6b |.Wimp_Start(Task|
00001850 4e 61 6d 65 24 2c 77 69 6d 70 5f 6d 65 6d 6f 72 |Name$,wimp_memor|
00001860 79 25 2c 69 63 6f 6e 25 29 3a de 77 69 6d 70 25 |y%,icon%):.wimp%|
00001870 77 69 6d 70 5f 6d 65 6d 6f 72 79 25 2c 69 63 6f |wimp_memory%,ico|
00001880 6e 73 25 69 63 6f 6e 25 3a e7 77 69 6d 70 5f 6d |ns%icon%:.wimp_m|
00001890 65 6d 6f 72 79 25 3c 32 35 36 8c 77 69 6d 70 5f |emory%<256.wimp_|
000018a0 6d 65 6d 6f 72 79 25 3d 32 35 36 0d 04 4c 7b 69 |memory%=256..L{i|
000018b0 63 6f 6e 5f 6d 65 6d 6f 72 79 25 3d 69 63 6f 6e |con_memory%=icon|
000018c0 73 25 2b 69 63 6f 6e 25 3a 74 61 73 6b 24 3d 54 |s%+icon%:task$=T|
000018d0 61 73 6b 4e 61 6d 65 24 3a 69 6e 64 69 72 65 63 |askName$:indirec|
000018e0 74 5f 73 70 72 69 74 65 73 25 3d 31 3a 64 69 72 |t_sprites%=1:dir|
000018f0 65 63 74 5f 73 70 72 69 74 65 73 25 3d 31 3a f2 |ect_sprites%=1:.|
00001900 57 69 6d 70 5f 53 65 74 45 76 65 6e 74 56 61 72 |Wimp_SetEventVar|
00001910 69 61 62 6c 65 73 3a ee 85 f2 57 69 6d 70 5f 45 |iables:...Wimp_E|
00001920 72 72 6f 72 3a e0 0d 04 56 35 c8 99 26 34 30 30 |rror:...V5..&400|
00001930 43 30 2c 32 30 30 2c 26 34 42 35 33 34 31 35 34 |C0,200,&4B534154|
00001940 2c 54 61 73 6b 4e 61 6d 65 24 b8 76 65 72 73 69 |,TaskName$.versi|
00001950 6f 6e 25 2c 74 61 73 6b 25 3a e1 0d 04 60 f7 dd |on%,task%:...`..|
00001960 f2 57 69 6d 70 5f 53 65 74 45 76 65 6e 74 56 61 |.Wimp_SetEventVa|
00001970 72 69 61 62 6c 65 73 3a de 70 6f 69 6e 74 65 72 |riables:.pointer|
00001980 5f 62 6c 6f 63 6b 25 32 30 3a 6c 6f 6e 67 3d 31 |_block%20:long=1|
00001990 2e 34 37 35 3a 6c 61 74 3d 35 33 2e 36 35 3a 6e |.475:lat=53.65:n|
000019a0 75 6c 6c 25 3d 31 3a 64 72 61 77 25 3d 32 3a 70 |ull%=1:draw%=2:p|
000019b0 6f 69 6e 74 65 72 5f 6c 65 61 76 69 6e 67 25 3d |ointer_leaving%=|
000019c0 31 3c 3c 34 3a 70 6f 69 6e 74 65 72 5f 65 6e 74 |1<<4:pointer_ent|
000019d0 65 72 69 6e 67 25 3d 31 3c 3c 35 3a 6d 6f 75 73 |ering%=1<<5:mous|
000019e0 65 25 3d 31 3c 3c 36 3a 64 72 61 67 25 3d 31 3c |e%=1<<6:drag%=1<|
000019f0 3c 37 3a 6b 65 79 25 3d 31 3c 3c 38 3a 6d 65 6e |<7:key%=1<<8:men|
00001a00 75 25 3d 31 3c 3c 39 3a 73 63 72 6f 6c 6c 25 3d |u%=1<<9:scroll%=|
00001a10 31 3c 3c 31 30 3a 6c 6f 73 65 5f 63 61 72 65 74 |1<<10:lose_caret|
00001a20 25 3d 31 3c 3c 31 31 3a 67 61 69 6e 5f 63 61 72 |%=1<<11:gain_car|
00001a30 65 74 25 3d 31 3c 3c 31 32 3a 6d 65 73 73 61 67 |et%=1<<12:messag|
00001a40 65 25 3d 28 31 3c 3c 31 37 29 2b 28 31 3c 3c 31 |e%=(1<<17)+(1<<1|
00001a50 38 29 0d 04 6a ea 72 65 63 6f 72 64 65 72 25 3d |8)..j.recorder%=|
00001a60 31 3c 3c 31 38 3a 61 63 6b 6e 6f 77 6c 65 64 67 |1<<18:acknowledg|
00001a70 65 25 3d 31 3c 3c 31 39 3a 77 69 6e 64 6f 77 25 |e%=1<<19:window%|
00001a80 3d 30 3a 73 70 72 69 74 65 73 25 3d 31 3a 76 65 |=0:sprites%=1:ve|
00001a90 72 73 69 6f 6e 25 3d 30 3a 74 61 73 6b 25 3d 30 |rsion%=0:task%=0|
00001aa0 3a 42 61 72 5f 57 69 6e 64 6f 77 25 3d 2d 32 3a |:Bar_Window%=-2:|
00001ab0 42 61 72 5f 49 63 6f 6e 25 3d 30 3a 42 61 72 5f |Bar_Icon%=0:Bar_|
00001ac0 4d 65 6e 75 25 3d 30 3a 78 5f 6f 72 69 67 69 6e |Menu%=0:x_origin|
00001ad0 25 3d 30 3a 79 5f 6f 72 69 67 69 6e 25 3d 30 3a |%=0:y_origin%=0:|
00001ae0 53 61 76 65 57 69 6e 64 6f 77 25 3d 2d 33 3a 6d |SaveWindow%=-3:m|
00001af0 65 73 73 61 67 65 5f 71 75 69 74 25 3d 30 3a 6d |essage_quit%=0:m|
00001b00 65 73 73 61 67 65 5f 73 61 76 65 25 3d 32 3a 6d |essage_save%=2:m|
00001b10 65 73 73 61 67 65 5f 6c 6f 61 64 25 3d 33 3a 6d |essage_load%=3:m|
00001b20 6f 75 73 65 5f 62 75 74 74 6f 6e 25 3d 32 3a 73 |ouse_button%=2:s|
00001b30 61 76 65 5f 65 76 65 6e 74 25 3d 30 0d 04 74 20 |ave_event%=0..t |
00001b40 74 6f 70 5f 6c 69 6e 65 25 3d 30 3a 62 6f 74 74 |top_line%=0:bott|
00001b50 6f 6d 5f 6c 69 6e 65 25 3d 30 3a e1 0d 04 7e 1b |om_line%=0:...~.|
00001b60 dd f2 57 69 6d 70 5f 45 72 72 6f 72 3a ea 58 24 |..Wimp_Error:.X$|
00001b70 2c 78 25 3a ee 85 87 0d 04 88 c3 78 25 3d 9e 3a |,x%:.......x%=.:|
00001b80 58 24 3d f6 24 2b c3 28 78 25 29 3a de 45 72 72 |X$=.$+.(x%):.Err|
00001b90 6f 72 4d 73 67 25 33 36 3a 45 72 72 6f 72 4d 73 |orMsg%36:ErrorMs|
00001ba0 67 25 21 30 3d 33 36 3a 45 72 72 6f 72 4d 73 67 |g%!0=36:ErrorMsg|
00001bb0 25 21 31 32 3d 30 3a 45 72 72 6f 72 4d 73 67 25 |%!12=0:ErrorMsg%|
00001bc0 21 31 36 3d 26 38 31 30 38 30 3a 45 72 72 6f 72 |!16=&81080:Error|
00001bd0 4d 73 67 25 21 32 30 3d 78 25 3a 24 28 45 72 72 |Msg%!20=x%:$(Err|
00001be0 6f 72 4d 73 67 25 2b 32 34 29 3d 22 21 52 75 6e |orMsg%+24)="!Run|
00001bf0 49 6d 61 67 65 22 3a c8 99 26 34 30 30 45 37 2c |Image":..&400E7,|
00001c00 31 37 2c 45 72 72 6f 72 4d 73 67 25 3a f2 57 69 |17,ErrorMsg%:.Wi|
00001c10 6d 70 5f 57 69 6e 64 6f 77 41 6c 65 72 74 28 74 |mp_WindowAlert(t|
00001c20 61 73 6b 24 2c 58 24 29 3a f2 57 69 6d 70 5f 43 |ask$,X$):.Wimp_C|
00001c30 6c 6f 73 65 44 6f 77 6e 3a e1 0d 04 92 2c dd f2 |loseDown:....,..|
00001c40 57 69 6d 70 5f 43 6c 6f 73 65 44 6f 77 6e 3a c8 |Wimp_CloseDown:.|
00001c50 99 26 34 30 30 44 44 2c 74 61 73 6b 25 2c 22 54 |.&400DD,task%,"T|
00001c60 41 53 4b 22 3a e1 0d 04 9c 1d dd f2 57 69 6d 70 |ASK":.......Wimp|
00001c70 5f 51 75 69 74 3a 66 69 6e 69 73 68 65 64 25 3d |_Quit:finished%=|
00001c80 b9 3a e1 0d 04 a6 6d dd f2 57 69 6d 70 5f 57 61 |.:....m..Wimp_Wa|
00001c90 69 74 46 6f 72 45 76 65 6e 74 3a ea 6d 61 73 6b |itForEvent:.mask|
00001ca0 25 2c 65 76 65 6e 74 25 3a 66 69 6e 69 73 68 65 |%,event%:finishe|
00001cb0 64 25 3d a3 3a 6d 61 73 6b 25 3d 25 31 31 31 30 |d%=.:mask%=%1110|
00001cc0 30 30 30 31 31 30 30 31 3a f5 3a c8 99 26 34 30 |00011001:.:..&40|
00001cd0 30 43 37 2c 6d 61 73 6b 25 2c 77 69 6d 70 25 b8 |0C7,mask%,wimp%.|
00001ce0 65 76 65 6e 74 25 3a c8 8e 65 76 65 6e 74 25 ca |event%:..event%.|
00001cf0 0d 04 b0 1b c9 31 3a f2 57 69 6d 70 5f 50 6f 6c |.....1:.Wimp_Pol|
00001d00 6c 44 72 61 77 57 69 6e 64 6f 77 0d 04 ba 16 c9 |lDrawWindow.....|
00001d10 32 3a c8 99 26 34 30 30 43 35 2c 2c 77 69 6d 70 |2:..&400C5,,wimp|
00001d20 25 0d 04 c4 1c c9 33 3a f2 57 69 6d 70 5f 50 6f |%.....3:.Wimp_Po|
00001d30 6c 6c 43 6c 6f 73 65 57 69 6e 64 6f 77 0d 04 ce |llCloseWindow...|
00001d40 1b c9 36 3a f2 57 69 6d 70 5f 50 6f 6c 6c 4d 6f |..6:.Wimp_PollMo|
00001d50 75 73 65 43 6c 69 63 6b 0d 04 d8 1c c9 37 3a f2 |useClick.....7:.|
00001d60 57 69 6d 70 5f 50 6f 6c 6c 53 61 76 65 4d 65 73 |Wimp_PollSaveMes|
00001d70 73 61 67 65 0d 04 e2 19 c9 38 3a f2 57 69 6d 70 |sage.....8:.Wimp|
00001d80 5f 50 6f 6c 6c 4b 65 79 50 72 65 73 73 0d 04 ec |_PollKeyPress...|
00001d90 1f c9 39 3a f2 45 76 65 6e 74 5f 4d 65 6e 75 43 |..9:.Event_MenuC|
00001da0 68 6f 69 63 65 28 6d 65 6e 75 25 29 0d 04 f6 1d |hoice(menu%)....|
00001db0 c9 31 37 2c 31 38 3a f2 57 69 6d 70 5f 50 6f 6c |.17,18:.Wimp_Pol|
00001dc0 6c 4d 65 73 73 61 67 65 73 0d 05 00 05 cb 0d 05 |lMessages.......|
00001dd0 0a ca f2 64 61 74 65 3a 74 3d 30 2e 39 38 38 2a |...date:t=0.988*|
00001de0 28 64 25 2d 31 2b 33 30 2e 33 2a 28 6d 25 2d 31 |(d%-1+30.3*(m%-1|
00001df0 29 29 3a 45 3d 28 30 2e 31 32 33 2a 9b 28 b2 28 |)):E=(0.123*.(.(|
00001e00 74 2b 38 37 29 29 2d 28 b5 28 b2 28 28 32 2a 74 |t+87))-(.(.((2*t|
00001e10 29 2b 32 30 29 29 29 29 2f 36 3a 44 33 3d 2d 32 |)+20))))/6:D3=-2|
00001e20 33 2e 35 2a 28 9b 28 b2 28 74 2b 31 30 29 29 29 |3.5*(.(.(t+10)))|
00001e30 3a 4e 3d 9d 28 95 28 2d 31 2a 28 b7 28 b2 28 44 |:N=.(.(-1*(.(.(D|
00001e40 33 29 29 29 2a b7 28 b2 28 6c 61 74 29 29 29 29 |3)))*.(.(lat))))|
00001e50 3a 73 75 6e 72 69 73 65 3d 28 28 6c 6f 6e 67 2d |:sunrise=((long-|
00001e60 4e 29 2f 31 35 29 2d 45 2b 31 31 2e 37 37 3a 73 |N)/15)-E+11.77:s|
00001e70 75 6e 73 65 74 3d 28 28 6c 6f 6e 67 2b 4e 29 2f |unset=((long+N)/|
00001e80 31 35 29 2d 45 2b 31 32 2e 30 34 3a fd 66 69 6e |15)-E+12.04:.fin|
00001e90 69 73 68 65 64 25 3a e1 0d 05 14 84 dd f2 57 69 |ished%:.......Wi|
00001ea0 6d 70 5f 50 6f 6c 6c 44 72 61 77 57 69 6e 64 6f |mp_PollDrawWindo|
00001eb0 77 3a ea 6d 6f 72 65 25 3a c8 99 26 34 30 30 43 |w:.more%:..&400C|
00001ec0 38 2c 2c 77 69 6d 70 25 b8 6d 6f 72 65 25 3a 77 |8,,wimp%.more%:w|
00001ed0 69 6e 64 6f 77 25 3d 77 69 6d 70 25 21 30 3a 78 |indow%=wimp%!0:x|
00001ee0 5f 6f 72 69 67 69 6e 25 3d 31 36 2b 77 69 6d 70 |_origin%=16+wimp|
00001ef0 25 21 34 2d 77 69 6d 70 25 21 32 30 3a 79 5f 6f |%!4-wimp%!20:y_o|
00001f00 72 69 67 69 6e 25 3d 2d 31 36 2b 77 69 6d 70 25 |rigin%=-16+wimp%|
00001f10 21 31 36 2d 77 69 6d 70 25 21 32 34 0d 05 1e 0b |!16-wimp%!24....|
00001f20 c8 95 6d 6f 72 65 25 0d 05 28 42 f2 45 76 65 6e |..more%..(B.Even|
00001f30 74 5f 44 72 61 77 28 77 69 6e 64 6f 77 25 2c 78 |t_Draw(window%,x|
00001f40 5f 6f 72 69 67 69 6e 25 2c 79 5f 6f 72 69 67 69 |_origin%,y_origi|
00001f50 6e 25 29 3a c8 99 26 34 30 30 43 41 2c 2c 77 69 |n%):..&400CA,,wi|
00001f60 6d 70 25 b8 6d 6f 72 65 25 0d 05 32 05 ce 0d 05 |mp%.more%..2....|
00001f70 3c 05 e1 0d 05 46 6d dd f2 57 69 6d 70 5f 50 6f |<....Fm..Wimp_Po|
00001f80 6c 6c 43 6c 6f 73 65 57 69 6e 64 6f 77 3a c8 99 |llCloseWindow:..|
00001f90 26 34 30 30 43 46 2c 2c 77 69 6d 70 25 3a 77 69 |&400CF,,wimp%:wi|
00001fa0 6e 64 6f 77 25 3d 77 69 6d 70 25 21 31 32 3a 62 |ndow%=wimp%!12:b|
00001fb0 75 74 74 6f 6e 73 25 3d 77 69 6d 70 25 21 38 3a |uttons%=wimp%!8:|
00001fc0 21 77 69 6d 70 25 3d 77 69 6e 64 6f 77 25 3a c8 |!wimp%=window%:.|
00001fd0 99 26 34 30 30 43 36 2c 2c 77 69 6d 70 25 3a e1 |.&400C6,,wimp%:.|
00001fe0 0d 05 50 6a dd f2 57 69 6d 70 5f 50 6f 6c 6c 4d |..Pj..Wimp_PollM|
00001ff0 6f 75 73 65 43 6c 69 63 6b 3a 62 75 74 74 6f 6e |ouseClick:button|
00002000 25 3d 77 69 6d 70 25 21 38 3a 77 69 6e 64 6f 77 |%=wimp%!8:window|
00002010 25 3d 77 69 6d 70 25 21 31 32 3a 69 63 6f 6e 25 |%=wimp%!12:icon%|
00002020 3d 77 69 6d 70 25 21 31 36 3a 78 25 3d 77 69 6d |=wimp%!16:x%=wim|
00002030 70 25 21 30 3a 79 25 3d 77 69 6d 70 25 21 34 3a |p%!0:y%=wimp%!4:|
00002040 c8 8e 62 75 74 74 6f 6e 25 ca 0d 05 5a 1a c9 32 |..button%...Z..2|
00002050 3a f2 57 69 6d 70 5f 50 6f 6c 6c 4d 65 6e 75 50 |:.Wimp_PollMenuP|
00002060 6f 70 55 70 0d 05 64 1d 7f 3a c8 8e a4 45 76 65 |opUp..d..:...Eve|
00002070 6e 74 5f 53 61 76 65 28 77 69 6e 64 6f 77 25 29 |nt_Save(window%)|
00002080 ca 0d 05 6e 1a c9 b9 3a f2 57 69 6d 70 5f 50 6f |...n...:.Wimp_Po|
00002090 6c 6c 4d 6f 75 73 65 53 61 76 65 0d 05 78 20 c9 |llMouseSave..x .|
000020a0 a3 3a f2 57 69 6d 70 5f 50 6f 6c 6c 45 76 65 6e |.:.Wimp_PollEven|
000020b0 74 4d 6f 75 73 65 43 6c 69 63 6b 0d 05 82 05 cb |tMouseClick.....|
000020c0 0d 05 8c 05 cb 0d 05 96 05 e1 0d 05 a0 3c dd f2 |.............<..|
000020d0 57 69 6d 70 5f 50 6f 6c 6c 4d 65 6e 75 50 6f 70 |Wimp_PollMenuPop|
000020e0 55 70 3a 6d 65 6e 75 25 3d a4 45 76 65 6e 74 5f |Up:menu%=.Event_|
000020f0 4d 65 6e 75 28 77 69 6e 64 6f 77 25 29 3a c8 8e |Menu(window%):..|
00002100 6d 65 6e 75 25 ca 0d 05 aa 07 c9 a3 3a 0d 05 b4 |menu%.......:...|
00002110 06 7f 3a 0d 05 be 0e c8 8e 77 69 6e 64 6f 77 25 |..:......window%|
00002120 ca 0d 05 c8 0c c9 2d 32 3a 6e 25 3d 30 0d 05 d2 |......-2:n%=0...|
00002130 2a c8 95 28 28 42 61 72 5f 4d 65 6e 75 25 21 28 |*..((Bar_Menu%!(|
00002140 32 38 2b 6e 25 2a 32 34 29 29 80 25 31 30 30 30 |28+n%*24)).%1000|
00002150 30 30 30 30 29 3d 30 0d 05 dc 09 6e 25 2b 3d 31 |0000)=0....n%+=1|
00002160 0d 05 e6 05 ce 0d 05 f0 26 c8 99 26 34 30 30 44 |........&..&400D|
00002170 34 2c 2c 42 61 72 5f 4d 65 6e 75 25 2c 78 25 2d |4,,Bar_Menu%,x%-|
00002180 36 34 2c 39 36 2b 6e 25 2a 34 34 0d 05 fa 21 7f |64,96+n%*44...!.|
00002190 3a c8 99 26 34 30 30 44 34 2c 2c 6d 65 6e 75 25 |:..&400D4,,menu%|
000021a0 2c 78 25 2d 36 34 2c 79 25 2b 32 30 0d 06 04 05 |,x%-64,y%+20....|
000021b0 cb 0d 06 0e 05 cb 0d 06 18 05 e1 0d 06 22 21 dd |............."!.|
000021c0 f2 57 69 6d 70 5f 50 6f 6c 6c 4d 6f 75 73 65 53 |.Wimp_PollMouseS|
000021d0 61 76 65 3a c8 8e 69 63 6f 6e 25 ca 0d 06 2c 2e |ave:..icon%...,.|
000021e0 c9 30 3a e7 62 75 74 74 6f 6e 25 80 26 35 30 8c |.0:.button%.&50.|
000021f0 f2 57 69 6d 70 5f 50 6f 6c 6c 44 72 61 67 42 6f |.Wimp_PollDragBo|
00002200 78 28 77 69 6e 64 6f 77 25 29 0d 06 36 2e c9 32 |x(window%)..6..2|
00002210 3a e7 62 75 74 74 6f 6e 25 80 20 35 8c f2 57 69 |:.button%. 5..Wi|
00002220 6d 70 50 6f 6c 6c 5f 53 61 76 65 46 69 6c 65 28 |mpPoll_SaveFile(|
00002230 77 69 6e 64 6f 77 25 29 0d 06 40 05 cb 0d 06 4a |window%)..@....J|
00002240 05 e1 0d 06 54 4f dd f2 57 69 6d 70 5f 50 6f 6c |....TO..Wimp_Pol|
00002250 6c 45 76 65 6e 74 4d 6f 75 73 65 43 6c 69 63 6b |lEventMouseClick|
00002260 3a f2 45 76 65 6e 74 5f 4d 6f 75 73 65 43 6c 69 |:.Event_MouseCli|
00002270 63 6b 28 77 69 6e 64 6f 77 25 2c 69 63 6f 6e 25 |ck(window%,icon%|
00002280 2c 62 75 74 74 6f 6e 25 2c 78 25 2c 79 25 29 3a |,button%,x%,y%):|
00002290 e1 0d 06 5e d7 dd f2 57 69 6d 70 5f 50 6f 6c 6c |...^...Wimp_Poll|
000022a0 44 72 61 67 42 6f 78 28 77 69 6e 64 6f 77 25 29 |DragBox(window%)|
000022b0 3a ea 78 25 2c 79 25 3a 73 61 76 65 25 3d 77 69 |:.x%,y%:save%=wi|
000022c0 6e 64 6f 77 25 3a 21 77 69 6d 70 25 3d 77 69 6e |ndow%:!wimp%=win|
000022d0 64 6f 77 25 3a c8 99 26 34 30 30 43 42 2c 2c 77 |dow%:..&400CB,,w|
000022e0 69 6d 70 25 3a 78 25 3d 77 69 6d 70 25 21 34 2d |imp%:x%=wimp%!4-|
000022f0 77 69 6d 70 25 21 32 30 3a 79 25 3d 77 69 6d 70 |wimp%!20:y%=wimp|
00002300 25 21 31 36 2d 77 69 6d 70 25 21 32 34 3a 77 69 |%!16-wimp%!24:wi|
00002310 6d 70 25 21 34 3d 30 3a c8 99 26 34 30 30 43 45 |mp%!4=0:..&400CE|
00002320 2c 2c 77 69 6d 70 25 3a 21 77 69 6d 70 25 3d 77 |,,wimp%:!wimp%=w|
00002330 69 6e 64 6f 77 25 3a 77 69 6d 70 25 21 34 3d 35 |indow%:wimp%!4=5|
00002340 3a 77 69 6d 70 25 21 38 3d 78 25 2b 77 69 6d 70 |:wimp%!8=x%+wimp|
00002350 25 21 38 3a 77 69 6d 70 25 21 31 32 3d 79 25 2b |%!8:wimp%!12=y%+|
00002360 77 69 6d 70 25 21 31 32 0d 06 68 7b 77 69 6d 70 |wimp%!12..h{wimp|
00002370 25 21 31 36 3d 78 25 2b 77 69 6d 70 25 21 31 36 |%!16=x%+wimp%!16|
00002380 3a 77 69 6d 70 25 21 32 30 3d 79 25 2b 77 69 6d |:wimp%!20=y%+wim|
00002390 70 25 21 32 30 3a 77 69 6d 70 25 21 32 34 3d 30 |p%!20:wimp%!24=0|
000023a0 3a 77 69 6d 70 25 21 32 38 3d 30 3a 77 69 6d 70 |:wimp%!28=0:wimp|
000023b0 25 21 33 32 3d 26 37 46 46 46 46 46 46 46 3a 77 |%!32=&7FFFFFFF:w|
000023c0 69 6d 70 25 21 33 36 3d 26 37 46 46 46 46 46 46 |imp%!36=&7FFFFFF|
000023d0 46 3a c8 99 26 34 30 30 44 30 2c 2c 77 69 6d 70 |F:..&400D0,,wimp|
000023e0 25 3a e1 0d 06 72 5b dd f2 57 69 6d 70 5f 50 6f |%:...r[..Wimp_Po|
000023f0 6c 6c 4b 65 79 50 72 65 73 73 3a 77 69 6e 64 6f |llKeyPress:windo|
00002400 77 25 3d 77 69 6d 70 25 21 30 3a 69 63 6f 6e 25 |w%=wimp%!0:icon%|
00002410 3d 77 69 6d 70 25 21 34 3a 6b 65 79 25 3d 77 69 |=wimp%!4:key%=wi|
00002420 6d 70 25 21 32 34 3a c8 8e a4 45 76 65 6e 74 5f |mp%!24:...Event_|
00002430 53 61 76 65 28 77 69 6e 64 6f 77 25 29 ca 0d 06 |Save(window%)...|
00002440 7c 22 c9 b9 3a f2 57 69 6d 70 50 6f 6c 6c 5f 53 ||"..:.WimpPoll_S|
00002450 61 76 65 46 69 6c 65 28 77 69 6e 64 6f 77 25 29 |aveFile(window%)|
00002460 0d 06 86 2a c9 a3 3a f2 45 76 65 6e 74 5f 4b 65 |...*..:.Event_Ke|
00002470 79 50 72 65 73 73 28 77 69 6e 64 6f 77 25 2c 69 |yPress(window%,i|
00002480 63 6f 6e 25 2c 6b 65 79 25 29 0d 06 90 05 cb 0d |con%,key%)......|
00002490 06 9a 05 e1 0d 06 a4 fc dd f2 57 69 6d 70 5f 50 |..........Wimp_P|
000024a0 6f 6c 6c 53 61 76 65 4d 65 73 73 61 67 65 3a ea |ollSaveMessage:.|
000024b0 66 69 6c 65 24 2c 77 69 6e 64 6f 77 25 2c 69 63 |file$,window%,ic|
000024c0 6f 6e 25 2c 78 25 2c 79 25 3a c8 99 26 34 30 30 |on%,x%,y%:..&400|
000024d0 43 46 2c 2c 77 69 6d 70 25 3a 77 69 6e 64 6f 77 |CF,,wimp%:window|
000024e0 25 3d 77 69 6d 70 25 21 31 32 3a 69 63 6f 6e 25 |%=wimp%!12:icon%|
000024f0 3d 77 69 6d 70 25 21 31 36 3a 78 25 3d 77 69 6d |=wimp%!16:x%=wim|
00002500 70 25 21 30 3a 79 25 3d 77 69 6d 70 25 21 34 3a |p%!0:y%=wimp%!4:|
00002510 77 69 6d 70 25 21 30 3d 73 61 76 65 25 3a 77 69 |wimp%!0=save%:wi|
00002520 6d 70 25 21 34 3d 31 3a c8 99 26 34 30 30 43 45 |mp%!4=1:..&400CE|
00002530 2c 2c 77 69 6d 70 25 3a 66 69 6c 65 24 3d 24 28 |,,wimp%:file$=$(|
00002540 77 69 6d 70 25 21 32 38 29 3a 66 69 6c 65 24 3d |wimp%!28):file$=|
00002550 a4 57 69 6d 70 5f 47 65 74 46 69 6c 65 46 72 6f |.Wimp_GetFileFro|
00002560 6d 50 61 74 68 6e 61 6d 65 28 66 69 6c 65 24 29 |mPathname(file$)|
00002570 3a 77 69 6d 70 25 21 32 30 3d 77 69 6e 64 6f 77 |:wimp%!20=window|
00002580 25 3a 77 69 6d 70 25 21 32 34 3d 69 63 6f 6e 25 |%:wimp%!24=icon%|
00002590 0d 06 ae 93 77 69 6d 70 25 21 32 38 3d 78 25 3a |....wimp%!28=x%:|
000025a0 77 69 6d 70 25 21 33 32 3d 79 25 3a 77 69 6d 70 |wimp%!32=y%:wimp|
000025b0 25 21 33 36 3d 6c 65 6e 67 74 68 25 3a 77 69 6d |%!36=length%:wim|
000025c0 70 25 21 30 3d 36 34 3a 77 69 6d 70 25 21 31 32 |p%!0=64:wimp%!12|
000025d0 3d 30 3a 77 69 6d 70 25 21 31 36 3d 31 3a 77 69 |=0:wimp%!16=1:wi|
000025e0 6d 70 25 21 34 30 3d 26 46 46 46 3a 24 28 77 69 |mp%!40=&FFF:$(wi|
000025f0 6d 70 25 2b 34 34 29 3d 66 69 6c 65 24 3a c8 99 |mp%+44)=file$:..|
00002600 26 34 30 30 45 37 2c 31 37 2c 77 69 6d 70 25 2c |&400E7,17,wimp%,|
00002610 77 69 6d 70 25 21 32 30 2c 77 69 6d 70 25 21 32 |wimp%!20,wimp%!2|
00002620 34 3a e1 0d 06 b8 53 dd f2 57 69 6d 70 5f 50 6f |4:....S..Wimp_Po|
00002630 6c 6c 4d 65 73 73 61 67 65 73 3a ea 66 69 6c 65 |llMessages:.file|
00002640 24 3a 66 69 6c 65 24 3d a4 57 69 6d 70 5f 47 65 |$:file$=.Wimp_Ge|
00002650 74 53 74 72 69 6e 67 41 74 41 64 64 72 65 73 73 |tStringAtAddress|
00002660 28 77 69 6d 70 25 2b 34 34 29 3a c8 8e 77 69 6d |(wimp%+44):..wim|
00002670 70 25 21 31 36 ca 0d 06 c2 12 c9 30 3a 66 69 6e |p%!16......0:fin|
00002680 69 73 68 65 64 25 3d b9 0d 06 cc b7 c9 32 3a 77 |ished%=......2:w|
00002690 69 6d 70 25 21 30 3d 73 61 76 65 25 3a 77 69 6d |imp%!0=save%:wim|
000026a0 70 25 21 34 3d 31 3a c8 99 26 34 30 30 43 45 2c |p%!4=1:..&400CE,|
000026b0 2c 77 69 6d 70 25 3a 24 28 77 69 6d 70 25 21 32 |,wimp%:$(wimp%!2|
000026c0 38 29 3d 66 69 6c 65 24 3a 77 69 6d 70 25 21 30 |8)=file$:wimp%!0|
000026d0 3d 73 61 76 65 25 3a 77 69 6d 70 25 21 34 3d 31 |=save%:wimp%!4=1|
000026e0 3a 77 69 6d 70 25 21 38 3d 30 3a 77 69 6d 70 25 |:wimp%!8=0:wimp%|
000026f0 21 31 32 3d 30 3a c8 99 26 34 30 30 43 44 2c 2c |!12=0:..&400CD,,|
00002700 77 69 6d 70 25 3a c8 99 26 34 30 30 44 32 2c 73 |wimp%:..&400D2,s|
00002710 61 76 65 25 2c 31 2c 2c 2c 2d 31 2c a9 66 69 6c |ave%,1,,,-1,.fil|
00002720 65 24 3a f2 45 76 65 6e 74 5f 53 61 76 65 46 69 |e$:.Event_SaveFi|
00002730 6c 65 28 66 69 6c 65 24 2c 73 61 76 65 25 29 0d |le(file$,save%).|
00002740 06 d6 05 cb 0d 06 e0 05 e1 0d 06 ea 27 dd a4 66 |............'..f|
00002750 6f 72 6d 61 74 28 74 69 6d 65 29 3a e7 74 69 6d |ormat(time):.tim|
00002760 65 3c 30 8c 74 69 6d 65 3d 74 69 6d 65 2b 32 34 |e<0.time=time+24|
00002770 0d 06 f4 43 68 72 73 25 3d a8 28 74 69 6d 65 29 |...Chrs%=.(time)|
00002780 3a 6d 69 6e 73 25 3d 28 74 69 6d 65 2d 68 72 73 |:mins%=(time-hrs|
00002790 25 29 2a 36 30 3a e7 6d 69 6e 73 25 3d 36 30 8c |%)*60:.mins%=60.|
000027a0 6d 69 6e 73 25 3d 30 3a 68 72 73 25 3d 68 72 73 |mins%=0:hrs%=hrs|
000027b0 25 2b 31 0d 06 fe 19 e7 68 72 73 25 3e 32 33 8c |%+1.....hrs%>23.|
000027c0 68 72 73 25 3d 68 72 73 25 2d 32 34 0d 07 08 28 |hrs%=hrs%-24...(|
000027d0 3d a4 7a 65 72 6f 28 68 72 73 25 29 2b 22 3a 22 |=.zero(hrs%)+":"|
000027e0 2b a4 7a 65 72 6f 28 6d 69 6e 73 25 29 2b 22 20 |+.zero(mins%)+" |
000027f0 67 6d 74 22 0d 07 12 21 dd a4 7a 65 72 6f 28 6e |gmt"...!..zero(n|
00002800 75 6d 25 29 3a 3d c2 22 30 22 2b c3 28 6e 75 6d |um%):=."0"+.(num|
00002810 25 29 2c 32 29 0d 07 1c 5e dd f2 64 61 74 65 3a |%),2)...^..date:|
00002820 64 25 3d bb 28 c1 91 24 2c 35 2c 32 29 29 3a 6d |d%=.(..$,5,2)):m|
00002830 25 3d a7 22 4a 61 6e 46 65 62 4d 61 72 41 70 72 |%=."JanFebMarApr|
00002840 4d 61 79 4a 75 6e 4a 75 6c 41 75 67 53 65 70 4f |MayJunJulAugSepO|
00002850 63 74 4e 6f 76 44 65 63 22 2c c1 91 24 2c 38 2c |ctNovDec",..$,8,|
00002860 33 29 29 3a 6d 25 3d 28 6d 25 2d 31 29 81 33 2b |3)):m%=(m%-1).3+|
00002870 31 3a e1 0d 07 26 72 dd f2 57 69 6d 70 50 6f 6c |1:...&r..WimpPol|
00002880 6c 5f 53 61 76 65 46 69 6c 65 28 77 69 6e 64 6f |l_SaveFile(windo|
00002890 77 25 29 3a ea 66 69 6c 65 24 3a 77 69 6d 70 25 |w%):.file$:wimp%|
000028a0 21 30 3d 77 69 6e 64 6f 77 25 3a 77 69 6d 70 25 |!0=window%:wimp%|
000028b0 21 34 3d 31 3a c8 99 26 34 30 30 43 45 2c 2c 77 |!4=1:..&400CE,,w|
000028c0 69 6d 70 25 3a 66 69 6c 65 24 3d 24 28 77 69 6d |imp%:file$=$(wim|
000028d0 70 25 21 32 38 29 3a c8 8e a7 66 69 6c 65 24 2c |p%!28):...file$,|
000028e0 22 2e 22 29 ca 0d 07 30 07 c9 30 3a 0d 07 3a 55 |".")...0..0:..:U|
000028f0 24 28 77 69 6d 70 25 2b 34 29 3d 22 54 6f 20 73 |$(wimp%+4)="To s|
00002900 61 76 65 2c 20 64 72 61 67 20 74 68 65 20 69 63 |ave, drag the ic|
00002910 6f 6e 20 74 6f 20 61 20 64 69 72 65 63 74 6f 72 |on to a director|
00002920 79 20 77 69 6e 64 6f 77 22 3a c8 99 26 34 30 30 |y window":..&400|
00002930 44 46 2c 77 69 6d 70 25 2c 31 36 2c 74 61 73 6b |DF,wimp%,16,task|
00002940 24 0d 07 44 06 7f 3a 0d 07 4e 22 f2 45 76 65 6e |$..D..:..N".Even|
00002950 74 5f 53 61 76 65 46 69 6c 65 28 66 69 6c 65 24 |t_SaveFile(file$|
00002960 2c 77 69 6e 64 6f 77 25 29 0d 07 58 05 cb 0d 07 |,window%)..X....|
00002970 62 11 c8 99 26 34 30 30 44 34 2c 2d 31 3a e1 0d |b...&400D4,-1:..|
00002980 ff |.|
00002981 
.