ReadSoft/Apps/Foreign/!Foreign/!RunImage

Home » Archimedes archive » Archimedes World » AW-1995-07-Disc1.adf » AW0795_1 » ReadSoft/Apps/Foreign/!Foreign/!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 » Archimedes World » AW-1995-07-Disc1.adf » AW0795_1
Filename:	ReadSoft/Apps/Foreign/!Foreign/!RunImage
Read OK:	✔
File size:	3832 bytes
Load address:	0000
Exec address:	0000

D��< ��40����Q��Z���BASIC -Quit @00009000,0000C7E4g��4��7

,� !Foreign was written by Richard Goatly
(#�Wimp_Start("Foreign",1000,700)
2�User_SetInitialData
<�Create_Windows
F�Create_Menus
P�Wimp_WaitForEvent
Z�Wimp_CloseDown
d�
n   
x� �User_SetInitialData
�interface%=�
�� French$(18)
�� German$(7)
�� Other$(8)
��
�:
�� �Create_Windows
�-French_Window%=�Wimp_WindowLoad("French")
�-German_Window%=�Wimp_WindowLoad("German")
�)Info_Window%=�Wimp_WindowLoad("Info")
�+Other_Window%=�Wimp_WindowLoad("Other")
�*�Wimp_WindowBringToTop(French_Window%)
�'Bar_Icon%=�Wimp_IconBar("!Foreign")
� loop=1 � 18
5French$(loop)=�Wimp_IconText(French_Window%,loop)
"�
6� loop=1 � 7
@5German$(loop)=�Wimp_IconText(German_Window%,loop)
J�
^� loop=1 � 8
h3Other$(loop)=�Wimp_IconText(Other_Window%,loop)
r�
|�
�:
�� �Event_Save(window%)=�
�:
�&� �Event_Sprites(window%)=sprites%
�:
�� �Create_Menus
�Amenu$=" Foreign \Info>Info_Window%\French\German\Others\Quit"
�%Bar_Menu%=�Wimp_MenuCreate(menu$)
�!�Wimp_MenuAdjustOn(Bar_Menu%)
�%�Wimp_MenuDottedLine(Bar_Menu%,1)
�%�Wimp_MenuDottedLine(Bar_Menu%,4)
��
�:
�� �Event_Menu(window%)
Ȏ window% �
%� Bar_Window%        : =Bar_Menu%
               : =�
&�
0:
:*� �Event_WindowClose(window%,buttons%)
DȎ window% �
N�
X�
b:
l.� �Event_Draw(window%,x_origin%,y_origin%)
��
:
4� �Event_MouseClick(window%,icon%,button%,x%,y%)
 Ȏ window% �
** � Bar_Window%        : �User_MouseBar
4- � French_Window%     : �User_MouseFrench
>- � German_Window%     : �User_MouseGerman
H, �  Other_Window%     : �User_MouseOther
R�
\�
f:
p� �User_MouseBar
z*�Wimp_WindowBringToTop(French_Window%)
��
�:
�� �User_MouseFrench
� � icon% <>0 �
�,  ș "Wimp_ProcessKey",�(French$(icon%))
� �
��
�:
�� �User_MouseGerman
�� icon% <>0 �
�,  ș "Wimp_ProcessKey",�(German$(icon%))
� �
��
:
� �User_MouseOther
� icon% <>0 �
$+  ș "Wimp_ProcessKey",�(Other$(icon%))
. �
8�
B:
L)� �Event_KeyPress(window%,icon%,key%)
j�
t:
~� �Event_MenuChoice(menu%)
� Ȏ menu% �
�&  � Bar_Menu%: �User_MenuChoiceBar
� �
��
�:
�� �User_MenuChoiceBar
� Ȏ �Wimp_MenuChoice(0) �
�  � 1 :
�2  � 2 : �Wimp_WindowBringToTop(French_Window%)
�2  � 3 : �Wimp_WindowBringToTop(German_Window%)
�1  � 4 : �Wimp_WindowBringToTop(Other_Window%)
�  � 5 : finished%=�
 �

�
:
"� �Event_LoadFile(file$,type$)
(�
2:
d(� �Wimp_WindowAlert(title$,message$)
n+�Wimp_WindowAlertBox(title$,message$,0)
x�
�:
�3� �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
��
�=ș "Wimp_ReportError",wimp%,response%,title$ � ,response%
��
�:
�� �Wimp_WindowLoad(window$)
�9=�Wimp_WindowLoadFrom(window$,"<Obey$Dir>.Templates")
�:
�-� �Wimp_WindowLoadFrom(window$,template$)
�� c%,i%,n%,j%,sp$,sp2$
�%ș "Wimp_OpenTemplate",,template$
�Mș "Wimp_LoadTemplate",,wimp%,icons%,icon_memory%,-1,window$,0 � ,,icons%
�Ȏ sprites% �
� � 1    : wimp%!64=sprites%
)  : wimp%!64=�Event_Sprites(window%)
�
&ș "Wimp_CreateWindow",,wimp% � c%
&ș "Wimp_CloseTemplate"
07ș "Wimp_WhichIcon",c%,wimp%+40,1+2+(1<<8),2+(1<<8)
:Ȏ wimp%!40 �
D
 � -1   :
N  : i%=40
X �
b$   wimp%!4=wimp%!i% : wimp%!0=c%
l$   ș "Wimp_GetIconState",,wimp%
v-   sp$=�Wimp_GetStringAtAddress(wimp%!28)
�"   ș "Wimp_DeleteIcon",,wimp%
�   Ȏ sprites% �
�    � 1    : wimp%!32=1
�     :
�/     ș "OS_SpriteOp",&108,sprites% � ,,,n%
�
     j%=0
�     � : j%+=1
�=      ș "OS_SpriteOp",&10D,sprites%,pointer_block%,20,j%
�7      sp2$=�Wimp_GetStringAtAddress(pointer_block%)
�     � j%=n% � sp$=sp2$
�4     � sp$=sp2$ � wimp%!32=sprites% � wimp%!32=1
�   �
�   wimp%!4=c%
.   ș "Wimp_CreateIcon",,wimp%+4 � handle%
   i%+=4
 � (wimp%!i%)=-1
 �
*=c%
4:
>%� �Wimp_WindowBringToTop(window%)
H!wimp%=window%
R#ș "Wimp_GetWindowState",,wimp%
\wimp%!28=-1
fș "Wimp_OpenWindow",,wimp%
p�
z:
� � �Wimp_WindowClose(window%)
�!wimp%=window%
� ș "Wimp_CloseWindow",,wimp%
��
�:
�$� �Wimp_WindowForceDraw(window%)
�Ȏ window% �
�8 � -1   : ș "Wimp_ForceRedraw",-1,0,0,2*1280,2*1024
�9  : ș "Wimp_ForceRedraw",window%,0,-2*1024,2*1280,0
��
��
�:
�� �Wimp_WindowOpen(window%)
	!wimp%=window%
	#ș "Wimp_GetWindowState",,wimp%
	ș "Wimp_OpenWindow",,wimp%
	$�
	.:
	8�Wimp_WindowInterface
	B ș"Wimp_BorderWindow",,wimp%
	L�
	V:
	`� �Wimp_IconBar(Sprite$)
	j� icon%
	twimp%!0=-1
	~wimp%!4=0     : wimp%!8=0
	�wimp%!12=66   : wimp%!16=68
	�wimp%!20=&3002
	�$(wimp%+24)=Sprite$
	�'ș "Wimp_CreateIcon",,wimp% � icon%
	�
=icon%
F:
P#� �Wimp_IconText(window%,icon%)
Z#wimp%!0=window% : wimp%!4=icon%
d!ș "Wimp_GetIconState",,wimp%
n7� ((wimp%!24) � &100)=0 � 1,"Icon isn't indirected"
x=$(wimp%!28)
�:
�)� �Wimp_IconValidation(window%,icon%)
�#wimp%!0=window% : wimp%!4=icon%
�!ș "Wimp_GetIconState",,wimp%
�7� ((wimp%!24) � &100)=0 � 1,"Icon isn't indirected"
�=$(wimp%!32)
6:
@0� �Wimp_IconPutSprite(window%,icon%,sprite$)
J!wimp%!0=window%:wimp%!4=icon%
T!ș "Wimp_GetIconState",,wimp%
^ș "Wimp_DeleteIcon",,wimp%
h=wimp%!4=wimp%!8   : wimp%!8=wimp%!12  : wimp%!12=wimp%!16
r?wimp%!16=wimp%!20 : wimp%!20=wimp%!24 : $(wimp%+24)=sprite$
|'ș "Wimp_CreateIcon",,wimp% � icon%
�
=icon%
�:
�,� �Wimp_IconPutText(window%,icon%,text$)
�#wimp%!0=window% : wimp%!4=icon%
�!ș "Wimp_GetIconState",,wimp%
�7� ((wimp%!24) � &100)=0 � 1,"Icon isn't indirected"
�$(wimp%!28)=text$
�#wimp%!0=window% : wimp%!4=icon%
�wimp%!8=0 : wimp%!12=0
�!ș "Wimp_SetIconState",,wimp%
��
X:
b� �Wimp_MenuAdjustOn(menu%)
l,ș "Wimp_GetPointerInfo",,pointer_block%
v^� ((pointer_block%!8)�1)=1 � ș "Wimp_CreateMenu",,menu%,pointer_block%!0,pointer_block%!4
��
�:
�� �Wimp_MenuChoice(level%)
�=(wimp%!(4*level%))+1
�:
�� �Wimp_MenuCreate(menu$)
�)� menu$="Colours" �=�Wimp_MenuColours
�'� menu%,index%,width%,length%,k%,s%
�.� menu% 28+�Wimp_MenuNoOfEntries(menu$)*24
�7menu%?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)

#width%=�(�menu$,�menu$,"\")-1))

$menu$+="\" : Menu_NoOfEntries%=0

ȕ menu$<>""

 menu$=�menu$,�menu$,"\")+1)

*Ȏ menu$ �

4	 � ""

>  :

H1  !index%=0 : index%!4=-1 : index%!8=&7000021

R  length%=�menu$,"\")-1

\  k%=��menu$,length%),">")

f
  Ȏ k% �

p
   � 0

z   

�%    s%=�(�menu$,k%+1,length%-k%))

�    index%!4=s%

�    length%=k%-1

�  �

�"  $(index%+12)=�menu$,length%)

�'  � length%>width% � width%=length%

�  index%+=24

��

��

�menu%!16=16*(width%+1)

�(index%!-24=index%!-24 � &80 : =menu%
�:
�"� �Wimp_MenuNoOfEntries(menu$)
�� n% ,j% : n%=0 : j%=0
��
�j%=�menu$,"\",j%+1)
�� j%<>0 � n%+=1
�
� j%=0
�=n%
Z:
d� �Wimp_MenuClose
nș "Wimp_CreateMenu",-1
x�
�:
�'� �Wimp_MenuDottedLine(menu%,item%)
�7menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))�2
��
,:
6)� �Wimp_MenuGlue(menu1%,item%,menu2%)
@menu1%!(8+item%*24)=menu2%
J�
T:
^'� �Wimp_MenuItem(menu%,item%,item$)
h,$(menu%+(40+(item%-1)*24))=�item$,12)+�0
r�
�:
�"� �Wimp_MenuPopUp(Menu%,x%,y%)
�menu%=Menu%
�+ș "Wimp_CreateMenu",,menu%,x%-64,y%+20
��
�:
�� �Wimp_MenuPopUpBar(x%,y%)
�� n% : n%=0
�+ȕ ((Bar_Menu%!(28+n%*24))�%10000000)=0
�	n%+=1
�
2ș "Wimp_CreateMenu",,Bar_Menu%,x%-64,96+n%*44
menu%=Bar_Menu%
&�
�:
�� �Wimp_SpritesLoad
�/�Wimp_SpritesPathLoad("<Obey$Dir>.Sprites")
�direct_sprites%=sprites%
�
:
&� �Wimp_SpritesPathLoad(pathname$)
 
�S%,T%
*,S%=�"<Obey$Dir>.Sprites":T%=�#S%+16:�#S%
4�sprites%T%,spname%12
>!sprites%=T%:sprites%!8=0
H!ș"OS_SpriteOp",&109,sprites%
R+ș"OS_SpriteOp",&10A,sprites%,pathname$
\�
f:
p� �Wimp_GetFilePathName
z'=�Wimp_GetStringAtAddress(wimp%+44)
�:
�� �Wimp_FileLoad(pathname$)
��S%,T%,file%
�S%=�pathname$
�T%=�#S%+16
��#S%
��file%T%
�"�("LOAD"+pathname$+""+�~file%)
�
=file%
�;
�&� �Wimp_GetStringAtAddress(array%)
�
�s$:s$=""
�<ȕ(?array%<>13)�(?array%<>0):s$+=�(?array%):array%+=1:�:
=s$
�:
�/� �Wimp_Start(TaskName$,wimp_memory%,icon%)
�%� wimp% wimp_memory%,icons% icon%
�)� wimp_memory%<256 � wimp_memory%=256
�icon_memory%=icons%+icon%
�task$=TaskName$
+indirect_sprites%=1 : direct_sprites%=1

�Wimp_SetEventVariables
� � �Wimp_Error:�
@ș"Wimp_Initialise",200,&4B534154,TaskName$ � version%,task%
(�
2:
<� �Wimp_BASICParameters
F � com$,param$,I%
P ș "OS_GetEnv" � com$
Z params$=""
d I%=�com$," -quit ")
n5 � I% � params$=�com$,�com$," ",I%+�" -quit ")+1)
x=params$
�:
�� �Wimp_SetEventVariables
�� pointer_block% 20
�interface%=�
�.null%=1  :draw%=2 :  pointer_leaving%=1<<4
�1pointer_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)
�0recorder%=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
�3message_quit%=0:message_save%=2:message_load%=3
!mouse_button%=2:save_event%=0
 top_line%=0 : bottom_line%=0
�
":
,� �Wimp_Error
6
�X$,x%
@	� � �
Jx%=�
TX$=�$+"atline"+�(x%�10)
^�ErrorMsg%36
hEErrorMsg%!0=36:ErrorMsg%!12=0:ErrorMsg%!16=&81080:ErrorMsg%!20=x%
r$(ErrorMsg%+24)="!RunImage"
|%ș"Wimp_SendMessage",17,ErrorMsg%
��Wimp_WindowAlert(task$,X$)
��Wimp_CloseDown
��
�:
�� �Wimp_CloseDown
�#ș"Wimp_CloseDown",task%,"TASK"
��
�:
�� �Wimp_Quit
�finished%=�
��
�:
�#� �Wimp_ReadVariable(Variable$)
�len%,result%,variable%
$wimp%=Variable$
3ș"OS_ReadVarVal",wimp%,wimp%+255,255,,3�,,len%
&wimp%?(len%+255)=13
0=$(wimp%+255)
N:
X� �Wimp_WaitForEvent
b� mask%,event%
lfinished%=�
vmask%=%111000011001
��
�' ș"Wimp_Poll",mask%,wimp% � event%
� Ȏ event% �
�  �1 : �Wimp_PollDrawWindow
�&  �2 : ș "Wimp_OpenWindow",,wimp%
�   �3 : �Wimp_PollCloseWindow
�  �6 : �Wimp_PollMouseClick
�   �7 : �Wimp_PollSaveMessage
�  �8 : �Wimp_PollKeyPress
�#  �9 : �Event_MenuChoice(menu%)
    �17,18: �Wimp_PollMessages
4 �
>� finished%
H�
R:
\� �Wimp_PollDrawWindow
f� more%
p&ș"Wimp_RedrawWindow",,wimp%�more%
zwindow%=wimp%!0
�Ax_origin%=16+wimp%!4-wimp%!20:y_origin%=-16+wimp%!16-wimp%!24
�ȕmore%
�0 � interface% � ș"Wimp_BorderWindow",,wimp%
�- �Event_Draw(window%,x_origin%,y_origin%)
�' ș"Wimp_GetRectangle",,wimp%�more%
��
��
�:
�� �Wimp_PollCloseWindow
�%  ș "Wimp_GetPointerInfo",,wimp%
�)  window%=wimp%!12 : buttons%=wimp%!8
�) �Event_WindowClose(window%,buttons%)
�2 !wimp%=window% : ș "Wimp_CloseWindow",,wimp%
�
:
� �Wimp_PollMouseClick
$J button%=wimp%!8:window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4
. Ȏ button% �
8"   �2    : �Wimp_PollMenuPopUp
B#   : Ȏ �Event_Save(window%) �
L,               � � : �Wimp_PollMouseSave
V1               � �: �Wimp_PollEventMouseClick
`              �
j �
t�
~:
�� �Wimp_PollMenuPopUp
�menu%=�Event_Menu(window%)
�  Ȏ menu%  �
�   � �:
�
    :
�     Ȏ window% �
�      � -2   : n%=0
�2        ȕ ((Bar_Menu%!(4+n%*24))�%10000000)=0
�         n%+=1
�
        �
�A        ș "Wimp_CreateMenu",,Bar_Menu%,x%-64,96+n%*44+(24*2)
�4       : ș"Wimp_CreateMenu",,menu%,x%-64,y%+20

     �

  �
�
:
(� �Wimp_PollMouseSave
2 Ȏ icon% �
<8  � 0 : � button% � &50 � �Wimp_PollDragBox(window%)
F8  � 2 : � button% � 5 �  �Wimp_PollSaveFile(window%)
P �
Z�
d:
n� �Wimp_PollEventMouseClick
x. � interface% � ș"Wimp_BorderIcon",,wimp%
�3 �Event_MouseClick(window%,icon%,button%,x%,y%)
� Ȏ  interface% �
�  � � :
�(   wimp%!0=x%:wimp%!4=y% : wimp%!8=0
�(   wimp%!12=window% : wimp%!16=icon%
�!   ș"Wimp_BorderIcon",,wimp%
� �
��
�:
�!� �Wimp_PollSaveFile(window%)
�
�file$
�@ wimp%!0=window% : wimp%!4=1 : ș "Wimp_GetIconState",,wimp%
� file$=$(wimp%!28)
 Ȏ �file$,".") �

  � 0   :
@   $(wimp%+4)="To save, drag the icon to a directory window"
"+   ș "Wimp_ReportError",wimp%,16,task$
,  :
6%   �Event_SaveFile(file$,window%)
@ �
J ș"Wimp_CreateMenu",-1
T�
^:
h � �Wimp_PollDragBox(window%)
r
�x%,y%
| save%=window%
� !wimp%=window%
�# ș"Wimp_GetWindowState",,wimp%
�- x%=wimp%!4-wimp%!20:y%=wimp%!16-wimp%!24
� wimp%!4=0
�! ș"Wimp_GetIconState",,wimp%
� !wimp%=window%
� wimp%!4=5
�, wimp%!8=x%+wimp%!8:wimp%!12=y%+wimp%!12
�. wimp%!16=x%+wimp%!16:wimp%!20=y%+wimp%!20
� wimp%!24=0:wimp%!28=0
�* wimp%!32=&7FFFFFFF:wimp%!36=&7FFFFFFF
� ș"Wimp_DragBox",,wimp%
��
:
� �Wimp_PollKeyPress
1  window%=wimp%!0:icon%=wimp%!4:key%=wimp%!24
&  Ȏ �Event_Save(window%) �
0(   � � : �WimpPoll_SaveFile(window%)
:/   � �: �Event_KeyPress(window%,icon%,key%)
D  �
N�
X:
b� �Wimp_PollSaveMessage
l�file$,window%,icon%,x%,y%
v# ș"Wimp_GetPointerInfo",,wimp%
�: window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4
�> wimp%!0=save% : wimp%!4=1 : ș "Wimp_GetIconState",,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$
4 ș"Wimp_SendMessage",17,wimp%,wimp%!20,wimp%!24
�
:
 � �Wimp_PollMessages
*� file$
4,file$=�Wimp_GetStringAtAddress(wimp%+44)
>    Ȏ wimp%!16 �
H     � 0 : finished%=�
R     � 1 :
\     � 2 :
f/      � PROCWimp_IconPutText(save%,1,file$)
pC      wimp%!0=save% : wimp%!4=1 : ș "Wimp_GetIconState",,wimp%
z      $(wimp%!28)=file$
�<      wimp%!0=save% : wimp%!4=1 : wimp%!8=0 : wimp%!12=0
�'      ș "Wimp_SetIconState",,wimp%
�0      � PROCWimp_IconCaret(save%,1,LENfile$)
�8      ș "Wimp_SetCaretPosition",save%,1,,,-1,�file$
�&      �Event_SaveFile(file$,save%)
�     � 3
�G      type$=�Wimp_FileType(wimp%!40) : �Event_LoadFile(file$,type$)
�	    �
��
�:
�&� �Wimp_GetStringAtAddress(array%)
�
�s$:s$=""
�<ȕ(?array%<>13)�(?array%<>0):s$+=�(?array%):array%+=1:�:
=s$
:
�

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 43 37  |@00009000,0000C7|
00000040  45 34 00 67 e4 c7 00 00  34 b8 00 00 e4 37 00 00  |E4.g....4....7..|
00000050  0d 00 0a 2c f4 20 21 46  6f 72 65 69 67 6e 20 77  |...,. !Foreign w|
00000060  61 73 20 77 72 69 74 74  65 6e 20 62 79 20 52 69  |as written by Ri|
00000070  63 68 61 72 64 20 47 6f  61 74 6c 79 0d 00 28 23  |chard Goatly..(#|
00000080  f2 57 69 6d 70 5f 53 74  61 72 74 28 22 46 6f 72  |.Wimp_Start("For|
00000090  65 69 67 6e 22 2c 31 30  30 30 2c 37 30 30 29 0d  |eign",1000,700).|
000000a0  00 32 18 f2 55 73 65 72  5f 53 65 74 49 6e 69 74  |.2..User_SetInit|
000000b0  69 61 6c 44 61 74 61 0d  00 3c 13 f2 43 72 65 61  |ialData..<..Crea|
000000c0  74 65 5f 57 69 6e 64 6f  77 73 0d 00 46 11 f2 43  |te_Windows..F..C|
000000d0  72 65 61 74 65 5f 4d 65  6e 75 73 0d 00 50 16 f2  |reate_Menus..P..|
000000e0  57 69 6d 70 5f 57 61 69  74 46 6f 72 45 76 65 6e  |Wimp_WaitForEven|
000000f0  74 0d 00 5a 13 f2 57 69  6d 70 5f 43 6c 6f 73 65  |t..Z..Wimp_Close|
00000100  44 6f 77 6e 0d 00 64 05  e0 0d 00 6e 07 20 20 20  |Down..d....n.   |
00000110  0d 00 78 1a dd 20 f2 55  73 65 72 5f 53 65 74 49  |..x.. .User_SetI|
00000120  6e 69 74 69 61 6c 44 61  74 61 0d 00 82 10 69 6e  |nitialData....in|
00000130  74 65 72 66 61 63 65 25  3d b9 0d 00 8c 11 de 20  |terface%=...... |
00000140  46 72 65 6e 63 68 24 28  31 38 29 0d 00 96 10 de  |French$(18).....|
00000150  20 47 65 72 6d 61 6e 24  28 37 29 0d 00 a0 0f de  | German$(7).....|
00000160  20 4f 74 68 65 72 24 28  38 29 0d 00 aa 05 e1 0d  | Other$(8)......|
00000170  00 b4 05 3a 0d 00 be 15  dd 20 f2 43 72 65 61 74  |...:..... .Creat|
00000180  65 5f 57 69 6e 64 6f 77  73 0d 00 c8 2d 46 72 65  |e_Windows...-Fre|
00000190  6e 63 68 5f 57 69 6e 64  6f 77 25 3d a4 57 69 6d  |nch_Window%=.Wim|
000001a0  70 5f 57 69 6e 64 6f 77  4c 6f 61 64 28 22 46 72  |p_WindowLoad("Fr|
000001b0  65 6e 63 68 22 29 0d 00  d2 2d 47 65 72 6d 61 6e  |ench")...-German|
000001c0  5f 57 69 6e 64 6f 77 25  3d a4 57 69 6d 70 5f 57  |_Window%=.Wimp_W|
000001d0  69 6e 64 6f 77 4c 6f 61  64 28 22 47 65 72 6d 61  |indowLoad("Germa|
000001e0  6e 22 29 0d 00 dc 29 49  6e 66 6f 5f 57 69 6e 64  |n")...)Info_Wind|
000001f0  6f 77 25 3d a4 57 69 6d  70 5f 57 69 6e 64 6f 77  |ow%=.Wimp_Window|
00000200  4c 6f 61 64 28 22 49 6e  66 6f 22 29 0d 00 e6 2b  |Load("Info")...+|
00000210  4f 74 68 65 72 5f 57 69  6e 64 6f 77 25 3d a4 57  |Other_Window%=.W|
00000220  69 6d 70 5f 57 69 6e 64  6f 77 4c 6f 61 64 28 22  |imp_WindowLoad("|
00000230  4f 74 68 65 72 22 29 0d  00 f0 2a f2 57 69 6d 70  |Other")...*.Wimp|
00000240  5f 57 69 6e 64 6f 77 42  72 69 6e 67 54 6f 54 6f  |_WindowBringToTo|
00000250  70 28 46 72 65 6e 63 68  5f 57 69 6e 64 6f 77 25  |p(French_Window%|
00000260  29 0d 00 fa 27 42 61 72  5f 49 63 6f 6e 25 3d a4  |)...'Bar_Icon%=.|
00000270  57 69 6d 70 5f 49 63 6f  6e 42 61 72 28 22 21 46  |Wimp_IconBar("!F|
00000280  6f 72 65 69 67 6e 22 29  0d 01 0e 11 e3 20 6c 6f  |oreign")..... lo|
00000290  6f 70 3d 31 20 b8 20 31  38 0d 01 18 35 46 72 65  |op=1 . 18...5Fre|
000002a0  6e 63 68 24 28 6c 6f 6f  70 29 3d a4 57 69 6d 70  |nch$(loop)=.Wimp|
000002b0  5f 49 63 6f 6e 54 65 78  74 28 46 72 65 6e 63 68  |_IconText(French|
000002c0  5f 57 69 6e 64 6f 77 25  2c 6c 6f 6f 70 29 0d 01  |_Window%,loop)..|
000002d0  22 05 ed 0d 01 36 10 e3  20 6c 6f 6f 70 3d 31 20  |"....6.. loop=1 |
000002e0  b8 20 37 0d 01 40 35 47  65 72 6d 61 6e 24 28 6c  |. 7..@5German$(l|
000002f0  6f 6f 70 29 3d a4 57 69  6d 70 5f 49 63 6f 6e 54  |oop)=.Wimp_IconT|
00000300  65 78 74 28 47 65 72 6d  61 6e 5f 57 69 6e 64 6f  |ext(German_Windo|
00000310  77 25 2c 6c 6f 6f 70 29  0d 01 4a 05 ed 0d 01 5e  |w%,loop)..J....^|
00000320  10 e3 20 6c 6f 6f 70 3d  31 20 b8 20 38 0d 01 68  |.. loop=1 . 8..h|
00000330  33 4f 74 68 65 72 24 28  6c 6f 6f 70 29 3d a4 57  |3Other$(loop)=.W|
00000340  69 6d 70 5f 49 63 6f 6e  54 65 78 74 28 4f 74 68  |imp_IconText(Oth|
00000350  65 72 5f 57 69 6e 64 6f  77 25 2c 6c 6f 6f 70 29  |er_Window%,loop)|
00000360  0d 01 72 05 ed 0d 01 7c  05 e1 0d 01 86 05 3a 0d  |..r....|......:.|
00000370  01 90 1c dd 20 a4 45 76  65 6e 74 5f 53 61 76 65  |.... .Event_Save|
00000380  28 77 69 6e 64 6f 77 25  29 3d a3 0d 01 9a 05 3a  |(window%)=.....:|
00000390  0d 01 a4 26 dd 20 a4 45  76 65 6e 74 5f 53 70 72  |...&. .Event_Spr|
000003a0  69 74 65 73 28 77 69 6e  64 6f 77 25 29 3d 73 70  |ites(window%)=sp|
000003b0  72 69 74 65 73 25 0d 01  ae 05 3a 0d 01 b8 13 dd  |rites%....:.....|
000003c0  20 f2 43 72 65 61 74 65  5f 4d 65 6e 75 73 0d 01  | .Create_Menus..|
000003d0  c2 41 6d 65 6e 75 24 3d  22 20 46 6f 72 65 69 67  |.Amenu$=" Foreig|
000003e0  6e 20 5c 49 6e 66 6f 3e  49 6e 66 6f 5f 57 69 6e  |n \Info>Info_Win|
000003f0  64 6f 77 25 5c 46 72 65  6e 63 68 5c 47 65 72 6d  |dow%\French\Germ|
00000400  61 6e 5c 4f 74 68 65 72  73 5c 51 75 69 74 22 0d  |an\Others\Quit".|
00000410  01 cc 25 42 61 72 5f 4d  65 6e 75 25 3d a4 57 69  |..%Bar_Menu%=.Wi|
00000420  6d 70 5f 4d 65 6e 75 43  72 65 61 74 65 28 6d 65  |mp_MenuCreate(me|
00000430  6e 75 24 29 0d 01 cd 21  f2 57 69 6d 70 5f 4d 65  |nu$)...!.Wimp_Me|
00000440  6e 75 41 64 6a 75 73 74  4f 6e 28 42 61 72 5f 4d  |nuAdjustOn(Bar_M|
00000450  65 6e 75 25 29 0d 01 d6  25 f2 57 69 6d 70 5f 4d  |enu%)...%.Wimp_M|
00000460  65 6e 75 44 6f 74 74 65  64 4c 69 6e 65 28 42 61  |enuDottedLine(Ba|
00000470  72 5f 4d 65 6e 75 25 2c  31 29 0d 01 e0 25 f2 57  |r_Menu%,1)...%.W|
00000480  69 6d 70 5f 4d 65 6e 75  44 6f 74 74 65 64 4c 69  |imp_MenuDottedLi|
00000490  6e 65 28 42 61 72 5f 4d  65 6e 75 25 2c 34 29 0d  |ne(Bar_Menu%,4).|
000004a0  01 ea 05 e1 0d 01 f4 05  3a 0d 01 fe 1a dd 20 a4  |........:..... .|
000004b0  45 76 65 6e 74 5f 4d 65  6e 75 28 77 69 6e 64 6f  |Event_Menu(windo|
000004c0  77 25 29 0d 02 08 10 c8  8e 20 77 69 6e 64 6f 77  |w%)...... window|
000004d0  25 20 ca 0d 02 12 25 c9  20 42 61 72 5f 57 69 6e  |% ....%. Bar_Win|
000004e0  64 6f 77 25 20 20 20 20  20 20 20 20 3a 20 3d 42  |dow%        : =B|
000004f0  61 72 5f 4d 65 6e 75 25  0d 02 1c 18 7f 20 20 20  |ar_Menu%.....   |
00000500  20 20 20 20 20 20 20 20  20 20 20 20 3a 20 3d a3  |            : =.|
00000510  0d 02 26 05 cb 0d 02 30  05 3a 0d 02 3a 2a dd 20  |..&....0.:..:*. |
00000520  f2 45 76 65 6e 74 5f 57  69 6e 64 6f 77 43 6c 6f  |.Event_WindowClo|
00000530  73 65 28 77 69 6e 64 6f  77 25 2c 62 75 74 74 6f  |se(window%,butto|
00000540  6e 73 25 29 0d 02 44 10  c8 8e 20 77 69 6e 64 6f  |ns%)..D... windo|
00000550  77 25 20 ca 0d 02 4e 05  cb 0d 02 58 05 e1 0d 02  |w% ...N....X....|
00000560  62 05 3a 0d 02 6c 2e dd  20 f2 45 76 65 6e 74 5f  |b.:..l.. .Event_|
00000570  44 72 61 77 28 77 69 6e  64 6f 77 25 2c 78 5f 6f  |Draw(window%,x_o|
00000580  72 69 67 69 6e 25 2c 79  5f 6f 72 69 67 69 6e 25  |rigin%,y_origin%|
00000590  29 0d 02 a8 05 e1 0d 03  0c 05 3a 0d 03 16 34 dd  |).........:...4.|
000005a0  20 f2 45 76 65 6e 74 5f  4d 6f 75 73 65 43 6c 69  | .Event_MouseCli|
000005b0  63 6b 28 77 69 6e 64 6f  77 25 2c 69 63 6f 6e 25  |ck(window%,icon%|
000005c0  2c 62 75 74 74 6f 6e 25  2c 78 25 2c 79 25 29 0d  |,button%,x%,y%).|
000005d0  03 20 10 c8 8e 20 77 69  6e 64 6f 77 25 20 ca 0d  |. ... window% ..|
000005e0  03 2a 2a 20 c9 20 42 61  72 5f 57 69 6e 64 6f 77  |.** . Bar_Window|
000005f0  25 20 20 20 20 20 20 20  20 3a 20 f2 55 73 65 72  |%        : .User|
00000600  5f 4d 6f 75 73 65 42 61  72 0d 03 34 2d 20 c9 20  |_MouseBar..4- . |
00000610  46 72 65 6e 63 68 5f 57  69 6e 64 6f 77 25 20 20  |French_Window%  |
00000620  20 20 20 3a 20 f2 55 73  65 72 5f 4d 6f 75 73 65  |   : .User_Mouse|
00000630  46 72 65 6e 63 68 0d 03  3e 2d 20 c9 20 47 65 72  |French..>- . Ger|
00000640  6d 61 6e 5f 57 69 6e 64  6f 77 25 20 20 20 20 20  |man_Window%     |
00000650  3a 20 f2 55 73 65 72 5f  4d 6f 75 73 65 47 65 72  |: .User_MouseGer|
00000660  6d 61 6e 0d 03 48 2c 20  c9 20 20 4f 74 68 65 72  |man..H, .  Other|
00000670  5f 57 69 6e 64 6f 77 25  20 20 20 20 20 3a 20 f2  |_Window%     : .|
00000680  55 73 65 72 5f 4d 6f 75  73 65 4f 74 68 65 72 0d  |User_MouseOther.|
00000690  03 52 05 cb 0d 03 5c 05  e1 0d 03 66 05 3a 0d 03  |.R....\....f.:..|
000006a0  70 14 dd 20 f2 55 73 65  72 5f 4d 6f 75 73 65 42  |p.. .User_MouseB|
000006b0  61 72 0d 03 7a 2a f2 57  69 6d 70 5f 57 69 6e 64  |ar..z*.Wimp_Wind|
000006c0  6f 77 42 72 69 6e 67 54  6f 54 6f 70 28 46 72 65  |owBringToTop(Fre|
000006d0  6e 63 68 5f 57 69 6e 64  6f 77 25 29 0d 03 84 05  |nch_Window%)....|
000006e0  e1 0d 03 8e 05 3a 0d 03  98 17 dd 20 f2 55 73 65  |.....:..... .Use|
000006f0  72 5f 4d 6f 75 73 65 46  72 65 6e 63 68 0d 03 a2  |r_MouseFrench...|
00000700  12 20 e7 20 69 63 6f 6e  25 20 3c 3e 30 20 8c 0d  |. . icon% <>0 ..|
00000710  03 ac 2c 20 20 c8 99 20  22 57 69 6d 70 5f 50 72  |..,  .. "Wimp_Pr|
00000720  6f 63 65 73 73 4b 65 79  22 2c 97 28 46 72 65 6e  |ocessKey",.(Fren|
00000730  63 68 24 28 69 63 6f 6e  25 29 29 0d 03 b6 06 20  |ch$(icon%)).... |
00000740  cd 0d 03 c0 05 e1 0d 03  ca 05 3a 0d 03 d4 17 dd  |..........:.....|
00000750  20 f2 55 73 65 72 5f 4d  6f 75 73 65 47 65 72 6d  | .User_MouseGerm|
00000760  61 6e 0d 03 de 11 e7 20  69 63 6f 6e 25 20 3c 3e  |an..... icon% <>|
00000770  30 20 8c 0d 03 e8 2c 20  20 c8 99 20 22 57 69 6d  |0 ....,  .. "Wim|
00000780  70 5f 50 72 6f 63 65 73  73 4b 65 79 22 2c 97 28  |p_ProcessKey",.(|
00000790  47 65 72 6d 61 6e 24 28  69 63 6f 6e 25 29 29 0d  |German$(icon%)).|
000007a0  03 f2 06 20 cd 0d 03 fc  05 e1 0d 04 06 05 3a 0d  |... ..........:.|
000007b0  04 10 16 dd 20 f2 55 73  65 72 5f 4d 6f 75 73 65  |.... .User_Mouse|
000007c0  4f 74 68 65 72 0d 04 1a  11 e7 20 69 63 6f 6e 25  |Other..... icon%|
000007d0  20 3c 3e 30 20 8c 0d 04  24 2b 20 20 c8 99 20 22  | <>0 ...$+  .. "|
000007e0  57 69 6d 70 5f 50 72 6f  63 65 73 73 4b 65 79 22  |Wimp_ProcessKey"|
000007f0  2c 97 28 4f 74 68 65 72  24 28 69 63 6f 6e 25 29  |,.(Other$(icon%)|
00000800  29 0d 04 2e 06 20 cd 0d  04 38 05 e1 0d 04 42 05  |).... ...8....B.|
00000810  3a 0d 04 4c 29 dd 20 f2  45 76 65 6e 74 5f 4b 65  |:..L). .Event_Ke|
00000820  79 50 72 65 73 73 28 77  69 6e 64 6f 77 25 2c 69  |yPress(window%,i|
00000830  63 6f 6e 25 2c 6b 65 79  25 29 0d 04 6a 05 e1 0d  |con%,key%)..j...|
00000840  04 74 05 3a 0d 04 7e 1e  dd 20 f2 45 76 65 6e 74  |.t.:..~.. .Event|
00000850  5f 4d 65 6e 75 43 68 6f  69 63 65 28 6d 65 6e 75  |_MenuChoice(menu|
00000860  25 29 0d 04 88 0f 20 c8  8e 20 6d 65 6e 75 25 20  |%).... .. menu% |
00000870  ca 0d 04 92 26 20 20 c9  20 42 61 72 5f 4d 65 6e  |....&  . Bar_Men|
00000880  75 25 3a 20 f2 55 73 65  72 5f 4d 65 6e 75 43 68  |u%: .User_MenuCh|
00000890  6f 69 63 65 42 61 72 0d  04 9c 06 20 cb 0d 04 a6  |oiceBar.... ....|
000008a0  05 e1 0d 04 b0 05 3a 0d  04 ba 19 dd 20 f2 55 73  |......:..... .Us|
000008b0  65 72 5f 4d 65 6e 75 43  68 6f 69 63 65 42 61 72  |er_MenuChoiceBar|
000008c0  0d 04 c4 1d 20 c8 8e 20  a4 57 69 6d 70 5f 4d 65  |.... .. .Wimp_Me|
000008d0  6e 75 43 68 6f 69 63 65  28 30 29 20 ca 0d 04 ce  |nuChoice(0) ....|
000008e0  0b 20 20 c9 20 31 20 3a  0d 04 d8 32 20 20 c9 20  |.  . 1 :...2  . |
000008f0  32 20 3a 20 f2 57 69 6d  70 5f 57 69 6e 64 6f 77  |2 : .Wimp_Window|
00000900  42 72 69 6e 67 54 6f 54  6f 70 28 46 72 65 6e 63  |BringToTop(Frenc|
00000910  68 5f 57 69 6e 64 6f 77  25 29 0d 04 e2 32 20 20  |h_Window%)...2  |
00000920  c9 20 33 20 3a 20 f2 57  69 6d 70 5f 57 69 6e 64  |. 3 : .Wimp_Wind|
00000930  6f 77 42 72 69 6e 67 54  6f 54 6f 70 28 47 65 72  |owBringToTop(Ger|
00000940  6d 61 6e 5f 57 69 6e 64  6f 77 25 29 0d 04 ec 31  |man_Window%)...1|
00000950  20 20 c9 20 34 20 3a 20  f2 57 69 6d 70 5f 57 69  |  . 4 : .Wimp_Wi|
00000960  6e 64 6f 77 42 72 69 6e  67 54 6f 54 6f 70 28 4f  |ndowBringToTop(O|
00000970  74 68 65 72 5f 57 69 6e  64 6f 77 25 29 0d 04 f6  |ther_Window%)...|
00000980  17 20 20 c9 20 35 20 3a  20 66 69 6e 69 73 68 65  |.  . 5 : finishe|
00000990  64 25 3d b9 0d 05 00 06  20 cb 0d 05 0a 05 e1 0d  |d%=..... .......|
000009a0  05 14 05 3a 0d 05 1e 22  dd 20 f2 45 76 65 6e 74  |...:...". .Event|
000009b0  5f 4c 6f 61 64 46 69 6c  65 28 66 69 6c 65 24 2c  |_LoadFile(file$,|
000009c0  74 79 70 65 24 29 0d 05  28 05 e1 0d 05 32 05 3a  |type$)..(....2.:|
000009d0  0d 05 64 28 dd 20 f2 57  69 6d 70 5f 57 69 6e 64  |..d(. .Wimp_Wind|
000009e0  6f 77 41 6c 65 72 74 28  74 69 74 6c 65 24 2c 6d  |owAlert(title$,m|
000009f0  65 73 73 61 67 65 24 29  0d 05 6e 2b f2 57 69 6d  |essage$)..n+.Wim|
00000a00  70 5f 57 69 6e 64 6f 77  41 6c 65 72 74 42 6f 78  |p_WindowAlertBox|
00000a10  28 74 69 74 6c 65 24 2c  6d 65 73 73 61 67 65 24  |(title$,message$|
00000a20  2c 30 29 0d 05 78 05 e1  0d 05 82 05 3a 0d 05 8c  |,0)..x......:...|
00000a30  33 dd 20 f2 57 69 6d 70  5f 57 69 6e 64 6f 77 41  |3. .Wimp_WindowA|
00000a40  6c 65 72 74 42 6f 78 28  74 69 74 6c 65 24 2c 6d  |lertBox(title$,m|
00000a50  65 73 73 61 67 65 24 2c  62 75 74 74 6f 6e 25 29  |essage$,button%)|
00000a60  0d 05 96 0f ea 20 72 65  73 70 6f 6e 73 65 25 0d  |..... response%.|
00000a70  05 a0 17 24 28 77 69 6d  70 25 2b 34 29 3d 6d 65  |...$(wimp%+4)=me|
00000a80  73 73 61 67 65 24 0d 05  aa 10 c8 8e 20 62 75 74  |ssage$...... but|
00000a90  74 6f 6e 25 20 ca 0d 05  b4 19 20 c9 20 32 20 20  |ton% ..... . 2  |
00000aa0  20 20 3a 20 72 65 73 70  6f 6e 73 65 25 3d 31 0d  |  : response%=1.|
00000ab0  05 be 1a 20 c9 20 31 20  20 20 20 3a 20 72 65 73  |... . 1    : res|
00000ac0  70 6f 6e 73 65 25 3d 31  35 0d 05 c8 21 20 c9 20  |ponse%=15...! . |
00000ad0  33 20 20 20 20 3a 20 72  65 73 70 6f 6e 73 65 25  |3    : response%|
00000ae0  3d 28 31 3c 3c 35 29 2b  31 36 0d 05 d2 21 20 c9  |=(1<<5)+16...! .|
00000af0  20 34 20 20 20 20 3a 20  72 65 73 70 6f 6e 73 65  | 4    : response|
00000b00  25 3d 28 31 3c 3c 36 29  2b 31 36 0d 05 dc 14 7f  |%=(1<<6)+16.....|
00000b10  20 3a 20 72 65 73 70 6f  6e 73 65 25 3d 31 36 0d  | : response%=16.|
00000b20  05 e6 05 cb 0d 05 f0 3d  c8 99 20 22 57 69 6d 70  |.......=.. "Wimp|
00000b30  5f 52 65 70 6f 72 74 45  72 72 6f 72 22 2c 77 69  |_ReportError",wi|
00000b40  6d 70 25 2c 72 65 73 70  6f 6e 73 65 25 2c 74 69  |mp%,response%,ti|
00000b50  74 6c 65 24 20 b8 20 2c  72 65 73 70 6f 6e 73 65  |tle$ . ,response|
00000b60  25 0d 05 fa 05 e1 0d 06  a4 05 3a 0d 06 ae 1f dd  |%.........:.....|
00000b70  20 a4 57 69 6d 70 5f 57  69 6e 64 6f 77 4c 6f 61  | .Wimp_WindowLoa|
00000b80  64 28 77 69 6e 64 6f 77  24 29 0d 06 b8 39 3d a4  |d(window$)...9=.|
00000b90  57 69 6d 70 5f 57 69 6e  64 6f 77 4c 6f 61 64 46  |Wimp_WindowLoadF|
00000ba0  72 6f 6d 28 77 69 6e 64  6f 77 24 2c 22 3c 4f 62  |rom(window$,"<Ob|
00000bb0  65 79 24 44 69 72 3e 2e  54 65 6d 70 6c 61 74 65  |ey$Dir>.Template|
00000bc0  73 22 29 0d 06 c2 05 3a  0d 06 cc 2d dd 20 a4 57  |s")....:...-. .W|
00000bd0  69 6d 70 5f 57 69 6e 64  6f 77 4c 6f 61 64 46 72  |imp_WindowLoadFr|
00000be0  6f 6d 28 77 69 6e 64 6f  77 24 2c 74 65 6d 70 6c  |om(window$,templ|
00000bf0  61 74 65 24 29 0d 06 d6  1a ea 20 63 25 2c 69 25  |ate$)..... c%,i%|
00000c00  2c 6e 25 2c 6a 25 2c 73  70 24 2c 73 70 32 24 0d  |,n%,j%,sp$,sp2$.|
00000c10  06 e0 25 c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |..%.. "Wimp_Open|
00000c20  54 65 6d 70 6c 61 74 65  22 2c 2c 74 65 6d 70 6c  |Template",,templ|
00000c30  61 74 65 24 0d 06 ea 4d  c8 99 20 22 57 69 6d 70  |ate$...M.. "Wimp|
00000c40  5f 4c 6f 61 64 54 65 6d  70 6c 61 74 65 22 2c 2c  |_LoadTemplate",,|
00000c50  77 69 6d 70 25 2c 69 63  6f 6e 73 25 2c 69 63 6f  |wimp%,icons%,ico|
00000c60  6e 5f 6d 65 6d 6f 72 79  25 2c 2d 31 2c 77 69 6e  |n_memory%,-1,win|
00000c70  64 6f 77 24 2c 30 20 b8  20 2c 2c 69 63 6f 6e 73  |dow$,0 . ,,icons|
00000c80  25 0d 06 f4 11 c8 8e 20  73 70 72 69 74 65 73 25  |%...... sprites%|
00000c90  20 ca 0d 06 fe 1f 20 c9  20 31 20 20 20 20 3a 20  | ..... . 1    : |
00000ca0  77 69 6d 70 25 21 36 34  3d 73 70 72 69 74 65 73  |wimp%!64=sprites|
00000cb0  25 0d 07 08 29 20 7f 20  3a 20 77 69 6d 70 25 21  |%...) . : wimp%!|
00000cc0  36 34 3d a4 45 76 65 6e  74 5f 53 70 72 69 74 65  |64=.Event_Sprite|
00000cd0  73 28 77 69 6e 64 6f 77  25 29 0d 07 12 05 cb 0d  |s(window%)......|
00000ce0  07 1c 26 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |..&.. "Wimp_Crea|
00000cf0  74 65 57 69 6e 64 6f 77  22 2c 2c 77 69 6d 70 25  |teWindow",,wimp%|
00000d00  20 b8 20 63 25 0d 07 26  1b c8 99 20 22 57 69 6d  | . c%..&... "Wim|
00000d10  70 5f 43 6c 6f 73 65 54  65 6d 70 6c 61 74 65 22  |p_CloseTemplate"|
00000d20  0d 07 30 37 c8 99 20 22  57 69 6d 70 5f 57 68 69  |..07.. "Wimp_Whi|
00000d30  63 68 49 63 6f 6e 22 2c  63 25 2c 77 69 6d 70 25  |chIcon",c%,wimp%|
00000d40  2b 34 30 2c 31 2b 32 2b  28 31 3c 3c 38 29 2c 32  |+40,1+2+(1<<8),2|
00000d50  2b 28 31 3c 3c 38 29 0d  07 3a 11 c8 8e 20 77 69  |+(1<<8)..:... wi|
00000d60  6d 70 25 21 34 30 20 ca  0d 07 44 0d 20 c9 20 2d  |mp%!40 ...D. . -|
00000d70  31 20 20 20 3a 0d 07 4e  0e 20 7f 20 3a 20 69 25  |1   :..N. . : i%|
00000d80  3d 34 30 0d 07 58 06 20  f5 0d 07 62 24 20 20 20  |=40..X. ...b$   |
00000d90  77 69 6d 70 25 21 34 3d  77 69 6d 70 25 21 69 25  |wimp%!4=wimp%!i%|
00000da0  20 3a 20 77 69 6d 70 25  21 30 3d 63 25 0d 07 6c  | : wimp%!0=c%..l|
00000db0  24 20 20 20 c8 99 20 22  57 69 6d 70 5f 47 65 74  |$   .. "Wimp_Get|
00000dc0  49 63 6f 6e 53 74 61 74  65 22 2c 2c 77 69 6d 70  |IconState",,wimp|
00000dd0  25 0d 07 76 2d 20 20 20  73 70 24 3d a4 57 69 6d  |%..v-   sp$=.Wim|
00000de0  70 5f 47 65 74 53 74 72  69 6e 67 41 74 41 64 64  |p_GetStringAtAdd|
00000df0  72 65 73 73 28 77 69 6d  70 25 21 32 38 29 0d 07  |ress(wimp%!28)..|
00000e00  80 22 20 20 20 c8 99 20  22 57 69 6d 70 5f 44 65  |."   .. "Wimp_De|
00000e10  6c 65 74 65 49 63 6f 6e  22 2c 2c 77 69 6d 70 25  |leteIcon",,wimp%|
00000e20  0d 07 8a 14 20 20 20 c8  8e 20 73 70 72 69 74 65  |....   .. sprite|
00000e30  73 25 20 ca 0d 07 94 1b  20 20 20 20 c9 20 31 20  |s% .....    . 1 |
00000e40  20 20 20 3a 20 77 69 6d  70 25 21 33 32 3d 31 0d  |   : wimp%!32=1.|
00000e50  07 9e 0b 20 20 20 20 7f  20 3a 0d 07 a8 2f 20 20  |...    . :.../  |
00000e60  20 20 20 c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |   .. "OS_Sprite|
00000e70  4f 70 22 2c 26 31 30 38  2c 73 70 72 69 74 65 73  |Op",&108,sprites|
00000e80  25 20 b8 20 2c 2c 2c 6e  25 0d 07 b2 0d 20 20 20  |% . ,,,n%....   |
00000e90  20 20 6a 25 3d 30 0d 07  bc 12 20 20 20 20 20 f5  |  j%=0....     .|
00000ea0  20 3a 20 6a 25 2b 3d 31  0d 07 c6 3d 20 20 20 20  | : j%+=1...=    |
00000eb0  20 20 c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |  .. "OS_SpriteO|
00000ec0  70 22 2c 26 31 30 44 2c  73 70 72 69 74 65 73 25  |p",&10D,sprites%|
00000ed0  2c 70 6f 69 6e 74 65 72  5f 62 6c 6f 63 6b 25 2c  |,pointer_block%,|
00000ee0  32 30 2c 6a 25 0d 07 d0  37 20 20 20 20 20 20 73  |20,j%...7      s|
00000ef0  70 32 24 3d a4 57 69 6d  70 5f 47 65 74 53 74 72  |p2$=.Wimp_GetStr|
00000f00  69 6e 67 41 74 41 64 64  72 65 73 73 28 70 6f 69  |ingAtAddress(poi|
00000f10  6e 74 65 72 5f 62 6c 6f  63 6b 25 29 0d 07 da 1b  |nter_block%)....|
00000f20  20 20 20 20 20 fd 20 6a  25 3d 6e 25 20 84 20 73  |     . j%=n% . s|
00000f30  70 24 3d 73 70 32 24 0d  07 e4 34 20 20 20 20 20  |p$=sp2$...4     |
00000f40  e7 20 73 70 24 3d 73 70  32 24 20 8c 20 77 69 6d  |. sp$=sp2$ . wim|
00000f50  70 25 21 33 32 3d 73 70  72 69 74 65 73 25 20 8b  |p%!32=sprites% .|
00000f60  20 77 69 6d 70 25 21 33  32 3d 31 0d 07 ee 08 20  | wimp%!32=1.... |
00000f70  20 20 cb 0d 07 f8 11 20  20 20 77 69 6d 70 25 21  |  .....   wimp%!|
00000f80  34 3d 63 25 0d 08 02 2e  20 20 20 c8 99 20 22 57  |4=c%....   .. "W|
00000f90  69 6d 70 5f 43 72 65 61  74 65 49 63 6f 6e 22 2c  |imp_CreateIcon",|
00000fa0  2c 77 69 6d 70 25 2b 34  20 b8 20 68 61 6e 64 6c  |,wimp%+4 . handl|
00000fb0  65 25 0d 08 0c 0c 20 20  20 69 25 2b 3d 34 0d 08  |e%....   i%+=4..|
00000fc0  16 14 20 fd 20 28 77 69  6d 70 25 21 69 25 29 3d  |.. . (wimp%!i%)=|
00000fd0  2d 31 0d 08 20 05 cb 0d  08 2a 07 3d 63 25 0d 08  |-1.. ....*.=c%..|
00000fe0  34 05 3a 0d 08 3e 25 dd  20 f2 57 69 6d 70 5f 57  |4.:..>%. .Wimp_W|
00000ff0  69 6e 64 6f 77 42 72 69  6e 67 54 6f 54 6f 70 28  |indowBringToTop(|
00001000  77 69 6e 64 6f 77 25 29  0d 08 48 12 21 77 69 6d  |window%)..H.!wim|
00001010  70 25 3d 77 69 6e 64 6f  77 25 0d 08 52 23 c8 99  |p%=window%..R#..|
00001020  20 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  | "Wimp_GetWindow|
00001030  53 74 61 74 65 22 2c 2c  77 69 6d 70 25 0d 08 5c  |State",,wimp%..\|
00001040  0f 77 69 6d 70 25 21 32  38 3d 2d 31 0d 08 66 1f  |.wimp%!28=-1..f.|
00001050  c8 99 20 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |.. "Wimp_OpenWin|
00001060  64 6f 77 22 2c 2c 77 69  6d 70 25 0d 08 70 05 e1  |dow",,wimp%..p..|
00001070  0d 08 7a 05 3a 0d 08 84  20 dd 20 f2 57 69 6d 70  |..z.:... . .Wimp|
00001080  5f 57 69 6e 64 6f 77 43  6c 6f 73 65 28 77 69 6e  |_WindowClose(win|
00001090  64 6f 77 25 29 0d 08 8e  12 21 77 69 6d 70 25 3d  |dow%)....!wimp%=|
000010a0  77 69 6e 64 6f 77 25 0d  08 98 20 c8 99 20 22 57  |window%... .. "W|
000010b0  69 6d 70 5f 43 6c 6f 73  65 57 69 6e 64 6f 77 22  |imp_CloseWindow"|
000010c0  2c 2c 77 69 6d 70 25 0d  08 a2 05 e1 0d 08 ac 05  |,,wimp%.........|
000010d0  3a 0d 08 b6 24 dd 20 f2  57 69 6d 70 5f 57 69 6e  |:...$. .Wimp_Win|
000010e0  64 6f 77 46 6f 72 63 65  44 72 61 77 28 77 69 6e  |dowForceDraw(win|
000010f0  64 6f 77 25 29 0d 08 c0  10 c8 8e 20 77 69 6e 64  |dow%)...... wind|
00001100  6f 77 25 20 ca 0d 08 ca  38 20 c9 20 2d 31 20 20  |ow% ....8 . -1  |
00001110  20 3a 20 c8 99 20 22 57  69 6d 70 5f 46 6f 72 63  | : .. "Wimp_Forc|
00001120  65 52 65 64 72 61 77 22  2c 2d 31 2c 30 2c 30 2c  |eRedraw",-1,0,0,|
00001130  32 2a 31 32 38 30 2c 32  2a 31 30 32 34 0d 08 d4  |2*1280,2*1024...|
00001140  39 20 7f 20 3a 20 c8 99  20 22 57 69 6d 70 5f 46  |9 . : .. "Wimp_F|
00001150  6f 72 63 65 52 65 64 72  61 77 22 2c 77 69 6e 64  |orceRedraw",wind|
00001160  6f 77 25 2c 30 2c 2d 32  2a 31 30 32 34 2c 32 2a  |ow%,0,-2*1024,2*|
00001170  31 32 38 30 2c 30 0d 08  de 05 cb 0d 08 e8 05 e1  |1280,0..........|
00001180  0d 08 f2 05 3a 0d 08 fc  1f dd 20 f2 57 69 6d 70  |....:..... .Wimp|
00001190  5f 57 69 6e 64 6f 77 4f  70 65 6e 28 77 69 6e 64  |_WindowOpen(wind|
000011a0  6f 77 25 29 0d 09 06 12  21 77 69 6d 70 25 3d 77  |ow%)....!wimp%=w|
000011b0  69 6e 64 6f 77 25 0d 09  10 23 c8 99 20 22 57 69  |indow%...#.. "Wi|
000011c0  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
000011d0  65 22 2c 2c 77 69 6d 70  25 0d 09 1a 1f c8 99 20  |e",,wimp%...... |
000011e0  22 57 69 6d 70 5f 4f 70  65 6e 57 69 6e 64 6f 77  |"Wimp_OpenWindow|
000011f0  22 2c 2c 77 69 6d 70 25  0d 09 24 05 e1 0d 09 2e  |",,wimp%..$.....|
00001200  05 3a 0d 09 38 19 f2 57  69 6d 70 5f 57 69 6e 64  |.:..8..Wimp_Wind|
00001210  6f 77 49 6e 74 65 72 66  61 63 65 0d 09 42 20 c8  |owInterface..B .|
00001220  99 22 57 69 6d 70 5f 42  6f 72 64 65 72 57 69 6e  |."Wimp_BorderWin|
00001230  64 6f 77 22 2c 2c 77 69  6d 70 25 0d 09 4c 05 e1  |dow",,wimp%..L..|
00001240  0d 09 56 05 3a 0d 09 60  1c dd 20 a4 57 69 6d 70  |..V.:..`.. .Wimp|
00001250  5f 49 63 6f 6e 42 61 72  28 53 70 72 69 74 65 24  |_IconBar(Sprite$|
00001260  29 0d 09 6a 0b ea 20 69  63 6f 6e 25 0d 09 74 0e  |)..j.. icon%..t.|
00001270  77 69 6d 70 25 21 30 3d  2d 31 0d 09 7e 1d 77 69  |wimp%!0=-1..~.wi|
00001280  6d 70 25 21 34 3d 30 20  20 20 20 20 3a 20 77 69  |mp%!4=0     : wi|
00001290  6d 70 25 21 38 3d 30 0d  09 88 1f 77 69 6d 70 25  |mp%!8=0....wimp%|
000012a0  21 31 32 3d 36 36 20 20  20 3a 20 77 69 6d 70 25  |!12=66   : wimp%|
000012b0  21 31 36 3d 36 38 0d 09  92 12 77 69 6d 70 25 21  |!16=68....wimp%!|
000012c0  32 30 3d 26 33 30 30 32  0d 09 9c 17 24 28 77 69  |20=&3002....$(wi|
000012d0  6d 70 25 2b 32 34 29 3d  53 70 72 69 74 65 24 0d  |mp%+24)=Sprite$.|
000012e0  09 a6 27 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |..'.. "Wimp_Crea|
000012f0  74 65 49 63 6f 6e 22 2c  2c 77 69 6d 70 25 20 b8  |teIcon",,wimp% .|
00001300  20 69 63 6f 6e 25 0d 09  b0 0a 3d 69 63 6f 6e 25  | icon%....=icon%|
00001310  0d 0a 46 05 3a 0d 0a 50  23 dd 20 a4 57 69 6d 70  |..F.:..P#. .Wimp|
00001320  5f 49 63 6f 6e 54 65 78  74 28 77 69 6e 64 6f 77  |_IconText(window|
00001330  25 2c 69 63 6f 6e 25 29  0d 0a 5a 23 77 69 6d 70  |%,icon%)..Z#wimp|
00001340  25 21 30 3d 77 69 6e 64  6f 77 25 20 3a 20 77 69  |%!0=window% : wi|
00001350  6d 70 25 21 34 3d 69 63  6f 6e 25 0d 0a 64 21 c8  |mp%!4=icon%..d!.|
00001360  99 20 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |. "Wimp_GetIconS|
00001370  74 61 74 65 22 2c 2c 77  69 6d 70 25 0d 0a 6e 37  |tate",,wimp%..n7|
00001380  e7 20 28 28 77 69 6d 70  25 21 32 34 29 20 80 20  |. ((wimp%!24) . |
00001390  26 31 30 30 29 3d 30 20  85 20 31 2c 22 49 63 6f  |&100)=0 . 1,"Ico|
000013a0  6e 20 69 73 6e 27 74 20  69 6e 64 69 72 65 63 74  |n isn't indirect|
000013b0  65 64 22 0d 0a 78 10 3d  24 28 77 69 6d 70 25 21  |ed"..x.=$(wimp%!|
000013c0  32 38 29 0d 0a 82 05 3a  0d 0a 8c 29 dd 20 a4 57  |28)....:...). .W|
000013d0  69 6d 70 5f 49 63 6f 6e  56 61 6c 69 64 61 74 69  |imp_IconValidati|
000013e0  6f 6e 28 77 69 6e 64 6f  77 25 2c 69 63 6f 6e 25  |on(window%,icon%|
000013f0  29 0d 0a 96 23 77 69 6d  70 25 21 30 3d 77 69 6e  |)...#wimp%!0=win|
00001400  64 6f 77 25 20 3a 20 77  69 6d 70 25 21 34 3d 69  |dow% : wimp%!4=i|
00001410  63 6f 6e 25 0d 0a a0 21  c8 99 20 22 57 69 6d 70  |con%...!.. "Wimp|
00001420  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
00001430  77 69 6d 70 25 0d 0a aa  37 e7 20 28 28 77 69 6d  |wimp%...7. ((wim|
00001440  70 25 21 32 34 29 20 80  20 26 31 30 30 29 3d 30  |p%!24) . &100)=0|
00001450  20 85 20 31 2c 22 49 63  6f 6e 20 69 73 6e 27 74  | . 1,"Icon isn't|
00001460  20 69 6e 64 69 72 65 63  74 65 64 22 0d 0a b4 10  | indirected"....|
00001470  3d 24 28 77 69 6d 70 25  21 33 32 29 0d 0b 36 05  |=$(wimp%!32)..6.|
00001480  3a 0d 0b 40 30 dd 20 a4  57 69 6d 70 5f 49 63 6f  |:..@0. .Wimp_Ico|
00001490  6e 50 75 74 53 70 72 69  74 65 28 77 69 6e 64 6f  |nPutSprite(windo|
000014a0  77 25 2c 69 63 6f 6e 25  2c 73 70 72 69 74 65 24  |w%,icon%,sprite$|
000014b0  29 0d 0b 4a 21 77 69 6d  70 25 21 30 3d 77 69 6e  |)..J!wimp%!0=win|
000014c0  64 6f 77 25 3a 77 69 6d  70 25 21 34 3d 69 63 6f  |dow%:wimp%!4=ico|
000014d0  6e 25 0d 0b 54 21 c8 99  20 22 57 69 6d 70 5f 47  |n%..T!.. "Wimp_G|
000014e0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 77 69  |etIconState",,wi|
000014f0  6d 70 25 0d 0b 5e 1f c8  99 20 22 57 69 6d 70 5f  |mp%..^... "Wimp_|
00001500  44 65 6c 65 74 65 49 63  6f 6e 22 2c 2c 77 69 6d  |DeleteIcon",,wim|
00001510  70 25 0d 0b 68 3d 77 69  6d 70 25 21 34 3d 77 69  |p%..h=wimp%!4=wi|
00001520  6d 70 25 21 38 20 20 20  3a 20 77 69 6d 70 25 21  |mp%!8   : wimp%!|
00001530  38 3d 77 69 6d 70 25 21  31 32 20 20 3a 20 77 69  |8=wimp%!12  : wi|
00001540  6d 70 25 21 31 32 3d 77  69 6d 70 25 21 31 36 0d  |mp%!12=wimp%!16.|
00001550  0b 72 3f 77 69 6d 70 25  21 31 36 3d 77 69 6d 70  |.r?wimp%!16=wimp|
00001560  25 21 32 30 20 3a 20 77  69 6d 70 25 21 32 30 3d  |%!20 : wimp%!20=|
00001570  77 69 6d 70 25 21 32 34  20 3a 20 24 28 77 69 6d  |wimp%!24 : $(wim|
00001580  70 25 2b 32 34 29 3d 73  70 72 69 74 65 24 0d 0b  |p%+24)=sprite$..|
00001590  7c 27 c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  ||'.. "Wimp_Creat|
000015a0  65 49 63 6f 6e 22 2c 2c  77 69 6d 70 25 20 b8 20  |eIcon",,wimp% . |
000015b0  69 63 6f 6e 25 0d 0b 86  0a 3d 69 63 6f 6e 25 0d  |icon%....=icon%.|
000015c0  0b 90 05 3a 0d 0b 9a 2c  dd 20 f2 57 69 6d 70 5f  |...:...,. .Wimp_|
000015d0  49 63 6f 6e 50 75 74 54  65 78 74 28 77 69 6e 64  |IconPutText(wind|
000015e0  6f 77 25 2c 69 63 6f 6e  25 2c 74 65 78 74 24 29  |ow%,icon%,text$)|
000015f0  0d 0b a4 23 77 69 6d 70  25 21 30 3d 77 69 6e 64  |...#wimp%!0=wind|
00001600  6f 77 25 20 3a 20 77 69  6d 70 25 21 34 3d 69 63  |ow% : wimp%!4=ic|
00001610  6f 6e 25 0d 0b ae 21 c8  99 20 22 57 69 6d 70 5f  |on%...!.. "Wimp_|
00001620  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 77  |GetIconState",,w|
00001630  69 6d 70 25 0d 0b b8 37  e7 20 28 28 77 69 6d 70  |imp%...7. ((wimp|
00001640  25 21 32 34 29 20 80 20  26 31 30 30 29 3d 30 20  |%!24) . &100)=0 |
00001650  85 20 31 2c 22 49 63 6f  6e 20 69 73 6e 27 74 20  |. 1,"Icon isn't |
00001660  69 6e 64 69 72 65 63 74  65 64 22 0d 0b c2 15 24  |indirected"....$|
00001670  28 77 69 6d 70 25 21 32  38 29 3d 74 65 78 74 24  |(wimp%!28)=text$|
00001680  0d 0b cc 23 77 69 6d 70  25 21 30 3d 77 69 6e 64  |...#wimp%!0=wind|
00001690  6f 77 25 20 3a 20 77 69  6d 70 25 21 34 3d 69 63  |ow% : wimp%!4=ic|
000016a0  6f 6e 25 0d 0b d6 1a 77  69 6d 70 25 21 38 3d 30  |on%....wimp%!8=0|
000016b0  20 3a 20 77 69 6d 70 25  21 31 32 3d 30 0d 0b e0  | : wimp%!12=0...|
000016c0  21 c8 99 20 22 57 69 6d  70 5f 53 65 74 49 63 6f  |!.. "Wimp_SetIco|
000016d0  6e 53 74 61 74 65 22 2c  2c 77 69 6d 70 25 0d 0b  |nState",,wimp%..|
000016e0  ea 05 e1 0d 0c 58 05 3a  0d 0c 62 1f dd 20 f2 57  |.....X.:..b.. .W|
000016f0  69 6d 70 5f 4d 65 6e 75  41 64 6a 75 73 74 4f 6e  |imp_MenuAdjustOn|
00001700  28 6d 65 6e 75 25 29 0d  0c 6c 2c c8 99 20 22 57  |(menu%)..l,.. "W|
00001710  69 6d 70 5f 47 65 74 50  6f 69 6e 74 65 72 49 6e  |imp_GetPointerIn|
00001720  66 6f 22 2c 2c 70 6f 69  6e 74 65 72 5f 62 6c 6f  |fo",,pointer_blo|
00001730  63 6b 25 0d 0c 76 5e e7  20 28 28 70 6f 69 6e 74  |ck%..v^. ((point|
00001740  65 72 5f 62 6c 6f 63 6b  25 21 38 29 80 31 29 3d  |er_block%!8).1)=|
00001750  31 20 8c 20 c8 99 20 22  57 69 6d 70 5f 43 72 65  |1 . .. "Wimp_Cre|
00001760  61 74 65 4d 65 6e 75 22  2c 2c 6d 65 6e 75 25 2c  |ateMenu",,menu%,|
00001770  70 6f 69 6e 74 65 72 5f  62 6c 6f 63 6b 25 21 30  |pointer_block%!0|
00001780  2c 70 6f 69 6e 74 65 72  5f 62 6c 6f 63 6b 25 21  |,pointer_block%!|
00001790  34 0d 0c 80 05 e1 0d 0c  8a 05 3a 0d 0c 94 1e dd  |4.........:.....|
000017a0  20 a4 57 69 6d 70 5f 4d  65 6e 75 43 68 6f 69 63  | .Wimp_MenuChoic|
000017b0  65 28 6c 65 76 65 6c 25  29 0d 0c 9e 19 3d 28 77  |e(level%)....=(w|
000017c0  69 6d 70 25 21 28 34 2a  6c 65 76 65 6c 25 29 29  |imp%!(4*level%))|
000017d0  2b 31 0d 0c a8 05 3a 0d  0c b2 1d dd 20 a4 57 69  |+1....:..... .Wi|
000017e0  6d 70 5f 4d 65 6e 75 43  72 65 61 74 65 28 6d 65  |mp_MenuCreate(me|
000017f0  6e 75 24 29 0d 0c bc 29  e7 20 6d 65 6e 75 24 3d  |nu$)...). menu$=|
00001800  22 43 6f 6c 6f 75 72 73  22 20 8c 3d a4 57 69 6d  |"Colours" .=.Wim|
00001810  70 5f 4d 65 6e 75 43 6f  6c 6f 75 72 73 0d 0c c6  |p_MenuColours...|
00001820  27 ea 20 6d 65 6e 75 25  2c 69 6e 64 65 78 25 2c  |'. menu%,index%,|
00001830  77 69 64 74 68 25 2c 6c  65 6e 67 74 68 25 2c 6b  |width%,length%,k|
00001840  25 2c 73 25 0d 0c d0 2e  de 20 6d 65 6e 75 25 20  |%,s%..... menu% |
00001850  32 38 2b a4 57 69 6d 70  5f 4d 65 6e 75 4e 6f 4f  |28+.Wimp_MenuNoO|
00001860  66 45 6e 74 72 69 65 73  28 6d 65 6e 75 24 29 2a  |fEntries(menu$)*|
00001870  32 34 0d 0c da 37 6d 65  6e 75 25 3f 31 32 3d 37  |24...7menu%?12=7|
00001880  20 20 20 3a 20 6d 65 6e  75 25 3f 31 33 3d 32 20  |   : menu%?13=2 |
00001890  20 3a 20 6d 65 6e 75 25  3f 31 34 3d 37 20 3a 6d  | : menu%?14=7 :m|
000018a0  65 6e 75 25 3f 31 35 3d  30 0d 0c e4 2b 6d 65 6e  |enu%?15=0...+men|
000018b0  75 25 21 31 36 3d 31 34  30 20 3a 20 6d 65 6e 75  |u%!16=140 : menu|
000018c0  25 21 32 30 3d 34 34 20  3a 20 6d 65 6e 75 25 21  |%!20=44 : menu%!|
000018d0  32 34 3d 30 0d 0c ee 13  69 6e 64 65 78 25 3d 6d  |24=0....index%=m|
000018e0  65 6e 75 25 2b 32 38 0d  0c f8 20 24 6d 65 6e 75  |enu%+28... $menu|
000018f0  25 3d c0 6d 65 6e 75 24  2c a7 6d 65 6e 75 24 2c  |%=.menu$,.menu$,|
00001900  22 5c 22 29 2d 31 29 0d  0d 02 23 77 69 64 74 68  |"\")-1)...#width|
00001910  25 3d a9 28 c0 6d 65 6e  75 24 2c a7 6d 65 6e 75  |%=.(.menu$,.menu|
00001920  24 2c 22 5c 22 29 2d 31  29 29 0d 0d 0c 24 6d 65  |$,"\")-1))...$me|
00001930  6e 75 24 2b 3d 22 5c 22  20 3a 20 4d 65 6e 75 5f  |nu$+="\" : Menu_|
00001940  4e 6f 4f 66 45 6e 74 72  69 65 73 25 3d 30 0d 0d  |NoOfEntries%=0..|
00001950  16 10 c8 95 20 6d 65 6e  75 24 3c 3e 22 22 0d 0d  |.... menu$<>""..|
00001960  20 1f 6d 65 6e 75 24 3d  c1 6d 65 6e 75 24 2c a7  | .menu$=.menu$,.|
00001970  6d 65 6e 75 24 2c 22 5c  22 29 2b 31 29 0d 0d 2a  |menu$,"\")+1)..*|
00001980  0e c8 8e 20 6d 65 6e 75  24 20 ca 0d 0d 34 09 20  |... menu$ ...4. |
00001990  c9 20 22 22 0d 0d 3e 08  20 7f 20 3a 0d 0d 48 31  |. ""..>. . :..H1|
000019a0  20 20 21 69 6e 64 65 78  25 3d 30 20 3a 20 69 6e  |  !index%=0 : in|
000019b0  64 65 78 25 21 34 3d 2d  31 20 3a 20 69 6e 64 65  |dex%!4=-1 : inde|
000019c0  78 25 21 38 3d 26 37 30  30 30 30 32 31 0d 0d 52  |x%!8=&7000021..R|
000019d0  1b 20 20 6c 65 6e 67 74  68 25 3d a7 6d 65 6e 75  |.  length%=.menu|
000019e0  24 2c 22 5c 22 29 2d 31  0d 0d 5c 1e 20 20 6b 25  |$,"\")-1..\.  k%|
000019f0  3d a7 c0 6d 65 6e 75 24  2c 6c 65 6e 67 74 68 25  |=..menu$,length%|
00001a00  29 2c 22 3e 22 29 0d 0d  66 0d 20 20 c8 8e 20 6b  |),">")..f.  .. k|
00001a10  25 20 ca 0d 0d 70 0a 20  20 20 c9 20 30 0d 0d 7a  |% ...p.   . 0..z|
00001a20  08 20 20 20 7f 0d 0d 84  25 20 20 20 20 73 25 3d  |.   ....%    s%=|
00001a30  a0 28 c1 6d 65 6e 75 24  2c 6b 25 2b 31 2c 6c 65  |.(.menu$,k%+1,le|
00001a40  6e 67 74 68 25 2d 6b 25  29 29 0d 0d 8e 13 20 20  |ngth%-k%))....  |
00001a50  20 20 69 6e 64 65 78 25  21 34 3d 73 25 0d 0d 98  |  index%!4=s%...|
00001a60  14 20 20 20 20 6c 65 6e  67 74 68 25 3d 6b 25 2d  |.    length%=k%-|
00001a70  31 0d 0d a2 07 20 20 cb  0d 0d ac 22 20 20 24 28  |1....  ...."  $(|
00001a80  69 6e 64 65 78 25 2b 31  32 29 3d c0 6d 65 6e 75  |index%+12)=.menu|
00001a90  24 2c 6c 65 6e 67 74 68  25 29 0d 0d b6 27 20 20  |$,length%)...'  |
00001aa0  e7 20 6c 65 6e 67 74 68  25 3e 77 69 64 74 68 25  |. length%>width%|
00001ab0  20 8c 20 77 69 64 74 68  25 3d 6c 65 6e 67 74 68  | . width%=length|
00001ac0  25 0d 0d c0 10 20 20 69  6e 64 65 78 25 2b 3d 32  |%....  index%+=2|
00001ad0  34 0d 0d ca 05 cb 0d 0d  d4 05 ce 0d 0d de 1a 6d  |4..............m|
00001ae0  65 6e 75 25 21 31 36 3d  31 36 2a 28 77 69 64 74  |enu%!16=16*(widt|
00001af0  68 25 2b 31 29 0d 0d e8  28 69 6e 64 65 78 25 21  |h%+1)...(index%!|
00001b00  2d 32 34 3d 69 6e 64 65  78 25 21 2d 32 34 20 84  |-24=index%!-24 .|
00001b10  20 26 38 30 20 3a 20 3d  6d 65 6e 75 25 0d 0e 9c  | &80 : =menu%...|
00001b20  05 3a 0d 0e a6 22 dd 20  a4 57 69 6d 70 5f 4d 65  |.:...". .Wimp_Me|
00001b30  6e 75 4e 6f 4f 66 45 6e  74 72 69 65 73 28 6d 65  |nuNoOfEntries(me|
00001b40  6e 75 24 29 0d 0e b0 1a  ea 20 6e 25 20 2c 6a 25  |nu$)..... n% ,j%|
00001b50  20 3a 20 6e 25 3d 30 20  3a 20 6a 25 3d 30 0d 0e  | : n%=0 : j%=0..|
00001b60  ba 05 f5 0d 0e c4 17 6a  25 3d a7 6d 65 6e 75 24  |.......j%=.menu$|
00001b70  2c 22 5c 22 2c 6a 25 2b  31 29 0d 0e ce 13 e7 20  |,"\",j%+1)..... |
00001b80  6a 25 3c 3e 30 20 8c 20  6e 25 2b 3d 31 0d 0e d8  |j%<>0 . n%+=1...|
00001b90  0a fd 20 6a 25 3d 30 0d  0e e2 07 3d 6e 25 0d 0f  |.. j%=0....=n%..|
00001ba0  5a 05 3a 0d 0f 64 15 dd  20 f2 57 69 6d 70 5f 4d  |Z.:..d.. .Wimp_M|
00001bb0  65 6e 75 43 6c 6f 73 65  0d 0f 6e 1b c8 99 20 22  |enuClose..n... "|
00001bc0  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
00001bd0  2c 2d 31 0d 0f 78 05 e1  0d 0f aa 05 3a 0d 0f b4  |,-1..x......:...|
00001be0  27 dd 20 f2 57 69 6d 70  5f 4d 65 6e 75 44 6f 74  |'. .Wimp_MenuDot|
00001bf0  74 65 64 4c 69 6e 65 28  6d 65 6e 75 25 2c 69 74  |tedLine(menu%,it|
00001c00  65 6d 25 29 0d 0f be 37  6d 65 6e 75 25 21 28 32  |em%)...7menu%!(2|
00001c10  38 2b 28 69 74 65 6d 25  2d 31 29 2a 32 34 29 3d  |8+(item%-1)*24)=|
00001c20  28 6d 65 6e 75 25 21 28  32 38 2b 28 69 74 65 6d  |(menu%!(28+(item|
00001c30  25 2d 31 29 2a 32 34 29  29 84 32 0d 0f c8 05 e1  |%-1)*24)).2.....|
00001c40  0d 10 2c 05 3a 0d 10 36  29 dd 20 f2 57 69 6d 70  |..,.:..6). .Wimp|
00001c50  5f 4d 65 6e 75 47 6c 75  65 28 6d 65 6e 75 31 25  |_MenuGlue(menu1%|
00001c60  2c 69 74 65 6d 25 2c 6d  65 6e 75 32 25 29 0d 10  |,item%,menu2%)..|
00001c70  40 1e 6d 65 6e 75 31 25  21 28 38 2b 69 74 65 6d  |@.menu1%!(8+item|
00001c80  25 2a 32 34 29 3d 6d 65  6e 75 32 25 0d 10 4a 05  |%*24)=menu2%..J.|
00001c90  e1 0d 10 54 05 3a 0d 10  5e 27 dd 20 f2 57 69 6d  |...T.:..^'. .Wim|
00001ca0  70 5f 4d 65 6e 75 49 74  65 6d 28 6d 65 6e 75 25  |p_MenuItem(menu%|
00001cb0  2c 69 74 65 6d 25 2c 69  74 65 6d 24 29 0d 10 68  |,item%,item$)..h|
00001cc0  2c 24 28 6d 65 6e 75 25  2b 28 34 30 2b 28 69 74  |,$(menu%+(40+(it|
00001cd0  65 6d 25 2d 31 29 2a 32  34 29 29 3d c0 69 74 65  |em%-1)*24))=.ite|
00001ce0  6d 24 2c 31 32 29 2b bd  30 0d 10 72 05 e1 0d 10  |m$,12)+.0..r....|
00001cf0  a4 05 3a 0d 10 ae 22 dd  20 f2 57 69 6d 70 5f 4d  |..:...". .Wimp_M|
00001d00  65 6e 75 50 6f 70 55 70  28 4d 65 6e 75 25 2c 78  |enuPopUp(Menu%,x|
00001d10  25 2c 79 25 29 0d 10 b8  0f 6d 65 6e 75 25 3d 4d  |%,y%)....menu%=M|
00001d20  65 6e 75 25 0d 10 c2 2b  c8 99 20 22 57 69 6d 70  |enu%...+.. "Wimp|
00001d30  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 6d 65  |_CreateMenu",,me|
00001d40  6e 75 25 2c 78 25 2d 36  34 2c 79 25 2b 32 30 0d  |nu%,x%-64,y%+20.|
00001d50  10 cc 05 e1 0d 10 d6 05  3a 0d 10 e0 1f dd 20 f2  |........:..... .|
00001d60  57 69 6d 70 5f 4d 65 6e  75 50 6f 70 55 70 42 61  |Wimp_MenuPopUpBa|
00001d70  72 28 78 25 2c 79 25 29  0d 10 ea 0f ea 20 6e 25  |r(x%,y%)..... n%|
00001d80  20 3a 20 6e 25 3d 30 0d  10 f4 2b c8 95 20 28 28  | : n%=0...+.. ((|
00001d90  42 61 72 5f 4d 65 6e 75  25 21 28 32 38 2b 6e 25  |Bar_Menu%!(28+n%|
00001da0  2a 32 34 29 29 80 25 31  30 30 30 30 30 30 30 29  |*24)).%10000000)|
00001db0  3d 30 0d 10 fe 09 6e 25  2b 3d 31 0d 11 08 05 ce  |=0....n%+=1.....|
00001dc0  0d 11 12 32 c8 99 20 22  57 69 6d 70 5f 43 72 65  |...2.. "Wimp_Cre|
00001dd0  61 74 65 4d 65 6e 75 22  2c 2c 42 61 72 5f 4d 65  |ateMenu",,Bar_Me|
00001de0  6e 75 25 2c 78 25 2d 36  34 2c 39 36 2b 6e 25 2a  |nu%,x%-64,96+n%*|
00001df0  34 34 0d 11 1c 13 6d 65  6e 75 25 3d 42 61 72 5f  |44....menu%=Bar_|
00001e00  4d 65 6e 75 25 0d 11 26  05 e1 0d 11 da 05 3a 0d  |Menu%..&......:.|
00001e10  11 e4 17 dd 20 f2 57 69  6d 70 5f 53 70 72 69 74  |.... .Wimp_Sprit|
00001e20  65 73 4c 6f 61 64 0d 11  ee 2f f2 57 69 6d 70 5f  |esLoad.../.Wimp_|
00001e30  53 70 72 69 74 65 73 50  61 74 68 4c 6f 61 64 28  |SpritesPathLoad(|
00001e40  22 3c 4f 62 65 79 24 44  69 72 3e 2e 53 70 72 69  |"<Obey$Dir>.Spri|
00001e50  74 65 73 22 29 0d 11 f8  1c 64 69 72 65 63 74 5f  |tes")....direct_|
00001e60  73 70 72 69 74 65 73 25  3d 73 70 72 69 74 65 73  |sprites%=sprites|
00001e70  25 0d 12 02 05 e1 0d 12  0c 05 3a 0d 12 16 26 dd  |%.........:...&.|
00001e80  20 f2 57 69 6d 70 5f 53  70 72 69 74 65 73 50 61  | .Wimp_SpritesPa|
00001e90  74 68 4c 6f 61 64 28 70  61 74 68 6e 61 6d 65 24  |thLoad(pathname$|
00001ea0  29 0d 12 20 0a ea 53 25  2c 54 25 0d 12 2a 2c 53  |).. ..S%,T%..*,S|
00001eb0  25 3d 8e 22 3c 4f 62 65  79 24 44 69 72 3e 2e 53  |%=."<Obey$Dir>.S|
00001ec0  70 72 69 74 65 73 22 3a  54 25 3d a2 23 53 25 2b  |prites":T%=.#S%+|
00001ed0  31 36 3a d9 23 53 25 0d  12 34 19 de 73 70 72 69  |16:.#S%..4..spri|
00001ee0  74 65 73 25 54 25 2c 73  70 6e 61 6d 65 25 31 32  |tes%T%,spname%12|
00001ef0  0d 12 3e 1d 21 73 70 72  69 74 65 73 25 3d 54 25  |..>.!sprites%=T%|
00001f00  3a 73 70 72 69 74 65 73  25 21 38 3d 30 0d 12 48  |:sprites%!8=0..H|
00001f10  21 c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |!.."OS_SpriteOp"|
00001f20  2c 26 31 30 39 2c 73 70  72 69 74 65 73 25 0d 12  |,&109,sprites%..|
00001f30  52 2b c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |R+.."OS_SpriteOp|
00001f40  22 2c 26 31 30 41 2c 73  70 72 69 74 65 73 25 2c  |",&10A,sprites%,|
00001f50  70 61 74 68 6e 61 6d 65  24 0d 12 5c 05 e1 0d 12  |pathname$..\....|
00001f60  66 05 3a 0d 12 70 1b dd  20 a4 57 69 6d 70 5f 47  |f.:..p.. .Wimp_G|
00001f70  65 74 46 69 6c 65 50 61  74 68 4e 61 6d 65 0d 12  |etFilePathName..|
00001f80  7a 27 3d a4 57 69 6d 70  5f 47 65 74 53 74 72 69  |z'=.Wimp_GetStri|
00001f90  6e 67 41 74 41 64 64 72  65 73 73 28 77 69 6d 70  |ngAtAddress(wimp|
00001fa0  25 2b 34 34 29 0d 12 84  05 3a 0d 12 8e 1f dd 20  |%+44)....:..... |
00001fb0  a4 57 69 6d 70 5f 46 69  6c 65 4c 6f 61 64 28 70  |.Wimp_FileLoad(p|
00001fc0  61 74 68 6e 61 6d 65 24  29 0d 12 98 10 ea 53 25  |athname$).....S%|
00001fd0  2c 54 25 2c 66 69 6c 65  25 0d 12 a2 11 53 25 3d  |,T%,file%....S%=|
00001fe0  8e 70 61 74 68 6e 61 6d  65 24 0d 12 ac 0e 54 25  |.pathname$....T%|
00001ff0  3d a2 23 53 25 2b 31 36  0d 12 b6 08 d9 23 53 25  |=.#S%+16.....#S%|
00002000  0d 12 c0 0c de 66 69 6c  65 25 54 25 0d 12 ca 22  |.....file%T%..."|
00002010  ff 28 22 4c 4f 41 44 22  2b 70 61 74 68 6e 61 6d  |.("LOAD"+pathnam|
00002020  65 24 2b 22 22 2b c3 7e  66 69 6c 65 25 29 0d 12  |e$+""+.~file%)..|
00002030  d4 0a 3d 66 69 6c 65 25  0d 12 de 05 3b 0d 12 e8  |..=file%....;...|
00002040  26 dd 20 a4 57 69 6d 70  5f 47 65 74 53 74 72 69  |&. .Wimp_GetStri|
00002050  6e 67 41 74 41 64 64 72  65 73 73 28 61 72 72 61  |ngAtAddress(arra|
00002060  79 25 29 0d 12 f2 0d ea  73 24 3a 73 24 3d 22 22  |y%).....s$:s$=""|
00002070  0d 12 fc 3c c8 95 28 3f  61 72 72 61 79 25 3c 3e  |...<..(?array%<>|
00002080  31 33 29 80 28 3f 61 72  72 61 79 25 3c 3e 30 29  |13).(?array%<>0)|
00002090  3a 73 24 2b 3d bd 28 3f  61 72 72 61 79 25 29 3a  |:s$+=.(?array%):|
000020a0  61 72 72 61 79 25 2b 3d  31 3a ce 3a 0d 13 06 07  |array%+=1:.:....|
000020b0  3d 73 24 0d 13 c4 05 3a  0d 13 ce 2f dd 20 f2 57  |=s$....:.../. .W|
000020c0  69 6d 70 5f 53 74 61 72  74 28 54 61 73 6b 4e 61  |imp_Start(TaskNa|
000020d0  6d 65 24 2c 77 69 6d 70  5f 6d 65 6d 6f 72 79 25  |me$,wimp_memory%|
000020e0  2c 69 63 6f 6e 25 29 0d  13 d8 25 de 20 77 69 6d  |,icon%)...%. wim|
000020f0  70 25 20 77 69 6d 70 5f  6d 65 6d 6f 72 79 25 2c  |p% wimp_memory%,|
00002100  69 63 6f 6e 73 25 20 69  63 6f 6e 25 0d 13 e2 29  |icons% icon%...)|
00002110  e7 20 77 69 6d 70 5f 6d  65 6d 6f 72 79 25 3c 32  |. wimp_memory%<2|
00002120  35 36 20 8c 20 77 69 6d  70 5f 6d 65 6d 6f 72 79  |56 . wimp_memory|
00002130  25 3d 32 35 36 0d 13 ec  1d 69 63 6f 6e 5f 6d 65  |%=256....icon_me|
00002140  6d 6f 72 79 25 3d 69 63  6f 6e 73 25 2b 69 63 6f  |mory%=icons%+ico|
00002150  6e 25 0d 13 f6 13 74 61  73 6b 24 3d 54 61 73 6b  |n%....task$=Task|
00002160  4e 61 6d 65 24 0d 14 00  2b 69 6e 64 69 72 65 63  |Name$...+indirec|
00002170  74 5f 73 70 72 69 74 65  73 25 3d 31 20 3a 20 64  |t_sprites%=1 : d|
00002180  69 72 65 63 74 5f 73 70  72 69 74 65 73 25 3d 31  |irect_sprites%=1|
00002190  0d 14 0a 1b f2 57 69 6d  70 5f 53 65 74 45 76 65  |.....Wimp_SetEve|
000021a0  6e 74 56 61 72 69 61 62  6c 65 73 0d 14 14 15 ee  |ntVariables.....|
000021b0  20 85 20 f2 57 69 6d 70  5f 45 72 72 6f 72 3a e0  | . .Wimp_Error:.|
000021c0  0d 14 1e 40 c8 99 22 57  69 6d 70 5f 49 6e 69 74  |...@.."Wimp_Init|
000021d0  69 61 6c 69 73 65 22 2c  32 30 30 2c 26 34 42 35  |ialise",200,&4B5|
000021e0  33 34 31 35 34 2c 54 61  73 6b 4e 61 6d 65 24 20  |34154,TaskName$ |
000021f0  b8 20 76 65 72 73 69 6f  6e 25 2c 74 61 73 6b 25  |. version%,task%|
00002200  0d 14 28 05 e1 0d 14 32  05 3a 0d 14 3c 1b dd 20  |..(....2.:..<.. |
00002210  a4 57 69 6d 70 5f 42 41  53 49 43 50 61 72 61 6d  |.Wimp_BASICParam|
00002220  65 74 65 72 73 0d 14 46  15 20 ea 20 63 6f 6d 24  |eters..F. . com$|
00002230  2c 70 61 72 61 6d 24 2c  49 25 0d 14 50 1a 20 c8  |,param$,I%..P. .|
00002240  99 20 22 4f 53 5f 47 65  74 45 6e 76 22 20 b8 20  |. "OS_GetEnv" . |
00002250  63 6f 6d 24 0d 14 5a 0f  20 70 61 72 61 6d 73 24  |com$..Z. params$|
00002260  3d 22 22 0d 14 64 18 20  49 25 3d a7 63 6f 6d 24  |=""..d. I%=.com$|
00002270  2c 22 20 2d 71 75 69 74  20 22 29 0d 14 6e 35 20  |," -quit ")..n5 |
00002280  e7 20 49 25 20 8c 20 70  61 72 61 6d 73 24 3d c1  |. I% . params$=.|
00002290  63 6f 6d 24 2c a7 63 6f  6d 24 2c 22 20 22 2c 49  |com$,.com$," ",I|
000022a0  25 2b a9 22 20 2d 71 75  69 74 20 22 29 2b 31 29  |%+." -quit ")+1)|
000022b0  0d 14 78 0c 3d 70 61 72  61 6d 73 24 0d 14 82 05  |..x.=params$....|
000022c0  3a 0d 14 8c 1d dd 20 f2  57 69 6d 70 5f 53 65 74  |:..... .Wimp_Set|
000022d0  45 76 65 6e 74 56 61 72  69 61 62 6c 65 73 0d 14  |EventVariables..|
000022e0  96 17 de 20 70 6f 69 6e  74 65 72 5f 62 6c 6f 63  |... pointer_bloc|
000022f0  6b 25 20 32 30 0d 14 a0  10 69 6e 74 65 72 66 61  |k% 20....interfa|
00002300  63 65 25 3d a3 0d 14 aa  2e 6e 75 6c 6c 25 3d 31  |ce%=.....null%=1|
00002310  20 20 3a 64 72 61 77 25  3d 32 20 3a 20 20 70 6f  |  :draw%=2 :  po|
00002320  69 6e 74 65 72 5f 6c 65  61 76 69 6e 67 25 3d 31  |inter_leaving%=1|
00002330  3c 3c 34 0d 14 b4 31 70  6f 69 6e 74 65 72 5f 65  |<<4...1pointer_e|
00002340  6e 74 65 72 69 6e 67 25  3d 31 3c 3c 35 3a 6d 6f  |ntering%=1<<5:mo|
00002350  75 73 65 25 3d 31 3c 3c  36 3a 64 72 61 67 25 3d  |use%=1<<6:drag%=|
00002360  31 3c 3c 37 0d 14 be 26  6b 65 79 25 3d 31 3c 3c  |1<<7...&key%=1<<|
00002370  38 3a 6d 65 6e 75 25 3d  31 3c 3c 39 3a 73 63 72  |8:menu%=1<<9:scr|
00002380  6f 6c 6c 25 3d 31 3c 3c  31 30 0d 14 c8 40 6c 6f  |oll%=1<<10...@lo|
00002390  73 65 5f 63 61 72 65 74  25 3d 31 3c 3c 31 31 3a  |se_caret%=1<<11:|
000023a0  67 61 69 6e 5f 63 61 72  65 74 25 3d 31 3c 3c 31  |gain_caret%=1<<1|
000023b0  32 3a 6d 65 73 73 61 67  65 25 3d 28 31 3c 3c 31  |2:message%=(1<<1|
000023c0  37 29 2b 28 31 3c 3c 31  38 29 0d 14 d2 30 72 65  |7)+(1<<18)...0re|
000023d0  63 6f 72 64 65 72 25 3d  31 3c 3c 31 38 3a 61 63  |corder%=1<<18:ac|
000023e0  6b 6e 6f 77 6c 65 64 67  65 25 3d 31 3c 3c 31 39  |knowledge%=1<<19|
000023f0  3a 77 69 6e 64 6f 77 25  3d 30 0d 14 dc 21 73 70  |:window%=0...!sp|
00002400  72 69 74 65 73 25 3d 31  3a 76 65 72 73 69 6f 6e  |rites%=1:version|
00002410  25 3d 30 3a 74 61 73 6b  25 3d 30 0d 14 e6 2a 42  |%=0:task%=0...*B|
00002420  61 72 5f 57 69 6e 64 6f  77 25 3d 2d 32 3a 42 61  |ar_Window%=-2:Ba|
00002430  72 5f 49 63 6f 6e 25 3d  30 3a 42 61 72 5f 4d 65  |r_Icon%=0:Bar_Me|
00002440  6e 75 25 3d 30 0d 14 f0  2a 78 5f 6f 72 69 67 69  |nu%=0...*x_origi|
00002450  6e 25 3d 30 3a 79 5f 6f  72 69 67 69 6e 25 3d 30  |n%=0:y_origin%=0|
00002460  3a 53 61 76 65 57 69 6e  64 6f 77 25 3d 2d 33 0d  |:SaveWindow%=-3.|
00002470  14 fa 33 6d 65 73 73 61  67 65 5f 71 75 69 74 25  |..3message_quit%|
00002480  3d 30 3a 6d 65 73 73 61  67 65 5f 73 61 76 65 25  |=0:message_save%|
00002490  3d 32 3a 6d 65 73 73 61  67 65 5f 6c 6f 61 64 25  |=2:message_load%|
000024a0  3d 33 0d 15 04 21 6d 6f  75 73 65 5f 62 75 74 74  |=3...!mouse_butt|
000024b0  6f 6e 25 3d 32 3a 73 61  76 65 5f 65 76 65 6e 74  |on%=2:save_event|
000024c0  25 3d 30 0d 15 0e 20 74  6f 70 5f 6c 69 6e 65 25  |%=0... top_line%|
000024d0  3d 30 20 3a 20 62 6f 74  74 6f 6d 5f 6c 69 6e 65  |=0 : bottom_line|
000024e0  25 3d 30 0d 15 18 05 e1  0d 15 22 05 3a 0d 15 2c  |%=0.......".:..,|
000024f0  11 dd 20 f2 57 69 6d 70  5f 45 72 72 6f 72 0d 15  |.. .Wimp_Error..|
00002500  36 0a ea 58 24 2c 78 25  0d 15 40 09 ee 20 85 20  |6..X$,x%..@.. . |
00002510  87 0d 15 4a 08 78 25 3d  9e 0d 15 54 1b 58 24 3d  |...J.x%=...T.X$=|
00002520  f6 24 2b 22 61 74 6c 69  6e 65 22 2b c3 28 78 25  |.$+"atline"+.(x%|
00002530  81 31 30 29 0d 15 5e 10  de 45 72 72 6f 72 4d 73  |.10)..^..ErrorMs|
00002540  67 25 33 36 0d 15 68 45  45 72 72 6f 72 4d 73 67  |g%36..hEErrorMsg|
00002550  25 21 30 3d 33 36 3a 45  72 72 6f 72 4d 73 67 25  |%!0=36:ErrorMsg%|
00002560  21 31 32 3d 30 3a 45 72  72 6f 72 4d 73 67 25 21  |!12=0:ErrorMsg%!|
00002570  31 36 3d 26 38 31 30 38  30 3a 45 72 72 6f 72 4d  |16=&81080:ErrorM|
00002580  73 67 25 21 32 30 3d 78  25 0d 15 72 1f 24 28 45  |sg%!20=x%..r.$(E|
00002590  72 72 6f 72 4d 73 67 25  2b 32 34 29 3d 22 21 52  |rrorMsg%+24)="!R|
000025a0  75 6e 49 6d 61 67 65 22  0d 15 7c 25 c8 99 22 57  |unImage"..|%.."W|
000025b0  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
000025c0  2c 31 37 2c 45 72 72 6f  72 4d 73 67 25 0d 15 86  |,17,ErrorMsg%...|
000025d0  1f f2 57 69 6d 70 5f 57  69 6e 64 6f 77 41 6c 65  |..Wimp_WindowAle|
000025e0  72 74 28 74 61 73 6b 24  2c 58 24 29 0d 15 90 13  |rt(task$,X$)....|
000025f0  f2 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 0d  |.Wimp_CloseDown.|
00002600  15 9a 05 e1 0d 15 a4 05  3a 0d 15 ae 15 dd 20 f2  |........:..... .|
00002610  57 69 6d 70 5f 43 6c 6f  73 65 44 6f 77 6e 0d 15  |Wimp_CloseDown..|
00002620  b8 23 c8 99 22 57 69 6d  70 5f 43 6c 6f 73 65 44  |.#.."Wimp_CloseD|
00002630  6f 77 6e 22 2c 74 61 73  6b 25 2c 22 54 41 53 4b  |own",task%,"TASK|
00002640  22 0d 15 c2 05 e1 0d 15  cc 05 3a 0d 15 d6 10 dd  |".........:.....|
00002650  20 f2 57 69 6d 70 5f 51  75 69 74 0d 15 e0 0f 66  | .Wimp_Quit....f|
00002660  69 6e 69 73 68 65 64 25  3d b9 0d 15 ea 05 e1 0d  |inished%=.......|
00002670  15 f4 05 3a 0d 15 fe 23  dd 20 a4 57 69 6d 70 5f  |...:...#. .Wimp_|
00002680  52 65 61 64 56 61 72 69  61 62 6c 65 28 56 61 72  |ReadVariable(Var|
00002690  69 61 62 6c 65 24 29 0d  16 08 1b ea 6c 65 6e 25  |iable$).....len%|
000026a0  2c 72 65 73 75 6c 74 25  2c 76 61 72 69 61 62 6c  |,result%,variabl|
000026b0  65 25 0d 16 12 14 24 77  69 6d 70 25 3d 56 61 72  |e%....$wimp%=Var|
000026c0  69 61 62 6c 65 24 0d 16  1c 33 c8 99 22 4f 53 5f  |iable$...3.."OS_|
000026d0  52 65 61 64 56 61 72 56  61 6c 22 2c 77 69 6d 70  |ReadVarVal",wimp|
000026e0  25 2c 77 69 6d 70 25 2b  32 35 35 2c 32 35 35 2c  |%,wimp%+255,255,|
000026f0  2c 33 b8 2c 2c 6c 65 6e  25 0d 16 26 17 77 69 6d  |,3.,,len%..&.wim|
00002700  70 25 3f 28 6c 65 6e 25  2b 32 35 35 29 3d 31 33  |p%?(len%+255)=13|
00002710  0d 16 30 11 3d 24 28 77  69 6d 70 25 2b 32 35 35  |..0.=$(wimp%+255|
00002720  29 0d 16 4e 05 3a 0d 16  58 18 dd 20 f2 57 69 6d  |)..N.:..X.. .Wim|
00002730  70 5f 57 61 69 74 46 6f  72 45 76 65 6e 74 0d 16  |p_WaitForEvent..|
00002740  62 12 ea 20 6d 61 73 6b  25 2c 65 76 65 6e 74 25  |b.. mask%,event%|
00002750  0d 16 6c 0f 66 69 6e 69  73 68 65 64 25 3d a3 0d  |..l.finished%=..|
00002760  16 76 17 6d 61 73 6b 25  3d 25 31 31 31 30 30 30  |.v.mask%=%111000|
00002770  30 31 31 30 30 31 0d 16  80 05 f5 0d 16 8a 27 20  |011001........' |
00002780  c8 99 22 57 69 6d 70 5f  50 6f 6c 6c 22 2c 6d 61  |.."Wimp_Poll",ma|
00002790  73 6b 25 2c 77 69 6d 70  25 20 b8 20 65 76 65 6e  |sk%,wimp% . even|
000027a0  74 25 0d 16 94 10 20 c8  8e 20 65 76 65 6e 74 25  |t%.... .. event%|
000027b0  20 ca 0d 16 a8 1f 20 20  c9 31 20 3a 20 f2 57 69  | .....  .1 : .Wi|
000027c0  6d 70 5f 50 6f 6c 6c 44  72 61 77 57 69 6e 64 6f  |mp_PollDrawWindo|
000027d0  77 0d 16 b2 26 20 20 c9  32 20 3a 20 c8 99 20 22  |w...&  .2 : .. "|
000027e0  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
000027f0  2c 2c 77 69 6d 70 25 0d  16 bc 20 20 20 c9 33 20  |,,wimp%...   .3 |
00002800  3a 20 f2 57 69 6d 70 5f  50 6f 6c 6c 43 6c 6f 73  |: .Wimp_PollClos|
00002810  65 57 69 6e 64 6f 77 0d  16 da 1f 20 20 c9 36 20  |eWindow....  .6 |
00002820  3a 20 f2 57 69 6d 70 5f  50 6f 6c 6c 4d 6f 75 73  |: .Wimp_PollMous|
00002830  65 43 6c 69 63 6b 0d 16  e4 20 20 20 c9 37 20 3a  |eClick...   .7 :|
00002840  20 f2 57 69 6d 70 5f 50  6f 6c 6c 53 61 76 65 4d  | .Wimp_PollSaveM|
00002850  65 73 73 61 67 65 0d 16  ee 1d 20 20 c9 38 20 3a  |essage....  .8 :|
00002860  20 f2 57 69 6d 70 5f 50  6f 6c 6c 4b 65 79 50 72  | .Wimp_PollKeyPr|
00002870  65 73 73 0d 16 f8 23 20  20 c9 39 20 3a 20 f2 45  |ess...#  .9 : .E|
00002880  76 65 6e 74 5f 4d 65 6e  75 43 68 6f 69 63 65 28  |vent_MenuChoice(|
00002890  6d 65 6e 75 25 29 0d 17  20 20 20 20 c9 31 37 2c  |menu%)..    .17,|
000028a0  31 38 3a 20 f2 57 69 6d  70 5f 50 6f 6c 6c 4d 65  |18: .Wimp_PollMe|
000028b0  73 73 61 67 65 73 0d 17  34 06 20 cb 0d 17 3e 0f  |ssages..4. ...>.|
000028c0  fd 20 66 69 6e 69 73 68  65 64 25 0d 17 48 05 e1  |. finished%..H..|
000028d0  0d 17 52 05 3a 0d 17 5c  1a dd 20 f2 57 69 6d 70  |..R.:..\.. .Wimp|
000028e0  5f 50 6f 6c 6c 44 72 61  77 57 69 6e 64 6f 77 0d  |_PollDrawWindow.|
000028f0  17 66 0b ea 20 6d 6f 72  65 25 0d 17 70 26 c8 99  |.f.. more%..p&..|
00002900  22 57 69 6d 70 5f 52 65  64 72 61 77 57 69 6e 64  |"Wimp_RedrawWind|
00002910  6f 77 22 2c 2c 77 69 6d  70 25 b8 6d 6f 72 65 25  |ow",,wimp%.more%|
00002920  0d 17 7a 13 77 69 6e 64  6f 77 25 3d 77 69 6d 70  |..z.window%=wimp|
00002930  25 21 30 0d 17 84 41 78  5f 6f 72 69 67 69 6e 25  |%!0...Ax_origin%|
00002940  3d 31 36 2b 77 69 6d 70  25 21 34 2d 77 69 6d 70  |=16+wimp%!4-wimp|
00002950  25 21 32 30 3a 79 5f 6f  72 69 67 69 6e 25 3d 2d  |%!20:y_origin%=-|
00002960  31 36 2b 77 69 6d 70 25  21 31 36 2d 77 69 6d 70  |16+wimp%!16-wimp|
00002970  25 21 32 34 0d 17 8e 0b  c8 95 6d 6f 72 65 25 0d  |%!24......more%.|
00002980  17 98 30 20 e7 20 69 6e  74 65 72 66 61 63 65 25  |..0 . interface%|
00002990  20 8c 20 c8 99 22 57 69  6d 70 5f 42 6f 72 64 65  | . .."Wimp_Borde|
000029a0  72 57 69 6e 64 6f 77 22  2c 2c 77 69 6d 70 25 0d  |rWindow",,wimp%.|
000029b0  17 a2 2d 20 f2 45 76 65  6e 74 5f 44 72 61 77 28  |..- .Event_Draw(|
000029c0  77 69 6e 64 6f 77 25 2c  78 5f 6f 72 69 67 69 6e  |window%,x_origin|
000029d0  25 2c 79 5f 6f 72 69 67  69 6e 25 29 0d 17 ac 27  |%,y_origin%)...'|
000029e0  20 c8 99 22 57 69 6d 70  5f 47 65 74 52 65 63 74  | .."Wimp_GetRect|
000029f0  61 6e 67 6c 65 22 2c 2c  77 69 6d 70 25 b8 6d 6f  |angle",,wimp%.mo|
00002a00  72 65 25 0d 17 b6 05 ce  0d 17 c0 05 e1 0d 17 ca  |re%.............|
00002a10  05 3a 0d 17 d4 1b dd 20  f2 57 69 6d 70 5f 50 6f  |.:..... .Wimp_Po|
00002a20  6c 6c 43 6c 6f 73 65 57  69 6e 64 6f 77 0d 17 de  |llCloseWindow...|
00002a30  25 20 20 c8 99 20 22 57  69 6d 70 5f 47 65 74 50  |%  .. "Wimp_GetP|
00002a40  6f 69 6e 74 65 72 49 6e  66 6f 22 2c 2c 77 69 6d  |ointerInfo",,wim|
00002a50  70 25 0d 17 e8 29 20 20  77 69 6e 64 6f 77 25 3d  |p%...)  window%=|
00002a60  77 69 6d 70 25 21 31 32  20 3a 20 62 75 74 74 6f  |wimp%!12 : butto|
00002a70  6e 73 25 3d 77 69 6d 70  25 21 38 0d 17 f2 29 20  |ns%=wimp%!8...) |
00002a80  f2 45 76 65 6e 74 5f 57  69 6e 64 6f 77 43 6c 6f  |.Event_WindowClo|
00002a90  73 65 28 77 69 6e 64 6f  77 25 2c 62 75 74 74 6f  |se(window%,butto|
00002aa0  6e 73 25 29 0d 17 fc 32  20 21 77 69 6d 70 25 3d  |ns%)...2 !wimp%=|
00002ab0  77 69 6e 64 6f 77 25 20  3a 20 c8 99 20 22 57 69  |window% : .. "Wi|
00002ac0  6d 70 5f 43 6c 6f 73 65  57 69 6e 64 6f 77 22 2c  |mp_CloseWindow",|
00002ad0  2c 77 69 6d 70 25 0d 18  06 05 e1 0d 18 10 05 3a  |,wimp%.........:|
00002ae0  0d 18 1a 1a dd 20 f2 57  69 6d 70 5f 50 6f 6c 6c  |..... .Wimp_Poll|
00002af0  4d 6f 75 73 65 43 6c 69  63 6b 0d 18 24 4a 20 62  |MouseClick..$J b|
00002b00  75 74 74 6f 6e 25 3d 77  69 6d 70 25 21 38 3a 77  |utton%=wimp%!8:w|
00002b10  69 6e 64 6f 77 25 3d 77  69 6d 70 25 21 31 32 3a  |indow%=wimp%!12:|
00002b20  69 63 6f 6e 25 3d 77 69  6d 70 25 21 31 36 3a 78  |icon%=wimp%!16:x|
00002b30  25 3d 77 69 6d 70 25 21  30 3a 79 25 3d 77 69 6d  |%=wimp%!0:y%=wim|
00002b40  70 25 21 34 0d 18 2e 11  20 c8 8e 20 62 75 74 74  |p%!4.... .. butt|
00002b50  6f 6e 25 20 ca 0d 18 38  22 20 20 20 c9 32 20 20  |on% ...8"   .2  |
00002b60  20 20 3a 20 f2 57 69 6d  70 5f 50 6f 6c 6c 4d 65  |  : .Wimp_PollMe|
00002b70  6e 75 50 6f 70 55 70 0d  18 42 23 20 20 20 7f 3a  |nuPopUp..B#   .:|
00002b80  20 c8 8e 20 a4 45 76 65  6e 74 5f 53 61 76 65 28  | .. .Event_Save(|
00002b90  77 69 6e 64 6f 77 25 29  20 ca 0d 18 4c 2c 20 20  |window%) ...L,  |
00002ba0  20 20 20 20 20 20 20 20  20 20 20 20 20 c9 20 b9  |             . .|
00002bb0  20 3a 20 f2 57 69 6d 70  5f 50 6f 6c 6c 4d 6f 75  | : .Wimp_PollMou|
00002bc0  73 65 53 61 76 65 0d 18  56 31 20 20 20 20 20 20  |seSave..V1      |
00002bd0  20 20 20 20 20 20 20 20  20 c9 20 a3 3a 20 f2 57  |         . .: .W|
00002be0  69 6d 70 5f 50 6f 6c 6c  45 76 65 6e 74 4d 6f 75  |imp_PollEventMou|
00002bf0  73 65 43 6c 69 63 6b 0d  18 60 13 20 20 20 20 20  |seClick..`.     |
00002c00  20 20 20 20 20 20 20 20  20 cb 0d 18 6a 06 20 cb  |         ...j. .|
00002c10  0d 18 74 05 e1 0d 18 7e  05 3a 0d 18 88 19 dd 20  |..t....~.:..... |
00002c20  f2 57 69 6d 70 5f 50 6f  6c 6c 4d 65 6e 75 50 6f  |.Wimp_PollMenuPo|
00002c30  70 55 70 0d 18 92 1e 6d  65 6e 75 25 3d a4 45 76  |pUp....menu%=.Ev|
00002c40  65 6e 74 5f 4d 65 6e 75  28 77 69 6e 64 6f 77 25  |ent_Menu(window%|
00002c50  29 0d 18 9c 11 20 20 c8  8e 20 6d 65 6e 75 25 20  |)....  .. menu% |
00002c60  20 ca 0d 18 a6 0b 20 20  20 c9 20 a3 3a 0d 18 b0  | .....   . .:...|
00002c70  0a 20 20 20 7f 20 3a 0d  18 ba 15 20 20 20 20 20  |.   . :....     |
00002c80  c8 8e 20 77 69 6e 64 6f  77 25 20 ca 0d 18 c4 17  |.. window% .....|
00002c90  20 20 20 20 20 20 c9 20  2d 32 20 20 20 3a 20 6e  |      . -2   : n|
00002ca0  25 3d 30 0d 18 ce 32 20  20 20 20 20 20 20 20 c8  |%=0...2        .|
00002cb0  95 20 28 28 42 61 72 5f  4d 65 6e 75 25 21 28 34  |. ((Bar_Menu%!(4|
00002cc0  2b 6e 25 2a 32 34 29 29  80 25 31 30 30 30 30 30  |+n%*24)).%100000|
00002cd0  30 30 29 3d 30 0d 18 d8  12 20 20 20 20 20 20 20  |00)=0....       |
00002ce0  20 20 6e 25 2b 3d 31 0d  18 e2 0d 20 20 20 20 20  |  n%+=1....     |
00002cf0  20 20 20 ce 0d 18 ec 41  20 20 20 20 20 20 20 20  |   ....A        |
00002d00  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |.. "Wimp_CreateM|
00002d10  65 6e 75 22 2c 2c 42 61  72 5f 4d 65 6e 75 25 2c  |enu",,Bar_Menu%,|
00002d20  78 25 2d 36 34 2c 39 36  2b 6e 25 2a 34 34 2b 28  |x%-64,96+n%*44+(|
00002d30  32 34 2a 32 29 0d 18 f6  34 20 20 20 20 20 20 7f  |24*2)...4      .|
00002d40  20 3a 20 c8 99 22 57 69  6d 70 5f 43 72 65 61 74  | : .."Wimp_Creat|
00002d50  65 4d 65 6e 75 22 2c 2c  6d 65 6e 75 25 2c 78 25  |eMenu",,menu%,x%|
00002d60  2d 36 34 2c 79 25 2b 32  30 0d 19 00 0a 20 20 20  |-64,y%+20....   |
00002d70  20 20 cb 0d 19 0a 07 20  20 cb 0d 19 14 05 e1 0d  |  .....  .......|
00002d80  19 1e 05 3a 0d 19 28 19  dd 20 f2 57 69 6d 70 5f  |...:..(.. .Wimp_|
00002d90  50 6f 6c 6c 4d 6f 75 73  65 53 61 76 65 0d 19 32  |PollMouseSave..2|
00002da0  0f 20 c8 8e 20 69 63 6f  6e 25 20 ca 0d 19 3c 38  |. .. icon% ...<8|
00002db0  20 20 c9 20 30 20 3a 20  e7 20 62 75 74 74 6f 6e  |  . 0 : . button|
00002dc0  25 20 80 20 26 35 30 20  8c 20 f2 57 69 6d 70 5f  |% . &50 . .Wimp_|
00002dd0  50 6f 6c 6c 44 72 61 67  42 6f 78 28 77 69 6e 64  |PollDragBox(wind|
00002de0  6f 77 25 29 0d 19 46 38  20 20 c9 20 32 20 3a 20  |ow%)..F8  . 2 : |
00002df0  e7 20 62 75 74 74 6f 6e  25 20 80 20 35 20 8c 20  |. button% . 5 . |
00002e00  20 f2 57 69 6d 70 5f 50  6f 6c 6c 53 61 76 65 46  | .Wimp_PollSaveF|
00002e10  69 6c 65 28 77 69 6e 64  6f 77 25 29 0d 19 50 06  |ile(window%)..P.|
00002e20  20 cb 0d 19 5a 05 e1 0d  19 64 05 3a 0d 19 6e 1f  | ...Z....d.:..n.|
00002e30  dd 20 f2 57 69 6d 70 5f  50 6f 6c 6c 45 76 65 6e  |. .Wimp_PollEven|
00002e40  74 4d 6f 75 73 65 43 6c  69 63 6b 0d 19 78 2e 20  |tMouseClick..x. |
00002e50  e7 20 69 6e 74 65 72 66  61 63 65 25 20 8c 20 c8  |. interface% . .|
00002e60  99 22 57 69 6d 70 5f 42  6f 72 64 65 72 49 63 6f  |."Wimp_BorderIco|
00002e70  6e 22 2c 2c 77 69 6d 70  25 0d 19 82 33 20 f2 45  |n",,wimp%...3 .E|
00002e80  76 65 6e 74 5f 4d 6f 75  73 65 43 6c 69 63 6b 28  |vent_MouseClick(|
00002e90  77 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 2c 62 75  |window%,icon%,bu|
00002ea0  74 74 6f 6e 25 2c 78 25  2c 79 25 29 0d 19 8c 15  |tton%,x%,y%)....|
00002eb0  20 c8 8e 20 20 69 6e 74  65 72 66 61 63 65 25 20  | ..  interface% |
00002ec0  ca 0d 19 96 0b 20 20 c9  20 b9 20 3a 0d 19 a0 28  |.....  . . :...(|
00002ed0  20 20 20 77 69 6d 70 25  21 30 3d 78 25 3a 77 69  |   wimp%!0=x%:wi|
00002ee0  6d 70 25 21 34 3d 79 25  20 3a 20 77 69 6d 70 25  |mp%!4=y% : wimp%|
00002ef0  21 38 3d 30 0d 19 aa 28  20 20 20 77 69 6d 70 25  |!8=0...(   wimp%|
00002f00  21 31 32 3d 77 69 6e 64  6f 77 25 20 3a 20 77 69  |!12=window% : wi|
00002f10  6d 70 25 21 31 36 3d 69  63 6f 6e 25 0d 19 b4 21  |mp%!16=icon%...!|
00002f20  20 20 20 c8 99 22 57 69  6d 70 5f 42 6f 72 64 65  |   .."Wimp_Borde|
00002f30  72 49 63 6f 6e 22 2c 2c  77 69 6d 70 25 0d 19 be  |rIcon",,wimp%...|
00002f40  06 20 cb 0d 19 c8 05 e1  0d 19 d2 05 3a 0d 19 dc  |. ..........:...|
00002f50  21 dd 20 f2 57 69 6d 70  5f 50 6f 6c 6c 53 61 76  |!. .Wimp_PollSav|
00002f60  65 46 69 6c 65 28 77 69  6e 64 6f 77 25 29 0d 19  |eFile(window%)..|
00002f70  e6 0a ea 66 69 6c 65 24  0d 19 f0 40 20 77 69 6d  |...file$...@ wim|
00002f80  70 25 21 30 3d 77 69 6e  64 6f 77 25 20 3a 20 77  |p%!0=window% : w|
00002f90  69 6d 70 25 21 34 3d 31  20 3a 20 c8 99 20 22 57  |imp%!4=1 : .. "W|
00002fa0  69 6d 70 5f 47 65 74 49  63 6f 6e 53 74 61 74 65  |imp_GetIconState|
00002fb0  22 2c 2c 77 69 6d 70 25  0d 19 fa 16 20 66 69 6c  |",,wimp%.... fil|
00002fc0  65 24 3d 24 28 77 69 6d  70 25 21 32 38 29 0d 1a  |e$=$(wimp%!28)..|
00002fd0  04 15 20 c8 8e 20 a7 66  69 6c 65 24 2c 22 2e 22  |.. .. .file$,"."|
00002fe0  29 20 ca 0d 1a 0e 0d 20  20 c9 20 30 20 20 20 3a  |) .....  . 0   :|
00002ff0  0d 1a 18 40 20 20 20 24  28 77 69 6d 70 25 2b 34  |...@   $(wimp%+4|
00003000  29 3d 22 54 6f 20 73 61  76 65 2c 20 64 72 61 67  |)="To save, drag|
00003010  20 74 68 65 20 69 63 6f  6e 20 74 6f 20 61 20 64  | the icon to a d|
00003020  69 72 65 63 74 6f 72 79  20 77 69 6e 64 6f 77 22  |irectory window"|
00003030  0d 1a 22 2b 20 20 20 c8  99 20 22 57 69 6d 70 5f  |.."+   .. "Wimp_|
00003040  52 65 70 6f 72 74 45 72  72 6f 72 22 2c 77 69 6d  |ReportError",wim|
00003050  70 25 2c 31 36 2c 74 61  73 6b 24 0d 1a 2c 08 20  |p%,16,task$..,. |
00003060  20 7f 3a 0d 1a 36 25 20  20 20 f2 45 76 65 6e 74  | .:..6%   .Event|
00003070  5f 53 61 76 65 46 69 6c  65 28 66 69 6c 65 24 2c  |_SaveFile(file$,|
00003080  77 69 6e 64 6f 77 25 29  0d 1a 40 06 20 cb 0d 1a  |window%)..@. ...|
00003090  4a 1b 20 c8 99 22 57 69  6d 70 5f 43 72 65 61 74  |J. .."Wimp_Creat|
000030a0  65 4d 65 6e 75 22 2c 2d  31 0d 1a 54 05 e1 0d 1a  |eMenu",-1..T....|
000030b0  5e 05 3a 0d 1a 68 20 dd  20 f2 57 69 6d 70 5f 50  |^.:..h . .Wimp_P|
000030c0  6f 6c 6c 44 72 61 67 42  6f 78 28 77 69 6e 64 6f  |ollDragBox(windo|
000030d0  77 25 29 0d 1a 72 0a ea  78 25 2c 79 25 0d 1a 7c  |w%)..r..x%,y%..||
000030e0  12 20 73 61 76 65 25 3d  77 69 6e 64 6f 77 25 0d  |. save%=window%.|
000030f0  1a 86 13 20 21 77 69 6d  70 25 3d 77 69 6e 64 6f  |... !wimp%=windo|
00003100  77 25 0d 1a 90 23 20 c8  99 22 57 69 6d 70 5f 47  |w%...# .."Wimp_G|
00003110  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
00003120  77 69 6d 70 25 0d 1a 9a  2d 20 78 25 3d 77 69 6d  |wimp%...- x%=wim|
00003130  70 25 21 34 2d 77 69 6d  70 25 21 32 30 3a 79 25  |p%!4-wimp%!20:y%|
00003140  3d 77 69 6d 70 25 21 31  36 2d 77 69 6d 70 25 21  |=wimp%!16-wimp%!|
00003150  32 34 0d 1a a4 0e 20 77  69 6d 70 25 21 34 3d 30  |24.... wimp%!4=0|
00003160  0d 1a ae 21 20 c8 99 22  57 69 6d 70 5f 47 65 74  |...! .."Wimp_Get|
00003170  49 63 6f 6e 53 74 61 74  65 22 2c 2c 77 69 6d 70  |IconState",,wimp|
00003180  25 0d 1a b8 13 20 21 77  69 6d 70 25 3d 77 69 6e  |%.... !wimp%=win|
00003190  64 6f 77 25 0d 1a c2 0e  20 77 69 6d 70 25 21 34  |dow%.... wimp%!4|
000031a0  3d 35 0d 1a cc 2c 20 77  69 6d 70 25 21 38 3d 78  |=5..., wimp%!8=x|
000031b0  25 2b 77 69 6d 70 25 21  38 3a 77 69 6d 70 25 21  |%+wimp%!8:wimp%!|
000031c0  31 32 3d 79 25 2b 77 69  6d 70 25 21 31 32 0d 1a  |12=y%+wimp%!12..|
000031d0  d6 2e 20 77 69 6d 70 25  21 31 36 3d 78 25 2b 77  |.. wimp%!16=x%+w|
000031e0  69 6d 70 25 21 31 36 3a  77 69 6d 70 25 21 32 30  |imp%!16:wimp%!20|
000031f0  3d 79 25 2b 77 69 6d 70  25 21 32 30 0d 1a e0 1a  |=y%+wimp%!20....|
00003200  20 77 69 6d 70 25 21 32  34 3d 30 3a 77 69 6d 70  | wimp%!24=0:wimp|
00003210  25 21 32 38 3d 30 0d 1a  ea 2a 20 77 69 6d 70 25  |%!28=0...* wimp%|
00003220  21 33 32 3d 26 37 46 46  46 46 46 46 46 3a 77 69  |!32=&7FFFFFFF:wi|
00003230  6d 70 25 21 33 36 3d 26  37 46 46 46 46 46 46 46  |mp%!36=&7FFFFFFF|
00003240  0d 1a f4 1c 20 c8 99 22  57 69 6d 70 5f 44 72 61  |.... .."Wimp_Dra|
00003250  67 42 6f 78 22 2c 2c 77  69 6d 70 25 0d 1a fe 05  |gBox",,wimp%....|
00003260  e1 0d 1b 08 05 3a 0d 1b  12 18 dd 20 f2 57 69 6d  |.....:..... .Wim|
00003270  70 5f 50 6f 6c 6c 4b 65  79 50 72 65 73 73 0d 1b  |p_PollKeyPress..|
00003280  1c 31 20 20 77 69 6e 64  6f 77 25 3d 77 69 6d 70  |.1  window%=wimp|
00003290  25 21 30 3a 69 63 6f 6e  25 3d 77 69 6d 70 25 21  |%!0:icon%=wimp%!|
000032a0  34 3a 6b 65 79 25 3d 77  69 6d 70 25 21 32 34 0d  |4:key%=wimp%!24.|
000032b0  1b 26 1f 20 20 c8 8e 20  a4 45 76 65 6e 74 5f 53  |.&.  .. .Event_S|
000032c0  61 76 65 28 77 69 6e 64  6f 77 25 29 20 ca 0d 1b  |ave(window%) ...|
000032d0  30 28 20 20 20 c9 20 b9  20 3a 20 f2 57 69 6d 70  |0(   . . : .Wimp|
000032e0  50 6f 6c 6c 5f 53 61 76  65 46 69 6c 65 28 77 69  |Poll_SaveFile(wi|
000032f0  6e 64 6f 77 25 29 0d 1b  3a 2f 20 20 20 c9 20 a3  |ndow%)..:/   . .|
00003300  3a 20 f2 45 76 65 6e 74  5f 4b 65 79 50 72 65 73  |: .Event_KeyPres|
00003310  73 28 77 69 6e 64 6f 77  25 2c 69 63 6f 6e 25 2c  |s(window%,icon%,|
00003320  6b 65 79 25 29 0d 1b 44  07 20 20 cb 0d 1b 4e 05  |key%)..D.  ...N.|
00003330  e1 0d 1b 58 05 3a 0d 1b  62 1b dd 20 f2 57 69 6d  |...X.:..b.. .Wim|
00003340  70 5f 50 6f 6c 6c 53 61  76 65 4d 65 73 73 61 67  |p_PollSaveMessag|
00003350  65 0d 1b 6c 1e ea 66 69  6c 65 24 2c 77 69 6e 64  |e..l..file$,wind|
00003360  6f 77 25 2c 69 63 6f 6e  25 2c 78 25 2c 79 25 0d  |ow%,icon%,x%,y%.|
00003370  1b 76 23 20 c8 99 22 57  69 6d 70 5f 47 65 74 50  |.v# .."Wimp_GetP|
00003380  6f 69 6e 74 65 72 49 6e  66 6f 22 2c 2c 77 69 6d  |ointerInfo",,wim|
00003390  70 25 0d 1b 80 3a 20 77  69 6e 64 6f 77 25 3d 77  |p%...: window%=w|
000033a0  69 6d 70 25 21 31 32 3a  69 63 6f 6e 25 3d 77 69  |imp%!12:icon%=wi|
000033b0  6d 70 25 21 31 36 3a 78  25 3d 77 69 6d 70 25 21  |mp%!16:x%=wimp%!|
000033c0  30 3a 79 25 3d 77 69 6d  70 25 21 34 0d 1b 8a 3e  |0:y%=wimp%!4...>|
000033d0  20 77 69 6d 70 25 21 30  3d 73 61 76 65 25 20 3a  | wimp%!0=save% :|
000033e0  20 77 69 6d 70 25 21 34  3d 31 20 3a 20 c8 99 20  | wimp%!4=1 : .. |
000033f0  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00003400  74 65 22 2c 2c 77 69 6d  70 25 0d 1b 94 16 20 66  |te",,wimp%.... f|
00003410  69 6c 65 24 3d 24 28 77  69 6d 70 25 21 32 38 29  |ile$=$(wimp%!28)|
00003420  0d 1b 9e 2b 20 66 69 6c  65 24 3d a4 57 69 6d 70  |...+ file$=.Wimp|
00003430  5f 47 65 74 46 69 6c 65  46 72 6f 6d 50 61 74 68  |_GetFileFromPath|
00003440  6e 61 6d 65 28 66 69 6c  65 24 29 0d 1b a8 15 20  |name(file$).... |
00003450  77 69 6d 70 25 21 32 30  3d 77 69 6e 64 6f 77 25  |wimp%!20=window%|
00003460  0d 1b b2 13 20 77 69 6d  70 25 21 32 34 3d 69 63  |.... wimp%!24=ic|
00003470  6f 6e 25 0d 1b bc 1c 20  77 69 6d 70 25 21 32 38  |on%.... wimp%!28|
00003480  3d 78 25 3a 77 69 6d 70  25 21 33 32 3d 79 25 0d  |=x%:wimp%!32=y%.|
00003490  1b c6 15 20 77 69 6d 70  25 21 33 36 3d 6c 65 6e  |... wimp%!36=len|
000034a0  67 74 68 25 0d 1b d0 0f  20 77 69 6d 70 25 21 30  |gth%.... wimp%!0|
000034b0  3d 36 34 0d 1b da 0f 20  77 69 6d 70 25 21 31 32  |=64.... wimp%!12|
000034c0  3d 30 0d 1b e4 0f 20 77  69 6d 70 25 21 31 36 3d  |=0.... wimp%!16=|
000034d0  31 0d 1b ee 12 20 77 69  6d 70 25 21 34 30 3d 26  |1.... wimp%!40=&|
000034e0  46 46 46 0d 1b f8 16 20  24 28 77 69 6d 70 25 2b  |FFF.... $(wimp%+|
000034f0  34 34 29 3d 66 69 6c 65  24 0d 1c 02 34 20 c8 99  |44)=file$...4 ..|
00003500  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
00003510  65 22 2c 31 37 2c 77 69  6d 70 25 2c 77 69 6d 70  |e",17,wimp%,wimp|
00003520  25 21 32 30 2c 77 69 6d  70 25 21 32 34 0d 1c 0c  |%!20,wimp%!24...|
00003530  05 e1 0d 1c 16 05 3a 0d  1c 20 18 dd 20 f2 57 69  |......:.. .. .Wi|
00003540  6d 70 5f 50 6f 6c 6c 4d  65 73 73 61 67 65 73 0d  |mp_PollMessages.|
00003550  1c 2a 0b ea 20 66 69 6c  65 24 0d 1c 34 2c 66 69  |.*.. file$..4,fi|
00003560  6c 65 24 3d a4 57 69 6d  70 5f 47 65 74 53 74 72  |le$=.Wimp_GetStr|
00003570  69 6e 67 41 74 41 64 64  72 65 73 73 28 77 69 6d  |ingAtAddress(wim|
00003580  70 25 2b 34 34 29 0d 1c  3e 15 20 20 20 20 c8 8e  |p%+44)..>.    ..|
00003590  20 77 69 6d 70 25 21 31  36 20 ca 0d 1c 48 1a 20  | wimp%!16 ...H. |
000035a0  20 20 20 20 c9 20 30 20  3a 20 66 69 6e 69 73 68  |    . 0 : finish|
000035b0  65 64 25 3d b9 0d 1c 52  0e 20 20 20 20 20 c9 20  |ed%=...R.     . |
000035c0  31 20 3a 0d 1c 5c 0e 20  20 20 20 20 c9 20 32 20  |1 :..\.     . 2 |
000035d0  3a 0d 1c 66 2f 20 20 20  20 20 20 f4 20 50 52 4f  |:..f/      . PRO|
000035e0  43 57 69 6d 70 5f 49 63  6f 6e 50 75 74 54 65 78  |CWimp_IconPutTex|
000035f0  74 28 73 61 76 65 25 2c  31 2c 66 69 6c 65 24 29  |t(save%,1,file$)|
00003600  0d 1c 70 43 20 20 20 20  20 20 77 69 6d 70 25 21  |..pC      wimp%!|
00003610  30 3d 73 61 76 65 25 20  3a 20 77 69 6d 70 25 21  |0=save% : wimp%!|
00003620  34 3d 31 20 3a 20 c8 99  20 22 57 69 6d 70 5f 47  |4=1 : .. "Wimp_G|
00003630  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 77 69  |etIconState",,wi|
00003640  6d 70 25 0d 1c 7a 1b 20  20 20 20 20 20 24 28 77  |mp%..z.      $(w|
00003650  69 6d 70 25 21 32 38 29  3d 66 69 6c 65 24 0d 1c  |imp%!28)=file$..|
00003660  84 3c 20 20 20 20 20 20  77 69 6d 70 25 21 30 3d  |.<      wimp%!0=|
00003670  73 61 76 65 25 20 3a 20  77 69 6d 70 25 21 34 3d  |save% : wimp%!4=|
00003680  31 20 3a 20 77 69 6d 70  25 21 38 3d 30 20 3a 20  |1 : wimp%!8=0 : |
00003690  77 69 6d 70 25 21 31 32  3d 30 0d 1c 8e 27 20 20  |wimp%!12=0...'  |
000036a0  20 20 20 20 c8 99 20 22  57 69 6d 70 5f 53 65 74  |    .. "Wimp_Set|
000036b0  49 63 6f 6e 53 74 61 74  65 22 2c 2c 77 69 6d 70  |IconState",,wimp|
000036c0  25 0d 1c 98 30 20 20 20  20 20 20 f4 20 50 52 4f  |%...0      . PRO|
000036d0  43 57 69 6d 70 5f 49 63  6f 6e 43 61 72 65 74 28  |CWimp_IconCaret(|
000036e0  73 61 76 65 25 2c 31 2c  4c 45 4e 66 69 6c 65 24  |save%,1,LENfile$|
000036f0  29 0d 1c a2 38 20 20 20  20 20 20 c8 99 20 22 57  |)...8      .. "W|
00003700  69 6d 70 5f 53 65 74 43  61 72 65 74 50 6f 73 69  |imp_SetCaretPosi|
00003710  74 69 6f 6e 22 2c 73 61  76 65 25 2c 31 2c 2c 2c  |tion",save%,1,,,|
00003720  2d 31 2c a9 66 69 6c 65  24 0d 1c ac 26 20 20 20  |-1,.file$...&   |
00003730  20 20 20 f2 45 76 65 6e  74 5f 53 61 76 65 46 69  |   .Event_SaveFi|
00003740  6c 65 28 66 69 6c 65 24  2c 73 61 76 65 25 29 0d  |le(file$,save%).|
00003750  1c b6 0c 20 20 20 20 20  c9 20 33 0d 1c c0 47 20  |...     . 3...G |
00003760  20 20 20 20 20 74 79 70  65 24 3d a4 57 69 6d 70  |     type$=.Wimp|
00003770  5f 46 69 6c 65 54 79 70  65 28 77 69 6d 70 25 21  |_FileType(wimp%!|
00003780  34 30 29 20 3a 20 f2 45  76 65 6e 74 5f 4c 6f 61  |40) : .Event_Loa|
00003790  64 46 69 6c 65 28 66 69  6c 65 24 2c 74 79 70 65  |dFile(file$,type|
000037a0  24 29 0d 1c ca 09 20 20  20 20 cb 0d 1c d4 05 e1  |$)....    ......|
000037b0  0d 1c de 05 3a 0d 1c e8  26 dd 20 a4 57 69 6d 70  |....:...&. .Wimp|
000037c0  5f 47 65 74 53 74 72 69  6e 67 41 74 41 64 64 72  |_GetStringAtAddr|
000037d0  65 73 73 28 61 72 72 61  79 25 29 0d 1c f2 0d ea  |ess(array%).....|
000037e0  73 24 3a 73 24 3d 22 22  0d 1c fc 3c c8 95 28 3f  |s$:s$=""...<..(?|
000037f0  61 72 72 61 79 25 3c 3e  31 33 29 80 28 3f 61 72  |array%<>13).(?ar|
00003800  72 61 79 25 3c 3e 30 29  3a 73 24 2b 3d bd 28 3f  |ray%<>0):s$+=.(?|
00003810  61 72 72 61 79 25 29 3a  61 72 72 61 79 25 2b 3d  |array%):array%+=|
00003820  31 3a ce 3a 0d 1d 06 07  3d 73 24 0d 1d 10 05 3a  |1:.:....=s$....:|
00003830  0d ff                                             |..|
00003832

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .