� > !RunImage
�   For SprayCan
�   The Flying Pig!
(�   10/11/1003
2
<$VersionStr$="1.00 (10-Nov-1993)"
F
Task_h%=0
PSprayFileType%=&044
ZSpriteFileType%=&FF9
dINITIALISED%=�
n�ERRBLOCK%200
xSPACE%=�-�
��SPACE%<100000�
���error:�
�ș"OS_GetEnv"�EnvStr$
��EnvStr$," -quit ")�
�I%=�EnvStr$,"""")
�I%=�EnvStr$,"""",I%+1)
��I%+=1:��EnvStr$,I%,1)<>" "
�f$=�EnvStr$,I%)
��
�INITIALISED%=�initialise
�mask%=0
���error
��

$șPoll%,mask%,Window%+handle%�R%

�R%=6�DRAGGING%��

	ȎR%�

"R�0:�AwaitingAck%�CheckOK("Bad Data Transfer, Receiver Dead",3):AwaitingAck%=�

,!�f$<>"":�load_spray(f$):f$=""

6%�2:șOpenWindow%,,Window%+handle%

@$�3:�CloseWindow(Window%!handle%)

J�6:�mouse_button_click

T�7:�UserDragBox

^�8:�KeyPressed

h�9:�MenuSelect

r�17,18:�receive

|�

���

��

�

�
��receive

��task%,ref%,block,F$

�block=Window%

�ref%=!(Window%+handle%+8)

�task%=!(Window%+handle%+4)

��task%=Task_h%�

�ȎWindow%!(handle%+16)�

��0

��terminate

��2

�SAVING%�
,�save_spray(�GetStr(Window%+handle%+44))

SAVING%=�
&"� drag_stop%<>-1 ș drag_stop%
0șGetPointerInfo%,,block
:block!20=block!12
Dblock!24=block!16
Nblock!28=block!0
Xblock!32=block!4
bblock!0=44
lblock!12=ref%
vblock!16=3
�block!40=SprayFileType%
�șSendMessage,17,block
�AwaitingAck%=�
��CloseMenu
��
��3
�,�load_spray(�GetStr(Window%+handle%+44))
��DataLoadAck(ref%)
��4:AwaitingAck%=�
��5
�*�!(Window%+handle%+40)=SprayFileType%�
�,�load_spray(�GetStr(Window%+handle%+44))
��DataLoadAck(ref%)
�
�&502:�Help(ref%)
�&400C1:�getmodeinfo(�)
 �
*�
4
>��Help(ref%)
H�block%,text$
Rblock%=Window%+handle%
\block%!12=ref%
fblock%!16=&503
ptext$=""
zȎblock%!32�
���-2:text$="This is the SprayCan icon.|MClick SELECT to spray the loaded picture.|MClick ADJUST to open the picture information window."
��Save_h%
���block%!36=3 text$="Drag this icon into a directory window to save it in that directory."�text$="Fill in the file name and then drag the icon into a filer directory window to save it."
��PictInfo_h%
���block%!36=8 text$="Click here to spray the picture."�text$="This window shows information about the currently loaded Spray file."
�I�ProgInfo_h%:text$="This window displays information about SprayCan."
��
�$(block%+20)=text$
�&block%!0=(((20+�(text$)+1)�4)*4)+4
�$(block%+21+�(text$))=�(0)
�șSendMessage,17,block%
��
�
��DataLoadAck(ref%)

�block
block=Window%
$block!0=20
.block!12=ref%
8block!16=4
BșSendMessage,17,block
L�
V
`��mouse_button_click
j�B%,C%,W%,I%,inc%
t#W%=Mouse%!window:I%=Mouse%!icon
~B%=%111�Mouse%!buttons
�+Mouse_X%=Mouse%!x0%:Mouse_Y%=Mouse%!y0%
�
�B%=%010�
��W%=-2�OpenMenu
��W%=PictInfo_h%�OpenMenu2
��
�+�B%=%100 inc%=-1��B%=%001 inc%=1�inc%=0
�	ȎW%�
�!�-2:�inc%=1�OpenPictInfo ��go
��PictInfo_h%:�I%=8�go
��Save_h%
�'�I%=0�save_spray(�GetStr(SaveText))
�
�I%=3�

�x%,y%

Window%!handle%=W%
&șGetWindowState%,,Window%+handle%
"ysize%=Window%!y1%-Window%!y0%
(x%=Window%!x0%
2y%=Window%!y0%
<!Window%=W%
FWindow%!4=I%
PșGetIconInfo%,,Window%
ZWindow%!8+=x%
dWindow%!12+=y%+ysize%
nWindow%!16+=x%
xWindow%!20+=y%+ysize%
�Window%!24=0
�Window%!28=0
�Window%!32=S_Width%
�Window%!36=S_Height%
�!Window%=0
�Window%!4=5
�� drag_start%=-1 �
�ș DragBox,,Window%
��
�>ș drag_start%,%11000101,1,"file_ff9",Window%+8,Window%+24
��
�
SAVING%=�
�DRAGGING%=�
�
�
&�W%<>Save_h% �CloseWindow(Save_h%)
"�
,�
6
@ ��UpdateIcon(W%,I%,st%,msk%)
J Window%!handle%=W%:!Icon%=I%
T#Icon%!state=st%:Icon%!mask=msk%
^$șSetIconState%,,Window%+handle%
h�
r
|��UserDragBox
�
�block
�DRAGGING%=�
�block=Window%
�
�SAVING%�
�"� drag_stop%<>-1 ș drag_stop%
�șGetPointerInfo%,,block
�block!32=block!4
�block!28=!block
�block!24=block!16
�block!20=block!12
�block!16=1
�block!12=0
�block!36=0
block!40=SprayFileType%
&$(block+44)=�GetLeafName(SaveText)

!block=60
&#șSendMessage,17,block,block!20
0�
:�
D
NݤSetBit(test,word,bitnum)
X
�testTHEN
b=wordOR(1<<bitnum)
l�
v=wordANDNOT(1<<bitnum)
��
�
���MenuSelect
��item%,n,selection,F$
�selection=Window%+handle%
�0șDecodeMenu,,IconMenu%,selection,MenuString
�(Ȏ�$MenuString,�$MenuString,".")-1)�
��"Save"
�F$=�GetStr(SaveText)
��(�F$,".")=0��F$,":")=0)�
�*�OpenWindow(Save_h%,Mouse_X%,Mouse_Y%)
��
��save_spray(F$)
�
�"Reset":�reset
�"Quit":�terminate
 �"Picture":�OpenPictInfo
*6�"Slow":IconMenu%!100=IconMenu%!100�1:Slow%=�Slow%
4�
>șGetPointerInfo%,,Mouse%
H�%001� Mouse%!buttons �
R!�Menu%=1�OpenMenu ��OpenMenu2
\�
f�
p
z��OpenPictInfo
�Window%!handle%=PictInfo_h%
�&șGetWindowState%,,Window%+handle%
�Window%!under%=-1
�"șOpenWindow%,,Window%+handle%
��
�
���KeyPressed
��ThisWindow%
��!(Window%+handle%+24)=13�
�ThisWindow%=Window%!handle%
�Ȏ(ThisWindow%)�
�+�Save_h%:�save_spray(�GetStr(SaveText))
�/:ș"Wimp_ProcessKey",!(Window%+handle%+24)
	�
	�
	-ș"Wimp_ProcessKey",!(Window%+handle%+24)
	$�
	.�
	8
	B��OpenMenu
	L'IconMenu%?62=IconMenu%?62�%10111111
	V?șCreateMenu,,IconMenu%,Mouse_X%-C_Width%*4,296+C_Height%*2
	`Menu%=1
	j�CloseWindow(Save_h%)
	t�
	~
	���OpenMenu2
	� IconMenu%?62=IconMenu%?62�64
	�8șCreateMenu,,IconMenu%,Mouse_X%-C_Width%*4,Mouse_Y%
	�Menu%=2
	��CloseWindow(Save_h%)
	��
	�
	���CloseMenu
	�șCreateMenu,,-1
	��CloseWindow(Save_h%)
	��
	�
��OpenWindow(h%,x%,y%)

�xsize%,ysize%
Window%!handle%=h%
&șGetWindowState%,,Window%+handle%
("xsize%=Window%!x1%-Window%!x0%
2"ysize%=Window%!y1%-Window%!y0%
<Window%!under%=-1
FWindow%!x0%=x%
P"Window%!x1%=Window%!x0%+xsize%
ZWindow%!y0%=y%
d"Window%!y1%=Window%!y0%+ysize%
n"șOpenWindow%,,Window%+handle%
x�
�
���CloseWindow(h%)
�Window%!handle%=h%
�#șCloseWindow%,,Window%+handle%
��
�
�ݤGetLeafName(name%)
��ch$,n%,name$
�name$=�GetStr(name%)
�-�((�name$,".")=0)�(�name$,":")=0))�=name$
�n%=�(name$)
��
�ch$=�name$,n%,1)
	n%-=1
�(n%<=0�ch$="."�ch$=":")
 �n%>0�=�name$,�(name$)-n%-1)
"ݤGetStr(s%)
,�n$
6ȕ?s%:n$+=�?s%:s%+=1:�
@=n$
J
TݤGetFileInfo(F$)
^&�T%,L%,A%,M$,time%,FileType$,r2,r3
h1�F$<>""șOS_File,5,F$�T%,,laddr%,eaddr%,L%,A%
r(�(F$="")�((T%=1)�(A%� 1)�(L%>8))=0=�
|D�((laddr%>>20)�&FFF)=&FFF FileType%=(laddr%>>8�&FFF)�FileType%=0
�)�FileType%=SprayFileType%FileSize%=L%
�=�
�
���load_spray(F$)
�
�F%,M$
�1�F$=0��7:T%=�CheckOK("Invalid filename",1):�
�ș"Hourglass_On"
�D���7:�("FX 229,1"):�reset:ș"Hourglass_Off":T%=�CheckOK(�$,1):�
��("FX 229,0")
�c笤GetFileInfo(F$)��7:�("FX 229,1"):ș"Hourglass_Off":T%=�CheckOK("Invalid or locked file",1):�
�I�FileType%<>SprayFileType%T%=�CheckOK("This is not a spray file",1):�
�?笤memory T%=�CheckOK("Not enough memory to load file",1):�
��("Load "+F$+" "+�~record%)
�("FX 229,1")
ș"Hourglass_Off"

�reset
&�OpenPictInfo
0
Loaded%=�
:�
D
N��save_spray(F$)
X�block,n
b�
lblock=Window%
v$SaveText=F$+�(0)
��(�F$,".")=0��F$,":")=0)�
�An=�CheckOK("To save, drag the icon to a directory viewer.",1)
��
��
�ș"Hourglass_On"
�:��("FX 229,1"):ș"Hourglass_Off":T%=�CheckOK(�$,1):�
��("FX 229,0")
�șSpriteOp%,268,SprBlk%,F$
��("FX 229,1")
�ș"Hourglass_Off"
��
�
�ݤinitialise

�EnumerateSWIs

�initialise_spray

�initialise_miscellany

 �initialise_screen

*�initialise_sprites

4�initialise_wimp

>�initialise_menu

H�initialise_drag

R=�

\

f��EnumerateSWIs

p�W%:W%=&400C0

zSpriteOp%=&2E

�Initialise%=W%+0

�CreateWindow%=W%+1

�CreateIcon%=W%+2

�OpenWindow%=W%+5

�CloseWindow%=W%+6

�Poll%=W%+7

�RedrawWindow%=W%+8

�UpdateWindow%=W%+9

�GetRectangle%=W%+10

�GetWindowState%=W%+11

�SetIconState%=W%+13

�GetIconInfo%=W%+14

�GetPointerInfo%=W%+15
DragBox=W%+16
ForceRedraw=W%+17
CreateMenu=W%+20
$DecodeMenu=W%+21
.SetExtent=W%+23
8OpenTemplate=W%+25
BCloseTemplate=W%+26
LLoadTemplate=W%+27
VCloseDown=W%+29
`?ș"OS_SWINumberFromString",0,"Wimp_SendMessage"�SendMessage
jIș"OS_SWINumberFromString",0,"Wimp_GetWindowOutline"�GetWindowOutline
t;ș"OS_SWINumberFromString",0,"Wimp_SetColour"�SetColour
~�
�
���initialise_miscellany
��Resourcedir 255
��len
�>ș"OS_ReadVarVal","SprayCan$dir",Resourcedir,255,0,0�,,len
�Resourcedir?len=13
�Resourcedir$=$Resourcedir
��=0
�AwaitingAck%=�
�DRAGGING%=�
�
SAVING%=�
��String_Space%256
OS_File=&8

$Sprite$=Resourcedir$+".!Sprites"
FILE%=�
laddr%=0
(eaddr%=0
2
Loaded%=�
<Slow%=�
FMenu%=0
P�
Z
d��set_colours
n�C%
xC_MenuTitlefg=7
�C_MenuTitlebg=2
�C_Menufg=7
�C_Menubg=0
�C_MenuItemfg=7
�C_MenuItembg=0
��
�
���initialise_sprites
��factors%16
��pixtrans%16
�2ș"Wimp_SpriteOp",11,,Resourcedir$+".!Sprites"
�SpriteLen%=163968
��SprBlk%SpriteLen%
!SprBlk%=SpriteLen%
SprBlk%!4=0
SprBlk%!8=16
"SprBlk%!12=16
,SprPlot%=290
6SprGet%=272
@�I%,N%,x%,y%,W%,H%
J�
T
^��initialise_wimp
h�enumerate_wimp_offsets
r6task%=�("T")+(�("A")<<8)+(�("S")<<16)+(�("K")<<24)
|/șInitialise%,200,task%,"SprayCan"�,Task_h%
�Mouse_X%=640:Mouse_Y%=560
�PTIME%=0
�#ș"Wimp_SlotSize",-1,-1�memory%
�recstart%=�+1024
��SpriteName%14
�$SpriteName%="!SprayCan"
�
!Icon%=-1
�
Icon%!4=0
�
Icon%!8=0
�Icon%!12=68
�Icon%!16=68
�$Icon%!20=(&311A�(0<<24)�(7<<28))
�Icon%!24=SpriteName%
Icon%!28=1
Icon%!32=12
$șCreateIcon%,,Icon%�SprayCan_h%
&�load_templates
0�
:
D��enumerate_wimp_offsets
N�Wimp_Space%&4000
XWindow%=Wimp_Space%+4
bhandle%=-4
lx0%=0:y0%=4:x1%=8:y1%=12
vscx%=16:scy%=20
�
under%=24
�flags=28:status=30
�%tFrgd=32:tBkgd=33:Frgd=34:Bkgd=35
�sbo=36:sbi=37
�tHigh=38
�title_flags=56
�work_area_flags=60
�sprite_area=64
�title=72
�icons=84
�icon_defs=88
�Icon%=Wimp_Space%+4
�
iflags=16

Colour=19
idata=20
Mouse%=Wimp_Space%
 
buttons=8
*
window=12
4icon=16
>old_buttons=20
H
colour=23
Rstate=4
\
mask=8
fClip%=Window%+24
p
key=20
z�
�
���load_templates
�
�size,end
��windowname 12
�
size=1000
�dialogsize=3000
��DialogIndirect dialogsize
�!end=DialogIndirect+dialogsize
�-șOpenTemplate,,Resourcedir$+".Templates"
�$windowname="progInfo"
�?șLoadTemplate,,Window%,DialogIndirect,end,-1,$windowname,0
�(șCreateWindow%,,Window%�ProgInfo_h%
�DialogIndirect+=13
1$DialogIndirect="SprayCan":DialogIndirect+=43
:$DialogIndirect="Spraying Pictures":DialogIndirect+=43
8$DialogIndirect="The Flying Pig!":DialogIndirect+=43
$2$DialogIndirect=VersionStr$:DialogIndirect+=33
.DialogIndirect+=100
8�FileSpriteName%16
B.$FileSpriteName%="file_"+�~SpriteFileType%
L$windowname="xfer_send"
V?șLoadTemplate,,Window%,DialogIndirect,end,-1,$windowname,0
`Window%!64=1
jSpriteIcon%=Window%+88+32*3
t+SpriteIcon%!16=SpriteIcon%!16�1<<1�1<<8
~$SpriteIcon%!16=SpriteIcon%!16��1
�SpriteIcon%!24=1
�SpriteIcon%!28=12
�$șCreateWindow%,,Window%�Save_h%
�DialogIndirect+=6
�SaveText=DialogIndirect
�1$SaveText="SprayPic"+�(0):DialogIndirect+=262
�SaveSprite%=DialogIndirect
�DialogIndirect+=18
�!$SaveSprite%=$FileSpriteName%
�$windowname="FileInfo"
�?șLoadTemplate,,Window%,DialogIndirect,end,-1,$windowname,0
�(șCreateWindow%,,Window%�PictInfo_h%
0PicTitle%=DialogIndirect:DialogIndirect+=131

0PicArtist%=DialogIndirect:DialogIndirect+=67
.PicDate%=DialogIndirect:DialogIndirect+=35
.PicSize%=DialogIndirect:DialogIndirect+=35
(șCloseTemplate
2($record%="No spray file loaded"+�(0)
< $(record%+128)="Nobody"+�(0)
F$(record%+224)=�$+�(0)
P
�reset
Z�
d
n��initialise_menu
x<�item$,sub%,MenuBlock,SubMenuBlock,MenuEnd,MenuItemsList
��nextsub%,flags%,m%,width%
�MenuSize%=28+(20*24)
��MenuStart 15*MenuSize%
�"MenuEnd=MenuStart+15*MenuSize%
��MenuString 14*4
��StaveNum%1
��ValstrS 10
��+0
�MenuBlock=MenuStart
�
�item$
�ȕitem$>""
�Ȏ�item$,3)�
��"Spr":IconMenu%=MenuBlock
�
$MenuBlock=item$
MenuBlock?12=C_MenuTitlefg
"MenuBlock?13=C_MenuTitlebg
,MenuBlock?14=C_Menufg
6MenuBlock?15=C_Menubg
@�width%
J MenuBlock!16=width%*C_Width%
TMenuBlock!20=44
^MenuBlock!24=0
hMenuItemsList=MenuBlock+28
r$SubMenuBlock=MenuBlock+MenuSize%
|nextsub%=SubMenuBlock
�
�item$
�ȕitem$>""
�	�sub%
�5�sub%=0 sub%=-1�sub%=nextsub%:nextsub%+=MenuSize%
�Ȏ�item$,4)�
��"Info":sub%=ProgInfo_h%
��"Save":sub%=Save_h%
��
�"$(MenuItemsList+12)=item$+�(0)
�MenuItemsList!4=sub%
�=MenuItemsList!8=&21�(C_MenuItemfg<<24)�(C_MenuItembg<<28)
��flags%
�!MenuItemsList=flags%�%111
�flags%�4�
*MenuItemsList!8=(MenuItemsList!8)�1<<8
�
&MenuItemsList+=24
0
�item$
:�
DMenuItemsList-=24
N&!MenuItemsList=!MenuItemsList �&80
Xitem$=""
bMenuBlock=SubMenuBlock
l�
v�
�
�� "SprayCan", 8
�+� "Info",0,0, "Picture",0,0, "Save",0,0
�+� "Slow",0,0,"Reset",0,0, "Quit",0,0,""
�
���terminate
��Task_h%>0�
�!�șCloseDown,task%,Task_h%:�
��
���
��
���
�(�Task_h%>0�șCloseDown,task%,Task_h%
�
�

 ��error
*�e%
4�
>���terminate:�
Hș"Hourglass_Smash"
R*E$=�$+" at line "+Þ+". Exit program?"
\%FILE%=FILE%:�FILE%�#FILE%:FILE%=�
f�INITIALISED%�
p�CheckOK(E$,3)�terminate
z�
� e%=�CheckOK(E$,1):�terminate
��
��
�
�ݤCheckOK(E$,boxes%)
��E%
�!ERRBLOCK%=0
�$(ERRBLOCK%+4)=�E$,100)+�0
�8ș"Wimp_ReportError",ERRBLOCK%,boxes%,"SprayCan"�,E%
�	=E%=1
�
�� �initialise_drag
�)drag_start%=�swi("DragASprite_Start")
'drag_stop%=�swi("DragASprite_Stop")
 ș "OS_Byte",161,28 � ,,cmos
/� (cmos � 2)=0 drag_start%=-1:drag_stop%=-1
$�
.
8� �swi(swi$)
B1ș "XOS_SWINumberFromString",,swi$ � swi;flag
L� (flag � 1) swi=-1
V=swi
`
j��initialise_screen
t�modeblockin 40
~�modeblockout 40
��getmodeinfo(�)
��set_colours
��
�
���getmodeinfo(new)
��S_Rows%,S_Columns%
�modeblockin!0=0
�modeblockin!4=1
�modeblockin!8=2
�modeblockin!12=3
�modeblockin!16=4
�modeblockin!20=5
modeblockin!24=11

modeblockin!28=12
modeblockin!32=-1
4ș"OS_ReadVduVariables",modeblockin,modeblockout
(BADMODE%=�
2Hi%=1<<(modeblockout!16)
<Vi%=1<<(modeblockout!20)
F&S_Width%=Hi%*((modeblockout!24)+1)
P'S_Height%=Vi%*((modeblockout!28)+1)
ZHi%=2:Vi%=4
d"C_Width%=8*Hi%:C_Height%=8*Vi%
n�
x
���reset
�!pos%=record%+256
�code%!360=0
�$PicTitle%=�move(record%)
�"$PicArtist%=�move(record%+128)
� $PicDate%=�move(record%+224)
�$PicSize%="0% "+�(0)
�CșSpriteOp%,256+15,SprBlk%,"SprayScreen",0,640,256,15�,,Sprite%
�*șForceRedraw,PictInfo_h%,0,-220,740,0
��
�
�ݤmove(address%)
��string$,count%
string$="":count%=0
�
string$+=�(?address%)
"address%+=1:count%+=1
,�?address%=0�count%>254
6�count%>254string$=""+�(0)
@=string$
J
Tݤmemory
^#ș"Wimp_SlotSize",-1,-1�oldmem%
h/ș"Wimp_SlotSize",memory%+FileSize%+4096,-1
rș"Wimp_SlotSize",-1,-1�T%
|=�T%<memory%+FileSize%+4096ș"Wimp_SlotSize",oldmem%,-1:=�
�record%=recstart%
�=�
�
���go
��t%,oldmode%
�=�Loaded%T%=�CheckOK("No spray file has been loaded",1):�
�oldmode%=�
�R�:��T%=�CheckOK("Please ensure 160k of memory is available for mode 15",1):�
�	�15:�
���
�4șSpriteOp%,SprPlot%,SprBlk%,"SprayScreen",0,0,0
�t%=�:���>t%+100
��Slow%�slowspray ��spray
8$PicSize%=è((!pos%-record%)/FileSize%*100)+"%"+�(0)
=șSpriteOp%,SprGet%,SprBlk%,"SprayScreen",0,0,0,1279,1023
ș"Wimp_SetMode",oldmode%
&�
0
:��initialise_spray
D�code%33316,record%1024
N/�("Load <SprayCan$Dir>.SprayCode "+�~code%)
Xpoint%=0
b5fade%=code%+156:pos%=code%+352:check%=code%+33308
l�
v
���spray
�
�code%
��
�
�fade%
��?check%=1�breakpoint
�"��-99�!pos%>=record%+FileSize%
�8�!pos%>=record%+FileSize%�ȗX%,Y%,Z%:��(0)<>-1�Z%<>0
�����-99
��("FX 15 1")
��
�
���slowspray
�
�code%
�
t%=�

�fade%
 �?check%=1�breakpoint
*�<=t%���>t%
4"��-99�!pos%>=record%+FileSize%
>8�!pos%>=record%+FileSize%�ȗX%,Y%,Z%:��(0)<>-1�Z%<>0
H����-99
R�("FX 15 1")
\�
f
p��breakpoint
z
?check%=0
�
point%+=1
�
Ȏpoint%�
��
��
�

00000000  0d 00 0a 11 f4 20 3e 20  21 52 75 6e 49 6d 61 67  |..... > !RunImag|
00000010  65 0d 00 14 14 f4 20 20  20 46 6f 72 20 53 70 72  |e.....   For Spr|
00000020  61 79 43 61 6e 0d 00 1e  17 f4 20 20 20 54 68 65  |ayCan.....   The|
00000030  20 46 6c 79 69 6e 67 20  50 69 67 21 0d 00 28 12  | Flying Pig!..(.|
00000040  f4 20 20 20 31 30 2f 31  31 2f 31 30 30 33 0d 00  |.   10/11/1003..|
00000050  32 04 0d 00 3c 24 56 65  72 73 69 6f 6e 53 74 72  |2...<$VersionStr|
00000060  24 3d 22 31 2e 30 30 20  28 31 30 2d 4e 6f 76 2d  |$="1.00 (10-Nov-|
00000070  31 39 39 33 29 22 0d 00  46 0d 54 61 73 6b 5f 68  |1993)"..F.Task_h|
00000080  25 3d 30 0d 00 50 17 53  70 72 61 79 46 69 6c 65  |%=0..P.SprayFile|
00000090  54 79 70 65 25 3d 26 30  34 34 0d 00 5a 18 53 70  |Type%=&044..Z.Sp|
000000a0  72 69 74 65 46 69 6c 65  54 79 70 65 25 3d 26 46  |riteFileType%=&F|
000000b0  46 39 0d 00 64 12 49 4e  49 54 49 41 4c 49 53 45  |F9..d.INITIALISE|
000000c0  44 25 3d a3 0d 00 6e 11  de 45 52 52 42 4c 4f 43  |D%=...n..ERRBLOC|
000000d0  4b 25 32 30 30 0d 00 78  0e 53 50 41 43 45 25 3d  |K%200..x.SPACE%=|
000000e0  93 2d e0 0d 00 82 13 e7  53 50 41 43 45 25 3c 31  |.-......SPACE%<1|
000000f0  30 30 30 30 30 fa 0d 00  8c 0e ee 85 f2 65 72 72  |00000........err|
00000100  6f 72 3a e0 0d 00 96 19  c8 99 22 4f 53 5f 47 65  |or:......."OS_Ge|
00000110  74 45 6e 76 22 b8 45 6e  76 53 74 72 24 0d 00 a0  |tEnv".EnvStr$...|
00000120  19 e7 a7 45 6e 76 53 74  72 24 2c 22 20 2d 71 75  |...EnvStr$," -qu|
00000130  69 74 20 22 29 8c 0d 00  aa 15 49 25 3d a7 45 6e  |it ").....I%=.En|
00000140  76 53 74 72 24 2c 22 22  22 22 29 0d 00 b4 1a 49  |vStr$,"""")....I|
00000150  25 3d a7 45 6e 76 53 74  72 24 2c 22 22 22 22 2c  |%=.EnvStr$,"""",|
00000160  49 25 2b 31 29 0d 00 be  1f f5 49 25 2b 3d 31 3a  |I%+1).....I%+=1:|
00000170  fd c1 45 6e 76 53 74 72  24 2c 49 25 2c 31 29 3c  |..EnvStr$,I%,1)<|
00000180  3e 22 20 22 0d 00 c8 13  66 24 3d c1 45 6e 76 53  |>" "....f$=.EnvS|
00000190  74 72 24 2c 49 25 29 0d  00 d2 05 cd 0d 00 dc 1c  |tr$,I%).........|
000001a0  49 4e 49 54 49 41 4c 49  53 45 44 25 3d a4 69 6e  |INITIALISED%=.in|
000001b0  69 74 69 61 6c 69 73 65  0d 00 e6 0b 6d 61 73 6b  |itialise....mask|
000001c0  25 3d 30 0d 00 f0 0c ee  85 f2 65 72 72 6f 72 0d  |%=0.......error.|
000001d0  00 fa 05 f5 0d 01 04 24  c8 99 50 6f 6c 6c 25 2c  |.......$..Poll%,|
000001e0  6d 61 73 6b 25 2c 57 69  6e 64 6f 77 25 2b 68 61  |mask%,Window%+ha|
000001f0  6e 64 6c 65 25 b8 52 25  0d 01 0e 15 e7 52 25 3d  |ndle%.R%.....R%=|
00000200  36 80 44 52 41 47 47 49  4e 47 25 fd a3 0d 01 18  |6.DRAGGING%.....|
00000210  09 c8 8e 52 25 ca 0d 01  22 52 c9 30 3a e7 41 77  |...R%..."R.0:.Aw|
00000220  61 69 74 69 6e 67 41 63  6b 25 e7 a4 43 68 65 63  |aitingAck%..Chec|
00000230  6b 4f 4b 28 22 42 61 64  20 44 61 74 61 20 54 72  |kOK("Bad Data Tr|
00000240  61 6e 73 66 65 72 2c 20  52 65 63 65 69 76 65 72  |ansfer, Receiver|
00000250  20 44 65 61 64 22 2c 33  29 3a 41 77 61 69 74 69  | Dead",3):Awaiti|
00000260  6e 67 41 63 6b 25 3d a3  0d 01 2c 21 e7 66 24 3c  |ngAck%=...,!.f$<|
00000270  3e 22 22 3a f2 6c 6f 61  64 5f 73 70 72 61 79 28  |>"":.load_spray(|
00000280  66 24 29 3a 66 24 3d 22  22 0d 01 36 25 c9 32 3a  |f$):f$=""..6%.2:|
00000290  c8 99 4f 70 65 6e 57 69  6e 64 6f 77 25 2c 2c 57  |..OpenWindow%,,W|
000002a0  69 6e 64 6f 77 25 2b 68  61 6e 64 6c 65 25 0d 01  |indow%+handle%..|
000002b0  40 24 c9 33 3a f2 43 6c  6f 73 65 57 69 6e 64 6f  |@$.3:.CloseWindo|
000002c0  77 28 57 69 6e 64 6f 77  25 21 68 61 6e 64 6c 65  |w(Window%!handle|
000002d0  25 29 0d 01 4a 1a c9 36  3a f2 6d 6f 75 73 65 5f  |%)..J..6:.mouse_|
000002e0  62 75 74 74 6f 6e 5f 63  6c 69 63 6b 0d 01 54 13  |button_click..T.|
000002f0  c9 37 3a f2 55 73 65 72  44 72 61 67 42 6f 78 0d  |.7:.UserDragBox.|
00000300  01 5e 12 c9 38 3a f2 4b  65 79 50 72 65 73 73 65  |.^..8:.KeyPresse|
00000310  64 0d 01 68 12 c9 39 3a  f2 4d 65 6e 75 53 65 6c  |d..h..9:.MenuSel|
00000320  65 63 74 0d 01 72 13 c9  31 37 2c 31 38 3a f2 72  |ect..r..17,18:.r|
00000330  65 63 65 69 76 65 0d 01  7c 05 cb 0d 01 86 06 fd  |eceive..|.......|
00000340  a3 0d 01 90 05 e0 0d 01  9a 04 0d 01 a4 0d dd f2  |................|
00000350  72 65 63 65 69 76 65 0d  01 ae 18 ea 74 61 73 6b  |receive.....task|
00000360  25 2c 72 65 66 25 2c 62  6c 6f 63 6b 2c 46 24 0d  |%,ref%,block,F$.|
00000370  01 b8 11 62 6c 6f 63 6b  3d 57 69 6e 64 6f 77 25  |...block=Window%|
00000380  0d 01 c2 1d 72 65 66 25  3d 21 28 57 69 6e 64 6f  |....ref%=!(Windo|
00000390  77 25 2b 68 61 6e 64 6c  65 25 2b 38 29 0d 01 cc  |w%+handle%+8)...|
000003a0  1e 74 61 73 6b 25 3d 21  28 57 69 6e 64 6f 77 25  |.task%=!(Window%|
000003b0  2b 68 61 6e 64 6c 65 25  2b 34 29 0d 01 d6 13 e7  |+handle%+4).....|
000003c0  74 61 73 6b 25 3d 54 61  73 6b 5f 68 25 e1 0d 01  |task%=Task_h%...|
000003d0  e0 1b c8 8e 57 69 6e 64  6f 77 25 21 28 68 61 6e  |....Window%!(han|
000003e0  64 6c 65 25 2b 31 36 29  ca 0d 01 ea 06 c9 30 0d  |dle%+16)......0.|
000003f0  01 f4 0e f2 74 65 72 6d  69 6e 61 74 65 0d 01 fe  |....terminate...|
00000400  06 c9 32 0d 02 08 0d e7  53 41 56 49 4e 47 25 8c  |..2.....SAVING%.|
00000410  0d 02 12 2c f2 73 61 76  65 5f 73 70 72 61 79 28  |...,.save_spray(|
00000420  a4 47 65 74 53 74 72 28  57 69 6e 64 6f 77 25 2b  |.GetStr(Window%+|
00000430  68 61 6e 64 6c 65 25 2b  34 34 29 29 0d 02 1c 0d  |handle%+44))....|
00000440  53 41 56 49 4e 47 25 3d  a3 0d 02 26 22 e7 20 64  |SAVING%=...&". d|
00000450  72 61 67 5f 73 74 6f 70  25 3c 3e 2d 31 20 c8 99  |rag_stop%<>-1 ..|
00000460  20 64 72 61 67 5f 73 74  6f 70 25 0d 02 30 1c c8  | drag_stop%..0..|
00000470  99 47 65 74 50 6f 69 6e  74 65 72 49 6e 66 6f 25  |.GetPointerInfo%|
00000480  2c 2c 62 6c 6f 63 6b 0d  02 3a 15 62 6c 6f 63 6b  |,,block..:.block|
00000490  21 32 30 3d 62 6c 6f 63  6b 21 31 32 0d 02 44 15  |!20=block!12..D.|
000004a0  62 6c 6f 63 6b 21 32 34  3d 62 6c 6f 63 6b 21 31  |block!24=block!1|
000004b0  36 0d 02 4e 14 62 6c 6f  63 6b 21 32 38 3d 62 6c  |6..N.block!28=bl|
000004c0  6f 63 6b 21 30 0d 02 58  14 62 6c 6f 63 6b 21 33  |ock!0..X.block!3|
000004d0  32 3d 62 6c 6f 63 6b 21  34 0d 02 62 0e 62 6c 6f  |2=block!4..b.blo|
000004e0  63 6b 21 30 3d 34 34 0d  02 6c 11 62 6c 6f 63 6b  |ck!0=44..l.block|
000004f0  21 31 32 3d 72 65 66 25  0d 02 76 0e 62 6c 6f 63  |!12=ref%..v.bloc|
00000500  6b 21 31 36 3d 33 0d 02  80 1b 62 6c 6f 63 6b 21  |k!16=3....block!|
00000510  34 30 3d 53 70 72 61 79  46 69 6c 65 54 79 70 65  |40=SprayFileType|
00000520  25 0d 02 8a 1a c8 99 53  65 6e 64 4d 65 73 73 61  |%......SendMessa|
00000530  67 65 2c 31 37 2c 62 6c  6f 63 6b 0d 02 94 12 41  |ge,17,block....A|
00000540  77 61 69 74 69 6e 67 41  63 6b 25 3d b9 0d 02 9e  |waitingAck%=....|
00000550  0e f2 43 6c 6f 73 65 4d  65 6e 75 0d 02 a8 05 cd  |..CloseMenu.....|
00000560  0d 02 b2 06 c9 33 0d 02  bc 2c f2 6c 6f 61 64 5f  |.....3...,.load_|
00000570  73 70 72 61 79 28 a4 47  65 74 53 74 72 28 57 69  |spray(.GetStr(Wi|
00000580  6e 64 6f 77 25 2b 68 61  6e 64 6c 65 25 2b 34 34  |ndow%+handle%+44|
00000590  29 29 0d 02 c6 16 f2 44  61 74 61 4c 6f 61 64 41  |)).....DataLoadA|
000005a0  63 6b 28 72 65 66 25 29  0d 02 d0 15 c9 34 3a 41  |ck(ref%).....4:A|
000005b0  77 61 69 74 69 6e 67 41  63 6b 25 3d a3 0d 02 da  |waitingAck%=....|
000005c0  06 c9 35 0d 02 e4 2a e7  21 28 57 69 6e 64 6f 77  |..5...*.!(Window|
000005d0  25 2b 68 61 6e 64 6c 65  25 2b 34 30 29 3d 53 70  |%+handle%+40)=Sp|
000005e0  72 61 79 46 69 6c 65 54  79 70 65 25 8c 0d 02 ee  |rayFileType%....|
000005f0  2c f2 6c 6f 61 64 5f 73  70 72 61 79 28 a4 47 65  |,.load_spray(.Ge|
00000600  74 53 74 72 28 57 69 6e  64 6f 77 25 2b 68 61 6e  |tStr(Window%+han|
00000610  64 6c 65 25 2b 34 34 29  29 0d 02 f8 16 f2 44 61  |dle%+44)).....Da|
00000620  74 61 4c 6f 61 64 41 63  6b 28 72 65 66 25 29 0d  |taLoadAck(ref%).|
00000630  03 02 05 cd 0d 03 0c 15  c9 26 35 30 32 3a f2 48  |.........&502:.H|
00000640  65 6c 70 28 72 65 66 25  29 0d 03 16 1b c9 26 34  |elp(ref%).....&4|
00000650  30 30 43 31 3a f2 67 65  74 6d 6f 64 65 69 6e 66  |00C1:.getmodeinf|
00000660  6f 28 a3 29 0d 03 20 05  cb 0d 03 2a 05 e1 0d 03  |o(.).. ....*....|
00000670  34 04 0d 03 3e 10 dd f2  48 65 6c 70 28 72 65 66  |4...>...Help(ref|
00000680  25 29 0d 03 48 11 ea 62  6c 6f 63 6b 25 2c 74 65  |%)..H..block%,te|
00000690  78 74 24 0d 03 52 1a 62  6c 6f 63 6b 25 3d 57 69  |xt$..R.block%=Wi|
000006a0  6e 64 6f 77 25 2b 68 61  6e 64 6c 65 25 0d 03 5c  |ndow%+handle%..\|
000006b0  12 62 6c 6f 63 6b 25 21  31 32 3d 72 65 66 25 0d  |.block%!12=ref%.|
000006c0  03 66 12 62 6c 6f 63 6b  25 21 31 36 3d 26 35 30  |.f.block%!16=&50|
000006d0  33 0d 03 70 0c 74 65 78  74 24 3d 22 22 0d 03 7a  |3..p.text$=""..z|
000006e0  10 c8 8e 62 6c 6f 63 6b  25 21 33 32 ca 0d 03 84  |...block%!32....|
000006f0  8b c9 2d 32 3a 74 65 78  74 24 3d 22 54 68 69 73  |..-2:text$="This|
00000700  20 69 73 20 74 68 65 20  53 70 72 61 79 43 61 6e  | is the SprayCan|
00000710  20 69 63 6f 6e 2e 7c 4d  43 6c 69 63 6b 20 53 45  | icon.|MClick SE|
00000720  4c 45 43 54 20 74 6f 20  73 70 72 61 79 20 74 68  |LECT to spray th|
00000730  65 20 6c 6f 61 64 65 64  20 70 69 63 74 75 72 65  |e loaded picture|
00000740  2e 7c 4d 43 6c 69 63 6b  20 41 44 4a 55 53 54 20  |.|MClick ADJUST |
00000750  74 6f 20 6f 70 65 6e 20  74 68 65 20 70 69 63 74  |to open the pict|
00000760  75 72 65 20 69 6e 66 6f  72 6d 61 74 69 6f 6e 20  |ure information |
00000770  77 69 6e 64 6f 77 2e 22  0d 03 8e 0c c9 53 61 76  |window.".....Sav|
00000780  65 5f 68 25 0d 03 98 bc  e7 62 6c 6f 63 6b 25 21  |e_h%.....block%!|
00000790  33 36 3d 33 20 74 65 78  74 24 3d 22 44 72 61 67  |36=3 text$="Drag|
000007a0  20 74 68 69 73 20 69 63  6f 6e 20 69 6e 74 6f 20  | this icon into |
000007b0  61 20 64 69 72 65 63 74  6f 72 79 20 77 69 6e 64  |a directory wind|
000007c0  6f 77 20 74 6f 20 73 61  76 65 20 69 74 20 69 6e  |ow to save it in|
000007d0  20 74 68 61 74 20 64 69  72 65 63 74 6f 72 79 2e  | that directory.|
000007e0  22 8b 74 65 78 74 24 3d  22 46 69 6c 6c 20 69 6e  |".text$="Fill in|
000007f0  20 74 68 65 20 66 69 6c  65 20 6e 61 6d 65 20 61  | the file name a|
00000800  6e 64 20 74 68 65 6e 20  64 72 61 67 20 74 68 65  |nd then drag the|
00000810  20 69 63 6f 6e 20 69 6e  74 6f 20 61 20 66 69 6c  | icon into a fil|
00000820  65 72 20 64 69 72 65 63  74 6f 72 79 20 77 69 6e  |er directory win|
00000830  64 6f 77 20 74 6f 20 73  61 76 65 20 69 74 2e 22  |dow to save it."|
00000840  0d 03 a2 10 c9 50 69 63  74 49 6e 66 6f 5f 68 25  |.....PictInfo_h%|
00000850  0d 03 ac 86 e7 62 6c 6f  63 6b 25 21 33 36 3d 38  |.....block%!36=8|
00000860  20 74 65 78 74 24 3d 22  43 6c 69 63 6b 20 68 65  | text$="Click he|
00000870  72 65 20 74 6f 20 73 70  72 61 79 20 74 68 65 20  |re to spray the |
00000880  70 69 63 74 75 72 65 2e  22 8b 74 65 78 74 24 3d  |picture.".text$=|
00000890  22 54 68 69 73 20 77 69  6e 64 6f 77 20 73 68 6f  |"This window sho|
000008a0  77 73 20 69 6e 66 6f 72  6d 61 74 69 6f 6e 20 61  |ws information a|
000008b0  62 6f 75 74 20 74 68 65  20 63 75 72 72 65 6e 74  |bout the current|
000008c0  6c 79 20 6c 6f 61 64 65  64 20 53 70 72 61 79 20  |ly loaded Spray |
000008d0  66 69 6c 65 2e 22 0d 03  b6 49 c9 50 72 6f 67 49  |file."...I.ProgI|
000008e0  6e 66 6f 5f 68 25 3a 74  65 78 74 24 3d 22 54 68  |nfo_h%:text$="Th|
000008f0  69 73 20 77 69 6e 64 6f  77 20 64 69 73 70 6c 61  |is window displa|
00000900  79 73 20 69 6e 66 6f 72  6d 61 74 69 6f 6e 20 61  |ys information a|
00000910  62 6f 75 74 20 53 70 72  61 79 43 61 6e 2e 22 0d  |bout SprayCan.".|
00000920  03 c0 05 cb 0d 03 ca 16  24 28 62 6c 6f 63 6b 25  |........$(block%|
00000930  2b 32 30 29 3d 74 65 78  74 24 0d 03 d4 26 62 6c  |+20)=text$...&bl|
00000940  6f 63 6b 25 21 30 3d 28  28 28 32 30 2b a9 28 74  |ock%!0=(((20+.(t|
00000950  65 78 74 24 29 2b 31 29  81 34 29 2a 34 29 2b 34  |ext$)+1).4)*4)+4|
00000960  0d 03 de 1e 24 28 62 6c  6f 63 6b 25 2b 32 31 2b  |....$(block%+21+|
00000970  a9 28 74 65 78 74 24 29  29 3d bd 28 30 29 0d 03  |.(text$))=.(0)..|
00000980  e8 1b c8 99 53 65 6e 64  4d 65 73 73 61 67 65 2c  |....SendMessage,|
00000990  31 37 2c 62 6c 6f 63 6b  25 0d 03 f2 05 e1 0d 03  |17,block%.......|
000009a0  fc 04 0d 04 06 17 dd f2  44 61 74 61 4c 6f 61 64  |........DataLoad|
000009b0  41 63 6b 28 72 65 66 25  29 0d 04 10 0a ea 62 6c  |Ack(ref%).....bl|
000009c0  6f 63 6b 0d 04 1a 11 62  6c 6f 63 6b 3d 57 69 6e  |ock....block=Win|
000009d0  64 6f 77 25 0d 04 24 0e  62 6c 6f 63 6b 21 30 3d  |dow%..$.block!0=|
000009e0  32 30 0d 04 2e 11 62 6c  6f 63 6b 21 31 32 3d 72  |20....block!12=r|
000009f0  65 66 25 0d 04 38 0e 62  6c 6f 63 6b 21 31 36 3d  |ef%..8.block!16=|
00000a00  34 0d 04 42 1a c8 99 53  65 6e 64 4d 65 73 73 61  |4..B...SendMessa|
00000a10  67 65 2c 31 37 2c 62 6c  6f 63 6b 0d 04 4c 05 e1  |ge,17,block..L..|
00000a20  0d 04 56 04 0d 04 60 18  dd f2 6d 6f 75 73 65 5f  |..V...`...mouse_|
00000a30  62 75 74 74 6f 6e 5f 63  6c 69 63 6b 0d 04 6a 15  |button_click..j.|
00000a40  ea 42 25 2c 43 25 2c 57  25 2c 49 25 2c 69 6e 63  |.B%,C%,W%,I%,inc|
00000a50  25 0d 04 74 23 57 25 3d  4d 6f 75 73 65 25 21 77  |%..t#W%=Mouse%!w|
00000a60  69 6e 64 6f 77 3a 49 25  3d 4d 6f 75 73 65 25 21  |indow:I%=Mouse%!|
00000a70  69 63 6f 6e 0d 04 7e 1a  42 25 3d 25 31 31 31 80  |icon..~.B%=%111.|
00000a80  4d 6f 75 73 65 25 21 62  75 74 74 6f 6e 73 0d 04  |Mouse%!buttons..|
00000a90  88 2b 4d 6f 75 73 65 5f  58 25 3d 4d 6f 75 73 65  |.+Mouse_X%=Mouse|
00000aa0  25 21 78 30 25 3a 4d 6f  75 73 65 5f 59 25 3d 4d  |%!x0%:Mouse_Y%=M|
00000ab0  6f 75 73 65 25 21 79 30  25 0d 04 92 0d e7 42 25  |ouse%!y0%.....B%|
00000ac0  3d 25 30 31 30 8c 0d 04  9c 13 e7 57 25 3d 2d 32  |=%010......W%=-2|
00000ad0  f2 4f 70 65 6e 4d 65 6e  75 0d 04 a6 1d e7 57 25  |.OpenMenu.....W%|
00000ae0  3d 50 69 63 74 49 6e 66  6f 5f 68 25 f2 4f 70 65  |=PictInfo_h%.Ope|
00000af0  6e 4d 65 6e 75 32 0d 04  b0 05 cc 0d 04 ba 2b e7  |nMenu2........+.|
00000b00  42 25 3d 25 31 30 30 20  69 6e 63 25 3d 2d 31 8b  |B%=%100 inc%=-1.|
00000b10  e7 42 25 3d 25 30 30 31  20 69 6e 63 25 3d 31 8b  |.B%=%001 inc%=1.|
00000b20  69 6e 63 25 3d 30 0d 04  c4 09 c8 8e 57 25 ca 0d  |inc%=0......W%..|
00000b30  04 ce 21 c9 2d 32 3a e7  69 6e 63 25 3d 31 f2 4f  |..!.-2:.inc%=1.O|
00000b40  70 65 6e 50 69 63 74 49  6e 66 6f 20 8b f2 67 6f  |penPictInfo ..go|
00000b50  0d 04 d8 19 c9 50 69 63  74 49 6e 66 6f 5f 68 25  |.....PictInfo_h%|
00000b60  3a e7 49 25 3d 38 f2 67  6f 0d 04 e2 0c c9 53 61  |:.I%=8.go.....Sa|
00000b70  76 65 5f 68 25 0d 04 ec  27 e7 49 25 3d 30 f2 73  |ve_h%...'.I%=0.s|
00000b80  61 76 65 5f 73 70 72 61  79 28 a4 47 65 74 53 74  |ave_spray(.GetSt|
00000b90  72 28 53 61 76 65 54 65  78 74 29 29 0d 04 f6 0a  |r(SaveText))....|
00000ba0  e7 49 25 3d 33 8c 0d 05  00 0a ea 78 25 2c 79 25  |.I%=3......x%,y%|
00000bb0  0d 05 0a 16 57 69 6e 64  6f 77 25 21 68 61 6e 64  |....Window%!hand|
00000bc0  6c 65 25 3d 57 25 0d 05  14 26 c8 99 47 65 74 57  |le%=W%...&..GetW|
00000bd0  69 6e 64 6f 77 53 74 61  74 65 25 2c 2c 57 69 6e  |indowState%,,Win|
00000be0  64 6f 77 25 2b 68 61 6e  64 6c 65 25 0d 05 1e 22  |dow%+handle%..."|
00000bf0  79 73 69 7a 65 25 3d 57  69 6e 64 6f 77 25 21 79  |ysize%=Window%!y|
00000c00  31 25 2d 57 69 6e 64 6f  77 25 21 79 30 25 0d 05  |1%-Window%!y0%..|
00000c10  28 12 78 25 3d 57 69 6e  64 6f 77 25 21 78 30 25  |(.x%=Window%!x0%|
00000c20  0d 05 32 12 79 25 3d 57  69 6e 64 6f 77 25 21 79  |..2.y%=Window%!y|
00000c30  30 25 0d 05 3c 0f 21 57  69 6e 64 6f 77 25 3d 57  |0%..<.!Window%=W|
00000c40  25 0d 05 46 10 57 69 6e  64 6f 77 25 21 34 3d 49  |%..F.Window%!4=I|
00000c50  25 0d 05 50 1b c8 99 47  65 74 49 63 6f 6e 49 6e  |%..P...GetIconIn|
00000c60  66 6f 25 2c 2c 57 69 6e  64 6f 77 25 0d 05 5a 11  |fo%,,Window%..Z.|
00000c70  57 69 6e 64 6f 77 25 21  38 2b 3d 78 25 0d 05 64  |Window%!8+=x%..d|
00000c80  19 57 69 6e 64 6f 77 25  21 31 32 2b 3d 79 25 2b  |.Window%!12+=y%+|
00000c90  79 73 69 7a 65 25 0d 05  6e 12 57 69 6e 64 6f 77  |ysize%..n.Window|
00000ca0  25 21 31 36 2b 3d 78 25  0d 05 78 19 57 69 6e 64  |%!16+=x%..x.Wind|
00000cb0  6f 77 25 21 32 30 2b 3d  79 25 2b 79 73 69 7a 65  |ow%!20+=y%+ysize|
00000cc0  25 0d 05 82 10 57 69 6e  64 6f 77 25 21 32 34 3d  |%....Window%!24=|
00000cd0  30 0d 05 8c 10 57 69 6e  64 6f 77 25 21 32 38 3d  |0....Window%!28=|
00000ce0  30 0d 05 96 17 57 69 6e  64 6f 77 25 21 33 32 3d  |0....Window%!32=|
00000cf0  53 5f 57 69 64 74 68 25  0d 05 a0 18 57 69 6e 64  |S_Width%....Wind|
00000d00  6f 77 25 21 33 36 3d 53  5f 48 65 69 67 68 74 25  |ow%!36=S_Height%|
00000d10  0d 05 aa 0e 21 57 69 6e  64 6f 77 25 3d 30 0d 05  |....!Window%=0..|
00000d20  b4 0f 57 69 6e 64 6f 77  25 21 34 3d 35 0d 05 be  |..Window%!4=5...|
00000d30  16 e7 20 64 72 61 67 5f  73 74 61 72 74 25 3d 2d  |.. drag_start%=-|
00000d40  31 20 8c 0d 05 c8 17 c8  99 20 44 72 61 67 42 6f  |1 ....... DragBo|
00000d50  78 2c 2c 57 69 6e 64 6f  77 25 0d 05 d2 05 cc 0d  |x,,Window%......|
00000d60  05 dc 3e c8 99 20 64 72  61 67 5f 73 74 61 72 74  |..>.. drag_start|
00000d70  25 2c 25 31 31 30 30 30  31 30 31 2c 31 2c 22 66  |%,%11000101,1,"f|
00000d80  69 6c 65 5f 66 66 39 22  2c 57 69 6e 64 6f 77 25  |ile_ff9",Window%|
00000d90  2b 38 2c 57 69 6e 64 6f  77 25 2b 32 34 0d 05 e6  |+8,Window%+24...|
00000da0  05 cd 0d 05 f0 0d 53 41  56 49 4e 47 25 3d b9 0d  |......SAVING%=..|
00000db0  05 fa 0f 44 52 41 47 47  49 4e 47 25 3d b9 0d 06  |...DRAGGING%=...|
00000dc0  04 05 cd 0d 06 0e 05 cb  0d 06 18 26 e7 57 25 3c  |...........&.W%<|
00000dd0  3e 53 61 76 65 5f 68 25  20 f2 43 6c 6f 73 65 57  |>Save_h% .CloseW|
00000de0  69 6e 64 6f 77 28 53 61  76 65 5f 68 25 29 0d 06  |indow(Save_h%)..|
00000df0  22 05 cd 0d 06 2c 05 e1  0d 06 36 04 0d 06 40 20  |"....,....6...@ |
00000e00  dd f2 55 70 64 61 74 65  49 63 6f 6e 28 57 25 2c  |..UpdateIcon(W%,|
00000e10  49 25 2c 73 74 25 2c 6d  73 6b 25 29 0d 06 4a 20  |I%,st%,msk%)..J |
00000e20  57 69 6e 64 6f 77 25 21  68 61 6e 64 6c 65 25 3d  |Window%!handle%=|
00000e30  57 25 3a 21 49 63 6f 6e  25 3d 49 25 0d 06 54 23  |W%:!Icon%=I%..T#|
00000e40  49 63 6f 6e 25 21 73 74  61 74 65 3d 73 74 25 3a  |Icon%!state=st%:|
00000e50  49 63 6f 6e 25 21 6d 61  73 6b 3d 6d 73 6b 25 0d  |Icon%!mask=msk%.|
00000e60  06 5e 24 c8 99 53 65 74  49 63 6f 6e 53 74 61 74  |.^$..SetIconStat|
00000e70  65 25 2c 2c 57 69 6e 64  6f 77 25 2b 68 61 6e 64  |e%,,Window%+hand|
00000e80  6c 65 25 0d 06 68 05 e1  0d 06 72 04 0d 06 7c 11  |le%..h....r...|.|
00000e90  dd f2 55 73 65 72 44 72  61 67 42 6f 78 0d 06 86  |..UserDragBox...|
00000ea0  0a ea 62 6c 6f 63 6b 0d  06 90 0f 44 52 41 47 47  |..block....DRAGG|
00000eb0  49 4e 47 25 3d a3 0d 06  9a 11 62 6c 6f 63 6b 3d  |ING%=.....block=|
00000ec0  57 69 6e 64 6f 77 25 0d  06 a4 0d e7 53 41 56 49  |Window%.....SAVI|
00000ed0  4e 47 25 8c 0d 06 ae 22  e7 20 64 72 61 67 5f 73  |NG%....". drag_s|
00000ee0  74 6f 70 25 3c 3e 2d 31  20 c8 99 20 64 72 61 67  |top%<>-1 .. drag|
00000ef0  5f 73 74 6f 70 25 0d 06  b8 1c c8 99 47 65 74 50  |_stop%......GetP|
00000f00  6f 69 6e 74 65 72 49 6e  66 6f 25 2c 2c 62 6c 6f  |ointerInfo%,,blo|
00000f10  63 6b 0d 06 c2 14 62 6c  6f 63 6b 21 33 32 3d 62  |ck....block!32=b|
00000f20  6c 6f 63 6b 21 34 0d 06  cc 13 62 6c 6f 63 6b 21  |lock!4....block!|
00000f30  32 38 3d 21 62 6c 6f 63  6b 0d 06 d6 15 62 6c 6f  |28=!block....blo|
00000f40  63 6b 21 32 34 3d 62 6c  6f 63 6b 21 31 36 0d 06  |ck!24=block!16..|
00000f50  e0 15 62 6c 6f 63 6b 21  32 30 3d 62 6c 6f 63 6b  |..block!20=block|
00000f60  21 31 32 0d 06 ea 0e 62  6c 6f 63 6b 21 31 36 3d  |!12....block!16=|
00000f70  31 0d 06 f4 0e 62 6c 6f  63 6b 21 31 32 3d 30 0d  |1....block!12=0.|
00000f80  06 fe 0e 62 6c 6f 63 6b  21 33 36 3d 30 0d 07 08  |...block!36=0...|
00000f90  1b 62 6c 6f 63 6b 21 34  30 3d 53 70 72 61 79 46  |.block!40=SprayF|
00000fa0  69 6c 65 54 79 70 65 25  0d 07 12 26 24 28 62 6c  |ileType%...&$(bl|
00000fb0  6f 63 6b 2b 34 34 29 3d  a4 47 65 74 4c 65 61 66  |ock+44)=.GetLeaf|
00000fc0  4e 61 6d 65 28 53 61 76  65 54 65 78 74 29 0d 07  |Name(SaveText)..|
00000fd0  1c 0d 21 62 6c 6f 63 6b  3d 36 30 0d 07 26 23 c8  |..!block=60..&#.|
00000fe0  99 53 65 6e 64 4d 65 73  73 61 67 65 2c 31 37 2c  |.SendMessage,17,|
00000ff0  62 6c 6f 63 6b 2c 62 6c  6f 63 6b 21 32 30 0d 07  |block,block!20..|
00001000  30 05 cd 0d 07 3a 05 e1  0d 07 44 04 0d 07 4e 1e  |0....:....D...N.|
00001010  dd a4 53 65 74 42 69 74  28 74 65 73 74 2c 77 6f  |..SetBit(test,wo|
00001020  72 64 2c 62 69 74 6e 75  6d 29 0d 07 58 0d e7 74  |rd,bitnum)..X..t|
00001030  65 73 74 54 48 45 4e 0d  07 62 16 3d 77 6f 72 64  |estTHEN..b.=word|
00001040  4f 52 28 31 3c 3c 62 69  74 6e 75 6d 29 0d 07 6c  |OR(1<<bitnum)..l|
00001050  05 cc 0d 07 76 1a 3d 77  6f 72 64 41 4e 44 4e 4f  |....v.=wordANDNO|
00001060  54 28 31 3c 3c 62 69 74  6e 75 6d 29 0d 07 80 05  |T(1<<bitnum)....|
00001070  cd 0d 07 8a 04 0d 07 94  10 dd f2 4d 65 6e 75 53  |...........MenuS|
00001080  65 6c 65 63 74 0d 07 9e  19 ea 69 74 65 6d 25 2c  |elect.....item%,|
00001090  6e 2c 73 65 6c 65 63 74  69 6f 6e 2c 46 24 0d 07  |n,selection,F$..|
000010a0  a8 1d 73 65 6c 65 63 74  69 6f 6e 3d 57 69 6e 64  |..selection=Wind|
000010b0  6f 77 25 2b 68 61 6e 64  6c 65 25 0d 07 b2 30 c8  |ow%+handle%...0.|
000010c0  99 44 65 63 6f 64 65 4d  65 6e 75 2c 2c 49 63 6f  |.DecodeMenu,,Ico|
000010d0  6e 4d 65 6e 75 25 2c 73  65 6c 65 63 74 69 6f 6e  |nMenu%,selection|
000010e0  2c 4d 65 6e 75 53 74 72  69 6e 67 0d 07 bc 28 c8  |,MenuString...(.|
000010f0  8e c0 24 4d 65 6e 75 53  74 72 69 6e 67 2c a7 24  |..$MenuString,.$|
00001100  4d 65 6e 75 53 74 72 69  6e 67 2c 22 2e 22 29 2d  |MenuString,".")-|
00001110  31 29 ca 0d 07 c6 0b c9  22 53 61 76 65 22 0d 07  |1)......"Save"..|
00001120  d0 18 46 24 3d a4 47 65  74 53 74 72 28 53 61 76  |..F$=.GetStr(Sav|
00001130  65 54 65 78 74 29 0d 07  da 1d e7 28 a7 46 24 2c  |eText).....(.F$,|
00001140  22 2e 22 29 3d 30 80 a7  46 24 2c 22 3a 22 29 3d  |".")=0..F$,":")=|
00001150  30 29 8c 0d 07 e4 2a f2  4f 70 65 6e 57 69 6e 64  |0)....*.OpenWind|
00001160  6f 77 28 53 61 76 65 5f  68 25 2c 4d 6f 75 73 65  |ow(Save_h%,Mouse|
00001170  5f 58 25 2c 4d 6f 75 73  65 5f 59 25 29 0d 07 ee  |_X%,Mouse_Y%)...|
00001180  05 cc 0d 07 f8 13 f2 73  61 76 65 5f 73 70 72 61  |.......save_spra|
00001190  79 28 46 24 29 0d 08 02  05 cd 0d 08 0c 13 c9 22  |y(F$).........."|
000011a0  52 65 73 65 74 22 3a f2  72 65 73 65 74 0d 08 16  |Reset":.reset...|
000011b0  16 c9 22 51 75 69 74 22  3a f2 74 65 72 6d 69 6e  |.."Quit":.termin|
000011c0  61 74 65 0d 08 20 1c c9  22 50 69 63 74 75 72 65  |ate.. .."Picture|
000011d0  22 3a f2 4f 70 65 6e 50  69 63 74 49 6e 66 6f 0d  |":.OpenPictInfo.|
000011e0  08 2a 36 c9 22 53 6c 6f  77 22 3a 49 63 6f 6e 4d  |.*6."Slow":IconM|
000011f0  65 6e 75 25 21 31 30 30  3d 49 63 6f 6e 4d 65 6e  |enu%!100=IconMen|
00001200  75 25 21 31 30 30 82 31  3a 53 6c 6f 77 25 3d ac  |u%!100.1:Slow%=.|
00001210  53 6c 6f 77 25 0d 08 34  05 cb 0d 08 3e 1d c8 99  |Slow%..4....>...|
00001220  47 65 74 50 6f 69 6e 74  65 72 49 6e 66 6f 25 2c  |GetPointerInfo%,|
00001230  2c 4d 6f 75 73 65 25 0d  08 48 1b e7 25 30 30 31  |,Mouse%..H..%001|
00001240  80 20 4d 6f 75 73 65 25  21 62 75 74 74 6f 6e 73  |. Mouse%!buttons|
00001250  20 8c 0d 08 52 21 e7 4d  65 6e 75 25 3d 31 f2 4f  | ...R!.Menu%=1.O|
00001260  70 65 6e 4d 65 6e 75 20  8b f2 4f 70 65 6e 4d 65  |penMenu ..OpenMe|
00001270  6e 75 32 0d 08 5c 05 cd  0d 08 66 05 e1 0d 08 70  |nu2..\....f....p|
00001280  04 0d 08 7a 12 dd f2 4f  70 65 6e 50 69 63 74 49  |...z...OpenPictI|
00001290  6e 66 6f 0d 08 84 1f 57  69 6e 64 6f 77 25 21 68  |nfo....Window%!h|
000012a0  61 6e 64 6c 65 25 3d 50  69 63 74 49 6e 66 6f 5f  |andle%=PictInfo_|
000012b0  68 25 0d 08 8e 26 c8 99  47 65 74 57 69 6e 64 6f  |h%...&..GetWindo|
000012c0  77 53 74 61 74 65 25 2c  2c 57 69 6e 64 6f 77 25  |wState%,,Window%|
000012d0  2b 68 61 6e 64 6c 65 25  0d 08 98 15 57 69 6e 64  |+handle%....Wind|
000012e0  6f 77 25 21 75 6e 64 65  72 25 3d 2d 31 0d 08 a2  |ow%!under%=-1...|
000012f0  22 c8 99 4f 70 65 6e 57  69 6e 64 6f 77 25 2c 2c  |"..OpenWindow%,,|
00001300  57 69 6e 64 6f 77 25 2b  68 61 6e 64 6c 65 25 0d  |Window%+handle%.|
00001310  08 ac 05 e1 0d 08 b6 04  0d 08 c0 10 dd f2 4b 65  |..............Ke|
00001320  79 50 72 65 73 73 65 64  0d 08 ca 10 ea 54 68 69  |yPressed.....Thi|
00001330  73 57 69 6e 64 6f 77 25  0d 08 d4 1e e7 21 28 57  |sWindow%.....!(W|
00001340  69 6e 64 6f 77 25 2b 68  61 6e 64 6c 65 25 2b 32  |indow%+handle%+2|
00001350  34 29 3d 31 33 8c 0d 08  de 1f 54 68 69 73 57 69  |4)=13.....ThisWi|
00001360  6e 64 6f 77 25 3d 57 69  6e 64 6f 77 25 21 68 61  |ndow%=Window%!ha|
00001370  6e 64 6c 65 25 0d 08 e8  14 c8 8e 28 54 68 69 73  |ndle%......(This|
00001380  57 69 6e 64 6f 77 25 29  ca 0d 08 f2 2b c9 53 61  |Window%)....+.Sa|
00001390  76 65 5f 68 25 3a f2 73  61 76 65 5f 73 70 72 61  |ve_h%:.save_spra|
000013a0  79 28 a4 47 65 74 53 74  72 28 53 61 76 65 54 65  |y(.GetStr(SaveTe|
000013b0  78 74 29 29 0d 08 fc 2f  7f 3a c8 99 22 57 69 6d  |xt)).../.:.."Wim|
000013c0  70 5f 50 72 6f 63 65 73  73 4b 65 79 22 2c 21 28  |p_ProcessKey",!(|
000013d0  57 69 6e 64 6f 77 25 2b  68 61 6e 64 6c 65 25 2b  |Window%+handle%+|
000013e0  32 34 29 0d 09 06 05 cb  0d 09 10 05 cc 0d 09 1a  |24).............|
000013f0  2d c8 99 22 57 69 6d 70  5f 50 72 6f 63 65 73 73  |-.."Wimp_Process|
00001400  4b 65 79 22 2c 21 28 57  69 6e 64 6f 77 25 2b 68  |Key",!(Window%+h|
00001410  61 6e 64 6c 65 25 2b 32  34 29 0d 09 24 05 cd 0d  |andle%+24)..$...|
00001420  09 2e 05 e1 0d 09 38 04  0d 09 42 0e dd f2 4f 70  |......8...B...Op|
00001430  65 6e 4d 65 6e 75 0d 09  4c 27 49 63 6f 6e 4d 65  |enMenu..L'IconMe|
00001440  6e 75 25 3f 36 32 3d 49  63 6f 6e 4d 65 6e 75 25  |nu%?62=IconMenu%|
00001450  3f 36 32 80 25 31 30 31  31 31 31 31 31 0d 09 56  |?62.%10111111..V|
00001460  3f c8 99 43 72 65 61 74  65 4d 65 6e 75 2c 2c 49  |?..CreateMenu,,I|
00001470  63 6f 6e 4d 65 6e 75 25  2c 4d 6f 75 73 65 5f 58  |conMenu%,Mouse_X|
00001480  25 2d 43 5f 57 69 64 74  68 25 2a 34 2c 32 39 36  |%-C_Width%*4,296|
00001490  2b 43 5f 48 65 69 67 68  74 25 2a 32 0d 09 60 0b  |+C_Height%*2..`.|
000014a0  4d 65 6e 75 25 3d 31 0d  09 6a 19 f2 43 6c 6f 73  |Menu%=1..j..Clos|
000014b0  65 57 69 6e 64 6f 77 28  53 61 76 65 5f 68 25 29  |eWindow(Save_h%)|
000014c0  0d 09 74 05 e1 0d 09 7e  04 0d 09 88 0f dd f2 4f  |..t....~.......O|
000014d0  70 65 6e 4d 65 6e 75 32  0d 09 92 20 49 63 6f 6e  |penMenu2... Icon|
000014e0  4d 65 6e 75 25 3f 36 32  3d 49 63 6f 6e 4d 65 6e  |Menu%?62=IconMen|
000014f0  75 25 3f 36 32 84 36 34  0d 09 9c 38 c8 99 43 72  |u%?62.64...8..Cr|
00001500  65 61 74 65 4d 65 6e 75  2c 2c 49 63 6f 6e 4d 65  |eateMenu,,IconMe|
00001510  6e 75 25 2c 4d 6f 75 73  65 5f 58 25 2d 43 5f 57  |nu%,Mouse_X%-C_W|
00001520  69 64 74 68 25 2a 34 2c  4d 6f 75 73 65 5f 59 25  |idth%*4,Mouse_Y%|
00001530  0d 09 a6 0b 4d 65 6e 75  25 3d 32 0d 09 b0 19 f2  |....Menu%=2.....|
00001540  43 6c 6f 73 65 57 69 6e  64 6f 77 28 53 61 76 65  |CloseWindow(Save|
00001550  5f 68 25 29 0d 09 ba 05  e1 0d 09 c4 04 0d 09 ce  |_h%)............|
00001560  0f dd f2 43 6c 6f 73 65  4d 65 6e 75 0d 09 d8 14  |...CloseMenu....|
00001570  c8 99 43 72 65 61 74 65  4d 65 6e 75 2c 2c 2d 31  |..CreateMenu,,-1|
00001580  0d 09 e2 19 f2 43 6c 6f  73 65 57 69 6e 64 6f 77  |.....CloseWindow|
00001590  28 53 61 76 65 5f 68 25  29 0d 09 ec 05 e1 0d 09  |(Save_h%).......|
000015a0  f6 04 0d 0a 00 1a dd f2  4f 70 65 6e 57 69 6e 64  |........OpenWind|
000015b0  6f 77 28 68 25 2c 78 25  2c 79 25 29 0d 0a 0a 12  |ow(h%,x%,y%)....|
000015c0  ea 78 73 69 7a 65 25 2c  79 73 69 7a 65 25 0d 0a  |.xsize%,ysize%..|
000015d0  14 16 57 69 6e 64 6f 77  25 21 68 61 6e 64 6c 65  |..Window%!handle|
000015e0  25 3d 68 25 0d 0a 1e 26  c8 99 47 65 74 57 69 6e  |%=h%...&..GetWin|
000015f0  64 6f 77 53 74 61 74 65  25 2c 2c 57 69 6e 64 6f  |dowState%,,Windo|
00001600  77 25 2b 68 61 6e 64 6c  65 25 0d 0a 28 22 78 73  |w%+handle%..("xs|
00001610  69 7a 65 25 3d 57 69 6e  64 6f 77 25 21 78 31 25  |ize%=Window%!x1%|
00001620  2d 57 69 6e 64 6f 77 25  21 78 30 25 0d 0a 32 22  |-Window%!x0%..2"|
00001630  79 73 69 7a 65 25 3d 57  69 6e 64 6f 77 25 21 79  |ysize%=Window%!y|
00001640  31 25 2d 57 69 6e 64 6f  77 25 21 79 30 25 0d 0a  |1%-Window%!y0%..|
00001650  3c 15 57 69 6e 64 6f 77  25 21 75 6e 64 65 72 25  |<.Window%!under%|
00001660  3d 2d 31 0d 0a 46 12 57  69 6e 64 6f 77 25 21 78  |=-1..F.Window%!x|
00001670  30 25 3d 78 25 0d 0a 50  22 57 69 6e 64 6f 77 25  |0%=x%..P"Window%|
00001680  21 78 31 25 3d 57 69 6e  64 6f 77 25 21 78 30 25  |!x1%=Window%!x0%|
00001690  2b 78 73 69 7a 65 25 0d  0a 5a 12 57 69 6e 64 6f  |+xsize%..Z.Windo|
000016a0  77 25 21 79 30 25 3d 79  25 0d 0a 64 22 57 69 6e  |w%!y0%=y%..d"Win|
000016b0  64 6f 77 25 21 79 31 25  3d 57 69 6e 64 6f 77 25  |dow%!y1%=Window%|
000016c0  21 79 30 25 2b 79 73 69  7a 65 25 0d 0a 6e 22 c8  |!y0%+ysize%..n".|
000016d0  99 4f 70 65 6e 57 69 6e  64 6f 77 25 2c 2c 57 69  |.OpenWindow%,,Wi|
000016e0  6e 64 6f 77 25 2b 68 61  6e 64 6c 65 25 0d 0a 78  |ndow%+handle%..x|
000016f0  05 e1 0d 0a 82 04 0d 0a  8c 15 dd f2 43 6c 6f 73  |............Clos|
00001700  65 57 69 6e 64 6f 77 28  68 25 29 0d 0a 96 16 57  |eWindow(h%)....W|
00001710  69 6e 64 6f 77 25 21 68  61 6e 64 6c 65 25 3d 68  |indow%!handle%=h|
00001720  25 0d 0a a0 23 c8 99 43  6c 6f 73 65 57 69 6e 64  |%...#..CloseWind|
00001730  6f 77 25 2c 2c 57 69 6e  64 6f 77 25 2b 68 61 6e  |ow%,,Window%+han|
00001740  64 6c 65 25 0d 0a aa 05  e1 0d 0a b4 04 0d 0a be  |dle%............|
00001750  18 dd a4 47 65 74 4c 65  61 66 4e 61 6d 65 28 6e  |...GetLeafName(n|
00001760  61 6d 65 25 29 0d 0a c8  11 ea 63 68 24 2c 6e 25  |ame%).....ch$,n%|
00001770  2c 6e 61 6d 65 24 0d 0a  d2 18 6e 61 6d 65 24 3d  |,name$....name$=|
00001780  a4 47 65 74 53 74 72 28  6e 61 6d 65 25 29 0d 0a  |.GetStr(name%)..|
00001790  dc 2d e7 28 28 a7 6e 61  6d 65 24 2c 22 2e 22 29  |.-.((.name$,".")|
000017a0  3d 30 29 80 28 a7 6e 61  6d 65 24 2c 22 3a 22 29  |=0).(.name$,":")|
000017b0  3d 30 29 29 8c 3d 6e 61  6d 65 24 0d 0a e6 0f 6e  |=0)).=name$....n|
000017c0  25 3d a9 28 6e 61 6d 65  24 29 0d 0a f0 05 f5 0d  |%=.(name$)......|
000017d0  0a fa 14 63 68 24 3d c1  6e 61 6d 65 24 2c 6e 25  |...ch$=.name$,n%|
000017e0  2c 31 29 0d 0b 04 09 6e  25 2d 3d 31 0d 0b 0e 1c  |,1)....n%-=1....|
000017f0  fd 28 6e 25 3c 3d 30 84  63 68 24 3d 22 2e 22 84  |.(n%<=0.ch$=".".|
00001800  63 68 24 3d 22 3a 22 29  0d 0b 18 20 e7 6e 25 3e  |ch$=":")... .n%>|
00001810  30 8c 3d c2 6e 61 6d 65  24 2c a9 28 6e 61 6d 65  |0.=.name$,.(name|
00001820  24 29 2d 6e 25 2d 31 29  0d 0b 22 10 dd a4 47 65  |$)-n%-1).."...Ge|
00001830  74 53 74 72 28 73 25 29  0d 0b 2c 07 ea 6e 24 0d  |tStr(s%)..,..n$.|
00001840  0b 36 1a c8 95 3f 73 25  3a 6e 24 2b 3d bd 3f 73  |.6...?s%:n$+=.?s|
00001850  25 3a 73 25 2b 3d 31 3a  ce 0d 0b 40 07 3d 6e 24  |%:s%+=1:...@.=n$|
00001860  0d 0b 4a 04 0d 0b 54 15  dd a4 47 65 74 46 69 6c  |..J...T...GetFil|
00001870  65 49 6e 66 6f 28 46 24  29 0d 0b 5e 26 ea 54 25  |eInfo(F$)..^&.T%|
00001880  2c 4c 25 2c 41 25 2c 4d  24 2c 74 69 6d 65 25 2c  |,L%,A%,M$,time%,|
00001890  46 69 6c 65 54 79 70 65  24 2c 72 32 2c 72 33 0d  |FileType$,r2,r3.|
000018a0  0b 68 31 e7 46 24 3c 3e  22 22 c8 99 4f 53 5f 46  |.h1.F$<>""..OS_F|
000018b0  69 6c 65 2c 35 2c 46 24  b8 54 25 2c 2c 6c 61 64  |ile,5,F$.T%,,lad|
000018c0  64 72 25 2c 65 61 64 64  72 25 2c 4c 25 2c 41 25  |dr%,eaddr%,L%,A%|
000018d0  0d 0b 72 28 e7 28 46 24  3d 22 22 29 84 28 28 54  |..r(.(F$="").((T|
000018e0  25 3d 31 29 80 28 41 25  80 20 31 29 80 28 4c 25  |%=1).(A%. 1).(L%|
000018f0  3e 38 29 29 3d 30 3d a3  0d 0b 7c 44 e7 28 28 6c  |>8))=0=...|D.((l|
00001900  61 64 64 72 25 3e 3e 32  30 29 80 26 46 46 46 29  |addr%>>20).&FFF)|
00001910  3d 26 46 46 46 20 46 69  6c 65 54 79 70 65 25 3d  |=&FFF FileType%=|
00001920  28 6c 61 64 64 72 25 3e  3e 38 80 26 46 46 46 29  |(laddr%>>8.&FFF)|
00001930  8b 46 69 6c 65 54 79 70  65 25 3d 30 0d 0b 86 29  |.FileType%=0...)|
00001940  e7 46 69 6c 65 54 79 70  65 25 3d 53 70 72 61 79  |.FileType%=Spray|
00001950  46 69 6c 65 54 79 70 65  25 46 69 6c 65 53 69 7a  |FileType%FileSiz|
00001960  65 25 3d 4c 25 0d 0b 90  06 3d b9 0d 0b 9a 04 0d  |e%=L%....=......|
00001970  0b a4 14 dd f2 6c 6f 61  64 5f 73 70 72 61 79 28  |.....load_spray(|
00001980  46 24 29 0d 0b ae 0a ea  46 25 2c 4d 24 0d 0b b8  |F$).....F%,M$...|
00001990  31 e7 a9 46 24 3d 30 8c  ef 37 3a 54 25 3d a4 43  |1..F$=0..7:T%=.C|
000019a0  68 65 63 6b 4f 4b 28 22  49 6e 76 61 6c 69 64 20  |heckOK("Invalid |
000019b0  66 69 6c 65 6e 61 6d 65  22 2c 31 29 3a e1 0d 0b  |filename",1):...|
000019c0  c2 14 c8 99 22 48 6f 75  72 67 6c 61 73 73 5f 4f  |...."Hourglass_O|
000019d0  6e 22 0d 0b cc 44 ee 85  ea ef 37 3a ff 28 22 46  |n"...D....7:.("F|
000019e0  58 20 32 32 39 2c 31 22  29 3a f2 72 65 73 65 74  |X 229,1"):.reset|
000019f0  3a c8 99 22 48 6f 75 72  67 6c 61 73 73 5f 4f 66  |:.."Hourglass_Of|
00001a00  66 22 3a 54 25 3d a4 43  68 65 63 6b 4f 4b 28 f6  |f":T%=.CheckOK(.|
00001a10  24 2c 31 29 3a e1 0d 0b  d6 11 ff 28 22 46 58 20  |$,1):......("FX |
00001a20  32 32 39 2c 30 22 29 0d  0b e0 63 e7 ac a4 47 65  |229,0")...c...Ge|
00001a30  74 46 69 6c 65 49 6e 66  6f 28 46 24 29 8c ef 37  |tFileInfo(F$)..7|
00001a40  3a ff 28 22 46 58 20 32  32 39 2c 31 22 29 3a c8  |:.("FX 229,1"):.|
00001a50  99 22 48 6f 75 72 67 6c  61 73 73 5f 4f 66 66 22  |."Hourglass_Off"|
00001a60  3a 54 25 3d a4 43 68 65  63 6b 4f 4b 28 22 49 6e  |:T%=.CheckOK("In|
00001a70  76 61 6c 69 64 20 6f 72  20 6c 6f 63 6b 65 64 20  |valid or locked |
00001a80  66 69 6c 65 22 2c 31 29  3a e1 0d 0b ea 49 e7 46  |file",1):....I.F|
00001a90  69 6c 65 54 79 70 65 25  3c 3e 53 70 72 61 79 46  |ileType%<>SprayF|
00001aa0  69 6c 65 54 79 70 65 25  54 25 3d a4 43 68 65 63  |ileType%T%=.Chec|
00001ab0  6b 4f 4b 28 22 54 68 69  73 20 69 73 20 6e 6f 74  |kOK("This is not|
00001ac0  20 61 20 73 70 72 61 79  20 66 69 6c 65 22 2c 31  | a spray file",1|
00001ad0  29 3a e1 0d 0b f4 3f e7  ac a4 6d 65 6d 6f 72 79  |):....?...memory|
00001ae0  20 54 25 3d a4 43 68 65  63 6b 4f 4b 28 22 4e 6f  | T%=.CheckOK("No|
00001af0  74 20 65 6e 6f 75 67 68  20 6d 65 6d 6f 72 79 20  |t enough memory |
00001b00  74 6f 20 6c 6f 61 64 20  66 69 6c 65 22 2c 31 29  |to load file",1)|
00001b10  3a e1 0d 0b fe 1f ff 28  22 4c 6f 61 64 20 22 2b  |:......("Load "+|
00001b20  46 24 2b 22 20 22 2b c3  7e 72 65 63 6f 72 64 25  |F$+" "+.~record%|
00001b30  29 0d 0c 08 11 ff 28 22  46 58 20 32 32 39 2c 31  |).....("FX 229,1|
00001b40  22 29 0d 0c 12 15 c8 99  22 48 6f 75 72 67 6c 61  |")......"Hourgla|
00001b50  73 73 5f 4f 66 66 22 0d  0c 1c 0a f2 72 65 73 65  |ss_Off".....rese|
00001b60  74 0d 0c 26 11 f2 4f 70  65 6e 50 69 63 74 49 6e  |t..&..OpenPictIn|
00001b70  66 6f 0d 0c 30 0d 4c 6f  61 64 65 64 25 3d b9 0d  |fo..0.Loaded%=..|
00001b80  0c 3a 05 e1 0d 0c 44 04  0d 0c 4e 14 dd f2 73 61  |.:....D...N...sa|
00001b90  76 65 5f 73 70 72 61 79  28 46 24 29 0d 0c 58 0c  |ve_spray(F$)..X.|
00001ba0  ea 62 6c 6f 63 6b 2c 6e  0d 0c 62 06 ea 85 0d 0c  |.block,n..b.....|
00001bb0  6c 11 62 6c 6f 63 6b 3d  57 69 6e 64 6f 77 25 0d  |l.block=Window%.|
00001bc0  0c 76 15 24 53 61 76 65  54 65 78 74 3d 46 24 2b  |.v.$SaveText=F$+|
00001bd0  bd 28 30 29 0d 0c 80 1d  e7 28 a7 46 24 2c 22 2e  |.(0).....(.F$,".|
00001be0  22 29 3d 30 80 a7 46 24  2c 22 3a 22 29 3d 30 29  |")=0..F$,":")=0)|
00001bf0  8c 0d 0c 8a 41 6e 3d a4  43 68 65 63 6b 4f 4b 28  |....An=.CheckOK(|
00001c00  22 54 6f 20 73 61 76 65  2c 20 64 72 61 67 20 74  |"To save, drag t|
00001c10  68 65 20 69 63 6f 6e 20  74 6f 20 61 20 64 69 72  |he icon to a dir|
00001c20  65 63 74 6f 72 79 20 76  69 65 77 65 72 2e 22 2c  |ectory viewer.",|
00001c30  31 29 0d 0c 94 05 e1 0d  0c 9e 05 cd 0d 0c a8 14  |1)..............|
00001c40  c8 99 22 48 6f 75 72 67  6c 61 73 73 5f 4f 6e 22  |.."Hourglass_On"|
00001c50  0d 0c b2 3a ee 85 ea ff  28 22 46 58 20 32 32 39  |...:....("FX 229|
00001c60  2c 31 22 29 3a c8 99 22  48 6f 75 72 67 6c 61 73  |,1"):.."Hourglas|
00001c70  73 5f 4f 66 66 22 3a 54  25 3d a4 43 68 65 63 6b  |s_Off":T%=.Check|
00001c80  4f 4b 28 f6 24 2c 31 29  3a e1 0d 0c bc 11 ff 28  |OK(.$,1):......(|
00001c90  22 46 58 20 32 32 39 2c  30 22 29 0d 0c c6 1e c8  |"FX 229,0").....|
00001ca0  99 53 70 72 69 74 65 4f  70 25 2c 32 36 38 2c 53  |.SpriteOp%,268,S|
00001cb0  70 72 42 6c 6b 25 2c 46  24 0d 0c d0 11 ff 28 22  |prBlk%,F$.....("|
00001cc0  46 58 20 32 32 39 2c 31  22 29 0d 0c da 15 c8 99  |FX 229,1")......|
00001cd0  22 48 6f 75 72 67 6c 61  73 73 5f 4f 66 66 22 0d  |"Hourglass_Off".|
00001ce0  0c e4 05 e1 0d 0c ee 04  0d 0c f8 10 dd a4 69 6e  |..............in|
00001cf0  69 74 69 61 6c 69 73 65  0d 0d 02 12 f2 45 6e 75  |itialise.....Enu|
00001d00  6d 65 72 61 74 65 53 57  49 73 0d 0d 0c 15 f2 69  |merateSWIs.....i|
00001d10  6e 69 74 69 61 6c 69 73  65 5f 73 70 72 61 79 0d  |nitialise_spray.|
00001d20  0d 16 1a f2 69 6e 69 74  69 61 6c 69 73 65 5f 6d  |....initialise_m|
00001d30  69 73 63 65 6c 6c 61 6e  79 0d 0d 20 16 f2 69 6e  |iscellany.. ..in|
00001d40  69 74 69 61 6c 69 73 65  5f 73 63 72 65 65 6e 0d  |itialise_screen.|
00001d50  0d 2a 17 f2 69 6e 69 74  69 61 6c 69 73 65 5f 73  |.*..initialise_s|
00001d60  70 72 69 74 65 73 0d 0d  34 14 f2 69 6e 69 74 69  |prites..4..initi|
00001d70  61 6c 69 73 65 5f 77 69  6d 70 0d 0d 3e 14 f2 69  |alise_wimp..>..i|
00001d80  6e 69 74 69 61 6c 69 73  65 5f 6d 65 6e 75 0d 0d  |nitialise_menu..|
00001d90  48 14 f2 69 6e 69 74 69  61 6c 69 73 65 5f 64 72  |H..initialise_dr|
00001da0  61 67 0d 0d 52 06 3d b9  0d 0d 5c 04 0d 0d 66 13  |ag..R.=...\...f.|
00001db0  dd f2 45 6e 75 6d 65 72  61 74 65 53 57 49 73 0d  |..EnumerateSWIs.|
00001dc0  0d 70 11 ea 57 25 3a 57  25 3d 26 34 30 30 43 30  |.p..W%:W%=&400C0|
00001dd0  0d 0d 7a 11 53 70 72 69  74 65 4f 70 25 3d 26 32  |..z.SpriteOp%=&2|
00001de0  45 0d 0d 84 14 49 6e 69  74 69 61 6c 69 73 65 25  |E....Initialise%|
00001df0  3d 57 25 2b 30 0d 0d 8e  16 43 72 65 61 74 65 57  |=W%+0....CreateW|
00001e00  69 6e 64 6f 77 25 3d 57  25 2b 31 0d 0d 98 14 43  |indow%=W%+1....C|
00001e10  72 65 61 74 65 49 63 6f  6e 25 3d 57 25 2b 32 0d  |reateIcon%=W%+2.|
00001e20  0d a2 14 4f 70 65 6e 57  69 6e 64 6f 77 25 3d 57  |...OpenWindow%=W|
00001e30  25 2b 35 0d 0d ac 15 43  6c 6f 73 65 57 69 6e 64  |%+5....CloseWind|
00001e40  6f 77 25 3d 57 25 2b 36  0d 0d b6 0e 50 6f 6c 6c  |ow%=W%+6....Poll|
00001e50  25 3d 57 25 2b 37 0d 0d  c0 16 52 65 64 72 61 77  |%=W%+7....Redraw|
00001e60  57 69 6e 64 6f 77 25 3d  57 25 2b 38 0d 0d ca 16  |Window%=W%+8....|
00001e70  55 70 64 61 74 65 57 69  6e 64 6f 77 25 3d 57 25  |UpdateWindow%=W%|
00001e80  2b 39 0d 0d d4 17 47 65  74 52 65 63 74 61 6e 67  |+9....GetRectang|
00001e90  6c 65 25 3d 57 25 2b 31  30 0d 0d de 19 47 65 74  |le%=W%+10....Get|
00001ea0  57 69 6e 64 6f 77 53 74  61 74 65 25 3d 57 25 2b  |WindowState%=W%+|
00001eb0  31 31 0d 0d e8 17 53 65  74 49 63 6f 6e 53 74 61  |11....SetIconSta|
00001ec0  74 65 25 3d 57 25 2b 31  33 0d 0d f2 16 47 65 74  |te%=W%+13....Get|
00001ed0  49 63 6f 6e 49 6e 66 6f  25 3d 57 25 2b 31 34 0d  |IconInfo%=W%+14.|
00001ee0  0d fc 19 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |...GetPointerInf|
00001ef0  6f 25 3d 57 25 2b 31 35  0d 0e 06 11 44 72 61 67  |o%=W%+15....Drag|
00001f00  42 6f 78 3d 57 25 2b 31  36 0d 0e 10 15 46 6f 72  |Box=W%+16....For|
00001f10  63 65 52 65 64 72 61 77  3d 57 25 2b 31 37 0d 0e  |ceRedraw=W%+17..|
00001f20  1a 14 43 72 65 61 74 65  4d 65 6e 75 3d 57 25 2b  |..CreateMenu=W%+|
00001f30  32 30 0d 0e 24 14 44 65  63 6f 64 65 4d 65 6e 75  |20..$.DecodeMenu|
00001f40  3d 57 25 2b 32 31 0d 0e  2e 13 53 65 74 45 78 74  |=W%+21....SetExt|
00001f50  65 6e 74 3d 57 25 2b 32  33 0d 0e 38 16 4f 70 65  |ent=W%+23..8.Ope|
00001f60  6e 54 65 6d 70 6c 61 74  65 3d 57 25 2b 32 35 0d  |nTemplate=W%+25.|
00001f70  0e 42 17 43 6c 6f 73 65  54 65 6d 70 6c 61 74 65  |.B.CloseTemplate|
00001f80  3d 57 25 2b 32 36 0d 0e  4c 16 4c 6f 61 64 54 65  |=W%+26..L.LoadTe|
00001f90  6d 70 6c 61 74 65 3d 57  25 2b 32 37 0d 0e 56 13  |mplate=W%+27..V.|
00001fa0  43 6c 6f 73 65 44 6f 77  6e 3d 57 25 2b 32 39 0d  |CloseDown=W%+29.|
00001fb0  0e 60 3f c8 99 22 4f 53  5f 53 57 49 4e 75 6d 62  |.`?.."OS_SWINumb|
00001fc0  65 72 46 72 6f 6d 53 74  72 69 6e 67 22 2c 30 2c  |erFromString",0,|
00001fd0  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
00001fe0  65 22 b8 53 65 6e 64 4d  65 73 73 61 67 65 0d 0e  |e".SendMessage..|
00001ff0  6a 49 c8 99 22 4f 53 5f  53 57 49 4e 75 6d 62 65  |jI.."OS_SWINumbe|
00002000  72 46 72 6f 6d 53 74 72  69 6e 67 22 2c 30 2c 22  |rFromString",0,"|
00002010  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 4f 75  |Wimp_GetWindowOu|
00002020  74 6c 69 6e 65 22 b8 47  65 74 57 69 6e 64 6f 77  |tline".GetWindow|
00002030  4f 75 74 6c 69 6e 65 0d  0e 74 3b c8 99 22 4f 53  |Outline..t;.."OS|
00002040  5f 53 57 49 4e 75 6d 62  65 72 46 72 6f 6d 53 74  |_SWINumberFromSt|
00002050  72 69 6e 67 22 2c 30 2c  22 57 69 6d 70 5f 53 65  |ring",0,"Wimp_Se|
00002060  74 43 6f 6c 6f 75 72 22  b8 53 65 74 43 6f 6c 6f  |tColour".SetColo|
00002070  75 72 0d 0e 7e 05 e1 0d  0e 88 04 0d 0e 92 1b dd  |ur..~...........|
00002080  f2 69 6e 69 74 69 61 6c  69 73 65 5f 6d 69 73 63  |.initialise_misc|
00002090  65 6c 6c 61 6e 79 0d 0e  9c 14 de 52 65 73 6f 75  |ellany.....Resou|
000020a0  72 63 65 64 69 72 20 32  35 35 0d 0e a6 08 ea 6c  |rcedir 255.....l|
000020b0  65 6e 0d 0e b0 3e c8 99  22 4f 53 5f 52 65 61 64  |en...>.."OS_Read|
000020c0  56 61 72 56 61 6c 22 2c  22 53 70 72 61 79 43 61  |VarVal","SprayCa|
000020d0  6e 24 64 69 72 22 2c 52  65 73 6f 75 72 63 65 64  |n$dir",Resourced|
000020e0  69 72 2c 32 35 35 2c 30  2c 30 b8 2c 2c 6c 65 6e  |ir,255,0,0.,,len|
000020f0  0d 0e ba 16 52 65 73 6f  75 72 63 65 64 69 72 3f  |....Resourcedir?|
00002100  6c 65 6e 3d 31 33 0d 0e  c4 1d 52 65 73 6f 75 72  |len=13....Resour|
00002110  63 65 64 69 72 24 3d 24  52 65 73 6f 75 72 63 65  |cedir$=$Resource|
00002120  64 69 72 0d 0e ce 07 d1  3d 30 0d 0e d8 12 41 77  |dir.....=0....Aw|
00002130  61 69 74 69 6e 67 41 63  6b 25 3d a3 0d 0e e2 0f  |aitingAck%=.....|
00002140  44 52 41 47 47 49 4e 47  25 3d a3 0d 0e ec 0d 53  |DRAGGING%=.....S|
00002150  41 56 49 4e 47 25 3d a3  0d 0e f6 15 de 53 74 72  |AVING%=......Str|
00002160  69 6e 67 5f 53 70 61 63  65 25 32 35 36 0d 0f 00  |ing_Space%256...|
00002170  0e 4f 53 5f 46 69 6c 65  3d 26 38 0d 0f 0a 24 53  |.OS_File=&8...$S|
00002180  70 72 69 74 65 24 3d 52  65 73 6f 75 72 63 65 64  |prite$=Resourced|
00002190  69 72 24 2b 22 2e 21 53  70 72 69 74 65 73 22 0d  |ir$+".!Sprites".|
000021a0  0f 14 0b 46 49 4c 45 25  3d a3 0d 0f 1e 0c 6c 61  |...FILE%=.....la|
000021b0  64 64 72 25 3d 30 0d 0f  28 0c 65 61 64 64 72 25  |ddr%=0..(.eaddr%|
000021c0  3d 30 0d 0f 32 0d 4c 6f  61 64 65 64 25 3d a3 0d  |=0..2.Loaded%=..|
000021d0  0f 3c 0b 53 6c 6f 77 25  3d a3 0d 0f 46 0b 4d 65  |.<.Slow%=...F.Me|
000021e0  6e 75 25 3d 30 0d 0f 50  05 e1 0d 0f 5a 04 0d 0f  |nu%=0..P....Z...|
000021f0  64 11 dd f2 73 65 74 5f  63 6f 6c 6f 75 72 73 0d  |d...set_colours.|
00002200  0f 6e 07 ea 43 25 0d 0f  78 13 43 5f 4d 65 6e 75  |.n..C%..x.C_Menu|
00002210  54 69 74 6c 65 66 67 3d  37 0d 0f 82 13 43 5f 4d  |Titlefg=7....C_M|
00002220  65 6e 75 54 69 74 6c 65  62 67 3d 32 0d 0f 8c 0e  |enuTitlebg=2....|
00002230  43 5f 4d 65 6e 75 66 67  3d 37 0d 0f 96 0e 43 5f  |C_Menufg=7....C_|
00002240  4d 65 6e 75 62 67 3d 30  0d 0f a0 12 43 5f 4d 65  |Menubg=0....C_Me|
00002250  6e 75 49 74 65 6d 66 67  3d 37 0d 0f aa 12 43 5f  |nuItemfg=7....C_|
00002260  4d 65 6e 75 49 74 65 6d  62 67 3d 30 0d 0f b4 05  |MenuItembg=0....|
00002270  e1 0d 0f be 04 0d 0f c8  18 dd f2 69 6e 69 74 69  |...........initi|
00002280  61 6c 69 73 65 5f 73 70  72 69 74 65 73 0d 0f d2  |alise_sprites...|
00002290  0f de 66 61 63 74 6f 72  73 25 31 36 0d 0f dc 10  |..factors%16....|
000022a0  de 70 69 78 74 72 61 6e  73 25 31 36 0d 0f e6 32  |.pixtrans%16...2|
000022b0  c8 99 22 57 69 6d 70 5f  53 70 72 69 74 65 4f 70  |.."Wimp_SpriteOp|
000022c0  22 2c 31 31 2c 2c 52 65  73 6f 75 72 63 65 64 69  |",11,,Resourcedi|
000022d0  72 24 2b 22 2e 21 53 70  72 69 74 65 73 22 0d 0f  |r$+".!Sprites"..|
000022e0  f0 15 53 70 72 69 74 65  4c 65 6e 25 3d 31 36 33  |..SpriteLen%=163|
000022f0  39 36 38 0d 0f fa 16 de  53 70 72 42 6c 6b 25 53  |968.....SprBlk%S|
00002300  70 72 69 74 65 4c 65 6e  25 0d 10 04 17 21 53 70  |priteLen%....!Sp|
00002310  72 42 6c 6b 25 3d 53 70  72 69 74 65 4c 65 6e 25  |rBlk%=SpriteLen%|
00002320  0d 10 0e 0f 53 70 72 42  6c 6b 25 21 34 3d 30 0d  |....SprBlk%!4=0.|
00002330  10 18 10 53 70 72 42 6c  6b 25 21 38 3d 31 36 0d  |...SprBlk%!8=16.|
00002340  10 22 11 53 70 72 42 6c  6b 25 21 31 32 3d 31 36  |.".SprBlk%!12=16|
00002350  0d 10 2c 10 53 70 72 50  6c 6f 74 25 3d 32 39 30  |..,.SprPlot%=290|
00002360  0d 10 36 0f 53 70 72 47  65 74 25 3d 32 37 32 0d  |..6.SprGet%=272.|
00002370  10 40 16 ea 49 25 2c 4e  25 2c 78 25 2c 79 25 2c  |.@..I%,N%,x%,y%,|
00002380  57 25 2c 48 25 0d 10 4a  05 e1 0d 10 54 04 0d 10  |W%,H%..J....T...|
00002390  5e 15 dd f2 69 6e 69 74  69 61 6c 69 73 65 5f 77  |^...initialise_w|
000023a0  69 6d 70 0d 10 68 1b f2  65 6e 75 6d 65 72 61 74  |imp..h..enumerat|
000023b0  65 5f 77 69 6d 70 5f 6f  66 66 73 65 74 73 0d 10  |e_wimp_offsets..|
000023c0  72 36 74 61 73 6b 25 3d  97 28 22 54 22 29 2b 28  |r6task%=.("T")+(|
000023d0  97 28 22 41 22 29 3c 3c  38 29 2b 28 97 28 22 53  |.("A")<<8)+(.("S|
000023e0  22 29 3c 3c 31 36 29 2b  28 97 28 22 4b 22 29 3c  |")<<16)+(.("K")<|
000023f0  3c 32 34 29 0d 10 7c 2f  c8 99 49 6e 69 74 69 61  |<24)..|/..Initia|
00002400  6c 69 73 65 25 2c 32 30  30 2c 74 61 73 6b 25 2c  |lise%,200,task%,|
00002410  22 53 70 72 61 79 43 61  6e 22 b8 2c 54 61 73 6b  |"SprayCan".,Task|
00002420  5f 68 25 0d 10 86 1d 4d  6f 75 73 65 5f 58 25 3d  |_h%....Mouse_X%=|
00002430  36 34 30 3a 4d 6f 75 73  65 5f 59 25 3d 35 36 30  |640:Mouse_Y%=560|
00002440  0d 10 90 0c 50 54 49 4d  45 25 3d 30 0d 10 9a 23  |....PTIME%=0...#|
00002450  c8 99 22 57 69 6d 70 5f  53 6c 6f 74 53 69 7a 65  |.."Wimp_SlotSize|
00002460  22 2c 2d 31 2c 2d 31 b8  6d 65 6d 6f 72 79 25 0d  |",-1,-1.memory%.|
00002470  10 a4 14 72 65 63 73 74  61 72 74 25 3d 93 2b 31  |...recstart%=.+1|
00002480  30 32 34 0d 10 ae 12 de  53 70 72 69 74 65 4e 61  |024.....SpriteNa|
00002490  6d 65 25 31 34 0d 10 b8  1c 24 53 70 72 69 74 65  |me%14....$Sprite|
000024a0  4e 61 6d 65 25 3d 22 21  53 70 72 61 79 43 61 6e  |Name%="!SprayCan|
000024b0  22 0d 10 c2 0d 21 49 63  6f 6e 25 3d 2d 31 0d 10  |"....!Icon%=-1..|
000024c0  cc 0d 49 63 6f 6e 25 21  34 3d 30 0d 10 d6 0d 49  |..Icon%!4=0....I|
000024d0  63 6f 6e 25 21 38 3d 30  0d 10 e0 0f 49 63 6f 6e  |con%!8=0....Icon|
000024e0  25 21 31 32 3d 36 38 0d  10 ea 0f 49 63 6f 6e 25  |%!12=68....Icon%|
000024f0  21 31 36 3d 36 38 0d 10  f4 24 49 63 6f 6e 25 21  |!16=68...$Icon%!|
00002500  32 30 3d 28 26 33 31 31  41 84 28 30 3c 3c 32 34  |20=(&311A.(0<<24|
00002510  29 84 28 37 3c 3c 32 38  29 29 0d 10 fe 18 49 63  |).(7<<28))....Ic|
00002520  6f 6e 25 21 32 34 3d 53  70 72 69 74 65 4e 61 6d  |on%!24=SpriteNam|
00002530  65 25 0d 11 08 0e 49 63  6f 6e 25 21 32 38 3d 31  |e%....Icon%!28=1|
00002540  0d 11 12 0f 49 63 6f 6e  25 21 33 32 3d 31 32 0d  |....Icon%!32=12.|
00002550  11 1c 24 c8 99 43 72 65  61 74 65 49 63 6f 6e 25  |..$..CreateIcon%|
00002560  2c 2c 49 63 6f 6e 25 b8  53 70 72 61 79 43 61 6e  |,,Icon%.SprayCan|
00002570  5f 68 25 0d 11 26 13 f2  6c 6f 61 64 5f 74 65 6d  |_h%..&..load_tem|
00002580  70 6c 61 74 65 73 0d 11  30 05 e1 0d 11 3a 04 0d  |plates..0....:..|
00002590  11 44 1c dd f2 65 6e 75  6d 65 72 61 74 65 5f 77  |.D...enumerate_w|
000025a0  69 6d 70 5f 6f 66 66 73  65 74 73 0d 11 4e 15 de  |imp_offsets..N..|
000025b0  57 69 6d 70 5f 53 70 61  63 65 25 26 34 30 30 30  |Wimp_Space%&4000|
000025c0  0d 11 58 19 57 69 6e 64  6f 77 25 3d 57 69 6d 70  |..X.Window%=Wimp|
000025d0  5f 53 70 61 63 65 25 2b  34 0d 11 62 0e 68 61 6e  |_Space%+4..b.han|
000025e0  64 6c 65 25 3d 2d 34 0d  11 6c 1c 78 30 25 3d 30  |dle%=-4..l.x0%=0|
000025f0  3a 79 30 25 3d 34 3a 78  31 25 3d 38 3a 79 31 25  |:y0%=4:x1%=8:y1%|
00002600  3d 31 32 0d 11 76 13 73  63 78 25 3d 31 36 3a 73  |=12..v.scx%=16:s|
00002610  63 79 25 3d 32 30 0d 11  80 0d 75 6e 64 65 72 25  |cy%=20....under%|
00002620  3d 32 34 0d 11 8a 16 66  6c 61 67 73 3d 32 38 3a  |=24....flags=28:|
00002630  73 74 61 74 75 73 3d 33  30 0d 11 94 25 74 46 72  |status=30...%tFr|
00002640  67 64 3d 33 32 3a 74 42  6b 67 64 3d 33 33 3a 46  |gd=32:tBkgd=33:F|
00002650  72 67 64 3d 33 34 3a 42  6b 67 64 3d 33 35 0d 11  |rgd=34:Bkgd=35..|
00002660  9e 11 73 62 6f 3d 33 36  3a 73 62 69 3d 33 37 0d  |..sbo=36:sbi=37.|
00002670  11 a8 0c 74 48 69 67 68  3d 33 38 0d 11 b2 12 74  |...tHigh=38....t|
00002680  69 74 6c 65 5f 66 6c 61  67 73 3d 35 36 0d 11 bc  |itle_flags=56...|
00002690  16 77 6f 72 6b 5f 61 72  65 61 5f 66 6c 61 67 73  |.work_area_flags|
000026a0  3d 36 30 0d 11 c6 12 73  70 72 69 74 65 5f 61 72  |=60....sprite_ar|
000026b0  65 61 3d 36 34 0d 11 d0  0c 74 69 74 6c 65 3d 37  |ea=64....title=7|
000026c0  32 0d 11 da 0c 69 63 6f  6e 73 3d 38 34 0d 11 e4  |2....icons=84...|
000026d0  10 69 63 6f 6e 5f 64 65  66 73 3d 38 38 0d 11 ee  |.icon_defs=88...|
000026e0  17 49 63 6f 6e 25 3d 57  69 6d 70 5f 53 70 61 63  |.Icon%=Wimp_Spac|
000026f0  65 25 2b 34 0d 11 f8 0d  69 66 6c 61 67 73 3d 31  |e%+4....iflags=1|
00002700  36 0d 12 02 0d 43 6f 6c  6f 75 72 3d 31 39 0d 12  |6....Colour=19..|
00002710  0c 0c 69 64 61 74 61 3d  32 30 0d 12 16 16 4d 6f  |..idata=20....Mo|
00002720  75 73 65 25 3d 57 69 6d  70 5f 53 70 61 63 65 25  |use%=Wimp_Space%|
00002730  0d 12 20 0d 62 75 74 74  6f 6e 73 3d 38 0d 12 2a  |.. .buttons=8..*|
00002740  0d 77 69 6e 64 6f 77 3d  31 32 0d 12 34 0b 69 63  |.window=12..4.ic|
00002750  6f 6e 3d 31 36 0d 12 3e  12 6f 6c 64 5f 62 75 74  |on=16..>.old_but|
00002760  74 6f 6e 73 3d 32 30 0d  12 48 0d 63 6f 6c 6f 75  |tons=20..H.colou|
00002770  72 3d 32 33 0d 12 52 0b  73 74 61 74 65 3d 34 0d  |r=23..R.state=4.|
00002780  12 5c 0a 6d 61 73 6b 3d  38 0d 12 66 14 43 6c 69  |.\.mask=8..f.Cli|
00002790  70 25 3d 57 69 6e 64 6f  77 25 2b 32 34 0d 12 70  |p%=Window%+24..p|
000027a0  0a 6b 65 79 3d 32 30 0d  12 7a 05 e1 0d 12 84 04  |.key=20..z......|
000027b0  0d 12 8e 14 dd f2 6c 6f  61 64 5f 74 65 6d 70 6c  |......load_templ|
000027c0  61 74 65 73 0d 12 98 0d  ea 73 69 7a 65 2c 65 6e  |ates.....size,en|
000027d0  64 0d 12 a2 12 de 77 69  6e 64 6f 77 6e 61 6d 65  |d.....windowname|
000027e0  20 31 32 0d 12 ac 0d 73  69 7a 65 3d 31 30 30 30  | 12....size=1000|
000027f0  0d 12 b6 13 64 69 61 6c  6f 67 73 69 7a 65 3d 33  |....dialogsize=3|
00002800  30 30 30 0d 12 c0 1e de  44 69 61 6c 6f 67 49 6e  |000.....DialogIn|
00002810  64 69 72 65 63 74 20 64  69 61 6c 6f 67 73 69 7a  |direct dialogsiz|
00002820  65 0d 12 ca 21 65 6e 64  3d 44 69 61 6c 6f 67 49  |e...!end=DialogI|
00002830  6e 64 69 72 65 63 74 2b  64 69 61 6c 6f 67 73 69  |ndirect+dialogsi|
00002840  7a 65 0d 12 d4 2d c8 99  4f 70 65 6e 54 65 6d 70  |ze...-..OpenTemp|
00002850  6c 61 74 65 2c 2c 52 65  73 6f 75 72 63 65 64 69  |late,,Resourcedi|
00002860  72 24 2b 22 2e 54 65 6d  70 6c 61 74 65 73 22 0d  |r$+".Templates".|
00002870  12 de 1a 24 77 69 6e 64  6f 77 6e 61 6d 65 3d 22  |...$windowname="|
00002880  70 72 6f 67 49 6e 66 6f  22 0d 12 e8 3f c8 99 4c  |progInfo"...?..L|
00002890  6f 61 64 54 65 6d 70 6c  61 74 65 2c 2c 57 69 6e  |oadTemplate,,Win|
000028a0  64 6f 77 25 2c 44 69 61  6c 6f 67 49 6e 64 69 72  |dow%,DialogIndir|
000028b0  65 63 74 2c 65 6e 64 2c  2d 31 2c 24 77 69 6e 64  |ect,end,-1,$wind|
000028c0  6f 77 6e 61 6d 65 2c 30  0d 12 f2 28 c8 99 43 72  |owname,0...(..Cr|
000028d0  65 61 74 65 57 69 6e 64  6f 77 25 2c 2c 57 69 6e  |eateWindow%,,Win|
000028e0  64 6f 77 25 b8 50 72 6f  67 49 6e 66 6f 5f 68 25  |dow%.ProgInfo_h%|
000028f0  0d 12 fc 16 44 69 61 6c  6f 67 49 6e 64 69 72 65  |....DialogIndire|
00002900  63 74 2b 3d 31 33 0d 13  06 31 24 44 69 61 6c 6f  |ct+=13...1$Dialo|
00002910  67 49 6e 64 69 72 65 63  74 3d 22 53 70 72 61 79  |gIndirect="Spray|
00002920  43 61 6e 22 3a 44 69 61  6c 6f 67 49 6e 64 69 72  |Can":DialogIndir|
00002930  65 63 74 2b 3d 34 33 0d  13 10 3a 24 44 69 61 6c  |ect+=43...:$Dial|
00002940  6f 67 49 6e 64 69 72 65  63 74 3d 22 53 70 72 61  |ogIndirect="Spra|
00002950  79 69 6e 67 20 50 69 63  74 75 72 65 73 22 3a 44  |ying Pictures":D|
00002960  69 61 6c 6f 67 49 6e 64  69 72 65 63 74 2b 3d 34  |ialogIndirect+=4|
00002970  33 0d 13 1a 38 24 44 69  61 6c 6f 67 49 6e 64 69  |3...8$DialogIndi|
00002980  72 65 63 74 3d 22 54 68  65 20 46 6c 79 69 6e 67  |rect="The Flying|
00002990  20 50 69 67 21 22 3a 44  69 61 6c 6f 67 49 6e 64  | Pig!":DialogInd|
000029a0  69 72 65 63 74 2b 3d 34  33 0d 13 24 32 24 44 69  |irect+=43..$2$Di|
000029b0  61 6c 6f 67 49 6e 64 69  72 65 63 74 3d 56 65 72  |alogIndirect=Ver|
000029c0  73 69 6f 6e 53 74 72 24  3a 44 69 61 6c 6f 67 49  |sionStr$:DialogI|
000029d0  6e 64 69 72 65 63 74 2b  3d 33 33 0d 13 2e 17 44  |ndirect+=33....D|
000029e0  69 61 6c 6f 67 49 6e 64  69 72 65 63 74 2b 3d 31  |ialogIndirect+=1|
000029f0  30 30 0d 13 38 16 de 46  69 6c 65 53 70 72 69 74  |00..8..FileSprit|
00002a00  65 4e 61 6d 65 25 31 36  0d 13 42 2e 24 46 69 6c  |eName%16..B.$Fil|
00002a10  65 53 70 72 69 74 65 4e  61 6d 65 25 3d 22 66 69  |eSpriteName%="fi|
00002a20  6c 65 5f 22 2b c3 7e 53  70 72 69 74 65 46 69 6c  |le_"+.~SpriteFil|
00002a30  65 54 79 70 65 25 0d 13  4c 1b 24 77 69 6e 64 6f  |eType%..L.$windo|
00002a40  77 6e 61 6d 65 3d 22 78  66 65 72 5f 73 65 6e 64  |wname="xfer_send|
00002a50  22 0d 13 56 3f c8 99 4c  6f 61 64 54 65 6d 70 6c  |"..V?..LoadTempl|
00002a60  61 74 65 2c 2c 57 69 6e  64 6f 77 25 2c 44 69 61  |ate,,Window%,Dia|
00002a70  6c 6f 67 49 6e 64 69 72  65 63 74 2c 65 6e 64 2c  |logIndirect,end,|
00002a80  2d 31 2c 24 77 69 6e 64  6f 77 6e 61 6d 65 2c 30  |-1,$windowname,0|
00002a90  0d 13 60 10 57 69 6e 64  6f 77 25 21 36 34 3d 31  |..`.Window%!64=1|
00002aa0  0d 13 6a 1f 53 70 72 69  74 65 49 63 6f 6e 25 3d  |..j.SpriteIcon%=|
00002ab0  57 69 6e 64 6f 77 25 2b  38 38 2b 33 32 2a 33 0d  |Window%+88+32*3.|
00002ac0  13 74 2b 53 70 72 69 74  65 49 63 6f 6e 25 21 31  |.t+SpriteIcon%!1|
00002ad0  36 3d 53 70 72 69 74 65  49 63 6f 6e 25 21 31 36  |6=SpriteIcon%!16|
00002ae0  84 31 3c 3c 31 84 31 3c  3c 38 0d 13 7e 24 53 70  |.1<<1.1<<8..~$Sp|
00002af0  72 69 74 65 49 63 6f 6e  25 21 31 36 3d 53 70 72  |riteIcon%!16=Spr|
00002b00  69 74 65 49 63 6f 6e 25  21 31 36 80 ac 31 0d 13  |iteIcon%!16..1..|
00002b10  88 14 53 70 72 69 74 65  49 63 6f 6e 25 21 32 34  |..SpriteIcon%!24|
00002b20  3d 31 0d 13 92 15 53 70  72 69 74 65 49 63 6f 6e  |=1....SpriteIcon|
00002b30  25 21 32 38 3d 31 32 0d  13 9c 24 c8 99 43 72 65  |%!28=12...$..Cre|
00002b40  61 74 65 57 69 6e 64 6f  77 25 2c 2c 57 69 6e 64  |ateWindow%,,Wind|
00002b50  6f 77 25 b8 53 61 76 65  5f 68 25 0d 13 a6 15 44  |ow%.Save_h%....D|
00002b60  69 61 6c 6f 67 49 6e 64  69 72 65 63 74 2b 3d 36  |ialogIndirect+=6|
00002b70  0d 13 b0 1b 53 61 76 65  54 65 78 74 3d 44 69 61  |....SaveText=Dia|
00002b80  6c 6f 67 49 6e 64 69 72  65 63 74 0d 13 ba 31 24  |logIndirect...1$|
00002b90  53 61 76 65 54 65 78 74  3d 22 53 70 72 61 79 50  |SaveText="SprayP|
00002ba0  69 63 22 2b bd 28 30 29  3a 44 69 61 6c 6f 67 49  |ic"+.(0):DialogI|
00002bb0  6e 64 69 72 65 63 74 2b  3d 32 36 32 0d 13 c4 1e  |ndirect+=262....|
00002bc0  53 61 76 65 53 70 72 69  74 65 25 3d 44 69 61 6c  |SaveSprite%=Dial|
00002bd0  6f 67 49 6e 64 69 72 65  63 74 0d 13 ce 16 44 69  |ogIndirect....Di|
00002be0  61 6c 6f 67 49 6e 64 69  72 65 63 74 2b 3d 31 38  |alogIndirect+=18|
00002bf0  0d 13 d8 21 24 53 61 76  65 53 70 72 69 74 65 25  |...!$SaveSprite%|
00002c00  3d 24 46 69 6c 65 53 70  72 69 74 65 4e 61 6d 65  |=$FileSpriteName|
00002c10  25 0d 13 e2 1a 24 77 69  6e 64 6f 77 6e 61 6d 65  |%....$windowname|
00002c20  3d 22 46 69 6c 65 49 6e  66 6f 22 0d 13 ec 3f c8  |="FileInfo"...?.|
00002c30  99 4c 6f 61 64 54 65 6d  70 6c 61 74 65 2c 2c 57  |.LoadTemplate,,W|
00002c40  69 6e 64 6f 77 25 2c 44  69 61 6c 6f 67 49 6e 64  |indow%,DialogInd|
00002c50  69 72 65 63 74 2c 65 6e  64 2c 2d 31 2c 24 77 69  |irect,end,-1,$wi|
00002c60  6e 64 6f 77 6e 61 6d 65  2c 30 0d 13 f6 28 c8 99  |ndowname,0...(..|
00002c70  43 72 65 61 74 65 57 69  6e 64 6f 77 25 2c 2c 57  |CreateWindow%,,W|
00002c80  69 6e 64 6f 77 25 b8 50  69 63 74 49 6e 66 6f 5f  |indow%.PictInfo_|
00002c90  68 25 0d 14 00 30 50 69  63 54 69 74 6c 65 25 3d  |h%...0PicTitle%=|
00002ca0  44 69 61 6c 6f 67 49 6e  64 69 72 65 63 74 3a 44  |DialogIndirect:D|
00002cb0  69 61 6c 6f 67 49 6e 64  69 72 65 63 74 2b 3d 31  |ialogIndirect+=1|
00002cc0  33 31 0d 14 0a 30 50 69  63 41 72 74 69 73 74 25  |31...0PicArtist%|
00002cd0  3d 44 69 61 6c 6f 67 49  6e 64 69 72 65 63 74 3a  |=DialogIndirect:|
00002ce0  44 69 61 6c 6f 67 49 6e  64 69 72 65 63 74 2b 3d  |DialogIndirect+=|
00002cf0  36 37 0d 14 14 2e 50 69  63 44 61 74 65 25 3d 44  |67....PicDate%=D|
00002d00  69 61 6c 6f 67 49 6e 64  69 72 65 63 74 3a 44 69  |ialogIndirect:Di|
00002d10  61 6c 6f 67 49 6e 64 69  72 65 63 74 2b 3d 33 35  |alogIndirect+=35|
00002d20  0d 14 1e 2e 50 69 63 53  69 7a 65 25 3d 44 69 61  |....PicSize%=Dia|
00002d30  6c 6f 67 49 6e 64 69 72  65 63 74 3a 44 69 61 6c  |logIndirect:Dial|
00002d40  6f 67 49 6e 64 69 72 65  63 74 2b 3d 33 35 0d 14  |ogIndirect+=35..|
00002d50  28 13 c8 99 43 6c 6f 73  65 54 65 6d 70 6c 61 74  |(...CloseTemplat|
00002d60  65 0d 14 32 28 24 72 65  63 6f 72 64 25 3d 22 4e  |e..2($record%="N|
00002d70  6f 20 73 70 72 61 79 20  66 69 6c 65 20 6c 6f 61  |o spray file loa|
00002d80  64 65 64 22 2b bd 28 30  29 0d 14 3c 20 24 28 72  |ded"+.(0)..< $(r|
00002d90  65 63 6f 72 64 25 2b 31  32 38 29 3d 22 4e 6f 62  |ecord%+128)="Nob|
00002da0  6f 64 79 22 2b bd 28 30  29 0d 14 46 1a 24 28 72  |ody"+.(0)..F.$(r|
00002db0  65 63 6f 72 64 25 2b 32  32 34 29 3d 91 24 2b bd  |ecord%+224)=.$+.|
00002dc0  28 30 29 0d 14 50 0a f2  72 65 73 65 74 0d 14 5a  |(0)..P..reset..Z|
00002dd0  05 e1 0d 14 64 04 0d 14  6e 15 dd f2 69 6e 69 74  |....d...n...init|
00002de0  69 61 6c 69 73 65 5f 6d  65 6e 75 0d 14 78 3c ea  |ialise_menu..x<.|
00002df0  69 74 65 6d 24 2c 73 75  62 25 2c 4d 65 6e 75 42  |item$,sub%,MenuB|
00002e00  6c 6f 63 6b 2c 53 75 62  4d 65 6e 75 42 6c 6f 63  |lock,SubMenuBloc|
00002e10  6b 2c 4d 65 6e 75 45 6e  64 2c 4d 65 6e 75 49 74  |k,MenuEnd,MenuIt|
00002e20  65 6d 73 4c 69 73 74 0d  14 82 1e ea 6e 65 78 74  |emsList.....next|
00002e30  73 75 62 25 2c 66 6c 61  67 73 25 2c 6d 25 2c 77  |sub%,flags%,m%,w|
00002e40  69 64 74 68 25 0d 14 8c  18 4d 65 6e 75 53 69 7a  |idth%....MenuSiz|
00002e50  65 25 3d 32 38 2b 28 32  30 2a 32 34 29 0d 14 96  |e%=28+(20*24)...|
00002e60  1b de 4d 65 6e 75 53 74  61 72 74 20 31 35 2a 4d  |..MenuStart 15*M|
00002e70  65 6e 75 53 69 7a 65 25  0d 14 a0 22 4d 65 6e 75  |enuSize%..."Menu|
00002e80  45 6e 64 3d 4d 65 6e 75  53 74 61 72 74 2b 31 35  |End=MenuStart+15|
00002e90  2a 4d 65 6e 75 53 69 7a  65 25 0d 14 aa 14 de 4d  |*MenuSize%.....M|
00002ea0  65 6e 75 53 74 72 69 6e  67 20 31 34 2a 34 0d 14  |enuString 14*4..|
00002eb0  b4 0f de 53 74 61 76 65  4e 75 6d 25 31 0d 14 be  |...StaveNum%1...|
00002ec0  0f de 56 61 6c 73 74 72  53 20 31 30 0d 14 c8 07  |..ValstrS 10....|
00002ed0  f7 2b 30 0d 14 d2 17 4d  65 6e 75 42 6c 6f 63 6b  |.+0....MenuBlock|
00002ee0  3d 4d 65 6e 75 53 74 61  72 74 0d 14 dc 0a f3 69  |=MenuStart.....i|
00002ef0  74 65 6d 24 0d 14 e6 0e  c8 95 69 74 65 6d 24 3e  |tem$......item$>|
00002f00  22 22 0d 14 f0 10 c8 8e  c0 69 74 65 6d 24 2c 33  |"".......item$,3|
00002f10  29 ca 0d 14 fa 1e c9 22  53 70 72 22 3a 49 63 6f  |)......"Spr":Ico|
00002f20  6e 4d 65 6e 75 25 3d 4d  65 6e 75 42 6c 6f 63 6b  |nMenu%=MenuBlock|
00002f30  0d 15 04 05 cb 0d 15 0e  14 24 4d 65 6e 75 42 6c  |.........$MenuBl|
00002f40  6f 63 6b 3d 69 74 65 6d  24 0d 15 18 1e 4d 65 6e  |ock=item$....Men|
00002f50  75 42 6c 6f 63 6b 3f 31  32 3d 43 5f 4d 65 6e 75  |uBlock?12=C_Menu|
00002f60  54 69 74 6c 65 66 67 0d  15 22 1e 4d 65 6e 75 42  |Titlefg..".MenuB|
00002f70  6c 6f 63 6b 3f 31 33 3d  43 5f 4d 65 6e 75 54 69  |lock?13=C_MenuTi|
00002f80  74 6c 65 62 67 0d 15 2c  19 4d 65 6e 75 42 6c 6f  |tlebg..,.MenuBlo|
00002f90  63 6b 3f 31 34 3d 43 5f  4d 65 6e 75 66 67 0d 15  |ck?14=C_Menufg..|
00002fa0  36 19 4d 65 6e 75 42 6c  6f 63 6b 3f 31 35 3d 43  |6.MenuBlock?15=C|
00002fb0  5f 4d 65 6e 75 62 67 0d  15 40 0b f3 77 69 64 74  |_Menubg..@..widt|
00002fc0  68 25 0d 15 4a 20 4d 65  6e 75 42 6c 6f 63 6b 21  |h%..J MenuBlock!|
00002fd0  31 36 3d 77 69 64 74 68  25 2a 43 5f 57 69 64 74  |16=width%*C_Widt|
00002fe0  68 25 0d 15 54 13 4d 65  6e 75 42 6c 6f 63 6b 21  |h%..T.MenuBlock!|
00002ff0  32 30 3d 34 34 0d 15 5e  12 4d 65 6e 75 42 6c 6f  |20=44..^.MenuBlo|
00003000  63 6b 21 32 34 3d 30 0d  15 68 1e 4d 65 6e 75 49  |ck!24=0..h.MenuI|
00003010  74 65 6d 73 4c 69 73 74  3d 4d 65 6e 75 42 6c 6f  |temsList=MenuBlo|
00003020  63 6b 2b 32 38 0d 15 72  24 53 75 62 4d 65 6e 75  |ck+28..r$SubMenu|
00003030  42 6c 6f 63 6b 3d 4d 65  6e 75 42 6c 6f 63 6b 2b  |Block=MenuBlock+|
00003040  4d 65 6e 75 53 69 7a 65  25 0d 15 7c 19 6e 65 78  |MenuSize%..|.nex|
00003050  74 73 75 62 25 3d 53 75  62 4d 65 6e 75 42 6c 6f  |tsub%=SubMenuBlo|
00003060  63 6b 0d 15 86 0a f3 69  74 65 6d 24 0d 15 90 0e  |ck.....item$....|
00003070  c8 95 69 74 65 6d 24 3e  22 22 0d 15 9a 09 f3 73  |..item$>"".....s|
00003080  75 62 25 0d 15 a4 35 e7  73 75 62 25 3d 30 20 73  |ub%...5.sub%=0 s|
00003090  75 62 25 3d 2d 31 8b 73  75 62 25 3d 6e 65 78 74  |ub%=-1.sub%=next|
000030a0  73 75 62 25 3a 6e 65 78  74 73 75 62 25 2b 3d 4d  |sub%:nextsub%+=M|
000030b0  65 6e 75 53 69 7a 65 25  0d 15 ae 10 c8 8e c0 69  |enuSize%.......i|
000030c0  74 65 6d 24 2c 34 29 ca  0d 15 b8 1c c9 22 49 6e  |tem$,4)......"In|
000030d0  66 6f 22 3a 73 75 62 25  3d 50 72 6f 67 49 6e 66  |fo":sub%=ProgInf|
000030e0  6f 5f 68 25 0d 15 c2 18  c9 22 53 61 76 65 22 3a  |o_h%....."Save":|
000030f0  73 75 62 25 3d 53 61 76  65 5f 68 25 0d 15 cc 05  |sub%=Save_h%....|
00003100  cb 0d 15 d6 22 24 28 4d  65 6e 75 49 74 65 6d 73  |...."$(MenuItems|
00003110  4c 69 73 74 2b 31 32 29  3d 69 74 65 6d 24 2b bd  |List+12)=item$+.|
00003120  28 30 29 0d 15 e0 18 4d  65 6e 75 49 74 65 6d 73  |(0)....MenuItems|
00003130  4c 69 73 74 21 34 3d 73  75 62 25 0d 15 ea 3d 4d  |List!4=sub%...=M|
00003140  65 6e 75 49 74 65 6d 73  4c 69 73 74 21 38 3d 26  |enuItemsList!8=&|
00003150  32 31 84 28 43 5f 4d 65  6e 75 49 74 65 6d 66 67  |21.(C_MenuItemfg|
00003160  3c 3c 32 34 29 84 28 43  5f 4d 65 6e 75 49 74 65  |<<24).(C_MenuIte|
00003170  6d 62 67 3c 3c 32 38 29  0d 15 f4 0b f3 66 6c 61  |mbg<<28).....fla|
00003180  67 73 25 0d 15 fe 1e 21  4d 65 6e 75 49 74 65 6d  |gs%....!MenuItem|
00003190  73 4c 69 73 74 3d 66 6c  61 67 73 25 80 25 31 31  |sList=flags%.%11|
000031a0  31 0d 16 08 0e e7 66 6c  61 67 73 25 80 34 8c 0d  |1.....flags%.4..|
000031b0  16 12 2a 4d 65 6e 75 49  74 65 6d 73 4c 69 73 74  |..*MenuItemsList|
000031c0  21 38 3d 28 4d 65 6e 75  49 74 65 6d 73 4c 69 73  |!8=(MenuItemsLis|
000031d0  74 21 38 29 84 31 3c 3c  38 0d 16 1c 05 cd 0d 16  |t!8).1<<8.......|
000031e0  26 15 4d 65 6e 75 49 74  65 6d 73 4c 69 73 74 2b  |&.MenuItemsList+|
000031f0  3d 32 34 0d 16 30 0a f3  69 74 65 6d 24 0d 16 3a  |=24..0..item$..:|
00003200  05 ce 0d 16 44 15 4d 65  6e 75 49 74 65 6d 73 4c  |....D.MenuItemsL|
00003210  69 73 74 2d 3d 32 34 0d  16 4e 26 21 4d 65 6e 75  |ist-=24..N&!Menu|
00003220  49 74 65 6d 73 4c 69 73  74 3d 21 4d 65 6e 75 49  |ItemsList=!MenuI|
00003230  74 65 6d 73 4c 69 73 74  20 84 26 38 30 0d 16 58  |temsList .&80..X|
00003240  0c 69 74 65 6d 24 3d 22  22 0d 16 62 1a 4d 65 6e  |.item$=""..b.Men|
00003250  75 42 6c 6f 63 6b 3d 53  75 62 4d 65 6e 75 42 6c  |uBlock=SubMenuBl|
00003260  6f 63 6b 0d 16 6c 05 ce  0d 16 76 05 e1 0d 16 80  |ock..l....v.....|
00003270  04 0d 16 8a 13 dc 20 22  53 70 72 61 79 43 61 6e  |...... "SprayCan|
00003280  22 2c 20 38 0d 16 94 2b  dc 20 22 49 6e 66 6f 22  |", 8...+. "Info"|
00003290  2c 30 2c 30 2c 20 22 50  69 63 74 75 72 65 22 2c  |,0,0, "Picture",|
000032a0  30 2c 30 2c 20 22 53 61  76 65 22 2c 30 2c 30 0d  |0,0, "Save",0,0.|
000032b0  16 9e 2b dc 20 22 53 6c  6f 77 22 2c 30 2c 30 2c  |..+. "Slow",0,0,|
000032c0  22 52 65 73 65 74 22 2c  30 2c 30 2c 20 22 51 75  |"Reset",0,0, "Qu|
000032d0  69 74 22 2c 30 2c 30 2c  22 22 0d 16 a8 04 0d 16  |it",0,0,""......|
000032e0  b2 0f dd f2 74 65 72 6d  69 6e 61 74 65 0d 16 bc  |....terminate...|
000032f0  0f e7 54 61 73 6b 5f 68  25 3e 30 8c 0d 16 c6 21  |..Task_h%>0....!|
00003300  ee 85 c8 99 43 6c 6f 73  65 44 6f 77 6e 2c 74 61  |....CloseDown,ta|
00003310  73 6b 25 2c 54 61 73 6b  5f 68 25 3a e0 0d 16 d0  |sk%,Task_h%:....|
00003320  05 cc 0d 16 da 07 ee 85  e0 0d 16 e4 05 cd 0d 16  |................|
00003330  ee 07 ee 85 e0 0d 16 f8  28 e7 54 61 73 6b 5f 68  |........(.Task_h|
00003340  25 3e 30 8c c8 99 43 6c  6f 73 65 44 6f 77 6e 2c  |%>0...CloseDown,|
00003350  74 61 73 6b 25 2c 54 61  73 6b 5f 68 25 0d 17 02  |task%,Task_h%...|
00003360  05 e0 0d 17 0c 05 e1 0d  17 16 04 0d 17 20 0b dd  |............. ..|
00003370  f2 65 72 72 6f 72 0d 17  2a 07 ea 65 25 0d 17 34  |.error..*..e%..4|
00003380  06 ea 85 0d 17 3e 13 ee  85 ea f2 74 65 72 6d 69  |.....>.....termi|
00003390  6e 61 74 65 3a fa 0d 17  48 17 c8 99 22 48 6f 75  |nate:...H..."Hou|
000033a0  72 67 6c 61 73 73 5f 53  6d 61 73 68 22 0d 17 52  |rglass_Smash"..R|
000033b0  2a 45 24 3d f6 24 2b 22  20 61 74 20 6c 69 6e 65  |*E$=.$+" at line|
000033c0  20 22 2b c3 9e 2b 22 2e  20 45 78 69 74 20 70 72  | "+..+". Exit pr|
000033d0  6f 67 72 61 6d 3f 22 0d  17 5c 25 46 49 4c 45 25  |ogram?"..\%FILE%|
000033e0  3d 46 49 4c 45 25 3a e7  46 49 4c 45 25 d9 23 46  |=FILE%:.FILE%.#F|
000033f0  49 4c 45 25 3a 46 49 4c  45 25 3d a3 0d 17 66 12  |ILE%:FILE%=...f.|
00003400  e7 49 4e 49 54 49 41 4c  49 53 45 44 25 8c 0d 17  |.INITIALISED%...|
00003410  70 1d e7 a4 43 68 65 63  6b 4f 4b 28 45 24 2c 33  |p...CheckOK(E$,3|
00003420  29 f2 74 65 72 6d 69 6e  61 74 65 0d 17 7a 05 cc  |).terminate..z..|
00003430  0d 17 84 20 65 25 3d a4  43 68 65 63 6b 4f 4b 28  |... e%=.CheckOK(|
00003440  45 24 2c 31 29 3a f2 74  65 72 6d 69 6e 61 74 65  |E$,1):.terminate|
00003450  0d 17 8e 05 cd 0d 17 98  05 e1 0d 17 a2 04 0d 17  |................|
00003460  ac 18 dd a4 43 68 65 63  6b 4f 4b 28 45 24 2c 62  |....CheckOK(E$,b|
00003470  6f 78 65 73 25 29 0d 17  b6 07 ea 45 25 0d 17 c0  |oxes%).....E%...|
00003480  10 21 45 52 52 42 4c 4f  43 4b 25 3d 30 0d 17 ca  |.!ERRBLOCK%=0...|
00003490  1e 24 28 45 52 52 42 4c  4f 43 4b 25 2b 34 29 3d  |.$(ERRBLOCK%+4)=|
000034a0  c0 45 24 2c 31 30 30 29  2b bd 30 0d 17 d4 38 c8  |.E$,100)+.0...8.|
000034b0  99 22 57 69 6d 70 5f 52  65 70 6f 72 74 45 72 72  |."Wimp_ReportErr|
000034c0  6f 72 22 2c 45 52 52 42  4c 4f 43 4b 25 2c 62 6f  |or",ERRBLOCK%,bo|
000034d0  78 65 73 25 2c 22 53 70  72 61 79 43 61 6e 22 b8  |xes%,"SprayCan".|
000034e0  2c 45 25 0d 17 de 09 3d  45 25 3d 31 0d 17 e8 04  |,E%....=E%=1....|
000034f0  0d 17 f2 16 dd 20 f2 69  6e 69 74 69 61 6c 69 73  |..... .initialis|
00003500  65 5f 64 72 61 67 0d 17  fc 29 64 72 61 67 5f 73  |e_drag...)drag_s|
00003510  74 61 72 74 25 3d a4 73  77 69 28 22 44 72 61 67  |tart%=.swi("Drag|
00003520  41 53 70 72 69 74 65 5f  53 74 61 72 74 22 29 0d  |ASprite_Start").|
00003530  18 06 27 64 72 61 67 5f  73 74 6f 70 25 3d a4 73  |..'drag_stop%=.s|
00003540  77 69 28 22 44 72 61 67  41 53 70 72 69 74 65 5f  |wi("DragASprite_|
00003550  53 74 6f 70 22 29 0d 18  10 20 c8 99 20 22 4f 53  |Stop")... .. "OS|
00003560  5f 42 79 74 65 22 2c 31  36 31 2c 32 38 20 b8 20  |_Byte",161,28 . |
00003570  2c 2c 63 6d 6f 73 0d 18  1a 2f e7 20 28 63 6d 6f  |,,cmos.../. (cmo|
00003580  73 20 80 20 32 29 3d 30  20 64 72 61 67 5f 73 74  |s . 2)=0 drag_st|
00003590  61 72 74 25 3d 2d 31 3a  64 72 61 67 5f 73 74 6f  |art%=-1:drag_sto|
000035a0  70 25 3d 2d 31 0d 18 24  05 e1 0d 18 2e 04 0d 18  |p%=-1..$........|
000035b0  38 10 dd 20 a4 73 77 69  28 73 77 69 24 29 0d 18  |8.. .swi(swi$)..|
000035c0  42 31 c8 99 20 22 58 4f  53 5f 53 57 49 4e 75 6d  |B1.. "XOS_SWINum|
000035d0  62 65 72 46 72 6f 6d 53  74 72 69 6e 67 22 2c 2c  |berFromString",,|
000035e0  73 77 69 24 20 b8 20 73  77 69 3b 66 6c 61 67 0d  |swi$ . swi;flag.|
000035f0  18 4c 17 e7 20 28 66 6c  61 67 20 80 20 31 29 20  |.L.. (flag . 1) |
00003600  73 77 69 3d 2d 31 0d 18  56 08 3d 73 77 69 0d 18  |swi=-1..V.=swi..|
00003610  60 04 0d 18 6a 17 dd f2  69 6e 69 74 69 61 6c 69  |`...j...initiali|
00003620  73 65 5f 73 63 72 65 65  6e 0d 18 74 13 de 6d 6f  |se_screen..t..mo|
00003630  64 65 62 6c 6f 63 6b 69  6e 20 34 30 0d 18 7e 14  |deblockin 40..~.|
00003640  de 6d 6f 64 65 62 6c 6f  63 6b 6f 75 74 20 34 30  |.modeblockout 40|
00003650  0d 18 88 13 f2 67 65 74  6d 6f 64 65 69 6e 66 6f  |.....getmodeinfo|
00003660  28 b9 29 0d 18 92 10 f2  73 65 74 5f 63 6f 6c 6f  |(.).....set_colo|
00003670  75 72 73 0d 18 9c 05 e1  0d 18 a6 04 0d 18 b0 16  |urs.............|
00003680  dd f2 67 65 74 6d 6f 64  65 69 6e 66 6f 28 6e 65  |..getmodeinfo(ne|
00003690  77 29 0d 18 ba 17 ea 53  5f 52 6f 77 73 25 2c 53  |w).....S_Rows%,S|
000036a0  5f 43 6f 6c 75 6d 6e 73  25 0d 18 c4 13 6d 6f 64  |_Columns%....mod|
000036b0  65 62 6c 6f 63 6b 69 6e  21 30 3d 30 0d 18 ce 13  |eblockin!0=0....|
000036c0  6d 6f 64 65 62 6c 6f 63  6b 69 6e 21 34 3d 31 0d  |modeblockin!4=1.|
000036d0  18 d8 13 6d 6f 64 65 62  6c 6f 63 6b 69 6e 21 38  |...modeblockin!8|
000036e0  3d 32 0d 18 e2 14 6d 6f  64 65 62 6c 6f 63 6b 69  |=2....modeblocki|
000036f0  6e 21 31 32 3d 33 0d 18  ec 14 6d 6f 64 65 62 6c  |n!12=3....modebl|
00003700  6f 63 6b 69 6e 21 31 36  3d 34 0d 18 f6 14 6d 6f  |ockin!16=4....mo|
00003710  64 65 62 6c 6f 63 6b 69  6e 21 32 30 3d 35 0d 19  |deblockin!20=5..|
00003720  00 15 6d 6f 64 65 62 6c  6f 63 6b 69 6e 21 32 34  |..modeblockin!24|
00003730  3d 31 31 0d 19 0a 15 6d  6f 64 65 62 6c 6f 63 6b  |=11....modeblock|
00003740  69 6e 21 32 38 3d 31 32  0d 19 14 15 6d 6f 64 65  |in!28=12....mode|
00003750  62 6c 6f 63 6b 69 6e 21  33 32 3d 2d 31 0d 19 1e  |blockin!32=-1...|
00003760  34 c8 99 22 4f 53 5f 52  65 61 64 56 64 75 56 61  |4.."OS_ReadVduVa|
00003770  72 69 61 62 6c 65 73 22  2c 6d 6f 64 65 62 6c 6f  |riables",modeblo|
00003780  63 6b 69 6e 2c 6d 6f 64  65 62 6c 6f 63 6b 6f 75  |ckin,modeblockou|
00003790  74 0d 19 28 0e 42 41 44  4d 4f 44 45 25 3d a3 0d  |t..(.BADMODE%=..|
000037a0  19 32 1c 48 69 25 3d 31  3c 3c 28 6d 6f 64 65 62  |.2.Hi%=1<<(modeb|
000037b0  6c 6f 63 6b 6f 75 74 21  31 36 29 0d 19 3c 1c 56  |lockout!16)..<.V|
000037c0  69 25 3d 31 3c 3c 28 6d  6f 64 65 62 6c 6f 63 6b  |i%=1<<(modeblock|
000037d0  6f 75 74 21 32 30 29 0d  19 46 26 53 5f 57 69 64  |out!20)..F&S_Wid|
000037e0  74 68 25 3d 48 69 25 2a  28 28 6d 6f 64 65 62 6c  |th%=Hi%*((modebl|
000037f0  6f 63 6b 6f 75 74 21 32  34 29 2b 31 29 0d 19 50  |ockout!24)+1)..P|
00003800  27 53 5f 48 65 69 67 68  74 25 3d 56 69 25 2a 28  |'S_Height%=Vi%*(|
00003810  28 6d 6f 64 65 62 6c 6f  63 6b 6f 75 74 21 32 38  |(modeblockout!28|
00003820  29 2b 31 29 0d 19 5a 0f  48 69 25 3d 32 3a 56 69  |)+1)..Z.Hi%=2:Vi|
00003830  25 3d 34 0d 19 64 22 43  5f 57 69 64 74 68 25 3d  |%=4..d"C_Width%=|
00003840  38 2a 48 69 25 3a 43 5f  48 65 69 67 68 74 25 3d  |8*Hi%:C_Height%=|
00003850  38 2a 56 69 25 0d 19 6e  05 e1 0d 19 78 04 0d 19  |8*Vi%..n....x...|
00003860  82 0b dd f2 72 65 73 65  74 0d 19 8c 15 21 70 6f  |....reset....!po|
00003870  73 25 3d 72 65 63 6f 72  64 25 2b 32 35 36 0d 19  |s%=record%+256..|
00003880  96 0f 63 6f 64 65 25 21  33 36 30 3d 30 0d 19 a0  |..code%!360=0...|
00003890  1d 24 50 69 63 54 69 74  6c 65 25 3d a4 6d 6f 76  |.$PicTitle%=.mov|
000038a0  65 28 72 65 63 6f 72 64  25 29 0d 19 aa 22 24 50  |e(record%)..."$P|
000038b0  69 63 41 72 74 69 73 74  25 3d a4 6d 6f 76 65 28  |icArtist%=.move(|
000038c0  72 65 63 6f 72 64 25 2b  31 32 38 29 0d 19 b4 20  |record%+128)... |
000038d0  24 50 69 63 44 61 74 65  25 3d a4 6d 6f 76 65 28  |$PicDate%=.move(|
000038e0  72 65 63 6f 72 64 25 2b  32 32 34 29 0d 19 be 18  |record%+224)....|
000038f0  24 50 69 63 53 69 7a 65  25 3d 22 30 25 20 22 2b  |$PicSize%="0% "+|
00003900  bd 28 30 29 0d 19 c8 43  c8 99 53 70 72 69 74 65  |.(0)...C..Sprite|
00003910  4f 70 25 2c 32 35 36 2b  31 35 2c 53 70 72 42 6c  |Op%,256+15,SprBl|
00003920  6b 25 2c 22 53 70 72 61  79 53 63 72 65 65 6e 22  |k%,"SprayScreen"|
00003930  2c 30 2c 36 34 30 2c 32  35 36 2c 31 35 b8 2c 2c  |,0,640,256,15.,,|
00003940  53 70 72 69 74 65 25 0d  19 d2 2a c8 99 46 6f 72  |Sprite%...*..For|
00003950  63 65 52 65 64 72 61 77  2c 50 69 63 74 49 6e 66  |ceRedraw,PictInf|
00003960  6f 5f 68 25 2c 30 2c 2d  32 32 30 2c 37 34 30 2c  |o_h%,0,-220,740,|
00003970  30 0d 19 dc 05 e1 0d 19  e6 04 0d 19 f0 14 dd a4  |0...............|
00003980  6d 6f 76 65 28 61 64 64  72 65 73 73 25 29 0d 19  |move(address%)..|
00003990  fa 13 ea 73 74 72 69 6e  67 24 2c 63 6f 75 6e 74  |...string$,count|
000039a0  25 0d 1a 04 17 73 74 72  69 6e 67 24 3d 22 22 3a  |%....string$="":|
000039b0  63 6f 75 6e 74 25 3d 30  0d 1a 0e 05 f5 0d 1a 18  |count%=0........|
000039c0  19 73 74 72 69 6e 67 24  2b 3d bd 28 3f 61 64 64  |.string$+=.(?add|
000039d0  72 65 73 73 25 29 0d 1a  22 19 61 64 64 72 65 73  |ress%)..".addres|
000039e0  73 25 2b 3d 31 3a 63 6f  75 6e 74 25 2b 3d 31 0d  |s%+=1:count%+=1.|
000039f0  1a 2c 1b fd 3f 61 64 64  72 65 73 73 25 3d 30 84  |.,..?address%=0.|
00003a00  63 6f 75 6e 74 25 3e 32  35 34 0d 1a 36 1e e7 63  |count%>254..6..c|
00003a10  6f 75 6e 74 25 3e 32 35  34 73 74 72 69 6e 67 24  |ount%>254string$|
00003a20  3d 22 22 2b bd 28 30 29  0d 1a 40 0c 3d 73 74 72  |=""+.(0)..@.=str|
00003a30  69 6e 67 24 0d 1a 4a 04  0d 1a 54 0c dd a4 6d 65  |ing$..J...T...me|
00003a40  6d 6f 72 79 0d 1a 5e 23  c8 99 22 57 69 6d 70 5f  |mory..^#.."Wimp_|
00003a50  53 6c 6f 74 53 69 7a 65  22 2c 2d 31 2c 2d 31 b8  |SlotSize",-1,-1.|
00003a60  6f 6c 64 6d 65 6d 25 0d  1a 68 2f c8 99 22 57 69  |oldmem%..h/.."Wi|
00003a70  6d 70 5f 53 6c 6f 74 53  69 7a 65 22 2c 6d 65 6d  |mp_SlotSize",mem|
00003a80  6f 72 79 25 2b 46 69 6c  65 53 69 7a 65 25 2b 34  |ory%+FileSize%+4|
00003a90  30 39 36 2c 2d 31 0d 1a  72 1e c8 99 22 57 69 6d  |096,-1..r..."Wim|
00003aa0  70 5f 53 6c 6f 74 53 69  7a 65 22 2c 2d 31 2c 2d  |p_SlotSize",-1,-|
00003ab0  31 b8 54 25 0d 1a 7c 3d  e7 54 25 3c 6d 65 6d 6f  |1.T%..|=.T%<memo|
00003ac0  72 79 25 2b 46 69 6c 65  53 69 7a 65 25 2b 34 30  |ry%+FileSize%+40|
00003ad0  39 36 c8 99 22 57 69 6d  70 5f 53 6c 6f 74 53 69  |96.."Wimp_SlotSi|
00003ae0  7a 65 22 2c 6f 6c 64 6d  65 6d 25 2c 2d 31 3a 3d  |ze",oldmem%,-1:=|
00003af0  a3 0d 1a 86 15 72 65 63  6f 72 64 25 3d 72 65 63  |.....record%=rec|
00003b00  73 74 61 72 74 25 0d 1a  90 06 3d b9 0d 1a 9a 04  |start%....=.....|
00003b10  0d 1a a4 08 dd f2 67 6f  0d 1a ae 10 ea 74 25 2c  |......go.....t%,|
00003b20  6f 6c 64 6d 6f 64 65 25  0d 1a b8 3d e7 ac 4c 6f  |oldmode%...=..Lo|
00003b30  61 64 65 64 25 54 25 3d  a4 43 68 65 63 6b 4f 4b  |aded%T%=.CheckOK|
00003b40  28 22 4e 6f 20 73 70 72  61 79 20 66 69 6c 65 20  |("No spray file |
00003b50  68 61 73 20 62 65 65 6e  20 6c 6f 61 64 65 64 22  |has been loaded"|
00003b60  2c 31 29 3a e1 0d 1a c2  0e 6f 6c 64 6d 6f 64 65  |,1):.....oldmode|
00003b70  25 3d eb 0d 1a cc 52 ea  85 3a ee 85 ea 54 25 3d  |%=....R..:...T%=|
00003b80  a4 43 68 65 63 6b 4f 4b  28 22 50 6c 65 61 73 65  |.CheckOK("Please|
00003b90  20 65 6e 73 75 72 65 20  31 36 30 6b 20 6f 66 20  | ensure 160k of |
00003ba0  6d 65 6d 6f 72 79 20 69  73 20 61 76 61 69 6c 61  |memory is availa|
00003bb0  62 6c 65 20 66 6f 72 20  6d 6f 64 65 20 31 35 22  |ble for mode 15"|
00003bc0  2c 31 29 3a e1 0d 1a d6  09 eb 31 35 3a 87 0d 1a  |,1):......15:...|
00003bd0  e0 06 f7 85 0d 1a ea 34  c8 99 53 70 72 69 74 65  |.......4..Sprite|
00003be0  4f 70 25 2c 53 70 72 50  6c 6f 74 25 2c 53 70 72  |Op%,SprPlot%,Spr|
00003bf0  42 6c 6b 25 2c 22 53 70  72 61 79 53 63 72 65 65  |Blk%,"SprayScree|
00003c00  6e 22 2c 30 2c 30 2c 30  0d 1a f4 13 74 25 3d 91  |n",0,0,0....t%=.|
00003c10  3a f5 fd 91 3e 74 25 2b  31 30 30 0d 1a fe 1c e7  |:...>t%+100.....|
00003c20  53 6c 6f 77 25 f2 73 6c  6f 77 73 70 72 61 79 20  |Slow%.slowspray |
00003c30  8b f2 73 70 72 61 79 0d  1b 08 38 24 50 69 63 53  |..spray...8$PicS|
00003c40  69 7a 65 25 3d c3 a8 28  28 21 70 6f 73 25 2d 72  |ize%=..((!pos%-r|
00003c50  65 63 6f 72 64 25 29 2f  46 69 6c 65 53 69 7a 65  |ecord%)/FileSize|
00003c60  25 2a 31 30 30 29 2b 22  25 22 2b bd 28 30 29 0d  |%*100)+"%"+.(0).|
00003c70  1b 12 3d c8 99 53 70 72  69 74 65 4f 70 25 2c 53  |..=..SpriteOp%,S|
00003c80  70 72 47 65 74 25 2c 53  70 72 42 6c 6b 25 2c 22  |prGet%,SprBlk%,"|
00003c90  53 70 72 61 79 53 63 72  65 65 6e 22 2c 30 2c 30  |SprayScreen",0,0|
00003ca0  2c 30 2c 31 32 37 39 2c  31 30 32 33 0d 1b 1c 1d  |,0,1279,1023....|
00003cb0  c8 99 22 57 69 6d 70 5f  53 65 74 4d 6f 64 65 22  |.."Wimp_SetMode"|
00003cc0  2c 6f 6c 64 6d 6f 64 65  25 0d 1b 26 05 e1 0d 1b  |,oldmode%..&....|
00003cd0  30 04 0d 1b 3a 16 dd f2  69 6e 69 74 69 61 6c 69  |0...:...initiali|
00003ce0  73 65 5f 73 70 72 61 79  0d 1b 44 1b de 63 6f 64  |se_spray..D..cod|
00003cf0  65 25 33 33 33 31 36 2c  72 65 63 6f 72 64 25 31  |e%33316,record%1|
00003d00  30 32 34 0d 1b 4e 2f ff  28 22 4c 6f 61 64 20 3c  |024..N/.("Load <|
00003d10  53 70 72 61 79 43 61 6e  24 44 69 72 3e 2e 53 70  |SprayCan$Dir>.Sp|
00003d20  72 61 79 43 6f 64 65 20  22 2b c3 7e 63 6f 64 65  |rayCode "+.~code|
00003d30  25 29 0d 1b 58 0c 70 6f  69 6e 74 25 3d 30 0d 1b  |%)..X.point%=0..|
00003d40  62 35 66 61 64 65 25 3d  63 6f 64 65 25 2b 31 35  |b5fade%=code%+15|
00003d50  36 3a 70 6f 73 25 3d 63  6f 64 65 25 2b 33 35 32  |6:pos%=code%+352|
00003d60  3a 63 68 65 63 6b 25 3d  63 6f 64 65 25 2b 33 33  |:check%=code%+33|
00003d70  33 30 38 0d 1b 6c 05 e1  0d 1b 76 04 0d 1b 80 0b  |308..l....v.....|
00003d80  dd f2 73 70 72 61 79 0d  1b 8a 0a d6 63 6f 64 65  |..spray.....code|
00003d90  25 0d 1b 94 05 f5 0d 1b  9e 0a d6 66 61 64 65 25  |%..........fade%|
00003da0  0d 1b a8 19 e7 3f 63 68  65 63 6b 25 3d 31 f2 62  |.....?check%=1.b|
00003db0  72 65 61 6b 70 6f 69 6e  74 0d 1b b2 22 fd a6 2d  |reakpoint..."..-|
00003dc0  39 39 84 21 70 6f 73 25  3e 3d 72 65 63 6f 72 64  |99.!pos%>=record|
00003dd0  25 2b 46 69 6c 65 53 69  7a 65 25 0d 1b bc 38 e7  |%+FileSize%...8.|
00003de0  21 70 6f 73 25 3e 3d 72  65 63 6f 72 64 25 2b 46  |!pos%>=record%+F|
00003df0  69 6c 65 53 69 7a 65 25  f5 c8 97 58 25 2c 59 25  |ileSize%...X%,Y%|
00003e00  2c 5a 25 3a fd a6 28 30  29 3c 3e 2d 31 84 5a 25  |,Z%:..(0)<>-1.Z%|
00003e10  3c 3e 30 0d 1b c6 0b f5  fd ac a6 2d 39 39 0d 1b  |<>0........-99..|
00003e20  d0 10 ff 28 22 46 58 20  31 35 20 31 22 29 0d 1b  |...("FX 15 1")..|
00003e30  da 05 e1 0d 1b e4 04 0d  1b ee 0f dd f2 73 6c 6f  |.............slo|
00003e40  77 73 70 72 61 79 0d 1b  f8 0a d6 63 6f 64 65 25  |wspray.....code%|
00003e50  0d 1c 02 05 f5 0d 1c 0c  08 74 25 3d 91 0d 1c 16  |.........t%=....|
00003e60  0a d6 66 61 64 65 25 0d  1c 20 19 e7 3f 63 68 65  |..fade%.. ..?che|
00003e70  63 6b 25 3d 31 f2 62 72  65 61 6b 70 6f 69 6e 74  |ck%=1.breakpoint|
00003e80  0d 1c 2a 10 e7 91 3c 3d  74 25 f5 fd 91 3e 74 25  |..*...<=t%...>t%|
00003e90  0d 1c 34 22 fd a6 2d 39  39 84 21 70 6f 73 25 3e  |..4"..-99.!pos%>|
00003ea0  3d 72 65 63 6f 72 64 25  2b 46 69 6c 65 53 69 7a  |=record%+FileSiz|
00003eb0  65 25 0d 1c 3e 38 e7 21  70 6f 73 25 3e 3d 72 65  |e%..>8.!pos%>=re|
00003ec0  63 6f 72 64 25 2b 46 69  6c 65 53 69 7a 65 25 f5  |cord%+FileSize%.|
00003ed0  c8 97 58 25 2c 59 25 2c  5a 25 3a fd a6 28 30 29  |..X%,Y%,Z%:..(0)|
00003ee0  3c 3e 2d 31 84 5a 25 3c  3e 30 0d 1c 48 0b f5 fd  |<>-1.Z%<>0..H...|
00003ef0  ac a6 2d 39 39 0d 1c 52  10 ff 28 22 46 58 20 31  |..-99..R..("FX 1|
00003f00  35 20 31 22 29 0d 1c 5c  05 e1 0d 1c 66 04 0d 1c  |5 1")..\....f...|
00003f10  70 10 dd f2 62 72 65 61  6b 70 6f 69 6e 74 0d 1c  |p...breakpoint..|
00003f20  7a 0d 3f 63 68 65 63 6b  25 3d 30 0d 1c 84 0d 70  |z.?check%=0....p|
00003f30  6f 69 6e 74 25 2b 3d 31  0d 1c 8e 0d c8 8e 70 6f  |oint%+=1......po|
00003f40  69 6e 74 25 ca 0d 1c 98  05 cb 0d 1c a2 05 e1 0d  |int%............|
00003f50  ff                                                |.|
00003f51