5� Author S.Berry Aged 9 (C) Archimedes World 1993
%�Wimp_Start("SpacePaint",545,425)
�User_SetInitialData
(�Create_Windows
2�Create_Menus
<�Wimp_WaitForEvent
F�Wimp_CloseDown
P�
Z
d��User_SetInitialData
nZclear=�:COMP=1:COL=62:TIN=128:xxxxxx=50:yyyyyy=900:GRID=0:pos%=0:remake%=9310:SIZE=100
x�
�
���Create_Windows
�)Info_Window%=�Wimp_WindowLoad("Info")
�/Info2_Window%=�Wimp_WindowLoad("PHONE_NUM")
�&Bar_Icon%=�Wimp_IconBar("iconbar")
��
�
�ݤEvent_Save(window%)
�Ȏwindow%�
�
�:=�
��
�

��Create_Menus

MBar_Menu%=�Wimp_MenuCreate("SpacePaint\Info>Info_Window%\Main Help\Quit")

�

"

,ݤEvent_Menu(window%)

6Ȏwindow%�

@�Bar_Window%:=Bar_Menu%

J:=�

T�

^

h)��Event_WindowClose(window%,buttons%)

rȎwindow%�

|�

��

�

�-��Event_Draw(window%,x_origin%,y_origin%)

�Ȏwindow%�

�&�Info_Window%:�User_DrawInfoWindow

��

��

�

�

�3��Event_MouseClick(window%,icon%,button%,x%,y%)

�Ȏwindow%�

��Bar_Window%:�User_MouseBar

�0�Info_Window%:�User_MouseInfo(button%,icon%)
�
�

&��User_MouseBar
0	�main
:�
D
N#��User_MouseInfo(button%,icon%)
XE�Wimp_WindowAlert("Info","Mouse button="+�button%+"icon="+�icon%)
b�
l
v(��Event_KeyPress(window%,icon%,key%)
�Ȏwindow%�
��
��
�
���Event_MenuChoice(menu%)
�Ȏmenu%�
�"�Bar_Menu%:�User_MenuChoiceBar
��
��
�
���User_MenuChoiceBar
�Ȏ�Wimp_MenuChoice(0)�
��1

�2:�help3
�3:finished%=�
 �
*�
4
>!��Event_LoadFile(file$,type$)
H�
R
\#��Event_SaveFile(file$,window%)
fȎwindow%�
p@�Save_Window%:�Wimp_WindowAlert("Save","Saving file "+file$)
z�
��
�
�
�'��Wimp_WindowAlert(title$,message$)
�+�Wimp_WindowAlertBox(title$,message$,0)
��
�
�2��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%
8�
B
L(ݤWimp_WindowCancel(title$,message$)
V$(wimp%+4)=message$
`response%=23
j:ș"Wimp_ReportError",wimp%,response%,title$�,response%
t=response%-2
~
�*��Wimp_WindowErrorBox(title$,message$)
�+�Wimp_WindowAlertBox(title$,message$,2)
��
�
�ݤWimp_WindowTitle(window%)
�wimp%!0=window%
�ș"Wimp_GetWindInfo",,wimp%
�3�((wimp%!60)�&100)=0�1,"Title isn't indirected"
�=$(wimp%!76)
�
�ݤWimp_WindowLoad(window$)
�:=�Wimp_WindowLoadFrom(window$,"<SPACE$DIR>.Templates")


,ݤWimp_WindowLoadFrom(window$,template$)
�c%,i%,n%,j%,sp$,sp2$
$ș"Wimp_OpenTemplate",,template$
(Jș"Wimp_LoadTemplate",,wimp%,icons%,icon_memory%,-1,window$,0�,,icons%
2Ȏsprites%�
<�1:wimp%!64=sprites%
F&:wimp%!64=�Event_Sprites(window%)
P�
Z#ș"Wimp_CreateWindow",,wimp%�c%
dș"Wimp_CloseTemplate"
n6ș"Wimp_WhichIcon",c%,wimp%+40,1+2+(1<<8),2+(1<<8)
xȎwimp%!40�
��-1
�:i%=40
��
�wimp%!4=wimp%!i%:wimp%!0=c%
� ș"Wimp_GetIconState",,wimp%
�*sp$=�Wimp_GetStringAtAddress(wimp%!28)
�ș"Wimp_DeleteIcon",,wimp%
�Ȏsprites%�
��1:wimp%!32=1
�
�'ș"OS_SpriteOp",&108,sprites%�,,,n%
�j%=0
��:j%+=1
6ș"OS_SpriteOp",&10D,sprites%,pointer_block%,20,j%
1sp2$=�Wimp_GetStringAtAddress(pointer_block%)
�j%=n%�sp$=sp2$
"*�sp$=sp2$�wimp%!32=sprites%�wimp%!32=1
,�
6wimp%!4=c%
@(ș"Wimp_CreateIcon",,wimp%+4�handle%
J	i%+=4
T�(wimp%!i%)=-1
^�
h=c%
r
|$��Wimp_WindowBringToTop(window%)
�!wimp%=window%
�"ș"Wimp_GetWindowState",,wimp%
�wimp%!28=-1
�ș"Wimp_OpenWindow",,wimp%
��
�
���Wimp_WindowClose(window%)
�!wimp%=window%
�ș"Wimp_CloseWindow",,wimp%
��
�
�#��Wimp_WindowForceDraw(window%)
�Ȏwindow%�
1�-1:ș"Wimp_ForceRedraw",-1,0,0,2*1280,2*1024
5:ș"Wimp_ForceRedraw",window%,0,-2*1024,2*1280,0
�
&�
0
:��Wimp_WindowOpen(window%)
D!wimp%=window%
N"ș"Wimp_GetWindowState",,wimp%
Xș"Wimp_OpenWindow",,wimp%
b�
l
v�Wimp_WindowInterface
� ș"Wimp_BorderWindow",,wimp%
��
�
�
�ݤWimp_IconBar(Sprite$)
�
�icon%
�wimp%!0=-1
�wimp%!4=0:wimp%!8=0
�wimp%!12=100:wimp%!16=100
�wimp%!20=&3002
�$(wimp%+24)=Sprite$
�$ș"Wimp_CreateIcon",,wimp%�icon%
�
=icon%

*��Wimp_IconCaret(window%,icon%,chars%)
7ș"Wimp_SetCaretPosition",window%,icon%,,,-1,chars%
 �
*
4"ݤWimp_IconText(window%,icon%)
>!wimp%!0=window%:wimp%!4=icon%
H ș"Wimp_GetIconState",,wimp%
R2�((wimp%!24)�&100)=0�1,"Icon isn't indirected"
\=$(wimp%!28)
f
p(ݤWimp_IconValidation(window%,icon%)
z!wimp%!0=window%:wimp%!4=icon%
� ș"Wimp_GetIconState",,wimp%
�2�((wimp%!24)�&100)=0�1,"Icon isn't indirected"
�=$(wimp%!32)
�
�%��Wimp_IconDisable(window%,icon%)
�!wimp%!0=window%:wimp%!4=icon%
� wimp%!8=1<<22:wimp%!12=1<<22
� ș"Wimp_SetIconState",,wimp%
��
�
�$��Wimp_IconEnable(window%,icon%)
�!wimp%!0=window%:wimp%!4=icon%
�wimp%!8=0:wimp%!12=1<<22
	 ș"Wimp_SetIconState",,wimp%
	�
	
	$/ݤWimp_IconPutSprite(window%,icon%,sprite$)
	.!wimp%!0=window%:wimp%!4=icon%
	8 ș"Wimp_GetIconState",,wimp%
	Bș"Wimp_DeleteIcon",,wimp%
	L6wimp%!4=wimp%!8:wimp%!8=wimp%!12:wimp%!12=wimp%!16
	V;wimp%!16=wimp%!20:wimp%!20=wimp%!24:$(wimp%+24)=sprite$
	`$ș"Wimp_CreateIcon",,wimp%�icon%
	j
=icon%
	t
	~+��Wimp_IconPutText(window%,icon%,text$)
	�!wimp%!0=window%:wimp%!4=icon%
	� ș"Wimp_GetIconState",,wimp%
	�2�((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%
	��
	�
	���Wimp_IconInterfaceStart
	�ș"Wimp_BorderIcon",,wimp%
	��


��Wimp_IconInterfaceFinish

wimp%!8=0
ș"Wimp_BorderIcon",,wimp%
(�
2
<��Wimp_MenuAdjustOn(menu%)
F+ș"Wimp_GetPointerInfo",,pointer_block%
PZ�((pointer_block%!8)�1)=1�ș"Wimp_CreateMenu",,menu%,pointer_block%!0,pointer_block%!4
Z�
d
nݤWimp_MenuChoice(level%)
x=(wimp%!(4*level%))+1
�
�ݤWimp_MenuCreate(menu$)
�'�menu$="Colours"�=�Wimp_MenuColours
�&�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)
�#width%=�(�menu$,�menu$,"\")-1))
�"menu$+="\":Menu_NoOfEntries%=0
�ȕmenu$<>""
�menu$=�menu$,�menu$,"\")+1)
Ȏmenu$�
�""

"+!index%=0:index%!4=-1:index%!8=&7000021
,length%=�menu$,"\")-1
6k%=��menu$,length%),">")
@	Ȏk%�
J�0
T
^!s%=�(�menu$,k%+1,length%-k%))
hindex%!4=s%
rlength%=k%-1
|�
� $(index%+12)=�menu$,length%)
�"�length%>width%�width%=length%
�index%+=24
��
��
�menu%!16=16*(width%+1)
�$index%!-24=index%!-24�&80:=menu%
�
�ݤWimp_MenuColours
�!=�Wimp_MenuCreateColours(" ")
�
�$ݤWimp_MenuCreateColours(title$)
��x$,men%,j%,i%
6x$=title$+"\0\1\2\3\4\5\6\7\8\9\10\11\12\13\14\15"
men%=�Wimp_MenuCreate(x$)
�i%=0�15
&ȎTRUEOF
0%�i%<4,i%=9,i%=12,i%=14,i%=15:j%=7
:
:j%=0
D�
Nmen%?(39+i%*24)=i%*16+j%
X�Wimp_MenuCentre(men%,i%+1)
b�
l	=men%
v
�!ݤWimp_MenuNoOfEntries(menu$)
��n%,j%:n%=0:j%=0
��
�j%=�menu$,"\",j%+1)
��j%<>0�n%+=1
�	�j%=0
�=n%
�
�4��Wimp_MenuBackGroundColour(menu%,item%,colour%)
�
�fore%,i%
�&fore%=(menu%?(39+(item%-1)*24))�16
�(i%=((menu%?(39+(item%-1)*24))�16)�16
�/menu%?(39+(item%-1)*24)=fore%+16*colour%+i%

�



"��Wimp_MenuCentre(menu%,item%)

 :menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)�(1<<3)

*�

4

>��Wimp_MenuClose

Hș"Wimp_CreateMenu",-1

R�

\

f#��Wimp_MenuDisable(menu%,item%)

p;menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)�(1<<22)

z�

�

�&��Wimp_MenuDottedLine(menu%,item%)

�7menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))�2

��

�

�"��Wimp_MenuEnable(menu%,item%)

�"�Wimp_MenuDisable(menu%,item%)

�;menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)�(1<<22)

��

�

�4��Wimp_MenuForegroundColour(menu%,item%,colour%)

�Emenu%?(39+(item%-1)*24)=colour%+16*((menu%?(39+(item%-1)*24))�16)

��

(��Wimp_MenuGlue(menu1%,item%,menu2%)
menu1%!(8+item%*24)=menu2%
$�
.
8&��Wimp_MenuItem(menu%,item%,item$)
B,$(menu%+(40+(item%-1)*24))=�item$,12)+�0
L�
V
`#��Wimp_MenuMessage(menu%,item%)
j<menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))�(1<<3)
t�
~
�!��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
��
�1ș"Wimp_CreateMenu",,Bar_Menu%,x%-64,96+n%*44
�menu%=Bar_Menu%
�


 ��Wimp_MenuTick(menu%,item%)
7menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))�1
(�
2
<"��Wimp_MenuTitle(menu%,title$)
F$menu%=�title$,12)+�0
P�
Z
d<��Wimp_MenuWrite(menu%,item%,buffer%,val%,BufferLength%)
n7menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))�4
x8menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)�&100
�#menu%!(40+(item%-1)*24)=buffer%
� menu%!(44+(item%-1)*24)=val%
�)menu%!(48+(item%-1)*24)=BufferLength%
��
�
�
���Wimp_SpritesLoad
�0�Wimp_SpritesPathLoad("<SPACE$DIR>.Sprites")
�direct_sprites%=sprites%
��
�
�%��Wimp_SpritesPathLoad(pathname$)
�
�S%,T%
-S%=�"<SPACE$DIR>.Sprites":T%=�#S%+16:�#S%
�sprites%T%,spname%12
!sprites%=T%:sprites%!8=0
"!ș"OS_SpriteOp",&109,sprites%
,+ș"OS_SpriteOp",&10A,sprites%,pathname$
6�
@
JݤWimp_FileType(type%)
TȎtype%�
^�&FFF:="Text"
h�&FFD:="Data"
r�&FFB:="Basic"
|�&FF9:="Sprite"
��&FED:="Palette"
��&FEC:="Template"
��&AFF:="Draw"
��&1000:="Folder"
��&2000:="Application"
�=�~(type%)
��
�
�ݤWimp_GetFilePathName
�'=�Wimp_GetStringAtAddress(wimp%+44)
�
�ݤWimp_FileLoad(pathname$)
��S%,T%,file%
S%=�pathname$
T%=�#S%+16
�#S%
&�file%T%
0"�("LOAD"+pathname$+""+�~file%)
:
=file%
D;
N%ݤWimp_GetStringAtAddress(array%)
X
�s$:s$=""
b;ȕ(?array%<>13)�(?array%<>0):s$+=�(?array%):array%+=1:�
l=s$
v
�"ݤWimp_GetFileFromPathname(f$)
�Ȏ�f$,".")�
�
�0:=f$
�5:=�Wimp_GetFileFromPathname(�f$,�(f$)-�f$,".")))
��
�
���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%
#ș"Wimp_SendMessage",17,wimp%,0
 �
*.��Wimp_Start(TaskName$,wimp_memory%,icon%)
4"�wimp%wimp_memory%,icons%icon%
>&�wimp_memory%<256�wimp_memory%=256
Hicon_memory%=icons%+icon%
Rtask$=TaskName$
\)indirect_sprites%=1:direct_sprites%=1
f�Wimp_SetEventVariables
p��Wimp_Error:�
z>ș"Wimp_Initialise",200,&4B534154,TaskName$�version%,task%
��
�
�ݤWimp_BASICParameters
��com$,param$,I%
�ș"OS_GetEnv"�com$
�params$=""
�I%=�com$," -quit ")
�1�I%�params$=�com$,�com$," ",I%+�" -quit ")+1)
�=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
8!sprites%=1:version%=0:task%=0
B*Bar_Window%=-2:Bar_Icon%=0:Bar_Menu%=0
L*x_origin%=0:y_origin%=0:SaveWindow%=-3
V3message_quit%=0:message_save%=2:message_load%=3
`!mouse_button%=2:save_event%=0
jtop_line%=0:bottom_line%=0
t�
~
���Wimp_Error
�
�X$,x%
�
�x%=�
�X$=�$+"atline"+�(x%�10)
��ErrorMsg%36
�EErrorMsg%!0=36:ErrorMsg%!12=0:ErrorMsg%!16=&81080:ErrorMsg%!20=x%
�$(ErrorMsg%+24)="!RunImage"
�%ș"Wimp_SendMessage",17,ErrorMsg%
��Wimp_WindowAlert(task$,X$)
��Wimp_CloseDown
��


��Wimp_CloseDown
#ș"Wimp_CloseDown",task%,"TASK"
�
(
2��Wimp_Quit
<finished%=�
F�
P
Z"ݤWimp_ReadVariable(Variable$)
d�len%,result%,variable%
n$wimp%=Variable$
x3ș"OS_ReadVarVal",wimp%,wimp%+255,255,,3�,,len%
�wimp%?(len%+255)=13
�=$(wimp%+255)
���Wimp_WaitForEvent
��mask%,event%
�finished%=�
�mask%=%111000011001
��
�$ș"Wimp_Poll",mask%,wimp%�event%
�
Ȏevent%�
��0
��1:�Wimp_PollDrawWindow
�!�2:ș"Wimp_OpenWindow",,wimp%
��3:�Wimp_PollCloseWindow
�4
�5
�6:�Wimp_PollMouseClick
"�7:�Wimp_PollSaveMessage
,�8:�Wimp_PollKeyPress
6�9:�Event_MenuChoice(menu%)
@�10
J�11
T�12
^�17,18:�Wimp_PollMessages
h�19
r�
|�finished%
��
��
�
���Wimp_PollDrawWindow
�
�more%
�&ș"Wimp_RedrawWindow",,wimp%�more%
�window%=wimp%!0
�Ax_origin%=16+wimp%!4-wimp%!20:y_origin%=-16+wimp%!16-wimp%!24
�ȕmore%
�,�interface%�ș"Wimp_BorderWindow",,wimp%
�,�Event_Draw(window%,x_origin%,y_origin%)
�&ș"Wimp_GetRectangle",,wimp%�more%
��
�

��Wimp_PollCloseWindow
&"ș"Wimp_GetPointerInfo",,wimp%
0%window%=wimp%!12:buttons%=wimp%!8
:(�Event_WindowClose(window%,buttons%)
D.!wimp%=window%:ș"Wimp_CloseWindow",,wimp%
N�
X
b��Wimp_PollMouseClick
lIbutton%=wimp%!8:window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4
vȎbutton%�
��2:�Wimp_PollMenuPopUp
�:Ȏ�Event_Save(window%)�
�ɹ:�Wimp_PollMouseSave
� ɣ:�Wimp_PollEventMouseClick
��
��
��
�
���Wimp_PollMenuPopUp
�menu%=�Event_Menu(window%)
�Ȏmenu%�
�ɣ
�
Ȏwindow%�
�-2:n%=0
*ȕ((Bar_Menu%!(28+n%*24))�%10000000)=0
 	n%+=1
*�
41ș"Wimp_CreateMenu",,Bar_Menu%,x%-64,96+n%*44
>,:ș"Wimp_CreateMenu",,menu%,x%-64,y%+20
H�
R�
\�
f
p��Wimp_PollMouseSave
zȎicon%�
�.�0:�button%�&50��Wimp_PollDragBox(window%)
�.�2:�button%� 5��Wimp_PollSaveFile(window%)
��
��
�
���Wimp_PollEventMouseClick
�*�interface%�ș"Wimp_BorderIcon",,wimp%
�2�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$
8:wimp%!0=window%:wimp%!4=1:ș"Wimp_GetIconState",,wimp%
Bfile$=$(wimp%!28)
LȎ�file$,".")�
V�0
`=$(wimp%+4)="To save, drag the icon to a directory window"
j'ș"Wimp_ReportError",wimp%,16,task$
t
~"�Event_SaveFile(file$,window%)
��
�ș"Wimp_CreateMenu",-1
��
�
���Wimp_PollDragBox(window%)
�
�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
2)wimp%!32=&7FFFFFFF:wimp%!36=&7FFFFFFF
<ș"Wimp_DragBox",,wimp%
F�
P
Z��Wimp_PollKeyPress
d/window%=wimp%!0:icon%=wimp%!4:key%=wimp%!24
nȎ�Event_Save(window%)�
x"ɹ:�WimpPoll_SaveFile(window%)
�*ɣ:�Event_KeyPress(window%,icon%,key%)
��
��
�
���Wimp_PollSaveMessage
��file$,window%,icon%,x%,y%
�"ș"Wimp_GetPointerInfo",,wimp%
�9window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4
�8wimp%!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
6wimp%!40=&FFF
@$(wimp%+44)=file$
J3ș"Wimp_SendMessage",17,wimp%,wimp%!20,wimp%!24
T�
^
h��Wimp_PollMessages
r
�file$
|,file$=�Wimp_GetStringAtAddress(wimp%+44)
�Ȏwimp%!16�
��0:finished%=�
��1
��2
�
�8wimp%!0=save%:wimp%!4=1:ș"Wimp_GetIconState",,wimp%
�$(wimp%!28)=file$
�0wimp%!0=save%:wimp%!4=1:wimp%!8=0:wimp%!12=0
� ș"Wimp_SetIconState",,wimp%
�
�1ș"Wimp_SetCaretPosition",save%,1,,,-1,�file$
� �Event_SaveFile(file$,save%)
��3
?type$=�Wimp_FileType(wimp%!40):�Event_LoadFile(file$,type$)
�
�
&
0%ݤWimp_GetStringAtAddress(array%)
:
�s$:s$=""
D;ȕ(?array%<>13)�(?array%<>0):s$+=�(?array%):array%+=1:�
N=s$
X
b"ݤWimp_GetFileFromPathname(f$)
lȎ�f$,".")�
v
�0:=f$
�2:=�Wimp_GeteFromPathname(�f$,�(f$)-�f$,".")))
��
�
�ݤWimp_FileType(type%)
�Ȏtype%�
��&FFF:="Text"
��&FFD:="Data"
��&FFB:="Basic"
��&FF9:="Sprite"
��&FED:="Palette"
��&FEC:="Template"
��&AFF:="Draw"
��&1000:="Folder"
�&2000:="Application"
=�~(type%)
�
 �
*
��main
4
>��error
H�15:�:�8,0:� clear � �TZ]
M+�63:�L=1�250:ȏȐ�(1280),�(1024),�(3):�
R*SCHOOSE LOGO
\�8,0:�&ED,300,200:�63:�=0
f
p�
u�>200 �tX\
zȗX,Y,Z:� Z>0
�
��12
��"POINTER 1"
�ȗ�4
�
GRID=0
��redraw
��select
��pen
��
���select
��0,0
��1280,1024
�"SGET SCREENDUMP"
clear=�
	�15:�
$'�L=1�250:ȏȐ�(1280),�(1024),�(3):�
.�"POINTER 1"
8.ș"Wimp_SpriteOp",36,,"ptr_rocket",%100001
B
�21Ȝ0
LȓȐ150,260,900,190
V�21Ȝ64
`ȓȐ168,270,868,168
j�21Ȝ128
tȓȐ186,280,840,146
~�21Ȝ192
�ȓȐ200,290,810,124
��(COL)Ȝ(TIN)
�ȓȐ208,300,800,100
��0,0
�*SCHOOSE PENTOOL
��&ED,50,900
�*SCHOOSE BRUSHTOOL
��&ED,133,900
�*SCHOOSE RUBBERTOOL
��&ED,216,900
�*SCHOOSE LINETOOL
��&ED,300,900
*SCHOOSE ARCTOOL

�&ED,385,900
*SCHOOSE RECTOOL2
�&ED,467,900
(*SCHOOSE RECTOOL
2�&ED,549,900
<*SCHOOSE CIRTOOL2
F�&ED,631,900
P*SCHOOSE CIRTOOL
Z�&ED,713,900
d*SCHOOSE SECTORTOOL2
n�&ED,795,900
x*SCHOOSE SECTORTOOL
��&ED,878,900
�*SCHOOSE TRITOOL2
��&ED,961,900
�*SCHOOSE TRITOOL
��&ED,1044,900
�*SCHOOSE FILES
��&ED,300,500
�*SCHOOSE CLEAR
��&ED,700,500
�*SCHOOSE SIZES
��&ED,500,500
�*SCHOOSE FONTS
��&ED,100,500
*SCHOOSE END
�&ED,900,500
*SCHOOSE DITHERTOOL
"�&ED,50,820
,*SCHOOSE DASHTOOL
6�&ED,133,820
@*SCHOOSE TEXTTOOL
J�&ED,216,820
T*SCHOOSE CAMERATOOL
^�&ED,300,820
h*SCHOOSE SCISSORTOOL
r�&ED,383,820
|*SCHOOSE tile
��&ED,466,820
�*SCHOOSE INVERTTOOL
��&ED,549,820
�*SCHOOSE SELECTTOOL
��&ED,632,820
�*SCHOOSE PARALLELTOOL
��&ED,714,820
�*SCHOOSE PROPELORTOOL
��&ED,798,820
�*SCHOOSE REPLACETOOL
��&ED,881,820
�*SCHOOSE SPRAYTOOL
��&ED,964,820
 *SCHOOSE FILLTOOL
 �&ED,1047,820
 *SCHOOSE MULTITOOL
 &�&ED,1126,900
 0*SCHOOSE SMUDGETOOL
 :�&ED,1126,820
 D*SCHOOSE HELP!
 N�&ED,400,710
 X*SCHOOSE !GRID
 b1�4,0:ȑ0,2:ȓȐxxxxxx,yyyyyy,83,76:�0,0:ȑ0,0
 l4�&ED,600,710:�13:�GRID=0��5:�638,770:�"GRID OFF"
 v&�GRID=1��5:�13:�642,770:�"GRID ON"
 �
�docol(1)
 �
�docol(2)
 �
�docol(3)
 ��docol(23)
 �
�docol(7)
 ��docol(11)
 ��docol(10)
 ��docol(15)
 ��docol(95)
 ��docol(47)
 �
�docol(4)
 �
�docol(8)
!�docol(29)
!�docol(45)
!�docol(32)
! �docol(48)
!*�docol(53)
!4�docol(58)
!>�docol(56)
!H�docol(60)
!R�docol(61)
!\�docol(62)
!f�docol(50)
!p�docol(51)
!z�docol(55)
!��docol(63)
!��docol(42)
!��docol(21)
!�
�docol(0)
!� pos%=0
!�ȗX,Y,Z
!�S�Y<255� Y>0� Z=4�COL=�X,Y):�(COL):TIN=Ȝ(X,Y):�(COL)Ȝ(TIN):ȓȐ208,300,800,100
!�2�X>400� X<600� Y>710� Y<800� Z>1 � Z<5 ��help2
!�}�X>600� X<800� Y>710� Y<800� Z=4� GRID=0�GRID=1:�&ED,600,710:�642,770:�13:�"GRID ON":�(COL)Ȝ(TIN):�:ȗX,Y,Z:�Z=0:ȗX,Y,Z
!�~�X>600� X<800� Y>710� Y<800� Z=4� GRID=1�GRID=0:�&ED,600,710:�638,770:�13:�"GRID OFF":�(COL)Ȝ(TIN):�:ȗX,Y,Z:�Z=0:ȗX,Y,Z
!�=�X>216� X<300� Y>900� Y<985� Z=4��redraw:GG=�(10):�rubber
!�9�X>216� X<300� Y>900� Y<985� Z=2�help$="RUBBER":�help
!�;�X>300� X<385� Y>900� Y<985� Z=4��redraw:GG=�(20):�line
"7�X>300� X<385� Y>900� Y<985� Z=2�help$="LINE":�help
"1�X>385� X<467� Y>900� Y<985� Z=4��redraw:�arc
"6�X>385� X<467� Y>900� Y<985� Z=2�help$="arc":�help
"$;�X>467� X<549� Y>900� Y<985� Z=4��redraw:GG=�(20):�rec2
".6�X>467� X<631� Y>900� Y<985� Z=2�help$="rec":�help
"8:�X>549� X<631� Y>900� Y<985� Z=4��redraw:GG=�(20):�rec
"B4�X>549� X<631� Y>820� Y<900� Z=4��redraw:�invert
"L9�X>549� X<631� Y>820� Y<900� Z=2�help$="INVERT":�help
"V1�X>713� X<795� Y>900� Y<985� Z=4��redraw:�cir
"`6�X>631� X<795� Y>900� Y<985� Z=2�help$="cir":�help
"j>�X>795� X<877� Y>900� Y<985� Z=4��redraw:GG=�(10):�sector2
"t9�X>795� X<961� Y>900� Y<985� Z=2�help$="sector":�help
"~=�X>877� X<959� Y>900� Y<985� Z=4��redraw:GG=�(10):�sector
"�=�X>1047� X<1130� Y>820� Y<900� Z=4��redraw:GG=�(20):�fill
"�9�X>1047� X<1130� Y>820� Y<900� Z=2�help$="fill":�help
"�3�X>1044� X<1127� Y>900� Y<985� Z=4��redraw:�tri
"�<�X>961� X<1044� Y>900� Y<985� Z=4��redraw:GG=�(20):�tri2
"�<�X>961� X<1126� Y>900� Y<985� Z=2�help$="triangle":�help
"�3�X>133� X<300� Y>900� Y<985� Z=4��redraw:�brush
"�8�X>133� X<300� Y>900� Y<985� Z=2�help$="brush":�help
"�;�X>133� X<216� Y>820� Y<900� Z=4��redraw:GG=�(20):�dash
"�7�X>133� X<216� Y>820� Y<900� Z=2�help$="dash":�help
"�0�X>50� X<133� Y>900� Y<985� Z=4��redraw:�pen
"�8�X>50� X<133� Y>900� Y<985� Z=2�help$="pencil":�help
"�:�X>500� X<700� Y>500� Y<700� Z=4��:ȗX,Y,Z:�Z=0:�sizes
#5�X>700� X<900� Y>500� Y<700� Z=4��15:�check_clear
#
:�X>300� X<500� Y>500� Y<700� Z=4��:ȗX,Y,Z:�Z=0:�files
#9�X>300� X<500� Y>500� Y<700� Z=2 �help$="files":�help
#+�X>100� X<300� Y>500� Y<700� Z=4��fonts
#(+�X>900� X<1100� Y>500� Y<700� Z=4��exit
#2=�X>300� X<383� Y>820� Y<900� Z=4��redraw:GG=�(20):�camera
#<9�X>300� X<383� Y>820� Y<900� Z=2�help$="camera":�help
#F;�X>466� X<549� Y>820� Y<900� Z=4��redraw:GG=�(20):�tile
#P7�X>466� X<549� Y>820� Y<900� Z=2�help$="tile":�help
#Z;�X>630� X<713� Y>900� Y<985� Z=4��redraw:GG=�(20):�cir2
#d>�X>383� X<466� Y>820� Y<900� Z=4��redraw:GG=�(20):�scissor
#n:�X>383� X<466� Y>820� Y<900� Z=2�help$="scissor":�help
#s.�X>216� X<299� Y>820� Y<900� Z=4 � *FX21,0
#x��X>216� X<299� Y>820� Y<900� Z=4�GG=�(20):�0Ȝ0:ȓȐ0,500,1280,310:�12:ȓ-10,505,1290,120:�53:�15,13);"PLEASE TYPE IN YOUR TEXT HERE AND PRESS RETURN:":�5);"TEXT:"TEXT$:�text
#�7�X>216� X<299� Y>820� Y<900� Z=2�help$="text":�help
#�>�X>632� X<713� Y>820� Y<900� Z=4��redraw:GG=�(10):�select2
#�9�X>632� X<713� Y>820� Y<900� Z=2�help$="select":�help
#�E�X>798� X<881� Y>820� Y<900� Z=4��redraw:�:ȗQ,W,E:�E=0:�propelor
#�<�X>798� X<881� Y>820� Y<900� Z=2�help$="propellor":�help
#�5�X>881� X<881+83� Y>820� Y<900� Z=4��replacesetup
#�=�X>881� X<881+83� Y>820� Y<900� Z=2�help$="replace":�help
#�C�X>964� X<1047� Y>820� Y<900� Z=4��redraw:�:ȗQ,W,E:�E=0:�spray
#�9�X>964� X<1047� Y>820� Y<900� Z=2�help$="spray":�help
#�E�X>714� X<797� Y>820� Y<900� Z=4��redraw:�:ȗQ,W,E:�E=0:�parallel
#�;�X>714� X<797� Y>820� Y<900� Z=2�help$="PARALLEL":�help
#�.�Y>0� Y<255� Z=1��:ȗQ,W,E:�E=0:ȗ�640,900
#�1�Y>820� Y<1023� Z=1��:ȗQ,W,E:�E=0:ȗ�640,125
$D�X>1126� X<1209� Y>900� Y<983� Z=4��:ȗQ,W,E:�E=0:�redraw:�multi
$:�X>1126� X<1209� Y>900� Y<983� Z=2�help$="multi":�help
$E�X>1126� X<1209� Y>820� Y<900� Z=4��:ȗQ,W,E:�E=0:�redraw:�smudge
$";�X>1126� X<1209� Y>820� Y<900� Z=2�help$="smudge":�help
$,A�X>50� X<133� Y>820� Y<900� Z=4��:ȗQ,W,E:�E=0:�redraw:�mixer
$68�X>50� X<133� Y>820� Y<900� Z=2�help$="dither":�help
$@!�Z=1��redraw:�5:�4,0:�remake%
$J	�tva
$T�
$^��pen:�remake(9310,50,900)
$h�"POINTER 0"
$r�4,0
$|A=640:B=512
$�X=640:Y=512
$�ȗX,Y,Z
$�$�Z=4��(COL)Ȝ(TIN):�X,Y,A,B:�4,0
$�ȗA,B,C
$�!�X-20,Y,X+20,Y:�X,Y-20,X,Y+20
$�Ȗ
$�!�X-20,Y,X+20,Y:�X,Y-20,X,Y+20
$�$�Z=4��(COL)Ȝ(TIN):�X,Y,A,B:�4,0
$��Z=2��select
$��-90�0,0:�undo:�4,0
$�	�tPd
$��
$���redraw
%�15
%�
%�"POINTER 1"
%&2ș"Wimp_SpriteOp",36,,"ptr_cross",%100001,12,5
%0*SCHOOSE SCREENDUMP
%:�&ED,0,0
%D-�GRID=1��4,0:�drawgrid:GG=�(30):�drawgrid
%N�
%X��rec:�remake(9560,549,900)
%b�
%lȗA,B,C
%v�GRID=1�initgridAB
%��C=2��select
%��-90��0,0:�undo:�4,0
%��C=4
%��:ȗQ,W,E:�E=0
%�GG=�(20)
%�ȗX,Y,Z
%��GRID=1�initgridXY
%��Z=2��select
%��4,95Ȝ192
%�ȓA,B,X-A,Y-B
%�Ȗ
%�Ȗ
%��4,0Ȝ0
&ȓA,B,X-A,Y-B
&5�Z=4��(COL)Ȝ(TIN):ȓȐA,B,X-A,Y-B:GG=�(100):�rec
&�Z=1��Dbe
& �-90�0,0:�undo:�4,0
&*	�tre
&4�
&> ��dash:�remake(9790,133,820)
&Hȗȓ0,0,1279-SIZE,1023-SIZE
&R�4,0
&\�"POINTER 0"
&fȗX,Y,Z
&p�GRID=1�initgridXY
&z�X,Y,X+SIZE,Y+SIZE
&�Ȗ
&�Ȗ
&��X,Y,X+SIZE,Y+SIZE
&�.�Z=4��(COL)Ȝ(TIN):�X,Y,X+SIZE,Y+SIZE:�4,0
&��Z=2��select
&��-90�0,0:�undo:�4,0
&�1�-58 SIZE=SIZE+5:ȗȓ0,0,1279-SIZE,1023-SIZE
&�1�-42 SIZE=SIZE-5:ȗȓ0,0,1279-SIZE,1023-SIZE
&��SIZE<6�SIZE=6
&�	�Dff
&��
&�!��spray:�remake(9970,964,820)
&��"POINTER 0"
'�4,0
'ȗȓ0,0,1279-SIZE,1023-SIZE
'ȗX,Y,Z
'$�GRID=1��initgridXY
'.�Z=0�ȓX,Y,SIZE
'8	Ȗ:Ȗ
'B�Z=0�ȓX,Y,SIZE
'L;�Z=4��(COL)Ȝ(TIN):�E=1�10:Ȓ�(SIZE)+X,�(SIZE)+Y:�:�4,0
'V�Z=2��select
'`1�-58�SIZE=SIZE+5:ȗȓ0,0,1279-SIZE,1023-SIZE
'j1�-42�SIZE=SIZE-5:ȗȓ0,0,1279-SIZE,1023-SIZE
't�SIZE>1023�SIZE=1022
'~�SIZE<6�SIZE=6
'��-90�0,0:�undo:�4,0
'�	�TZg
'��
'�"��fill:�remake(10150,1047,820)
'�GG=�(20):�(COL)Ȝ(TIN)
'�ȗX,Y,Z
'��Z=4� �do_a_fill
'��Z=2��select
'��-90 �undo
'�	�dDg
'��
( ��cir:�remake(10240,713,900)
(
�
(ȗA,B,C
(�GRID=1�initgridAB
((�C=2��select
(2�-90�0,0:�undo:�4,0
(<�C=4
(F�:ȗQ,W,E:�E=0
(PȗX,Y,Z
(Z�GRID=1�initgridXY
(d�4,63Ȝ192
(n
ȏA,B,X/2
(x�4,0Ȝ0
(�Ȗ
(�Ȗ
(�
ȏA,B,X/2
(�0�Z=4��(COL)Ȝ(TIN):ȏȐA,B,X/2:GG=�(30):�cir
(��Z=2��select
(�
�Z=1��cir
(��-90�0,0:�undo:�4,0
(��-58ȗ�X+5,Y
(��-42ȗ�X-5,Y
(�	�DPh
(��
(�!��line:�remake(10480,300,900)
(��
)ȗA,B,C
)�GRID=1�initgridAB
)�C=2��select
)"�-90�0,0:�undo:�4,0
),�C=4
)6�:ȗQ,W,E:�E=0
)@GG=�(20)
)JȗX,Y,Z
)T�GRID=1�initgridXY
)^�4,63Ȝ192
)h�A,B,X,Y
)r�4,0Ȝ0
)|Ȗ
)�Ȗ
)��A,B,X,Y
)�<�Z=4��(COL)Ȝ(TIN):�A,B,X,Y:A=X:B=Y:�:ȗQ,W,E:�E=0:�DJi
)��Z=2��select
)��Z=1�GG=�(20):�line
)��-90�0,0:�undo:�4,0
)�	�DJi
)��
)�#��rubber:�remake(10710,216,900)
)�A=�(20)
)��"POINTER 0"
)��4,0
)�ȗȓ0,0,1279-SIZE,1023-SIZE
*ȗX,Y,Z
*�GRID=1�initgridXY
*ȓX,Y,SIZE,SIZE
*&	Ȗ:Ȗ
*0ȓX,Y,SIZE,SIZE
*:�Z=2��(COL)Ȝ(TIN):�select
*D �Z=4��0Ȝ0:ȓȐX,Y,SIZE:�4,0
*N�-90�0,0:�undo:�4,0
*X1�-58 SIZE=SIZE+5:ȗȓ0,0,1279-SIZE,1023-SIZE
*b1�-42 SIZE=SIZE-5:ȗȓ0,0,1279-SIZE,1023-SIZE
*l	�THj
*v�
*�!��tri:�remake(10880,1044,900)
*��
*�ȗA,B,C
*��GRID=1�initgridAB
*��C=2��select
*��-90 �0,0:�undo:�4,0
*��C=4
*��:ȗQ,W,E:�E=0
*�GG=�(20)
*�ȗX,Y,Z
*��GRID=1�initgridXY
*��4,63Ȝ192
*��A,B,X,Y
+	Ȗ:Ȗ
+�4,0Ȝ0
+�A,B,X,Y
+ �Z=4�GG=�(20):�DRk
+*
�Z=1��tri
+4�Z=2��select
+>�-90�0,0:�undo:�4,0
+H	�dZj
+R�:ȗQ,W,E:�E=0
+\�A,B,X,Y
+fȗAA,BB,CC
+p�GRID=1�initgridAABB
+z�-90�0,0:�undo:�4,0
+��4,63Ȝ192
+��A,B,AA,BB
+��X,Y,AA,BB
+�Ȗ
+�Ȗ
+��4,0Ȝ0
+��X,Y,AA,BB
+��A,B,AA,BB
+�8�CC=4��(COL)Ȝ(TIN):�A,B,X,Y:�85,AA,BB:GG=�(20):�tri
+�'�CC=1��4,0:�A,B,X,Y:A=AA:B=BB:�dPj
+��CC=2��select
+��-90 �0,0:�undo:�4,0
+�	�Dfk
,�
,
��undo
,*SCHOOSE SCREENDUMP
,$�&ED,0,0
,.�
,8 ��arc:�remake(11320,385,900)
,B�
,LȗA,B,C
,V�GRID=1�initgridAB
,`�C=2��select
,j�-90�0,0:�undo:�4,0
,t�C=4
,~�:ȗQ,W,E:�E=0
,�ȗX,Y,Z
,��GRID=1�initgridXY
,�	�4,63
,��A,B,X,Y
,�Ȗ
,�Ȗ
,��4,0
,��A,B,X,Y
,�&�Z=4�GG=�(20):�:ȗQ,W,E:�E=0:�TJm
,��Z=2��select
,��Z=1�GG=�(20):�DBl
,��-90�0,0:�undo:�4,0
-	�tHl
-
ȗAA,BB,CC
-�GRID=1�initgridAABB
-�-90�0,0:�undo:�4,0
-(	�4,63
-2�A,B
-<�X,Y
-F�&A5,AA,BB
-P�4,0
-ZȖ
-dȖ
-n�A,B
-x�X,Y
-��&A5,AA,BB
-�;�CC=4��(COL)Ȝ(TIN):�A,B:�X,Y:�&A5,AA,BB:GG=�(20):�DBl
-��CC=2��select
-��CC=1�GG=�(20):�DBl
-�	�TJm
-��
-���saver
-��"POINTER 1":*FX21,0
-��
-�ȗG,H,J
-��J=1�J=2��
-��J=4
-�.ȗ�2,50,255,50:ȗ�1,0,200,0:ȗ�3,150,80,10
.-ș"Wimp_SpriteOp",36,,"ptr_write",%100001
.�95Ȝ255
.ȓ200,350,800,100
."�5
.,�300,430
.62�"PLEASE TYPE A FILENAME. TYPE '0' TO ABANDON"
.@�300,390
.J
�NAME$
.T[�NAME$="0"�ȗ�1,255,255,0:ȗ�2,0,0,255:ș"Wimp_SpriteOp",36,,"ptr_rocket",%100001:�TP]
.^2�4:� NAME$="" � �$="DONT PRESS RETURN!":�error
.h*SCHOOSE SCREENDUMP
.r�redraw
.|*DIR <SPACE$DIR>.SPACEPICS
.�ș"Hourglass_On"
.�R� COMP=1 �"PICSAVE ERROR" � �"DIR <SPACE$DIR>.SPRITEPICS":�"SCREENSAVE "+NAME$
.�!� COMP=1 �"SETTYPE ERROR 555"
.�#� COMP=1 �"RENAME ERROR "+NAME$
.�ș"Hourglass_Smash"
.�.ș"Wimp_SpriteOp",36,,"ptr_rocket",%100001
.�,ȗ�1,255,255,0:ȗ�2,0,0,255:ȗ�3,0,0,255
.��4:�TZ]
.��
.���loader
.��95Ȝ255:*FX21,0
.�.ȗ�2,50,255,50:ȗ�1,0,200,0:ȗ�3,125,80,10
.�-ș"Wimp_SpriteOp",36,,"ptr_write",%100001
/ȓ200,350,800,100
/�5
/�300,430
/&2�"PLEASE TYPE A FILENAME. TYPE '0' TO ABANDON"
/0�300,390
/:
�NAME$
/Dh�NAME$="0"�ȗ�1,255,255,0:ȗ�2,0,0,255:ȗ�3,0,0,255:ș"Wimp_SpriteOp",36,,"ptr_rocket",%100001:�TP]
/N�4
/X*DIR <SPACE$DIR>.SPACEPICS
/bș"Hourglass_On"
/lS� COMP=1 �"PICLOAD "+NAME$ � �"DIR <SPACE$DIR>.SPRITEPICS":�"SCREENLOAD "+NAME$
/vș"Hourglass_Smash"
/�O�0,0:�1280,1024:�"SGET SCREENDUMP":ȗ�1,255,255,0:ȗ�2,0,0,255:ȗ�3,0,0,255
/�.ș"Wimp_SpriteOp",36,,"ptr_rocket",%100001
/��4:�select
/��
/���files
/�
*CLOSE
/��12:�63:ȗ � 640,400
/�0�L=1�250:ȏȐ�(1280),�(1024),�(3):�:ȑ0,-300
/�1� COMP=1 �"SCHOOSE OPTON" � �"SCHOOSE OPTOFF"
/��&ED,550,1200
/�6� COMP=1 � �"SCHOOSE COMPRESS" � �"SCHOOSE SPRITE"
/��&ED,430,1120
/�*SCHOOSE SAVE
/��&ED,200,800
0*SCHOOSE LOAD
0�&ED,400,800
0*SCHOOSE DELETE
0 �&ED,600,800
0**SCHOOSE LIST
04�&ED,800,800
0>GG=�(20)
0HȗX,Y,Z
0R��X>550� X<650� Y>1200� Y<1300 � Z=4 � COMP=0 � COMP=1:�"SCHOOSE OPTON":�&ED,550,1200:�"SCHOOSE COMPRESS":�&ED,430,1120:�:ȗQ,W,E:� E=0:ȗX,Y,Z
0\��X>550� X<650� Y>1200� Y<1300 � Z=4 � COMP=1 � COMP=0:�"SCHOOSE OPTOFF":�&ED,550,1200:�"SCHOOSE SPRITE":�&ED,430,1120:�:ȗQ,W,E:� E=0:ȗX,Y,Z
0f;�X>200� X<400� Y>800� Y<1000� Z=4�ȑ0,0:�saver:ȑ0,-300
0p<�X>400� X<600� Y>800� Y<1000� Z=4�ȑ0,0:�loader:ȑ0,-300
0z=�X>600� X<800� Y>800� Y<1000� Z=4�ȑ0,0:�deleter:ȑ0,-300
0�-�X>800� X<1000� Y>800� Y<1000� Z=4� �list
0��Z=2��TP]
0�	�DHp
0��
0�#��sector:�remake(12460,878,900)
0��
0�ȗA,B,C
0��GRID=1�initgridAB
0��C=2��select
0��-90��0,0:�undo:�4,0
0��C=4
0��:ȗQ,W,E:�E=0
0�ȗX,Y,Z
1�GRID=1�initgridXY
1	�4,63
1�A,B,X,Y
1$�4,0
1.Ȗ
18Ȗ
1B�A,B,X,Y
1L�Z=2��select
1V�Z=4��D~q
1`�Z=1��sector
1j�-90�0,0:�undo:�4,0
1t	�d|p
1~�:ȗQ,W,E:�E=0
1�ȗAA,BB,CC
1�
1��-90�0,0:�undo:�4,0
1�	�4,63
1��A,B
1��X,Y
1��&A5,AA,BB
1��A,B,X,Y
1��A,B,AA,BB
1�Ȗ
1�Ȗ
1��4,0
2�A,B
2
�X,Y
2�&A5,AA,BB
2�A,B,X,Y
2(�A,B,AA,BB
22�CC=1��sector
2<�CC=2��select
2F4�CC=4��(COL)Ȝ(TIN):�A,B:�X,Y:�&B5,AA,BB:�sector
2P	�tHq
2Z�
2d!��text:�remake(12900,216,820)
2n�redraw
2x�5
2��4,0
2��"POINTER 0"
2�ȗX,Y,Z
2��GRID=1�initgridXY
2��X,Y
2��"";TEXT$;""
2�Ȗ
2�Ȗ
2��X,Y
2��"";TEXT$;""
2�O�Z=4��"POINTER 0":�(COL)Ȝ(TIN):�X,Y:�"";TEXT$;"":�4,0:�:ȗQ,W,E:�E=0:�tVr
2��Z=2��select
2��-90�0,0:�undo:�4,0
3	�tVr
3�
3��sizes
3"�63
3,;�12:�"POINTER 0":�DFGF=1�150:ȏȐ�(1280),�(1023),�(3):�
36
ȗ�SIZE,0
3@ȗȓ0,0,1020,1
3J*SCHOOSE LEFT
3T�&ED,0,0
3^*SFlipY LEFT
3h�&ED,1180,0
3r*SFlipY LEFT
3|�4,0
3�ȗX,Y,Z
3�ȓ150,512-X/2,1000,X
3�Ȗ
3�Ȗ
3�ȓ150,512-X/2,1000,X
3�#�Z=4��(COL)Ȝ(TIN):SIZE=X:�TP]
3��Z=2��TP]
3�	�tFs
3��
3�
��deleter
3�6ȗ�2,50,255,50:ȗ�1,0,200,0:ȗ�3,150,80,10:*FX21,0
3�-ș"Wimp_SpriteOp",36,,"ptr_write",%100001
3��95Ȝ255
4ȓ200,350,800,100
4�5
4�300,430
4&2�"PLEASE TYPE A FILENAME. TYPE '0' TO ABANDON"
40�300,390
4:
�NAME$
4D[�NAME$="0"�ȗ�1,255,255,0:ȗ�2,0,0,255:ș"Wimp_SpriteOp",36,,"ptr_rocket",%100001:�TP]
4NI� COMP=1 �"DIR <SPACE$DIR>.SPACEPICS" � �"DIR <SPACE$DIR>.SPRITEPICS"
4X�4
4b�"DELETE "+NAME$
4lWȗ�1,255,255,0:ȗ�2,0,0,255:ȗ�3,0,0,255:ș"Wimp_SpriteOp",36,,"ptr_rocket",%100001
4v
�12:�TZ]
4��
4���fonts
4��13:*FX21,0
4��95Ȝ255:ȗ �
4��15
4�*. <SPACE$DIR>.FONTIES
4��
4��3
4�]�" ":ș"Wimp_SpriteOp",36,,"ptr_write",%100001:ȗ�2,50,255,50:ȗ�1,0,200,0:ȗ�3,150,80,10
4�Q�"Please type in the font you want.":�61:�"TYPE '0' TO RETURN TO MENU SCREEN"
4��53Ȝ128
4�$�63:�L=1�150:Ȓ�(1280),�(1023):�
4��Z=2�GOT7490
4�	�:�53
5�FILENAME$
5�FILENAME$="0"��TP]
5!ȗ �:*DIR <SPACE$DIR>.FONTIES
5 �"RUN "+FILENAME$:�TP]
5*�
54#��camera:�remake(13620,300,820)
5>�
5HȗA,B,C
5R�GRID=1�initgridAB
5\�C=2��select
5f�-90�0,0:�undo:�4,0
5p�C=4
5z�:ȗQ,W,E:�E=0
5�ȗȓA,B,1278-A,1023-B
5�ȗX,Y,Z
5��GRID=1�initgridXY
5��4,0
5�ȓA,B,X-A,Y-B
5�	Ȗ:Ȗ
5�ȓA,B,X-A,Y-B
5�/�Z=4�ȗȓ0,0,1279,1023:�:ȗQ,W,E:�E=0:�d|u
5��Z=2��select
5�"�Z=1�ȗȓ0,0,1279,1023:�camera
5��-90�0,0:�undo:�4,0
5�	�tNu
5�!ȗȓ0,0,1278-(X-A),1022-(Y-B)
6ȗXX,YY,ZZ
6�GRID=1�initgridXXYY
6�4,0
6$ȓXX,YY,X-A,Y-B
6.Ȗ
68Ȗ
6BȓXX,YY,X-A,Y-B
6L;�ZZ=4�ȗȓ0,0,1279,1023:ȓ(A),(B),(X-A),(Y-B)�(XX),(YY)
6V�ZZ=2��select
6`#�ZZ=1�ȗȓ0,0,1279,1023:�camera
6j�-90�0,0:�undo:�4,0
6t	�d|u
6~�
6�$��scissor:�remake(13960,383,820)
6��
6�ȗA,B,C
6��GRID=1�initgridAB
6��C=2��select
6��-90�0,0:�undo:�4,0
6��C=4
6��:ȗQ,W,E:�E=0
6�ȗȓA,B,1279-A,1023-B
6�ȗX,Y,Z
6��GRID=1�initgridXY
6��4,0
7ȓA,B,X-A,Y-B
7
Ȗ
7Ȗ
7ȓA,B,X-A,Y-B
7(�Z=4��DZw
72�Z=2��select
7<#�Z=1�ȗȓ0,0,1279,1023:�scissor
7F�-90�0,0:�undo:�4,0
7P	�dbv
7Z0�:ȗQ,W,E:�E=0:ȗȓ0,0,1279-(X-A),1023-(Y-B)
7dȗXX,YY,ZZ
7n�GRID=1�initgridXXYY
7x�4,0
7�ȓXX,YY,X-A,Y-B
7�Ȗ
7�Ȗ
7�ȓXX,YY,X-A,Y-B
7�c�ZZ=4��A,B:�X,Y:�189,XX,YY:GG=�(20):ȗȓ0,0,1279,1023:�:ȗQ,W,E:�E=0:ȗȓ0,0,1279,1023:�scissor
7��ZZ=2��select
7�$�ZZ=1�ȗȓ0,0,1279,1023:�scissor
7��-90�0,0:�undo:�4,0
7�	�Ddw
7��
7�"��brush:�remake(14310,133,900)
7��"POINTER 0"
7��4,0
8GG=�(20)
8ȗX,Y,Z
8�GRID=1�initgridXY
8"�Z=0�ȏX,Y,SIZE/2
8,Ȗ
86Ȗ
8@�Z=0�ȏX,Y,SIZE/2
8J�Z=2��select
8T*�Z=4��(COL)Ȝ(TIN):ȏȐX,Y,SIZE/2:�4,0
8^�-58�SIZE=SIZE+5
8h�-42�SIZE=SIZE-5
8r�-90�0,0:�undo:�4,0
8|�SIZE<6�SIZE=6
8�	�TNx
8��
8�!��tile:�remake(14490,466,820)
8��"POINTER 0"
8��4,0
8�GG=�(50)
8�ȗX,Y,Z
8�ȓX,Y,160,128
8�Ȗ
8�ȓX,Y,160,128
8�� Z=2 � �select
8�� Z=4 � � �THy
8�	�dBx
9�X,Y:�X+160,Y+128
9*SGET PAPER
9�0,0
9&�Q=1�1280�160
90�Z=1�1024�128
9:�&ED,Q,Z
9D�
9N�
9X�
9bȗX,Y,Z
9l� �-90 � �undo:� remake%
9v� Z=2 � �select
9�
� Z=56
9��
9�!��rec2:�remake(14740,467,900)
9�
�:ȗA,B,C
9��GRID=1�initgridAB
9��C=2��select
9��-90��0,0:�undo:�4,0
9��C=4
9��:ȗQ,W,E:�E=0
9�ȗX,Y,Z
9��GRID=1�initgridXY
9��Z=2��select
9��4,0
:ȓA,B,X-A,Y-B
:Ȗ
:Ȗ
: ȓA,B,X-A,Y-B
:*3�Z=4��(COL)Ȝ(TIN):ȓA,B,X-A,Y-B:GG=�(20):�rec2
:4�Z=1��rec2
:>�-90�0,0:�undo:�4,0
:H	�dZy
:R�
:\!��cir2:�remake(14940,631,900)
:f�
:pȗA,B,C
:z�GRID=1�initgridAB
:��C=2��select
:��-90��0,0:�undo:�4,0
:��4,0
:��C=4
:��:ȗQ,W,E:�E=0
:�ȗX,Y,Z
:��GRID=1�initgridXY
:��Z=2��select
:�ȏA,B,X
:�Ȗ
:�Ȗ
:�ȏA,B,X
:�2�Z=4��(COL)Ȝ(TIN):ȏA,B,X:GG=�(20):�4,0:�cir2
;�Z=1��cir2
;�-90�0,0:�undo:�4,0
;�-58ȗ�X+5,Y
;$�-42ȗ�X-5,Y
;.	�tvz
;8�
;B!��tri2:�remake(15170,961,900)
;L�
;VȗA,B,C
;`�GRID=1�initgridAB
;j�C=2��select
;t�-90�0,0:�undo:�4,0
;~�C=4
;��:ȗQ,W,E:�E=0
;�ȗX,Y,Z
;��GRID=1�initgridXY
;��-90�0,0:�undo:�4,0
;��Z=2��select
;��4,0
;��A,B,X,Y
;�Ȗ
;�Ȗ
;��A,B,X,Y
;��Z=4��:ȗQ,W,E:�E=0:�TJ|
;��Z=1��tri2
<	�tR{
<
�A,B,X,Y
<ȗXX,YY,ZZ
<�GRID=1�initgridXXYY
<(�4,0
<2�A,B,XX,YY
<<�X,Y,XX,YY
<FȖ
<PȖ
<Z�A,B,XX,YY
<d�X,Y,XX,YY
<n�ZZ=1��A,B,X,Y:�tri2
<x�ZZ=2��select
<�E�ZZ=4��(COL)Ȝ(TIN):�A,B,X,Y:�X,Y,XX,YY:�A,B,XX,YY:GG=�(20):�tri2
<�!�-90�0,0:�undo:�4,0:�A,B,X,Y
<�	�TT|
<��
<�$��sector2:�remake(15530,795,900)
<��
<�ȗA,B,C
<��GRID=1�initgridAB
<��C=2��select
<��-90�0,0:�undo:�4,0
<��C=4
<��:ȗQ,W,E:�E=0
<�ȗX,Y,Z
=�GRID=1�initgridXY
=�4,0
=�A,B,X,Y
="Ȗ
=,Ȗ
=6�A,B,X,Y
=@�Z=2��select
=J�Z=1��sector2
=T�Z=4��:ȗQ,W,E:�E=0:�Dr}
=^�-90�0,0:�undo:�4,0
=h	�dz|
=rȗXX,YY,ZZ
=|�GRID=1�initgridXXYY
=��-90�0,0:�undo:�4,0
=��4,0
=��A,B
=��X,Y
=��&A5,XX,YY
=��A,B,X,Y
=��A,B,XX,YY
=�Ȗ
=�Ȗ
=��A,B
=��X,Y
=��&A5,XX,YY
=��A,B,X,Y
>�A,B,XX,YY
>R�ZZ=4��(COL)Ȝ(TIN):�A,B:�X,Y:�&A5,XX,YY:�A,B,X,Y:�A,B,XX,YY:GG=�(30):�sector2
>�ZZ=2��select
>&�ZZ=1��sector2
>0	�Dr}
>:�
>D#��invert:�remake(15940,549,820)
>N�
>XȗA,B,C
>b�GRID=1�initgridAB
>l�-90�0,0:�undo:�4,0
>v�C=2��select
>��C=4
>��:ȗQ,W,E:�E=0
>�ȗX,Y,Z
>��GRID=1�initgridXY
>��4,0
>�ȓA,B,X-A,Y-B
>�Ȗ
>�Ȗ
>�ȓA,B,X-A,Y-B
>�.�Z=4��4,0:ȓȐA,B,X-A,Y-B:GG=�(30):�invert
>��Z=2��select
>��Z=1��invert
>��-90�0,0:�undo:�4,0
?	�tT~
?�
?��error
? 8� �$="Use *Picture <filename>" � �$="DO NOT PRESS 0"
?*�15
?4�5
?>*�DFGF=1�150:ȏȐ�(1280),�(1023),�(3):�
?H�3Ȝ128
?RȓȐ0,200,2000,100:�53Ȝ128
?\�520,700
?f�95
?p�"SORRY FOLKS!"
?z�450,600
?��"AN ERROR HAS OCCURRED"
?��100,270
?��"ERROR: "�$""
?��4
?�*SCHOOSE OK!
?��&ED,520,350
?��"POINTER 1"
?�ȗXXX,YYY,ZZZ
?�4�XXX>520� XXX<720� YYY>350� YYY<550� ZZZ=4��TP]
?�	�dJ
?��
?���change
?�ȗX,Y,Z
@�(COL)Ȝ(TIN)
@ș"Hourglass_On"
@�Q%=1� SIZE �2
@$�C%=1� SIZE �2
@.L=�Q%+X,C%+Y)
@8K=Ȝ(Q%+X,C%+Y)
@B-� L=COLCHANGE � K=TINCHANGE � ȒQ%+X,C%+Y
@L%�-11�ș"Hourglass_Smash":�select
@V&�-12�ș"Hourglass_Smash":�replace
@`�
@j�
@tș"Hourglass_Smash"
@~�replace
@��
@�%��propelor:�remake(16530,798,820)
@��
@�ȗA,B,C
@��GRID=1�initgridAB
@��C=2��select
@��-90�0,0:�undo:�4,0
@��C=4
@��:ȗQ,W,E:�E=0
@��4,0
@�ȗX,Y,Z
@��GRID=1�initgridXY
A�A,B,X,Y
A
Ȗ
AȖ
A�A,B,X,Y
A(�Z=2��select
A2$�Z=4��(COL)Ȝ(TIN):�A,B,X,Y:�4,0
A<�Z=1��propelor
AF�-90�0,0:�undo:�4,0
AP	�`l@
AZ�
Ad
��replace
An�"POINTER 0"
Ax�4,0
A�ȗX,Y,Z
A��GRID=1�initgridXY
A��Z=0�ȓX,Y,SIZE
A�	Ȗ:Ȗ
A��Z=0�ȓX,Y,SIZE
A��Z=4��change
A��Z=1��replacesetup
A��Z=2��select
A��-90�0,0:�undo:�4,0
A��-58 SIZE=SIZE+5
A��-42 SIZE=SIZE-5
A�	�pBA
A��
B)��replacesetup:�remake(16900,881,820)
B�:ȗQ,W,E:�E=0
B�12
B"�redraw
B,�4,0
B6�"POINTER 0"
B@�5
BJ�400,900
BTȗX,Y,Z
B^�GRID=1�initgridXY
Bh�Z=2��select
Br�X-20,Y,X+20,Y
B|�X,Y-18,X,Y+18
B��X-100,Y-100
B��"SELECT COLOUR"
B�Ȗ
B�Ȗ
B��X-20,Y,X+20,Y
B��X,Y-18,X,Y+18
B��X-100,Y-100
B��"SELECT COLOUR"
B�0�Z=4�TINCHANGE=Ȝ(X,Y):COLCHANGE=�X,Y):�`jB
B�	�@TB
B��redraw
B��:ȗQ,W,E:�E=0
B��0,0
C�replace
C�
C%��parallel:�remake(17180,714,820)
��
C0ȗA,B,C
C:�GRID=1�initgridAB
CD�C=2��select
CN�-90�0,0:�undo:�4,0
CX�C=4
Cb�:ȗQ,W,E:�E=0
Cl�4,0
CvȗX,Y,Z
C��GRID=1�initgridXY
C��A,B,X,Y
C�	Ȗ:Ȗ
C��A,B,X,Y
C�� Z=2 � �select
C�� Z=4 � �`PC
C�� Z=1 � �parallel
C�� �-90 �0,0:�undo:�4,0
C�	�@vC
C��:ȗQ,W,E:�E=0
C�DIFX=A-X:DIFY=B-Y
C�ȗXX,YY,ZZ
C��GRID=1�initgridXXYY
C��A,B,X,Y
D�X,Y,XX,YY
D�XX,YY,XX+DIFX,YY+DIFY
D�XX+DIFX,YY+DIFY,A,B
D 	Ȗ:Ȗ
D*�A,B,X,Y
D4�X,Y,XX,YY
D>�XX,YY,XX+DIFX,YY+DIFY
DH�XX+DIFX,YY+DIFY,A,B
DR� ZZ=2 � �select
D\� �-90 �0,0:�undo:�4,0
Df9� ZZ=4 � �(COL)Ȝ(TIN):�A,B:�X,Y:�&75,XX,YY:�parallel
Dp� ZZ=1 � �parallel
Dz	�`ZC
EL�
EV$��smudge:�remake(17750,1126,820)
E`�"POINTER 0"
Ej�4,0
Etȗȓ0,0,1278-SIZE,1023-SIZE
E~ȗX,Y,Z
E��GRID=1�initgridXY
E�Ȗ
E�ȗA,B,C
E�ȓX,Y,SIZE
E�Ȗ
E�ȓX,Y,SIZE
E�1�-58�SIZE=SIZE+5:ȗȓ0,0,1278-SIZE,1023-SIZE
E�1�-42�SIZE=SIZE-5:ȗȓ0,0,1278-SIZE,1023-SIZE
E��Z=4�ȓX,Y,(SIZE)�A,B
E��SIZE<0�SIZE=6
E��Z=2��select
E��-90�0,0:�undo:�4,0
F	�@~E
F
�
F$��select2:�remake(17940,632,820)
F�"POINTER 0":�5
F(�4,0
F2ȗX,Y,Z
F<�GRID=1�initgridXY
FF�X-20,Y,X+20,Y
FP0�X,Y+20,X,Y-20:�X-105,Y-100:�"SELECT COLOUR"
FZ	Ȗ:Ȗ
Fd�X-20,Y,X+20,Y
Fn0�X,Y+20,X,Y-20:�X-105,Y-100:�"SELECT COLOUR"
Fx�Z=2��select
F�&�Z=4�COL=�X,Y):TIN=Ȝ(X,Y):�select
F�	�PrF
F��
F�!��mixer:�remake(18080,50,820)
F��4,0:ȗ �:�5
F�ȗX,Y,Z
F�?�X-50,Y,X+50,Y:�X,Y+50,X,Y-50:�X-105,Y-100:�"SELECT COLOUR"
F�	Ȗ:Ȗ
F�?�X-50,Y,X+50,Y:�X,Y+50,X,Y-50:�X-105,Y-100:�"SELECT COLOUR"
F�� Z=2 � �select
F�=� Z=4 � COLCHA=�X,Y):TINCHA=Ȝ(X,Y):�:ȗQ,W,E:� E=0:�`zF
F�	�pjF
F�ȗX,Y,Z
GȓX,Y,SIZE,SIZE
GȖ
GȖ
G"ȓX,Y,SIZE,SIZE
G,� Z=4 � �dither
G6� Z=2 � �select
G@� �-90 �0,0:�undo:�4,0
GJ�-58 SIZE=SIZE+5
GT�-42 SIZE=SIZE-5
G^	�`zF
Gh�
Gr��dither
G|�(COL)Ȝ(TIN)
G��A=1� SIZE �4
G��B=1� SIZE �4
G�OCOLCH=�X+A,Y+B):TINCH=Ȝ(X+A,Y+B):� COLCH=COLCHA � TINCH=TINCHA � ȒA+X,B+Y
G�� �-11 �select
G�� �-12 �redraw:�mixer
G��
G��
G��4,0
G��
G�#��multi:�remake(18400,1126,900)
G��4,0
G��"POINTER 0"
G�ȗX,Y,Z
H�GRID=1 �initgridXY
HȏX,Y,SIZE/2
HȖ
H&Ȗ
H0ȏX,Y,SIZE/2
H:#�Z=4��(64):ȏȐX,Y,SIZE/2:�4,0
HD�Z=2��select
HN�-90�0,0:�undo:�4,0
HX�-58 SIZE=SIZE+5
Hb�-42 SIZE=SIZE-5
Hl�SIZE>1023�SIZE=1022
Hv�SIZE<6�SIZE=6
H�	�`~G
H��
H�
��exit
H�*alphabet latin1
H�ș"Hourglass_Smash"
H�ș"Wimp_SetMode",15
H�	�TT@
H��
H�
��help
H��15:ȗ �
H�*DIR <SPACE$DIR>.HELP
H��"TYPE "+help$
H��15
I�"CLICK A MOUSE BUTTON"
I�
IȗX,Y,Z:�Z<8� Z>0
I 	�TP]
I*�
I4��help2
I>�15:ȗ �
IH*DIR <SPACE$DIR>.HELP
IR*TYPE MAIN
I\�15
If�"CLICK A MOUSE BUTTON"
Ip�
IzȗX,Y,Z:�Z<8� Z>0
I�	�TP]
I��
I���initgridXY
I��QQQQ=1�1280�50
I�$� X>QQQQ � X<QQQQ+50 � X=QQQQ+25
I�$� Y>QQQQ � Y<QQQQ+50 � Y=QQQQ+25
I��
I��
I���initgridAB
I��QQQQ=1�1280�50
I�$� A>QQQQ � A<QQQQ+50 � A=QQQQ+25
I�$� B>QQQQ � B<QQQQ+50 � B=QQQQ+25
I��
J�
J��initgridAABB
J�QQQQ=1�1280�50
J$'� AA>QQQQ � AA<QQQQ+50 � AA=QQQQ+25
J.'� BB>QQQQ � BB<QQQQ+50 � BB=QQQQ+25
J8�
JB�
JL��initgridXXYY
JV�QQQQ=1�1280�50
J`'� XX>QQQQ � XX<QQQQ+50 � XX=QQQQ+25
Jj'� YY>QQQQ � YY<QQQQ+50 � YY=QQQQ+25
Jt�
J~�
J���drawgrid
J��FF=1�1280�50
J��FF,0,FF,1280
J��
J��FF=1�1280�50
J��0,FF,1280,FF
J��
J��
J���remake(hhhh,xxxxx,yyyyy)
J�*remake%=hhhh:xxxxxx=xxxxx:yyyyyy=yyyyy
J��
Kx��help3
K�*DIR <SPACE$DIR>.HELP
K��15
K�*TYPE MAIN
K��53
K��"CLICK A MOUSE BUTTON"
K��:ȗX,Y,Z:�Z>0 � Z<8
K�*ș"Wimp_SetMode",15:�Wimp_WaitForEvent
K��
K�
��opendir
K�)*FILER_OPENDIR <SPACE$DIR>.spritePICS
K��
K���docol(gcol%)
K��BBF=1�255�64
L�gcol%Ȝ(BBF)
Lȓ Ȑpos%,BBF,44,64
L�
L"pos%=pos%+44
L,�
L6
��list
L@�15
LJ,� COMP=0 � �"DIR <SPACE$DIR>.SPRITEPICS"
LT+� COMP=1 � �"DIR <SPACE$DIR>.SPACEPICS"
L^*EX
Lh�15
Lr�"PRESS THE SPACEBAR"
L|�
L�
� �-99
L�ȗ �:�files
L��
L���check_clear
L��15
L��Q=1�300
L�ȏ Ȑ�(1280),�(1024),�(2)
L��
L�*SCHOOSE OPTON
L�5ȑ300,200:�&ED,0,0:�&ED,0,80:�&ED,90,0:�&ED,90,80
L�*SCHOOSE OPTOFF
L�5ȑ750,200:�&ED,0,0:�&ED,0,80:�&ED,90,0:�&ED,90,80
M2ȑ0,0:�5:�363,170:�13:�"YES":�823,170:�3:�"NO"
MBȑ-30,0:�31:ȓ Ȑ500,550,300,100:�48:�550,605:�"ARE YOU SURE?"
Mȗ �
M&ȗX,Y,Z
M07� X>300 � X<480 � Y>200 � Y<360 � Z>0 � �15:�select
M51� X>750 � X<930 � Y>200 � Y<360 � Z>0 � �TZ]
M:	�PfM
MXGG=�(1000):�TZ]
Mb�
Ml��do_a_fill
Mqbc=�X,Y):t=Ȝ(X,Y)
Mr� bc=COL � t=TIN � �
Mv�:ȗX,Y,E:� E=0
M��(128+bc)Ȝt
M�	ȐX,Y
M�	�fill
M��
�

00000000  0d 00 0a 35 f4 20 41 75  74 68 6f 72 20 53 2e 42  |...5. Author S.B|
00000010  65 72 72 79 20 41 67 65  64 20 39 20 28 43 29 20  |erry Aged 9 (C) |
00000020  41 72 63 68 69 6d 65 64  65 73 20 57 6f 72 6c 64  |Archimedes World|
00000030  20 31 39 39 33 0d 00 14  25 f2 57 69 6d 70 5f 53  | 1993...%.Wimp_S|
00000040  74 61 72 74 28 22 53 70  61 63 65 50 61 69 6e 74  |tart("SpacePaint|
00000050  22 2c 35 34 35 2c 34 32  35 29 0d 00 1e 18 f2 55  |",545,425).....U|
00000060  73 65 72 5f 53 65 74 49  6e 69 74 69 61 6c 44 61  |ser_SetInitialDa|
00000070  74 61 0d 00 28 13 f2 43  72 65 61 74 65 5f 57 69  |ta..(..Create_Wi|
00000080  6e 64 6f 77 73 0d 00 32  11 f2 43 72 65 61 74 65  |ndows..2..Create|
00000090  5f 4d 65 6e 75 73 0d 00  3c 16 f2 57 69 6d 70 5f  |_Menus..<..Wimp_|
000000a0  57 61 69 74 46 6f 72 45  76 65 6e 74 0d 00 46 13  |WaitForEvent..F.|
000000b0  f2 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 0d  |.Wimp_CloseDown.|
000000c0  00 50 05 e0 0d 00 5a 04  0d 00 64 19 dd f2 55 73  |.P....Z...d...Us|
000000d0  65 72 5f 53 65 74 49 6e  69 74 69 61 6c 44 61 74  |er_SetInitialDat|
000000e0  61 0d 00 6e 5a 63 6c 65  61 72 3d a3 3a 43 4f 4d  |a..nZclear=.:COM|
000000f0  50 3d 31 3a 43 4f 4c 3d  36 32 3a 54 49 4e 3d 31  |P=1:COL=62:TIN=1|
00000100  32 38 3a 78 78 78 78 78  78 3d 35 30 3a 79 79 79  |28:xxxxxx=50:yyy|
00000110  79 79 79 3d 39 30 30 3a  47 52 49 44 3d 30 3a 70  |yyy=900:GRID=0:p|
00000120  6f 73 25 3d 30 3a 72 65  6d 61 6b 65 25 3d 39 33  |os%=0:remake%=93|
00000130  31 30 3a 53 49 5a 45 3d  31 30 30 0d 00 78 05 e1  |10:SIZE=100..x..|
00000140  0d 00 82 04 0d 00 8c 14  dd f2 43 72 65 61 74 65  |..........Create|
00000150  5f 57 69 6e 64 6f 77 73  0d 00 96 29 49 6e 66 6f  |_Windows...)Info|
00000160  5f 57 69 6e 64 6f 77 25  3d a4 57 69 6d 70 5f 57  |_Window%=.Wimp_W|
00000170  69 6e 64 6f 77 4c 6f 61  64 28 22 49 6e 66 6f 22  |indowLoad("Info"|
00000180  29 0d 00 a0 2f 49 6e 66  6f 32 5f 57 69 6e 64 6f  |).../Info2_Windo|
00000190  77 25 3d a4 57 69 6d 70  5f 57 69 6e 64 6f 77 4c  |w%=.Wimp_WindowL|
000001a0  6f 61 64 28 22 50 48 4f  4e 45 5f 4e 55 4d 22 29  |oad("PHONE_NUM")|
000001b0  0d 00 aa 26 42 61 72 5f  49 63 6f 6e 25 3d a4 57  |...&Bar_Icon%=.W|
000001c0  69 6d 70 5f 49 63 6f 6e  42 61 72 28 22 69 63 6f  |imp_IconBar("ico|
000001d0  6e 62 61 72 22 29 0d 00  b4 05 e1 0d 00 be 04 0d  |nbar")..........|
000001e0  00 c8 19 dd a4 45 76 65  6e 74 5f 53 61 76 65 28  |.....Event_Save(|
000001f0  77 69 6e 64 6f 77 25 29  0d 00 d2 0e c8 8e 77 69  |window%)......wi|
00000200  6e 64 6f 77 25 ca 0d 00  dc 04 0d 00 e6 08 7f 3a  |ndow%..........:|
00000210  3d a3 0d 00 f0 05 cb 0d  00 fa 04 0d 01 04 12 dd  |=...............|
00000220  f2 43 72 65 61 74 65 5f  4d 65 6e 75 73 0d 01 0e  |.Create_Menus...|
00000230  4d 42 61 72 5f 4d 65 6e  75 25 3d a4 57 69 6d 70  |MBar_Menu%=.Wimp|
00000240  5f 4d 65 6e 75 43 72 65  61 74 65 28 22 53 70 61  |_MenuCreate("Spa|
00000250  63 65 50 61 69 6e 74 5c  49 6e 66 6f 3e 49 6e 66  |cePaint\Info>Inf|
00000260  6f 5f 57 69 6e 64 6f 77  25 5c 4d 61 69 6e 20 48  |o_Window%\Main H|
00000270  65 6c 70 5c 51 75 69 74  22 29 0d 01 18 05 e1 0d  |elp\Quit")......|
00000280  01 22 04 0d 01 2c 19 dd  a4 45 76 65 6e 74 5f 4d  |."...,...Event_M|
00000290  65 6e 75 28 77 69 6e 64  6f 77 25 29 0d 01 36 0e  |enu(window%)..6.|
000002a0  c8 8e 77 69 6e 64 6f 77  25 ca 0d 01 40 1b c9 42  |..window%...@..B|
000002b0  61 72 5f 57 69 6e 64 6f  77 25 3a 3d 42 61 72 5f  |ar_Window%:=Bar_|
000002c0  4d 65 6e 75 25 0d 01 4a  08 7f 3a 3d a3 0d 01 54  |Menu%..J..:=...T|
000002d0  05 cb 0d 01 5e 04 0d 01  68 29 dd f2 45 76 65 6e  |....^...h)..Even|
000002e0  74 5f 57 69 6e 64 6f 77  43 6c 6f 73 65 28 77 69  |t_WindowClose(wi|
000002f0  6e 64 6f 77 25 2c 62 75  74 74 6f 6e 73 25 29 0d  |ndow%,buttons%).|
00000300  01 72 0e c8 8e 77 69 6e  64 6f 77 25 ca 0d 01 7c  |.r...window%...||
00000310  05 cb 0d 01 86 05 e1 0d  01 90 04 0d 01 9a 2d dd  |..............-.|
00000320  f2 45 76 65 6e 74 5f 44  72 61 77 28 77 69 6e 64  |.Event_Draw(wind|
00000330  6f 77 25 2c 78 5f 6f 72  69 67 69 6e 25 2c 79 5f  |ow%,x_origin%,y_|
00000340  6f 72 69 67 69 6e 25 29  0d 01 a4 0e c8 8e 77 69  |origin%)......wi|
00000350  6e 64 6f 77 25 ca 0d 01  ae 26 c9 49 6e 66 6f 5f  |ndow%....&.Info_|
00000360  57 69 6e 64 6f 77 25 3a  f2 55 73 65 72 5f 44 72  |Window%:.User_Dr|
00000370  61 77 49 6e 66 6f 57 69  6e 64 6f 77 0d 01 b8 05  |awInfoWindow....|
00000380  cb 0d 01 c2 05 e1 0d 01  cc 04 0d 01 d6 04 0d 01  |................|
00000390  e0 33 dd f2 45 76 65 6e  74 5f 4d 6f 75 73 65 43  |.3..Event_MouseC|
000003a0  6c 69 63 6b 28 77 69 6e  64 6f 77 25 2c 69 63 6f  |lick(window%,ico|
000003b0  6e 25 2c 62 75 74 74 6f  6e 25 2c 78 25 2c 79 25  |n%,button%,x%,y%|
000003c0  29 0d 01 ea 0e c8 8e 77  69 6e 64 6f 77 25 ca 0d  |)......window%..|
000003d0  01 f4 1f c9 42 61 72 5f  57 69 6e 64 6f 77 25 3a  |....Bar_Window%:|
000003e0  f2 55 73 65 72 5f 4d 6f  75 73 65 42 61 72 0d 01  |.User_MouseBar..|
000003f0  fe 30 c9 49 6e 66 6f 5f  57 69 6e 64 6f 77 25 3a  |.0.Info_Window%:|
00000400  f2 55 73 65 72 5f 4d 6f  75 73 65 49 6e 66 6f 28  |.User_MouseInfo(|
00000410  62 75 74 74 6f 6e 25 2c  69 63 6f 6e 25 29 0d 02  |button%,icon%)..|
00000420  08 05 cb 0d 02 12 05 e1  0d 02 1c 04 0d 02 26 13  |..............&.|
00000430  dd f2 55 73 65 72 5f 4d  6f 75 73 65 42 61 72 0d  |..User_MouseBar.|
00000440  02 30 09 f2 6d 61 69 6e  0d 02 3a 05 e1 0d 02 44  |.0..main..:....D|
00000450  04 0d 02 4e 23 dd f2 55  73 65 72 5f 4d 6f 75 73  |...N#..User_Mous|
00000460  65 49 6e 66 6f 28 62 75  74 74 6f 6e 25 2c 69 63  |eInfo(button%,ic|
00000470  6f 6e 25 29 0d 02 58 45  f2 57 69 6d 70 5f 57 69  |on%)..XE.Wimp_Wi|
00000480  6e 64 6f 77 41 6c 65 72  74 28 22 49 6e 66 6f 22  |ndowAlert("Info"|
00000490  2c 22 4d 6f 75 73 65 20  62 75 74 74 6f 6e 3d 22  |,"Mouse button="|
000004a0  2b c3 62 75 74 74 6f 6e  25 2b 22 69 63 6f 6e 3d  |+.button%+"icon=|
000004b0  22 2b c3 69 63 6f 6e 25  29 0d 02 62 05 e1 0d 02  |"+.icon%)..b....|
000004c0  6c 04 0d 02 76 28 dd f2  45 76 65 6e 74 5f 4b 65  |l...v(..Event_Ke|
000004d0  79 50 72 65 73 73 28 77  69 6e 64 6f 77 25 2c 69  |yPress(window%,i|
000004e0  63 6f 6e 25 2c 6b 65 79  25 29 0d 02 80 0e c8 8e  |con%,key%)......|
000004f0  77 69 6e 64 6f 77 25 ca  0d 02 8a 05 cb 0d 02 94  |window%.........|
00000500  05 e1 0d 02 9e 04 0d 02  a8 1d dd f2 45 76 65 6e  |............Even|
00000510  74 5f 4d 65 6e 75 43 68  6f 69 63 65 28 6d 65 6e  |t_MenuChoice(men|
00000520  75 25 29 0d 02 b2 0c c8  8e 6d 65 6e 75 25 ca 0d  |u%)......menu%..|
00000530  02 bc 22 c9 42 61 72 5f  4d 65 6e 75 25 3a f2 55  |..".Bar_Menu%:.U|
00000540  73 65 72 5f 4d 65 6e 75  43 68 6f 69 63 65 42 61  |ser_MenuChoiceBa|
00000550  72 0d 02 c6 05 cb 0d 02  d0 05 e1 0d 02 da 04 0d  |r...............|
00000560  02 e4 18 dd f2 55 73 65  72 5f 4d 65 6e 75 43 68  |.....User_MenuCh|
00000570  6f 69 63 65 42 61 72 0d  02 ee 1a c8 8e a4 57 69  |oiceBar.......Wi|
00000580  6d 70 5f 4d 65 6e 75 43  68 6f 69 63 65 28 30 29  |mp_MenuChoice(0)|
00000590  ca 0d 02 f8 06 c9 31 0d  03 02 0d c9 32 3a f2 68  |......1.....2:.h|
000005a0  65 6c 70 33 0d 03 16 12  c9 33 3a 66 69 6e 69 73  |elp3.....3:finis|
000005b0  68 65 64 25 3d b9 0d 03  20 05 cb 0d 03 2a 05 e1  |hed%=... ....*..|
000005c0  0d 03 34 04 0d 03 3e 21  dd f2 45 76 65 6e 74 5f  |..4...>!..Event_|
000005d0  4c 6f 61 64 46 69 6c 65  28 66 69 6c 65 24 2c 74  |LoadFile(file$,t|
000005e0  79 70 65 24 29 0d 03 48  05 e1 0d 03 52 04 0d 03  |ype$)..H....R...|
000005f0  5c 23 dd f2 45 76 65 6e  74 5f 53 61 76 65 46 69  |\#..Event_SaveFi|
00000600  6c 65 28 66 69 6c 65 24  2c 77 69 6e 64 6f 77 25  |le(file$,window%|
00000610  29 0d 03 66 0e c8 8e 77  69 6e 64 6f 77 25 ca 0d  |)..f...window%..|
00000620  03 70 40 c9 53 61 76 65  5f 57 69 6e 64 6f 77 25  |.p@.Save_Window%|
00000630  3a f2 57 69 6d 70 5f 57  69 6e 64 6f 77 41 6c 65  |:.Wimp_WindowAle|
00000640  72 74 28 22 53 61 76 65  22 2c 22 53 61 76 69 6e  |rt("Save","Savin|
00000650  67 20 66 69 6c 65 20 22  2b 66 69 6c 65 24 29 0d  |g file "+file$).|
00000660  03 7a 05 cb 0d 03 84 05  e1 0d 03 8e 04 0d 03 98  |.z..............|
00000670  04 0d 03 a2 27 dd f2 57  69 6d 70 5f 57 69 6e 64  |....'..Wimp_Wind|
00000680  6f 77 41 6c 65 72 74 28  74 69 74 6c 65 24 2c 6d  |owAlert(title$,m|
00000690  65 73 73 61 67 65 24 29  0d 03 ac 2b f2 57 69 6d  |essage$)...+.Wim|
000006a0  70 5f 57 69 6e 64 6f 77  41 6c 65 72 74 42 6f 78  |p_WindowAlertBox|
000006b0  28 74 69 74 6c 65 24 2c  6d 65 73 73 61 67 65 24  |(title$,message$|
000006c0  2c 30 29 0d 03 b6 05 e1  0d 03 c0 04 0d 03 ca 32  |,0)............2|
000006d0  dd f2 57 69 6d 70 5f 57  69 6e 64 6f 77 41 6c 65  |..Wimp_WindowAle|
000006e0  72 74 42 6f 78 28 74 69  74 6c 65 24 2c 6d 65 73  |rtBox(title$,mes|
000006f0  73 61 67 65 24 2c 62 75  74 74 6f 6e 25 29 0d 03  |sage$,button%)..|
00000700  d4 0e ea 72 65 73 70 6f  6e 73 65 25 0d 03 de 17  |...response%....|
00000710  24 28 77 69 6d 70 25 2b  34 29 3d 6d 65 73 73 61  |$(wimp%+4)=messa|
00000720  67 65 24 0d 03 e8 0e c8  8e 62 75 74 74 6f 6e 25  |ge$......button%|
00000730  ca 0d 03 f2 12 c9 32 3a  72 65 73 70 6f 6e 73 65  |......2:response|
00000740  25 3d 31 0d 03 fc 13 c9  31 3a 72 65 73 70 6f 6e  |%=1.....1:respon|
00000750  73 65 25 3d 31 35 0d 04  06 1a c9 33 3a 72 65 73  |se%=15.....3:res|
00000760  70 6f 6e 73 65 25 3d 28  31 3c 3c 35 29 2b 31 36  |ponse%=(1<<5)+16|
00000770  0d 04 10 1a c9 34 3a 72  65 73 70 6f 6e 73 65 25  |.....4:response%|
00000780  3d 28 31 3c 3c 36 29 2b  31 36 0d 04 1a 12 7f 3a  |=(1<<6)+16.....:|
00000790  72 65 73 70 6f 6e 73 65  25 3d 31 36 0d 04 24 05  |response%=16..$.|
000007a0  cb 0d 04 2e 3a c8 99 22  57 69 6d 70 5f 52 65 70  |....:.."Wimp_Rep|
000007b0  6f 72 74 45 72 72 6f 72  22 2c 77 69 6d 70 25 2c  |ortError",wimp%,|
000007c0  72 65 73 70 6f 6e 73 65  25 2c 74 69 74 6c 65 24  |response%,title$|
000007d0  b8 2c 72 65 73 70 6f 6e  73 65 25 0d 04 38 05 e1  |.,response%..8..|
000007e0  0d 04 42 04 0d 04 4c 28  dd a4 57 69 6d 70 5f 57  |..B...L(..Wimp_W|
000007f0  69 6e 64 6f 77 43 61 6e  63 65 6c 28 74 69 74 6c  |indowCancel(titl|
00000800  65 24 2c 6d 65 73 73 61  67 65 24 29 0d 04 56 17  |e$,message$)..V.|
00000810  24 28 77 69 6d 70 25 2b  34 29 3d 6d 65 73 73 61  |$(wimp%+4)=messa|
00000820  67 65 24 0d 04 60 10 72  65 73 70 6f 6e 73 65 25  |ge$..`.response%|
00000830  3d 32 33 0d 04 6a 3a c8  99 22 57 69 6d 70 5f 52  |=23..j:.."Wimp_R|
00000840  65 70 6f 72 74 45 72 72  6f 72 22 2c 77 69 6d 70  |eportError",wimp|
00000850  25 2c 72 65 73 70 6f 6e  73 65 25 2c 74 69 74 6c  |%,response%,titl|
00000860  65 24 b8 2c 72 65 73 70  6f 6e 73 65 25 0d 04 74  |e$.,response%..t|
00000870  10 3d 72 65 73 70 6f 6e  73 65 25 2d 32 0d 04 7e  |.=response%-2..~|
00000880  04 0d 04 88 2a dd f2 57  69 6d 70 5f 57 69 6e 64  |....*..Wimp_Wind|
00000890  6f 77 45 72 72 6f 72 42  6f 78 28 74 69 74 6c 65  |owErrorBox(title|
000008a0  24 2c 6d 65 73 73 61 67  65 24 29 0d 04 92 2b f2  |$,message$)...+.|
000008b0  57 69 6d 70 5f 57 69 6e  64 6f 77 41 6c 65 72 74  |Wimp_WindowAlert|
000008c0  42 6f 78 28 74 69 74 6c  65 24 2c 6d 65 73 73 61  |Box(title$,messa|
000008d0  67 65 24 2c 32 29 0d 04  9c 05 e1 0d 04 a6 04 0d  |ge$,2)..........|
000008e0  04 b0 1f dd a4 57 69 6d  70 5f 57 69 6e 64 6f 77  |.....Wimp_Window|
000008f0  54 69 74 6c 65 28 77 69  6e 64 6f 77 25 29 0d 04  |Title(window%)..|
00000900  ba 13 77 69 6d 70 25 21  30 3d 77 69 6e 64 6f 77  |..wimp%!0=window|
00000910  25 0d 04 c4 1f c8 99 22  57 69 6d 70 5f 47 65 74  |%......"Wimp_Get|
00000920  57 69 6e 64 49 6e 66 6f  22 2c 2c 77 69 6d 70 25  |WindInfo",,wimp%|
00000930  0d 04 ce 33 e7 28 28 77  69 6d 70 25 21 36 30 29  |...3.((wimp%!60)|
00000940  80 26 31 30 30 29 3d 30  85 31 2c 22 54 69 74 6c  |.&100)=0.1,"Titl|
00000950  65 20 69 73 6e 27 74 20  69 6e 64 69 72 65 63 74  |e isn't indirect|
00000960  65 64 22 0d 04 d8 10 3d  24 28 77 69 6d 70 25 21  |ed"....=$(wimp%!|
00000970  37 36 29 0d 04 e2 04 0d  04 ec 1e dd a4 57 69 6d  |76)..........Wim|
00000980  70 5f 57 69 6e 64 6f 77  4c 6f 61 64 28 77 69 6e  |p_WindowLoad(win|
00000990  64 6f 77 24 29 0d 04 f6  3a 3d a4 57 69 6d 70 5f  |dow$)...:=.Wimp_|
000009a0  57 69 6e 64 6f 77 4c 6f  61 64 46 72 6f 6d 28 77  |WindowLoadFrom(w|
000009b0  69 6e 64 6f 77 24 2c 22  3c 53 50 41 43 45 24 44  |indow$,"<SPACE$D|
000009c0  49 52 3e 2e 54 65 6d 70  6c 61 74 65 73 22 29 0d  |IR>.Templates").|
000009d0  05 00 04 0d 05 0a 2c dd  a4 57 69 6d 70 5f 57 69  |......,..Wimp_Wi|
000009e0  6e 64 6f 77 4c 6f 61 64  46 72 6f 6d 28 77 69 6e  |ndowLoadFrom(win|
000009f0  64 6f 77 24 2c 74 65 6d  70 6c 61 74 65 24 29 0d  |dow$,template$).|
00000a00  05 14 19 ea 63 25 2c 69  25 2c 6e 25 2c 6a 25 2c  |....c%,i%,n%,j%,|
00000a10  73 70 24 2c 73 70 32 24  0d 05 1e 24 c8 99 22 57  |sp$,sp2$...$.."W|
00000a20  69 6d 70 5f 4f 70 65 6e  54 65 6d 70 6c 61 74 65  |imp_OpenTemplate|
00000a30  22 2c 2c 74 65 6d 70 6c  61 74 65 24 0d 05 28 4a  |",,template$..(J|
00000a40  c8 99 22 57 69 6d 70 5f  4c 6f 61 64 54 65 6d 70  |.."Wimp_LoadTemp|
00000a50  6c 61 74 65 22 2c 2c 77  69 6d 70 25 2c 69 63 6f  |late",,wimp%,ico|
00000a60  6e 73 25 2c 69 63 6f 6e  5f 6d 65 6d 6f 72 79 25  |ns%,icon_memory%|
00000a70  2c 2d 31 2c 77 69 6e 64  6f 77 24 2c 30 b8 2c 2c  |,-1,window$,0.,,|
00000a80  69 63 6f 6e 73 25 0d 05  32 0f c8 8e 73 70 72 69  |icons%..2...spri|
00000a90  74 65 73 25 ca 0d 05 3c  18 c9 31 3a 77 69 6d 70  |tes%...<..1:wimp|
00000aa0  25 21 36 34 3d 73 70 72  69 74 65 73 25 0d 05 46  |%!64=sprites%..F|
00000ab0  26 7f 3a 77 69 6d 70 25  21 36 34 3d a4 45 76 65  |&.:wimp%!64=.Eve|
00000ac0  6e 74 5f 53 70 72 69 74  65 73 28 77 69 6e 64 6f  |nt_Sprites(windo|
00000ad0  77 25 29 0d 05 50 05 cb  0d 05 5a 23 c8 99 22 57  |w%)..P....Z#.."W|
00000ae0  69 6d 70 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |imp_CreateWindow|
00000af0  22 2c 2c 77 69 6d 70 25  b8 63 25 0d 05 64 1a c8  |",,wimp%.c%..d..|
00000b00  99 22 57 69 6d 70 5f 43  6c 6f 73 65 54 65 6d 70  |."Wimp_CloseTemp|
00000b10  6c 61 74 65 22 0d 05 6e  36 c8 99 22 57 69 6d 70  |late"..n6.."Wimp|
00000b20  5f 57 68 69 63 68 49 63  6f 6e 22 2c 63 25 2c 77  |_WhichIcon",c%,w|
00000b30  69 6d 70 25 2b 34 30 2c  31 2b 32 2b 28 31 3c 3c  |imp%+40,1+2+(1<<|
00000b40  38 29 2c 32 2b 28 31 3c  3c 38 29 0d 05 78 0f c8  |8),2+(1<<8)..x..|
00000b50  8e 77 69 6d 70 25 21 34  30 ca 0d 05 82 07 c9 2d  |.wimp%!40......-|
00000b60  31 0d 05 8c 0b 7f 3a 69  25 3d 34 30 0d 05 96 05  |1.....:i%=40....|
00000b70  f5 0d 05 a0 1f 77 69 6d  70 25 21 34 3d 77 69 6d  |.....wimp%!4=wim|
00000b80  70 25 21 69 25 3a 77 69  6d 70 25 21 30 3d 63 25  |p%!i%:wimp%!0=c%|
00000b90  0d 05 aa 20 c8 99 22 57  69 6d 70 5f 47 65 74 49  |... .."Wimp_GetI|
00000ba0  63 6f 6e 53 74 61 74 65  22 2c 2c 77 69 6d 70 25  |conState",,wimp%|
00000bb0  0d 05 b4 2a 73 70 24 3d  a4 57 69 6d 70 5f 47 65  |...*sp$=.Wimp_Ge|
00000bc0  74 53 74 72 69 6e 67 41  74 41 64 64 72 65 73 73  |tStringAtAddress|
00000bd0  28 77 69 6d 70 25 21 32  38 29 0d 05 be 1e c8 99  |(wimp%!28)......|
00000be0  22 57 69 6d 70 5f 44 65  6c 65 74 65 49 63 6f 6e  |"Wimp_DeleteIcon|
00000bf0  22 2c 2c 77 69 6d 70 25  0d 05 c8 0f c8 8e 73 70  |",,wimp%......sp|
00000c00  72 69 74 65 73 25 ca 0d  05 d2 11 c9 31 3a 77 69  |rites%......1:wi|
00000c10  6d 70 25 21 33 32 3d 31  0d 05 dc 05 7f 0d 05 e6  |mp%!32=1........|
00000c20  27 c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |'.."OS_SpriteOp"|
00000c30  2c 26 31 30 38 2c 73 70  72 69 74 65 73 25 b8 2c  |,&108,sprites%.,|
00000c40  2c 2c 6e 25 0d 05 f0 08  6a 25 3d 30 0d 05 fa 0b  |,,n%....j%=0....|
00000c50  f5 3a 6a 25 2b 3d 31 0d  06 04 36 c8 99 22 4f 53  |.:j%+=1...6.."OS|
00000c60  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 30 44 2c  |_SpriteOp",&10D,|
00000c70  73 70 72 69 74 65 73 25  2c 70 6f 69 6e 74 65 72  |sprites%,pointer|
00000c80  5f 62 6c 6f 63 6b 25 2c  32 30 2c 6a 25 0d 06 0e  |_block%,20,j%...|
00000c90  31 73 70 32 24 3d a4 57  69 6d 70 5f 47 65 74 53  |1sp2$=.Wimp_GetS|
00000ca0  74 72 69 6e 67 41 74 41  64 64 72 65 73 73 28 70  |tringAtAddress(p|
00000cb0  6f 69 6e 74 65 72 5f 62  6c 6f 63 6b 25 29 0d 06  |ointer_block%)..|
00000cc0  18 13 fd 6a 25 3d 6e 25  84 73 70 24 3d 73 70 32  |...j%=n%.sp$=sp2|
00000cd0  24 0d 06 22 2a e7 73 70  24 3d 73 70 32 24 8c 77  |$.."*.sp$=sp2$.w|
00000ce0  69 6d 70 25 21 33 32 3d  73 70 72 69 74 65 73 25  |imp%!32=sprites%|
00000cf0  8b 77 69 6d 70 25 21 33  32 3d 31 0d 06 2c 05 cb  |.wimp%!32=1..,..|
00000d00  0d 06 36 0e 77 69 6d 70  25 21 34 3d 63 25 0d 06  |..6.wimp%!4=c%..|
00000d10  40 28 c8 99 22 57 69 6d  70 5f 43 72 65 61 74 65  |@(.."Wimp_Create|
00000d20  49 63 6f 6e 22 2c 2c 77  69 6d 70 25 2b 34 b8 68  |Icon",,wimp%+4.h|
00000d30  61 6e 64 6c 65 25 0d 06  4a 09 69 25 2b 3d 34 0d  |andle%..J.i%+=4.|
00000d40  06 54 12 fd 28 77 69 6d  70 25 21 69 25 29 3d 2d  |.T..(wimp%!i%)=-|
00000d50  31 0d 06 5e 05 cb 0d 06  68 07 3d 63 25 0d 06 72  |1..^....h.=c%..r|
00000d60  04 0d 06 7c 24 dd f2 57  69 6d 70 5f 57 69 6e 64  |...|$..Wimp_Wind|
00000d70  6f 77 42 72 69 6e 67 54  6f 54 6f 70 28 77 69 6e  |owBringToTop(win|
00000d80  64 6f 77 25 29 0d 06 86  12 21 77 69 6d 70 25 3d  |dow%)....!wimp%=|
00000d90  77 69 6e 64 6f 77 25 0d  06 90 22 c8 99 22 57 69  |window%...".."Wi|
00000da0  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00000db0  65 22 2c 2c 77 69 6d 70  25 0d 06 9a 0f 77 69 6d  |e",,wimp%....wim|
00000dc0  70 25 21 32 38 3d 2d 31  0d 06 a4 1e c8 99 22 57  |p%!28=-1......"W|
00000dd0  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
00000de0  2c 77 69 6d 70 25 0d 06  ae 05 e1 0d 06 b8 04 0d  |,wimp%..........|
00000df0  06 c2 1f dd f2 57 69 6d  70 5f 57 69 6e 64 6f 77  |.....Wimp_Window|
00000e00  43 6c 6f 73 65 28 77 69  6e 64 6f 77 25 29 0d 06  |Close(window%)..|
00000e10  cc 12 21 77 69 6d 70 25  3d 77 69 6e 64 6f 77 25  |..!wimp%=window%|
00000e20  0d 06 d6 1f c8 99 22 57  69 6d 70 5f 43 6c 6f 73  |......"Wimp_Clos|
00000e30  65 57 69 6e 64 6f 77 22  2c 2c 77 69 6d 70 25 0d  |eWindow",,wimp%.|
00000e40  06 e0 05 e1 0d 06 ea 04  0d 06 f4 23 dd f2 57 69  |...........#..Wi|
00000e50  6d 70 5f 57 69 6e 64 6f  77 46 6f 72 63 65 44 72  |mp_WindowForceDr|
00000e60  61 77 28 77 69 6e 64 6f  77 25 29 0d 06 fe 0e c8  |aw(window%).....|
00000e70  8e 77 69 6e 64 6f 77 25  ca 0d 07 08 31 c9 2d 31  |.window%....1.-1|
00000e80  3a c8 99 22 57 69 6d 70  5f 46 6f 72 63 65 52 65  |:.."Wimp_ForceRe|
00000e90  64 72 61 77 22 2c 2d 31  2c 30 2c 30 2c 32 2a 31  |draw",-1,0,0,2*1|
00000ea0  32 38 30 2c 32 2a 31 30  32 34 0d 07 12 35 7f 3a  |280,2*1024...5.:|
00000eb0  c8 99 22 57 69 6d 70 5f  46 6f 72 63 65 52 65 64  |.."Wimp_ForceRed|
00000ec0  72 61 77 22 2c 77 69 6e  64 6f 77 25 2c 30 2c 2d  |raw",window%,0,-|
00000ed0  32 2a 31 30 32 34 2c 32  2a 31 32 38 30 2c 30 0d  |2*1024,2*1280,0.|
00000ee0  07 1c 05 cb 0d 07 26 05  e1 0d 07 30 04 0d 07 3a  |......&....0...:|
00000ef0  1e dd f2 57 69 6d 70 5f  57 69 6e 64 6f 77 4f 70  |...Wimp_WindowOp|
00000f00  65 6e 28 77 69 6e 64 6f  77 25 29 0d 07 44 12 21  |en(window%)..D.!|
00000f10  77 69 6d 70 25 3d 77 69  6e 64 6f 77 25 0d 07 4e  |wimp%=window%..N|
00000f20  22 c8 99 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |".."Wimp_GetWind|
00000f30  6f 77 53 74 61 74 65 22  2c 2c 77 69 6d 70 25 0d  |owState",,wimp%.|
00000f40  07 58 1e c8 99 22 57 69  6d 70 5f 4f 70 65 6e 57  |.X..."Wimp_OpenW|
00000f50  69 6e 64 6f 77 22 2c 2c  77 69 6d 70 25 0d 07 62  |indow",,wimp%..b|
00000f60  05 e1 0d 07 6c 04 0d 07  76 19 f2 57 69 6d 70 5f  |....l...v..Wimp_|
00000f70  57 69 6e 64 6f 77 49 6e  74 65 72 66 61 63 65 0d  |WindowInterface.|
00000f80  07 80 20 c8 99 22 57 69  6d 70 5f 42 6f 72 64 65  |.. .."Wimp_Borde|
00000f90  72 57 69 6e 64 6f 77 22  2c 2c 77 69 6d 70 25 0d  |rWindow",,wimp%.|
00000fa0  07 8a 05 e1 0d 07 94 04  0d 07 9e 04 0d 07 a8 1b  |................|
00000fb0  dd a4 57 69 6d 70 5f 49  63 6f 6e 42 61 72 28 53  |..Wimp_IconBar(S|
00000fc0  70 72 69 74 65 24 29 0d  07 b2 0a ea 69 63 6f 6e  |prite$).....icon|
00000fd0  25 0d 07 bc 0e 77 69 6d  70 25 21 30 3d 2d 31 0d  |%....wimp%!0=-1.|
00000fe0  07 c6 17 77 69 6d 70 25  21 34 3d 30 3a 77 69 6d  |...wimp%!4=0:wim|
00000ff0  70 25 21 38 3d 30 0d 07  d0 1d 77 69 6d 70 25 21  |p%!8=0....wimp%!|
00001000  31 32 3d 31 30 30 3a 77  69 6d 70 25 21 31 36 3d  |12=100:wimp%!16=|
00001010  31 30 30 0d 07 da 12 77  69 6d 70 25 21 32 30 3d  |100....wimp%!20=|
00001020  26 33 30 30 32 0d 07 e4  17 24 28 77 69 6d 70 25  |&3002....$(wimp%|
00001030  2b 32 34 29 3d 53 70 72  69 74 65 24 0d 07 ee 24  |+24)=Sprite$...$|
00001040  c8 99 22 57 69 6d 70 5f  43 72 65 61 74 65 49 63  |.."Wimp_CreateIc|
00001050  6f 6e 22 2c 2c 77 69 6d  70 25 b8 69 63 6f 6e 25  |on",,wimp%.icon%|
00001060  0d 07 f8 0a 3d 69 63 6f  6e 25 0d 08 02 04 0d 08  |....=icon%......|
00001070  0c 2a dd f2 57 69 6d 70  5f 49 63 6f 6e 43 61 72  |.*..Wimp_IconCar|
00001080  65 74 28 77 69 6e 64 6f  77 25 2c 69 63 6f 6e 25  |et(window%,icon%|
00001090  2c 63 68 61 72 73 25 29  0d 08 16 37 c8 99 22 57  |,chars%)...7.."W|
000010a0  69 6d 70 5f 53 65 74 43  61 72 65 74 50 6f 73 69  |imp_SetCaretPosi|
000010b0  74 69 6f 6e 22 2c 77 69  6e 64 6f 77 25 2c 69 63  |tion",window%,ic|
000010c0  6f 6e 25 2c 2c 2c 2d 31  2c 63 68 61 72 73 25 0d  |on%,,,-1,chars%.|
000010d0  08 20 05 e1 0d 08 2a 04  0d 08 34 22 dd a4 57 69  |. ....*...4"..Wi|
000010e0  6d 70 5f 49 63 6f 6e 54  65 78 74 28 77 69 6e 64  |mp_IconText(wind|
000010f0  6f 77 25 2c 69 63 6f 6e  25 29 0d 08 3e 21 77 69  |ow%,icon%)..>!wi|
00001100  6d 70 25 21 30 3d 77 69  6e 64 6f 77 25 3a 77 69  |mp%!0=window%:wi|
00001110  6d 70 25 21 34 3d 69 63  6f 6e 25 0d 08 48 20 c8  |mp%!4=icon%..H .|
00001120  99 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  |."Wimp_GetIconSt|
00001130  61 74 65 22 2c 2c 77 69  6d 70 25 0d 08 52 32 e7  |ate",,wimp%..R2.|
00001140  28 28 77 69 6d 70 25 21  32 34 29 80 26 31 30 30  |((wimp%!24).&100|
00001150  29 3d 30 85 31 2c 22 49  63 6f 6e 20 69 73 6e 27  |)=0.1,"Icon isn'|
00001160  74 20 69 6e 64 69 72 65  63 74 65 64 22 0d 08 5c  |t indirected"..\|
00001170  10 3d 24 28 77 69 6d 70  25 21 32 38 29 0d 08 66  |.=$(wimp%!28)..f|
00001180  04 0d 08 70 28 dd a4 57  69 6d 70 5f 49 63 6f 6e  |...p(..Wimp_Icon|
00001190  56 61 6c 69 64 61 74 69  6f 6e 28 77 69 6e 64 6f  |Validation(windo|
000011a0  77 25 2c 69 63 6f 6e 25  29 0d 08 7a 21 77 69 6d  |w%,icon%)..z!wim|
000011b0  70 25 21 30 3d 77 69 6e  64 6f 77 25 3a 77 69 6d  |p%!0=window%:wim|
000011c0  70 25 21 34 3d 69 63 6f  6e 25 0d 08 84 20 c8 99  |p%!4=icon%... ..|
000011d0  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
000011e0  74 65 22 2c 2c 77 69 6d  70 25 0d 08 8e 32 e7 28  |te",,wimp%...2.(|
000011f0  28 77 69 6d 70 25 21 32  34 29 80 26 31 30 30 29  |(wimp%!24).&100)|
00001200  3d 30 85 31 2c 22 49 63  6f 6e 20 69 73 6e 27 74  |=0.1,"Icon isn't|
00001210  20 69 6e 64 69 72 65 63  74 65 64 22 0d 08 98 10  | indirected"....|
00001220  3d 24 28 77 69 6d 70 25  21 33 32 29 0d 08 a2 04  |=$(wimp%!32)....|
00001230  0d 08 ac 25 dd f2 57 69  6d 70 5f 49 63 6f 6e 44  |...%..Wimp_IconD|
00001240  69 73 61 62 6c 65 28 77  69 6e 64 6f 77 25 2c 69  |isable(window%,i|
00001250  63 6f 6e 25 29 0d 08 b6  21 77 69 6d 70 25 21 30  |con%)...!wimp%!0|
00001260  3d 77 69 6e 64 6f 77 25  3a 77 69 6d 70 25 21 34  |=window%:wimp%!4|
00001270  3d 69 63 6f 6e 25 0d 08  c0 20 77 69 6d 70 25 21  |=icon%... wimp%!|
00001280  38 3d 31 3c 3c 32 32 3a  77 69 6d 70 25 21 31 32  |8=1<<22:wimp%!12|
00001290  3d 31 3c 3c 32 32 0d 08  ca 20 c8 99 22 57 69 6d  |=1<<22... .."Wim|
000012a0  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
000012b0  2c 77 69 6d 70 25 0d 08  d4 05 e1 0d 08 de 04 0d  |,wimp%..........|
000012c0  08 e8 24 dd f2 57 69 6d  70 5f 49 63 6f 6e 45 6e  |..$..Wimp_IconEn|
000012d0  61 62 6c 65 28 77 69 6e  64 6f 77 25 2c 69 63 6f  |able(window%,ico|
000012e0  6e 25 29 0d 08 f2 21 77  69 6d 70 25 21 30 3d 77  |n%)...!wimp%!0=w|
000012f0  69 6e 64 6f 77 25 3a 77  69 6d 70 25 21 34 3d 69  |indow%:wimp%!4=i|
00001300  63 6f 6e 25 0d 08 fc 1c  77 69 6d 70 25 21 38 3d  |con%....wimp%!8=|
00001310  30 3a 77 69 6d 70 25 21  31 32 3d 31 3c 3c 32 32  |0:wimp%!12=1<<22|
00001320  0d 09 06 20 c8 99 22 57  69 6d 70 5f 53 65 74 49  |... .."Wimp_SetI|
00001330  63 6f 6e 53 74 61 74 65  22 2c 2c 77 69 6d 70 25  |conState",,wimp%|
00001340  0d 09 10 05 e1 0d 09 1a  04 0d 09 24 2f dd a4 57  |...........$/..W|
00001350  69 6d 70 5f 49 63 6f 6e  50 75 74 53 70 72 69 74  |imp_IconPutSprit|
00001360  65 28 77 69 6e 64 6f 77  25 2c 69 63 6f 6e 25 2c  |e(window%,icon%,|
00001370  73 70 72 69 74 65 24 29  0d 09 2e 21 77 69 6d 70  |sprite$)...!wimp|
00001380  25 21 30 3d 77 69 6e 64  6f 77 25 3a 77 69 6d 70  |%!0=window%:wimp|
00001390  25 21 34 3d 69 63 6f 6e  25 0d 09 38 20 c8 99 22  |%!4=icon%..8 .."|
000013a0  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
000013b0  65 22 2c 2c 77 69 6d 70  25 0d 09 42 1e c8 99 22  |e",,wimp%..B..."|
000013c0  57 69 6d 70 5f 44 65 6c  65 74 65 49 63 6f 6e 22  |Wimp_DeleteIcon"|
000013d0  2c 2c 77 69 6d 70 25 0d  09 4c 36 77 69 6d 70 25  |,,wimp%..L6wimp%|
000013e0  21 34 3d 77 69 6d 70 25  21 38 3a 77 69 6d 70 25  |!4=wimp%!8:wimp%|
000013f0  21 38 3d 77 69 6d 70 25  21 31 32 3a 77 69 6d 70  |!8=wimp%!12:wimp|
00001400  25 21 31 32 3d 77 69 6d  70 25 21 31 36 0d 09 56  |%!12=wimp%!16..V|
00001410  3b 77 69 6d 70 25 21 31  36 3d 77 69 6d 70 25 21  |;wimp%!16=wimp%!|
00001420  32 30 3a 77 69 6d 70 25  21 32 30 3d 77 69 6d 70  |20:wimp%!20=wimp|
00001430  25 21 32 34 3a 24 28 77  69 6d 70 25 2b 32 34 29  |%!24:$(wimp%+24)|
00001440  3d 73 70 72 69 74 65 24  0d 09 60 24 c8 99 22 57  |=sprite$..`$.."W|
00001450  69 6d 70 5f 43 72 65 61  74 65 49 63 6f 6e 22 2c  |imp_CreateIcon",|
00001460  2c 77 69 6d 70 25 b8 69  63 6f 6e 25 0d 09 6a 0a  |,wimp%.icon%..j.|
00001470  3d 69 63 6f 6e 25 0d 09  74 04 0d 09 7e 2b dd f2  |=icon%..t...~+..|
00001480  57 69 6d 70 5f 49 63 6f  6e 50 75 74 54 65 78 74  |Wimp_IconPutText|
00001490  28 77 69 6e 64 6f 77 25  2c 69 63 6f 6e 25 2c 74  |(window%,icon%,t|
000014a0  65 78 74 24 29 0d 09 88  21 77 69 6d 70 25 21 30  |ext$)...!wimp%!0|
000014b0  3d 77 69 6e 64 6f 77 25  3a 77 69 6d 70 25 21 34  |=window%:wimp%!4|
000014c0  3d 69 63 6f 6e 25 0d 09  92 20 c8 99 22 57 69 6d  |=icon%... .."Wim|
000014d0  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
000014e0  2c 77 69 6d 70 25 0d 09  9c 32 e7 28 28 77 69 6d  |,wimp%...2.((wim|
000014f0  70 25 21 32 34 29 80 26  31 30 30 29 3d 30 85 31  |p%!24).&100)=0.1|
00001500  2c 22 49 63 6f 6e 20 69  73 6e 27 74 20 69 6e 64  |,"Icon isn't ind|
00001510  69 72 65 63 74 65 64 22  0d 09 a6 15 24 28 77 69  |irected"....$(wi|
00001520  6d 70 25 21 32 38 29 3d  74 65 78 74 24 0d 09 b0  |mp%!28)=text$...|
00001530  21 77 69 6d 70 25 21 30  3d 77 69 6e 64 6f 77 25  |!wimp%!0=window%|
00001540  3a 77 69 6d 70 25 21 34  3d 69 63 6f 6e 25 0d 09  |:wimp%!4=icon%..|
00001550  ba 18 77 69 6d 70 25 21  38 3d 30 3a 77 69 6d 70  |..wimp%!8=0:wimp|
00001560  25 21 31 32 3d 30 0d 09  c4 20 c8 99 22 57 69 6d  |%!12=0... .."Wim|
00001570  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
00001580  2c 77 69 6d 70 25 0d 09  ce 05 e1 0d 09 d8 04 0d  |,wimp%..........|
00001590  09 e2 1d dd f2 57 69 6d  70 5f 49 63 6f 6e 49 6e  |.....Wimp_IconIn|
000015a0  74 65 72 66 61 63 65 53  74 61 72 74 0d 09 ec 1e  |terfaceStart....|
000015b0  c8 99 22 57 69 6d 70 5f  42 6f 72 64 65 72 49 63  |.."Wimp_BorderIc|
000015c0  6f 6e 22 2c 2c 77 69 6d  70 25 0d 09 f6 05 e1 0d  |on",,wimp%......|
000015d0  0a 00 04 0d 0a 0a 1e dd  f2 57 69 6d 70 5f 49 63  |.........Wimp_Ic|
000015e0  6f 6e 49 6e 74 65 72 66  61 63 65 46 69 6e 69 73  |onInterfaceFinis|
000015f0  68 0d 0a 14 0d 77 69 6d  70 25 21 38 3d 30 0d 0a  |h....wimp%!8=0..|
00001600  1e 1e c8 99 22 57 69 6d  70 5f 42 6f 72 64 65 72  |...."Wimp_Border|
00001610  49 63 6f 6e 22 2c 2c 77  69 6d 70 25 0d 0a 28 05  |Icon",,wimp%..(.|
00001620  e1 0d 0a 32 04 0d 0a 3c  1e dd f2 57 69 6d 70 5f  |...2...<...Wimp_|
00001630  4d 65 6e 75 41 64 6a 75  73 74 4f 6e 28 6d 65 6e  |MenuAdjustOn(men|
00001640  75 25 29 0d 0a 46 2b c8  99 22 57 69 6d 70 5f 47  |u%)..F+.."Wimp_G|
00001650  65 74 50 6f 69 6e 74 65  72 49 6e 66 6f 22 2c 2c  |etPointerInfo",,|
00001660  70 6f 69 6e 74 65 72 5f  62 6c 6f 63 6b 25 0d 0a  |pointer_block%..|
00001670  50 5a e7 28 28 70 6f 69  6e 74 65 72 5f 62 6c 6f  |PZ.((pointer_blo|
00001680  63 6b 25 21 38 29 80 31  29 3d 31 8c c8 99 22 57  |ck%!8).1)=1..."W|
00001690  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
000016a0  2c 6d 65 6e 75 25 2c 70  6f 69 6e 74 65 72 5f 62  |,menu%,pointer_b|
000016b0  6c 6f 63 6b 25 21 30 2c  70 6f 69 6e 74 65 72 5f  |lock%!0,pointer_|
000016c0  62 6c 6f 63 6b 25 21 34  0d 0a 5a 05 e1 0d 0a 64  |block%!4..Z....d|
000016d0  04 0d 0a 6e 1d dd a4 57  69 6d 70 5f 4d 65 6e 75  |...n...Wimp_Menu|
000016e0  43 68 6f 69 63 65 28 6c  65 76 65 6c 25 29 0d 0a  |Choice(level%)..|
000016f0  78 19 3d 28 77 69 6d 70  25 21 28 34 2a 6c 65 76  |x.=(wimp%!(4*lev|
00001700  65 6c 25 29 29 2b 31 0d  0a 82 04 0d 0a 8c 1c dd  |el%))+1.........|
00001710  a4 57 69 6d 70 5f 4d 65  6e 75 43 72 65 61 74 65  |.Wimp_MenuCreate|
00001720  28 6d 65 6e 75 24 29 0d  0a 96 27 e7 6d 65 6e 75  |(menu$)...'.menu|
00001730  24 3d 22 43 6f 6c 6f 75  72 73 22 8c 3d a4 57 69  |$="Colours".=.Wi|
00001740  6d 70 5f 4d 65 6e 75 43  6f 6c 6f 75 72 73 0d 0a  |mp_MenuColours..|
00001750  a0 26 ea 6d 65 6e 75 25  2c 69 6e 64 65 78 25 2c  |.&.menu%,index%,|
00001760  77 69 64 74 68 25 2c 6c  65 6e 67 74 68 25 2c 6b  |width%,length%,k|
00001770  25 2c 73 25 0d 0a aa 2c  de 6d 65 6e 75 25 32 38  |%,s%...,.menu%28|
00001780  2b a4 57 69 6d 70 5f 4d  65 6e 75 4e 6f 4f 66 45  |+.Wimp_MenuNoOfE|
00001790  6e 74 72 69 65 73 28 6d  65 6e 75 24 29 2a 32 34  |ntries(menu$)*24|
000017a0  0d 0a b4 2f 6d 65 6e 75  25 3f 31 32 3d 37 3a 6d  |.../menu%?12=7:m|
000017b0  65 6e 75 25 3f 31 33 3d  32 3a 6d 65 6e 75 25 3f  |enu%?13=2:menu%?|
000017c0  31 34 3d 37 3a 6d 65 6e  75 25 3f 31 35 3d 30 0d  |14=7:menu%?15=0.|
000017d0  0a be 27 6d 65 6e 75 25  21 31 36 3d 31 34 30 3a  |..'menu%!16=140:|
000017e0  6d 65 6e 75 25 21 32 30  3d 34 34 3a 6d 65 6e 75  |menu%!20=44:menu|
000017f0  25 21 32 34 3d 30 0d 0a  c8 13 69 6e 64 65 78 25  |%!24=0....index%|
00001800  3d 6d 65 6e 75 25 2b 32  38 0d 0a d2 20 24 6d 65  |=menu%+28... $me|
00001810  6e 75 25 3d c0 6d 65 6e  75 24 2c a7 6d 65 6e 75  |nu%=.menu$,.menu|
00001820  24 2c 22 5c 22 29 2d 31  29 0d 0a dc 23 77 69 64  |$,"\")-1)...#wid|
00001830  74 68 25 3d a9 28 c0 6d  65 6e 75 24 2c a7 6d 65  |th%=.(.menu$,.me|
00001840  6e 75 24 2c 22 5c 22 29  2d 31 29 29 0d 0a e6 22  |nu$,"\")-1))..."|
00001850  6d 65 6e 75 24 2b 3d 22  5c 22 3a 4d 65 6e 75 5f  |menu$+="\":Menu_|
00001860  4e 6f 4f 66 45 6e 74 72  69 65 73 25 3d 30 0d 0a  |NoOfEntries%=0..|
00001870  f0 0f c8 95 6d 65 6e 75  24 3c 3e 22 22 0d 0a fa  |....menu$<>""...|
00001880  1f 6d 65 6e 75 24 3d c1  6d 65 6e 75 24 2c a7 6d  |.menu$=.menu$,.m|
00001890  65 6e 75 24 2c 22 5c 22  29 2b 31 29 0d 0b 04 0c  |enu$,"\")+1)....|
000018a0  c8 8e 6d 65 6e 75 24 ca  0d 0b 0e 07 c9 22 22 0d  |..menu$......"".|
000018b0  0b 18 05 7f 0d 0b 22 2b  21 69 6e 64 65 78 25 3d  |......"+!index%=|
000018c0  30 3a 69 6e 64 65 78 25  21 34 3d 2d 31 3a 69 6e  |0:index%!4=-1:in|
000018d0  64 65 78 25 21 38 3d 26  37 30 30 30 30 32 31 0d  |dex%!8=&7000021.|
000018e0  0b 2c 19 6c 65 6e 67 74  68 25 3d a7 6d 65 6e 75  |.,.length%=.menu|
000018f0  24 2c 22 5c 22 29 2d 31  0d 0b 36 1c 6b 25 3d a7  |$,"\")-1..6.k%=.|
00001900  c0 6d 65 6e 75 24 2c 6c  65 6e 67 74 68 25 29 2c  |.menu$,length%),|
00001910  22 3e 22 29 0d 0b 40 09  c8 8e 6b 25 ca 0d 0b 4a  |">")..@...k%...J|
00001920  06 c9 30 0d 0b 54 05 7f  0d 0b 5e 21 73 25 3d a0  |..0..T....^!s%=.|
00001930  28 c1 6d 65 6e 75 24 2c  6b 25 2b 31 2c 6c 65 6e  |(.menu$,k%+1,len|
00001940  67 74 68 25 2d 6b 25 29  29 0d 0b 68 0f 69 6e 64  |gth%-k%))..h.ind|
00001950  65 78 25 21 34 3d 73 25  0d 0b 72 10 6c 65 6e 67  |ex%!4=s%..r.leng|
00001960  74 68 25 3d 6b 25 2d 31  0d 0b 7c 05 cb 0d 0b 86  |th%=k%-1..|.....|
00001970  20 24 28 69 6e 64 65 78  25 2b 31 32 29 3d c0 6d  | $(index%+12)=.m|
00001980  65 6e 75 24 2c 6c 65 6e  67 74 68 25 29 0d 0b 90  |enu$,length%)...|
00001990  22 e7 6c 65 6e 67 74 68  25 3e 77 69 64 74 68 25  |".length%>width%|
000019a0  8c 77 69 64 74 68 25 3d  6c 65 6e 67 74 68 25 0d  |.width%=length%.|
000019b0  0b 9a 0e 69 6e 64 65 78  25 2b 3d 32 34 0d 0b a4  |...index%+=24...|
000019c0  05 cb 0d 0b ae 05 ce 0d  0b b8 1a 6d 65 6e 75 25  |...........menu%|
000019d0  21 31 36 3d 31 36 2a 28  77 69 64 74 68 25 2b 31  |!16=16*(width%+1|
000019e0  29 0d 0b c2 24 69 6e 64  65 78 25 21 2d 32 34 3d  |)...$index%!-24=|
000019f0  69 6e 64 65 78 25 21 2d  32 34 84 26 38 30 3a 3d  |index%!-24.&80:=|
00001a00  6d 65 6e 75 25 0d 0b cc  04 0d 0b d6 16 dd a4 57  |menu%..........W|
00001a10  69 6d 70 5f 4d 65 6e 75  43 6f 6c 6f 75 72 73 0d  |imp_MenuColours.|
00001a20  0b e0 21 3d a4 57 69 6d  70 5f 4d 65 6e 75 43 72  |..!=.Wimp_MenuCr|
00001a30  65 61 74 65 43 6f 6c 6f  75 72 73 28 22 20 22 29  |eateColours(" ")|
00001a40  0d 0b ea 04 0d 0b f4 24  dd a4 57 69 6d 70 5f 4d  |.......$..Wimp_M|
00001a50  65 6e 75 43 72 65 61 74  65 43 6f 6c 6f 75 72 73  |enuCreateColours|
00001a60  28 74 69 74 6c 65 24 29  0d 0b fe 12 ea 78 24 2c  |(title$).....x$,|
00001a70  6d 65 6e 25 2c 6a 25 2c  69 25 0d 0c 08 36 78 24  |men%,j%,i%...6x$|
00001a80  3d 74 69 74 6c 65 24 2b  22 5c 30 5c 31 5c 32 5c  |=title$+"\0\1\2\|
00001a90  33 5c 34 5c 35 5c 36 5c  37 5c 38 5c 39 5c 31 30  |3\4\5\6\7\8\9\10|
00001aa0  5c 31 31 5c 31 32 5c 31  33 5c 31 34 5c 31 35 22  |\11\12\13\14\15"|
00001ab0  0d 0c 12 1d 6d 65 6e 25  3d a4 57 69 6d 70 5f 4d  |....men%=.Wimp_M|
00001ac0  65 6e 75 43 72 65 61 74  65 28 78 24 29 0d 0c 1c  |enuCreate(x$)...|
00001ad0  0c e3 69 25 3d 30 b8 31  35 0d 0c 26 0c c8 8e 54  |..i%=0.15..&...T|
00001ae0  52 55 45 4f 46 0d 0c 30  25 c9 69 25 3c 34 2c 69  |RUEOF..0%.i%<4,i|
00001af0  25 3d 39 2c 69 25 3d 31  32 2c 69 25 3d 31 34 2c  |%=9,i%=12,i%=14,|
00001b00  69 25 3d 31 35 3a 6a 25  3d 37 0d 0c 3a 0a 7f 3a  |i%=15:j%=7..:..:|
00001b10  6a 25 3d 30 0d 0c 44 05  cb 0d 0c 4e 1c 6d 65 6e  |j%=0..D....N.men|
00001b20  25 3f 28 33 39 2b 69 25  2a 32 34 29 3d 69 25 2a  |%?(39+i%*24)=i%*|
00001b30  31 36 2b 6a 25 0d 0c 58  1f f2 57 69 6d 70 5f 4d  |16+j%..X..Wimp_M|
00001b40  65 6e 75 43 65 6e 74 72  65 28 6d 65 6e 25 2c 69  |enuCentre(men%,i|
00001b50  25 2b 31 29 0d 0c 62 05  ed 0d 0c 6c 09 3d 6d 65  |%+1)..b....l.=me|
00001b60  6e 25 0d 0c 76 04 0d 0c  80 21 dd a4 57 69 6d 70  |n%..v....!..Wimp|
00001b70  5f 4d 65 6e 75 4e 6f 4f  66 45 6e 74 72 69 65 73  |_MenuNoOfEntries|
00001b80  28 6d 65 6e 75 24 29 0d  0c 8a 14 ea 6e 25 2c 6a  |(menu$).....n%,j|
00001b90  25 3a 6e 25 3d 30 3a 6a  25 3d 30 0d 0c 94 05 f5  |%:n%=0:j%=0.....|
00001ba0  0d 0c 9e 17 6a 25 3d a7  6d 65 6e 75 24 2c 22 5c  |....j%=.menu$,"\|
00001bb0  22 2c 6a 25 2b 31 29 0d  0c a8 10 e7 6a 25 3c 3e  |",j%+1).....j%<>|
00001bc0  30 8c 6e 25 2b 3d 31 0d  0c b2 09 fd 6a 25 3d 30  |0.n%+=1.....j%=0|
00001bd0  0d 0c bc 07 3d 6e 25 0d  0c c6 04 0d 0c d0 34 dd  |....=n%.......4.|
00001be0  f2 57 69 6d 70 5f 4d 65  6e 75 42 61 63 6b 47 72  |.Wimp_MenuBackGr|
00001bf0  6f 75 6e 64 43 6f 6c 6f  75 72 28 6d 65 6e 75 25  |oundColour(menu%|
00001c00  2c 69 74 65 6d 25 2c 63  6f 6c 6f 75 72 25 29 0d  |,item%,colour%).|
00001c10  0c da 0d ea 66 6f 72 65  25 2c 69 25 0d 0c e4 26  |....fore%,i%...&|
00001c20  66 6f 72 65 25 3d 28 6d  65 6e 75 25 3f 28 33 39  |fore%=(menu%?(39|
00001c30  2b 28 69 74 65 6d 25 2d  31 29 2a 32 34 29 29 83  |+(item%-1)*24)).|
00001c40  31 36 0d 0c ee 28 69 25  3d 28 28 6d 65 6e 75 25  |16...(i%=((menu%|
00001c50  3f 28 33 39 2b 28 69 74  65 6d 25 2d 31 29 2a 32  |?(39+(item%-1)*2|
00001c60  34 29 29 81 31 36 29 83  31 36 0d 0c f8 2f 6d 65  |4)).16).16.../me|
00001c70  6e 75 25 3f 28 33 39 2b  28 69 74 65 6d 25 2d 31  |nu%?(39+(item%-1|
00001c80  29 2a 32 34 29 3d 66 6f  72 65 25 2b 31 36 2a 63  |)*24)=fore%+16*c|
00001c90  6f 6c 6f 75 72 25 2b 69  25 0d 0d 02 05 e1 0d 0d  |olour%+i%.......|
00001ca0  0c 04 0d 0d 16 22 dd f2  57 69 6d 70 5f 4d 65 6e  |....."..Wimp_Men|
00001cb0  75 43 65 6e 74 72 65 28  6d 65 6e 75 25 2c 69 74  |uCentre(menu%,it|
00001cc0  65 6d 25 29 0d 0d 20 3a  6d 65 6e 75 25 21 28 33  |em%).. :menu%!(3|
00001cd0  36 2b 28 69 74 65 6d 25  2d 31 29 2a 32 34 29 3d  |6+(item%-1)*24)=|
00001ce0  6d 65 6e 75 25 21 28 33  36 2b 28 69 74 65 6d 25  |menu%!(36+(item%|
00001cf0  2d 31 29 2a 32 34 29 84  28 31 3c 3c 33 29 0d 0d  |-1)*24).(1<<3)..|
00001d00  2a 05 e1 0d 0d 34 04 0d  0d 3e 14 dd f2 57 69 6d  |*....4...>...Wim|
00001d10  70 5f 4d 65 6e 75 43 6c  6f 73 65 0d 0d 48 1a c8  |p_MenuClose..H..|
00001d20  99 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  |."Wimp_CreateMen|
00001d30  75 22 2c 2d 31 0d 0d 52  05 e1 0d 0d 5c 04 0d 0d  |u",-1..R....\...|
00001d40  66 23 dd f2 57 69 6d 70  5f 4d 65 6e 75 44 69 73  |f#..Wimp_MenuDis|
00001d50  61 62 6c 65 28 6d 65 6e  75 25 2c 69 74 65 6d 25  |able(menu%,item%|
00001d60  29 0d 0d 70 3b 6d 65 6e  75 25 21 28 33 36 2b 28  |)..p;menu%!(36+(|
00001d70  69 74 65 6d 25 2d 31 29  2a 32 34 29 3d 6d 65 6e  |item%-1)*24)=men|
00001d80  75 25 21 28 33 36 2b 28  69 74 65 6d 25 2d 31 29  |u%!(36+(item%-1)|
00001d90  2a 32 34 29 84 28 31 3c  3c 32 32 29 0d 0d 7a 05  |*24).(1<<22)..z.|
00001da0  e1 0d 0d 84 04 0d 0d 8e  26 dd f2 57 69 6d 70 5f  |........&..Wimp_|
00001db0  4d 65 6e 75 44 6f 74 74  65 64 4c 69 6e 65 28 6d  |MenuDottedLine(m|
00001dc0  65 6e 75 25 2c 69 74 65  6d 25 29 0d 0d 98 37 6d  |enu%,item%)...7m|
00001dd0  65 6e 75 25 21 28 32 38  2b 28 69 74 65 6d 25 2d  |enu%!(28+(item%-|
00001de0  31 29 2a 32 34 29 3d 28  6d 65 6e 75 25 21 28 32  |1)*24)=(menu%!(2|
00001df0  38 2b 28 69 74 65 6d 25  2d 31 29 2a 32 34 29 29  |8+(item%-1)*24))|
00001e00  84 32 0d 0d a2 05 e1 0d  0d ac 04 0d 0d b6 22 dd  |.2............".|
00001e10  f2 57 69 6d 70 5f 4d 65  6e 75 45 6e 61 62 6c 65  |.Wimp_MenuEnable|
00001e20  28 6d 65 6e 75 25 2c 69  74 65 6d 25 29 0d 0d c0  |(menu%,item%)...|
00001e30  22 f2 57 69 6d 70 5f 4d  65 6e 75 44 69 73 61 62  |".Wimp_MenuDisab|
00001e40  6c 65 28 6d 65 6e 75 25  2c 69 74 65 6d 25 29 0d  |le(menu%,item%).|
00001e50  0d ca 3b 6d 65 6e 75 25  21 28 33 36 2b 28 69 74  |..;menu%!(36+(it|
00001e60  65 6d 25 2d 31 29 2a 32  34 29 3d 6d 65 6e 75 25  |em%-1)*24)=menu%|
00001e70  21 28 33 36 2b 28 69 74  65 6d 25 2d 31 29 2a 32  |!(36+(item%-1)*2|
00001e80  34 29 82 28 31 3c 3c 32  32 29 0d 0d d4 05 e1 0d  |4).(1<<22)......|
00001e90  0d de 04 0d 0d e8 34 dd  f2 57 69 6d 70 5f 4d 65  |......4..Wimp_Me|
00001ea0  6e 75 46 6f 72 65 67 72  6f 75 6e 64 43 6f 6c 6f  |nuForegroundColo|
00001eb0  75 72 28 6d 65 6e 75 25  2c 69 74 65 6d 25 2c 63  |ur(menu%,item%,c|
00001ec0  6f 6c 6f 75 72 25 29 0d  0d f2 45 6d 65 6e 75 25  |olour%)...Emenu%|
00001ed0  3f 28 33 39 2b 28 69 74  65 6d 25 2d 31 29 2a 32  |?(39+(item%-1)*2|
00001ee0  34 29 3d 63 6f 6c 6f 75  72 25 2b 31 36 2a 28 28  |4)=colour%+16*((|
00001ef0  6d 65 6e 75 25 3f 28 33  39 2b 28 69 74 65 6d 25  |menu%?(39+(item%|
00001f00  2d 31 29 2a 32 34 29 29  81 31 36 29 0d 0d fc 05  |-1)*24)).16)....|
00001f10  e1 0d 0e 06 04 0d 0e 10  28 dd f2 57 69 6d 70 5f  |........(..Wimp_|
00001f20  4d 65 6e 75 47 6c 75 65  28 6d 65 6e 75 31 25 2c  |MenuGlue(menu1%,|
00001f30  69 74 65 6d 25 2c 6d 65  6e 75 32 25 29 0d 0e 1a  |item%,menu2%)...|
00001f40  1e 6d 65 6e 75 31 25 21  28 38 2b 69 74 65 6d 25  |.menu1%!(8+item%|
00001f50  2a 32 34 29 3d 6d 65 6e  75 32 25 0d 0e 24 05 e1  |*24)=menu2%..$..|
00001f60  0d 0e 2e 04 0d 0e 38 26  dd f2 57 69 6d 70 5f 4d  |......8&..Wimp_M|
00001f70  65 6e 75 49 74 65 6d 28  6d 65 6e 75 25 2c 69 74  |enuItem(menu%,it|
00001f80  65 6d 25 2c 69 74 65 6d  24 29 0d 0e 42 2c 24 28  |em%,item$)..B,$(|
00001f90  6d 65 6e 75 25 2b 28 34  30 2b 28 69 74 65 6d 25  |menu%+(40+(item%|
00001fa0  2d 31 29 2a 32 34 29 29  3d c0 69 74 65 6d 24 2c  |-1)*24))=.item$,|
00001fb0  31 32 29 2b bd 30 0d 0e  4c 05 e1 0d 0e 56 04 0d  |12)+.0..L....V..|
00001fc0  0e 60 23 dd f2 57 69 6d  70 5f 4d 65 6e 75 4d 65  |.`#..Wimp_MenuMe|
00001fd0  73 73 61 67 65 28 6d 65  6e 75 25 2c 69 74 65 6d  |ssage(menu%,item|
00001fe0  25 29 0d 0e 6a 3c 6d 65  6e 75 25 21 28 32 38 2b  |%)..j<menu%!(28+|
00001ff0  28 69 74 65 6d 25 2d 31  29 2a 32 34 29 3d 28 6d  |(item%-1)*24)=(m|
00002000  65 6e 75 25 21 28 32 38  2b 28 69 74 65 6d 25 2d  |enu%!(28+(item%-|
00002010  31 29 2a 32 34 29 29 82  28 31 3c 3c 33 29 0d 0e  |1)*24)).(1<<3)..|
00002020  74 05 e1 0d 0e 7e 04 0d  0e 88 21 dd f2 57 69 6d  |t....~....!..Wim|
00002030  70 5f 4d 65 6e 75 50 6f  70 55 70 28 4d 65 6e 75  |p_MenuPopUp(Menu|
00002040  25 2c 78 25 2c 79 25 29  0d 0e 92 0f 6d 65 6e 75  |%,x%,y%)....menu|
00002050  25 3d 4d 65 6e 75 25 0d  0e 9c 2a c8 99 22 57 69  |%=Menu%...*.."Wi|
00002060  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
00002070  6d 65 6e 75 25 2c 78 25  2d 36 34 2c 79 25 2b 32  |menu%,x%-64,y%+2|
00002080  30 0d 0e a6 05 e1 0d 0e  b0 04 0d 0e ba 1e dd f2  |0...............|
00002090  57 69 6d 70 5f 4d 65 6e  75 50 6f 70 55 70 42 61  |Wimp_MenuPopUpBa|
000020a0  72 28 78 25 2c 79 25 29  0d 0e c4 0c ea 6e 25 3a  |r(x%,y%).....n%:|
000020b0  6e 25 3d 30 0d 0e ce 2a  c8 95 28 28 42 61 72 5f  |n%=0...*..((Bar_|
000020c0  4d 65 6e 75 25 21 28 32  38 2b 6e 25 2a 32 34 29  |Menu%!(28+n%*24)|
000020d0  29 80 25 31 30 30 30 30  30 30 30 29 3d 30 0d 0e  |).%10000000)=0..|
000020e0  d8 09 6e 25 2b 3d 31 0d  0e e2 05 ce 0d 0e ec 31  |..n%+=1........1|
000020f0  c8 99 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |.."Wimp_CreateMe|
00002100  6e 75 22 2c 2c 42 61 72  5f 4d 65 6e 75 25 2c 78  |nu",,Bar_Menu%,x|
00002110  25 2d 36 34 2c 39 36 2b  6e 25 2a 34 34 0d 0e f6  |%-64,96+n%*44...|
00002120  13 6d 65 6e 75 25 3d 42  61 72 5f 4d 65 6e 75 25  |.menu%=Bar_Menu%|
00002130  0d 0f 00 05 e1 0d 0f 0a  04 0d 0f 14 20 dd f2 57  |............ ..W|
00002140  69 6d 70 5f 4d 65 6e 75  54 69 63 6b 28 6d 65 6e  |imp_MenuTick(men|
00002150  75 25 2c 69 74 65 6d 25  29 0d 0f 1e 37 6d 65 6e  |u%,item%)...7men|
00002160  75 25 21 28 32 38 2b 28  69 74 65 6d 25 2d 31 29  |u%!(28+(item%-1)|
00002170  2a 32 34 29 3d 28 6d 65  6e 75 25 21 28 32 38 2b  |*24)=(menu%!(28+|
00002180  28 69 74 65 6d 25 2d 31  29 2a 32 34 29 29 82 31  |(item%-1)*24)).1|
00002190  0d 0f 28 05 e1 0d 0f 32  04 0d 0f 3c 22 dd f2 57  |..(....2...<"..W|
000021a0  69 6d 70 5f 4d 65 6e 75  54 69 74 6c 65 28 6d 65  |imp_MenuTitle(me|
000021b0  6e 75 25 2c 74 69 74 6c  65 24 29 0d 0f 46 19 24  |nu%,title$)..F.$|
000021c0  6d 65 6e 75 25 3d c0 74  69 74 6c 65 24 2c 31 32  |menu%=.title$,12|
000021d0  29 2b bd 30 0d 0f 50 05  e1 0d 0f 5a 04 0d 0f 64  |)+.0..P....Z...d|
000021e0  3c dd f2 57 69 6d 70 5f  4d 65 6e 75 57 72 69 74  |<..Wimp_MenuWrit|
000021f0  65 28 6d 65 6e 75 25 2c  69 74 65 6d 25 2c 62 75  |e(menu%,item%,bu|
00002200  66 66 65 72 25 2c 76 61  6c 25 2c 42 75 66 66 65  |ffer%,val%,Buffe|
00002210  72 4c 65 6e 67 74 68 25  29 0d 0f 6e 37 6d 65 6e  |rLength%)..n7men|
00002220  75 25 21 28 32 38 2b 28  69 74 65 6d 25 2d 31 29  |u%!(28+(item%-1)|
00002230  2a 32 34 29 3d 28 6d 65  6e 75 25 21 28 32 38 2b  |*24)=(menu%!(28+|
00002240  28 69 74 65 6d 25 2d 31  29 2a 32 34 29 29 84 34  |(item%-1)*24)).4|
00002250  0d 0f 78 38 6d 65 6e 75  25 21 28 33 36 2b 28 69  |..x8menu%!(36+(i|
00002260  74 65 6d 25 2d 31 29 2a  32 34 29 3d 6d 65 6e 75  |tem%-1)*24)=menu|
00002270  25 21 28 33 36 2b 28 69  74 65 6d 25 2d 31 29 2a  |%!(36+(item%-1)*|
00002280  32 34 29 84 26 31 30 30  0d 0f 82 23 6d 65 6e 75  |24).&100...#menu|
00002290  25 21 28 34 30 2b 28 69  74 65 6d 25 2d 31 29 2a  |%!(40+(item%-1)*|
000022a0  32 34 29 3d 62 75 66 66  65 72 25 0d 0f 8c 20 6d  |24)=buffer%... m|
000022b0  65 6e 75 25 21 28 34 34  2b 28 69 74 65 6d 25 2d  |enu%!(44+(item%-|
000022c0  31 29 2a 32 34 29 3d 76  61 6c 25 0d 0f 96 29 6d  |1)*24)=val%...)m|
000022d0  65 6e 75 25 21 28 34 38  2b 28 69 74 65 6d 25 2d  |enu%!(48+(item%-|
000022e0  31 29 2a 32 34 29 3d 42  75 66 66 65 72 4c 65 6e  |1)*24)=BufferLen|
000022f0  67 74 68 25 0d 0f a0 05  e1 0d 0f aa 04 0d 0f b4  |gth%............|
00002300  04 0d 0f be 16 dd f2 57  69 6d 70 5f 53 70 72 69  |.......Wimp_Spri|
00002310  74 65 73 4c 6f 61 64 0d  0f c8 30 f2 57 69 6d 70  |tesLoad...0.Wimp|
00002320  5f 53 70 72 69 74 65 73  50 61 74 68 4c 6f 61 64  |_SpritesPathLoad|
00002330  28 22 3c 53 50 41 43 45  24 44 49 52 3e 2e 53 70  |("<SPACE$DIR>.Sp|
00002340  72 69 74 65 73 22 29 0d  0f d2 1c 64 69 72 65 63  |rites")....direc|
00002350  74 5f 73 70 72 69 74 65  73 25 3d 73 70 72 69 74  |t_sprites%=sprit|
00002360  65 73 25 0d 0f dc 05 e1  0d 0f e6 04 0d 0f f0 25  |es%............%|
00002370  dd f2 57 69 6d 70 5f 53  70 72 69 74 65 73 50 61  |..Wimp_SpritesPa|
00002380  74 68 4c 6f 61 64 28 70  61 74 68 6e 61 6d 65 24  |thLoad(pathname$|
00002390  29 0d 0f fa 0a ea 53 25  2c 54 25 0d 10 04 2d 53  |).....S%,T%...-S|
000023a0  25 3d 8e 22 3c 53 50 41  43 45 24 44 49 52 3e 2e  |%=."<SPACE$DIR>.|
000023b0  53 70 72 69 74 65 73 22  3a 54 25 3d a2 23 53 25  |Sprites":T%=.#S%|
000023c0  2b 31 36 3a d9 23 53 25  0d 10 0e 19 de 73 70 72  |+16:.#S%.....spr|
000023d0  69 74 65 73 25 54 25 2c  73 70 6e 61 6d 65 25 31  |ites%T%,spname%1|
000023e0  32 0d 10 18 1d 21 73 70  72 69 74 65 73 25 3d 54  |2....!sprites%=T|
000023f0  25 3a 73 70 72 69 74 65  73 25 21 38 3d 30 0d 10  |%:sprites%!8=0..|
00002400  22 21 c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |"!.."OS_SpriteOp|
00002410  22 2c 26 31 30 39 2c 73  70 72 69 74 65 73 25 0d  |",&109,sprites%.|
00002420  10 2c 2b c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |.,+.."OS_SpriteO|
00002430  70 22 2c 26 31 30 41 2c  73 70 72 69 74 65 73 25  |p",&10A,sprites%|
00002440  2c 70 61 74 68 6e 61 6d  65 24 0d 10 36 05 e1 0d  |,pathname$..6...|
00002450  10 40 04 0d 10 4a 1a dd  a4 57 69 6d 70 5f 46 69  |.@...J...Wimp_Fi|
00002460  6c 65 54 79 70 65 28 74  79 70 65 25 29 0d 10 54  |leType(type%)..T|
00002470  0c c8 8e 74 79 70 65 25  ca 0d 10 5e 11 c9 26 46  |...type%...^..&F|
00002480  46 46 3a 3d 22 54 65 78  74 22 0d 10 68 11 c9 26  |FF:="Text"..h..&|
00002490  46 46 44 3a 3d 22 44 61  74 61 22 0d 10 72 12 c9  |FFD:="Data"..r..|
000024a0  26 46 46 42 3a 3d 22 42  61 73 69 63 22 0d 10 7c  |&FFB:="Basic"..||
000024b0  13 c9 26 46 46 39 3a 3d  22 53 70 72 69 74 65 22  |..&FF9:="Sprite"|
000024c0  0d 10 86 14 c9 26 46 45  44 3a 3d 22 50 61 6c 65  |.....&FED:="Pale|
000024d0  74 74 65 22 0d 10 90 15  c9 26 46 45 43 3a 3d 22  |tte".....&FEC:="|
000024e0  54 65 6d 70 6c 61 74 65  22 0d 10 9a 11 c9 26 41  |Template".....&A|
000024f0  46 46 3a 3d 22 44 72 61  77 22 0d 10 a4 14 c9 26  |FF:="Draw".....&|
00002500  31 30 30 30 3a 3d 22 46  6f 6c 64 65 72 22 0d 10  |1000:="Folder"..|
00002510  ae 19 c9 26 32 30 30 30  3a 3d 22 41 70 70 6c 69  |...&2000:="Appli|
00002520  63 61 74 69 6f 6e 22 0d  10 b8 0f 7f 3d c3 7e 28  |cation".....=.~(|
00002530  74 79 70 65 25 29 0d 10  c2 05 cb 0d 10 cc 04 0d  |type%)..........|
00002540  10 d6 1a dd a4 57 69 6d  70 5f 47 65 74 46 69 6c  |.....Wimp_GetFil|
00002550  65 50 61 74 68 4e 61 6d  65 0d 10 e0 27 3d a4 57  |ePathName...'=.W|
00002560  69 6d 70 5f 47 65 74 53  74 72 69 6e 67 41 74 41  |imp_GetStringAtA|
00002570  64 64 72 65 73 73 28 77  69 6d 70 25 2b 34 34 29  |ddress(wimp%+44)|
00002580  0d 10 ea 04 0d 10 f4 1e  dd a4 57 69 6d 70 5f 46  |..........Wimp_F|
00002590  69 6c 65 4c 6f 61 64 28  70 61 74 68 6e 61 6d 65  |ileLoad(pathname|
000025a0  24 29 0d 10 fe 10 ea 53  25 2c 54 25 2c 66 69 6c  |$).....S%,T%,fil|
000025b0  65 25 0d 11 08 11 53 25  3d 8e 70 61 74 68 6e 61  |e%....S%=.pathna|
000025c0  6d 65 24 0d 11 12 0e 54  25 3d a2 23 53 25 2b 31  |me$....T%=.#S%+1|
000025d0  36 0d 11 1c 08 d9 23 53  25 0d 11 26 0c de 66 69  |6.....#S%..&..fi|
000025e0  6c 65 25 54 25 0d 11 30  22 ff 28 22 4c 4f 41 44  |le%T%..0".("LOAD|
000025f0  22 2b 70 61 74 68 6e 61  6d 65 24 2b 22 22 2b c3  |"+pathname$+""+.|
00002600  7e 66 69 6c 65 25 29 0d  11 3a 0a 3d 66 69 6c 65  |~file%)..:.=file|
00002610  25 0d 11 44 05 3b 0d 11  4e 25 dd a4 57 69 6d 70  |%..D.;..N%..Wimp|
00002620  5f 47 65 74 53 74 72 69  6e 67 41 74 41 64 64 72  |_GetStringAtAddr|
00002630  65 73 73 28 61 72 72 61  79 25 29 0d 11 58 0d ea  |ess(array%)..X..|
00002640  73 24 3a 73 24 3d 22 22  0d 11 62 3b c8 95 28 3f  |s$:s$=""..b;..(?|
00002650  61 72 72 61 79 25 3c 3e  31 33 29 80 28 3f 61 72  |array%<>13).(?ar|
00002660  72 61 79 25 3c 3e 30 29  3a 73 24 2b 3d bd 28 3f  |ray%<>0):s$+=.(?|
00002670  61 72 72 61 79 25 29 3a  61 72 72 61 79 25 2b 3d  |array%):array%+=|
00002680  31 3a ce 0d 11 6c 07 3d  73 24 0d 11 76 04 0d 11  |1:...l.=s$..v...|
00002690  80 22 dd a4 57 69 6d 70  5f 47 65 74 46 69 6c 65  |."..Wimp_GetFile|
000026a0  46 72 6f 6d 50 61 74 68  6e 61 6d 65 28 66 24 29  |FromPathname(f$)|
000026b0  0d 11 8a 0f c8 8e a7 66  24 2c 22 2e 22 29 ca 0d  |.......f$,".")..|
000026c0  11 94 0a c9 30 3a 3d 66  24 0d 11 9e 35 7f 3a 3d  |....0:=f$...5.:=|
000026d0  a4 57 69 6d 70 5f 47 65  74 46 69 6c 65 46 72 6f  |.Wimp_GetFileFro|
000026e0  6d 50 61 74 68 6e 61 6d  65 28 c2 66 24 2c a9 28  |mPathname(.f$,.(|
000026f0  66 24 29 2d a7 66 24 2c  22 2e 22 29 29 29 0d 11  |f$)-.f$,".")))..|
00002700  a8 05 cb 0d 11 b2 04 0d  11 bc 1c dd f2 57 69 6d  |.............Wim|
00002710  70 5f 53 65 6e 64 54 6f  45 64 69 74 28 66 69 6c  |p_SendToEdit(fil|
00002720  65 24 29 0d 11 c6 07 ea  6e 25 0d 11 d0 15 77 69  |e$).....n%....wi|
00002730  6d 70 25 21 34 3d 26 36  43 43 30 31 43 30 43 0d  |mp%!4=&6CC01C0C.|
00002740  11 da 0e 77 69 6d 70 25  21 31 36 3d 35 0d 11 e4  |...wimp%!16=5...|
00002750  0e 77 69 6d 70 25 21 33  36 3d 30 0d 11 ee 11 77  |.wimp%!36=0....w|
00002760  69 6d 70 25 21 34 30 3d  26 46 46 46 0d 11 f8 18  |imp%!40=&FFF....|
00002770  24 28 77 69 6d 70 25 2b  34 34 29 3d 66 69 6c 65  |$(wimp%+44)=file|
00002780  24 2b bd 30 0d 12 02 10  6e 25 3d a9 66 69 6c 65  |$+.0....n%=.file|
00002790  24 2b 34 35 0d 12 0c 27  e7 6e 25 83 34 8c 21 77  |$+45...'.n%.4.!w|
000027a0  69 6d 70 25 3d 34 2b 28  6e 25 3e 3e 32 29 3c 3c  |imp%=4+(n%>>2)<<|
000027b0  32 8b 21 77 69 6d 70 25  3d 6e 25 0d 12 16 23 c8  |2.!wimp%=n%...#.|
000027c0  99 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  |."Wimp_SendMessa|
000027d0  67 65 22 2c 31 37 2c 77  69 6d 70 25 2c 30 0d 12  |ge",17,wimp%,0..|
000027e0  20 05 e1 0d 12 2a 2e dd  f2 57 69 6d 70 5f 53 74  | ....*...Wimp_St|
000027f0  61 72 74 28 54 61 73 6b  4e 61 6d 65 24 2c 77 69  |art(TaskName$,wi|
00002800  6d 70 5f 6d 65 6d 6f 72  79 25 2c 69 63 6f 6e 25  |mp_memory%,icon%|
00002810  29 0d 12 34 22 de 77 69  6d 70 25 77 69 6d 70 5f  |)..4".wimp%wimp_|
00002820  6d 65 6d 6f 72 79 25 2c  69 63 6f 6e 73 25 69 63  |memory%,icons%ic|
00002830  6f 6e 25 0d 12 3e 26 e7  77 69 6d 70 5f 6d 65 6d  |on%..>&.wimp_mem|
00002840  6f 72 79 25 3c 32 35 36  8c 77 69 6d 70 5f 6d 65  |ory%<256.wimp_me|
00002850  6d 6f 72 79 25 3d 32 35  36 0d 12 48 1d 69 63 6f  |mory%=256..H.ico|
00002860  6e 5f 6d 65 6d 6f 72 79  25 3d 69 63 6f 6e 73 25  |n_memory%=icons%|
00002870  2b 69 63 6f 6e 25 0d 12  52 13 74 61 73 6b 24 3d  |+icon%..R.task$=|
00002880  54 61 73 6b 4e 61 6d 65  24 0d 12 5c 29 69 6e 64  |TaskName$..\)ind|
00002890  69 72 65 63 74 5f 73 70  72 69 74 65 73 25 3d 31  |irect_sprites%=1|
000028a0  3a 64 69 72 65 63 74 5f  73 70 72 69 74 65 73 25  |:direct_sprites%|
000028b0  3d 31 0d 12 66 1b f2 57  69 6d 70 5f 53 65 74 45  |=1..f..Wimp_SetE|
000028c0  76 65 6e 74 56 61 72 69  61 62 6c 65 73 0d 12 70  |ventVariables..p|
000028d0  13 ee 85 f2 57 69 6d 70  5f 45 72 72 6f 72 3a e0  |....Wimp_Error:.|
000028e0  0d 12 7a 3e c8 99 22 57  69 6d 70 5f 49 6e 69 74  |..z>.."Wimp_Init|
000028f0  69 61 6c 69 73 65 22 2c  32 30 30 2c 26 34 42 35  |ialise",200,&4B5|
00002900  33 34 31 35 34 2c 54 61  73 6b 4e 61 6d 65 24 b8  |34154,TaskName$.|
00002910  76 65 72 73 69 6f 6e 25  2c 74 61 73 6b 25 0d 12  |version%,task%..|
00002920  84 05 e1 0d 12 8e 04 0d  12 98 1a dd a4 57 69 6d  |.............Wim|
00002930  70 5f 42 41 53 49 43 50  61 72 61 6d 65 74 65 72  |p_BASICParameter|
00002940  73 0d 12 a2 13 ea 63 6f  6d 24 2c 70 61 72 61 6d  |s.....com$,param|
00002950  24 2c 49 25 0d 12 ac 16  c8 99 22 4f 53 5f 47 65  |$,I%......"OS_Ge|
00002960  74 45 6e 76 22 b8 63 6f  6d 24 0d 12 b6 0e 70 61  |tEnv".com$....pa|
00002970  72 61 6d 73 24 3d 22 22  0d 12 c0 17 49 25 3d a7  |rams$=""....I%=.|
00002980  63 6f 6d 24 2c 22 20 2d  71 75 69 74 20 22 29 0d  |com$," -quit ").|
00002990  12 ca 31 e7 49 25 8c 70  61 72 61 6d 73 24 3d c1  |..1.I%.params$=.|
000029a0  63 6f 6d 24 2c a7 63 6f  6d 24 2c 22 20 22 2c 49  |com$,.com$," ",I|
000029b0  25 2b a9 22 20 2d 71 75  69 74 20 22 29 2b 31 29  |%+." -quit ")+1)|
000029c0  0d 12 d4 0c 3d 70 61 72  61 6d 73 24 0d 12 de 04  |....=params$....|
000029d0  0d 12 e8 1c dd f2 57 69  6d 70 5f 53 65 74 45 76  |......Wimp_SetEv|
000029e0  65 6e 74 56 61 72 69 61  62 6c 65 73 0d 12 f2 15  |entVariables....|
000029f0  de 70 6f 69 6e 74 65 72  5f 62 6c 6f 63 6b 25 32  |.pointer_block%2|
00002a00  30 0d 12 fc 10 69 6e 74  65 72 66 61 63 65 25 3d  |0....interface%=|
00002a10  a3 0d 13 06 29 6e 75 6c  6c 25 3d 31 3a 64 72 61  |....)null%=1:dra|
00002a20  77 25 3d 32 3a 70 6f 69  6e 74 65 72 5f 6c 65 61  |w%=2:pointer_lea|
00002a30  76 69 6e 67 25 3d 31 3c  3c 34 0d 13 10 31 70 6f  |ving%=1<<4...1po|
00002a40  69 6e 74 65 72 5f 65 6e  74 65 72 69 6e 67 25 3d  |inter_entering%=|
00002a50  31 3c 3c 35 3a 6d 6f 75  73 65 25 3d 31 3c 3c 36  |1<<5:mouse%=1<<6|
00002a60  3a 64 72 61 67 25 3d 31  3c 3c 37 0d 13 1a 26 6b  |:drag%=1<<7...&k|
00002a70  65 79 25 3d 31 3c 3c 38  3a 6d 65 6e 75 25 3d 31  |ey%=1<<8:menu%=1|
00002a80  3c 3c 39 3a 73 63 72 6f  6c 6c 25 3d 31 3c 3c 31  |<<9:scroll%=1<<1|
00002a90  30 0d 13 24 40 6c 6f 73  65 5f 63 61 72 65 74 25  |0..$@lose_caret%|
00002aa0  3d 31 3c 3c 31 31 3a 67  61 69 6e 5f 63 61 72 65  |=1<<11:gain_care|
00002ab0  74 25 3d 31 3c 3c 31 32  3a 6d 65 73 73 61 67 65  |t%=1<<12:message|
00002ac0  25 3d 28 31 3c 3c 31 37  29 2b 28 31 3c 3c 31 38  |%=(1<<17)+(1<<18|
00002ad0  29 0d 13 2e 30 72 65 63  6f 72 64 65 72 25 3d 31  |)...0recorder%=1|
00002ae0  3c 3c 31 38 3a 61 63 6b  6e 6f 77 6c 65 64 67 65  |<<18:acknowledge|
00002af0  25 3d 31 3c 3c 31 39 3a  77 69 6e 64 6f 77 25 3d  |%=1<<19:window%=|
00002b00  30 0d 13 38 21 73 70 72  69 74 65 73 25 3d 31 3a  |0..8!sprites%=1:|
00002b10  76 65 72 73 69 6f 6e 25  3d 30 3a 74 61 73 6b 25  |version%=0:task%|
00002b20  3d 30 0d 13 42 2a 42 61  72 5f 57 69 6e 64 6f 77  |=0..B*Bar_Window|
00002b30  25 3d 2d 32 3a 42 61 72  5f 49 63 6f 6e 25 3d 30  |%=-2:Bar_Icon%=0|
00002b40  3a 42 61 72 5f 4d 65 6e  75 25 3d 30 0d 13 4c 2a  |:Bar_Menu%=0..L*|
00002b50  78 5f 6f 72 69 67 69 6e  25 3d 30 3a 79 5f 6f 72  |x_origin%=0:y_or|
00002b60  69 67 69 6e 25 3d 30 3a  53 61 76 65 57 69 6e 64  |igin%=0:SaveWind|
00002b70  6f 77 25 3d 2d 33 0d 13  56 33 6d 65 73 73 61 67  |ow%=-3..V3messag|
00002b80  65 5f 71 75 69 74 25 3d  30 3a 6d 65 73 73 61 67  |e_quit%=0:messag|
00002b90  65 5f 73 61 76 65 25 3d  32 3a 6d 65 73 73 61 67  |e_save%=2:messag|
00002ba0  65 5f 6c 6f 61 64 25 3d  33 0d 13 60 21 6d 6f 75  |e_load%=3..`!mou|
00002bb0  73 65 5f 62 75 74 74 6f  6e 25 3d 32 3a 73 61 76  |se_button%=2:sav|
00002bc0  65 5f 65 76 65 6e 74 25  3d 30 0d 13 6a 1e 74 6f  |e_event%=0..j.to|
00002bd0  70 5f 6c 69 6e 65 25 3d  30 3a 62 6f 74 74 6f 6d  |p_line%=0:bottom|
00002be0  5f 6c 69 6e 65 25 3d 30  0d 13 74 05 e1 0d 13 7e  |_line%=0..t....~|
00002bf0  04 0d 13 88 10 dd f2 57  69 6d 70 5f 45 72 72 6f  |.......Wimp_Erro|
00002c00  72 0d 13 92 0a ea 58 24  2c 78 25 0d 13 9c 07 ee  |r.....X$,x%.....|
00002c10  85 87 0d 13 a6 08 78 25  3d 9e 0d 13 b0 1b 58 24  |......x%=.....X$|
00002c20  3d f6 24 2b 22 61 74 6c  69 6e 65 22 2b c3 28 78  |=.$+"atline"+.(x|
00002c30  25 81 31 30 29 0d 13 ba  10 de 45 72 72 6f 72 4d  |%.10).....ErrorM|
00002c40  73 67 25 33 36 0d 13 c4  45 45 72 72 6f 72 4d 73  |sg%36...EErrorMs|
00002c50  67 25 21 30 3d 33 36 3a  45 72 72 6f 72 4d 73 67  |g%!0=36:ErrorMsg|
00002c60  25 21 31 32 3d 30 3a 45  72 72 6f 72 4d 73 67 25  |%!12=0:ErrorMsg%|
00002c70  21 31 36 3d 26 38 31 30  38 30 3a 45 72 72 6f 72  |!16=&81080:Error|
00002c80  4d 73 67 25 21 32 30 3d  78 25 0d 13 ce 1f 24 28  |Msg%!20=x%....$(|
00002c90  45 72 72 6f 72 4d 73 67  25 2b 32 34 29 3d 22 21  |ErrorMsg%+24)="!|
00002ca0  52 75 6e 49 6d 61 67 65  22 0d 13 d8 25 c8 99 22  |RunImage"...%.."|
00002cb0  57 69 6d 70 5f 53 65 6e  64 4d 65 73 73 61 67 65  |Wimp_SendMessage|
00002cc0  22 2c 31 37 2c 45 72 72  6f 72 4d 73 67 25 0d 13  |",17,ErrorMsg%..|
00002cd0  e2 1f f2 57 69 6d 70 5f  57 69 6e 64 6f 77 41 6c  |...Wimp_WindowAl|
00002ce0  65 72 74 28 74 61 73 6b  24 2c 58 24 29 0d 13 ec  |ert(task$,X$)...|
00002cf0  13 f2 57 69 6d 70 5f 43  6c 6f 73 65 44 6f 77 6e  |..Wimp_CloseDown|
00002d00  0d 13 f6 05 e1 0d 14 00  04 0d 14 0a 14 dd f2 57  |...............W|
00002d10  69 6d 70 5f 43 6c 6f 73  65 44 6f 77 6e 0d 14 14  |imp_CloseDown...|
00002d20  23 c8 99 22 57 69 6d 70  5f 43 6c 6f 73 65 44 6f  |#.."Wimp_CloseDo|
00002d30  77 6e 22 2c 74 61 73 6b  25 2c 22 54 41 53 4b 22  |wn",task%,"TASK"|
00002d40  0d 14 1e 05 e1 0d 14 28  04 0d 14 32 0f dd f2 57  |.......(...2...W|
00002d50  69 6d 70 5f 51 75 69 74  0d 14 3c 0f 66 69 6e 69  |imp_Quit..<.fini|
00002d60  73 68 65 64 25 3d b9 0d  14 46 05 e1 0d 14 50 04  |shed%=...F....P.|
00002d70  0d 14 5a 22 dd a4 57 69  6d 70 5f 52 65 61 64 56  |..Z"..Wimp_ReadV|
00002d80  61 72 69 61 62 6c 65 28  56 61 72 69 61 62 6c 65  |ariable(Variable|
00002d90  24 29 0d 14 64 1b ea 6c  65 6e 25 2c 72 65 73 75  |$)..d..len%,resu|
00002da0  6c 74 25 2c 76 61 72 69  61 62 6c 65 25 0d 14 6e  |lt%,variable%..n|
00002db0  14 24 77 69 6d 70 25 3d  56 61 72 69 61 62 6c 65  |.$wimp%=Variable|
00002dc0  24 0d 14 78 33 c8 99 22  4f 53 5f 52 65 61 64 56  |$..x3.."OS_ReadV|
00002dd0  61 72 56 61 6c 22 2c 77  69 6d 70 25 2c 77 69 6d  |arVal",wimp%,wim|
00002de0  70 25 2b 32 35 35 2c 32  35 35 2c 2c 33 b8 2c 2c  |p%+255,255,,3.,,|
00002df0  6c 65 6e 25 0d 14 82 17  77 69 6d 70 25 3f 28 6c  |len%....wimp%?(l|
00002e00  65 6e 25 2b 32 35 35 29  3d 31 33 0d 14 8c 11 3d  |en%+255)=13....=|
00002e10  24 28 77 69 6d 70 25 2b  32 35 35 29 0d 14 96 17  |$(wimp%+255)....|
00002e20  dd f2 57 69 6d 70 5f 57  61 69 74 46 6f 72 45 76  |..Wimp_WaitForEv|
00002e30  65 6e 74 0d 14 a0 11 ea  6d 61 73 6b 25 2c 65 76  |ent.....mask%,ev|
00002e40  65 6e 74 25 0d 14 aa 0f  66 69 6e 69 73 68 65 64  |ent%....finished|
00002e50  25 3d a3 0d 14 b4 17 6d  61 73 6b 25 3d 25 31 31  |%=.....mask%=%11|
00002e60  31 30 30 30 30 31 31 30  30 31 0d 14 be 05 f5 0d  |1000011001......|
00002e70  14 c8 24 c8 99 22 57 69  6d 70 5f 50 6f 6c 6c 22  |..$.."Wimp_Poll"|
00002e80  2c 6d 61 73 6b 25 2c 77  69 6d 70 25 b8 65 76 65  |,mask%,wimp%.eve|
00002e90  6e 74 25 0d 14 d2 0d c8  8e 65 76 65 6e 74 25 ca  |nt%......event%.|
00002ea0  0d 14 dc 06 c9 30 0d 14  e6 1b c9 31 3a f2 57 69  |.....0.....1:.Wi|
00002eb0  6d 70 5f 50 6f 6c 6c 44  72 61 77 57 69 6e 64 6f  |mp_PollDrawWindo|
00002ec0  77 0d 14 f0 21 c9 32 3a  c8 99 22 57 69 6d 70 5f  |w...!.2:.."Wimp_|
00002ed0  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 77 69 6d  |OpenWindow",,wim|
00002ee0  70 25 0d 14 fa 1c c9 33  3a f2 57 69 6d 70 5f 50  |p%.....3:.Wimp_P|
00002ef0  6f 6c 6c 43 6c 6f 73 65  57 69 6e 64 6f 77 0d 15  |ollCloseWindow..|
00002f00  04 06 c9 34 0d 15 0e 06  c9 35 0d 15 18 1b c9 36  |...4.....5.....6|
00002f10  3a f2 57 69 6d 70 5f 50  6f 6c 6c 4d 6f 75 73 65  |:.Wimp_PollMouse|
00002f20  43 6c 69 63 6b 0d 15 22  1c c9 37 3a f2 57 69 6d  |Click.."..7:.Wim|
00002f30  70 5f 50 6f 6c 6c 53 61  76 65 4d 65 73 73 61 67  |p_PollSaveMessag|
00002f40  65 0d 15 2c 19 c9 38 3a  f2 57 69 6d 70 5f 50 6f  |e..,..8:.Wimp_Po|
00002f50  6c 6c 4b 65 79 50 72 65  73 73 0d 15 36 1f c9 39  |llKeyPress..6..9|
00002f60  3a f2 45 76 65 6e 74 5f  4d 65 6e 75 43 68 6f 69  |:.Event_MenuChoi|
00002f70  63 65 28 6d 65 6e 75 25  29 0d 15 40 07 c9 31 30  |ce(menu%)..@..10|
00002f80  0d 15 4a 07 c9 31 31 0d  15 54 07 c9 31 32 0d 15  |..J..11..T..12..|
00002f90  5e 1d c9 31 37 2c 31 38  3a f2 57 69 6d 70 5f 50  |^..17,18:.Wimp_P|
00002fa0  6f 6c 6c 4d 65 73 73 61  67 65 73 0d 15 68 07 c9  |ollMessages..h..|
00002fb0  31 39 0d 15 72 05 cb 0d  15 7c 0e fd 66 69 6e 69  |19..r....|..fini|
00002fc0  73 68 65 64 25 0d 15 86  05 e0 0d 15 90 05 e1 0d  |shed%...........|
00002fd0  15 9a 04 0d 15 a4 19 dd  f2 57 69 6d 70 5f 50 6f  |.........Wimp_Po|
00002fe0  6c 6c 44 72 61 77 57 69  6e 64 6f 77 0d 15 ae 0a  |llDrawWindow....|
00002ff0  ea 6d 6f 72 65 25 0d 15  b8 26 c8 99 22 57 69 6d  |.more%...&.."Wim|
00003000  70 5f 52 65 64 72 61 77  57 69 6e 64 6f 77 22 2c  |p_RedrawWindow",|
00003010  2c 77 69 6d 70 25 b8 6d  6f 72 65 25 0d 15 c2 13  |,wimp%.more%....|
00003020  77 69 6e 64 6f 77 25 3d  77 69 6d 70 25 21 30 0d  |window%=wimp%!0.|
00003030  15 cc 41 78 5f 6f 72 69  67 69 6e 25 3d 31 36 2b  |..Ax_origin%=16+|
00003040  77 69 6d 70 25 21 34 2d  77 69 6d 70 25 21 32 30  |wimp%!4-wimp%!20|
00003050  3a 79 5f 6f 72 69 67 69  6e 25 3d 2d 31 36 2b 77  |:y_origin%=-16+w|
00003060  69 6d 70 25 21 31 36 2d  77 69 6d 70 25 21 32 34  |imp%!16-wimp%!24|
00003070  0d 15 d6 0b c8 95 6d 6f  72 65 25 0d 15 e0 2c e7  |......more%...,.|
00003080  69 6e 74 65 72 66 61 63  65 25 8c c8 99 22 57 69  |interface%..."Wi|
00003090  6d 70 5f 42 6f 72 64 65  72 57 69 6e 64 6f 77 22  |mp_BorderWindow"|
000030a0  2c 2c 77 69 6d 70 25 0d  15 ea 2c f2 45 76 65 6e  |,,wimp%...,.Even|
000030b0  74 5f 44 72 61 77 28 77  69 6e 64 6f 77 25 2c 78  |t_Draw(window%,x|
000030c0  5f 6f 72 69 67 69 6e 25  2c 79 5f 6f 72 69 67 69  |_origin%,y_origi|
000030d0  6e 25 29 0d 15 f4 26 c8  99 22 57 69 6d 70 5f 47  |n%)...&.."Wimp_G|
000030e0  65 74 52 65 63 74 61 6e  67 6c 65 22 2c 2c 77 69  |etRectangle",,wi|
000030f0  6d 70 25 b8 6d 6f 72 65  25 0d 15 fe 05 ce 0d 16  |mp%.more%.......|
00003100  08 05 e1 0d 16 12 04 0d  16 1c 1a dd f2 57 69 6d  |.............Wim|
00003110  70 5f 50 6f 6c 6c 43 6c  6f 73 65 57 69 6e 64 6f  |p_PollCloseWindo|
00003120  77 0d 16 26 22 c8 99 22  57 69 6d 70 5f 47 65 74  |w..&".."Wimp_Get|
00003130  50 6f 69 6e 74 65 72 49  6e 66 6f 22 2c 2c 77 69  |PointerInfo",,wi|
00003140  6d 70 25 0d 16 30 25 77  69 6e 64 6f 77 25 3d 77  |mp%..0%window%=w|
00003150  69 6d 70 25 21 31 32 3a  62 75 74 74 6f 6e 73 25  |imp%!12:buttons%|
00003160  3d 77 69 6d 70 25 21 38  0d 16 3a 28 f2 45 76 65  |=wimp%!8..:(.Eve|
00003170  6e 74 5f 57 69 6e 64 6f  77 43 6c 6f 73 65 28 77  |nt_WindowClose(w|
00003180  69 6e 64 6f 77 25 2c 62  75 74 74 6f 6e 73 25 29  |indow%,buttons%)|
00003190  0d 16 44 2e 21 77 69 6d  70 25 3d 77 69 6e 64 6f  |..D.!wimp%=windo|
000031a0  77 25 3a c8 99 22 57 69  6d 70 5f 43 6c 6f 73 65  |w%:.."Wimp_Close|
000031b0  57 69 6e 64 6f 77 22 2c  2c 77 69 6d 70 25 0d 16  |Window",,wimp%..|
000031c0  4e 05 e1 0d 16 58 04 0d  16 62 19 dd f2 57 69 6d  |N....X...b...Wim|
000031d0  70 5f 50 6f 6c 6c 4d 6f  75 73 65 43 6c 69 63 6b  |p_PollMouseClick|
000031e0  0d 16 6c 49 62 75 74 74  6f 6e 25 3d 77 69 6d 70  |..lIbutton%=wimp|
000031f0  25 21 38 3a 77 69 6e 64  6f 77 25 3d 77 69 6d 70  |%!8:window%=wimp|
00003200  25 21 31 32 3a 69 63 6f  6e 25 3d 77 69 6d 70 25  |%!12:icon%=wimp%|
00003210  21 31 36 3a 78 25 3d 77  69 6d 70 25 21 30 3a 79  |!16:x%=wimp%!0:y|
00003220  25 3d 77 69 6d 70 25 21  34 0d 16 76 0e c8 8e 62  |%=wimp%!4..v...b|
00003230  75 74 74 6f 6e 25 ca 0d  16 80 1a c9 32 3a f2 57  |utton%......2:.W|
00003240  69 6d 70 5f 50 6f 6c 6c  4d 65 6e 75 50 6f 70 55  |imp_PollMenuPopU|
00003250  70 0d 16 8a 1d 7f 3a c8  8e a4 45 76 65 6e 74 5f  |p.....:...Event_|
00003260  53 61 76 65 28 77 69 6e  64 6f 77 25 29 ca 0d 16  |Save(window%)...|
00003270  94 1a c9 b9 3a f2 57 69  6d 70 5f 50 6f 6c 6c 4d  |....:.Wimp_PollM|
00003280  6f 75 73 65 53 61 76 65  0d 16 9e 20 c9 a3 3a f2  |ouseSave... ..:.|
00003290  57 69 6d 70 5f 50 6f 6c  6c 45 76 65 6e 74 4d 6f  |Wimp_PollEventMo|
000032a0  75 73 65 43 6c 69 63 6b  0d 16 a8 05 cb 0d 16 b2  |useClick........|
000032b0  05 cb 0d 16 bc 05 e1 0d  16 c6 04 0d 16 d0 18 dd  |................|
000032c0  f2 57 69 6d 70 5f 50 6f  6c 6c 4d 65 6e 75 50 6f  |.Wimp_PollMenuPo|
000032d0  70 55 70 0d 16 da 1e 6d  65 6e 75 25 3d a4 45 76  |pUp....menu%=.Ev|
000032e0  65 6e 74 5f 4d 65 6e 75  28 77 69 6e 64 6f 77 25  |ent_Menu(window%|
000032f0  29 0d 16 e4 0c c8 8e 6d  65 6e 75 25 ca 0d 16 ee  |)......menu%....|
00003300  06 c9 a3 0d 16 f8 05 7f  0d 17 02 0e c8 8e 77 69  |..............wi|
00003310  6e 64 6f 77 25 ca 0d 17  0c 0c c9 2d 32 3a 6e 25  |ndow%......-2:n%|
00003320  3d 30 0d 17 16 2a c8 95  28 28 42 61 72 5f 4d 65  |=0...*..((Bar_Me|
00003330  6e 75 25 21 28 32 38 2b  6e 25 2a 32 34 29 29 80  |nu%!(28+n%*24)).|
00003340  25 31 30 30 30 30 30 30  30 29 3d 30 0d 17 20 09  |%10000000)=0.. .|
00003350  6e 25 2b 3d 31 0d 17 2a  05 ce 0d 17 34 31 c8 99  |n%+=1..*....41..|
00003360  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
00003370  22 2c 2c 42 61 72 5f 4d  65 6e 75 25 2c 78 25 2d  |",,Bar_Menu%,x%-|
00003380  36 34 2c 39 36 2b 6e 25  2a 34 34 0d 17 3e 2c 7f  |64,96+n%*44..>,.|
00003390  3a c8 99 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |:.."Wimp_CreateM|
000033a0  65 6e 75 22 2c 2c 6d 65  6e 75 25 2c 78 25 2d 36  |enu",,menu%,x%-6|
000033b0  34 2c 79 25 2b 32 30 0d  17 48 05 cb 0d 17 52 05  |4,y%+20..H....R.|
000033c0  cb 0d 17 5c 05 e1 0d 17  66 04 0d 17 70 18 dd f2  |...\....f...p...|
000033d0  57 69 6d 70 5f 50 6f 6c  6c 4d 6f 75 73 65 53 61  |Wimp_PollMouseSa|
000033e0  76 65 0d 17 7a 0c c8 8e  69 63 6f 6e 25 ca 0d 17  |ve..z...icon%...|
000033f0  84 2e c9 30 3a e7 62 75  74 74 6f 6e 25 80 26 35  |...0:.button%.&5|
00003400  30 8c f2 57 69 6d 70 5f  50 6f 6c 6c 44 72 61 67  |0..Wimp_PollDrag|
00003410  42 6f 78 28 77 69 6e 64  6f 77 25 29 0d 17 8e 2e  |Box(window%)....|
00003420  c9 32 3a e7 62 75 74 74  6f 6e 25 80 20 35 8c f2  |.2:.button%. 5..|
00003430  57 69 6d 70 5f 50 6f 6c  6c 53 61 76 65 46 69 6c  |Wimp_PollSaveFil|
00003440  65 28 77 69 6e 64 6f 77  25 29 0d 17 98 05 cb 0d  |e(window%)......|
00003450  17 a2 05 e1 0d 17 ac 04  0d 17 b6 1e dd f2 57 69  |..............Wi|
00003460  6d 70 5f 50 6f 6c 6c 45  76 65 6e 74 4d 6f 75 73  |mp_PollEventMous|
00003470  65 43 6c 69 63 6b 0d 17  c0 2a e7 69 6e 74 65 72  |eClick...*.inter|
00003480  66 61 63 65 25 8c c8 99  22 57 69 6d 70 5f 42 6f  |face%..."Wimp_Bo|
00003490  72 64 65 72 49 63 6f 6e  22 2c 2c 77 69 6d 70 25  |rderIcon",,wimp%|
000034a0  0d 17 ca 32 f2 45 76 65  6e 74 5f 4d 6f 75 73 65  |...2.Event_Mouse|
000034b0  43 6c 69 63 6b 28 77 69  6e 64 6f 77 25 2c 69 63  |Click(window%,ic|
000034c0  6f 6e 25 2c 62 75 74 74  6f 6e 25 2c 78 25 2c 79  |on%,button%,x%,y|
000034d0  25 29 0d 17 d4 11 c8 8e  69 6e 74 65 72 66 61 63  |%)......interfac|
000034e0  65 25 ca 0d 17 de 06 c9  b9 0d 17 e8 23 77 69 6d  |e%..........#wim|
000034f0  70 25 21 30 3d 78 25 3a  77 69 6d 70 25 21 34 3d  |p%!0=x%:wimp%!4=|
00003500  79 25 3a 77 69 6d 70 25  21 38 3d 30 0d 17 f2 23  |y%:wimp%!8=0...#|
00003510  77 69 6d 70 25 21 31 32  3d 77 69 6e 64 6f 77 25  |wimp%!12=window%|
00003520  3a 77 69 6d 70 25 21 31  36 3d 69 63 6f 6e 25 0d  |:wimp%!16=icon%.|
00003530  17 fc 1e c8 99 22 57 69  6d 70 5f 42 6f 72 64 65  |....."Wimp_Borde|
00003540  72 49 63 6f 6e 22 2c 2c  77 69 6d 70 25 0d 18 06  |rIcon",,wimp%...|
00003550  05 cb 0d 18 10 05 e1 0d  18 1a 04 0d 18 24 20 dd  |.............$ .|
00003560  f2 57 69 6d 70 5f 50 6f  6c 6c 53 61 76 65 46 69  |.Wimp_PollSaveFi|
00003570  6c 65 28 77 69 6e 64 6f  77 25 29 0d 18 2e 0a ea  |le(window%).....|
00003580  66 69 6c 65 24 0d 18 38  3a 77 69 6d 70 25 21 30  |file$..8:wimp%!0|
00003590  3d 77 69 6e 64 6f 77 25  3a 77 69 6d 70 25 21 34  |=window%:wimp%!4|
000035a0  3d 31 3a c8 99 22 57 69  6d 70 5f 47 65 74 49 63  |=1:.."Wimp_GetIc|
000035b0  6f 6e 53 74 61 74 65 22  2c 2c 77 69 6d 70 25 0d  |onState",,wimp%.|
000035c0  18 42 15 66 69 6c 65 24  3d 24 28 77 69 6d 70 25  |.B.file$=$(wimp%|
000035d0  21 32 38 29 0d 18 4c 12  c8 8e a7 66 69 6c 65 24  |!28)..L....file$|
000035e0  2c 22 2e 22 29 ca 0d 18  56 06 c9 30 0d 18 60 3d  |,".")...V..0..`=|
000035f0  24 28 77 69 6d 70 25 2b  34 29 3d 22 54 6f 20 73  |$(wimp%+4)="To s|
00003600  61 76 65 2c 20 64 72 61  67 20 74 68 65 20 69 63  |ave, drag the ic|
00003610  6f 6e 20 74 6f 20 61 20  64 69 72 65 63 74 6f 72  |on to a director|
00003620  79 20 77 69 6e 64 6f 77  22 0d 18 6a 27 c8 99 22  |y window"..j'.."|
00003630  57 69 6d 70 5f 52 65 70  6f 72 74 45 72 72 6f 72  |Wimp_ReportError|
00003640  22 2c 77 69 6d 70 25 2c  31 36 2c 74 61 73 6b 24  |",wimp%,16,task$|
00003650  0d 18 74 05 7f 0d 18 7e  22 f2 45 76 65 6e 74 5f  |..t....~".Event_|
00003660  53 61 76 65 46 69 6c 65  28 66 69 6c 65 24 2c 77  |SaveFile(file$,w|
00003670  69 6e 64 6f 77 25 29 0d  18 88 05 cb 0d 18 92 1a  |indow%).........|
00003680  c8 99 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |.."Wimp_CreateMe|
00003690  6e 75 22 2c 2d 31 0d 18  9c 05 e1 0d 18 a6 04 0d  |nu",-1..........|
000036a0  18 b0 1f dd f2 57 69 6d  70 5f 50 6f 6c 6c 44 72  |.....Wimp_PollDr|
000036b0  61 67 42 6f 78 28 77 69  6e 64 6f 77 25 29 0d 18  |agBox(window%)..|
000036c0  ba 0a ea 78 25 2c 79 25  0d 18 c4 11 73 61 76 65  |...x%,y%....save|
000036d0  25 3d 77 69 6e 64 6f 77  25 0d 18 ce 12 21 77 69  |%=window%....!wi|
000036e0  6d 70 25 3d 77 69 6e 64  6f 77 25 0d 18 d8 22 c8  |mp%=window%...".|
000036f0  99 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  |."Wimp_GetWindow|
00003700  53 74 61 74 65 22 2c 2c  77 69 6d 70 25 0d 18 e2  |State",,wimp%...|
00003710  2c 78 25 3d 77 69 6d 70  25 21 34 2d 77 69 6d 70  |,x%=wimp%!4-wimp|
00003720  25 21 32 30 3a 79 25 3d  77 69 6d 70 25 21 31 36  |%!20:y%=wimp%!16|
00003730  2d 77 69 6d 70 25 21 32  34 0d 18 ec 0d 77 69 6d  |-wimp%!24....wim|
00003740  70 25 21 34 3d 30 0d 18  f6 20 c8 99 22 57 69 6d  |p%!4=0... .."Wim|
00003750  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
00003760  2c 77 69 6d 70 25 0d 19  00 12 21 77 69 6d 70 25  |,wimp%....!wimp%|
00003770  3d 77 69 6e 64 6f 77 25  0d 19 0a 0d 77 69 6d 70  |=window%....wimp|
00003780  25 21 34 3d 35 0d 19 14  2b 77 69 6d 70 25 21 38  |%!4=5...+wimp%!8|
00003790  3d 78 25 2b 77 69 6d 70  25 21 38 3a 77 69 6d 70  |=x%+wimp%!8:wimp|
000037a0  25 21 31 32 3d 79 25 2b  77 69 6d 70 25 21 31 32  |%!12=y%+wimp%!12|
000037b0  0d 19 1e 2d 77 69 6d 70  25 21 31 36 3d 78 25 2b  |...-wimp%!16=x%+|
000037c0  77 69 6d 70 25 21 31 36  3a 77 69 6d 70 25 21 32  |wimp%!16:wimp%!2|
000037d0  30 3d 79 25 2b 77 69 6d  70 25 21 32 30 0d 19 28  |0=y%+wimp%!20..(|
000037e0  19 77 69 6d 70 25 21 32  34 3d 30 3a 77 69 6d 70  |.wimp%!24=0:wimp|
000037f0  25 21 32 38 3d 30 0d 19  32 29 77 69 6d 70 25 21  |%!28=0..2)wimp%!|
00003800  33 32 3d 26 37 46 46 46  46 46 46 46 3a 77 69 6d  |32=&7FFFFFFF:wim|
00003810  70 25 21 33 36 3d 26 37  46 46 46 46 46 46 46 0d  |p%!36=&7FFFFFFF.|
00003820  19 3c 1b c8 99 22 57 69  6d 70 5f 44 72 61 67 42  |.<..."Wimp_DragB|
00003830  6f 78 22 2c 2c 77 69 6d  70 25 0d 19 46 05 e1 0d  |ox",,wimp%..F...|
00003840  19 50 04 0d 19 5a 17 dd  f2 57 69 6d 70 5f 50 6f  |.P...Z...Wimp_Po|
00003850  6c 6c 4b 65 79 50 72 65  73 73 0d 19 64 2f 77 69  |llKeyPress..d/wi|
00003860  6e 64 6f 77 25 3d 77 69  6d 70 25 21 30 3a 69 63  |ndow%=wimp%!0:ic|
00003870  6f 6e 25 3d 77 69 6d 70  25 21 34 3a 6b 65 79 25  |on%=wimp%!4:key%|
00003880  3d 77 69 6d 70 25 21 32  34 0d 19 6e 1b c8 8e a4  |=wimp%!24..n....|
00003890  45 76 65 6e 74 5f 53 61  76 65 28 77 69 6e 64 6f  |Event_Save(windo|
000038a0  77 25 29 ca 0d 19 78 22  c9 b9 3a f2 57 69 6d 70  |w%)...x"..:.Wimp|
000038b0  50 6f 6c 6c 5f 53 61 76  65 46 69 6c 65 28 77 69  |Poll_SaveFile(wi|
000038c0  6e 64 6f 77 25 29 0d 19  82 2a c9 a3 3a f2 45 76  |ndow%)...*..:.Ev|
000038d0  65 6e 74 5f 4b 65 79 50  72 65 73 73 28 77 69 6e  |ent_KeyPress(win|
000038e0  64 6f 77 25 2c 69 63 6f  6e 25 2c 6b 65 79 25 29  |dow%,icon%,key%)|
000038f0  0d 19 8c 05 cb 0d 19 96  05 e1 0d 19 a0 04 0d 19  |................|
00003900  aa 1a dd f2 57 69 6d 70  5f 50 6f 6c 6c 53 61 76  |....Wimp_PollSav|
00003910  65 4d 65 73 73 61 67 65  0d 19 b4 1e ea 66 69 6c  |eMessage.....fil|
00003920  65 24 2c 77 69 6e 64 6f  77 25 2c 69 63 6f 6e 25  |e$,window%,icon%|
00003930  2c 78 25 2c 79 25 0d 19  be 22 c8 99 22 57 69 6d  |,x%,y%...".."Wim|
00003940  70 5f 47 65 74 50 6f 69  6e 74 65 72 49 6e 66 6f  |p_GetPointerInfo|
00003950  22 2c 2c 77 69 6d 70 25  0d 19 c8 39 77 69 6e 64  |",,wimp%...9wind|
00003960  6f 77 25 3d 77 69 6d 70  25 21 31 32 3a 69 63 6f  |ow%=wimp%!12:ico|
00003970  6e 25 3d 77 69 6d 70 25  21 31 36 3a 78 25 3d 77  |n%=wimp%!16:x%=w|
00003980  69 6d 70 25 21 30 3a 79  25 3d 77 69 6d 70 25 21  |imp%!0:y%=wimp%!|
00003990  34 0d 19 d2 38 77 69 6d  70 25 21 30 3d 73 61 76  |4...8wimp%!0=sav|
000039a0  65 25 3a 77 69 6d 70 25  21 34 3d 31 3a c8 99 22  |e%:wimp%!4=1:.."|
000039b0  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
000039c0  65 22 2c 2c 77 69 6d 70  25 0d 19 dc 15 66 69 6c  |e",,wimp%....fil|
000039d0  65 24 3d 24 28 77 69 6d  70 25 21 32 38 29 0d 19  |e$=$(wimp%!28)..|
000039e0  e6 2a 66 69 6c 65 24 3d  a4 57 69 6d 70 5f 47 65  |.*file$=.Wimp_Ge|
000039f0  74 46 69 6c 65 46 72 6f  6d 50 61 74 68 6e 61 6d  |tFileFromPathnam|
00003a00  65 28 66 69 6c 65 24 29  0d 19 f0 14 77 69 6d 70  |e(file$)....wimp|
00003a10  25 21 32 30 3d 77 69 6e  64 6f 77 25 0d 19 fa 12  |%!20=window%....|
00003a20  77 69 6d 70 25 21 32 34  3d 69 63 6f 6e 25 0d 1a  |wimp%!24=icon%..|
00003a30  04 1b 77 69 6d 70 25 21  32 38 3d 78 25 3a 77 69  |..wimp%!28=x%:wi|
00003a40  6d 70 25 21 33 32 3d 79  25 0d 1a 0e 14 77 69 6d  |mp%!32=y%....wim|
00003a50  70 25 21 33 36 3d 6c 65  6e 67 74 68 25 0d 1a 18  |p%!36=length%...|
00003a60  0e 77 69 6d 70 25 21 30  3d 36 34 0d 1a 22 0e 77  |.wimp%!0=64..".w|
00003a70  69 6d 70 25 21 31 32 3d  30 0d 1a 2c 0e 77 69 6d  |imp%!12=0..,.wim|
00003a80  70 25 21 31 36 3d 31 0d  1a 36 11 77 69 6d 70 25  |p%!16=1..6.wimp%|
00003a90  21 34 30 3d 26 46 46 46  0d 1a 40 15 24 28 77 69  |!40=&FFF..@.$(wi|
00003aa0  6d 70 25 2b 34 34 29 3d  66 69 6c 65 24 0d 1a 4a  |mp%+44)=file$..J|
00003ab0  33 c8 99 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |3.."Wimp_SendMes|
00003ac0  73 61 67 65 22 2c 31 37  2c 77 69 6d 70 25 2c 77  |sage",17,wimp%,w|
00003ad0  69 6d 70 25 21 32 30 2c  77 69 6d 70 25 21 32 34  |imp%!20,wimp%!24|
00003ae0  0d 1a 54 05 e1 0d 1a 5e  04 0d 1a 68 17 dd f2 57  |..T....^...h...W|
00003af0  69 6d 70 5f 50 6f 6c 6c  4d 65 73 73 61 67 65 73  |imp_PollMessages|
00003b00  0d 1a 72 0a ea 66 69 6c  65 24 0d 1a 7c 2c 66 69  |..r..file$..|,fi|
00003b10  6c 65 24 3d a4 57 69 6d  70 5f 47 65 74 53 74 72  |le$=.Wimp_GetStr|
00003b20  69 6e 67 41 74 41 64 64  72 65 73 73 28 77 69 6d  |ingAtAddress(wim|
00003b30  70 25 2b 34 34 29 0d 1a  86 0f c8 8e 77 69 6d 70  |p%+44)......wimp|
00003b40  25 21 31 36 ca 0d 1a 90  12 c9 30 3a 66 69 6e 69  |%!16......0:fini|
00003b50  73 68 65 64 25 3d b9 0d  1a 9a 06 c9 31 0d 1a a4  |shed%=......1...|
00003b60  06 c9 32 0d 1a ae 04 0d  1a b8 38 77 69 6d 70 25  |..2.......8wimp%|
00003b70  21 30 3d 73 61 76 65 25  3a 77 69 6d 70 25 21 34  |!0=save%:wimp%!4|
00003b80  3d 31 3a c8 99 22 57 69  6d 70 5f 47 65 74 49 63  |=1:.."Wimp_GetIc|
00003b90  6f 6e 53 74 61 74 65 22  2c 2c 77 69 6d 70 25 0d  |onState",,wimp%.|
00003ba0  1a c2 15 24 28 77 69 6d  70 25 21 32 38 29 3d 66  |...$(wimp%!28)=f|
00003bb0  69 6c 65 24 0d 1a cc 30  77 69 6d 70 25 21 30 3d  |ile$...0wimp%!0=|
00003bc0  73 61 76 65 25 3a 77 69  6d 70 25 21 34 3d 31 3a  |save%:wimp%!4=1:|
00003bd0  77 69 6d 70 25 21 38 3d  30 3a 77 69 6d 70 25 21  |wimp%!8=0:wimp%!|
00003be0  31 32 3d 30 0d 1a d6 20  c8 99 22 57 69 6d 70 5f  |12=0... .."Wimp_|
00003bf0  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 77  |SetIconState",,w|
00003c00  69 6d 70 25 0d 1a e0 04  0d 1a ea 31 c8 99 22 57  |imp%.......1.."W|
00003c10  69 6d 70 5f 53 65 74 43  61 72 65 74 50 6f 73 69  |imp_SetCaretPosi|
00003c20  74 69 6f 6e 22 2c 73 61  76 65 25 2c 31 2c 2c 2c  |tion",save%,1,,,|
00003c30  2d 31 2c a9 66 69 6c 65  24 0d 1a f4 20 f2 45 76  |-1,.file$... .Ev|
00003c40  65 6e 74 5f 53 61 76 65  46 69 6c 65 28 66 69 6c  |ent_SaveFile(fil|
00003c50  65 24 2c 73 61 76 65 25  29 0d 1a fe 06 c9 33 0d  |e$,save%).....3.|
00003c60  1b 08 3f 74 79 70 65 24  3d a4 57 69 6d 70 5f 46  |..?type$=.Wimp_F|
00003c70  69 6c 65 54 79 70 65 28  77 69 6d 70 25 21 34 30  |ileType(wimp%!40|
00003c80  29 3a f2 45 76 65 6e 74  5f 4c 6f 61 64 46 69 6c  |):.Event_LoadFil|
00003c90  65 28 66 69 6c 65 24 2c  74 79 70 65 24 29 0d 1b  |e(file$,type$)..|
00003ca0  12 05 cb 0d 1b 1c 05 e1  0d 1b 26 04 0d 1b 30 25  |..........&...0%|
00003cb0  dd a4 57 69 6d 70 5f 47  65 74 53 74 72 69 6e 67  |..Wimp_GetString|
00003cc0  41 74 41 64 64 72 65 73  73 28 61 72 72 61 79 25  |AtAddress(array%|
00003cd0  29 0d 1b 3a 0d ea 73 24  3a 73 24 3d 22 22 0d 1b  |)..:..s$:s$=""..|
00003ce0  44 3b c8 95 28 3f 61 72  72 61 79 25 3c 3e 31 33  |D;..(?array%<>13|
00003cf0  29 80 28 3f 61 72 72 61  79 25 3c 3e 30 29 3a 73  |).(?array%<>0):s|
00003d00  24 2b 3d bd 28 3f 61 72  72 61 79 25 29 3a 61 72  |$+=.(?array%):ar|
00003d10  72 61 79 25 2b 3d 31 3a  ce 0d 1b 4e 07 3d 73 24  |ray%+=1:...N.=s$|
00003d20  0d 1b 58 04 0d 1b 62 22  dd a4 57 69 6d 70 5f 47  |..X...b"..Wimp_G|
00003d30  65 74 46 69 6c 65 46 72  6f 6d 50 61 74 68 6e 61  |etFileFromPathna|
00003d40  6d 65 28 66 24 29 0d 1b  6c 0f c8 8e a7 66 24 2c  |me(f$)..l....f$,|
00003d50  22 2e 22 29 ca 0d 1b 76  0a c9 30 3a 3d 66 24 0d  |".")...v..0:=f$.|
00003d60  1b 80 32 7f 3a 3d a4 57  69 6d 70 5f 47 65 74 65  |..2.:=.Wimp_Gete|
00003d70  46 72 6f 6d 50 61 74 68  6e 61 6d 65 28 c2 66 24  |FromPathname(.f$|
00003d80  2c a9 28 66 24 29 2d a7  66 24 2c 22 2e 22 29 29  |,.(f$)-.f$,"."))|
00003d90  29 0d 1b 8a 05 cb 0d 1b  94 04 0d 1b 9e 1a dd a4  |)...............|
00003da0  57 69 6d 70 5f 46 69 6c  65 54 79 70 65 28 74 79  |Wimp_FileType(ty|
00003db0  70 65 25 29 0d 1b a8 0c  c8 8e 74 79 70 65 25 ca  |pe%)......type%.|
00003dc0  0d 1b b2 11 c9 26 46 46  46 3a 3d 22 54 65 78 74  |.....&FFF:="Text|
00003dd0  22 0d 1b bc 11 c9 26 46  46 44 3a 3d 22 44 61 74  |".....&FFD:="Dat|
00003de0  61 22 0d 1b c6 12 c9 26  46 46 42 3a 3d 22 42 61  |a".....&FFB:="Ba|
00003df0  73 69 63 22 0d 1b d0 13  c9 26 46 46 39 3a 3d 22  |sic".....&FF9:="|
00003e00  53 70 72 69 74 65 22 0d  1b da 14 c9 26 46 45 44  |Sprite".....&FED|
00003e10  3a 3d 22 50 61 6c 65 74  74 65 22 0d 1b e4 15 c9  |:="Palette".....|
00003e20  26 46 45 43 3a 3d 22 54  65 6d 70 6c 61 74 65 22  |&FEC:="Template"|
00003e30  0d 1b ee 11 c9 26 41 46  46 3a 3d 22 44 72 61 77  |.....&AFF:="Draw|
00003e40  22 0d 1b f8 14 c9 26 31  30 30 30 3a 3d 22 46 6f  |".....&1000:="Fo|
00003e50  6c 64 65 72 22 0d 1c 02  19 c9 26 32 30 30 30 3a  |lder".....&2000:|
00003e60  3d 22 41 70 70 6c 69 63  61 74 69 6f 6e 22 0d 1c  |="Application"..|
00003e70  0c 0f 7f 3d c3 7e 28 74  79 70 65 25 29 0d 1c 16  |...=.~(type%)...|
00003e80  05 cb 0d 1c 20 05 e1 0d  1c 2a 0a dd f2 6d 61 69  |.... ....*...mai|
00003e90  6e 0d 1c 34 04 0d 1c 3e  0c ee 85 f2 65 72 72 6f  |n..4...>....erro|
00003ea0  72 0d 1c 48 1e eb 31 35  3a 87 3a e6 38 2c 30 3a  |r..H..15:.:.8,0:|
00003eb0  e7 20 63 6c 65 61 72 20  8c 20 e5 8d 54 5a 5d 0d  |. clear . ..TZ].|
00003ec0  1c 4d 2b e6 36 33 3a e3  4c 3d 31 b8 32 35 30 3a  |.M+.63:.L=1.250:|
00003ed0  c8 8f c8 90 b3 28 31 32  38 30 29 2c b3 28 31 30  |.....(1280),.(10|
00003ee0  32 34 29 2c b3 28 33 29  3a ed 0d 1c 52 11 2a 53  |24),.(3):...R.*S|
00003ef0  43 48 4f 4f 53 45 20 4c  4f 47 4f 0d 1c 5c 1d e6  |CHOOSE LOGO..\..|
00003f00  38 2c 30 3a f0 26 45 44  2c 33 30 30 2c 32 30 30  |8,0:.&ED,300,200|
00003f10  3a e6 36 33 3a d1 3d 30  0d 1c 66 04 0d 1c 70 05  |:.63:.=0..f...p.|
00003f20  f5 0d 1c 75 10 e7 91 3e  32 30 30 20 e5 8d 74 58  |...u...>200 ..tX|
00003f30  5c 0d 1c 7a 11 c8 97 58  2c 59 2c 5a 3a fd 20 5a  |\..z...X,Y,Z:. Z|
00003f40  3e 30 0d 1c 8e 04 0d 1c  98 07 ef 31 32 0d 1c a2  |>0.........12...|
00003f50  10 ff 22 50 4f 49 4e 54  45 52 20 31 22 0d 1c ac  |.."POINTER 1"...|
00003f60  08 c8 97 88 34 0d 1c b6  0a 47 52 49 44 3d 30 0d  |....4....GRID=0.|
00003f70  1c c0 0b f2 72 65 64 72  61 77 0d 1c ca 0b f2 73  |....redraw.....s|
00003f80  65 6c 65 63 74 0d 1c d4  08 f2 70 65 6e 0d 1c de  |elect.....pen...|
00003f90  05 e0 0d 1c e8 0c dd f2  73 65 6c 65 63 74 0d 1c  |........select..|
00003fa0  f2 08 ec 30 2c 30 0d 1c  fc 0e ec 31 32 38 30 2c  |...0,0.....1280,|
00003fb0  31 30 32 34 0d 1d 06 16  ff 22 53 47 45 54 20 53  |1024....."SGET S|
00003fc0  43 52 45 45 4e 44 55 4d  50 22 0d 1d 10 0b 63 6c  |CREENDUMP"....cl|
00003fd0  65 61 72 3d b9 0d 1d 1a  09 eb 31 35 3a 87 0d 1d  |ear=......15:...|
00003fe0  24 27 e3 4c 3d 31 b8 32  35 30 3a c8 8f c8 90 b3  |$'.L=1.250:.....|
00003ff0  28 31 32 38 30 29 2c b3  28 31 30 32 34 29 2c b3  |(1280),.(1024),.|
00004000  28 33 29 3a ed 0d 1d 2e  10 ff 22 50 4f 49 4e 54  |(3):......"POINT|
00004010  45 52 20 31 22 0d 1d 38  2e c8 99 22 57 69 6d 70  |ER 1"..8..."Wimp|
00004020  5f 53 70 72 69 74 65 4f  70 22 2c 33 36 2c 2c 22  |_SpriteOp",36,,"|
00004030  70 74 72 5f 72 6f 63 6b  65 74 22 2c 25 31 30 30  |ptr_rocket",%100|
00004040  30 30 31 0d 1d 42 0a e6  32 31 c8 9c 30 0d 1d 4c  |001..B..21..0..L|
00004050  17 c8 93 c8 90 31 35 30  2c 32 36 30 2c 39 30 30  |.....150,260,900|
00004060  2c 31 39 30 0d 1d 56 0b  e6 32 31 c8 9c 36 34 0d  |,190..V..21..64.|
00004070  1d 60 17 c8 93 c8 90 31  36 38 2c 32 37 30 2c 38  |.`.....168,270,8|
00004080  36 38 2c 31 36 38 0d 1d  6a 0c e6 32 31 c8 9c 31  |68,168..j..21..1|
00004090  32 38 0d 1d 74 17 c8 93  c8 90 31 38 36 2c 32 38  |28..t.....186,28|
000040a0  30 2c 38 34 30 2c 31 34  36 0d 1d 7e 0c e6 32 31  |0,840,146..~..21|
000040b0  c8 9c 31 39 32 0d 1d 88  17 c8 93 c8 90 32 30 30  |..192........200|
000040c0  2c 32 39 30 2c 38 31 30  2c 31 32 34 0d 1d 92 11  |,290,810,124....|
000040d0  e6 28 43 4f 4c 29 c8 9c  28 54 49 4e 29 0d 1d 9c  |.(COL)..(TIN)...|
000040e0  17 c8 93 c8 90 32 30 38  2c 33 30 30 2c 38 30 30  |.....208,300,800|
000040f0  2c 31 30 30 0d 1d a6 08  e6 30 2c 30 0d 1d b0 14  |,100.....0,0....|
00004100  2a 53 43 48 4f 4f 53 45  20 50 45 4e 54 4f 4f 4c  |*SCHOOSE PENTOOL|
00004110  0d 1d ba 0f f0 26 45 44  2c 35 30 2c 39 30 30 0d  |.....&ED,50,900.|
00004120  1d c4 16 2a 53 43 48 4f  4f 53 45 20 42 52 55 53  |...*SCHOOSE BRUS|
00004130  48 54 4f 4f 4c 0d 1d ce  10 f0 26 45 44 2c 31 33  |HTOOL.....&ED,13|
00004140  33 2c 39 30 30 0d 1d d8  17 2a 53 43 48 4f 4f 53  |3,900....*SCHOOS|
00004150  45 20 52 55 42 42 45 52  54 4f 4f 4c 0d 1d e2 10  |E RUBBERTOOL....|
00004160  f0 26 45 44 2c 32 31 36  2c 39 30 30 0d 1d ec 15  |.&ED,216,900....|
00004170  2a 53 43 48 4f 4f 53 45  20 4c 49 4e 45 54 4f 4f  |*SCHOOSE LINETOO|
00004180  4c 0d 1d f6 10 f0 26 45  44 2c 33 30 30 2c 39 30  |L.....&ED,300,90|
00004190  30 0d 1e 00 14 2a 53 43  48 4f 4f 53 45 20 41 52  |0....*SCHOOSE AR|
000041a0  43 54 4f 4f 4c 0d 1e 0a  10 f0 26 45 44 2c 33 38  |CTOOL.....&ED,38|
000041b0  35 2c 39 30 30 0d 1e 14  15 2a 53 43 48 4f 4f 53  |5,900....*SCHOOS|
000041c0  45 20 52 45 43 54 4f 4f  4c 32 0d 1e 1e 10 f0 26  |E RECTOOL2.....&|
000041d0  45 44 2c 34 36 37 2c 39  30 30 0d 1e 28 14 2a 53  |ED,467,900..(.*S|
000041e0  43 48 4f 4f 53 45 20 52  45 43 54 4f 4f 4c 0d 1e  |CHOOSE RECTOOL..|
000041f0  32 10 f0 26 45 44 2c 35  34 39 2c 39 30 30 0d 1e  |2..&ED,549,900..|
00004200  3c 15 2a 53 43 48 4f 4f  53 45 20 43 49 52 54 4f  |<.*SCHOOSE CIRTO|
00004210  4f 4c 32 0d 1e 46 10 f0  26 45 44 2c 36 33 31 2c  |OL2..F..&ED,631,|
00004220  39 30 30 0d 1e 50 14 2a  53 43 48 4f 4f 53 45 20  |900..P.*SCHOOSE |
00004230  43 49 52 54 4f 4f 4c 0d  1e 5a 10 f0 26 45 44 2c  |CIRTOOL..Z..&ED,|
00004240  37 31 33 2c 39 30 30 0d  1e 64 18 2a 53 43 48 4f  |713,900..d.*SCHO|
00004250  4f 53 45 20 53 45 43 54  4f 52 54 4f 4f 4c 32 0d  |OSE SECTORTOOL2.|
00004260  1e 6e 10 f0 26 45 44 2c  37 39 35 2c 39 30 30 0d  |.n..&ED,795,900.|
00004270  1e 78 17 2a 53 43 48 4f  4f 53 45 20 53 45 43 54  |.x.*SCHOOSE SECT|
00004280  4f 52 54 4f 4f 4c 0d 1e  82 10 f0 26 45 44 2c 38  |ORTOOL.....&ED,8|
00004290  37 38 2c 39 30 30 0d 1e  8c 15 2a 53 43 48 4f 4f  |78,900....*SCHOO|
000042a0  53 45 20 54 52 49 54 4f  4f 4c 32 0d 1e 96 10 f0  |SE TRITOOL2.....|
000042b0  26 45 44 2c 39 36 31 2c  39 30 30 0d 1e a0 14 2a  |&ED,961,900....*|
000042c0  53 43 48 4f 4f 53 45 20  54 52 49 54 4f 4f 4c 0d  |SCHOOSE TRITOOL.|
000042d0  1e aa 11 f0 26 45 44 2c  31 30 34 34 2c 39 30 30  |....&ED,1044,900|
000042e0  0d 1e b4 12 2a 53 43 48  4f 4f 53 45 20 46 49 4c  |....*SCHOOSE FIL|
000042f0  45 53 0d 1e be 10 f0 26  45 44 2c 33 30 30 2c 35  |ES.....&ED,300,5|
00004300  30 30 0d 1e c8 12 2a 53  43 48 4f 4f 53 45 20 43  |00....*SCHOOSE C|
00004310  4c 45 41 52 0d 1e d2 10  f0 26 45 44 2c 37 30 30  |LEAR.....&ED,700|
00004320  2c 35 30 30 0d 1e dc 12  2a 53 43 48 4f 4f 53 45  |,500....*SCHOOSE|
00004330  20 53 49 5a 45 53 0d 1e  e6 10 f0 26 45 44 2c 35  | SIZES.....&ED,5|
00004340  30 30 2c 35 30 30 0d 1e  f0 12 2a 53 43 48 4f 4f  |00,500....*SCHOO|
00004350  53 45 20 46 4f 4e 54 53  0d 1e fa 10 f0 26 45 44  |SE FONTS.....&ED|
00004360  2c 31 30 30 2c 35 30 30  0d 1f 04 10 2a 53 43 48  |,100,500....*SCH|
00004370  4f 4f 53 45 20 45 4e 44  0d 1f 0e 10 f0 26 45 44  |OOSE END.....&ED|
00004380  2c 39 30 30 2c 35 30 30  0d 1f 18 17 2a 53 43 48  |,900,500....*SCH|
00004390  4f 4f 53 45 20 44 49 54  48 45 52 54 4f 4f 4c 0d  |OOSE DITHERTOOL.|
000043a0  1f 22 0f f0 26 45 44 2c  35 30 2c 38 32 30 0d 1f  |."..&ED,50,820..|
000043b0  2c 15 2a 53 43 48 4f 4f  53 45 20 44 41 53 48 54  |,.*SCHOOSE DASHT|
000043c0  4f 4f 4c 0d 1f 36 10 f0  26 45 44 2c 31 33 33 2c  |OOL..6..&ED,133,|
000043d0  38 32 30 0d 1f 40 15 2a  53 43 48 4f 4f 53 45 20  |820..@.*SCHOOSE |
000043e0  54 45 58 54 54 4f 4f 4c  0d 1f 4a 10 f0 26 45 44  |TEXTTOOL..J..&ED|
000043f0  2c 32 31 36 2c 38 32 30  0d 1f 54 17 2a 53 43 48  |,216,820..T.*SCH|
00004400  4f 4f 53 45 20 43 41 4d  45 52 41 54 4f 4f 4c 0d  |OOSE CAMERATOOL.|
00004410  1f 5e 10 f0 26 45 44 2c  33 30 30 2c 38 32 30 0d  |.^..&ED,300,820.|
00004420  1f 68 18 2a 53 43 48 4f  4f 53 45 20 53 43 49 53  |.h.*SCHOOSE SCIS|
00004430  53 4f 52 54 4f 4f 4c 0d  1f 72 10 f0 26 45 44 2c  |SORTOOL..r..&ED,|
00004440  33 38 33 2c 38 32 30 0d  1f 7c 11 2a 53 43 48 4f  |383,820..|.*SCHO|
00004450  4f 53 45 20 74 69 6c 65  0d 1f 86 10 f0 26 45 44  |OSE tile.....&ED|
00004460  2c 34 36 36 2c 38 32 30  0d 1f 90 17 2a 53 43 48  |,466,820....*SCH|
00004470  4f 4f 53 45 20 49 4e 56  45 52 54 54 4f 4f 4c 0d  |OOSE INVERTTOOL.|
00004480  1f 9a 10 f0 26 45 44 2c  35 34 39 2c 38 32 30 0d  |....&ED,549,820.|
00004490  1f a4 17 2a 53 43 48 4f  4f 53 45 20 53 45 4c 45  |...*SCHOOSE SELE|
000044a0  43 54 54 4f 4f 4c 0d 1f  ae 10 f0 26 45 44 2c 36  |CTTOOL.....&ED,6|
000044b0  33 32 2c 38 32 30 0d 1f  b8 19 2a 53 43 48 4f 4f  |32,820....*SCHOO|
000044c0  53 45 20 50 41 52 41 4c  4c 45 4c 54 4f 4f 4c 0d  |SE PARALLELTOOL.|
000044d0  1f c2 10 f0 26 45 44 2c  37 31 34 2c 38 32 30 0d  |....&ED,714,820.|
000044e0  1f cc 19 2a 53 43 48 4f  4f 53 45 20 50 52 4f 50  |...*SCHOOSE PROP|
000044f0  45 4c 4f 52 54 4f 4f 4c  0d 1f d6 10 f0 26 45 44  |ELORTOOL.....&ED|
00004500  2c 37 39 38 2c 38 32 30  0d 1f e0 18 2a 53 43 48  |,798,820....*SCH|
00004510  4f 4f 53 45 20 52 45 50  4c 41 43 45 54 4f 4f 4c  |OOSE REPLACETOOL|
00004520  0d 1f ea 10 f0 26 45 44  2c 38 38 31 2c 38 32 30  |.....&ED,881,820|
00004530  0d 1f f4 16 2a 53 43 48  4f 4f 53 45 20 53 50 52  |....*SCHOOSE SPR|
00004540  41 59 54 4f 4f 4c 0d 1f  fe 10 f0 26 45 44 2c 39  |AYTOOL.....&ED,9|
00004550  36 34 2c 38 32 30 0d 20  08 15 2a 53 43 48 4f 4f  |64,820. ..*SCHOO|
00004560  53 45 20 46 49 4c 4c 54  4f 4f 4c 0d 20 12 11 f0  |SE FILLTOOL. ...|
00004570  26 45 44 2c 31 30 34 37  2c 38 32 30 0d 20 1c 16  |&ED,1047,820. ..|
00004580  2a 53 43 48 4f 4f 53 45  20 4d 55 4c 54 49 54 4f  |*SCHOOSE MULTITO|
00004590  4f 4c 0d 20 26 11 f0 26  45 44 2c 31 31 32 36 2c  |OL. &..&ED,1126,|
000045a0  39 30 30 0d 20 30 17 2a  53 43 48 4f 4f 53 45 20  |900. 0.*SCHOOSE |
000045b0  53 4d 55 44 47 45 54 4f  4f 4c 0d 20 3a 11 f0 26  |SMUDGETOOL. :..&|
000045c0  45 44 2c 31 31 32 36 2c  38 32 30 0d 20 44 12 2a  |ED,1126,820. D.*|
000045d0  53 43 48 4f 4f 53 45 20  48 45 4c 50 21 0d 20 4e  |SCHOOSE HELP!. N|
000045e0  10 f0 26 45 44 2c 34 30  30 2c 37 31 30 0d 20 58  |..&ED,400,710. X|
000045f0  12 2a 53 43 48 4f 4f 53  45 20 21 47 52 49 44 0d  |.*SCHOOSE !GRID.|
00004600  20 62 31 e6 34 2c 30 3a  c8 91 30 2c 32 3a c8 93  | b1.4,0:..0,2:..|
00004610  c8 90 78 78 78 78 78 78  2c 79 79 79 79 79 79 2c  |..xxxxxx,yyyyyy,|
00004620  38 33 2c 37 36 3a e6 30  2c 30 3a c8 91 30 2c 30  |83,76:.0,0:..0,0|
00004630  0d 20 6c 34 f0 26 45 44  2c 36 30 30 2c 37 31 30  |. l4.&ED,600,710|
00004640  3a e6 31 33 3a e7 47 52  49 44 3d 30 8c ef 35 3a  |:.13:.GRID=0..5:|
00004650  ec 36 33 38 2c 37 37 30  3a f1 22 47 52 49 44 20  |.638,770:."GRID |
00004660  4f 46 46 22 0d 20 76 26  e7 47 52 49 44 3d 31 8c  |OFF". v&.GRID=1.|
00004670  ef 35 3a e6 31 33 3a ec  36 34 32 2c 37 37 30 3a  |.5:.13:.642,770:|
00004680  f1 22 47 52 49 44 20 4f  4e 22 0d 20 80 0d f2 64  |."GRID ON". ...d|
00004690  6f 63 6f 6c 28 31 29 0d  20 8a 0d f2 64 6f 63 6f  |ocol(1). ...doco|
000046a0  6c 28 32 29 0d 20 94 0d  f2 64 6f 63 6f 6c 28 33  |l(2). ...docol(3|
000046b0  29 0d 20 9e 0e f2 64 6f  63 6f 6c 28 32 33 29 0d  |). ...docol(23).|
000046c0  20 a8 0d f2 64 6f 63 6f  6c 28 37 29 0d 20 b2 0e  | ...docol(7). ..|
000046d0  f2 64 6f 63 6f 6c 28 31  31 29 0d 20 bc 0e f2 64  |.docol(11). ...d|
000046e0  6f 63 6f 6c 28 31 30 29  0d 20 c6 0e f2 64 6f 63  |ocol(10). ...doc|
000046f0  6f 6c 28 31 35 29 0d 20  d0 0e f2 64 6f 63 6f 6c  |ol(15). ...docol|
00004700  28 39 35 29 0d 20 e4 0e  f2 64 6f 63 6f 6c 28 34  |(95). ...docol(4|
00004710  37 29 0d 20 ee 0d f2 64  6f 63 6f 6c 28 34 29 0d  |7). ...docol(4).|
00004720  20 f8 0d f2 64 6f 63 6f  6c 28 38 29 0d 21 02 0e  | ...docol(8).!..|
00004730  f2 64 6f 63 6f 6c 28 32  39 29 0d 21 0c 0e f2 64  |.docol(29).!...d|
00004740  6f 63 6f 6c 28 34 35 29  0d 21 16 0e f2 64 6f 63  |ocol(45).!...doc|
00004750  6f 6c 28 33 32 29 0d 21  20 0e f2 64 6f 63 6f 6c  |ol(32).! ..docol|
00004760  28 34 38 29 0d 21 2a 0e  f2 64 6f 63 6f 6c 28 35  |(48).!*..docol(5|
00004770  33 29 0d 21 34 0e f2 64  6f 63 6f 6c 28 35 38 29  |3).!4..docol(58)|
00004780  0d 21 3e 0e f2 64 6f 63  6f 6c 28 35 36 29 0d 21  |.!>..docol(56).!|
00004790  48 0e f2 64 6f 63 6f 6c  28 36 30 29 0d 21 52 0e  |H..docol(60).!R.|
000047a0  f2 64 6f 63 6f 6c 28 36  31 29 0d 21 5c 0e f2 64  |.docol(61).!\..d|
000047b0  6f 63 6f 6c 28 36 32 29  0d 21 66 0e f2 64 6f 63  |ocol(62).!f..doc|
000047c0  6f 6c 28 35 30 29 0d 21  70 0e f2 64 6f 63 6f 6c  |ol(50).!p..docol|
000047d0  28 35 31 29 0d 21 7a 0e  f2 64 6f 63 6f 6c 28 35  |(51).!z..docol(5|
000047e0  35 29 0d 21 84 0e f2 64  6f 63 6f 6c 28 36 33 29  |5).!...docol(63)|
000047f0  0d 21 8e 0e f2 64 6f 63  6f 6c 28 34 32 29 0d 21  |.!...docol(42).!|
00004800  98 0e f2 64 6f 63 6f 6c  28 32 31 29 0d 21 a2 0d  |...docol(21).!..|
00004810  f2 64 6f 63 6f 6c 28 30  29 0d 21 ac 0b 20 70 6f  |.docol(0).!.. po|
00004820  73 25 3d 30 0d 21 b6 0b  c8 97 58 2c 59 2c 5a 0d  |s%=0.!....X,Y,Z.|
00004830  21 c0 53 e7 59 3c 32 35  35 80 20 59 3e 30 80 20  |!.S.Y<255. Y>0. |
00004840  5a 3d 34 8c 43 4f 4c 3d  b0 58 2c 59 29 3a e6 28  |Z=4.COL=.X,Y):.(|
00004850  43 4f 4c 29 3a 54 49 4e  3d c8 9c 28 58 2c 59 29  |COL):TIN=..(X,Y)|
00004860  3a e6 28 43 4f 4c 29 c8  9c 28 54 49 4e 29 3a c8  |:.(COL)..(TIN):.|
00004870  93 c8 90 32 30 38 2c 33  30 30 2c 38 30 30 2c 31  |...208,300,800,1|
00004880  30 30 0d 21 ca 32 e7 58  3e 34 30 30 80 20 58 3c  |00.!.2.X>400. X<|
00004890  36 30 30 80 20 59 3e 37  31 30 80 20 59 3c 38 30  |600. Y>710. Y<80|
000048a0  30 80 20 5a 3e 31 20 80  20 5a 3c 35 20 8c f2 68  |0. Z>1 . Z<5 ..h|
000048b0  65 6c 70 32 0d 21 d4 7d  e7 58 3e 36 30 30 80 20  |elp2.!.}.X>600. |
000048c0  58 3c 38 30 30 80 20 59  3e 37 31 30 80 20 59 3c  |X<800. Y>710. Y<|
000048d0  38 30 30 80 20 5a 3d 34  80 20 47 52 49 44 3d 30  |800. Z=4. GRID=0|
000048e0  8c 47 52 49 44 3d 31 3a  f0 26 45 44 2c 36 30 30  |.GRID=1:.&ED,600|
000048f0  2c 37 31 30 3a ec 36 34  32 2c 37 37 30 3a e6 31  |,710:.642,770:.1|
00004900  33 3a f1 22 47 52 49 44  20 4f 4e 22 3a e6 28 43  |3:."GRID ON":.(C|
00004910  4f 4c 29 c8 9c 28 54 49  4e 29 3a f5 3a c8 97 58  |OL)..(TIN):.:..X|
00004920  2c 59 2c 5a 3a fd 5a 3d  30 3a c8 97 58 2c 59 2c  |,Y,Z:.Z=0:..X,Y,|
00004930  5a 0d 21 de 7e e7 58 3e  36 30 30 80 20 58 3c 38  |Z.!.~.X>600. X<8|
00004940  30 30 80 20 59 3e 37 31  30 80 20 59 3c 38 30 30  |00. Y>710. Y<800|
00004950  80 20 5a 3d 34 80 20 47  52 49 44 3d 31 8c 47 52  |. Z=4. GRID=1.GR|
00004960  49 44 3d 30 3a f0 26 45  44 2c 36 30 30 2c 37 31  |ID=0:.&ED,600,71|
00004970  30 3a ec 36 33 38 2c 37  37 30 3a e6 31 33 3a f1  |0:.638,770:.13:.|
00004980  22 47 52 49 44 20 4f 46  46 22 3a e6 28 43 4f 4c  |"GRID OFF":.(COL|
00004990  29 c8 9c 28 54 49 4e 29  3a f5 3a c8 97 58 2c 59  |)..(TIN):.:..X,Y|
000049a0  2c 5a 3a fd 5a 3d 30 3a  c8 97 58 2c 59 2c 5a 0d  |,Z:.Z=0:..X,Y,Z.|
000049b0  21 e8 3d e7 58 3e 32 31  36 80 20 58 3c 33 30 30  |!.=.X>216. X<300|
000049c0  80 20 59 3e 39 30 30 80  20 59 3c 39 38 35 80 20  |. Y>900. Y<985. |
000049d0  5a 3d 34 8c f2 72 65 64  72 61 77 3a 47 47 3d a6  |Z=4..redraw:GG=.|
000049e0  28 31 30 29 3a f2 72 75  62 62 65 72 0d 21 f2 39  |(10):.rubber.!.9|
000049f0  e7 58 3e 32 31 36 80 20  58 3c 33 30 30 80 20 59  |.X>216. X<300. Y|
00004a00  3e 39 30 30 80 20 59 3c  39 38 35 80 20 5a 3d 32  |>900. Y<985. Z=2|
00004a10  8c 68 65 6c 70 24 3d 22  52 55 42 42 45 52 22 3a  |.help$="RUBBER":|
00004a20  f2 68 65 6c 70 0d 21 fc  3b e7 58 3e 33 30 30 80  |.help.!.;.X>300.|
00004a30  20 58 3c 33 38 35 80 20  59 3e 39 30 30 80 20 59  | X<385. Y>900. Y|
00004a40  3c 39 38 35 80 20 5a 3d  34 8c f2 72 65 64 72 61  |<985. Z=4..redra|
00004a50  77 3a 47 47 3d a6 28 32  30 29 3a f2 6c 69 6e 65  |w:GG=.(20):.line|
00004a60  0d 22 06 37 e7 58 3e 33  30 30 80 20 58 3c 33 38  |.".7.X>300. X<38|
00004a70  35 80 20 59 3e 39 30 30  80 20 59 3c 39 38 35 80  |5. Y>900. Y<985.|
00004a80  20 5a 3d 32 8c 68 65 6c  70 24 3d 22 4c 49 4e 45  | Z=2.help$="LINE|
00004a90  22 3a f2 68 65 6c 70 0d  22 10 31 e7 58 3e 33 38  |":.help.".1.X>38|
00004aa0  35 80 20 58 3c 34 36 37  80 20 59 3e 39 30 30 80  |5. X<467. Y>900.|
00004ab0  20 59 3c 39 38 35 80 20  5a 3d 34 8c f2 72 65 64  | Y<985. Z=4..red|
00004ac0  72 61 77 3a f2 61 72 63  0d 22 1a 36 e7 58 3e 33  |raw:.arc.".6.X>3|
00004ad0  38 35 80 20 58 3c 34 36  37 80 20 59 3e 39 30 30  |85. X<467. Y>900|
00004ae0  80 20 59 3c 39 38 35 80  20 5a 3d 32 8c 68 65 6c  |. Y<985. Z=2.hel|
00004af0  70 24 3d 22 61 72 63 22  3a f2 68 65 6c 70 0d 22  |p$="arc":.help."|
00004b00  24 3b e7 58 3e 34 36 37  80 20 58 3c 35 34 39 80  |$;.X>467. X<549.|
00004b10  20 59 3e 39 30 30 80 20  59 3c 39 38 35 80 20 5a  | Y>900. Y<985. Z|
00004b20  3d 34 8c f2 72 65 64 72  61 77 3a 47 47 3d a6 28  |=4..redraw:GG=.(|
00004b30  32 30 29 3a f2 72 65 63  32 0d 22 2e 36 e7 58 3e  |20):.rec2.".6.X>|
00004b40  34 36 37 80 20 58 3c 36  33 31 80 20 59 3e 39 30  |467. X<631. Y>90|
00004b50  30 80 20 59 3c 39 38 35  80 20 5a 3d 32 8c 68 65  |0. Y<985. Z=2.he|
00004b60  6c 70 24 3d 22 72 65 63  22 3a f2 68 65 6c 70 0d  |lp$="rec":.help.|
00004b70  22 38 3a e7 58 3e 35 34  39 80 20 58 3c 36 33 31  |"8:.X>549. X<631|
00004b80  80 20 59 3e 39 30 30 80  20 59 3c 39 38 35 80 20  |. Y>900. Y<985. |
00004b90  5a 3d 34 8c f2 72 65 64  72 61 77 3a 47 47 3d a6  |Z=4..redraw:GG=.|
00004ba0  28 32 30 29 3a f2 72 65  63 0d 22 42 34 e7 58 3e  |(20):.rec."B4.X>|
00004bb0  35 34 39 80 20 58 3c 36  33 31 80 20 59 3e 38 32  |549. X<631. Y>82|
00004bc0  30 80 20 59 3c 39 30 30  80 20 5a 3d 34 8c f2 72  |0. Y<900. Z=4..r|
00004bd0  65 64 72 61 77 3a f2 69  6e 76 65 72 74 0d 22 4c  |edraw:.invert."L|
00004be0  39 e7 58 3e 35 34 39 80  20 58 3c 36 33 31 80 20  |9.X>549. X<631. |
00004bf0  59 3e 38 32 30 80 20 59  3c 39 30 30 80 20 5a 3d  |Y>820. Y<900. Z=|
00004c00  32 8c 68 65 6c 70 24 3d  22 49 4e 56 45 52 54 22  |2.help$="INVERT"|
00004c10  3a f2 68 65 6c 70 0d 22  56 31 e7 58 3e 37 31 33  |:.help."V1.X>713|
00004c20  80 20 58 3c 37 39 35 80  20 59 3e 39 30 30 80 20  |. X<795. Y>900. |
00004c30  59 3c 39 38 35 80 20 5a  3d 34 8c f2 72 65 64 72  |Y<985. Z=4..redr|
00004c40  61 77 3a f2 63 69 72 0d  22 60 36 e7 58 3e 36 33  |aw:.cir."`6.X>63|
00004c50  31 80 20 58 3c 37 39 35  80 20 59 3e 39 30 30 80  |1. X<795. Y>900.|
00004c60  20 59 3c 39 38 35 80 20  5a 3d 32 8c 68 65 6c 70  | Y<985. Z=2.help|
00004c70  24 3d 22 63 69 72 22 3a  f2 68 65 6c 70 0d 22 6a  |$="cir":.help."j|
00004c80  3e e7 58 3e 37 39 35 80  20 58 3c 38 37 37 80 20  |>.X>795. X<877. |
00004c90  59 3e 39 30 30 80 20 59  3c 39 38 35 80 20 5a 3d  |Y>900. Y<985. Z=|
00004ca0  34 8c f2 72 65 64 72 61  77 3a 47 47 3d a6 28 31  |4..redraw:GG=.(1|
00004cb0  30 29 3a f2 73 65 63 74  6f 72 32 0d 22 74 39 e7  |0):.sector2."t9.|
00004cc0  58 3e 37 39 35 80 20 58  3c 39 36 31 80 20 59 3e  |X>795. X<961. Y>|
00004cd0  39 30 30 80 20 59 3c 39  38 35 80 20 5a 3d 32 8c  |900. Y<985. Z=2.|
00004ce0  68 65 6c 70 24 3d 22 73  65 63 74 6f 72 22 3a f2  |help$="sector":.|
00004cf0  68 65 6c 70 0d 22 7e 3d  e7 58 3e 38 37 37 80 20  |help."~=.X>877. |
00004d00  58 3c 39 35 39 80 20 59  3e 39 30 30 80 20 59 3c  |X<959. Y>900. Y<|
00004d10  39 38 35 80 20 5a 3d 34  8c f2 72 65 64 72 61 77  |985. Z=4..redraw|
00004d20  3a 47 47 3d a6 28 31 30  29 3a f2 73 65 63 74 6f  |:GG=.(10):.secto|
00004d30  72 0d 22 88 3d e7 58 3e  31 30 34 37 80 20 58 3c  |r.".=.X>1047. X<|
00004d40  31 31 33 30 80 20 59 3e  38 32 30 80 20 59 3c 39  |1130. Y>820. Y<9|
00004d50  30 30 80 20 5a 3d 34 8c  f2 72 65 64 72 61 77 3a  |00. Z=4..redraw:|
00004d60  47 47 3d a6 28 32 30 29  3a f2 66 69 6c 6c 0d 22  |GG=.(20):.fill."|
00004d70  92 39 e7 58 3e 31 30 34  37 80 20 58 3c 31 31 33  |.9.X>1047. X<113|
00004d80  30 80 20 59 3e 38 32 30  80 20 59 3c 39 30 30 80  |0. Y>820. Y<900.|
00004d90  20 5a 3d 32 8c 68 65 6c  70 24 3d 22 66 69 6c 6c  | Z=2.help$="fill|
00004da0  22 3a f2 68 65 6c 70 0d  22 9c 33 e7 58 3e 31 30  |":.help.".3.X>10|
00004db0  34 34 80 20 58 3c 31 31  32 37 80 20 59 3e 39 30  |44. X<1127. Y>90|
00004dc0  30 80 20 59 3c 39 38 35  80 20 5a 3d 34 8c f2 72  |0. Y<985. Z=4..r|
00004dd0  65 64 72 61 77 3a f2 74  72 69 0d 22 a6 3c e7 58  |edraw:.tri.".<.X|
00004de0  3e 39 36 31 80 20 58 3c  31 30 34 34 80 20 59 3e  |>961. X<1044. Y>|
00004df0  39 30 30 80 20 59 3c 39  38 35 80 20 5a 3d 34 8c  |900. Y<985. Z=4.|
00004e00  f2 72 65 64 72 61 77 3a  47 47 3d a6 28 32 30 29  |.redraw:GG=.(20)|
00004e10  3a f2 74 72 69 32 0d 22  b0 3c e7 58 3e 39 36 31  |:.tri2.".<.X>961|
00004e20  80 20 58 3c 31 31 32 36  80 20 59 3e 39 30 30 80  |. X<1126. Y>900.|
00004e30  20 59 3c 39 38 35 80 20  5a 3d 32 8c 68 65 6c 70  | Y<985. Z=2.help|
00004e40  24 3d 22 74 72 69 61 6e  67 6c 65 22 3a f2 68 65  |$="triangle":.he|
00004e50  6c 70 0d 22 ba 33 e7 58  3e 31 33 33 80 20 58 3c  |lp.".3.X>133. X<|
00004e60  33 30 30 80 20 59 3e 39  30 30 80 20 59 3c 39 38  |300. Y>900. Y<98|
00004e70  35 80 20 5a 3d 34 8c f2  72 65 64 72 61 77 3a f2  |5. Z=4..redraw:.|
00004e80  62 72 75 73 68 0d 22 c4  38 e7 58 3e 31 33 33 80  |brush.".8.X>133.|
00004e90  20 58 3c 33 30 30 80 20  59 3e 39 30 30 80 20 59  | X<300. Y>900. Y|
00004ea0  3c 39 38 35 80 20 5a 3d  32 8c 68 65 6c 70 24 3d  |<985. Z=2.help$=|
00004eb0  22 62 72 75 73 68 22 3a  f2 68 65 6c 70 0d 22 ce  |"brush":.help.".|
00004ec0  3b e7 58 3e 31 33 33 80  20 58 3c 32 31 36 80 20  |;.X>133. X<216. |
00004ed0  59 3e 38 32 30 80 20 59  3c 39 30 30 80 20 5a 3d  |Y>820. Y<900. Z=|
00004ee0  34 8c f2 72 65 64 72 61  77 3a 47 47 3d a6 28 32  |4..redraw:GG=.(2|
00004ef0  30 29 3a f2 64 61 73 68  0d 22 d8 37 e7 58 3e 31  |0):.dash.".7.X>1|
00004f00  33 33 80 20 58 3c 32 31  36 80 20 59 3e 38 32 30  |33. X<216. Y>820|
00004f10  80 20 59 3c 39 30 30 80  20 5a 3d 32 8c 68 65 6c  |. Y<900. Z=2.hel|
00004f20  70 24 3d 22 64 61 73 68  22 3a f2 68 65 6c 70 0d  |p$="dash":.help.|
00004f30  22 e2 30 e7 58 3e 35 30  80 20 58 3c 31 33 33 80  |".0.X>50. X<133.|
00004f40  20 59 3e 39 30 30 80 20  59 3c 39 38 35 80 20 5a  | Y>900. Y<985. Z|
00004f50  3d 34 8c f2 72 65 64 72  61 77 3a f2 70 65 6e 0d  |=4..redraw:.pen.|
00004f60  22 ec 38 e7 58 3e 35 30  80 20 58 3c 31 33 33 80  |".8.X>50. X<133.|
00004f70  20 59 3e 39 30 30 80 20  59 3c 39 38 35 80 20 5a  | Y>900. Y<985. Z|
00004f80  3d 32 8c 68 65 6c 70 24  3d 22 70 65 6e 63 69 6c  |=2.help$="pencil|
00004f90  22 3a f2 68 65 6c 70 0d  22 f6 3a e7 58 3e 35 30  |":.help.".:.X>50|
00004fa0  30 80 20 58 3c 37 30 30  80 20 59 3e 35 30 30 80  |0. X<700. Y>500.|
00004fb0  20 59 3c 37 30 30 80 20  5a 3d 34 8c f5 3a c8 97  | Y<700. Z=4..:..|
00004fc0  58 2c 59 2c 5a 3a fd 5a  3d 30 3a f2 73 69 7a 65  |X,Y,Z:.Z=0:.size|
00004fd0  73 0d 23 00 35 e7 58 3e  37 30 30 80 20 58 3c 39  |s.#.5.X>700. X<9|
00004fe0  30 30 80 20 59 3e 35 30  30 80 20 59 3c 37 30 30  |00. Y>500. Y<700|
00004ff0  80 20 5a 3d 34 8c eb 31  35 3a f2 63 68 65 63 6b  |. Z=4..15:.check|
00005000  5f 63 6c 65 61 72 0d 23  0a 3a e7 58 3e 33 30 30  |_clear.#.:.X>300|
00005010  80 20 58 3c 35 30 30 80  20 59 3e 35 30 30 80 20  |. X<500. Y>500. |
00005020  59 3c 37 30 30 80 20 5a  3d 34 8c f5 3a c8 97 58  |Y<700. Z=4..:..X|
00005030  2c 59 2c 5a 3a fd 5a 3d  30 3a f2 66 69 6c 65 73  |,Y,Z:.Z=0:.files|
00005040  0d 23 14 39 e7 58 3e 33  30 30 80 20 58 3c 35 30  |.#.9.X>300. X<50|
00005050  30 80 20 59 3e 35 30 30  80 20 59 3c 37 30 30 80  |0. Y>500. Y<700.|
00005060  20 5a 3d 32 20 8c 68 65  6c 70 24 3d 22 66 69 6c  | Z=2 .help$="fil|
00005070  65 73 22 3a f2 68 65 6c  70 0d 23 1e 2b e7 58 3e  |es":.help.#.+.X>|
00005080  31 30 30 80 20 58 3c 33  30 30 80 20 59 3e 35 30  |100. X<300. Y>50|
00005090  30 80 20 59 3c 37 30 30  80 20 5a 3d 34 8c f2 66  |0. Y<700. Z=4..f|
000050a0  6f 6e 74 73 0d 23 28 2b  e7 58 3e 39 30 30 80 20  |onts.#(+.X>900. |
000050b0  58 3c 31 31 30 30 80 20  59 3e 35 30 30 80 20 59  |X<1100. Y>500. Y|
000050c0  3c 37 30 30 80 20 5a 3d  34 8c f2 65 78 69 74 0d  |<700. Z=4..exit.|
000050d0  23 32 3d e7 58 3e 33 30  30 80 20 58 3c 33 38 33  |#2=.X>300. X<383|
000050e0  80 20 59 3e 38 32 30 80  20 59 3c 39 30 30 80 20  |. Y>820. Y<900. |
000050f0  5a 3d 34 8c f2 72 65 64  72 61 77 3a 47 47 3d a6  |Z=4..redraw:GG=.|
00005100  28 32 30 29 3a f2 63 61  6d 65 72 61 0d 23 3c 39  |(20):.camera.#<9|
00005110  e7 58 3e 33 30 30 80 20  58 3c 33 38 33 80 20 59  |.X>300. X<383. Y|
00005120  3e 38 32 30 80 20 59 3c  39 30 30 80 20 5a 3d 32  |>820. Y<900. Z=2|
00005130  8c 68 65 6c 70 24 3d 22  63 61 6d 65 72 61 22 3a  |.help$="camera":|
00005140  f2 68 65 6c 70 0d 23 46  3b e7 58 3e 34 36 36 80  |.help.#F;.X>466.|
00005150  20 58 3c 35 34 39 80 20  59 3e 38 32 30 80 20 59  | X<549. Y>820. Y|
00005160  3c 39 30 30 80 20 5a 3d  34 8c f2 72 65 64 72 61  |<900. Z=4..redra|
00005170  77 3a 47 47 3d a6 28 32  30 29 3a f2 74 69 6c 65  |w:GG=.(20):.tile|
00005180  0d 23 50 37 e7 58 3e 34  36 36 80 20 58 3c 35 34  |.#P7.X>466. X<54|
00005190  39 80 20 59 3e 38 32 30  80 20 59 3c 39 30 30 80  |9. Y>820. Y<900.|
000051a0  20 5a 3d 32 8c 68 65 6c  70 24 3d 22 74 69 6c 65  | Z=2.help$="tile|
000051b0  22 3a f2 68 65 6c 70 0d  23 5a 3b e7 58 3e 36 33  |":.help.#Z;.X>63|
000051c0  30 80 20 58 3c 37 31 33  80 20 59 3e 39 30 30 80  |0. X<713. Y>900.|
000051d0  20 59 3c 39 38 35 80 20  5a 3d 34 8c f2 72 65 64  | Y<985. Z=4..red|
000051e0  72 61 77 3a 47 47 3d a6  28 32 30 29 3a f2 63 69  |raw:GG=.(20):.ci|
000051f0  72 32 0d 23 64 3e e7 58  3e 33 38 33 80 20 58 3c  |r2.#d>.X>383. X<|
00005200  34 36 36 80 20 59 3e 38  32 30 80 20 59 3c 39 30  |466. Y>820. Y<90|
00005210  30 80 20 5a 3d 34 8c f2  72 65 64 72 61 77 3a 47  |0. Z=4..redraw:G|
00005220  47 3d a6 28 32 30 29 3a  f2 73 63 69 73 73 6f 72  |G=.(20):.scissor|
00005230  0d 23 6e 3a e7 58 3e 33  38 33 80 20 58 3c 34 36  |.#n:.X>383. X<46|
00005240  36 80 20 59 3e 38 32 30  80 20 59 3c 39 30 30 80  |6. Y>820. Y<900.|
00005250  20 5a 3d 32 8c 68 65 6c  70 24 3d 22 73 63 69 73  | Z=2.help$="scis|
00005260  73 6f 72 22 3a f2 68 65  6c 70 0d 23 73 2e e7 58  |sor":.help.#s..X|
00005270  3e 32 31 36 80 20 58 3c  32 39 39 80 20 59 3e 38  |>216. X<299. Y>8|
00005280  32 30 80 20 59 3c 39 30  30 80 20 5a 3d 34 20 8c  |20. Y<900. Z=4 .|
00005290  20 2a 46 58 32 31 2c 30  0d 23 78 b4 e7 58 3e 32  | *FX21,0.#x..X>2|
000052a0  31 36 80 20 58 3c 32 39  39 80 20 59 3e 38 32 30  |16. X<299. Y>820|
000052b0  80 20 59 3c 39 30 30 80  20 5a 3d 34 8c 47 47 3d  |. Y<900. Z=4.GG=|
000052c0  a6 28 32 30 29 3a e6 30  c8 9c 30 3a c8 93 c8 90  |.(20):.0..0:....|
000052d0  30 2c 35 30 30 2c 31 32  38 30 2c 33 31 30 3a e6  |0,500,1280,310:.|
000052e0  31 32 3a c8 93 2d 31 30  2c 35 30 35 2c 31 32 39  |12:..-10,505,129|
000052f0  30 2c 31 32 30 3a fb 35  33 3a f1 8a 31 35 2c 31  |0,120:.53:..15,1|
00005300  33 29 3b 22 50 4c 45 41  53 45 20 54 59 50 45 20  |3);"PLEASE TYPE |
00005310  49 4e 20 59 4f 55 52 20  54 45 58 54 20 48 45 52  |IN YOUR TEXT HER|
00005320  45 20 41 4e 44 20 50 52  45 53 53 20 52 45 54 55  |E AND PRESS RETU|
00005330  52 4e 3a 22 3a e8 8a 35  29 3b 22 54 45 58 54 3a  |RN:":..5);"TEXT:|
00005340  22 54 45 58 54 24 3a f2  74 65 78 74 0d 23 82 37  |"TEXT$:.text.#.7|
00005350  e7 58 3e 32 31 36 80 20  58 3c 32 39 39 80 20 59  |.X>216. X<299. Y|
00005360  3e 38 32 30 80 20 59 3c  39 30 30 80 20 5a 3d 32  |>820. Y<900. Z=2|
00005370  8c 68 65 6c 70 24 3d 22  74 65 78 74 22 3a f2 68  |.help$="text":.h|
00005380  65 6c 70 0d 23 8c 3e e7  58 3e 36 33 32 80 20 58  |elp.#.>.X>632. X|
00005390  3c 37 31 33 80 20 59 3e  38 32 30 80 20 59 3c 39  |<713. Y>820. Y<9|
000053a0  30 30 80 20 5a 3d 34 8c  f2 72 65 64 72 61 77 3a  |00. Z=4..redraw:|
000053b0  47 47 3d a6 28 31 30 29  3a f2 73 65 6c 65 63 74  |GG=.(10):.select|
000053c0  32 0d 23 96 39 e7 58 3e  36 33 32 80 20 58 3c 37  |2.#.9.X>632. X<7|
000053d0  31 33 80 20 59 3e 38 32  30 80 20 59 3c 39 30 30  |13. Y>820. Y<900|
000053e0  80 20 5a 3d 32 8c 68 65  6c 70 24 3d 22 73 65 6c  |. Z=2.help$="sel|
000053f0  65 63 74 22 3a f2 68 65  6c 70 0d 23 a0 45 e7 58  |ect":.help.#.E.X|
00005400  3e 37 39 38 80 20 58 3c  38 38 31 80 20 59 3e 38  |>798. X<881. Y>8|
00005410  32 30 80 20 59 3c 39 30  30 80 20 5a 3d 34 8c f2  |20. Y<900. Z=4..|
00005420  72 65 64 72 61 77 3a f5  3a c8 97 51 2c 57 2c 45  |redraw:.:..Q,W,E|
00005430  3a fd 45 3d 30 3a f2 70  72 6f 70 65 6c 6f 72 0d  |:.E=0:.propelor.|
00005440  23 aa 3c e7 58 3e 37 39  38 80 20 58 3c 38 38 31  |#.<.X>798. X<881|
00005450  80 20 59 3e 38 32 30 80  20 59 3c 39 30 30 80 20  |. Y>820. Y<900. |
00005460  5a 3d 32 8c 68 65 6c 70  24 3d 22 70 72 6f 70 65  |Z=2.help$="prope|
00005470  6c 6c 6f 72 22 3a f2 68  65 6c 70 0d 23 b4 35 e7  |llor":.help.#.5.|
00005480  58 3e 38 38 31 80 20 58  3c 38 38 31 2b 38 33 80  |X>881. X<881+83.|
00005490  20 59 3e 38 32 30 80 20  59 3c 39 30 30 80 20 5a  | Y>820. Y<900. Z|
000054a0  3d 34 8c f2 72 65 70 6c  61 63 65 73 65 74 75 70  |=4..replacesetup|
000054b0  0d 23 be 3d e7 58 3e 38  38 31 80 20 58 3c 38 38  |.#.=.X>881. X<88|
000054c0  31 2b 38 33 80 20 59 3e  38 32 30 80 20 59 3c 39  |1+83. Y>820. Y<9|
000054d0  30 30 80 20 5a 3d 32 8c  68 65 6c 70 24 3d 22 72  |00. Z=2.help$="r|
000054e0  65 70 6c 61 63 65 22 3a  f2 68 65 6c 70 0d 23 c8  |eplace":.help.#.|
000054f0  43 e7 58 3e 39 36 34 80  20 58 3c 31 30 34 37 80  |C.X>964. X<1047.|
00005500  20 59 3e 38 32 30 80 20  59 3c 39 30 30 80 20 5a  | Y>820. Y<900. Z|
00005510  3d 34 8c f2 72 65 64 72  61 77 3a f5 3a c8 97 51  |=4..redraw:.:..Q|
00005520  2c 57 2c 45 3a fd 45 3d  30 3a f2 73 70 72 61 79  |,W,E:.E=0:.spray|
00005530  0d 23 d2 39 e7 58 3e 39  36 34 80 20 58 3c 31 30  |.#.9.X>964. X<10|
00005540  34 37 80 20 59 3e 38 32  30 80 20 59 3c 39 30 30  |47. Y>820. Y<900|
00005550  80 20 5a 3d 32 8c 68 65  6c 70 24 3d 22 73 70 72  |. Z=2.help$="spr|
00005560  61 79 22 3a f2 68 65 6c  70 0d 23 dc 45 e7 58 3e  |ay":.help.#.E.X>|
00005570  37 31 34 80 20 58 3c 37  39 37 80 20 59 3e 38 32  |714. X<797. Y>82|
00005580  30 80 20 59 3c 39 30 30  80 20 5a 3d 34 8c f2 72  |0. Y<900. Z=4..r|
00005590  65 64 72 61 77 3a f5 3a  c8 97 51 2c 57 2c 45 3a  |edraw:.:..Q,W,E:|
000055a0  fd 45 3d 30 3a f2 70 61  72 61 6c 6c 65 6c 0d 23  |.E=0:.parallel.#|
000055b0  e6 3b e7 58 3e 37 31 34  80 20 58 3c 37 39 37 80  |.;.X>714. X<797.|
000055c0  20 59 3e 38 32 30 80 20  59 3c 39 30 30 80 20 5a  | Y>820. Y<900. Z|
000055d0  3d 32 8c 68 65 6c 70 24  3d 22 50 41 52 41 4c 4c  |=2.help$="PARALL|
000055e0  45 4c 22 3a f2 68 65 6c  70 0d 23 f0 2e e7 59 3e  |EL":.help.#...Y>|
000055f0  30 80 20 59 3c 32 35 35  80 20 5a 3d 31 8c f5 3a  |0. Y<255. Z=1..:|
00005600  c8 97 51 2c 57 2c 45 3a  fd 45 3d 30 3a c8 97 b8  |..Q,W,E:.E=0:...|
00005610  36 34 30 2c 39 30 30 0d  23 fa 31 e7 59 3e 38 32  |640,900.#.1.Y>82|
00005620  30 80 20 59 3c 31 30 32  33 80 20 5a 3d 31 8c f5  |0. Y<1023. Z=1..|
00005630  3a c8 97 51 2c 57 2c 45  3a fd 45 3d 30 3a c8 97  |:..Q,W,E:.E=0:..|
00005640  b8 36 34 30 2c 31 32 35  0d 24 04 44 e7 58 3e 31  |.640,125.$.D.X>1|
00005650  31 32 36 80 20 58 3c 31  32 30 39 80 20 59 3e 39  |126. X<1209. Y>9|
00005660  30 30 80 20 59 3c 39 38  33 80 20 5a 3d 34 8c f5  |00. Y<983. Z=4..|
00005670  3a c8 97 51 2c 57 2c 45  3a fd 45 3d 30 3a f2 72  |:..Q,W,E:.E=0:.r|
00005680  65 64 72 61 77 3a f2 6d  75 6c 74 69 0d 24 0e 3a  |edraw:.multi.$.:|
00005690  e7 58 3e 31 31 32 36 80  20 58 3c 31 32 30 39 80  |.X>1126. X<1209.|
000056a0  20 59 3e 39 30 30 80 20  59 3c 39 38 33 80 20 5a  | Y>900. Y<983. Z|
000056b0  3d 32 8c 68 65 6c 70 24  3d 22 6d 75 6c 74 69 22  |=2.help$="multi"|
000056c0  3a f2 68 65 6c 70 0d 24  18 45 e7 58 3e 31 31 32  |:.help.$.E.X>112|
000056d0  36 80 20 58 3c 31 32 30  39 80 20 59 3e 38 32 30  |6. X<1209. Y>820|
000056e0  80 20 59 3c 39 30 30 80  20 5a 3d 34 8c f5 3a c8  |. Y<900. Z=4..:.|
000056f0  97 51 2c 57 2c 45 3a fd  45 3d 30 3a f2 72 65 64  |.Q,W,E:.E=0:.red|
00005700  72 61 77 3a f2 73 6d 75  64 67 65 0d 24 22 3b e7  |raw:.smudge.$";.|
00005710  58 3e 31 31 32 36 80 20  58 3c 31 32 30 39 80 20  |X>1126. X<1209. |
00005720  59 3e 38 32 30 80 20 59  3c 39 30 30 80 20 5a 3d  |Y>820. Y<900. Z=|
00005730  32 8c 68 65 6c 70 24 3d  22 73 6d 75 64 67 65 22  |2.help$="smudge"|
00005740  3a f2 68 65 6c 70 0d 24  2c 41 e7 58 3e 35 30 80  |:.help.$,A.X>50.|
00005750  20 58 3c 31 33 33 80 20  59 3e 38 32 30 80 20 59  | X<133. Y>820. Y|
00005760  3c 39 30 30 80 20 5a 3d  34 8c f5 3a c8 97 51 2c  |<900. Z=4..:..Q,|
00005770  57 2c 45 3a fd 45 3d 30  3a f2 72 65 64 72 61 77  |W,E:.E=0:.redraw|
00005780  3a f2 6d 69 78 65 72 0d  24 36 38 e7 58 3e 35 30  |:.mixer.$68.X>50|
00005790  80 20 58 3c 31 33 33 80  20 59 3e 38 32 30 80 20  |. X<133. Y>820. |
000057a0  59 3c 39 30 30 80 20 5a  3d 32 8c 68 65 6c 70 24  |Y<900. Z=2.help$|
000057b0  3d 22 64 69 74 68 65 72  22 3a f2 68 65 6c 70 0d  |="dither":.help.|
000057c0  24 40 21 e7 5a 3d 31 8c  f2 72 65 64 72 61 77 3a  |$@!.Z=1..redraw:|
000057d0  ef 35 3a e6 34 2c 30 3a  e5 72 65 6d 61 6b 65 25  |.5:.4,0:.remake%|
000057e0  0d 24 4a 09 e5 8d 74 76  61 0d 24 54 05 e1 0d 24  |.$J...tva.$T...$|
000057f0  5e 1e dd f2 70 65 6e 3a  f2 72 65 6d 61 6b 65 28  |^...pen:.remake(|
00005800  39 33 31 30 2c 35 30 2c  39 30 30 29 0d 24 68 10  |9310,50,900).$h.|
00005810  ff 22 50 4f 49 4e 54 45  52 20 30 22 0d 24 72 08  |."POINTER 0".$r.|
00005820  e6 34 2c 30 0d 24 7c 0f  41 3d 36 34 30 3a 42 3d  |.4,0.$|.A=640:B=|
00005830  35 31 32 0d 24 86 0f 58  3d 36 34 30 3a 59 3d 35  |512.$..X=640:Y=5|
00005840  31 32 0d 24 90 0b c8 97  58 2c 59 2c 5a 0d 24 9a  |12.$....X,Y,Z.$.|
00005850  24 e7 5a 3d 34 8c e6 28  43 4f 4c 29 c8 9c 28 54  |$.Z=4..(COL)..(T|
00005860  49 4e 29 3a 86 58 2c 59  2c 41 2c 42 3a e6 34 2c  |IN):.X,Y,A,B:.4,|
00005870  30 0d 24 a4 0b c8 97 41  2c 42 2c 43 0d 24 ae 21  |0.$....A,B,C.$.!|
00005880  86 58 2d 32 30 2c 59 2c  58 2b 32 30 2c 59 3a 86  |.X-20,Y,X+20,Y:.|
00005890  58 2c 59 2d 32 30 2c 58  2c 59 2b 32 30 0d 24 b8  |X,Y-20,X,Y+20.$.|
000058a0  06 c8 96 0d 24 c2 21 86  58 2d 32 30 2c 59 2c 58  |....$.!.X-20,Y,X|
000058b0  2b 32 30 2c 59 3a 86 58  2c 59 2d 32 30 2c 58 2c  |+20,Y:.X,Y-20,X,|
000058c0  59 2b 32 30 0d 24 cc 24  e7 5a 3d 34 8c e6 28 43  |Y+20.$.$.Z=4..(C|
000058d0  4f 4c 29 c8 9c 28 54 49  4e 29 3a 86 58 2c 59 2c  |OL)..(TIN):.X,Y,|
000058e0  41 2c 42 3a e6 34 2c 30  0d 24 d6 10 e7 5a 3d 32  |A,B:.4,0.$...Z=2|
000058f0  8c f2 73 65 6c 65 63 74  0d 24 e0 18 e7 a6 2d 39  |..select.$....-9|
00005900  30 e6 30 2c 30 3a f2 75  6e 64 6f 3a e6 34 2c 30  |0.0,0:.undo:.4,0|
00005910  0d 24 ea 09 e5 8d 74 50  64 0d 24 f4 05 e1 0d 24  |.$....tPd.$....$|
00005920  fe 0c dd f2 72 65 64 72  61 77 0d 25 08 07 eb 31  |....redraw.%...1|
00005930  35 0d 25 12 05 87 0d 25  1c 10 ff 22 50 4f 49 4e  |5.%....%..."POIN|
00005940  54 45 52 20 31 22 0d 25  26 32 c8 99 22 57 69 6d  |TER 1".%&2.."Wim|
00005950  70 5f 53 70 72 69 74 65  4f 70 22 2c 33 36 2c 2c  |p_SpriteOp",36,,|
00005960  22 70 74 72 5f 63 72 6f  73 73 22 2c 25 31 30 30  |"ptr_cross",%100|
00005970  30 30 31 2c 31 32 2c 35  0d 25 30 17 2a 53 43 48  |001,12,5.%0.*SCH|
00005980  4f 4f 53 45 20 53 43 52  45 45 4e 44 55 4d 50 0d  |OOSE SCREENDUMP.|
00005990  25 3a 0c f0 26 45 44 2c  30 2c 30 0d 25 44 2d e7  |%:..&ED,0,0.%D-.|
000059a0  47 52 49 44 3d 31 8c e6  34 2c 30 3a f2 64 72 61  |GRID=1..4,0:.dra|
000059b0  77 67 72 69 64 3a 47 47  3d a6 28 33 30 29 3a f2  |wgrid:GG=.(30):.|
000059c0  64 72 61 77 67 72 69 64  0d 25 4e 05 e1 0d 25 58  |drawgrid.%N...%X|
000059d0  1f dd f2 72 65 63 3a f2  72 65 6d 61 6b 65 28 39  |...rec:.remake(9|
000059e0  35 36 30 2c 35 34 39 2c  39 30 30 29 0d 25 62 05  |560,549,900).%b.|
000059f0  f5 0d 25 6c 0b c8 97 41  2c 42 2c 43 0d 25 76 16  |..%l...A,B,C.%v.|
00005a00  e7 47 52 49 44 3d 31 f2  69 6e 69 74 67 72 69 64  |.GRID=1.initgrid|
00005a10  41 42 0d 25 80 10 e7 43  3d 32 8c f2 73 65 6c 65  |AB.%...C=2..sele|
00005a20  63 74 0d 25 8a 19 e7 a6  2d 39 30 8c e6 30 2c 30  |ct.%....-90..0,0|
00005a30  3a f2 75 6e 64 6f 3a e6  34 2c 30 0d 25 94 08 fd  |:.undo:.4,0.%...|
00005a40  43 3d 34 0d 25 9e 12 f5  3a c8 97 51 2c 57 2c 45  |C=4.%...:..Q,W,E|
00005a50  3a fd 45 3d 30 0d 25 a8  0c 47 47 3d a6 28 32 30  |:.E=0.%..GG=.(20|
00005a60  29 0d 25 b2 0b c8 97 58  2c 59 2c 5a 0d 25 bc 16  |).%....X,Y,Z.%..|
00005a70  e7 47 52 49 44 3d 31 f2  69 6e 69 74 67 72 69 64  |.GRID=1.initgrid|
00005a80  58 59 0d 25 c6 10 e7 5a  3d 32 8c f2 73 65 6c 65  |XY.%...Z=2..sele|
00005a90  63 74 0d 25 d0 0e e6 34  2c 39 35 c8 9c 31 39 32  |ct.%...4,95..192|
00005aa0  0d 25 da 11 c8 93 41 2c  42 2c 58 2d 41 2c 59 2d  |.%....A,B,X-A,Y-|
00005ab0  42 0d 25 e4 06 c8 96 0d  25 ee 06 c8 96 0d 25 f8  |B.%.....%.....%.|
00005ac0  0b e6 34 2c 30 c8 9c 30  0d 26 02 11 c8 93 41 2c  |..4,0..0.&....A,|
00005ad0  42 2c 58 2d 41 2c 59 2d  42 0d 26 0c 35 e7 5a 3d  |B,X-A,Y-B.&.5.Z=|
00005ae0  34 8c e6 28 43 4f 4c 29  c8 9c 28 54 49 4e 29 3a  |4..(COL)..(TIN):|
00005af0  c8 93 c8 90 41 2c 42 2c  58 2d 41 2c 59 2d 42 3a  |....A,B,X-A,Y-B:|
00005b00  47 47 3d a6 28 31 30 30  29 3a f2 72 65 63 0d 26  |GG=.(100):.rec.&|
00005b10  16 0e e7 5a 3d 31 8c e5  8d 44 62 65 0d 26 20 18  |...Z=1...Dbe.& .|
00005b20  e7 a6 2d 39 30 e6 30 2c  30 3a f2 75 6e 64 6f 3a  |..-90.0,0:.undo:|
00005b30  e6 34 2c 30 0d 26 2a 09  e5 8d 74 72 65 0d 26 34  |.4,0.&*...tre.&4|
00005b40  05 e1 0d 26 3e 20 dd f2  64 61 73 68 3a f2 72 65  |...&> ..dash:.re|
00005b50  6d 61 6b 65 28 39 37 39  30 2c 31 33 33 2c 38 32  |make(9790,133,82|
00005b60  30 29 0d 26 48 1f c8 97  c8 93 30 2c 30 2c 31 32  |0).&H.....0,0,12|
00005b70  37 39 2d 53 49 5a 45 2c  31 30 32 33 2d 53 49 5a  |79-SIZE,1023-SIZ|
00005b80  45 0d 26 52 08 e6 34 2c  30 0d 26 5c 10 ff 22 50  |E.&R..4,0.&\.."P|
00005b90  4f 49 4e 54 45 52 20 30  22 0d 26 66 0b c8 97 58  |OINTER 0".&f...X|
00005ba0  2c 59 2c 5a 0d 26 70 16  e7 47 52 49 44 3d 31 f2  |,Y,Z.&p..GRID=1.|
00005bb0  69 6e 69 74 67 72 69 64  58 59 0d 26 7a 16 86 58  |initgridXY.&z..X|
00005bc0  2c 59 2c 58 2b 53 49 5a  45 2c 59 2b 53 49 5a 45  |,Y,X+SIZE,Y+SIZE|
00005bd0  0d 26 84 06 c8 96 0d 26  8e 06 c8 96 0d 26 98 16  |.&.....&.....&..|
00005be0  86 58 2c 59 2c 58 2b 53  49 5a 45 2c 59 2b 53 49  |.X,Y,X+SIZE,Y+SI|
00005bf0  5a 45 0d 26 a2 2e e7 5a  3d 34 8c e6 28 43 4f 4c  |ZE.&...Z=4..(COL|
00005c00  29 c8 9c 28 54 49 4e 29  3a 86 58 2c 59 2c 58 2b  |)..(TIN):.X,Y,X+|
00005c10  53 49 5a 45 2c 59 2b 53  49 5a 45 3a e6 34 2c 30  |SIZE,Y+SIZE:.4,0|
00005c20  0d 26 ac 10 e7 5a 3d 32  8c f2 73 65 6c 65 63 74  |.&...Z=2..select|
00005c30  0d 26 b6 18 e7 a6 2d 39  30 e6 30 2c 30 3a f2 75  |.&....-90.0,0:.u|
00005c40  6e 64 6f 3a e6 34 2c 30  0d 26 c0 31 e7 a6 2d 35  |ndo:.4,0.&.1..-5|
00005c50  38 20 53 49 5a 45 3d 53  49 5a 45 2b 35 3a c8 97  |8 SIZE=SIZE+5:..|
00005c60  c8 93 30 2c 30 2c 31 32  37 39 2d 53 49 5a 45 2c  |..0,0,1279-SIZE,|
00005c70  31 30 32 33 2d 53 49 5a  45 0d 26 ca 31 e7 a6 2d  |1023-SIZE.&.1..-|
00005c80  34 32 20 53 49 5a 45 3d  53 49 5a 45 2d 35 3a c8  |42 SIZE=SIZE-5:.|
00005c90  97 c8 93 30 2c 30 2c 31  32 37 39 2d 53 49 5a 45  |...0,0,1279-SIZE|
00005ca0  2c 31 30 32 33 2d 53 49  5a 45 0d 26 d4 12 e7 53  |,1023-SIZE.&...S|
00005cb0  49 5a 45 3c 36 8c 53 49  5a 45 3d 36 0d 26 de 09  |IZE<6.SIZE=6.&..|
00005cc0  e5 8d 44 66 66 0d 26 e8  05 e1 0d 26 f2 21 dd f2  |..Dff.&....&.!..|
00005cd0  73 70 72 61 79 3a f2 72  65 6d 61 6b 65 28 39 39  |spray:.remake(99|
00005ce0  37 30 2c 39 36 34 2c 38  32 30 29 0d 26 fc 10 ff  |70,964,820).&...|
00005cf0  22 50 4f 49 4e 54 45 52  20 30 22 0d 27 06 08 e6  |"POINTER 0".'...|
00005d00  34 2c 30 0d 27 10 1f c8  97 c8 93 30 2c 30 2c 31  |4,0.'......0,0,1|
00005d10  32 37 39 2d 53 49 5a 45  2c 31 30 32 33 2d 53 49  |279-SIZE,1023-SI|
00005d20  5a 45 0d 27 1a 0b c8 97  58 2c 59 2c 5a 0d 27 24  |ZE.'....X,Y,Z.'$|
00005d30  17 e7 47 52 49 44 3d 31  8c f2 69 6e 69 74 67 72  |..GRID=1..initgr|
00005d40  69 64 58 59 0d 27 2e 13  e7 5a 3d 30 8c c8 93 58  |idXY.'...Z=0...X|
00005d50  2c 59 2c 53 49 5a 45 0d  27 38 09 c8 96 3a c8 96  |,Y,SIZE.'8...:..|
00005d60  0d 27 42 13 e7 5a 3d 30  8c c8 93 58 2c 59 2c 53  |.'B..Z=0...X,Y,S|
00005d70  49 5a 45 0d 27 4c 3b e7  5a 3d 34 8c e6 28 43 4f  |IZE.'L;.Z=4..(CO|
00005d80  4c 29 c8 9c 28 54 49 4e  29 3a e3 45 3d 31 b8 31  |L)..(TIN):.E=1.1|
00005d90  30 3a c8 92 b3 28 53 49  5a 45 29 2b 58 2c b3 28  |0:...(SIZE)+X,.(|
00005da0  53 49 5a 45 29 2b 59 3a  ed 3a e6 34 2c 30 0d 27  |SIZE)+Y:.:.4,0.'|
00005db0  56 10 e7 5a 3d 32 8c f2  73 65 6c 65 63 74 0d 27  |V..Z=2..select.'|
00005dc0  60 31 e7 a6 2d 35 38 8c  53 49 5a 45 3d 53 49 5a  |`1..-58.SIZE=SIZ|
00005dd0  45 2b 35 3a c8 97 c8 93  30 2c 30 2c 31 32 37 39  |E+5:....0,0,1279|
00005de0  2d 53 49 5a 45 2c 31 30  32 33 2d 53 49 5a 45 0d  |-SIZE,1023-SIZE.|
00005df0  27 6a 31 e7 a6 2d 34 32  8c 53 49 5a 45 3d 53 49  |'j1..-42.SIZE=SI|
00005e00  5a 45 2d 35 3a c8 97 c8  93 30 2c 30 2c 31 32 37  |ZE-5:....0,0,127|
00005e10  39 2d 53 49 5a 45 2c 31  30 32 33 2d 53 49 5a 45  |9-SIZE,1023-SIZE|
00005e20  0d 27 74 18 e7 53 49 5a  45 3e 31 30 32 33 8c 53  |.'t..SIZE>1023.S|
00005e30  49 5a 45 3d 31 30 32 32  0d 27 7e 12 e7 53 49 5a  |IZE=1022.'~..SIZ|
00005e40  45 3c 36 8c 53 49 5a 45  3d 36 0d 27 88 18 e7 a6  |E<6.SIZE=6.'....|
00005e50  2d 39 30 e6 30 2c 30 3a  f2 75 6e 64 6f 3a e6 34  |-90.0,0:.undo:.4|
00005e60  2c 30 0d 27 92 09 e5 8d  54 5a 67 0d 27 9c 05 e1  |,0.'....TZg.'...|
00005e70  0d 27 a6 22 dd f2 66 69  6c 6c 3a f2 72 65 6d 61  |.'."..fill:.rema|
00005e80  6b 65 28 31 30 31 35 30  2c 31 30 34 37 2c 38 32  |ke(10150,1047,82|
00005e90  30 29 0d 27 b0 1a 47 47  3d a6 28 32 30 29 3a e6  |0).'..GG=.(20):.|
00005ea0  28 43 4f 4c 29 c8 9c 28  54 49 4e 29 0d 27 c4 0b  |(COL)..(TIN).'..|
00005eb0  c8 97 58 2c 59 2c 5a 0d  27 ce 14 e7 5a 3d 34 8c  |..X,Y,Z.'...Z=4.|
00005ec0  20 f2 64 6f 5f 61 5f 66  69 6c 6c 0d 27 d8 10 e7  | .do_a_fill.'...|
00005ed0  5a 3d 32 8c f2 73 65 6c  65 63 74 0d 27 e2 0f e7  |Z=2..select.'...|
00005ee0  a6 2d 39 30 20 f2 75 6e  64 6f 0d 27 ec 09 e5 8d  |.-90 .undo.'....|
00005ef0  64 44 67 0d 27 f6 05 e1  0d 28 00 20 dd f2 63 69  |dDg.'....(. ..ci|
00005f00  72 3a f2 72 65 6d 61 6b  65 28 31 30 32 34 30 2c  |r:.remake(10240,|
00005f10  37 31 33 2c 39 30 30 29  0d 28 0a 05 f5 0d 28 14  |713,900).(....(.|
00005f20  0b c8 97 41 2c 42 2c 43  0d 28 1e 16 e7 47 52 49  |...A,B,C.(...GRI|
00005f30  44 3d 31 f2 69 6e 69 74  67 72 69 64 41 42 0d 28  |D=1.initgridAB.(|
00005f40  28 10 e7 43 3d 32 8c f2  73 65 6c 65 63 74 0d 28  |(..C=2..select.(|
00005f50  32 18 e7 a6 2d 39 30 e6  30 2c 30 3a f2 75 6e 64  |2...-90.0,0:.und|
00005f60  6f 3a e6 34 2c 30 0d 28  3c 08 fd 43 3d 34 0d 28  |o:.4,0.(<..C=4.(|
00005f70  46 12 f5 3a c8 97 51 2c  57 2c 45 3a fd 45 3d 30  |F..:..Q,W,E:.E=0|
00005f80  0d 28 50 0b c8 97 58 2c  59 2c 5a 0d 28 5a 16 e7  |.(P...X,Y,Z.(Z..|
00005f90  47 52 49 44 3d 31 f2 69  6e 69 74 67 72 69 64 58  |GRID=1.initgridX|
00005fa0  59 0d 28 64 0e e6 34 2c  36 33 c8 9c 31 39 32 0d  |Y.(d..4,63..192.|
00005fb0  28 6e 0d c8 8f 41 2c 42  2c 58 2f 32 0d 28 78 0b  |(n...A,B,X/2.(x.|
00005fc0  e6 34 2c 30 c8 9c 30 0d  28 82 06 c8 96 0d 28 8c  |.4,0..0.(.....(.|
00005fd0  06 c8 96 0d 28 96 0d c8  8f 41 2c 42 2c 58 2f 32  |....(....A,B,X/2|
00005fe0  0d 28 a0 30 e7 5a 3d 34  8c e6 28 43 4f 4c 29 c8  |.(.0.Z=4..(COL).|
00005ff0  9c 28 54 49 4e 29 3a c8  8f c8 90 41 2c 42 2c 58  |.(TIN):....A,B,X|
00006000  2f 32 3a 47 47 3d a6 28  33 30 29 3a f2 63 69 72  |/2:GG=.(30):.cir|
00006010  0d 28 aa 10 e7 5a 3d 32  8c f2 73 65 6c 65 63 74  |.(...Z=2..select|
00006020  0d 28 b4 0d e7 5a 3d 31  8c f2 63 69 72 0d 28 be  |.(...Z=1..cir.(.|
00006030  18 e7 a6 2d 39 30 e6 30  2c 30 3a f2 75 6e 64 6f  |...-90.0,0:.undo|
00006040  3a e6 34 2c 30 0d 28 c8  11 e7 a6 2d 35 38 c8 97  |:.4,0.(....-58..|
00006050  b8 58 2b 35 2c 59 0d 28  d2 11 e7 a6 2d 34 32 c8  |.X+5,Y.(....-42.|
00006060  97 b8 58 2d 35 2c 59 0d  28 dc 09 e5 8d 44 50 68  |..X-5,Y.(....DPh|
00006070  0d 28 e6 05 e1 0d 28 f0  21 dd f2 6c 69 6e 65 3a  |.(....(.!..line:|
00006080  f2 72 65 6d 61 6b 65 28  31 30 34 38 30 2c 33 30  |.remake(10480,30|
00006090  30 2c 39 30 30 29 0d 28  fa 05 f5 0d 29 04 0b c8  |0,900).(....)...|
000060a0  97 41 2c 42 2c 43 0d 29  0e 16 e7 47 52 49 44 3d  |.A,B,C.)...GRID=|
000060b0  31 f2 69 6e 69 74 67 72  69 64 41 42 0d 29 18 10  |1.initgridAB.)..|
000060c0  e7 43 3d 32 8c f2 73 65  6c 65 63 74 0d 29 22 18  |.C=2..select.)".|
000060d0  e7 a6 2d 39 30 e6 30 2c  30 3a f2 75 6e 64 6f 3a  |..-90.0,0:.undo:|
000060e0  e6 34 2c 30 0d 29 2c 08  fd 43 3d 34 0d 29 36 12  |.4,0.),..C=4.)6.|
000060f0  f5 3a c8 97 51 2c 57 2c  45 3a fd 45 3d 30 0d 29  |.:..Q,W,E:.E=0.)|
00006100  40 0c 47 47 3d a6 28 32  30 29 0d 29 4a 0b c8 97  |@.GG=.(20).)J...|
00006110  58 2c 59 2c 5a 0d 29 54  16 e7 47 52 49 44 3d 31  |X,Y,Z.)T..GRID=1|
00006120  f2 69 6e 69 74 67 72 69  64 58 59 0d 29 5e 0e e6  |.initgridXY.)^..|
00006130  34 2c 36 33 c8 9c 31 39  32 0d 29 68 0c 86 41 2c  |4,63..192.)h..A,|
00006140  42 2c 58 2c 59 0d 29 72  0b e6 34 2c 30 c8 9c 30  |B,X,Y.)r..4,0..0|
00006150  0d 29 7c 06 c8 96 0d 29  86 06 c8 96 0d 29 90 0c  |.)|....).....)..|
00006160  86 41 2c 42 2c 58 2c 59  0d 29 9a 3c e7 5a 3d 34  |.A,B,X,Y.).<.Z=4|
00006170  8c e6 28 43 4f 4c 29 c8  9c 28 54 49 4e 29 3a 86  |..(COL)..(TIN):.|
00006180  41 2c 42 2c 58 2c 59 3a  41 3d 58 3a 42 3d 59 3a  |A,B,X,Y:A=X:B=Y:|
00006190  f5 3a c8 97 51 2c 57 2c  45 3a fd 45 3d 30 3a e5  |.:..Q,W,E:.E=0:.|
000061a0  8d 44 4a 69 0d 29 a4 10  e7 5a 3d 32 8c f2 73 65  |.DJi.)...Z=2..se|
000061b0  6c 65 63 74 0d 29 ae 17  e7 5a 3d 31 8c 47 47 3d  |lect.)...Z=1.GG=|
000061c0  a6 28 32 30 29 3a f2 6c  69 6e 65 0d 29 b8 18 e7  |.(20):.line.)...|
000061d0  a6 2d 39 30 e6 30 2c 30  3a f2 75 6e 64 6f 3a e6  |.-90.0,0:.undo:.|
000061e0  34 2c 30 0d 29 c2 09 e5  8d 44 4a 69 0d 29 cc 05  |4,0.)....DJi.)..|
000061f0  e1 0d 29 d6 23 dd f2 72  75 62 62 65 72 3a f2 72  |..).#..rubber:.r|
00006200  65 6d 61 6b 65 28 31 30  37 31 30 2c 32 31 36 2c  |emake(10710,216,|
00006210  39 30 30 29 0d 29 e0 0b  41 3d a6 28 32 30 29 0d  |900).)..A=.(20).|
00006220  29 ea 10 ff 22 50 4f 49  4e 54 45 52 20 30 22 0d  |)..."POINTER 0".|
00006230  29 f4 08 e6 34 2c 30 0d  29 fe 1f c8 97 c8 93 30  |)...4,0.)......0|
00006240  2c 30 2c 31 32 37 39 2d  53 49 5a 45 2c 31 30 32  |,0,1279-SIZE,102|
00006250  33 2d 53 49 5a 45 0d 2a  08 0b c8 97 58 2c 59 2c  |3-SIZE.*....X,Y,|
00006260  5a 0d 2a 12 16 e7 47 52  49 44 3d 31 f2 69 6e 69  |Z.*...GRID=1.ini|
00006270  74 67 72 69 64 58 59 0d  2a 1c 13 c8 93 58 2c 59  |tgridXY.*....X,Y|
00006280  2c 53 49 5a 45 2c 53 49  5a 45 0d 2a 26 09 c8 96  |,SIZE,SIZE.*&...|
00006290  3a c8 96 0d 2a 30 13 c8  93 58 2c 59 2c 53 49 5a  |:...*0...X,Y,SIZ|
000062a0  45 2c 53 49 5a 45 0d 2a  3a 1e e7 5a 3d 32 8c e6  |E,SIZE.*:..Z=2..|
000062b0  28 43 4f 4c 29 c8 9c 28  54 49 4e 29 3a f2 73 65  |(COL)..(TIN):.se|
000062c0  6c 65 63 74 0d 2a 44 20  e7 5a 3d 34 8c e6 30 c8  |lect.*D .Z=4..0.|
000062d0  9c 30 3a c8 93 c8 90 58  2c 59 2c 53 49 5a 45 3a  |.0:....X,Y,SIZE:|
000062e0  e6 34 2c 30 0d 2a 4e 18  e7 a6 2d 39 30 e6 30 2c  |.4,0.*N...-90.0,|
000062f0  30 3a f2 75 6e 64 6f 3a  e6 34 2c 30 0d 2a 58 31  |0:.undo:.4,0.*X1|
00006300  e7 a6 2d 35 38 20 53 49  5a 45 3d 53 49 5a 45 2b  |..-58 SIZE=SIZE+|
00006310  35 3a c8 97 c8 93 30 2c  30 2c 31 32 37 39 2d 53  |5:....0,0,1279-S|
00006320  49 5a 45 2c 31 30 32 33  2d 53 49 5a 45 0d 2a 62  |IZE,1023-SIZE.*b|
00006330  31 e7 a6 2d 34 32 20 53  49 5a 45 3d 53 49 5a 45  |1..-42 SIZE=SIZE|
00006340  2d 35 3a c8 97 c8 93 30  2c 30 2c 31 32 37 39 2d  |-5:....0,0,1279-|
00006350  53 49 5a 45 2c 31 30 32  33 2d 53 49 5a 45 0d 2a  |SIZE,1023-SIZE.*|
00006360  6c 09 e5 8d 54 48 6a 0d  2a 76 05 e1 0d 2a 80 21  |l...THj.*v...*.!|
00006370  dd f2 74 72 69 3a f2 72  65 6d 61 6b 65 28 31 30  |..tri:.remake(10|
00006380  38 38 30 2c 31 30 34 34  2c 39 30 30 29 0d 2a 8a  |880,1044,900).*.|
00006390  05 f5 0d 2a 94 0b c8 97  41 2c 42 2c 43 0d 2a 9e  |...*....A,B,C.*.|
000063a0  16 e7 47 52 49 44 3d 31  f2 69 6e 69 74 67 72 69  |..GRID=1.initgri|
000063b0  64 41 42 0d 2a a8 10 e7  43 3d 32 8c f2 73 65 6c  |dAB.*...C=2..sel|
000063c0  65 63 74 0d 2a b2 19 e7  a6 2d 39 30 20 e6 30 2c  |ect.*....-90 .0,|
000063d0  30 3a f2 75 6e 64 6f 3a  e6 34 2c 30 0d 2a bc 08  |0:.undo:.4,0.*..|
000063e0  fd 43 3d 34 0d 2a c6 12  f5 3a c8 97 51 2c 57 2c  |.C=4.*...:..Q,W,|
000063f0  45 3a fd 45 3d 30 0d 2a  d0 0c 47 47 3d a6 28 32  |E:.E=0.*..GG=.(2|
00006400  30 29 0d 2a da 0b c8 97  58 2c 59 2c 5a 0d 2a e4  |0).*....X,Y,Z.*.|
00006410  16 e7 47 52 49 44 3d 31  f2 69 6e 69 74 67 72 69  |..GRID=1.initgri|
00006420  64 58 59 0d 2a ee 0e e6  34 2c 36 33 c8 9c 31 39  |dXY.*...4,63..19|
00006430  32 0d 2a f8 0c 86 41 2c  42 2c 58 2c 59 0d 2b 02  |2.*...A,B,X,Y.+.|
00006440  09 c8 96 3a c8 96 0d 2b  0c 0b e6 34 2c 30 c8 9c  |...:...+...4,0..|
00006450  30 0d 2b 16 0c 86 41 2c  42 2c 58 2c 59 0d 2b 20  |0.+...A,B,X,Y.+ |
00006460  17 e7 5a 3d 34 8c 47 47  3d a6 28 32 30 29 3a e5  |..Z=4.GG=.(20):.|
00006470  8d 44 52 6b 0d 2b 2a 0d  e7 5a 3d 31 8c f2 74 72  |.DRk.+*..Z=1..tr|
00006480  69 0d 2b 34 10 e7 5a 3d  32 8c f2 73 65 6c 65 63  |i.+4..Z=2..selec|
00006490  74 0d 2b 3e 18 e7 a6 2d  39 30 e6 30 2c 30 3a f2  |t.+>...-90.0,0:.|
000064a0  75 6e 64 6f 3a e6 34 2c  30 0d 2b 48 09 e5 8d 64  |undo:.4,0.+H...d|
000064b0  5a 6a 0d 2b 52 12 f5 3a  c8 97 51 2c 57 2c 45 3a  |Zj.+R..:..Q,W,E:|
000064c0  fd 45 3d 30 0d 2b 5c 0c  86 41 2c 42 2c 58 2c 59  |.E=0.+\..A,B,X,Y|
000064d0  0d 2b 66 0e c8 97 41 41  2c 42 42 2c 43 43 0d 2b  |.+f...AA,BB,CC.+|
000064e0  70 18 e7 47 52 49 44 3d  31 f2 69 6e 69 74 67 72  |p..GRID=1.initgr|
000064f0  69 64 41 41 42 42 0d 2b  7a 18 e7 a6 2d 39 30 e6  |idAABB.+z...-90.|
00006500  30 2c 30 3a f2 75 6e 64  6f 3a e6 34 2c 30 0d 2b  |0,0:.undo:.4,0.+|
00006510  84 0e e6 34 2c 36 33 c8  9c 31 39 32 0d 2b 8e 0e  |...4,63..192.+..|
00006520  86 41 2c 42 2c 41 41 2c  42 42 0d 2b 98 0e 86 58  |.A,B,AA,BB.+...X|
00006530  2c 59 2c 41 41 2c 42 42  0d 2b a2 06 c8 96 0d 2b  |,Y,AA,BB.+.....+|
00006540  ac 06 c8 96 0d 2b b6 0b  e6 34 2c 30 c8 9c 30 0d  |.....+...4,0..0.|
00006550  2b c0 0e 86 58 2c 59 2c  41 41 2c 42 42 0d 2b ca  |+...X,Y,AA,BB.+.|
00006560  0e 86 41 2c 42 2c 41 41  2c 42 42 0d 2b d4 38 e7  |..A,B,AA,BB.+.8.|
00006570  43 43 3d 34 8c e6 28 43  4f 4c 29 c8 9c 28 54 49  |CC=4..(COL)..(TI|
00006580  4e 29 3a 86 41 2c 42 2c  58 2c 59 3a f0 38 35 2c  |N):.A,B,X,Y:.85,|
00006590  41 41 2c 42 42 3a 47 47  3d a6 28 32 30 29 3a f2  |AA,BB:GG=.(20):.|
000065a0  74 72 69 0d 2b de 27 e7  43 43 3d 31 8c e6 34 2c  |tri.+.'.CC=1..4,|
000065b0  30 3a 86 41 2c 42 2c 58  2c 59 3a 41 3d 41 41 3a  |0:.A,B,X,Y:A=AA:|
000065c0  42 3d 42 42 3a e5 8d 64  50 6a 0d 2b e8 11 e7 43  |B=BB:..dPj.+...C|
000065d0  43 3d 32 8c f2 73 65 6c  65 63 74 0d 2b f2 19 e7  |C=2..select.+...|
000065e0  a6 2d 39 30 20 e6 30 2c  30 3a f2 75 6e 64 6f 3a  |.-90 .0,0:.undo:|
000065f0  e6 34 2c 30 0d 2b fc 09  e5 8d 44 66 6b 0d 2c 06  |.4,0.+....Dfk.,.|
00006600  05 e1 0d 2c 10 0a dd f2  75 6e 64 6f 0d 2c 1a 17  |...,....undo.,..|
00006610  2a 53 43 48 4f 4f 53 45  20 53 43 52 45 45 4e 44  |*SCHOOSE SCREEND|
00006620  55 4d 50 0d 2c 24 0c f0  26 45 44 2c 30 2c 30 0d  |UMP.,$..&ED,0,0.|
00006630  2c 2e 05 e1 0d 2c 38 20  dd f2 61 72 63 3a f2 72  |,....,8 ..arc:.r|
00006640  65 6d 61 6b 65 28 31 31  33 32 30 2c 33 38 35 2c  |emake(11320,385,|
00006650  39 30 30 29 0d 2c 42 05  f5 0d 2c 4c 0b c8 97 41  |900).,B...,L...A|
00006660  2c 42 2c 43 0d 2c 56 16  e7 47 52 49 44 3d 31 f2  |,B,C.,V..GRID=1.|
00006670  69 6e 69 74 67 72 69 64  41 42 0d 2c 60 10 e7 43  |initgridAB.,`..C|
00006680  3d 32 8c f2 73 65 6c 65  63 74 0d 2c 6a 18 e7 a6  |=2..select.,j...|
00006690  2d 39 30 e6 30 2c 30 3a  f2 75 6e 64 6f 3a e6 34  |-90.0,0:.undo:.4|
000066a0  2c 30 0d 2c 74 08 fd 43  3d 34 0d 2c 7e 12 f5 3a  |,0.,t..C=4.,~..:|
000066b0  c8 97 51 2c 57 2c 45 3a  fd 45 3d 30 0d 2c 88 0b  |..Q,W,E:.E=0.,..|
000066c0  c8 97 58 2c 59 2c 5a 0d  2c 92 16 e7 47 52 49 44  |..X,Y,Z.,...GRID|
000066d0  3d 31 f2 69 6e 69 74 67  72 69 64 58 59 0d 2c 9c  |=1.initgridXY.,.|
000066e0  09 e6 34 2c 36 33 0d 2c  a6 0c 86 41 2c 42 2c 58  |..4,63.,...A,B,X|
000066f0  2c 59 0d 2c b0 06 c8 96  0d 2c ba 06 c8 96 0d 2c  |,Y.,.....,.....,|
00006700  c4 08 e6 34 2c 30 0d 2c  ce 0c 86 41 2c 42 2c 58  |...4,0.,...A,B,X|
00006710  2c 59 0d 2c d8 26 e7 5a  3d 34 8c 47 47 3d a6 28  |,Y.,.&.Z=4.GG=.(|
00006720  32 30 29 3a f5 3a c8 97  51 2c 57 2c 45 3a fd 45  |20):.:..Q,W,E:.E|
00006730  3d 30 3a e5 8d 54 4a 6d  0d 2c e2 10 e7 5a 3d 32  |=0:..TJm.,...Z=2|
00006740  8c f2 73 65 6c 65 63 74  0d 2c ec 17 e7 5a 3d 31  |..select.,...Z=1|
00006750  8c 47 47 3d a6 28 32 30  29 3a e5 8d 44 42 6c 0d  |.GG=.(20):..DBl.|
00006760  2c f6 18 e7 a6 2d 39 30  e6 30 2c 30 3a f2 75 6e  |,....-90.0,0:.un|
00006770  64 6f 3a e6 34 2c 30 0d  2d 00 09 e5 8d 74 48 6c  |do:.4,0.-....tHl|
00006780  0d 2d 0a 0e c8 97 41 41  2c 42 42 2c 43 43 0d 2d  |.-....AA,BB,CC.-|
00006790  14 18 e7 47 52 49 44 3d  31 f2 69 6e 69 74 67 72  |...GRID=1.initgr|
000067a0  69 64 41 41 42 42 0d 2d  1e 18 e7 a6 2d 39 30 e6  |idAABB.-....-90.|
000067b0  30 2c 30 3a f2 75 6e 64  6f 3a e6 34 2c 30 0d 2d  |0,0:.undo:.4,0.-|
000067c0  28 09 e6 34 2c 36 33 0d  2d 32 08 ec 41 2c 42 0d  |(..4,63.-2..A,B.|
000067d0  2d 3c 08 ec 58 2c 59 0d  2d 46 0e f0 26 41 35 2c  |-<..X,Y.-F..&A5,|
000067e0  41 41 2c 42 42 0d 2d 50  08 e6 34 2c 30 0d 2d 5a  |AA,BB.-P..4,0.-Z|
000067f0  06 c8 96 0d 2d 64 06 c8  96 0d 2d 6e 08 ec 41 2c  |....-d....-n..A,|
00006800  42 0d 2d 78 08 ec 58 2c  59 0d 2d 82 0e f0 26 41  |B.-x..X,Y.-...&A|
00006810  35 2c 41 41 2c 42 42 0d  2d 8c 3b e7 43 43 3d 34  |5,AA,BB.-.;.CC=4|
00006820  8c e6 28 43 4f 4c 29 c8  9c 28 54 49 4e 29 3a ec  |..(COL)..(TIN):.|
00006830  41 2c 42 3a ec 58 2c 59  3a f0 26 41 35 2c 41 41  |A,B:.X,Y:.&A5,AA|
00006840  2c 42 42 3a 47 47 3d a6  28 32 30 29 3a e5 8d 44  |,BB:GG=.(20):..D|
00006850  42 6c 0d 2d 96 11 e7 43  43 3d 32 8c f2 73 65 6c  |Bl.-...CC=2..sel|
00006860  65 63 74 0d 2d a0 18 e7  43 43 3d 31 8c 47 47 3d  |ect.-...CC=1.GG=|
00006870  a6 28 32 30 29 3a e5 8d  44 42 6c 0d 2d aa 09 e5  |.(20):..DBl.-...|
00006880  8d 54 4a 6d 0d 2d b4 05  e1 0d 2d be 0b dd f2 73  |.TJm.-....-....s|
00006890  61 76 65 72 0d 2d c8 18  ff 22 50 4f 49 4e 54 45  |aver.-..."POINTE|
000068a0  52 20 31 22 3a 2a 46 58  32 31 2c 30 0d 2d d2 05  |R 1":*FX21,0.-..|
000068b0  f5 0d 2d dc 0b c8 97 47  2c 48 2c 4a 0d 2d e6 0e  |..-....G,H,J.-..|
000068c0  e7 4a 3d 31 84 4a 3d 32  8c e1 0d 2d f0 08 fd 4a  |.J=1.J=2...-...J|
000068d0  3d 34 0d 2d fa 2e c8 97  fb 32 2c 35 30 2c 32 35  |=4.-.....2,50,25|
000068e0  35 2c 35 30 3a c8 97 fb  31 2c 30 2c 32 30 30 2c  |5,50:...1,0,200,|
000068f0  30 3a c8 97 fb 33 2c 31  35 30 2c 38 30 2c 31 30  |0:...3,150,80,10|
00006900  0d 2e 04 2d c8 99 22 57  69 6d 70 5f 53 70 72 69  |...-.."Wimp_Spri|
00006910  74 65 4f 70 22 2c 33 36  2c 2c 22 70 74 72 5f 77  |teOp",36,,"ptr_w|
00006920  72 69 74 65 22 2c 25 31  30 30 30 30 31 0d 2e 0e  |rite",%100001...|
00006930  0c e6 39 35 c8 9c 32 35  35 0d 2e 18 15 c8 93 32  |..95..255......2|
00006940  30 30 2c 33 35 30 2c 38  30 30 2c 31 30 30 0d 2e  |00,350,800,100..|
00006950  22 06 ef 35 0d 2e 2c 0c  ec 33 30 30 2c 34 33 30  |"..5..,..300,430|
00006960  0d 2e 36 32 f1 22 50 4c  45 41 53 45 20 54 59 50  |..62."PLEASE TYP|
00006970  45 20 41 20 46 49 4c 45  4e 41 4d 45 2e 20 54 59  |E A FILENAME. TY|
00006980  50 45 20 27 30 27 20 54  4f 20 41 42 41 4e 44 4f  |PE '0' TO ABANDO|
00006990  4e 22 0d 2e 40 0c ec 33  30 30 2c 33 39 30 0d 2e  |N"..@..300,390..|
000069a0  4a 0a e8 4e 41 4d 45 24  0d 2e 54 5b e7 4e 41 4d  |J..NAME$..T[.NAM|
000069b0  45 24 3d 22 30 22 8c c8  97 fb 31 2c 32 35 35 2c  |E$="0"....1,255,|
000069c0  32 35 35 2c 30 3a c8 97  fb 32 2c 30 2c 30 2c 32  |255,0:...2,0,0,2|
000069d0  35 35 3a c8 99 22 57 69  6d 70 5f 53 70 72 69 74  |55:.."Wimp_Sprit|
000069e0  65 4f 70 22 2c 33 36 2c  2c 22 70 74 72 5f 72 6f  |eOp",36,,"ptr_ro|
000069f0  63 6b 65 74 22 2c 25 31  30 30 30 30 31 3a e5 8d  |cket",%100001:..|
00006a00  54 50 5d 0d 2e 5e 32 ef  34 3a e7 20 4e 41 4d 45  |TP]..^2.4:. NAME|
00006a10  24 3d 22 22 20 8c 20 f6  24 3d 22 44 4f 4e 54 20  |$="" . .$="DONT |
00006a20  50 52 45 53 53 20 52 45  54 55 52 4e 21 22 3a f2  |PRESS RETURN!":.|
00006a30  65 72 72 6f 72 0d 2e 68  17 2a 53 43 48 4f 4f 53  |error..h.*SCHOOS|
00006a40  45 20 53 43 52 45 45 4e  44 55 4d 50 0d 2e 72 0b  |E SCREENDUMP..r.|
00006a50  f2 72 65 64 72 61 77 0d  2e 7c 1e 2a 44 49 52 20  |.redraw..|.*DIR |
00006a60  3c 53 50 41 43 45 24 44  49 52 3e 2e 53 50 41 43  |<SPACE$DIR>.SPAC|
00006a70  45 50 49 43 53 0d 2e 86  14 c8 99 22 48 6f 75 72  |EPICS......"Hour|
00006a80  67 6c 61 73 73 5f 4f 6e  22 0d 2e 90 52 e7 20 43  |glass_On"...R. C|
00006a90  4f 4d 50 3d 31 20 ff 22  50 49 43 53 41 56 45 20  |OMP=1 ."PICSAVE |
00006aa0  45 52 52 4f 52 22 20 8b  20 ff 22 44 49 52 20 3c  |ERROR" . ."DIR <|
00006ab0  53 50 41 43 45 24 44 49  52 3e 2e 53 50 52 49 54  |SPACE$DIR>.SPRIT|
00006ac0  45 50 49 43 53 22 3a ff  22 53 43 52 45 45 4e 53  |EPICS":."SCREENS|
00006ad0  41 56 45 20 22 2b 4e 41  4d 45 24 0d 2e 9a 21 e7  |AVE "+NAME$...!.|
00006ae0  20 43 4f 4d 50 3d 31 20  ff 22 53 45 54 54 59 50  | COMP=1 ."SETTYP|
00006af0  45 20 45 52 52 4f 52 20  35 35 35 22 0d 2e a4 23  |E ERROR 555"...#|
00006b00  e7 20 43 4f 4d 50 3d 31  20 ff 22 52 45 4e 41 4d  |. COMP=1 ."RENAM|
00006b10  45 20 45 52 52 4f 52 20  22 2b 4e 41 4d 45 24 0d  |E ERROR "+NAME$.|
00006b20  2e ae 17 c8 99 22 48 6f  75 72 67 6c 61 73 73 5f  |....."Hourglass_|
00006b30  53 6d 61 73 68 22 0d 2e  b8 2e c8 99 22 57 69 6d  |Smash"......"Wim|
00006b40  70 5f 53 70 72 69 74 65  4f 70 22 2c 33 36 2c 2c  |p_SpriteOp",36,,|
00006b50  22 70 74 72 5f 72 6f 63  6b 65 74 22 2c 25 31 30  |"ptr_rocket",%10|
00006b60  30 30 30 31 0d 2e c2 2c  c8 97 fb 31 2c 32 35 35  |0001...,...1,255|
00006b70  2c 32 35 35 2c 30 3a c8  97 fb 32 2c 30 2c 30 2c  |,255,0:...2,0,0,|
00006b80  32 35 35 3a c8 97 fb 33  2c 30 2c 30 2c 32 35 35  |255:...3,0,0,255|
00006b90  0d 2e cc 0c ef 34 3a e5  8d 54 5a 5d 0d 2e d6 05  |.....4:..TZ]....|
00006ba0  e1 0d 2e e0 0c dd f2 6c  6f 61 64 65 72 0d 2e ea  |.......loader...|
00006bb0  14 e6 39 35 c8 9c 32 35  35 3a 2a 46 58 32 31 2c  |..95..255:*FX21,|
00006bc0  30 0d 2e f4 2e c8 97 fb  32 2c 35 30 2c 32 35 35  |0.......2,50,255|
00006bd0  2c 35 30 3a c8 97 fb 31  2c 30 2c 32 30 30 2c 30  |,50:...1,0,200,0|
00006be0  3a c8 97 fb 33 2c 31 32  35 2c 38 30 2c 31 30 0d  |:...3,125,80,10.|
00006bf0  2e fe 2d c8 99 22 57 69  6d 70 5f 53 70 72 69 74  |..-.."Wimp_Sprit|
00006c00  65 4f 70 22 2c 33 36 2c  2c 22 70 74 72 5f 77 72  |eOp",36,,"ptr_wr|
00006c10  69 74 65 22 2c 25 31 30  30 30 30 31 0d 2f 08 15  |ite",%100001./..|
00006c20  c8 93 32 30 30 2c 33 35  30 2c 38 30 30 2c 31 30  |..200,350,800,10|
00006c30  30 0d 2f 12 06 ef 35 0d  2f 1c 0c ec 33 30 30 2c  |0./...5./...300,|
00006c40  34 33 30 0d 2f 26 32 f1  22 50 4c 45 41 53 45 20  |430./&2."PLEASE |
00006c50  54 59 50 45 20 41 20 46  49 4c 45 4e 41 4d 45 2e  |TYPE A FILENAME.|
00006c60  20 54 59 50 45 20 27 30  27 20 54 4f 20 41 42 41  | TYPE '0' TO ABA|
00006c70  4e 44 4f 4e 22 0d 2f 30  0c ec 33 30 30 2c 33 39  |NDON"./0..300,39|
00006c80  30 0d 2f 3a 0a e8 4e 41  4d 45 24 0d 2f 44 68 e7  |0./:..NAME$./Dh.|
00006c90  4e 41 4d 45 24 3d 22 30  22 8c c8 97 fb 31 2c 32  |NAME$="0"....1,2|
00006ca0  35 35 2c 32 35 35 2c 30  3a c8 97 fb 32 2c 30 2c  |55,255,0:...2,0,|
00006cb0  30 2c 32 35 35 3a c8 97  fb 33 2c 30 2c 30 2c 32  |0,255:...3,0,0,2|
00006cc0  35 35 3a c8 99 22 57 69  6d 70 5f 53 70 72 69 74  |55:.."Wimp_Sprit|
00006cd0  65 4f 70 22 2c 33 36 2c  2c 22 70 74 72 5f 72 6f  |eOp",36,,"ptr_ro|
00006ce0  63 6b 65 74 22 2c 25 31  30 30 30 30 31 3a e5 8d  |cket",%100001:..|
00006cf0  54 50 5d 0d 2f 4e 06 ef  34 0d 2f 58 1e 2a 44 49  |TP]./N..4./X.*DI|
00006d00  52 20 3c 53 50 41 43 45  24 44 49 52 3e 2e 53 50  |R <SPACE$DIR>.SP|
00006d10  41 43 45 50 49 43 53 0d  2f 62 14 c8 99 22 48 6f  |ACEPICS./b..."Ho|
00006d20  75 72 67 6c 61 73 73 5f  4f 6e 22 0d 2f 6c 53 e7  |urglass_On"./lS.|
00006d30  20 43 4f 4d 50 3d 31 20  ff 22 50 49 43 4c 4f 41  | COMP=1 ."PICLOA|
00006d40  44 20 22 2b 4e 41 4d 45  24 20 8b 20 ff 22 44 49  |D "+NAME$ . ."DI|
00006d50  52 20 3c 53 50 41 43 45  24 44 49 52 3e 2e 53 50  |R <SPACE$DIR>.SP|
00006d60  52 49 54 45 50 49 43 53  22 3a ff 22 53 43 52 45  |RITEPICS":."SCRE|
00006d70  45 4e 4c 4f 41 44 20 22  2b 4e 41 4d 45 24 0d 2f  |ENLOAD "+NAME$./|
00006d80  76 17 c8 99 22 48 6f 75  72 67 6c 61 73 73 5f 53  |v..."Hourglass_S|
00006d90  6d 61 73 68 22 0d 2f 80  4f ec 30 2c 30 3a ec 31  |mash"./.O.0,0:.1|
00006da0  32 38 30 2c 31 30 32 34  3a ff 22 53 47 45 54 20  |280,1024:."SGET |
00006db0  53 43 52 45 45 4e 44 55  4d 50 22 3a c8 97 fb 31  |SCREENDUMP":...1|
00006dc0  2c 32 35 35 2c 32 35 35  2c 30 3a c8 97 fb 32 2c  |,255,255,0:...2,|
00006dd0  30 2c 30 2c 32 35 35 3a  c8 97 fb 33 2c 30 2c 30  |0,0,255:...3,0,0|
00006de0  2c 32 35 35 0d 2f 8a 2e  c8 99 22 57 69 6d 70 5f  |,255./...."Wimp_|
00006df0  53 70 72 69 74 65 4f 70  22 2c 33 36 2c 2c 22 70  |SpriteOp",36,,"p|
00006e00  74 72 5f 72 6f 63 6b 65  74 22 2c 25 31 30 30 30  |tr_rocket",%1000|
00006e10  30 31 0d 2f 94 0e ef 34  3a f2 73 65 6c 65 63 74  |01./...4:.select|
00006e20  0d 2f 9e 05 e1 0d 2f a8  0b dd f2 66 69 6c 65 73  |./..../....files|
00006e30  0d 2f ad 0a 2a 43 4c 4f  53 45 0d 2f b2 18 ef 31  |./..*CLOSE./...1|
00006e40  32 3a e6 36 33 3a c8 97  20 b8 20 36 34 30 2c 34  |2:.63:.. . 640,4|
00006e50  30 30 0d 2f bc 30 e3 4c  3d 31 b8 32 35 30 3a c8  |00./.0.L=1.250:.|
00006e60  8f c8 90 b3 28 31 32 38  30 29 2c b3 28 31 30 32  |....(1280),.(102|
00006e70  34 29 2c b3 28 33 29 3a  ed 3a c8 91 30 2c 2d 33  |4),.(3):.:..0,-3|
00006e80  30 30 0d 2f c6 31 e7 20  43 4f 4d 50 3d 31 20 ff  |00./.1. COMP=1 .|
00006e90  22 53 43 48 4f 4f 53 45  20 4f 50 54 4f 4e 22 20  |"SCHOOSE OPTON" |
00006ea0  8b 20 ff 22 53 43 48 4f  4f 53 45 20 4f 50 54 4f  |. ."SCHOOSE OPTO|
00006eb0  46 46 22 0d 2f d0 11 f0  26 45 44 2c 35 35 30 2c  |FF"./...&ED,550,|
00006ec0  31 32 30 30 0d 2f da 36  e7 20 43 4f 4d 50 3d 31  |1200./.6. COMP=1|
00006ed0  20 8c 20 ff 22 53 43 48  4f 4f 53 45 20 43 4f 4d  | . ."SCHOOSE COM|
00006ee0  50 52 45 53 53 22 20 8b  20 ff 22 53 43 48 4f 4f  |PRESS" . ."SCHOO|
00006ef0  53 45 20 53 50 52 49 54  45 22 0d 2f e4 11 f0 26  |SE SPRITE"./...&|
00006f00  45 44 2c 34 33 30 2c 31  31 32 30 0d 2f ee 11 2a  |ED,430,1120./..*|
00006f10  53 43 48 4f 4f 53 45 20  53 41 56 45 0d 2f f8 10  |SCHOOSE SAVE./..|
00006f20  f0 26 45 44 2c 32 30 30  2c 38 30 30 0d 30 02 11  |.&ED,200,800.0..|
00006f30  2a 53 43 48 4f 4f 53 45  20 4c 4f 41 44 0d 30 0c  |*SCHOOSE LOAD.0.|
00006f40  10 f0 26 45 44 2c 34 30  30 2c 38 30 30 0d 30 16  |..&ED,400,800.0.|
00006f50  13 2a 53 43 48 4f 4f 53  45 20 44 45 4c 45 54 45  |.*SCHOOSE DELETE|
00006f60  0d 30 20 10 f0 26 45 44  2c 36 30 30 2c 38 30 30  |.0 ..&ED,600,800|
00006f70  0d 30 2a 11 2a 53 43 48  4f 4f 53 45 20 4c 49 53  |.0*.*SCHOOSE LIS|
00006f80  54 0d 30 34 10 f0 26 45  44 2c 38 30 30 2c 38 30  |T.04..&ED,800,80|
00006f90  30 0d 30 3e 0c 47 47 3d  a6 28 32 30 29 0d 30 48  |0.0>.GG=.(20).0H|
00006fa0  0b c8 97 58 2c 59 2c 5a  0d 30 52 92 e7 58 3e 35  |...X,Y,Z.0R..X>5|
00006fb0  35 30 80 20 58 3c 36 35  30 80 20 59 3e 31 32 30  |50. X<650. Y>120|
00006fc0  30 80 20 59 3c 31 33 30  30 20 80 20 5a 3d 34 20  |0. Y<1300 . Z=4 |
00006fd0  80 20 43 4f 4d 50 3d 30  20 8c 20 43 4f 4d 50 3d  |. COMP=0 . COMP=|
00006fe0  31 3a ff 22 53 43 48 4f  4f 53 45 20 4f 50 54 4f  |1:."SCHOOSE OPTO|
00006ff0  4e 22 3a f0 26 45 44 2c  35 35 30 2c 31 32 30 30  |N":.&ED,550,1200|
00007000  3a ff 22 53 43 48 4f 4f  53 45 20 43 4f 4d 50 52  |:."SCHOOSE COMPR|
00007010  45 53 53 22 3a f0 26 45  44 2c 34 33 30 2c 31 31  |ESS":.&ED,430,11|
00007020  32 30 3a f5 3a c8 97 51  2c 57 2c 45 3a fd 20 45  |20:.:..Q,W,E:. E|
00007030  3d 30 3a c8 97 58 2c 59  2c 5a 0d 30 5c 91 e7 58  |=0:..X,Y,Z.0\..X|
00007040  3e 35 35 30 80 20 58 3c  36 35 30 80 20 59 3e 31  |>550. X<650. Y>1|
00007050  32 30 30 80 20 59 3c 31  33 30 30 20 80 20 5a 3d  |200. Y<1300 . Z=|
00007060  34 20 80 20 43 4f 4d 50  3d 31 20 8c 20 43 4f 4d  |4 . COMP=1 . COM|
00007070  50 3d 30 3a ff 22 53 43  48 4f 4f 53 45 20 4f 50  |P=0:."SCHOOSE OP|
00007080  54 4f 46 46 22 3a f0 26  45 44 2c 35 35 30 2c 31  |TOFF":.&ED,550,1|
00007090  32 30 30 3a ff 22 53 43  48 4f 4f 53 45 20 53 50  |200:."SCHOOSE SP|
000070a0  52 49 54 45 22 3a f0 26  45 44 2c 34 33 30 2c 31  |RITE":.&ED,430,1|
000070b0  31 32 30 3a f5 3a c8 97  51 2c 57 2c 45 3a fd 20  |120:.:..Q,W,E:. |
000070c0  45 3d 30 3a c8 97 58 2c  59 2c 5a 0d 30 66 3b e7  |E=0:..X,Y,Z.0f;.|
000070d0  58 3e 32 30 30 80 20 58  3c 34 30 30 80 20 59 3e  |X>200. X<400. Y>|
000070e0  38 30 30 80 20 59 3c 31  30 30 30 80 20 5a 3d 34  |800. Y<1000. Z=4|
000070f0  8c c8 91 30 2c 30 3a f2  73 61 76 65 72 3a c8 91  |...0,0:.saver:..|
00007100  30 2c 2d 33 30 30 0d 30  70 3c e7 58 3e 34 30 30  |0,-300.0p<.X>400|
00007110  80 20 58 3c 36 30 30 80  20 59 3e 38 30 30 80 20  |. X<600. Y>800. |
00007120  59 3c 31 30 30 30 80 20  5a 3d 34 8c c8 91 30 2c  |Y<1000. Z=4...0,|
00007130  30 3a f2 6c 6f 61 64 65  72 3a c8 91 30 2c 2d 33  |0:.loader:..0,-3|
00007140  30 30 0d 30 7a 3d e7 58  3e 36 30 30 80 20 58 3c  |00.0z=.X>600. X<|
00007150  38 30 30 80 20 59 3e 38  30 30 80 20 59 3c 31 30  |800. Y>800. Y<10|
00007160  30 30 80 20 5a 3d 34 8c  c8 91 30 2c 30 3a f2 64  |00. Z=4...0,0:.d|
00007170  65 6c 65 74 65 72 3a c8  91 30 2c 2d 33 30 30 0d  |eleter:..0,-300.|
00007180  30 84 2d e7 58 3e 38 30  30 80 20 58 3c 31 30 30  |0.-.X>800. X<100|
00007190  30 80 20 59 3e 38 30 30  80 20 59 3c 31 30 30 30  |0. Y>800. Y<1000|
000071a0  80 20 5a 3d 34 8c 20 f2  6c 69 73 74 0d 30 8e 0e  |. Z=4. .list.0..|
000071b0  e7 5a 3d 32 8c e5 8d 54  50 5d 0d 30 98 09 e5 8d  |.Z=2...TP].0....|
000071c0  44 48 70 0d 30 a2 05 e1  0d 30 ac 23 dd f2 73 65  |DHp.0....0.#..se|
000071d0  63 74 6f 72 3a f2 72 65  6d 61 6b 65 28 31 32 34  |ctor:.remake(124|
000071e0  36 30 2c 38 37 38 2c 39  30 30 29 0d 30 b6 05 f5  |60,878,900).0...|
000071f0  0d 30 c0 0b c8 97 41 2c  42 2c 43 0d 30 ca 16 e7  |.0....A,B,C.0...|
00007200  47 52 49 44 3d 31 f2 69  6e 69 74 67 72 69 64 41  |GRID=1.initgridA|
00007210  42 0d 30 d4 10 e7 43 3d  32 8c f2 73 65 6c 65 63  |B.0...C=2..selec|
00007220  74 0d 30 de 19 e7 a6 2d  39 30 8c e6 30 2c 30 3a  |t.0....-90..0,0:|
00007230  f2 75 6e 64 6f 3a e6 34  2c 30 0d 30 e8 08 fd 43  |.undo:.4,0.0...C|
00007240  3d 34 0d 30 f2 12 f5 3a  c8 97 51 2c 57 2c 45 3a  |=4.0...:..Q,W,E:|
00007250  fd 45 3d 30 0d 30 fc 0b  c8 97 58 2c 59 2c 5a 0d  |.E=0.0....X,Y,Z.|
00007260  31 06 16 e7 47 52 49 44  3d 31 f2 69 6e 69 74 67  |1...GRID=1.initg|
00007270  72 69 64 58 59 0d 31 10  09 e6 34 2c 36 33 0d 31  |ridXY.1...4,63.1|
00007280  1a 0c 86 41 2c 42 2c 58  2c 59 0d 31 24 08 e6 34  |...A,B,X,Y.1$..4|
00007290  2c 30 0d 31 2e 06 c8 96  0d 31 38 06 c8 96 0d 31  |,0.1.....18....1|
000072a0  42 0c 86 41 2c 42 2c 58  2c 59 0d 31 4c 10 e7 5a  |B..A,B,X,Y.1L..Z|
000072b0  3d 32 8c f2 73 65 6c 65  63 74 0d 31 56 0e e7 5a  |=2..select.1V..Z|
000072c0  3d 34 8c e5 8d 44 7e 71  0d 31 60 10 e7 5a 3d 31  |=4...D~q.1`..Z=1|
000072d0  8c f2 73 65 63 74 6f 72  0d 31 6a 18 e7 a6 2d 39  |..sector.1j...-9|
000072e0  30 e6 30 2c 30 3a f2 75  6e 64 6f 3a e6 34 2c 30  |0.0,0:.undo:.4,0|
000072f0  0d 31 74 09 e5 8d 64 7c  70 0d 31 7e 12 f5 3a c8  |.1t...d|p.1~..:.|
00007300  97 51 2c 57 2c 45 3a fd  45 3d 30 0d 31 88 0e c8  |.Q,W,E:.E=0.1...|
00007310  97 41 41 2c 42 42 2c 43  43 0d 31 92 04 0d 31 9c  |.AA,BB,CC.1...1.|
00007320  18 e7 a6 2d 39 30 e6 30  2c 30 3a f2 75 6e 64 6f  |...-90.0,0:.undo|
00007330  3a e6 34 2c 30 0d 31 a6  09 e6 34 2c 36 33 0d 31  |:.4,0.1...4,63.1|
00007340  b0 08 ec 41 2c 42 0d 31  ba 08 ec 58 2c 59 0d 31  |...A,B.1...X,Y.1|
00007350  c4 0e f0 26 41 35 2c 41  41 2c 42 42 0d 31 ce 0c  |...&A5,AA,BB.1..|
00007360  86 41 2c 42 2c 58 2c 59  0d 31 d8 0e 86 41 2c 42  |.A,B,X,Y.1...A,B|
00007370  2c 41 41 2c 42 42 0d 31  e2 06 c8 96 0d 31 ec 06  |,AA,BB.1.....1..|
00007380  c8 96 0d 31 f6 08 e6 34  2c 30 0d 32 00 08 ec 41  |...1...4,0.2...A|
00007390  2c 42 0d 32 0a 08 ec 58  2c 59 0d 32 14 0e f0 26  |,B.2...X,Y.2...&|
000073a0  41 35 2c 41 41 2c 42 42  0d 32 1e 0c 86 41 2c 42  |A5,AA,BB.2...A,B|
000073b0  2c 58 2c 59 0d 32 28 0e  86 41 2c 42 2c 41 41 2c  |,X,Y.2(..A,B,AA,|
000073c0  42 42 0d 32 32 11 e7 43  43 3d 31 8c f2 73 65 63  |BB.22..CC=1..sec|
000073d0  74 6f 72 0d 32 3c 11 e7  43 43 3d 32 8c f2 73 65  |tor.2<..CC=2..se|
000073e0  6c 65 63 74 0d 32 46 34  e7 43 43 3d 34 8c e6 28  |lect.2F4.CC=4..(|
000073f0  43 4f 4c 29 c8 9c 28 54  49 4e 29 3a ec 41 2c 42  |COL)..(TIN):.A,B|
00007400  3a ec 58 2c 59 3a f0 26  42 35 2c 41 41 2c 42 42  |:.X,Y:.&B5,AA,BB|
00007410  3a f2 73 65 63 74 6f 72  0d 32 50 09 e5 8d 74 48  |:.sector.2P...tH|
00007420  71 0d 32 5a 05 e1 0d 32  64 21 dd f2 74 65 78 74  |q.2Z...2d!..text|
00007430  3a f2 72 65 6d 61 6b 65  28 31 32 39 30 30 2c 32  |:.remake(12900,2|
00007440  31 36 2c 38 32 30 29 0d  32 6e 0b f2 72 65 64 72  |16,820).2n..redr|
00007450  61 77 0d 32 78 06 ef 35  0d 32 82 08 e6 34 2c 30  |aw.2x..5.2...4,0|
00007460  0d 32 8c 10 ff 22 50 4f  49 4e 54 45 52 20 30 22  |.2..."POINTER 0"|
00007470  0d 32 96 0b c8 97 58 2c  59 2c 5a 0d 32 a0 16 e7  |.2....X,Y,Z.2...|
00007480  47 52 49 44 3d 31 f2 69  6e 69 74 67 72 69 64 58  |GRID=1.initgridX|
00007490  59 0d 32 aa 08 ec 58 2c  59 0d 32 b4 10 f1 22 22  |Y.2...X,Y.2...""|
000074a0  3b 54 45 58 54 24 3b 22  22 0d 32 be 06 c8 96 0d  |;TEXT$;"".2.....|
000074b0  32 c8 06 c8 96 0d 32 d2  08 ec 58 2c 59 0d 32 dc  |2.....2...X,Y.2.|
000074c0  10 f1 22 22 3b 54 45 58  54 24 3b 22 22 0d 32 e6  |.."";TEXT$;"".2.|
000074d0  4f e7 5a 3d 34 8c ff 22  50 4f 49 4e 54 45 52 20  |O.Z=4.."POINTER |
000074e0  30 22 3a e6 28 43 4f 4c  29 c8 9c 28 54 49 4e 29  |0":.(COL)..(TIN)|
000074f0  3a ec 58 2c 59 3a f1 22  22 3b 54 45 58 54 24 3b  |:.X,Y:."";TEXT$;|
00007500  22 22 3a e6 34 2c 30 3a  f5 3a c8 97 51 2c 57 2c  |"":.4,0:.:..Q,W,|
00007510  45 3a fd 45 3d 30 3a e5  8d 74 56 72 0d 32 f0 10  |E:.E=0:..tVr.2..|
00007520  e7 5a 3d 32 8c f2 73 65  6c 65 63 74 0d 32 fa 18  |.Z=2..select.2..|
00007530  e7 a6 2d 39 30 e6 30 2c  30 3a f2 75 6e 64 6f 3a  |..-90.0,0:.undo:|
00007540  e6 34 2c 30 0d 33 04 09  e5 8d 74 56 72 0d 33 0e  |.4,0.3....tVr.3.|
00007550  05 e1 0d 33 18 0b dd f2  73 69 7a 65 73 0d 33 22  |...3....sizes.3"|
00007560  07 e6 36 33 0d 33 2c 3b  ef 31 32 3a ff 22 50 4f  |..63.3,;.12:."PO|
00007570  49 4e 54 45 52 20 30 22  3a e3 44 46 47 46 3d 31  |INTER 0":.DFGF=1|
00007580  b8 31 35 30 3a c8 8f c8  90 b3 28 31 32 38 30 29  |.150:.....(1280)|
00007590  2c b3 28 31 30 32 33 29  2c b3 28 33 29 3a ed 0d  |,.(1023),.(3):..|
000075a0  33 36 0d c8 97 b8 53 49  5a 45 2c 30 0d 33 40 12  |36....SIZE,0.3@.|
000075b0  c8 97 c8 93 30 2c 30 2c  31 30 32 30 2c 31 0d 33  |....0,0,1020,1.3|
000075c0  4a 11 2a 53 43 48 4f 4f  53 45 20 4c 45 46 54 0d  |J.*SCHOOSE LEFT.|
000075d0  33 54 0c f0 26 45 44 2c  30 2c 30 0d 33 5e 10 2a  |3T..&ED,0,0.3^.*|
000075e0  53 46 6c 69 70 59 20 4c  45 46 54 0d 33 68 0f f0  |SFlipY LEFT.3h..|
000075f0  26 45 44 2c 31 31 38 30  2c 30 0d 33 72 10 2a 53  |&ED,1180,0.3r.*S|
00007600  46 6c 69 70 59 20 4c 45  46 54 0d 33 7c 08 e6 34  |FlipY LEFT.3|..4|
00007610  2c 30 0d 33 86 0b c8 97  58 2c 59 2c 5a 0d 33 90  |,0.3....X,Y,Z.3.|
00007620  18 c8 93 31 35 30 2c 35  31 32 2d 58 2f 32 2c 31  |...150,512-X/2,1|
00007630  30 30 30 2c 58 0d 33 9a  06 c8 96 0d 33 a4 06 c8  |000,X.3.....3...|
00007640  96 0d 33 ae 18 c8 93 31  35 30 2c 35 31 32 2d 58  |..3....150,512-X|
00007650  2f 32 2c 31 30 30 30 2c  58 0d 33 b8 23 e7 5a 3d  |/2,1000,X.3.#.Z=|
00007660  34 8c e6 28 43 4f 4c 29  c8 9c 28 54 49 4e 29 3a  |4..(COL)..(TIN):|
00007670  53 49 5a 45 3d 58 3a e5  8d 54 50 5d 0d 33 c2 0e  |SIZE=X:..TP].3..|
00007680  e7 5a 3d 32 8c e5 8d 54  50 5d 0d 33 cc 09 e5 8d  |.Z=2...TP].3....|
00007690  74 46 73 0d 33 d6 05 e1  0d 33 e0 0d dd f2 64 65  |tFs.3....3....de|
000076a0  6c 65 74 65 72 0d 33 ea  36 c8 97 fb 32 2c 35 30  |leter.3.6...2,50|
000076b0  2c 32 35 35 2c 35 30 3a  c8 97 fb 31 2c 30 2c 32  |,255,50:...1,0,2|
000076c0  30 30 2c 30 3a c8 97 fb  33 2c 31 35 30 2c 38 30  |00,0:...3,150,80|
000076d0  2c 31 30 3a 2a 46 58 32  31 2c 30 0d 33 f4 2d c8  |,10:*FX21,0.3.-.|
000076e0  99 22 57 69 6d 70 5f 53  70 72 69 74 65 4f 70 22  |."Wimp_SpriteOp"|
000076f0  2c 33 36 2c 2c 22 70 74  72 5f 77 72 69 74 65 22  |,36,,"ptr_write"|
00007700  2c 25 31 30 30 30 30 31  0d 33 fe 0c e6 39 35 c8  |,%100001.3...95.|
00007710  9c 32 35 35 0d 34 08 15  c8 93 32 30 30 2c 33 35  |.255.4....200,35|
00007720  30 2c 38 30 30 2c 31 30  30 0d 34 12 06 ef 35 0d  |0,800,100.4...5.|
00007730  34 1c 0c ec 33 30 30 2c  34 33 30 0d 34 26 32 f1  |4...300,430.4&2.|
00007740  22 50 4c 45 41 53 45 20  54 59 50 45 20 41 20 46  |"PLEASE TYPE A F|
00007750  49 4c 45 4e 41 4d 45 2e  20 54 59 50 45 20 27 30  |ILENAME. TYPE '0|
00007760  27 20 54 4f 20 41 42 41  4e 44 4f 4e 22 0d 34 30  |' TO ABANDON".40|
00007770  0c ec 33 30 30 2c 33 39  30 0d 34 3a 0a e8 4e 41  |..300,390.4:..NA|
00007780  4d 45 24 0d 34 44 5b e7  4e 41 4d 45 24 3d 22 30  |ME$.4D[.NAME$="0|
00007790  22 8c c8 97 fb 31 2c 32  35 35 2c 32 35 35 2c 30  |"....1,255,255,0|
000077a0  3a c8 97 fb 32 2c 30 2c  30 2c 32 35 35 3a c8 99  |:...2,0,0,255:..|
000077b0  22 57 69 6d 70 5f 53 70  72 69 74 65 4f 70 22 2c  |"Wimp_SpriteOp",|
000077c0  33 36 2c 2c 22 70 74 72  5f 72 6f 63 6b 65 74 22  |36,,"ptr_rocket"|
000077d0  2c 25 31 30 30 30 30 31  3a e5 8d 54 50 5d 0d 34  |,%100001:..TP].4|
000077e0  4e 49 e7 20 43 4f 4d 50  3d 31 20 ff 22 44 49 52  |NI. COMP=1 ."DIR|
000077f0  20 3c 53 50 41 43 45 24  44 49 52 3e 2e 53 50 41  | <SPACE$DIR>.SPA|
00007800  43 45 50 49 43 53 22 20  8b 20 ff 22 44 49 52 20  |CEPICS" . ."DIR |
00007810  3c 53 50 41 43 45 24 44  49 52 3e 2e 53 50 52 49  |<SPACE$DIR>.SPRI|
00007820  54 45 50 49 43 53 22 0d  34 58 06 ef 34 0d 34 62  |TEPICS".4X..4.4b|
00007830  14 ff 22 44 45 4c 45 54  45 20 22 2b 4e 41 4d 45  |.."DELETE "+NAME|
00007840  24 0d 34 6c 57 c8 97 fb  31 2c 32 35 35 2c 32 35  |$.4lW...1,255,25|
00007850  35 2c 30 3a c8 97 fb 32  2c 30 2c 30 2c 32 35 35  |5,0:...2,0,0,255|
00007860  3a c8 97 fb 33 2c 30 2c  30 2c 32 35 35 3a c8 99  |:...3,0,0,255:..|
00007870  22 57 69 6d 70 5f 53 70  72 69 74 65 4f 70 22 2c  |"Wimp_SpriteOp",|
00007880  33 36 2c 2c 22 70 74 72  5f 72 6f 63 6b 65 74 22  |36,,"ptr_rocket"|
00007890  2c 25 31 30 30 30 30 31  0d 34 76 0d ef 31 32 3a  |,%100001.4v..12:|
000078a0  e5 8d 54 5a 5d 0d 34 80  05 e1 0d 34 8a 0b dd f2  |..TZ].4....4....|
000078b0  66 6f 6e 74 73 0d 34 94  0f eb 31 33 3a 2a 46 58  |fonts.4...13:*FX|
000078c0  32 31 2c 30 0d 34 9e 11  e6 39 35 c8 9c 32 35 35  |21,0.4...95..255|
000078d0  3a c8 97 20 ee 0d 34 a8  07 fb 31 35 0d 34 b2 1a  |:.. ..4...15.4..|
000078e0  2a 2e 20 3c 53 50 41 43  45 24 44 49 52 3e 2e 46  |*. <SPACE$DIR>.F|
000078f0  4f 4e 54 49 45 53 0d 34  bc 05 f1 0d 34 c6 06 fb  |ONTIES.4....4...|
00007900  33 0d 34 cb 5d f1 22 20  22 3a c8 99 22 57 69 6d  |3.4.]." ":.."Wim|
00007910  70 5f 53 70 72 69 74 65  4f 70 22 2c 33 36 2c 2c  |p_SpriteOp",36,,|
00007920  22 70 74 72 5f 77 72 69  74 65 22 2c 25 31 30 30  |"ptr_write",%100|
00007930  30 30 31 3a c8 97 fb 32  2c 35 30 2c 32 35 35 2c  |001:...2,50,255,|
00007940  35 30 3a c8 97 fb 31 2c  30 2c 32 30 30 2c 30 3a  |50:...1,0,200,0:|
00007950  c8 97 fb 33 2c 31 35 30  2c 38 30 2c 31 30 0d 34  |...3,150,80,10.4|
00007960  d0 51 f1 22 50 6c 65 61  73 65 20 74 79 70 65 20  |.Q."Please type |
00007970  69 6e 20 74 68 65 20 66  6f 6e 74 20 79 6f 75 20  |in the font you |
00007980  77 61 6e 74 2e 22 3a fb  36 31 3a f1 22 54 59 50  |want.":.61:."TYP|
00007990  45 20 27 30 27 20 54 4f  20 52 45 54 55 52 4e 20  |E '0' TO RETURN |
000079a0  54 4f 20 4d 45 4e 55 20  53 43 52 45 45 4e 22 0d  |TO MENU SCREEN".|
000079b0  34 da 0c fb 35 33 c8 9c  31 32 38 0d 34 e4 24 e6  |4...53..128.4.$.|
000079c0  36 33 3a e3 4c 3d 31 b8  31 35 30 3a c8 92 b3 28  |63:.L=1.150:...(|
000079d0  31 32 38 30 29 2c b3 28  31 30 32 33 29 3a ed 0d  |1280),.(1023):..|
000079e0  34 ee 10 e7 5a 3d 32 8c  47 4f 54 37 34 39 30 0d  |4...Z=2.GOT7490.|
000079f0  34 f8 09 f1 3a fb 35 33  0d 35 02 0e e8 46 49 4c  |4...:.53.5...FIL|
00007a00  45 4e 41 4d 45 24 0d 35  0c 18 e7 46 49 4c 45 4e  |ENAME$.5...FILEN|
00007a10  41 4d 45 24 3d 22 30 22  8c e5 8d 54 50 5d 0d 35  |AME$="0"...TP].5|
00007a20  16 21 c8 97 20 ee 3a 2a  44 49 52 20 3c 53 50 41  |.!.. .:*DIR <SPA|
00007a30  43 45 24 44 49 52 3e 2e  46 4f 4e 54 49 45 53 0d  |CE$DIR>.FONTIES.|
00007a40  35 20 1b ff 22 52 55 4e  20 22 2b 46 49 4c 45 4e  |5 .."RUN "+FILEN|
00007a50  41 4d 45 24 3a e5 8d 54  50 5d 0d 35 2a 05 e1 0d  |AME$:..TP].5*...|
00007a60  35 34 23 dd f2 63 61 6d  65 72 61 3a f2 72 65 6d  |54#..camera:.rem|
00007a70  61 6b 65 28 31 33 36 32  30 2c 33 30 30 2c 38 32  |ake(13620,300,82|
00007a80  30 29 0d 35 3e 05 f5 0d  35 48 0b c8 97 41 2c 42  |0).5>...5H...A,B|
00007a90  2c 43 0d 35 52 16 e7 47  52 49 44 3d 31 f2 69 6e  |,C.5R..GRID=1.in|
00007aa0  69 74 67 72 69 64 41 42  0d 35 5c 10 e7 43 3d 32  |itgridAB.5\..C=2|
00007ab0  8c f2 73 65 6c 65 63 74  0d 35 66 18 e7 a6 2d 39  |..select.5f...-9|
00007ac0  30 e6 30 2c 30 3a f2 75  6e 64 6f 3a e6 34 2c 30  |0.0,0:.undo:.4,0|
00007ad0  0d 35 70 08 fd 43 3d 34  0d 35 7a 12 f5 3a c8 97  |.5p..C=4.5z..:..|
00007ae0  51 2c 57 2c 45 3a fd 45  3d 30 0d 35 84 19 c8 97  |Q,W,E:.E=0.5....|
00007af0  c8 93 41 2c 42 2c 31 32  37 38 2d 41 2c 31 30 32  |..A,B,1278-A,102|
00007b00  33 2d 42 0d 35 8e 0b c8  97 58 2c 59 2c 5a 0d 35  |3-B.5....X,Y,Z.5|
00007b10  98 16 e7 47 52 49 44 3d  31 f2 69 6e 69 74 67 72  |...GRID=1.initgr|
00007b20  69 64 58 59 0d 35 a2 08  e6 34 2c 30 0d 35 ac 11  |idXY.5...4,0.5..|
00007b30  c8 93 41 2c 42 2c 58 2d  41 2c 59 2d 42 0d 35 b6  |..A,B,X-A,Y-B.5.|
00007b40  09 c8 96 3a c8 96 0d 35  c0 11 c8 93 41 2c 42 2c  |...:...5....A,B,|
00007b50  58 2d 41 2c 59 2d 42 0d  35 ca 2f e7 5a 3d 34 8c  |X-A,Y-B.5./.Z=4.|
00007b60  c8 97 c8 93 30 2c 30 2c  31 32 37 39 2c 31 30 32  |....0,0,1279,102|
00007b70  33 3a f5 3a c8 97 51 2c  57 2c 45 3a fd 45 3d 30  |3:.:..Q,W,E:.E=0|
00007b80  3a e5 8d 64 7c 75 0d 35  d4 10 e7 5a 3d 32 8c f2  |:..d|u.5...Z=2..|
00007b90  73 65 6c 65 63 74 0d 35  de 22 e7 5a 3d 31 8c c8  |select.5.".Z=1..|
00007ba0  97 c8 93 30 2c 30 2c 31  32 37 39 2c 31 30 32 33  |...0,0,1279,1023|
00007bb0  3a f2 63 61 6d 65 72 61  0d 35 e8 18 e7 a6 2d 39  |:.camera.5....-9|
00007bc0  30 e6 30 2c 30 3a f2 75  6e 64 6f 3a e6 34 2c 30  |0.0,0:.undo:.4,0|
00007bd0  0d 35 f2 09 e5 8d 74 4e  75 0d 35 fc 21 c8 97 c8  |.5....tNu.5.!...|
00007be0  93 30 2c 30 2c 31 32 37  38 2d 28 58 2d 41 29 2c  |.0,0,1278-(X-A),|
00007bf0  31 30 32 32 2d 28 59 2d  42 29 0d 36 06 0e c8 97  |1022-(Y-B).6....|
00007c00  58 58 2c 59 59 2c 5a 5a  0d 36 10 18 e7 47 52 49  |XX,YY,ZZ.6...GRI|
00007c10  44 3d 31 f2 69 6e 69 74  67 72 69 64 58 58 59 59  |D=1.initgridXXYY|
00007c20  0d 36 1a 08 e6 34 2c 30  0d 36 24 13 c8 93 58 58  |.6...4,0.6$...XX|
00007c30  2c 59 59 2c 58 2d 41 2c  59 2d 42 0d 36 2e 06 c8  |,YY,X-A,Y-B.6...|
00007c40  96 0d 36 38 06 c8 96 0d  36 42 13 c8 93 58 58 2c  |..68....6B...XX,|
00007c50  59 59 2c 58 2d 41 2c 59  2d 42 0d 36 4c 3b e7 5a  |YY,X-A,Y-B.6L;.Z|
00007c60  5a 3d 34 8c c8 97 c8 93  30 2c 30 2c 31 32 37 39  |Z=4.....0,0,1279|
00007c70  2c 31 30 32 33 3a c8 93  28 41 29 2c 28 42 29 2c  |,1023:..(A),(B),|
00007c80  28 58 2d 41 29 2c 28 59  2d 42 29 b8 28 58 58 29  |(X-A),(Y-B).(XX)|
00007c90  2c 28 59 59 29 0d 36 56  11 e7 5a 5a 3d 32 8c f2  |,(YY).6V..ZZ=2..|
00007ca0  73 65 6c 65 63 74 0d 36  60 23 e7 5a 5a 3d 31 8c  |select.6`#.ZZ=1.|
00007cb0  c8 97 c8 93 30 2c 30 2c  31 32 37 39 2c 31 30 32  |....0,0,1279,102|
00007cc0  33 3a f2 63 61 6d 65 72  61 0d 36 6a 18 e7 a6 2d  |3:.camera.6j...-|
00007cd0  39 30 e6 30 2c 30 3a f2  75 6e 64 6f 3a e6 34 2c  |90.0,0:.undo:.4,|
00007ce0  30 0d 36 74 09 e5 8d 64  7c 75 0d 36 7e 05 e1 0d  |0.6t...d|u.6~...|
00007cf0  36 88 24 dd f2 73 63 69  73 73 6f 72 3a f2 72 65  |6.$..scissor:.re|
00007d00  6d 61 6b 65 28 31 33 39  36 30 2c 33 38 33 2c 38  |make(13960,383,8|
00007d10  32 30 29 0d 36 92 05 f5  0d 36 9c 0b c8 97 41 2c  |20).6....6....A,|
00007d20  42 2c 43 0d 36 a6 16 e7  47 52 49 44 3d 31 f2 69  |B,C.6...GRID=1.i|
00007d30  6e 69 74 67 72 69 64 41  42 0d 36 b0 10 e7 43 3d  |nitgridAB.6...C=|
00007d40  32 8c f2 73 65 6c 65 63  74 0d 36 ba 18 e7 a6 2d  |2..select.6....-|
00007d50  39 30 e6 30 2c 30 3a f2  75 6e 64 6f 3a e6 34 2c  |90.0,0:.undo:.4,|
00007d60  30 0d 36 c4 08 fd 43 3d  34 0d 36 ce 12 f5 3a c8  |0.6...C=4.6...:.|
00007d70  97 51 2c 57 2c 45 3a fd  45 3d 30 0d 36 d8 19 c8  |.Q,W,E:.E=0.6...|
00007d80  97 c8 93 41 2c 42 2c 31  32 37 39 2d 41 2c 31 30  |...A,B,1279-A,10|
00007d90  32 33 2d 42 0d 36 e2 0b  c8 97 58 2c 59 2c 5a 0d  |23-B.6....X,Y,Z.|
00007da0  36 ec 16 e7 47 52 49 44  3d 31 f2 69 6e 69 74 67  |6...GRID=1.initg|
00007db0  72 69 64 58 59 0d 36 f6  08 e6 34 2c 30 0d 37 00  |ridXY.6...4,0.7.|
00007dc0  11 c8 93 41 2c 42 2c 58  2d 41 2c 59 2d 42 0d 37  |...A,B,X-A,Y-B.7|
00007dd0  0a 06 c8 96 0d 37 14 06  c8 96 0d 37 1e 11 c8 93  |.....7.....7....|
00007de0  41 2c 42 2c 58 2d 41 2c  59 2d 42 0d 37 28 0e e7  |A,B,X-A,Y-B.7(..|
00007df0  5a 3d 34 8c e5 8d 44 5a  77 0d 37 32 10 e7 5a 3d  |Z=4...DZw.72..Z=|
00007e00  32 8c f2 73 65 6c 65 63  74 0d 37 3c 23 e7 5a 3d  |2..select.7<#.Z=|
00007e10  31 8c c8 97 c8 93 30 2c  30 2c 31 32 37 39 2c 31  |1.....0,0,1279,1|
00007e20  30 32 33 3a f2 73 63 69  73 73 6f 72 0d 37 46 18  |023:.scissor.7F.|
00007e30  e7 a6 2d 39 30 e6 30 2c  30 3a f2 75 6e 64 6f 3a  |..-90.0,0:.undo:|
00007e40  e6 34 2c 30 0d 37 50 09  e5 8d 64 62 76 0d 37 5a  |.4,0.7P...dbv.7Z|
00007e50  30 f5 3a c8 97 51 2c 57  2c 45 3a fd 45 3d 30 3a  |0.:..Q,W,E:.E=0:|
00007e60  c8 97 c8 93 30 2c 30 2c  31 32 37 39 2d 28 58 2d  |....0,0,1279-(X-|
00007e70  41 29 2c 31 30 32 33 2d  28 59 2d 42 29 0d 37 64  |A),1023-(Y-B).7d|
00007e80  0e c8 97 58 58 2c 59 59  2c 5a 5a 0d 37 6e 18 e7  |...XX,YY,ZZ.7n..|
00007e90  47 52 49 44 3d 31 f2 69  6e 69 74 67 72 69 64 58  |GRID=1.initgridX|
00007ea0  58 59 59 0d 37 78 08 e6  34 2c 30 0d 37 82 13 c8  |XYY.7x..4,0.7...|
00007eb0  93 58 58 2c 59 59 2c 58  2d 41 2c 59 2d 42 0d 37  |.XX,YY,X-A,Y-B.7|
00007ec0  8c 06 c8 96 0d 37 96 06  c8 96 0d 37 a0 13 c8 93  |.....7.....7....|
00007ed0  58 58 2c 59 59 2c 58 2d  41 2c 59 2d 42 0d 37 aa  |XX,YY,X-A,Y-B.7.|
00007ee0  63 e7 5a 5a 3d 34 8c ec  41 2c 42 3a ec 58 2c 59  |c.ZZ=4..A,B:.X,Y|
00007ef0  3a f0 31 38 39 2c 58 58  2c 59 59 3a 47 47 3d a6  |:.189,XX,YY:GG=.|
00007f00  28 32 30 29 3a c8 97 c8  93 30 2c 30 2c 31 32 37  |(20):....0,0,127|
00007f10  39 2c 31 30 32 33 3a f5  3a c8 97 51 2c 57 2c 45  |9,1023:.:..Q,W,E|
00007f20  3a fd 45 3d 30 3a c8 97  c8 93 30 2c 30 2c 31 32  |:.E=0:....0,0,12|
00007f30  37 39 2c 31 30 32 33 3a  f2 73 63 69 73 73 6f 72  |79,1023:.scissor|
00007f40  0d 37 b4 11 e7 5a 5a 3d  32 8c f2 73 65 6c 65 63  |.7...ZZ=2..selec|
00007f50  74 0d 37 be 24 e7 5a 5a  3d 31 8c c8 97 c8 93 30  |t.7.$.ZZ=1.....0|
00007f60  2c 30 2c 31 32 37 39 2c  31 30 32 33 3a f2 73 63  |,0,1279,1023:.sc|
00007f70  69 73 73 6f 72 0d 37 c8  18 e7 a6 2d 39 30 e6 30  |issor.7....-90.0|
00007f80  2c 30 3a f2 75 6e 64 6f  3a e6 34 2c 30 0d 37 d2  |,0:.undo:.4,0.7.|
00007f90  09 e5 8d 44 64 77 0d 37  dc 05 e1 0d 37 e6 22 dd  |...Ddw.7....7.".|
00007fa0  f2 62 72 75 73 68 3a f2  72 65 6d 61 6b 65 28 31  |.brush:.remake(1|
00007fb0  34 33 31 30 2c 31 33 33  2c 39 30 30 29 0d 37 f0  |4310,133,900).7.|
00007fc0  10 ff 22 50 4f 49 4e 54  45 52 20 30 22 0d 37 fa  |.."POINTER 0".7.|
00007fd0  08 e6 34 2c 30 0d 38 04  0c 47 47 3d a6 28 32 30  |..4,0.8..GG=.(20|
00007fe0  29 0d 38 0e 0b c8 97 58  2c 59 2c 5a 0d 38 18 16  |).8....X,Y,Z.8..|
00007ff0  e7 47 52 49 44 3d 31 f2  69 6e 69 74 67 72 69 64  |.GRID=1.initgrid|
00008000  58 59 0d 38 22 15 e7 5a  3d 30 8c c8 8f 58 2c 59  |XY.8"..Z=0...X,Y|
00008010  2c 53 49 5a 45 2f 32 0d  38 2c 06 c8 96 0d 38 36  |,SIZE/2.8,....86|
00008020  06 c8 96 0d 38 40 15 e7  5a 3d 30 8c c8 8f 58 2c  |....8@..Z=0...X,|
00008030  59 2c 53 49 5a 45 2f 32  0d 38 4a 10 e7 5a 3d 32  |Y,SIZE/2.8J..Z=2|
00008040  8c f2 73 65 6c 65 63 74  0d 38 54 2a e7 5a 3d 34  |..select.8T*.Z=4|
00008050  8c e6 28 43 4f 4c 29 c8  9c 28 54 49 4e 29 3a c8  |..(COL)..(TIN):.|
00008060  8f c8 90 58 2c 59 2c 53  49 5a 45 2f 32 3a e6 34  |...X,Y,SIZE/2:.4|
00008070  2c 30 0d 38 5e 15 e7 a6  2d 35 38 8c 53 49 5a 45  |,0.8^...-58.SIZE|
00008080  3d 53 49 5a 45 2b 35 0d  38 68 15 e7 a6 2d 34 32  |=SIZE+5.8h...-42|
00008090  8c 53 49 5a 45 3d 53 49  5a 45 2d 35 0d 38 72 18  |.SIZE=SIZE-5.8r.|
000080a0  e7 a6 2d 39 30 e6 30 2c  30 3a f2 75 6e 64 6f 3a  |..-90.0,0:.undo:|
000080b0  e6 34 2c 30 0d 38 7c 12  e7 53 49 5a 45 3c 36 8c  |.4,0.8|..SIZE<6.|
000080c0  53 49 5a 45 3d 36 0d 38  86 09 e5 8d 54 4e 78 0d  |SIZE=6.8....TNx.|
000080d0  38 90 05 e1 0d 38 9a 21  dd f2 74 69 6c 65 3a f2  |8....8.!..tile:.|
000080e0  72 65 6d 61 6b 65 28 31  34 34 39 30 2c 34 36 36  |remake(14490,466|
000080f0  2c 38 32 30 29 0d 38 a4  10 ff 22 50 4f 49 4e 54  |,820).8..."POINT|
00008100  45 52 20 30 22 0d 38 ae  08 e6 34 2c 30 0d 38 b8  |ER 0".8...4,0.8.|
00008110  0c 47 47 3d a6 28 35 30  29 0d 38 c2 0b c8 97 58  |.GG=.(50).8....X|
00008120  2c 59 2c 5a 0d 38 cc 11  c8 93 58 2c 59 2c 31 36  |,Y,Z.8....X,Y,16|
00008130  30 2c 31 32 38 0d 38 d6  06 c8 96 0d 38 e0 11 c8  |0,128.8.....8...|
00008140  93 58 2c 59 2c 31 36 30  2c 31 32 38 0d 38 ea 13  |.X,Y,160,128.8..|
00008150  e7 20 5a 3d 32 20 8c 20  f2 73 65 6c 65 63 74 0d  |. Z=2 . .select.|
00008160  38 f4 12 e7 20 5a 3d 34  20 8c 20 e5 20 8d 54 48  |8... Z=4 . . .TH|
00008170  79 0d 38 fe 09 e5 8d 64  42 78 0d 39 08 15 ec 58  |y.8....dBx.9...X|
00008180  2c 59 3a ec 58 2b 31 36  30 2c 59 2b 31 32 38 0d  |,Y:.X+160,Y+128.|
00008190  39 12 0f 2a 53 47 45 54  20 50 41 50 45 52 0d 39  |9..*SGET PAPER.9|
000081a0  1c 08 e6 30 2c 30 0d 39  26 11 e3 51 3d 31 b8 31  |...0,0.9&..Q=1.1|
000081b0  32 38 30 88 31 36 30 0d  39 30 11 e3 5a 3d 31 b8  |280.160.90..Z=1.|
000081c0  31 30 32 34 88 31 32 38  0d 39 3a 0c f0 26 45 44  |1024.128.9:..&ED|
000081d0  2c 51 2c 5a 0d 39 44 05  ed 0d 39 4e 05 ed 0d 39  |,Q,Z.9D...9N...9|
000081e0  58 05 f5 0d 39 62 0b c8  97 58 2c 59 2c 5a 0d 39  |X...9b...X,Y,Z.9|
000081f0  6c 1c e7 20 a6 2d 39 30  20 8c 20 f2 75 6e 64 6f  |l.. .-90 . .undo|
00008200  3a e5 20 72 65 6d 61 6b  65 25 0d 39 76 13 e7 20  |:. remake%.9v.. |
00008210  5a 3d 32 20 8c 20 f2 73  65 6c 65 63 74 0d 39 80  |Z=2 . .select.9.|
00008220  0a fd 20 5a 3d 35 36 0d  39 8a 05 e1 0d 39 94 21  |.. Z=56.9....9.!|
00008230  dd f2 72 65 63 32 3a f2  72 65 6d 61 6b 65 28 31  |..rec2:.remake(1|
00008240  34 37 34 30 2c 34 36 37  2c 39 30 30 29 0d 39 9e  |4740,467,900).9.|
00008250  0d f5 3a c8 97 41 2c 42  2c 43 0d 39 a8 16 e7 47  |..:..A,B,C.9...G|
00008260  52 49 44 3d 31 f2 69 6e  69 74 67 72 69 64 41 42  |RID=1.initgridAB|
00008270  0d 39 b2 10 e7 43 3d 32  8c f2 73 65 6c 65 63 74  |.9...C=2..select|
00008280  0d 39 bc 19 e7 a6 2d 39  30 8c e6 30 2c 30 3a f2  |.9....-90..0,0:.|
00008290  75 6e 64 6f 3a e6 34 2c  30 0d 39 c6 08 fd 43 3d  |undo:.4,0.9...C=|
000082a0  34 0d 39 d0 12 f5 3a c8  97 51 2c 57 2c 45 3a fd  |4.9...:..Q,W,E:.|
000082b0  45 3d 30 0d 39 da 0b c8  97 58 2c 59 2c 5a 0d 39  |E=0.9....X,Y,Z.9|
000082c0  e4 16 e7 47 52 49 44 3d  31 f2 69 6e 69 74 67 72  |...GRID=1.initgr|
000082d0  69 64 58 59 0d 39 ee 10  e7 5a 3d 32 8c f2 73 65  |idXY.9...Z=2..se|
000082e0  6c 65 63 74 0d 39 f8 08  e6 34 2c 30 0d 3a 02 11  |lect.9...4,0.:..|
000082f0  c8 93 41 2c 42 2c 58 2d  41 2c 59 2d 42 0d 3a 0c  |..A,B,X-A,Y-B.:.|
00008300  06 c8 96 0d 3a 16 06 c8  96 0d 3a 20 11 c8 93 41  |....:.....: ...A|
00008310  2c 42 2c 58 2d 41 2c 59  2d 42 0d 3a 2a 33 e7 5a  |,B,X-A,Y-B.:*3.Z|
00008320  3d 34 8c e6 28 43 4f 4c  29 c8 9c 28 54 49 4e 29  |=4..(COL)..(TIN)|
00008330  3a c8 93 41 2c 42 2c 58  2d 41 2c 59 2d 42 3a 47  |:..A,B,X-A,Y-B:G|
00008340  47 3d a6 28 32 30 29 3a  f2 72 65 63 32 0d 3a 34  |G=.(20):.rec2.:4|
00008350  0e e7 5a 3d 31 8c f2 72  65 63 32 0d 3a 3e 18 e7  |..Z=1..rec2.:>..|
00008360  a6 2d 39 30 e6 30 2c 30  3a f2 75 6e 64 6f 3a e6  |.-90.0,0:.undo:.|
00008370  34 2c 30 0d 3a 48 09 e5  8d 64 5a 79 0d 3a 52 05  |4,0.:H...dZy.:R.|
00008380  e1 0d 3a 5c 21 dd f2 63  69 72 32 3a f2 72 65 6d  |..:\!..cir2:.rem|
00008390  61 6b 65 28 31 34 39 34  30 2c 36 33 31 2c 39 30  |ake(14940,631,90|
000083a0  30 29 0d 3a 66 05 f5 0d  3a 70 0b c8 97 41 2c 42  |0).:f...:p...A,B|
000083b0  2c 43 0d 3a 7a 16 e7 47  52 49 44 3d 31 f2 69 6e  |,C.:z..GRID=1.in|
000083c0  69 74 67 72 69 64 41 42  0d 3a 84 10 e7 43 3d 32  |itgridAB.:...C=2|
000083d0  8c f2 73 65 6c 65 63 74  0d 3a 8e 19 e7 a6 2d 39  |..select.:....-9|
000083e0  30 8c e6 30 2c 30 3a f2  75 6e 64 6f 3a e6 34 2c  |0..0,0:.undo:.4,|
000083f0  30 0d 3a 98 08 e6 34 2c  30 0d 3a a2 08 fd 43 3d  |0.:...4,0.:...C=|
00008400  34 0d 3a ac 12 f5 3a c8  97 51 2c 57 2c 45 3a fd  |4.:...:..Q,W,E:.|
00008410  45 3d 30 0d 3a b6 0b c8  97 58 2c 59 2c 5a 0d 3a  |E=0.:....X,Y,Z.:|
00008420  c0 16 e7 47 52 49 44 3d  31 f2 69 6e 69 74 67 72  |...GRID=1.initgr|
00008430  69 64 58 59 0d 3a ca 10  e7 5a 3d 32 8c f2 73 65  |idXY.:...Z=2..se|
00008440  6c 65 63 74 0d 3a d4 0b  c8 8f 41 2c 42 2c 58 0d  |lect.:....A,B,X.|
00008450  3a de 06 c8 96 0d 3a e8  06 c8 96 0d 3a f2 0b c8  |:.....:.....:...|
00008460  8f 41 2c 42 2c 58 0d 3a  fc 32 e7 5a 3d 34 8c e6  |.A,B,X.:.2.Z=4..|
00008470  28 43 4f 4c 29 c8 9c 28  54 49 4e 29 3a c8 8f 41  |(COL)..(TIN):..A|
00008480  2c 42 2c 58 3a 47 47 3d  a6 28 32 30 29 3a e6 34  |,B,X:GG=.(20):.4|
00008490  2c 30 3a f2 63 69 72 32  0d 3b 06 0e e7 5a 3d 31  |,0:.cir2.;...Z=1|
000084a0  8c f2 63 69 72 32 0d 3b  10 18 e7 a6 2d 39 30 e6  |..cir2.;....-90.|
000084b0  30 2c 30 3a f2 75 6e 64  6f 3a e6 34 2c 30 0d 3b  |0,0:.undo:.4,0.;|
000084c0  1a 11 e7 a6 2d 35 38 c8  97 b8 58 2b 35 2c 59 0d  |....-58...X+5,Y.|
000084d0  3b 24 11 e7 a6 2d 34 32  c8 97 b8 58 2d 35 2c 59  |;$...-42...X-5,Y|
000084e0  0d 3b 2e 09 e5 8d 74 76  7a 0d 3b 38 05 e1 0d 3b  |.;....tvz.;8...;|
000084f0  42 21 dd f2 74 72 69 32  3a f2 72 65 6d 61 6b 65  |B!..tri2:.remake|
00008500  28 31 35 31 37 30 2c 39  36 31 2c 39 30 30 29 0d  |(15170,961,900).|
00008510  3b 4c 05 f5 0d 3b 56 0b  c8 97 41 2c 42 2c 43 0d  |;L...;V...A,B,C.|
00008520  3b 60 16 e7 47 52 49 44  3d 31 f2 69 6e 69 74 67  |;`..GRID=1.initg|
00008530  72 69 64 41 42 0d 3b 6a  10 e7 43 3d 32 8c f2 73  |ridAB.;j..C=2..s|
00008540  65 6c 65 63 74 0d 3b 74  18 e7 a6 2d 39 30 e6 30  |elect.;t...-90.0|
00008550  2c 30 3a f2 75 6e 64 6f  3a e6 34 2c 30 0d 3b 7e  |,0:.undo:.4,0.;~|
00008560  08 fd 43 3d 34 0d 3b 88  12 f5 3a c8 97 51 2c 57  |..C=4.;...:..Q,W|
00008570  2c 45 3a fd 45 3d 30 0d  3b 92 0b c8 97 58 2c 59  |,E:.E=0.;....X,Y|
00008580  2c 5a 0d 3b 9c 16 e7 47  52 49 44 3d 31 f2 69 6e  |,Z.;...GRID=1.in|
00008590  69 74 67 72 69 64 58 59  0d 3b a6 18 e7 a6 2d 39  |itgridXY.;....-9|
000085a0  30 e6 30 2c 30 3a f2 75  6e 64 6f 3a e6 34 2c 30  |0.0,0:.undo:.4,0|
000085b0  0d 3b b0 10 e7 5a 3d 32  8c f2 73 65 6c 65 63 74  |.;...Z=2..select|
000085c0  0d 3b ba 08 e6 34 2c 30  0d 3b c4 0c 86 41 2c 42  |.;...4,0.;...A,B|
000085d0  2c 58 2c 59 0d 3b ce 06  c8 96 0d 3b d8 06 c8 96  |,X,Y.;.....;....|
000085e0  0d 3b e2 0c 86 41 2c 42  2c 58 2c 59 0d 3b ec 1d  |.;...A,B,X,Y.;..|
000085f0  e7 5a 3d 34 8c f5 3a c8  97 51 2c 57 2c 45 3a fd  |.Z=4..:..Q,W,E:.|
00008600  45 3d 30 3a e5 8d 54 4a  7c 0d 3b f6 0e e7 5a 3d  |E=0:..TJ|.;...Z=|
00008610  31 8c f2 74 72 69 32 0d  3c 00 09 e5 8d 74 52 7b  |1..tri2.<....tR{|
00008620  0d 3c 0a 0c 86 41 2c 42  2c 58 2c 59 0d 3c 14 0e  |.<...A,B,X,Y.<..|
00008630  c8 97 58 58 2c 59 59 2c  5a 5a 0d 3c 1e 18 e7 47  |..XX,YY,ZZ.<...G|
00008640  52 49 44 3d 31 f2 69 6e  69 74 67 72 69 64 58 58  |RID=1.initgridXX|
00008650  59 59 0d 3c 28 08 e6 34  2c 30 0d 3c 32 0e 86 41  |YY.<(..4,0.<2..A|
00008660  2c 42 2c 58 58 2c 59 59  0d 3c 3c 0e 86 58 2c 59  |,B,XX,YY.<<..X,Y|
00008670  2c 58 58 2c 59 59 0d 3c  46 06 c8 96 0d 3c 50 06  |,XX,YY.<F....<P.|
00008680  c8 96 0d 3c 5a 0e 86 41  2c 42 2c 58 58 2c 59 59  |...<Z..A,B,XX,YY|
00008690  0d 3c 64 0e 86 58 2c 59  2c 58 58 2c 59 59 0d 3c  |.<d..X,Y,XX,YY.<|
000086a0  6e 18 e7 5a 5a 3d 31 8c  86 41 2c 42 2c 58 2c 59  |n..ZZ=1..A,B,X,Y|
000086b0  3a f2 74 72 69 32 0d 3c  78 11 e7 5a 5a 3d 32 8c  |:.tri2.<x..ZZ=2.|
000086c0  f2 73 65 6c 65 63 74 0d  3c 82 45 e7 5a 5a 3d 34  |.select.<.E.ZZ=4|
000086d0  8c e6 28 43 4f 4c 29 c8  9c 28 54 49 4e 29 3a 86  |..(COL)..(TIN):.|
000086e0  41 2c 42 2c 58 2c 59 3a  86 58 2c 59 2c 58 58 2c  |A,B,X,Y:.X,Y,XX,|
000086f0  59 59 3a 86 41 2c 42 2c  58 58 2c 59 59 3a 47 47  |YY:.A,B,XX,YY:GG|
00008700  3d a6 28 32 30 29 3a f2  74 72 69 32 0d 3c 8c 21  |=.(20):.tri2.<.!|
00008710  e7 a6 2d 39 30 e6 30 2c  30 3a f2 75 6e 64 6f 3a  |..-90.0,0:.undo:|
00008720  e6 34 2c 30 3a 86 41 2c  42 2c 58 2c 59 0d 3c 96  |.4,0:.A,B,X,Y.<.|
00008730  09 e5 8d 54 54 7c 0d 3c  a0 05 e1 0d 3c aa 24 dd  |...TT|.<....<.$.|
00008740  f2 73 65 63 74 6f 72 32  3a f2 72 65 6d 61 6b 65  |.sector2:.remake|
00008750  28 31 35 35 33 30 2c 37  39 35 2c 39 30 30 29 0d  |(15530,795,900).|
00008760  3c b4 05 f5 0d 3c be 0b  c8 97 41 2c 42 2c 43 0d  |<....<....A,B,C.|
00008770  3c c8 16 e7 47 52 49 44  3d 31 f2 69 6e 69 74 67  |<...GRID=1.initg|
00008780  72 69 64 41 42 0d 3c d2  10 e7 43 3d 32 8c f2 73  |ridAB.<...C=2..s|
00008790  65 6c 65 63 74 0d 3c dc  18 e7 a6 2d 39 30 e6 30  |elect.<....-90.0|
000087a0  2c 30 3a f2 75 6e 64 6f  3a e6 34 2c 30 0d 3c e6  |,0:.undo:.4,0.<.|
000087b0  08 fd 43 3d 34 0d 3c f0  12 f5 3a c8 97 51 2c 57  |..C=4.<...:..Q,W|
000087c0  2c 45 3a fd 45 3d 30 0d  3c fa 0b c8 97 58 2c 59  |,E:.E=0.<....X,Y|
000087d0  2c 5a 0d 3d 04 16 e7 47  52 49 44 3d 31 f2 69 6e  |,Z.=...GRID=1.in|
000087e0  69 74 67 72 69 64 58 59  0d 3d 0e 08 e6 34 2c 30  |itgridXY.=...4,0|
000087f0  0d 3d 18 0c 86 41 2c 42  2c 58 2c 59 0d 3d 22 06  |.=...A,B,X,Y.=".|
00008800  c8 96 0d 3d 2c 06 c8 96  0d 3d 36 0c 86 41 2c 42  |...=,....=6..A,B|
00008810  2c 58 2c 59 0d 3d 40 10  e7 5a 3d 32 8c f2 73 65  |,X,Y.=@..Z=2..se|
00008820  6c 65 63 74 0d 3d 4a 11  e7 5a 3d 31 8c f2 73 65  |lect.=J..Z=1..se|
00008830  63 74 6f 72 32 0d 3d 54  1d e7 5a 3d 34 8c f5 3a  |ctor2.=T..Z=4..:|
00008840  c8 97 51 2c 57 2c 45 3a  fd 45 3d 30 3a e5 8d 44  |..Q,W,E:.E=0:..D|
00008850  72 7d 0d 3d 5e 18 e7 a6  2d 39 30 e6 30 2c 30 3a  |r}.=^...-90.0,0:|
00008860  f2 75 6e 64 6f 3a e6 34  2c 30 0d 3d 68 09 e5 8d  |.undo:.4,0.=h...|
00008870  64 7a 7c 0d 3d 72 0e c8  97 58 58 2c 59 59 2c 5a  |dz|.=r...XX,YY,Z|
00008880  5a 0d 3d 7c 18 e7 47 52  49 44 3d 31 f2 69 6e 69  |Z.=|..GRID=1.ini|
00008890  74 67 72 69 64 58 58 59  59 0d 3d 86 18 e7 a6 2d  |tgridXXYY.=....-|
000088a0  39 30 e6 30 2c 30 3a f2  75 6e 64 6f 3a e6 34 2c  |90.0,0:.undo:.4,|
000088b0  30 0d 3d 90 08 e6 34 2c  30 0d 3d 9a 08 ec 41 2c  |0.=...4,0.=...A,|
000088c0  42 0d 3d a4 08 ec 58 2c  59 0d 3d ae 0e f0 26 41  |B.=...X,Y.=...&A|
000088d0  35 2c 58 58 2c 59 59 0d  3d b8 0c 86 41 2c 42 2c  |5,XX,YY.=...A,B,|
000088e0  58 2c 59 0d 3d c2 0e 86  41 2c 42 2c 58 58 2c 59  |X,Y.=...A,B,XX,Y|
000088f0  59 0d 3d cc 06 c8 96 0d  3d d6 06 c8 96 0d 3d e0  |Y.=.....=.....=.|
00008900  08 ec 41 2c 42 0d 3d ea  08 ec 58 2c 59 0d 3d f4  |..A,B.=...X,Y.=.|
00008910  0e f0 26 41 35 2c 58 58  2c 59 59 0d 3d fe 0c 86  |..&A5,XX,YY.=...|
00008920  41 2c 42 2c 58 2c 59 0d  3e 08 0e 86 41 2c 42 2c  |A,B,X,Y.>...A,B,|
00008930  58 58 2c 59 59 0d 3e 12  52 e7 5a 5a 3d 34 8c e6  |XX,YY.>.R.ZZ=4..|
00008940  28 43 4f 4c 29 c8 9c 28  54 49 4e 29 3a ec 41 2c  |(COL)..(TIN):.A,|
00008950  42 3a ec 58 2c 59 3a f0  26 41 35 2c 58 58 2c 59  |B:.X,Y:.&A5,XX,Y|
00008960  59 3a 86 41 2c 42 2c 58  2c 59 3a 86 41 2c 42 2c  |Y:.A,B,X,Y:.A,B,|
00008970  58 58 2c 59 59 3a 47 47  3d a6 28 33 30 29 3a f2  |XX,YY:GG=.(30):.|
00008980  73 65 63 74 6f 72 32 0d  3e 1c 11 e7 5a 5a 3d 32  |sector2.>...ZZ=2|
00008990  8c f2 73 65 6c 65 63 74  0d 3e 26 12 e7 5a 5a 3d  |..select.>&..ZZ=|
000089a0  31 8c f2 73 65 63 74 6f  72 32 0d 3e 30 09 e5 8d  |1..sector2.>0...|
000089b0  44 72 7d 0d 3e 3a 05 e1  0d 3e 44 23 dd f2 69 6e  |Dr}.>:...>D#..in|
000089c0  76 65 72 74 3a f2 72 65  6d 61 6b 65 28 31 35 39  |vert:.remake(159|
000089d0  34 30 2c 35 34 39 2c 38  32 30 29 0d 3e 4e 05 f5  |40,549,820).>N..|
000089e0  0d 3e 58 0b c8 97 41 2c  42 2c 43 0d 3e 62 16 e7  |.>X...A,B,C.>b..|
000089f0  47 52 49 44 3d 31 f2 69  6e 69 74 67 72 69 64 41  |GRID=1.initgridA|
00008a00  42 0d 3e 6c 18 e7 a6 2d  39 30 e6 30 2c 30 3a f2  |B.>l...-90.0,0:.|
00008a10  75 6e 64 6f 3a e6 34 2c  30 0d 3e 76 10 e7 43 3d  |undo:.4,0.>v..C=|
00008a20  32 8c f2 73 65 6c 65 63  74 0d 3e 80 08 fd 43 3d  |2..select.>...C=|
00008a30  34 0d 3e 8a 12 f5 3a c8  97 51 2c 57 2c 45 3a fd  |4.>...:..Q,W,E:.|
00008a40  45 3d 30 0d 3e 94 0b c8  97 58 2c 59 2c 5a 0d 3e  |E=0.>....X,Y,Z.>|
00008a50  9e 16 e7 47 52 49 44 3d  31 f2 69 6e 69 74 67 72  |...GRID=1.initgr|
00008a60  69 64 58 59 0d 3e a8 08  e6 34 2c 30 0d 3e b2 11  |idXY.>...4,0.>..|
00008a70  c8 93 41 2c 42 2c 58 2d  41 2c 59 2d 42 0d 3e bc  |..A,B,X-A,Y-B.>.|
00008a80  06 c8 96 0d 3e c6 06 c8  96 0d 3e d0 11 c8 93 41  |....>.....>....A|
00008a90  2c 42 2c 58 2d 41 2c 59  2d 42 0d 3e da 2e e7 5a  |,B,X-A,Y-B.>...Z|
00008aa0  3d 34 8c e6 34 2c 30 3a  c8 93 c8 90 41 2c 42 2c  |=4..4,0:....A,B,|
00008ab0  58 2d 41 2c 59 2d 42 3a  47 47 3d a6 28 33 30 29  |X-A,Y-B:GG=.(30)|
00008ac0  3a f2 69 6e 76 65 72 74  0d 3e e4 10 e7 5a 3d 32  |:.invert.>...Z=2|
00008ad0  8c f2 73 65 6c 65 63 74  0d 3e ee 10 e7 5a 3d 31  |..select.>...Z=1|
00008ae0  8c f2 69 6e 76 65 72 74  0d 3e f8 18 e7 a6 2d 39  |..invert.>....-9|
00008af0  30 e6 30 2c 30 3a f2 75  6e 64 6f 3a e6 34 2c 30  |0.0,0:.undo:.4,0|
00008b00  0d 3f 02 09 e5 8d 74 54  7e 0d 3f 0c 05 e1 0d 3f  |.?....tT~.?....?|
00008b10  16 0b dd f2 65 72 72 6f  72 0d 3f 20 38 e7 20 f6  |....error.? 8. .|
00008b20  24 3d 22 55 73 65 20 2a  50 69 63 74 75 72 65 20  |$="Use *Picture |
00008b30  3c 66 69 6c 65 6e 61 6d  65 3e 22 20 8c 20 f6 24  |<filename>" . .$|
00008b40  3d 22 44 4f 20 4e 4f 54  20 50 52 45 53 53 20 30  |="DO NOT PRESS 0|
00008b50  22 0d 3f 2a 07 eb 31 35  0d 3f 34 06 ef 35 0d 3f  |".?*..15.?4..5.?|
00008b60  3e 2a e3 44 46 47 46 3d  31 b8 31 35 30 3a c8 8f  |>*.DFGF=1.150:..|
00008b70  c8 90 b3 28 31 32 38 30  29 2c b3 28 31 30 32 33  |...(1280),.(1023|
00008b80  29 2c b3 28 33 29 3a ed  0d 3f 48 0b e6 33 c8 9c  |),.(3):..?H..3..|
00008b90  31 32 38 0d 3f 52 1f c8  93 c8 90 30 2c 32 30 30  |128.?R.....0,200|
00008ba0  2c 32 30 30 30 2c 31 30  30 3a e6 35 33 c8 9c 31  |,2000,100:.53..1|
00008bb0  32 38 0d 3f 5c 0c ec 35  32 30 2c 37 30 30 0d 3f  |28.?\..520,700.?|
00008bc0  66 07 e6 39 35 0d 3f 70  13 f1 22 53 4f 52 52 59  |f..95.?p.."SORRY|
00008bd0  20 46 4f 4c 4b 53 21 22  0d 3f 7a 0c ec 34 35 30  | FOLKS!".?z..450|
00008be0  2c 36 30 30 0d 3f 84 1c  f1 22 41 4e 20 45 52 52  |,600.?..."AN ERR|
00008bf0  4f 52 20 48 41 53 20 4f  43 43 55 52 52 45 44 22  |OR HAS OCCURRED"|
00008c00  0d 3f 8e 0c ec 31 30 30  2c 32 37 30 0d 3f 98 12  |.?...100,270.?..|
00008c10  f1 22 45 52 52 4f 52 3a  20 22 f6 24 22 22 0d 3f  |."ERROR: ".$"".?|
00008c20  a2 06 ef 34 0d 3f ac 10  2a 53 43 48 4f 4f 53 45  |...4.?..*SCHOOSE|
00008c30  20 4f 4b 21 0d 3f b6 10  f0 26 45 44 2c 35 32 30  | OK!.?...&ED,520|
00008c40  2c 33 35 30 0d 3f c0 10  ff 22 50 4f 49 4e 54 45  |,350.?..."POINTE|
00008c50  52 20 31 22 0d 3f ca 11  c8 97 58 58 58 2c 59 59  |R 1".?....XXX,YY|
00008c60  59 2c 5a 5a 5a 0d 3f d4  34 e7 58 58 58 3e 35 32  |Y,ZZZ.?.4.XXX>52|
00008c70  30 80 20 58 58 58 3c 37  32 30 80 20 59 59 59 3e  |0. XXX<720. YYY>|
00008c80  33 35 30 80 20 59 59 59  3c 35 35 30 80 20 5a 5a  |350. YYY<550. ZZ|
00008c90  5a 3d 34 8c e5 8d 54 50  5d 0d 3f de 09 e5 8d 64  |Z=4...TP].?....d|
00008ca0  4a 7f 0d 3f e8 05 e1 0d  3f f2 0c dd f2 63 68 61  |J..?....?....cha|
00008cb0  6e 67 65 0d 3f fc 0b c8  97 58 2c 59 2c 5a 0d 40  |nge.?....X,Y,Z.@|
00008cc0  06 11 e6 28 43 4f 4c 29  c8 9c 28 54 49 4e 29 0d  |...(COL)..(TIN).|
00008cd0  40 10 14 c8 99 22 48 6f  75 72 67 6c 61 73 73 5f  |@...."Hourglass_|
00008ce0  4f 6e 22 0d 40 1a 12 e3  51 25 3d 31 b8 20 53 49  |On".@...Q%=1. SI|
00008cf0  5a 45 20 88 32 0d 40 24  12 e3 43 25 3d 31 b8 20  |ZE .2.@$..C%=1. |
00008d00  53 49 5a 45 20 88 32 0d  40 2e 11 4c 3d b0 51 25  |SIZE .2.@..L=.Q%|
00008d10  2b 58 2c 43 25 2b 59 29  0d 40 38 13 4b 3d c8 9c  |+X,C%+Y).@8.K=..|
00008d20  28 51 25 2b 58 2c 43 25  2b 59 29 0d 40 42 2d e7  |(Q%+X,C%+Y).@B-.|
00008d30  20 4c 3d 43 4f 4c 43 48  41 4e 47 45 20 80 20 4b  | L=COLCHANGE . K|
00008d40  3d 54 49 4e 43 48 41 4e  47 45 20 8c 20 c8 92 51  |=TINCHANGE . ..Q|
00008d50  25 2b 58 2c 43 25 2b 59  0d 40 4c 25 e7 a6 2d 31  |%+X,C%+Y.@L%..-1|
00008d60  31 8c c8 99 22 48 6f 75  72 67 6c 61 73 73 5f 53  |1..."Hourglass_S|
00008d70  6d 61 73 68 22 3a f2 73  65 6c 65 63 74 0d 40 56  |mash":.select.@V|
00008d80  26 e7 a6 2d 31 32 8c c8  99 22 48 6f 75 72 67 6c  |&..-12..."Hourgl|
00008d90  61 73 73 5f 53 6d 61 73  68 22 3a f2 72 65 70 6c  |ass_Smash":.repl|
00008da0  61 63 65 0d 40 60 05 ed  0d 40 6a 05 ed 0d 40 74  |ace.@`...@j...@t|
00008db0  17 c8 99 22 48 6f 75 72  67 6c 61 73 73 5f 53 6d  |..."Hourglass_Sm|
00008dc0  61 73 68 22 0d 40 7e 0c  f2 72 65 70 6c 61 63 65  |ash".@~..replace|
00008dd0  0d 40 88 05 e1 0d 40 92  25 dd f2 70 72 6f 70 65  |.@....@.%..prope|
00008de0  6c 6f 72 3a f2 72 65 6d  61 6b 65 28 31 36 35 33  |lor:.remake(1653|
00008df0  30 2c 37 39 38 2c 38 32  30 29 0d 40 9c 05 f5 0d  |0,798,820).@....|
00008e00  40 a6 0b c8 97 41 2c 42  2c 43 0d 40 b0 16 e7 47  |@....A,B,C.@...G|
00008e10  52 49 44 3d 31 f2 69 6e  69 74 67 72 69 64 41 42  |RID=1.initgridAB|
00008e20  0d 40 ba 10 e7 43 3d 32  8c f2 73 65 6c 65 63 74  |.@...C=2..select|
00008e30  0d 40 c4 18 e7 a6 2d 39  30 e6 30 2c 30 3a f2 75  |.@....-90.0,0:.u|
00008e40  6e 64 6f 3a e6 34 2c 30  0d 40 ce 08 fd 43 3d 34  |ndo:.4,0.@...C=4|
00008e50  0d 40 d8 12 f5 3a c8 97  51 2c 57 2c 45 3a fd 45  |.@...:..Q,W,E:.E|
00008e60  3d 30 0d 40 e2 08 e6 34  2c 30 0d 40 ec 0b c8 97  |=0.@...4,0.@....|
00008e70  58 2c 59 2c 5a 0d 40 f6  16 e7 47 52 49 44 3d 31  |X,Y,Z.@...GRID=1|
00008e80  f2 69 6e 69 74 67 72 69  64 58 59 0d 41 00 0c 86  |.initgridXY.A...|
00008e90  41 2c 42 2c 58 2c 59 0d  41 0a 06 c8 96 0d 41 14  |A,B,X,Y.A.....A.|
00008ea0  06 c8 96 0d 41 1e 0c 86  41 2c 42 2c 58 2c 59 0d  |....A...A,B,X,Y.|
00008eb0  41 28 10 e7 5a 3d 32 8c  f2 73 65 6c 65 63 74 0d  |A(..Z=2..select.|
00008ec0  41 32 24 e7 5a 3d 34 8c  e6 28 43 4f 4c 29 c8 9c  |A2$.Z=4..(COL)..|
00008ed0  28 54 49 4e 29 3a 86 41  2c 42 2c 58 2c 59 3a e6  |(TIN):.A,B,X,Y:.|
00008ee0  34 2c 30 0d 41 3c 12 e7  5a 3d 31 8c f2 70 72 6f  |4,0.A<..Z=1..pro|
00008ef0  70 65 6c 6f 72 0d 41 46  18 e7 a6 2d 39 30 e6 30  |pelor.AF...-90.0|
00008f00  2c 30 3a f2 75 6e 64 6f  3a e6 34 2c 30 0d 41 50  |,0:.undo:.4,0.AP|
00008f10  09 e5 8d 60 6c 40 0d 41  5a 05 e1 0d 41 64 0d dd  |...`l@.AZ...Ad..|
00008f20  f2 72 65 70 6c 61 63 65  0d 41 6e 10 ff 22 50 4f  |.replace.An.."PO|
00008f30  49 4e 54 45 52 20 30 22  0d 41 78 08 e6 34 2c 30  |INTER 0".Ax..4,0|
00008f40  0d 41 82 0b c8 97 58 2c  59 2c 5a 0d 41 8c 16 e7  |.A....X,Y,Z.A...|
00008f50  47 52 49 44 3d 31 f2 69  6e 69 74 67 72 69 64 58  |GRID=1.initgridX|
00008f60  59 0d 41 96 13 e7 5a 3d  30 8c c8 93 58 2c 59 2c  |Y.A...Z=0...X,Y,|
00008f70  53 49 5a 45 0d 41 a0 09  c8 96 3a c8 96 0d 41 aa  |SIZE.A....:...A.|
00008f80  13 e7 5a 3d 30 8c c8 93  58 2c 59 2c 53 49 5a 45  |..Z=0...X,Y,SIZE|
00008f90  0d 41 b4 10 e7 5a 3d 34  8c f2 63 68 61 6e 67 65  |.A...Z=4..change|
00008fa0  0d 41 be 16 e7 5a 3d 31  8c f2 72 65 70 6c 61 63  |.A...Z=1..replac|
00008fb0  65 73 65 74 75 70 0d 41  c8 10 e7 5a 3d 32 8c f2  |esetup.A...Z=2..|
00008fc0  73 65 6c 65 63 74 0d 41  d2 18 e7 a6 2d 39 30 e6  |select.A....-90.|
00008fd0  30 2c 30 3a f2 75 6e 64  6f 3a e6 34 2c 30 0d 41  |0,0:.undo:.4,0.A|
00008fe0  dc 15 e7 a6 2d 35 38 20  53 49 5a 45 3d 53 49 5a  |....-58 SIZE=SIZ|
00008ff0  45 2b 35 0d 41 e6 15 e7  a6 2d 34 32 20 53 49 5a  |E+5.A....-42 SIZ|
00009000  45 3d 53 49 5a 45 2d 35  0d 41 f0 09 e5 8d 70 42  |E=SIZE-5.A....pB|
00009010  41 0d 41 fa 05 e1 0d 42  04 29 dd f2 72 65 70 6c  |A.A....B.)..repl|
00009020  61 63 65 73 65 74 75 70  3a f2 72 65 6d 61 6b 65  |acesetup:.remake|
00009030  28 31 36 39 30 30 2c 38  38 31 2c 38 32 30 29 0d  |(16900,881,820).|
00009040  42 0e 12 f5 3a c8 97 51  2c 57 2c 45 3a fd 45 3d  |B...:..Q,W,E:.E=|
00009050  30 0d 42 18 07 ef 31 32  0d 42 22 0b f2 72 65 64  |0.B...12.B"..red|
00009060  72 61 77 0d 42 2c 08 e6  34 2c 30 0d 42 36 10 ff  |raw.B,..4,0.B6..|
00009070  22 50 4f 49 4e 54 45 52  20 30 22 0d 42 40 06 ef  |"POINTER 0".B@..|
00009080  35 0d 42 4a 0c ec 34 30  30 2c 39 30 30 0d 42 54  |5.BJ..400,900.BT|
00009090  0b c8 97 58 2c 59 2c 5a  0d 42 5e 16 e7 47 52 49  |...X,Y,Z.B^..GRI|
000090a0  44 3d 31 f2 69 6e 69 74  67 72 69 64 58 59 0d 42  |D=1.initgridXY.B|
000090b0  68 10 e7 5a 3d 32 8c f2  73 65 6c 65 63 74 0d 42  |h..Z=2..select.B|
000090c0  72 12 86 58 2d 32 30 2c  59 2c 58 2b 32 30 2c 59  |r..X-20,Y,X+20,Y|
000090d0  0d 42 7c 12 86 58 2c 59  2d 31 38 2c 58 2c 59 2b  |.B|..X,Y-18,X,Y+|
000090e0  31 38 0d 42 86 10 ec 58  2d 31 30 30 2c 59 2d 31  |18.B...X-100,Y-1|
000090f0  30 30 0d 42 90 14 f1 22  53 45 4c 45 43 54 20 43  |00.B..."SELECT C|
00009100  4f 4c 4f 55 52 22 0d 42  9a 06 c8 96 0d 42 a4 06  |OLOUR".B.....B..|
00009110  c8 96 0d 42 ae 12 86 58  2d 32 30 2c 59 2c 58 2b  |...B...X-20,Y,X+|
00009120  32 30 2c 59 0d 42 b8 12  86 58 2c 59 2d 31 38 2c  |20,Y.B...X,Y-18,|
00009130  58 2c 59 2b 31 38 0d 42  c2 10 ec 58 2d 31 30 30  |X,Y+18.B...X-100|
00009140  2c 59 2d 31 30 30 0d 42  cc 14 f1 22 53 45 4c 45  |,Y-100.B..."SELE|
00009150  43 54 20 43 4f 4c 4f 55  52 22 0d 42 d6 30 e7 5a  |CT COLOUR".B.0.Z|
00009160  3d 34 8c 54 49 4e 43 48  41 4e 47 45 3d c8 9c 28  |=4.TINCHANGE=..(|
00009170  58 2c 59 29 3a 43 4f 4c  43 48 41 4e 47 45 3d b0  |X,Y):COLCHANGE=.|
00009180  58 2c 59 29 3a e5 8d 60  6a 42 0d 42 e0 09 e5 8d  |X,Y):..`jB.B....|
00009190  40 54 42 0d 42 ea 0b f2  72 65 64 72 61 77 0d 42  |@TB.B...redraw.B|
000091a0  f4 12 f5 3a c8 97 51 2c  57 2c 45 3a fd 45 3d 30  |...:..Q,W,E:.E=0|
000091b0  0d 42 fe 08 e6 30 2c 30  0d 43 08 0c f2 72 65 70  |.B...0,0.C...rep|
000091c0  6c 61 63 65 0d 43 12 05  e1 0d 43 1c 25 dd f2 70  |lace.C....C.%..p|
000091d0  61 72 61 6c 6c 65 6c 3a  f2 72 65 6d 61 6b 65 28  |arallel:.remake(|
000091e0  31 37 31 38 30 2c 37 31  34 2c 38 32 30 29 0d 06  |17180,714,820)..|
000091f0  fe 05 f5 0d 43 30 0b c8  97 41 2c 42 2c 43 0d 43  |....C0...A,B,C.C|
00009200  3a 16 e7 47 52 49 44 3d  31 f2 69 6e 69 74 67 72  |:..GRID=1.initgr|
00009210  69 64 41 42 0d 43 44 10  e7 43 3d 32 8c f2 73 65  |idAB.CD..C=2..se|
00009220  6c 65 63 74 0d 43 4e 18  e7 a6 2d 39 30 e6 30 2c  |lect.CN...-90.0,|
00009230  30 3a f2 75 6e 64 6f 3a  e6 34 2c 30 0d 43 58 08  |0:.undo:.4,0.CX.|
00009240  fd 43 3d 34 0d 43 62 12  f5 3a c8 97 51 2c 57 2c  |.C=4.Cb..:..Q,W,|
00009250  45 3a fd 45 3d 30 0d 43  6c 08 e6 34 2c 30 0d 43  |E:.E=0.Cl..4,0.C|
00009260  76 0b c8 97 58 2c 59 2c  5a 0d 43 80 16 e7 47 52  |v...X,Y,Z.C...GR|
00009270  49 44 3d 31 f2 69 6e 69  74 67 72 69 64 58 59 0d  |ID=1.initgridXY.|
00009280  43 8a 0c 86 41 2c 42 2c  58 2c 59 0d 43 94 09 c8  |C...A,B,X,Y.C...|
00009290  96 3a c8 96 0d 43 9e 0c  86 41 2c 42 2c 58 2c 59  |.:...C...A,B,X,Y|
000092a0  0d 43 a8 13 e7 20 5a 3d  32 20 8c 20 f2 73 65 6c  |.C... Z=2 . .sel|
000092b0  65 63 74 0d 43 b2 11 e7  20 5a 3d 34 20 8c 20 e5  |ect.C... Z=4 . .|
000092c0  8d 60 50 43 0d 43 bc 15  e7 20 5a 3d 31 20 8c 20  |.`PC.C... Z=1 . |
000092d0  f2 70 61 72 61 6c 6c 65  6c 0d 43 c1 1a e7 20 a6  |.parallel.C... .|
000092e0  2d 39 30 20 e6 30 2c 30  3a f2 75 6e 64 6f 3a e6  |-90 .0,0:.undo:.|
000092f0  34 2c 30 0d 43 c6 09 e5  8d 40 76 43 0d 43 d0 12  |4,0.C....@vC.C..|
00009300  f5 3a c8 97 51 2c 57 2c  45 3a fd 45 3d 30 0d 43  |.:..Q,W,E:.E=0.C|
00009310  da 15 44 49 46 58 3d 41  2d 58 3a 44 49 46 59 3d  |..DIFX=A-X:DIFY=|
00009320  42 2d 59 0d 43 e4 0e c8  97 58 58 2c 59 59 2c 5a  |B-Y.C....XX,YY,Z|
00009330  5a 0d 43 ee 18 e7 47 52  49 44 3d 31 f2 69 6e 69  |Z.C...GRID=1.ini|
00009340  74 67 72 69 64 58 58 59  59 0d 43 f8 0c 86 41 2c  |tgridXXYY.C...A,|
00009350  42 2c 58 2c 59 0d 44 02  0e 86 58 2c 59 2c 58 58  |B,X,Y.D...X,Y,XX|
00009360  2c 59 59 0d 44 0c 1a 86  58 58 2c 59 59 2c 58 58  |,YY.D...XX,YY,XX|
00009370  2b 44 49 46 58 2c 59 59  2b 44 49 46 59 0d 44 16  |+DIFX,YY+DIFY.D.|
00009380  18 86 58 58 2b 44 49 46  58 2c 59 59 2b 44 49 46  |..XX+DIFX,YY+DIF|
00009390  59 2c 41 2c 42 0d 44 20  09 c8 96 3a c8 96 0d 44  |Y,A,B.D ...:...D|
000093a0  2a 0c 86 41 2c 42 2c 58  2c 59 0d 44 34 0e 86 58  |*..A,B,X,Y.D4..X|
000093b0  2c 59 2c 58 58 2c 59 59  0d 44 3e 1a 86 58 58 2c  |,Y,XX,YY.D>..XX,|
000093c0  59 59 2c 58 58 2b 44 49  46 58 2c 59 59 2b 44 49  |YY,XX+DIFX,YY+DI|
000093d0  46 59 0d 44 48 18 86 58  58 2b 44 49 46 58 2c 59  |FY.DH..XX+DIFX,Y|
000093e0  59 2b 44 49 46 59 2c 41  2c 42 0d 44 52 14 e7 20  |Y+DIFY,A,B.DR.. |
000093f0  5a 5a 3d 32 20 8c 20 f2  73 65 6c 65 63 74 0d 44  |ZZ=2 . .select.D|
00009400  5c 1a e7 20 a6 2d 39 30  20 e6 30 2c 30 3a f2 75  |\.. .-90 .0,0:.u|
00009410  6e 64 6f 3a e6 34 2c 30  0d 44 66 39 e7 20 5a 5a  |ndo:.4,0.Df9. ZZ|
00009420  3d 34 20 8c 20 e6 28 43  4f 4c 29 c8 9c 28 54 49  |=4 . .(COL)..(TI|
00009430  4e 29 3a ec 41 2c 42 3a  ec 58 2c 59 3a f0 26 37  |N):.A,B:.X,Y:.&7|
00009440  35 2c 58 58 2c 59 59 3a  f2 70 61 72 61 6c 6c 65  |5,XX,YY:.paralle|
00009450  6c 0d 44 70 16 e7 20 5a  5a 3d 31 20 8c 20 f2 70  |l.Dp.. ZZ=1 . .p|
00009460  61 72 61 6c 6c 65 6c 0d  44 7a 09 e5 8d 60 5a 43  |arallel.Dz...`ZC|
00009470  0d 45 4c 05 e1 0d 45 56  24 dd f2 73 6d 75 64 67  |.EL...EV$..smudg|
00009480  65 3a f2 72 65 6d 61 6b  65 28 31 37 37 35 30 2c  |e:.remake(17750,|
00009490  31 31 32 36 2c 38 32 30  29 0d 45 60 10 ff 22 50  |1126,820).E`.."P|
000094a0  4f 49 4e 54 45 52 20 30  22 0d 45 6a 08 e6 34 2c  |OINTER 0".Ej..4,|
000094b0  30 0d 45 74 1f c8 97 c8  93 30 2c 30 2c 31 32 37  |0.Et.....0,0,127|
000094c0  38 2d 53 49 5a 45 2c 31  30 32 33 2d 53 49 5a 45  |8-SIZE,1023-SIZE|
000094d0  0d 45 7e 0b c8 97 58 2c  59 2c 5a 0d 45 88 16 e7  |.E~...X,Y,Z.E...|
000094e0  47 52 49 44 3d 31 f2 69  6e 69 74 67 72 69 64 58  |GRID=1.initgridX|
000094f0  59 0d 45 92 06 c8 96 0d  45 9c 0b c8 97 41 2c 42  |Y.E.....E....A,B|
00009500  2c 43 0d 45 a6 0e c8 93  58 2c 59 2c 53 49 5a 45  |,C.E....X,Y,SIZE|
00009510  0d 45 b0 06 c8 96 0d 45  ba 0e c8 93 58 2c 59 2c  |.E.....E....X,Y,|
00009520  53 49 5a 45 0d 45 c4 31  e7 a6 2d 35 38 8c 53 49  |SIZE.E.1..-58.SI|
00009530  5a 45 3d 53 49 5a 45 2b  35 3a c8 97 c8 93 30 2c  |ZE=SIZE+5:....0,|
00009540  30 2c 31 32 37 38 2d 53  49 5a 45 2c 31 30 32 33  |0,1278-SIZE,1023|
00009550  2d 53 49 5a 45 0d 45 ce  31 e7 a6 2d 34 32 8c 53  |-SIZE.E.1..-42.S|
00009560  49 5a 45 3d 53 49 5a 45  2d 35 3a c8 97 c8 93 30  |IZE=SIZE-5:....0|
00009570  2c 30 2c 31 32 37 38 2d  53 49 5a 45 2c 31 30 32  |,0,1278-SIZE,102|
00009580  33 2d 53 49 5a 45 0d 45  d8 19 e7 5a 3d 34 8c c8  |3-SIZE.E...Z=4..|
00009590  93 58 2c 59 2c 28 53 49  5a 45 29 b8 41 2c 42 0d  |.X,Y,(SIZE).A,B.|
000095a0  45 e2 12 e7 53 49 5a 45  3c 30 8c 53 49 5a 45 3d  |E...SIZE<0.SIZE=|
000095b0  36 0d 45 ec 10 e7 5a 3d  32 8c f2 73 65 6c 65 63  |6.E...Z=2..selec|
000095c0  74 0d 45 f6 18 e7 a6 2d  39 30 e6 30 2c 30 3a f2  |t.E....-90.0,0:.|
000095d0  75 6e 64 6f 3a e6 34 2c  30 0d 46 00 09 e5 8d 40  |undo:.4,0.F....@|
000095e0  7e 45 0d 46 0a 05 e1 0d  46 14 24 dd f2 73 65 6c  |~E.F....F.$..sel|
000095f0  65 63 74 32 3a f2 72 65  6d 61 6b 65 28 31 37 39  |ect2:.remake(179|
00009600  34 30 2c 36 33 32 2c 38  32 30 29 0d 46 1e 13 ff  |40,632,820).F...|
00009610  22 50 4f 49 4e 54 45 52  20 30 22 3a ef 35 0d 46  |"POINTER 0":.5.F|
00009620  28 08 e6 34 2c 30 0d 46  32 0b c8 97 58 2c 59 2c  |(..4,0.F2...X,Y,|
00009630  5a 0d 46 3c 16 e7 47 52  49 44 3d 31 f2 69 6e 69  |Z.F<..GRID=1.ini|
00009640  74 67 72 69 64 58 59 0d  46 46 12 86 58 2d 32 30  |tgridXY.FF..X-20|
00009650  2c 59 2c 58 2b 32 30 2c  59 0d 46 50 30 86 58 2c  |,Y,X+20,Y.FP0.X,|
00009660  59 2b 32 30 2c 58 2c 59  2d 32 30 3a ec 58 2d 31  |Y+20,X,Y-20:.X-1|
00009670  30 35 2c 59 2d 31 30 30  3a f1 22 53 45 4c 45 43  |05,Y-100:."SELEC|
00009680  54 20 43 4f 4c 4f 55 52  22 0d 46 5a 09 c8 96 3a  |T COLOUR".FZ...:|
00009690  c8 96 0d 46 64 12 86 58  2d 32 30 2c 59 2c 58 2b  |...Fd..X-20,Y,X+|
000096a0  32 30 2c 59 0d 46 6e 30  86 58 2c 59 2b 32 30 2c  |20,Y.Fn0.X,Y+20,|
000096b0  58 2c 59 2d 32 30 3a ec  58 2d 31 30 35 2c 59 2d  |X,Y-20:.X-105,Y-|
000096c0  31 30 30 3a f1 22 53 45  4c 45 43 54 20 43 4f 4c  |100:."SELECT COL|
000096d0  4f 55 52 22 0d 46 78 10  e7 5a 3d 32 8c f2 73 65  |OUR".Fx..Z=2..se|
000096e0  6c 65 63 74 0d 46 82 26  e7 5a 3d 34 8c 43 4f 4c  |lect.F.&.Z=4.COL|
000096f0  3d b0 58 2c 59 29 3a 54  49 4e 3d c8 9c 28 58 2c  |=.X,Y):TIN=..(X,|
00009700  59 29 3a f2 73 65 6c 65  63 74 0d 46 8c 09 e5 8d  |Y):.select.F....|
00009710  50 72 46 0d 46 96 05 e1  0d 46 a0 21 dd f2 6d 69  |PrF.F....F.!..mi|
00009720  78 65 72 3a f2 72 65 6d  61 6b 65 28 31 38 30 38  |xer:.remake(1808|
00009730  30 2c 35 30 2c 38 32 30  29 0d 46 aa 10 e6 34 2c  |0,50,820).F...4,|
00009740  30 3a c8 97 20 87 3a ef  35 0d 46 b4 0b c8 97 58  |0:.. .:.5.F....X|
00009750  2c 59 2c 5a 0d 46 be 3f  86 58 2d 35 30 2c 59 2c  |,Y,Z.F.?.X-50,Y,|
00009760  58 2b 35 30 2c 59 3a 86  58 2c 59 2b 35 30 2c 58  |X+50,Y:.X,Y+50,X|
00009770  2c 59 2d 35 30 3a ec 58  2d 31 30 35 2c 59 2d 31  |,Y-50:.X-105,Y-1|
00009780  30 30 3a f1 22 53 45 4c  45 43 54 20 43 4f 4c 4f  |00:."SELECT COLO|
00009790  55 52 22 0d 46 c8 09 c8  96 3a c8 96 0d 46 d2 3f  |UR".F....:...F.?|
000097a0  86 58 2d 35 30 2c 59 2c  58 2b 35 30 2c 59 3a 86  |.X-50,Y,X+50,Y:.|
000097b0  58 2c 59 2b 35 30 2c 58  2c 59 2d 35 30 3a ec 58  |X,Y+50,X,Y-50:.X|
000097c0  2d 31 30 35 2c 59 2d 31  30 30 3a f1 22 53 45 4c  |-105,Y-100:."SEL|
000097d0  45 43 54 20 43 4f 4c 4f  55 52 22 0d 46 dc 13 e7  |ECT COLOUR".F...|
000097e0  20 5a 3d 32 20 8c 20 f2  73 65 6c 65 63 74 0d 46  | Z=2 . .select.F|
000097f0  e6 3d e7 20 5a 3d 34 20  8c 20 43 4f 4c 43 48 41  |.=. Z=4 . COLCHA|
00009800  3d b0 58 2c 59 29 3a 54  49 4e 43 48 41 3d c8 9c  |=.X,Y):TINCHA=..|
00009810  28 58 2c 59 29 3a f5 3a  c8 97 51 2c 57 2c 45 3a  |(X,Y):.:..Q,W,E:|
00009820  fd 20 45 3d 30 3a e5 8d  60 7a 46 0d 46 f0 09 e5  |. E=0:..`zF.F...|
00009830  8d 70 6a 46 0d 46 fa 0b  c8 97 58 2c 59 2c 5a 0d  |.pjF.F....X,Y,Z.|
00009840  47 04 13 c8 93 58 2c 59  2c 53 49 5a 45 2c 53 49  |G....X,Y,SIZE,SI|
00009850  5a 45 0d 47 0e 06 c8 96  0d 47 18 06 c8 96 0d 47  |ZE.G.....G.....G|
00009860  22 13 c8 93 58 2c 59 2c  53 49 5a 45 2c 53 49 5a  |"...X,Y,SIZE,SIZ|
00009870  45 0d 47 2c 13 e7 20 5a  3d 34 20 8c 20 f2 64 69  |E.G,.. Z=4 . .di|
00009880  74 68 65 72 0d 47 36 13  e7 20 5a 3d 32 20 8c 20  |ther.G6.. Z=2 . |
00009890  f2 73 65 6c 65 63 74 0d  47 40 1a e7 20 a6 2d 39  |.select.G@.. .-9|
000098a0  30 20 e6 30 2c 30 3a f2  75 6e 64 6f 3a e6 34 2c  |0 .0,0:.undo:.4,|
000098b0  30 0d 47 4a 15 e7 a6 2d  35 38 20 53 49 5a 45 3d  |0.GJ...-58 SIZE=|
000098c0  53 49 5a 45 2b 35 0d 47  54 15 e7 a6 2d 34 32 20  |SIZE+5.GT...-42 |
000098d0  53 49 5a 45 3d 53 49 5a  45 2d 35 0d 47 5e 09 e5  |SIZE=SIZE-5.G^..|
000098e0  8d 60 7a 46 0d 47 68 05  e1 0d 47 72 0c dd f2 64  |.`zF.Gh...Gr...d|
000098f0  69 74 68 65 72 0d 47 7c  11 e6 28 43 4f 4c 29 c8  |ither.G|..(COL).|
00009900  9c 28 54 49 4e 29 0d 47  86 11 e3 41 3d 31 b8 20  |.(TIN).G...A=1. |
00009910  53 49 5a 45 20 88 34 0d  47 90 11 e3 42 3d 31 b8  |SIZE .4.G...B=1.|
00009920  20 53 49 5a 45 20 88 34  0d 47 9a 4f 43 4f 4c 43  | SIZE .4.G.OCOLC|
00009930  48 3d b0 58 2b 41 2c 59  2b 42 29 3a 54 49 4e 43  |H=.X+A,Y+B):TINC|
00009940  48 3d c8 9c 28 58 2b 41  2c 59 2b 42 29 3a e7 20  |H=..(X+A,Y+B):. |
00009950  43 4f 4c 43 48 3d 43 4f  4c 43 48 41 20 80 20 54  |COLCH=COLCHA . T|
00009960  49 4e 43 48 3d 54 49 4e  43 48 41 20 8c 20 c8 92  |INCH=TINCHA . ..|
00009970  41 2b 58 2c 42 2b 59 0d  47 a4 12 e7 20 a6 2d 31  |A+X,B+Y.G... .-1|
00009980  31 20 f2 73 65 6c 65 63  74 0d 47 ae 19 e7 20 a6  |1 .select.G... .|
00009990  2d 31 32 20 f2 72 65 64  72 61 77 3a f2 6d 69 78  |-12 .redraw:.mix|
000099a0  65 72 0d 47 b8 05 ed 0d  47 c2 05 ed 0d 47 cc 08  |er.G....G....G..|
000099b0  e6 34 2c 30 0d 47 d6 05  e1 0d 47 e0 23 dd f2 6d  |.4,0.G....G.#..m|
000099c0  75 6c 74 69 3a f2 72 65  6d 61 6b 65 28 31 38 34  |ulti:.remake(184|
000099d0  30 30 2c 31 31 32 36 2c  39 30 30 29 0d 47 ea 08  |00,1126,900).G..|
000099e0  e6 34 2c 30 0d 47 f4 10  ff 22 50 4f 49 4e 54 45  |.4,0.G..."POINTE|
000099f0  52 20 30 22 0d 47 fe 0b  c8 97 58 2c 59 2c 5a 0d  |R 0".G....X,Y,Z.|
00009a00  48 08 17 e7 47 52 49 44  3d 31 20 f2 69 6e 69 74  |H...GRID=1 .init|
00009a10  67 72 69 64 58 59 0d 48  12 10 c8 8f 58 2c 59 2c  |gridXY.H....X,Y,|
00009a20  53 49 5a 45 2f 32 0d 48  1c 06 c8 96 0d 48 26 06  |SIZE/2.H.....H&.|
00009a30  c8 96 0d 48 30 10 c8 8f  58 2c 59 2c 53 49 5a 45  |...H0...X,Y,SIZE|
00009a40  2f 32 0d 48 3a 23 e7 5a  3d 34 8c e6 b3 28 36 34  |/2.H:#.Z=4...(64|
00009a50  29 3a c8 8f c8 90 58 2c  59 2c 53 49 5a 45 2f 32  |):....X,Y,SIZE/2|
00009a60  3a e6 34 2c 30 0d 48 44  10 e7 5a 3d 32 8c f2 73  |:.4,0.HD..Z=2..s|
00009a70  65 6c 65 63 74 0d 48 4e  18 e7 a6 2d 39 30 e6 30  |elect.HN...-90.0|
00009a80  2c 30 3a f2 75 6e 64 6f  3a e6 34 2c 30 0d 48 58  |,0:.undo:.4,0.HX|
00009a90  15 e7 a6 2d 35 38 20 53  49 5a 45 3d 53 49 5a 45  |...-58 SIZE=SIZE|
00009aa0  2b 35 0d 48 62 15 e7 a6  2d 34 32 20 53 49 5a 45  |+5.Hb...-42 SIZE|
00009ab0  3d 53 49 5a 45 2d 35 0d  48 6c 18 e7 53 49 5a 45  |=SIZE-5.Hl..SIZE|
00009ac0  3e 31 30 32 33 8c 53 49  5a 45 3d 31 30 32 32 0d  |>1023.SIZE=1022.|
00009ad0  48 76 12 e7 53 49 5a 45  3c 36 8c 53 49 5a 45 3d  |Hv..SIZE<6.SIZE=|
00009ae0  36 0d 48 80 09 e5 8d 60  7e 47 0d 48 8a 05 e1 0d  |6.H....`~G.H....|
00009af0  48 94 0a dd f2 65 78 69  74 0d 48 9e 14 2a 61 6c  |H....exit.H..*al|
00009b00  70 68 61 62 65 74 20 6c  61 74 69 6e 31 0d 48 a8  |phabet latin1.H.|
00009b10  17 c8 99 22 48 6f 75 72  67 6c 61 73 73 5f 53 6d  |..."Hourglass_Sm|
00009b20  61 73 68 22 0d 48 b2 17  c8 99 22 57 69 6d 70 5f  |ash".H...."Wimp_|
00009b30  53 65 74 4d 6f 64 65 22  2c 31 35 0d 48 ee 09 e5  |SetMode",15.H...|
00009b40  8d 54 54 40 0d 48 c6 05  e1 0d 48 d0 0a dd f2 68  |.TT@.H....H....h|
00009b50  65 6c 70 0d 48 da 0c eb  31 35 3a c8 97 20 ee 0d  |elp.H...15:.. ..|
00009b60  48 e4 19 2a 44 49 52 20  3c 53 50 41 43 45 24 44  |H..*DIR <SPACE$D|
00009b70  49 52 3e 2e 48 45 4c 50  0d 48 ee 12 ff 22 54 59  |IR>.HELP.H..."TY|
00009b80  50 45 20 22 2b 68 65 6c  70 24 0d 48 f8 07 fb 31  |PE "+help$.H...1|
00009b90  35 0d 49 02 1b f1 22 43  4c 49 43 4b 20 41 20 4d  |5.I..."CLICK A M|
00009ba0  4f 55 53 45 20 42 55 54  54 4f 4e 22 0d 49 0c 05  |OUSE BUTTON".I..|
00009bb0  f5 0d 49 16 15 c8 97 58  2c 59 2c 5a 3a fd 5a 3c  |..I....X,Y,Z:.Z<|
00009bc0  38 80 20 5a 3e 30 0d 49  20 09 e5 8d 54 50 5d 0d  |8. Z>0.I ...TP].|
00009bd0  49 2a 05 e1 0d 49 34 0b  dd f2 68 65 6c 70 32 0d  |I*...I4...help2.|
00009be0  49 3e 0c eb 31 35 3a c8  97 20 ee 0d 49 48 19 2a  |I>..15:.. ..IH.*|
00009bf0  44 49 52 20 3c 53 50 41  43 45 24 44 49 52 3e 2e  |DIR <SPACE$DIR>.|
00009c00  48 45 4c 50 0d 49 52 0e  2a 54 59 50 45 20 4d 41  |HELP.IR.*TYPE MA|
00009c10  49 4e 0d 49 5c 07 fb 31  35 0d 49 66 1b f1 22 43  |IN.I\..15.If.."C|
00009c20  4c 49 43 4b 20 41 20 4d  4f 55 53 45 20 42 55 54  |LICK A MOUSE BUT|
00009c30  54 4f 4e 22 0d 49 70 05  f5 0d 49 7a 15 c8 97 58  |TON".Ip...Iz...X|
00009c40  2c 59 2c 5a 3a fd 5a 3c  38 80 20 5a 3e 30 0d 49  |,Y,Z:.Z<8. Z>0.I|
00009c50  84 09 e5 8d 54 50 5d 0d  49 8e 05 e1 0d 49 98 10  |....TP].I....I..|
00009c60  dd f2 69 6e 69 74 67 72  69 64 58 59 0d 49 a2 13  |..initgridXY.I..|
00009c70  e3 51 51 51 51 3d 31 b8  31 32 38 30 88 35 30 0d  |.QQQQ=1.1280.50.|
00009c80  49 ac 24 e7 20 58 3e 51  51 51 51 20 80 20 58 3c  |I.$. X>QQQQ . X<|
00009c90  51 51 51 51 2b 35 30 20  8c 20 58 3d 51 51 51 51  |QQQQ+50 . X=QQQQ|
00009ca0  2b 32 35 0d 49 b6 24 e7  20 59 3e 51 51 51 51 20  |+25.I.$. Y>QQQQ |
00009cb0  80 20 59 3c 51 51 51 51  2b 35 30 20 8c 20 59 3d  |. Y<QQQQ+50 . Y=|
00009cc0  51 51 51 51 2b 32 35 0d  49 c0 05 ed 0d 49 ca 05  |QQQQ+25.I....I..|
00009cd0  e1 0d 49 d4 10 dd f2 69  6e 69 74 67 72 69 64 41  |..I....initgridA|
00009ce0  42 0d 49 de 13 e3 51 51  51 51 3d 31 b8 31 32 38  |B.I...QQQQ=1.128|
00009cf0  30 88 35 30 0d 49 e8 24  e7 20 41 3e 51 51 51 51  |0.50.I.$. A>QQQQ|
00009d00  20 80 20 41 3c 51 51 51  51 2b 35 30 20 8c 20 41  | . A<QQQQ+50 . A|
00009d10  3d 51 51 51 51 2b 32 35  0d 49 f2 24 e7 20 42 3e  |=QQQQ+25.I.$. B>|
00009d20  51 51 51 51 20 80 20 42  3c 51 51 51 51 2b 35 30  |QQQQ . B<QQQQ+50|
00009d30  20 8c 20 42 3d 51 51 51  51 2b 32 35 0d 49 fc 05  | . B=QQQQ+25.I..|
00009d40  ed 0d 4a 06 05 e1 0d 4a  10 12 dd f2 69 6e 69 74  |..J....J....init|
00009d50  67 72 69 64 41 41 42 42  0d 4a 1a 13 e3 51 51 51  |gridAABB.J...QQQ|
00009d60  51 3d 31 b8 31 32 38 30  88 35 30 0d 4a 24 27 e7  |Q=1.1280.50.J$'.|
00009d70  20 41 41 3e 51 51 51 51  20 80 20 41 41 3c 51 51  | AA>QQQQ . AA<QQ|
00009d80  51 51 2b 35 30 20 8c 20  41 41 3d 51 51 51 51 2b  |QQ+50 . AA=QQQQ+|
00009d90  32 35 0d 4a 2e 27 e7 20  42 42 3e 51 51 51 51 20  |25.J.'. BB>QQQQ |
00009da0  80 20 42 42 3c 51 51 51  51 2b 35 30 20 8c 20 42  |. BB<QQQQ+50 . B|
00009db0  42 3d 51 51 51 51 2b 32  35 0d 4a 38 05 ed 0d 4a  |B=QQQQ+25.J8...J|
00009dc0  42 05 e1 0d 4a 4c 12 dd  f2 69 6e 69 74 67 72 69  |B...JL...initgri|
00009dd0  64 58 58 59 59 0d 4a 56  13 e3 51 51 51 51 3d 31  |dXXYY.JV..QQQQ=1|
00009de0  b8 31 32 38 30 88 35 30  0d 4a 60 27 e7 20 58 58  |.1280.50.J`'. XX|
00009df0  3e 51 51 51 51 20 80 20  58 58 3c 51 51 51 51 2b  |>QQQQ . XX<QQQQ+|
00009e00  35 30 20 8c 20 58 58 3d  51 51 51 51 2b 32 35 0d  |50 . XX=QQQQ+25.|
00009e10  4a 6a 27 e7 20 59 59 3e  51 51 51 51 20 80 20 59  |Jj'. YY>QQQQ . Y|
00009e20  59 3c 51 51 51 51 2b 35  30 20 8c 20 59 59 3d 51  |Y<QQQQ+50 . YY=Q|
00009e30  51 51 51 2b 32 35 0d 4a  74 05 ed 0d 4a 7e 05 e1  |QQQ+25.Jt...J~..|
00009e40  0d 4a 88 0e dd f2 64 72  61 77 67 72 69 64 0d 4a  |.J....drawgrid.J|
00009e50  92 11 e3 46 46 3d 31 b8  31 32 38 30 88 35 30 0d  |...FF=1.1280.50.|
00009e60  4a 9c 11 86 46 46 2c 30  2c 46 46 2c 31 32 38 30  |J...FF,0,FF,1280|
00009e70  0d 4a a6 05 ed 0d 4a b0  11 e3 46 46 3d 31 b8 31  |.J....J...FF=1.1|
00009e80  32 38 30 88 35 30 0d 4a  ba 11 86 30 2c 46 46 2c  |280.50.J...0,FF,|
00009e90  31 32 38 30 2c 46 46 0d  4a c4 05 ed 0d 4a ce 05  |1280,FF.J....J..|
00009ea0  e1 0d 4a d8 1e dd f2 72  65 6d 61 6b 65 28 68 68  |..J....remake(hh|
00009eb0  68 68 2c 78 78 78 78 78  2c 79 79 79 79 79 29 0d  |hh,xxxxx,yyyyy).|
00009ec0  4a e2 2a 72 65 6d 61 6b  65 25 3d 68 68 68 68 3a  |J.*remake%=hhhh:|
00009ed0  78 78 78 78 78 78 3d 78  78 78 78 78 3a 79 79 79  |xxxxxx=xxxxx:yyy|
00009ee0  79 79 79 3d 79 79 79 79  79 0d 4a ec 05 e1 0d 4b  |yyy=yyyyy.J....K|
00009ef0  78 0b dd f2 68 65 6c 70  33 0d 4b 82 19 2a 44 49  |x...help3.K..*DI|
00009f00  52 20 3c 53 50 41 43 45  24 44 49 52 3e 2e 48 45  |R <SPACE$DIR>.HE|
00009f10  4c 50 0d 4b 8c 07 eb 31  35 0d 4b 96 0e 2a 54 59  |LP.K...15.K..*TY|
00009f20  50 45 20 4d 41 49 4e 0d  4b a0 07 fb 35 33 0d 4b  |PE MAIN.K...53.K|
00009f30  aa 1b f1 22 43 4c 49 43  4b 20 41 20 4d 4f 55 53  |..."CLICK A MOUS|
00009f40  45 20 42 55 54 54 4f 4e  22 0d 4b b4 18 f5 3a c8  |E BUTTON".K...:.|
00009f50  97 58 2c 59 2c 5a 3a fd  5a 3e 30 20 80 20 5a 3c  |.X,Y,Z:.Z>0 . Z<|
00009f60  38 0d 4b be 2a c8 99 22  57 69 6d 70 5f 53 65 74  |8.K.*.."Wimp_Set|
00009f70  4d 6f 64 65 22 2c 31 35  3a f2 57 69 6d 70 5f 57  |Mode",15:.Wimp_W|
00009f80  61 69 74 46 6f 72 45 76  65 6e 74 0d 4b c8 05 e1  |aitForEvent.K...|
00009f90  0d 4b d2 0d dd f2 6f 70  65 6e 64 69 72 0d 4b dc  |.K....opendir.K.|
00009fa0  29 2a 46 49 4c 45 52 5f  4f 50 45 4e 44 49 52 20  |)*FILER_OPENDIR |
00009fb0  3c 53 50 41 43 45 24 44  49 52 3e 2e 73 70 72 69  |<SPACE$DIR>.spri|
00009fc0  74 65 50 49 43 53 0d 4b  e6 05 e1 0d 4b f0 12 dd  |tePICS.K....K...|
00009fd0  f2 64 6f 63 6f 6c 28 67  63 6f 6c 25 29 0d 4b fa  |.docol(gcol%).K.|
00009fe0  11 e3 42 42 46 3d 31 b8  32 35 35 88 36 34 0d 4c  |..BBF=1.255.64.L|
00009ff0  04 11 e6 67 63 6f 6c 25  c8 9c 28 42 42 46 29 0d  |...gcol%..(BBF).|
0000a000  4c 0e 17 c8 93 20 c8 90  70 6f 73 25 2c 42 42 46  |L.... ..pos%,BBF|
0000a010  2c 34 34 2c 36 34 0d 4c  18 05 ed 0d 4c 22 10 70  |,44,64.L....L".p|
0000a020  6f 73 25 3d 70 6f 73 25  2b 34 34 0d 4c 2c 05 e1  |os%=pos%+44.L,..|
0000a030  0d 4c 36 0a dd f2 6c 69  73 74 0d 4c 40 07 eb 31  |.L6...list.L@..1|
0000a040  35 0d 4c 4a 2c e7 20 43  4f 4d 50 3d 30 20 8c 20  |5.LJ,. COMP=0 . |
0000a050  ff 22 44 49 52 20 3c 53  50 41 43 45 24 44 49 52  |."DIR <SPACE$DIR|
0000a060  3e 2e 53 50 52 49 54 45  50 49 43 53 22 0d 4c 54  |>.SPRITEPICS".LT|
0000a070  2b e7 20 43 4f 4d 50 3d  31 20 8c 20 ff 22 44 49  |+. COMP=1 . ."DI|
0000a080  52 20 3c 53 50 41 43 45  24 44 49 52 3e 2e 53 50  |R <SPACE$DIR>.SP|
0000a090  41 43 45 50 49 43 53 22  0d 4c 5e 07 2a 45 58 0d  |ACEPICS".L^.*EX.|
0000a0a0  4c 68 07 fb 31 35 0d 4c  72 19 f1 22 50 52 45 53  |Lh..15.Lr.."PRES|
0000a0b0  53 20 54 48 45 20 53 50  41 43 45 42 41 52 22 0d  |S THE SPACEBAR".|
0000a0c0  4c 7c 05 f5 0d 4c 90 0a  fd 20 a6 2d 39 39 0d 4c  |L|...L... .-99.L|
0000a0d0  9a 0f c8 97 20 ee 3a f2  66 69 6c 65 73 0d 4c a4  |.... .:.files.L.|
0000a0e0  05 e1 0d 4c ae 11 dd f2  63 68 65 63 6b 5f 63 6c  |...L....check_cl|
0000a0f0  65 61 72 0d 4c b8 07 eb  31 35 0d 4c c2 0c e3 51  |ear.L...15.L...Q|
0000a100  3d 31 b8 33 30 30 0d 4c  cc 1d c8 8f 20 c8 90 b3  |=1.300.L.... ...|
0000a110  28 31 32 38 30 29 2c b3  28 31 30 32 34 29 2c b3  |(1280),.(1024),.|
0000a120  28 32 29 0d 4c d6 05 ed  0d 4c e0 12 2a 53 43 48  |(2).L....L..*SCH|
0000a130  4f 4f 53 45 20 4f 50 54  4f 4e 0d 4c ea 35 c8 91  |OOSE OPTON.L.5..|
0000a140  33 30 30 2c 32 30 30 3a  f0 26 45 44 2c 30 2c 30  |300,200:.&ED,0,0|
0000a150  3a f0 26 45 44 2c 30 2c  38 30 3a f0 26 45 44 2c  |:.&ED,0,80:.&ED,|
0000a160  39 30 2c 30 3a f0 26 45  44 2c 39 30 2c 38 30 0d  |90,0:.&ED,90,80.|
0000a170  4c f4 13 2a 53 43 48 4f  4f 53 45 20 4f 50 54 4f  |L..*SCHOOSE OPTO|
0000a180  46 46 0d 4c fe 35 c8 91  37 35 30 2c 32 30 30 3a  |FF.L.5..750,200:|
0000a190  f0 26 45 44 2c 30 2c 30  3a f0 26 45 44 2c 30 2c  |.&ED,0,0:.&ED,0,|
0000a1a0  38 30 3a f0 26 45 44 2c  39 30 2c 30 3a f0 26 45  |80:.&ED,90,0:.&E|
0000a1b0  44 2c 39 30 2c 38 30 0d  4d 08 32 c8 91 30 2c 30  |D,90,80.M.2..0,0|
0000a1c0  3a ef 35 3a ec 33 36 33  2c 31 37 30 3a e6 31 33  |:.5:.363,170:.13|
0000a1d0  3a f1 22 59 45 53 22 3a  ec 38 32 33 2c 31 37 30  |:."YES":.823,170|
0000a1e0  3a e6 33 3a f1 22 4e 4f  22 0d 4d 12 42 c8 91 2d  |:.3:."NO".M.B..-|
0000a1f0  33 30 2c 30 3a e6 33 31  3a c8 93 20 c8 90 35 30  |30,0:.31:.. ..50|
0000a200  30 2c 35 35 30 2c 33 30  30 2c 31 30 30 3a e6 34  |0,550,300,100:.4|
0000a210  38 3a ec 35 35 30 2c 36  30 35 3a f1 22 41 52 45  |8:.550,605:."ARE|
0000a220  20 59 4f 55 20 53 55 52  45 3f 22 0d 4d 1c 08 c8  | YOU SURE?".M...|
0000a230  97 20 ee 0d 4d 26 0b c8  97 58 2c 59 2c 5a 0d 4d  |. ..M&...X,Y,Z.M|
0000a240  30 37 e7 20 58 3e 33 30  30 20 80 20 58 3c 34 38  |07. X>300 . X<48|
0000a250  30 20 80 20 59 3e 32 30  30 20 80 20 59 3c 33 36  |0 . Y>200 . Y<36|
0000a260  30 20 80 20 5a 3e 30 20  8c 20 eb 31 35 3a f2 73  |0 . Z>0 . .15:.s|
0000a270  65 6c 65 63 74 0d 4d 35  31 e7 20 58 3e 37 35 30  |elect.M51. X>750|
0000a280  20 80 20 58 3c 39 33 30  20 80 20 59 3e 32 30 30  | . X<930 . Y>200|
0000a290  20 80 20 59 3c 33 36 30  20 80 20 5a 3e 30 20 8c  | . Y<360 . Z>0 .|
0000a2a0  20 e5 8d 54 5a 5d 0d 4d  3a 09 e5 8d 50 66 4d 0d  | ..TZ].M:...PfM.|
0000a2b0  4d 58 14 47 47 3d a6 28  31 30 30 30 29 3a e5 8d  |MX.GG=.(1000):..|
0000a2c0  54 5a 5d 0d 4d 62 05 e1  0d 4d 6c 0f dd f2 64 6f  |TZ].Mb...Ml...do|
0000a2d0  5f 61 5f 66 69 6c 6c 0d  4d 71 16 62 63 3d b0 58  |_a_fill.Mq.bc=.X|
0000a2e0  2c 59 29 3a 74 3d c8 9c  28 58 2c 59 29 0d 4d 72  |,Y):t=..(X,Y).Mr|
0000a2f0  18 e7 20 62 63 3d 43 4f  4c 20 80 20 74 3d 54 49  |.. bc=COL . t=TI|
0000a300  4e 20 8c 20 e1 0d 4d 76  13 f5 3a c8 97 58 2c 59  |N . ..Mv..:..X,Y|
0000a310  2c 45 3a fd 20 45 3d 30  0d 4d 8a 10 e6 28 31 32  |,E:. E=0.M...(12|
0000a320  38 2b 62 63 29 c8 9c 74  0d 4d 94 09 c8 90 58 2c  |8+bc)..t.M....X,|
0000a330  59 0d 4d 99 09 f2 66 69  6c 6c 0d 4d 9e 05 e1 0d  |Y.M...fill.M....|
0000a340  ff                                                |.|
0000a341