� > !RunImage
:
8� **************************************************
(8� *               -- SCREEN EDITOR --              *
28� *       By Duncan F. McPherson Version 1.1       *
<8� *              (c) 24th February 1992            *
F8� **************************************************
n:
xG� Tell wimp about task, load task`s files & setup tasks variables :
�:
�� taskid%4:$taskid%="TASK"
�9ș "Wimp_Initialise",200,!taskid%,"Editor" � version%
�B� q% &300,block% &3000,buffer% &200,file% &7000,windows% &4000
�5� scalefac% 20,pixtrans% 20,point% 200:� pass$(4)
�1� menu1% 200,menu2% 200,menu3% 200,menu4% 200
�:
�C�spritestart:�templates:baric%=�iconbar:filetype%=&049:size$=""
�"blocknumber%=0:filestate$="no"
�:
�L� ----------------------------------------------------------------------
�L� |                       Main Polling loop                            |
�L� ----------------------------------------------------------------------

:

� � �error

quit%=�

"�

,  ș "Wimp_Poll",0,q% � A%

6
  Ȏ A% �

@D  � 2 :�open_window(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24,q%!28)

J  � 1 :�redraw

T  � 3 :�closeawindow(!q%)

^7  � 6 :�checkmouse(!q%,q%!4,q%!8,q%!12,q%!16,q%!20)

h  � 7 :�dragfinished

r'  � 8 :�processkey(q%!4,q%!0,q%!24)

|!  � 9 :�menuselect(q%!0,q%!4)

�  � 17,18:�recieve

�  �

�� quit%

�ș "Wimp_CloseDown"

��

�:

�L� ----------------------------------------------------------------------

�L� |                      Functions & Procedures                        |

�L� ----------------------------------------------------------------------

�:

�7� �checkmouse(mousex%,mousey%,b%,handle%,icon%,ob%)

�!� handle%=-2 � b%=2 �iconmenu

�&� handle%=scedit% � b%=2 �mainmenu
4� handle%=-2 � b%=4 � filestate$="yes" �openinfo
z� handle%=-2 � b%=4 � filestate$="no" �message("Welcome to the cave editor. To use me drag a cave file onto my icon!")
-� handle%=blocks% � b%=4 �picblock(icon%)
&*� handle%=scedit% � b%=4 �changesprite
0� handle%=start% �editstart
:X� (handle%=save% � handle%=save1% � handle%=save2%) � icon%=3 sav%=handle%:�savedrag
DV� (handle%=save% � handle%=save1% � handle%=save2%) � icon%=0 sav%=handle%:�saveok
N(� handle%=level% �changelevel(icon%)
X�
b:
l'��domenu(menu$,menutitle$,menuptr%)
v,i%=0:menuptr%!20=40:$menuptr%=menutitle$
�;menuptr%?12=7:menuptr%?13=2:menuptr%?14=7:menuptr%?15=0
� menuptr%!16=96:menuptr%!24=0
�'� menutitle$="Save" menuptr%!16=128
�menuptr%+=28
�1� item$=�par(","):�menuitem(item$):� item$=""
�%menuptr%!-24=(menuptr%!-24)�&80:�
�:
�� �menuitem(text$)
�� text$="" �
�2!menuptr%=0:menuptr%!4=-1:menuptr%!8=&07000021
�7� text$="Game" � menutitle$="Save" menuptr%!4=save%
�9� text$="Tiles" � menutitle$="Save" menuptr%!4=save1%
�;� text$="Palette" � menutitle$="Save" menuptr%!4=save2%
#� text$="File" menuptr%!4=game%
%� text$="Start" menuptr%!4=start%
%� text$="Level" menuptr%!4=level%
 $� text$="Show" menuptr%!4=menu2%
*$� text$="Edit" menuptr%!4=menu3%
4$� text$="Save" menuptr%!4=menu4%
>4� �text$,1)=">" menuptr%!4=info%:text$=�text$,2)
H>� text$="Full" � size$=�128 � menuptr%!0=(menuptr%!0) � &1
R-$(menuptr%+12)=text$:menuptr%=menuptr%+24
\�
f:
p� �par(sep$)
z%i1%=i%+1:i%=�menu$+sep$,sep$,i1%)
�=�menu$,i1%,i%-i1%)
� 
�#� �menuselect(option%,option1%)
�� option%=1 � mu%=0 quit%=�
�,� option%=0 � option1%=2 � mu%=1 �blocks
�/� option%=0 � option1%=3 � mu%=1 �altersize
�+� option%=1 � option1%=0 � mu%=1 �clear
�$ș "Wimp_GetPointerInfo",,block%
�2�domenu(">Info,File,Tiles,Full","Show",menu2%)
�/� block%!8=1 � ș "Wimp_CreateMenu",,menu1%
��
�:
�>� �open_window(handle%,x0%,y0%,x1%,y1%,scx%,scy%,bhandle%)
�handle%=-1��
q%!0=handle%:q%!28=bhandle%
)q%!4=x0%:q%!8=y0%:q%!12=x1%:q%!16=y1%
$q%!20=scx%:q%!24=scy%
.ș "Wimp_OpenWindow",,q%
8�
B 
L��closeawindow(handle%)
V,!q%=handle%:ș "Wimp_GetWindowState",,q%
`+�info(q%+4):bhandle%=q%!28:flags%=q%!32
j9xo%=x0%:yo%=y0%:!q%=handle%:ș "Wimp_CloseWindow",,q%
t�
~ 
�� �info(q%)
�=x0%=!q%:y0%=q%!4:x1%=q%!8:y1%=q%!12:scx%=q%!16:scy%=q%!20
�bx%=x0%-scx%:by%=y1%-scy%
��
�:
�� �error
�?!block%=�:$(block%+4)=�$+" (internal error code "+Þ+")"+�0
�0ș "Wimp_ReportError",block%,1,"Cave Editor"
��
�:
�� �iconbar
�6!q%=-1:q%!4=0:q%!8=0:q%!12=68:q%!16=68:q%!20=&3002
$(q%+24)="!CaveEdit"

"ș "Wimp_CreateIcon",,q% � ic%
=ic%
:
(��redraw
2Iș "Wimp_ReadPixTrans",&100,spritearea%,"0",0,0,0,scalefac%,pixtrans%
<Cscalefac%!8=scalefac%!8*scale%:scalefac%!12=scalefac%!12*scale%
F
�pixtrans
P&ș "Wimp_RedrawWindow",,q% � more%
Zȕ more%
d�plotsprmap
n&ș "Wimp_GetRectangle",,q% � more%
x�:�
�:
���plotsprmap
�"xo%=q%!4-q%!20:yo%=q%!16-q%!24
�"left%=(q%!28-xo%)�(128/scale%)
�&bottom%=(yo%-q%!32-4)�(128/scale%)
�%right%=(q%!36-xo%-2)�(128/scale%)
�!top%=(yo%-q%!40)�(128/scale%)
�+� Y%=top% � bottom%:� X%=left% � right%
�Gaddr%=(X%+7+((width%+12)*(Y%+2)))+blockaddr%:sprite$=�((?addr%)-32)
�zș "OS_SpriteOp",52+256,spritearea%,sprite$,xo%+X%*(128/scale%),yo%-Y%*(128/scale%)-(128/scale%),0,scalefac%,pixtrans%
��:�
��
�:
��blocks
4block%!0=blocks%:ș "Wimp_GetWindowInfo",,block%
/block%!28=-1:ș "Wimp_OpenWindow",,block%:�
":
,��openinfo
64block%!0=scedit%:ș "Wimp_GetWindowInfo",,block%
@-block%!28=-1:ș "Wimp_OpenWindow",,block%
J�
T:
^��picblock(N%)
h7�noborder(blocks%,blocknumber%):�border(blocks%,N%)
rblocknumber%=N%:�
|:
���border(window%,icon%)
�.block%!0=window%:block%!4=icon%:block%!8=4
�0block%!12=4:ș "Wimp_SetIconState",,block%:�
�:
���noborder(window%,icon%)
�.block%!0=window%:block%!4=icon%:block%!8=0
�0block%!12=4:ș "Wimp_SetIconState",,block%:�
�:
���changesprite
�-q%!0=scedit%:ș "Wimp_GetWindowState",,q%
�"xo%=q%!4-q%!20:yo%=q%!16-q%!24
�CX%=(mousex%-xo%) � (128/scale%):Y%=(yo%-mousey%-4)�(128/scale%)
�0addr%=(X%+7+((width%+12)*(Y%+2)))+blockaddr%
?addr%=blocknumber%+32
Jq%!0=scedit%:q%!4=X%*(128/scale%):q%!8=-((128/scale%)*Y%)-(128/scale%)
Cq%!12=X%*(128/scale%)*128+(128/scale%):q%!16=-((128/scale%)*Y%)
&Iș "Wimp_ReadPixTrans",&100,spritearea%,"0",0,0,0,scalefac%,pixtrans%
0Cscalefac%!8=scalefac%!8*scale%:scalefac%!12=scalefac%!12*scale%
:
�pixtrans
D&ș "Wimp_UpdateWindow",,q% � more%
N;ȕ more%:�plotsprmap:ș "Wimp_GetRectangle",,q% � more%
X�:�
b:
l#��newspr(window%,icon%,sprite$)
vBblock%!0=window%:block%!4=icon%:ș "Wimp_GetIconState",,block%
� A%=block%!32:$A%="S"+sprite$
�:block%!0=window%:block%!4=icon%:block%!8=0:block%!12=0
�$ș "Wimp_SetIconState",,block%:�
�:
�
��grid
�Qș "Wimp_ForceRedraw",scedit%,0,-((128/scale%)*height%),(128/scale%)*width%,0
��
�:
���setupblocks
�)� X%=0 � 31:�newspr(blocks%,X%,�(X%))
��backcol(blocks%,X%,0):�
��
�:
$��backcol(window%,icon%,colour%)
A$=�~colour%+"0000000"
2block%!0=window%:block%!4=icon%:block%!8=�(A$)
 8block%!12=&F0000000:ș "Wimp_SetIconState",,block%:�
*:
4
��recieve
>� q%!16=0 quit%=�
H� q%!16=2 �datasave:�
R=� q%!16=3 �dataload:�resprs:�editextent:�openinfo:�grid:�
\�
f:
p� �savename
zblock%!0=sav%:block%!4=2
�"ș "Wimp_GetIconState",,block%
�<A$="":A%=block%!28:�:A$=A$+�?A%:A%=A%+1:� ?A%=0 � ?A%=13
�
=A$+�0
�:
���savename(A$)
�block%!0=sav%:block%!4=2
�"ș "Wimp_GetIconState",,block%
�$(block%!28)=A$
��
�:
���savedrag
�*q%!0=sav%:ș "Wimp_GetWindowState",,q%
�"xo%=q%!4-q%!20:yo%=q%!16-q%!24
	%q%!4=3:ș "Wimp_GetIconState",,q%
	Bq%!0=sav%:q%!4=5:q%!8=xo%+q%!8:q%!12=yo%+q%!12:q%!16=xo%+q%!16
	Cq%!20=yo%+q%!20:q%!24=0:q%!28=0:q%!32=&7FFFFFFF:q%!36=&7FFFFFFF
	$ș "Wimp_DragBox",,q%
	.�
	8:
	B��dragfinished
	L ș "Wimp_GetPointerInfo",,q%
	V1q%!20=q%!12:q%!24=q%!16:q%!28=q%!0:q%!32=q%!4
	`� sav%=save% q%!36=&6800
	j� sav%=save1% q%!36=&4000
	t� sav%=save2% q%!36=130
	~q%!0=256:q%!12=0:q%!16=1
	� � sav%=save% q%!40=filetype%
	�� sav%=save1% q%!40=&FF9
	�� sav%=save2% q%!40=&FED
	�$$(q%+44)=�getleafname(�savename)
	�+ș "Wimp_SendMessage",17,q%,q%!20,q%!24
	��
	�:
	�ݤgetleafname(A$)
	�ȕ �A$,".")
	�A$=�A$,�A$,".")+1)
	��:=A$+�0
	�:
��datasave

#fullname$="":a%=0:b%=q%?(44+a%)
ȕ b%<>0
3fullname$=fullname$+�(b%):a%=a%+1:b%=q%?(44+a%)
(�
2*� sav%=save% �saveoperation(fullname$)
<&� sav%=save1% �savesprs(fullname$)
F%� sav%=save2% �savepal(fullname$)
P&� q%!36<>-1 � �savename(fullname$)
ZGq%!12=q%!8:q%!16=3:q%!0=256:ș "Wimp_SendMessage",18,q%,q%!20,q%!24
dș "Wimp_CreateMenu",,-1
n�
x:
���saveoperation(A$)
��savinggame
�4ș "OS_File",10,A$,filetype%,0,file%,file%+&62F4
��
�:
���saveok
�A$=�savename
�C� �A$,".")=0 � 1,"To save, drag the icon to a directory viewer"
�#� sav%=save% �saveoperation(A$)
�� sav%=save1% �savesprs(A$)
�� sav%=save2% �savepal(A$)
�ș "Wimp_CreateMenu",,-1
��
:
��dataload
9A%=q%+44:A$="":�:A$=A$+�?A%:A%=A%+1:�?A%<31:A$=A$+�13
",� q%!40=&FF9 sav%=save1%:�loadsprs(A$):�
,+� q%!40=&FED sav%=save2%:�loadpal(A$):�
6� q%!40<>filetype% �
@)sav%=save%:ș "OS_File",12,A$,file%,0
J7size$="":scale%=2:�picblock(0):width%=28:height%=24
T+�openinfo:�changelevel(0):�savename(A$)
^4�spritehandle:�readvars:�resprs:filestate$="yes"
h�
r:
|��seticon(window%,icon%,A$)
�Bblock%!0=window%:block%!4=icon%:ș "Wimp_GetIconState",,block%
�I$(block%!28)=A$:block%!8=0:block%!12=0:ș "Wimp_SetIconState",,block%
��
�:
�ݤgeticon(window%,icon%)
�Bblock%!0=window%:block%!4=icon%:ș "Wimp_GetIconState",,block%
�=$(block%!28)
�:
���editextent
�Hq%!0=0:q%!4=-((128/scale%)*height%):q%!8=(128/scale%)*width%:q%!12=0
�$ș "Wimp_SetExtent",scedit%,q%:�
�:
���clear
M!block%=255:$(block%+4)="Are you shure you want to clear this level ?"+�0
Jș "Wimp_ReportError",block%,19,"Message from the cave editor" � ,out%
� out%<>1 �
&(� X%=0 � width%-1:� Y%=0 � height%-1
0>addr%=(X%+7+((width%+12)*(Y%+2)))+blockaddr%:?addr%=32:�:�
:�grid:�
D:
N��altersize
X8� size$=�128 size$="":scale%=2 � size$=�128:scale%=1
b@�editextent:block%!0=scedit%:ș "Wimp_GetWindowInfo",,block%
l(ș "Wimp_OpenWindow",,block%:�grid:�
v:
���spritehandle
�ș "Hourglass_On"
�0� number%=0 � 27:�fillinsprite(�(number%)):�
�ș "Hourglass_Off"
��
�:
���fillinsprite(name$)
�'bitmapaddress%=(�(name$)*512)+file%
�,spriteaddress%=spritearea%+spritearea%!8
� num%=�(name$):� num%=0 �dnL
�6� X%=0 � num%-1:spriteaddress%+=spriteaddress%!0:�
�address1%=spriteaddress%+44
�7� address2%=bitmapaddress% � bitmapaddress%+508 � 4

*!address1%=!address2%:address1%+=4:�:�

:

��spritestart

 <� spritearea% &4500:spritearea%!0=&4500:spritearea%!8=16

*6� temparea% &6000:temparea%!0=&6000:temparea%!8=16

4"ș "OS_SpriteOp",265,temparea%

>5ș "OS_SpriteOp",265,spritearea%:� number%=0 � 27

H;ș "OS_SpriteOp",271,spritearea%,�(number%),0,32,32,9:�

R�

\:

f��templates

pCaddr%=windows%:ș "Wimp_OpenTemplate",,"<Editor$Dir>.Templates"

zJș "Wimp_LoadTemplate",,block%,addr%,addr%+&1200,-1,"blocks" � ,,addr%

�Bblock%!64=spritearea%:ș "Wimp_CreateWindow",,block% � blocks%

�Gș "Wimp_LoadTemplate",,block%,addr%,addr%+&300,-1,"info" � ,,addr%

�*ș "Wimp_CreateWindow",,block% � info%

�Iș "Wimp_LoadTemplate",,block%,addr%,addr%+&100,-1,"scedit" � ,,addr%

�,ș "Wimp_CreateWindow",,block% � scedit%

�Hș "Wimp_LoadTemplate",,block%,addr%,addr%+&1200,-1,"game" � ,,addr%

�*ș "Wimp_CreateWindow",,block% � game%

�Gș "Wimp_LoadTemplate",,block%,addr%,addr%+&300,-1,"save" � ,,addr%

�*ș "Wimp_CreateWindow",,block% � save%

�Hș "Wimp_LoadTemplate",,block%,addr%,addr%+&300,-1,"save1" � ,,addr%

�+ș "Wimp_CreateWindow",,block% � save1%

�Hș "Wimp_LoadTemplate",,block%,addr%,addr%+&300,-1,"save2" � ,,addr%

�+ș "Wimp_CreateWindow",,block% � save2%
Iș "Wimp_LoadTemplate",,block%,addr%,addr%+&300,-1,"levels" � ,,addr%
+ș "Wimp_CreateWindow",,block% � level%
Hș "Wimp_LoadTemplate",,block%,addr%,addr%+&300,-1,"start" � ,,addr%
$+ș "Wimp_CreateWindow",,block% � start%
.ș "Wimp_CloseTemplate":�
8:
B��savesprs(A$)
L)ș "OS_SpriteOp",268,spritearea%,A$:�
V:
`��loadsprs(A$)
j7ș "OS_SpriteOp",266,temparea%,A$:ș "Hourglass_On"
t6ș "OS_SpriteOp",264,temparea% � ,,,total%,offset%
~'spraddr%=temparea%+offset%:nbr%=0:�
��ldtile(�(nbr%))
�(nbr%+=1:� nbr%=28:ș "Hourglass_Off"
�!�spritehandle:�savename(A$):�
�:
���ldtile(name$)
�'bitmapaddress%=(�(name$)*512)+file%
�Kș "OS_SpriteOp",264,temparea% � ,,,,offset%:spraddr%=temparea%+offset%
�number%=-1:� x%=1 � total%
�/ș "OS_SpriteOp",269,temparea%,point%,20,x%
�0B$="":A%=point%:�:B$=B$+�?A%:A%=A%+1:�?A%<31
�� B$=name$ number%=x%-1
��:� number%=-1 �
$� �validspr(temparea%,name$)=� �

� number%=0 �T^O
+� x%=1 � number%:spraddr%+=spraddr%!0:�
address1%=spraddr%+44
(7� address2%=bitmapaddress% � bitmapaddress%+508 � 4
2(!address2%=!address1%:address1%+=4:�
<�
F:
Pݤvalidspr(addr%,name$)
ZFvalid%=�:ș "OS_SpriteOp",296,addr%,name$ � ,,,wid%,hei%,msk%,mod%
d"� wid%<>32 � hei%<>32 valid%=�
n6� mod%<>12 � mod%<>9 � mod%<>16 � mod%<>2 valid%=�
x=valid%
�:
���resprs
�0ș "Wimp_ForceRedraw",blocks%,0,-640,192,0:�
�:
���readvars
�Dname$=$(file%+&62B2):design$=$(file%+&62C6):time$=$(file%+&62DA)
�S�seticon(game%,5,name$):�seticon(game%,6,design$):�seticon(game%,11,�time$,15))
�!icon%=0:�editstart:�passwords
��
�:
���editstart
�Ecoords%=blockaddr%-15:xstart%=(coords%!0)-2:ystart%=(coords%!4)+2
�$� icon%=2 � xstart%>1 xstart%-=1
)� icon%=3 � xstart%<width% xstart%+=1
$� icon%=4 � ystart%>1 ystart%-=1
*� icon%=5 � ystart%<height% ystart%+=1
"?�seticon(start%,1,�(xstart%)):�seticon(start%,6,�(ystart%))
,-coords%!0=xstart%+2:coords%!4=ystart%-2:�
6:
@��passwords
JI� lvl%=0 � 4:addr%=(file%+&4C0F+(lvl%*1136))-8:pass$(lvl%)="n"+$addr%
TOq%!0=level%:q%!4=lvl%:q%!8=&400000:q%!12=&400000:ș "Wimp_SetIconState",,q%
^Mq%!0=level%:q%!4=lvl%+5:q%!8=0:q%!12=&F0000000:ș "Wimp_SetIconState",,q%
h/�seticon(level%,lvl%+5,""):�:�knowpass(0):�
r:
|��knowpass(lvl%)
�Uq%!0=level%:q%!4=lvl%+5:q%!8=&E0000000:q%!12=&F0000000:ș "Wimp_SetIconState",,q%
�Iq%!0=level%:q%!4=lvl%:q%!8=0:q%!12=&400000:ș "Wimp_SetIconState",,q%
�Kpass$(lvl%)="y"+�pass$(lvl%),7):�seticon(level%,lvl%+5,�pass$(lvl%),7))
��
�:
���changelevel(icon%)
�� icon%>4 � icon%<0 �
�� �pass$(icon%),1)="n" �
�Klevelno%=icon%:blockaddr%=file%+&4C0F+(levelno%*1136):�editextent:�grid
�icon%=0:�editstart
��
�:
�$��processkey(icon%,window%,key%)
*� key%<>13 ș "Wimp_ProcessKey",key%:�
<� icon%>4 � icon%<10 � window%=level% �testpass(icon%-5)
�
&:
0��testpass(lvl%):ic%=icon%
:-� �pass$(lvl%),1)="y" �changepass(lvl%):�
De� �geticon(level%,lvl%+5)<>�pass$(lvl%),7) �message("Sorry! I just cant accept that password."):�
N)�knowpass(lvl%):ic%+=1:� ic%=10 ic%=5
X0ș "Wimp_SetCaretPosition",level%,ic%,,,-1,0
b�
l:
v��message(A$)
�!!block%=255:$(block%+4)=A$+�0
�Bș "Wimp_ReportError",block%,17,"Message from the cave editor"
��
�:
���changepass(lvl%)
�ic%+=1:� ic%=10 ic%=5
�\� �pass$(lvl%),7)=�geticon(level%,lvl%+5) ș "Wimp_SetCaretPosition",level%,ic%,,,-1,0:�
ƃ!block%=255:$(block%+4)="Are you shure you want to change level "+�(lvl%+1)+"`s password to `"+�geticon(level%,lvl%+5)+"` ?"+�0
�Jș "Wimp_ReportError",block%,19,"Message from the cave editor" � ,out%
�� out%<>1 �
�m� �(�geticon(level%,lvl%+5))<>7 �message("I cant accept any password less than seven characters long."):�
�+pass$(lvl%)="y"+�geticon(level%,lvl%+5)
�L� lv%=0 � 4:addr%=(file%+&4C00+(lv%*1136))+8:$addr%=�pass$(lv%),7)+�13:�
v�message("REMEMBER ! You just changed level "+�(lvl%+1)+"`s password to `"+�pass$(lvl%),7)+"` so DONT forget it!")
�
:
 ��mainmenu
*3mu%=1:�domenu("Show,Edit,Save","Editor",menu1%)
42�domenu(">Info,File,Tiles,Full","Show",menu2%)
>.�domenu("Clear,Start,Level","Edit",menu3%)
H/�domenu("Game,Tiles,Palette","Save",menu4%)
R0ș "Wimp_CreateMenu",,menu1%,mousex%,mousey%
\�
f:
p��iconmenu
z/mu%=0:�domenu(">Info,Quit","Editor",menu1%)
�/ș "Wimp_CreateMenu",,menu1%,mousex%-64,178
��
�:
���savinggame
�E$(file%+&62B2)=�geticon(game%,5):$(file%+&62C6)=�geticon(game%,6)
�0$(file%+&62DA)=�$:�seticon(game%,11,��$,15))
��
�:
���savepal(A$)
�;ș "OS_File",10,A$,&FED,0,file%+&6230,file%+&6230+120:�
�:
���loadpal(A$)
�4ș "OS_File",12,A$,file%+&6230,0:�savename(A$):�
:
��pixtrans
0addr%=file%+&6230:� col%=0 � 15:rgb%=addr%!2
.6ș "ColourTrans_ReturnColourNumber",rgb% � colour%
8(?(pixtrans%+col%)=colour%:addr%+=6:�
B�
�

00000000  0d 00 0a 11 f4 20 3e 20  21 52 75 6e 49 6d 61 67  |..... > !RunImag|
00000010  65 0d 00 14 05 3a 0d 00  1e 38 f4 20 2a 2a 2a 2a  |e....:...8. ****|
00000020  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000040  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 0d 00  |**************..|
00000050  28 38 f4 20 2a 20 20 20  20 20 20 20 20 20 20 20  |(8. *           |
00000060  20 20 20 20 2d 2d 20 53  43 52 45 45 4e 20 45 44  |    -- SCREEN ED|
00000070  49 54 4f 52 20 2d 2d 20  20 20 20 20 20 20 20 20  |ITOR --         |
00000080  20 20 20 20 20 2a 0d 00  32 38 f4 20 2a 20 20 20  |     *..28. *   |
00000090  20 20 20 20 42 79 20 44  75 6e 63 61 6e 20 46 2e  |    By Duncan F.|
000000a0  20 4d 63 50 68 65 72 73  6f 6e 20 56 65 72 73 69  | McPherson Versi|
000000b0  6f 6e 20 31 2e 31 20 20  20 20 20 20 20 2a 0d 00  |on 1.1       *..|
000000c0  3c 38 f4 20 2a 20 20 20  20 20 20 20 20 20 20 20  |<8. *           |
000000d0  20 20 20 28 63 29 20 32  34 74 68 20 46 65 62 72  |   (c) 24th Febr|
000000e0  75 61 72 79 20 31 39 39  32 20 20 20 20 20 20 20  |uary 1992       |
000000f0  20 20 20 20 20 2a 0d 00  46 38 f4 20 2a 2a 2a 2a  |     *..F8. ****|
00000100  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000120  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 0d 00  |**************..|
00000130  6e 05 3a 0d 00 78 47 f4  20 54 65 6c 6c 20 77 69  |n.:..xG. Tell wi|
00000140  6d 70 20 61 62 6f 75 74  20 74 61 73 6b 2c 20 6c  |mp about task, l|
00000150  6f 61 64 20 74 61 73 6b  60 73 20 66 69 6c 65 73  |oad task`s files|
00000160  20 26 20 73 65 74 75 70  20 74 61 73 6b 73 20 76  | & setup tasks v|
00000170  61 72 69 61 62 6c 65 73  20 3a 0d 00 82 05 3a 0d  |ariables :....:.|
00000180  00 8c 1e de 20 74 61 73  6b 69 64 25 34 3a 24 74  |.... taskid%4:$t|
00000190  61 73 6b 69 64 25 3d 22  54 41 53 4b 22 0d 00 96  |askid%="TASK"...|
000001a0  39 c8 99 20 22 57 69 6d  70 5f 49 6e 69 74 69 61  |9.. "Wimp_Initia|
000001b0  6c 69 73 65 22 2c 32 30  30 2c 21 74 61 73 6b 69  |lise",200,!taski|
000001c0  64 25 2c 22 45 64 69 74  6f 72 22 20 b8 20 76 65  |d%,"Editor" . ve|
000001d0  72 73 69 6f 6e 25 0d 00  a0 42 de 20 71 25 20 26  |rsion%...B. q% &|
000001e0  33 30 30 2c 62 6c 6f 63  6b 25 20 26 33 30 30 30  |300,block% &3000|
000001f0  2c 62 75 66 66 65 72 25  20 26 32 30 30 2c 66 69  |,buffer% &200,fi|
00000200  6c 65 25 20 26 37 30 30  30 2c 77 69 6e 64 6f 77  |le% &7000,window|
00000210  73 25 20 26 34 30 30 30  0d 00 aa 35 de 20 73 63  |s% &4000...5. sc|
00000220  61 6c 65 66 61 63 25 20  32 30 2c 70 69 78 74 72  |alefac% 20,pixtr|
00000230  61 6e 73 25 20 32 30 2c  70 6f 69 6e 74 25 20 32  |ans% 20,point% 2|
00000240  30 30 3a de 20 70 61 73  73 24 28 34 29 0d 00 b4  |00:. pass$(4)...|
00000250  31 de 20 6d 65 6e 75 31  25 20 32 30 30 2c 6d 65  |1. menu1% 200,me|
00000260  6e 75 32 25 20 32 30 30  2c 6d 65 6e 75 33 25 20  |nu2% 200,menu3% |
00000270  32 30 30 2c 6d 65 6e 75  34 25 20 32 30 30 0d 00  |200,menu4% 200..|
00000280  be 05 3a 0d 00 c8 43 f2  73 70 72 69 74 65 73 74  |..:...C.spritest|
00000290  61 72 74 3a f2 74 65 6d  70 6c 61 74 65 73 3a 62  |art:.templates:b|
000002a0  61 72 69 63 25 3d a4 69  63 6f 6e 62 61 72 3a 66  |aric%=.iconbar:f|
000002b0  69 6c 65 74 79 70 65 25  3d 26 30 34 39 3a 73 69  |iletype%=&049:si|
000002c0  7a 65 24 3d 22 22 0d 00  d2 22 62 6c 6f 63 6b 6e  |ze$=""..."blockn|
000002d0  75 6d 62 65 72 25 3d 30  3a 66 69 6c 65 73 74 61  |umber%=0:filesta|
000002e0  74 65 24 3d 22 6e 6f 22  0d 00 dc 05 3a 0d 00 e6  |te$="no"....:...|
000002f0  4c f4 20 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |L. -------------|
00000300  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000330  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 00 f0 4c f4 20 7c  |---------...L. ||
00000340  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000350  20 20 20 20 20 20 20 4d  61 69 6e 20 50 6f 6c 6c  |       Main Poll|
00000360  69 6e 67 20 6c 6f 6f 70  20 20 20 20 20 20 20 20  |ing loop        |
00000370  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000380  20 20 20 20 7c 0d 00 fa  4c f4 20 2d 2d 2d 2d 2d  |    |...L. -----|
00000390  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000003d0  2d 0d 01 04 05 3a 0d 01  0e 0e ee 20 85 20 f2 65  |-....:..... . .e|
000003e0  72 72 6f 72 0d 01 18 0b  71 75 69 74 25 3d a3 0d  |rror....quit%=..|
000003f0  01 22 05 f5 0d 01 2c 1e  20 20 c8 99 20 22 57 69  |."....,.  .. "Wi|
00000400  6d 70 5f 50 6f 6c 6c 22  2c 30 2c 71 25 20 b8 20  |mp_Poll",0,q% . |
00000410  41 25 0d 01 36 0d 20 20  c8 8e 20 41 25 20 ca 0d  |A%..6.  .. A% ..|
00000420  01 40 44 20 20 c9 20 32  20 3a f2 6f 70 65 6e 5f  |.@D  . 2 :.open_|
00000430  77 69 6e 64 6f 77 28 21  71 25 2c 71 25 21 34 2c  |window(!q%,q%!4,|
00000440  71 25 21 38 2c 71 25 21  31 32 2c 71 25 21 31 36  |q%!8,q%!12,q%!16|
00000450  2c 71 25 21 32 30 2c 71  25 21 32 34 2c 71 25 21  |,q%!20,q%!24,q%!|
00000460  32 38 29 0d 01 4a 12 20  20 c9 20 31 20 3a f2 72  |28)..J.  . 1 :.r|
00000470  65 64 72 61 77 0d 01 54  1d 20 20 c9 20 33 20 3a  |edraw..T.  . 3 :|
00000480  f2 63 6c 6f 73 65 61 77  69 6e 64 6f 77 28 21 71  |.closeawindow(!q|
00000490  25 29 0d 01 5e 37 20 20  c9 20 36 20 3a f2 63 68  |%)..^7  . 6 :.ch|
000004a0  65 63 6b 6d 6f 75 73 65  28 21 71 25 2c 71 25 21  |eckmouse(!q%,q%!|
000004b0  34 2c 71 25 21 38 2c 71  25 21 31 32 2c 71 25 21  |4,q%!8,q%!12,q%!|
000004c0  31 36 2c 71 25 21 32 30  29 0d 01 68 18 20 20 c9  |16,q%!20)..h.  .|
000004d0  20 37 20 3a f2 64 72 61  67 66 69 6e 69 73 68 65  | 7 :.dragfinishe|
000004e0  64 0d 01 72 27 20 20 c9  20 38 20 3a f2 70 72 6f  |d..r'  . 8 :.pro|
000004f0  63 65 73 73 6b 65 79 28  71 25 21 34 2c 71 25 21  |cesskey(q%!4,q%!|
00000500  30 2c 71 25 21 32 34 29  0d 01 7c 21 20 20 c9 20  |0,q%!24)..|!  . |
00000510  39 20 3a f2 6d 65 6e 75  73 65 6c 65 63 74 28 71  |9 :.menuselect(q|
00000520  25 21 30 2c 71 25 21 34  29 0d 01 86 16 20 20 c9  |%!0,q%!4)....  .|
00000530  20 31 37 2c 31 38 3a f2  72 65 63 69 65 76 65 0d  | 17,18:.recieve.|
00000540  01 90 07 20 20 cb 0d 01  9a 0b fd 20 71 75 69 74  |...  ...... quit|
00000550  25 0d 01 a4 17 c8 99 20  22 57 69 6d 70 5f 43 6c  |%...... "Wimp_Cl|
00000560  6f 73 65 44 6f 77 6e 22  0d 01 ae 05 e0 0d 01 b8  |oseDown"........|
00000570  05 3a 0d 01 c2 4c f4 20  2d 2d 2d 2d 2d 2d 2d 2d  |.:...L. --------|
00000580  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000005b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 01  |--------------..|
000005c0  cc 4c f4 20 7c 20 20 20  20 20 20 20 20 20 20 20  |.L. |           |
000005d0  20 20 20 20 20 20 20 20  20 20 20 46 75 6e 63 74  |           Funct|
000005e0  69 6f 6e 73 20 26 20 50  72 6f 63 65 64 75 72 65  |ions & Procedure|
000005f0  73 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |s               |
00000600  20 20 20 20 20 20 20 20  20 7c 0d 01 d6 4c f4 20  |         |...L. |
00000610  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000650  2d 2d 2d 2d 2d 2d 0d 01  e0 05 3a 0d 01 ea 37 dd  |------....:...7.|
00000660  20 f2 63 68 65 63 6b 6d  6f 75 73 65 28 6d 6f 75  | .checkmouse(mou|
00000670  73 65 78 25 2c 6d 6f 75  73 65 79 25 2c 62 25 2c  |sex%,mousey%,b%,|
00000680  68 61 6e 64 6c 65 25 2c  69 63 6f 6e 25 2c 6f 62  |handle%,icon%,ob|
00000690  25 29 0d 01 f4 21 e7 20  68 61 6e 64 6c 65 25 3d  |%)...!. handle%=|
000006a0  2d 32 20 80 20 62 25 3d  32 20 f2 69 63 6f 6e 6d  |-2 . b%=2 .iconm|
000006b0  65 6e 75 0d 01 fe 26 e7  20 68 61 6e 64 6c 65 25  |enu...&. handle%|
000006c0  3d 73 63 65 64 69 74 25  20 80 20 62 25 3d 32 20  |=scedit% . b%=2 |
000006d0  f2 6d 61 69 6e 6d 65 6e  75 0d 02 08 34 e7 20 68  |.mainmenu...4. h|
000006e0  61 6e 64 6c 65 25 3d 2d  32 20 80 20 62 25 3d 34  |andle%=-2 . b%=4|
000006f0  20 80 20 66 69 6c 65 73  74 61 74 65 24 3d 22 79  | . filestate$="y|
00000700  65 73 22 20 f2 6f 70 65  6e 69 6e 66 6f 0d 02 12  |es" .openinfo...|
00000710  7a e7 20 68 61 6e 64 6c  65 25 3d 2d 32 20 80 20  |z. handle%=-2 . |
00000720  62 25 3d 34 20 80 20 66  69 6c 65 73 74 61 74 65  |b%=4 . filestate|
00000730  24 3d 22 6e 6f 22 20 f2  6d 65 73 73 61 67 65 28  |$="no" .message(|
00000740  22 57 65 6c 63 6f 6d 65  20 74 6f 20 74 68 65 20  |"Welcome to the |
00000750  63 61 76 65 20 65 64 69  74 6f 72 2e 20 54 6f 20  |cave editor. To |
00000760  75 73 65 20 6d 65 20 64  72 61 67 20 61 20 63 61  |use me drag a ca|
00000770  76 65 20 66 69 6c 65 20  6f 6e 74 6f 20 6d 79 20  |ve file onto my |
00000780  69 63 6f 6e 21 22 29 0d  02 1c 2d e7 20 68 61 6e  |icon!")...-. han|
00000790  64 6c 65 25 3d 62 6c 6f  63 6b 73 25 20 80 20 62  |dle%=blocks% . b|
000007a0  25 3d 34 20 f2 70 69 63  62 6c 6f 63 6b 28 69 63  |%=4 .picblock(ic|
000007b0  6f 6e 25 29 0d 02 26 2a  e7 20 68 61 6e 64 6c 65  |on%)..&*. handle|
000007c0  25 3d 73 63 65 64 69 74  25 20 80 20 62 25 3d 34  |%=scedit% . b%=4|
000007d0  20 f2 63 68 61 6e 67 65  73 70 72 69 74 65 0d 02  | .changesprite..|
000007e0  30 1f e7 20 68 61 6e 64  6c 65 25 3d 73 74 61 72  |0.. handle%=star|
000007f0  74 25 20 f2 65 64 69 74  73 74 61 72 74 0d 02 3a  |t% .editstart..:|
00000800  58 e7 20 28 68 61 6e 64  6c 65 25 3d 73 61 76 65  |X. (handle%=save|
00000810  25 20 84 20 68 61 6e 64  6c 65 25 3d 73 61 76 65  |% . handle%=save|
00000820  31 25 20 84 20 68 61 6e  64 6c 65 25 3d 73 61 76  |1% . handle%=sav|
00000830  65 32 25 29 20 80 20 69  63 6f 6e 25 3d 33 20 73  |e2%) . icon%=3 s|
00000840  61 76 25 3d 68 61 6e 64  6c 65 25 3a f2 73 61 76  |av%=handle%:.sav|
00000850  65 64 72 61 67 0d 02 44  56 e7 20 28 68 61 6e 64  |edrag..DV. (hand|
00000860  6c 65 25 3d 73 61 76 65  25 20 84 20 68 61 6e 64  |le%=save% . hand|
00000870  6c 65 25 3d 73 61 76 65  31 25 20 84 20 68 61 6e  |le%=save1% . han|
00000880  64 6c 65 25 3d 73 61 76  65 32 25 29 20 80 20 69  |dle%=save2%) . i|
00000890  63 6f 6e 25 3d 30 20 73  61 76 25 3d 68 61 6e 64  |con%=0 sav%=hand|
000008a0  6c 65 25 3a f2 73 61 76  65 6f 6b 0d 02 4e 28 e7  |le%:.saveok..N(.|
000008b0  20 68 61 6e 64 6c 65 25  3d 6c 65 76 65 6c 25 20  | handle%=level% |
000008c0  f2 63 68 61 6e 67 65 6c  65 76 65 6c 28 69 63 6f  |.changelevel(ico|
000008d0  6e 25 29 0d 02 58 05 e1  0d 02 62 05 3a 0d 02 6c  |n%)..X....b.:..l|
000008e0  27 dd f2 64 6f 6d 65 6e  75 28 6d 65 6e 75 24 2c  |'..domenu(menu$,|
000008f0  6d 65 6e 75 74 69 74 6c  65 24 2c 6d 65 6e 75 70  |menutitle$,menup|
00000900  74 72 25 29 0d 02 76 2c  69 25 3d 30 3a 6d 65 6e  |tr%)..v,i%=0:men|
00000910  75 70 74 72 25 21 32 30  3d 34 30 3a 24 6d 65 6e  |uptr%!20=40:$men|
00000920  75 70 74 72 25 3d 6d 65  6e 75 74 69 74 6c 65 24  |uptr%=menutitle$|
00000930  0d 02 80 3b 6d 65 6e 75  70 74 72 25 3f 31 32 3d  |...;menuptr%?12=|
00000940  37 3a 6d 65 6e 75 70 74  72 25 3f 31 33 3d 32 3a  |7:menuptr%?13=2:|
00000950  6d 65 6e 75 70 74 72 25  3f 31 34 3d 37 3a 6d 65  |menuptr%?14=7:me|
00000960  6e 75 70 74 72 25 3f 31  35 3d 30 0d 02 8a 20 6d  |nuptr%?15=0... m|
00000970  65 6e 75 70 74 72 25 21  31 36 3d 39 36 3a 6d 65  |enuptr%!16=96:me|
00000980  6e 75 70 74 72 25 21 32  34 3d 30 0d 02 94 27 e7  |nuptr%!24=0...'.|
00000990  20 6d 65 6e 75 74 69 74  6c 65 24 3d 22 53 61 76  | menutitle$="Sav|
000009a0  65 22 20 6d 65 6e 75 70  74 72 25 21 31 36 3d 31  |e" menuptr%!16=1|
000009b0  32 38 0d 02 9e 10 6d 65  6e 75 70 74 72 25 2b 3d  |28....menuptr%+=|
000009c0  32 38 0d 02 a8 31 f5 20  69 74 65 6d 24 3d a4 70  |28...1. item$=.p|
000009d0  61 72 28 22 2c 22 29 3a  f2 6d 65 6e 75 69 74 65  |ar(","):.menuite|
000009e0  6d 28 69 74 65 6d 24 29  3a fd 20 69 74 65 6d 24  |m(item$):. item$|
000009f0  3d 22 22 0d 02 b2 25 6d  65 6e 75 70 74 72 25 21  |=""...%menuptr%!|
00000a00  2d 32 34 3d 28 6d 65 6e  75 70 74 72 25 21 2d 32  |-24=(menuptr%!-2|
00000a10  34 29 84 26 38 30 3a e1  0d 02 bc 05 3a 0d 02 c6  |4).&80:.....:...|
00000a20  16 dd 20 f2 6d 65 6e 75  69 74 65 6d 28 74 65 78  |.. .menuitem(tex|
00000a30  74 24 29 0d 02 d0 10 e7  20 74 65 78 74 24 3d 22  |t$)..... text$="|
00000a40  22 20 e1 0d 02 da 32 21  6d 65 6e 75 70 74 72 25  |" ....2!menuptr%|
00000a50  3d 30 3a 6d 65 6e 75 70  74 72 25 21 34 3d 2d 31  |=0:menuptr%!4=-1|
00000a60  3a 6d 65 6e 75 70 74 72  25 21 38 3d 26 30 37 30  |:menuptr%!8=&070|
00000a70  30 30 30 32 31 0d 02 e4  37 e7 20 74 65 78 74 24  |00021...7. text$|
00000a80  3d 22 47 61 6d 65 22 20  80 20 6d 65 6e 75 74 69  |="Game" . menuti|
00000a90  74 6c 65 24 3d 22 53 61  76 65 22 20 6d 65 6e 75  |tle$="Save" menu|
00000aa0  70 74 72 25 21 34 3d 73  61 76 65 25 0d 02 ee 39  |ptr%!4=save%...9|
00000ab0  e7 20 74 65 78 74 24 3d  22 54 69 6c 65 73 22 20  |. text$="Tiles" |
00000ac0  80 20 6d 65 6e 75 74 69  74 6c 65 24 3d 22 53 61  |. menutitle$="Sa|
00000ad0  76 65 22 20 6d 65 6e 75  70 74 72 25 21 34 3d 73  |ve" menuptr%!4=s|
00000ae0  61 76 65 31 25 0d 02 f8  3b e7 20 74 65 78 74 24  |ave1%...;. text$|
00000af0  3d 22 50 61 6c 65 74 74  65 22 20 80 20 6d 65 6e  |="Palette" . men|
00000b00  75 74 69 74 6c 65 24 3d  22 53 61 76 65 22 20 6d  |utitle$="Save" m|
00000b10  65 6e 75 70 74 72 25 21  34 3d 73 61 76 65 32 25  |enuptr%!4=save2%|
00000b20  0d 03 02 23 e7 20 74 65  78 74 24 3d 22 46 69 6c  |...#. text$="Fil|
00000b30  65 22 20 6d 65 6e 75 70  74 72 25 21 34 3d 67 61  |e" menuptr%!4=ga|
00000b40  6d 65 25 0d 03 0c 25 e7  20 74 65 78 74 24 3d 22  |me%...%. text$="|
00000b50  53 74 61 72 74 22 20 6d  65 6e 75 70 74 72 25 21  |Start" menuptr%!|
00000b60  34 3d 73 74 61 72 74 25  0d 03 16 25 e7 20 74 65  |4=start%...%. te|
00000b70  78 74 24 3d 22 4c 65 76  65 6c 22 20 6d 65 6e 75  |xt$="Level" menu|
00000b80  70 74 72 25 21 34 3d 6c  65 76 65 6c 25 0d 03 20  |ptr%!4=level%.. |
00000b90  24 e7 20 74 65 78 74 24  3d 22 53 68 6f 77 22 20  |$. text$="Show" |
00000ba0  6d 65 6e 75 70 74 72 25  21 34 3d 6d 65 6e 75 32  |menuptr%!4=menu2|
00000bb0  25 0d 03 2a 24 e7 20 74  65 78 74 24 3d 22 45 64  |%..*$. text$="Ed|
00000bc0  69 74 22 20 6d 65 6e 75  70 74 72 25 21 34 3d 6d  |it" menuptr%!4=m|
00000bd0  65 6e 75 33 25 0d 03 34  24 e7 20 74 65 78 74 24  |enu3%..4$. text$|
00000be0  3d 22 53 61 76 65 22 20  6d 65 6e 75 70 74 72 25  |="Save" menuptr%|
00000bf0  21 34 3d 6d 65 6e 75 34  25 0d 03 3e 34 e7 20 c0  |!4=menu4%..>4. .|
00000c00  74 65 78 74 24 2c 31 29  3d 22 3e 22 20 6d 65 6e  |text$,1)=">" men|
00000c10  75 70 74 72 25 21 34 3d  69 6e 66 6f 25 3a 74 65  |uptr%!4=info%:te|
00000c20  78 74 24 3d c1 74 65 78  74 24 2c 32 29 0d 03 48  |xt$=.text$,2)..H|
00000c30  3e e7 20 74 65 78 74 24  3d 22 46 75 6c 6c 22 20  |>. text$="Full" |
00000c40  80 20 73 69 7a 65 24 3d  bd 31 32 38 20 8c 20 6d  |. size$=.128 . m|
00000c50  65 6e 75 70 74 72 25 21  30 3d 28 6d 65 6e 75 70  |enuptr%!0=(menup|
00000c60  74 72 25 21 30 29 20 84  20 26 31 0d 03 52 2d 24  |tr%!0) . &1..R-$|
00000c70  28 6d 65 6e 75 70 74 72  25 2b 31 32 29 3d 74 65  |(menuptr%+12)=te|
00000c80  78 74 24 3a 6d 65 6e 75  70 74 72 25 3d 6d 65 6e  |xt$:menuptr%=men|
00000c90  75 70 74 72 25 2b 32 34  0d 03 5c 05 e1 0d 03 66  |uptr%+24..\....f|
00000ca0  05 3a 0d 03 70 10 dd 20  a4 70 61 72 28 73 65 70  |.:..p.. .par(sep|
00000cb0  24 29 0d 03 7a 25 69 31  25 3d 69 25 2b 31 3a 69  |$)..z%i1%=i%+1:i|
00000cc0  25 3d a7 6d 65 6e 75 24  2b 73 65 70 24 2c 73 65  |%=.menu$+sep$,se|
00000cd0  70 24 2c 69 31 25 29 0d  03 84 17 3d c1 6d 65 6e  |p$,i1%)....=.men|
00000ce0  75 24 2c 69 31 25 2c 69  25 2d 69 31 25 29 0d 03  |u$,i1%,i%-i1%)..|
00000cf0  8e 05 20 0d 03 98 23 dd  20 f2 6d 65 6e 75 73 65  |.. ...#. .menuse|
00000d00  6c 65 63 74 28 6f 70 74  69 6f 6e 25 2c 6f 70 74  |lect(option%,opt|
00000d10  69 6f 6e 31 25 29 0d 03  a2 1f e7 20 6f 70 74 69  |ion1%)..... opti|
00000d20  6f 6e 25 3d 31 20 80 20  6d 75 25 3d 30 20 71 75  |on%=1 . mu%=0 qu|
00000d30  69 74 25 3d b9 0d 03 ac  2c e7 20 6f 70 74 69 6f  |it%=....,. optio|
00000d40  6e 25 3d 30 20 80 20 6f  70 74 69 6f 6e 31 25 3d  |n%=0 . option1%=|
00000d50  32 20 80 20 6d 75 25 3d  31 20 f2 62 6c 6f 63 6b  |2 . mu%=1 .block|
00000d60  73 0d 03 b6 2f e7 20 6f  70 74 69 6f 6e 25 3d 30  |s.../. option%=0|
00000d70  20 80 20 6f 70 74 69 6f  6e 31 25 3d 33 20 80 20  | . option1%=3 . |
00000d80  6d 75 25 3d 31 20 f2 61  6c 74 65 72 73 69 7a 65  |mu%=1 .altersize|
00000d90  0d 03 c0 2b e7 20 6f 70  74 69 6f 6e 25 3d 31 20  |...+. option%=1 |
00000da0  80 20 6f 70 74 69 6f 6e  31 25 3d 30 20 80 20 6d  |. option1%=0 . m|
00000db0  75 25 3d 31 20 f2 63 6c  65 61 72 0d 03 ca 24 c8  |u%=1 .clear...$.|
00000dc0  99 20 22 57 69 6d 70 5f  47 65 74 50 6f 69 6e 74  |. "Wimp_GetPoint|
00000dd0  65 72 49 6e 66 6f 22 2c  2c 62 6c 6f 63 6b 25 0d  |erInfo",,block%.|
00000de0  03 d4 32 f2 64 6f 6d 65  6e 75 28 22 3e 49 6e 66  |..2.domenu(">Inf|
00000df0  6f 2c 46 69 6c 65 2c 54  69 6c 65 73 2c 46 75 6c  |o,File,Tiles,Ful|
00000e00  6c 22 2c 22 53 68 6f 77  22 2c 6d 65 6e 75 32 25  |l","Show",menu2%|
00000e10  29 0d 03 de 2f e7 20 62  6c 6f 63 6b 25 21 38 3d  |).../. block%!8=|
00000e20  31 20 8c 20 c8 99 20 22  57 69 6d 70 5f 43 72 65  |1 . .. "Wimp_Cre|
00000e30  61 74 65 4d 65 6e 75 22  2c 2c 6d 65 6e 75 31 25  |ateMenu",,menu1%|
00000e40  0d 03 e8 05 e1 0d 03 f2  05 3a 0d 03 fc 3e dd 20  |.........:...>. |
00000e50  f2 6f 70 65 6e 5f 77 69  6e 64 6f 77 28 68 61 6e  |.open_window(han|
00000e60  64 6c 65 25 2c 78 30 25  2c 79 30 25 2c 78 31 25  |dle%,x0%,y0%,x1%|
00000e70  2c 79 31 25 2c 73 63 78  25 2c 73 63 79 25 2c 62  |,y1%,scx%,scy%,b|
00000e80  68 61 6e 64 6c 65 25 29  0d 04 06 11 e7 68 61 6e  |handle%).....han|
00000e90  64 6c 65 25 3d 2d 31 8c  e1 0d 04 10 1f 71 25 21  |dle%=-1......q%!|
00000ea0  30 3d 68 61 6e 64 6c 65  25 3a 71 25 21 32 38 3d  |0=handle%:q%!28=|
00000eb0  62 68 61 6e 64 6c 65 25  0d 04 1a 29 71 25 21 34  |bhandle%...)q%!4|
00000ec0  3d 78 30 25 3a 71 25 21  38 3d 79 30 25 3a 71 25  |=x0%:q%!8=y0%:q%|
00000ed0  21 31 32 3d 78 31 25 3a  71 25 21 31 36 3d 79 31  |!12=x1%:q%!16=y1|
00000ee0  25 0d 04 24 19 71 25 21  32 30 3d 73 63 78 25 3a  |%..$.q%!20=scx%:|
00000ef0  71 25 21 32 34 3d 73 63  79 25 0d 04 2e 1c c8 99  |q%!24=scy%......|
00000f00  20 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  | "Wimp_OpenWindo|
00000f10  77 22 2c 2c 71 25 0d 04  38 05 e1 0d 04 42 05 20  |w",,q%..8....B. |
00000f20  0d 04 4c 1b dd f2 63 6c  6f 73 65 61 77 69 6e 64  |..L...closeawind|
00000f30  6f 77 28 68 61 6e 64 6c  65 25 29 0d 04 56 2c 21  |ow(handle%)..V,!|
00000f40  71 25 3d 68 61 6e 64 6c  65 25 3a c8 99 20 22 57  |q%=handle%:.. "W|
00000f50  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 53 74 61  |imp_GetWindowSta|
00000f60  74 65 22 2c 2c 71 25 0d  04 60 2b f2 69 6e 66 6f  |te",,q%..`+.info|
00000f70  28 71 25 2b 34 29 3a 62  68 61 6e 64 6c 65 25 3d  |(q%+4):bhandle%=|
00000f80  71 25 21 32 38 3a 66 6c  61 67 73 25 3d 71 25 21  |q%!28:flags%=q%!|
00000f90  33 32 0d 04 6a 39 78 6f  25 3d 78 30 25 3a 79 6f  |32..j9xo%=x0%:yo|
00000fa0  25 3d 79 30 25 3a 21 71  25 3d 68 61 6e 64 6c 65  |%=y0%:!q%=handle|
00000fb0  25 3a c8 99 20 22 57 69  6d 70 5f 43 6c 6f 73 65  |%:.. "Wimp_Close|
00000fc0  57 69 6e 64 6f 77 22 2c  2c 71 25 0d 04 74 05 e1  |Window",,q%..t..|
00000fd0  0d 04 7e 05 20 0d 04 88  0f dd 20 f2 69 6e 66 6f  |..~. ..... .info|
00000fe0  28 71 25 29 0d 04 92 3d  78 30 25 3d 21 71 25 3a  |(q%)...=x0%=!q%:|
00000ff0  79 30 25 3d 71 25 21 34  3a 78 31 25 3d 71 25 21  |y0%=q%!4:x1%=q%!|
00001000  38 3a 79 31 25 3d 71 25  21 31 32 3a 73 63 78 25  |8:y1%=q%!12:scx%|
00001010  3d 71 25 21 31 36 3a 73  63 79 25 3d 71 25 21 32  |=q%!16:scy%=q%!2|
00001020  30 0d 04 9c 1d 62 78 25  3d 78 30 25 2d 73 63 78  |0....bx%=x0%-scx|
00001030  25 3a 62 79 25 3d 79 31  25 2d 73 63 79 25 0d 04  |%:by%=y1%-scy%..|
00001040  a6 05 e1 0d 04 b0 05 3a  0d 04 ba 0c dd 20 f2 65  |.......:..... .e|
00001050  72 72 6f 72 0d 04 c4 3f  21 62 6c 6f 63 6b 25 3d  |rror...?!block%=|
00001060  9f 3a 24 28 62 6c 6f 63  6b 25 2b 34 29 3d f6 24  |.:$(block%+4)=.$|
00001070  2b 22 20 28 69 6e 74 65  72 6e 61 6c 20 65 72 72  |+" (internal err|
00001080  6f 72 20 63 6f 64 65 20  22 2b c3 9e 2b 22 29 22  |or code "+..+")"|
00001090  2b bd 30 0d 04 ce 30 c8  99 20 22 57 69 6d 70 5f  |+.0...0.. "Wimp_|
000010a0  52 65 70 6f 72 74 45 72  72 6f 72 22 2c 62 6c 6f  |ReportError",blo|
000010b0  63 6b 25 2c 31 2c 22 43  61 76 65 20 45 64 69 74  |ck%,1,"Cave Edit|
000010c0  6f 72 22 0d 04 d8 05 e1  0d 04 e2 05 3a 0d 04 ec  |or".........:...|
000010d0  0e dd 20 a4 69 63 6f 6e  62 61 72 0d 04 f6 36 21  |.. .iconbar...6!|
000010e0  71 25 3d 2d 31 3a 71 25  21 34 3d 30 3a 71 25 21  |q%=-1:q%!4=0:q%!|
000010f0  38 3d 30 3a 71 25 21 31  32 3d 36 38 3a 71 25 21  |8=0:q%!12=68:q%!|
00001100  31 36 3d 36 38 3a 71 25  21 32 30 3d 26 33 30 30  |16=68:q%!20=&300|
00001110  32 0d 05 00 18 24 28 71  25 2b 32 34 29 3d 22 21  |2....$(q%+24)="!|
00001120  43 61 76 65 45 64 69 74  22 0d 05 0a 22 c8 99 20  |CaveEdit"...".. |
00001130  22 57 69 6d 70 5f 43 72  65 61 74 65 49 63 6f 6e  |"Wimp_CreateIcon|
00001140  22 2c 2c 71 25 20 b8 20  69 63 25 0d 05 14 08 3d  |",,q% . ic%....=|
00001150  69 63 25 0d 05 1e 05 3a  0d 05 28 0c dd f2 72 65  |ic%....:..(...re|
00001160  64 72 61 77 0d 05 32 49  c8 99 20 22 57 69 6d 70  |draw..2I.. "Wimp|
00001170  5f 52 65 61 64 50 69 78  54 72 61 6e 73 22 2c 26  |_ReadPixTrans",&|
00001180  31 30 30 2c 73 70 72 69  74 65 61 72 65 61 25 2c  |100,spritearea%,|
00001190  22 30 22 2c 30 2c 30 2c  30 2c 73 63 61 6c 65 66  |"0",0,0,0,scalef|
000011a0  61 63 25 2c 70 69 78 74  72 61 6e 73 25 0d 05 3c  |ac%,pixtrans%..<|
000011b0  43 73 63 61 6c 65 66 61  63 25 21 38 3d 73 63 61  |Cscalefac%!8=sca|
000011c0  6c 65 66 61 63 25 21 38  2a 73 63 61 6c 65 25 3a  |lefac%!8*scale%:|
000011d0  73 63 61 6c 65 66 61 63  25 21 31 32 3d 73 63 61  |scalefac%!12=sca|
000011e0  6c 65 66 61 63 25 21 31  32 2a 73 63 61 6c 65 25  |lefac%!12*scale%|
000011f0  0d 05 46 0d f2 70 69 78  74 72 61 6e 73 0d 05 50  |..F..pixtrans..P|
00001200  26 c8 99 20 22 57 69 6d  70 5f 52 65 64 72 61 77  |&.. "Wimp_Redraw|
00001210  57 69 6e 64 6f 77 22 2c  2c 71 25 20 b8 20 6d 6f  |Window",,q% . mo|
00001220  72 65 25 0d 05 5a 0c c8  95 20 6d 6f 72 65 25 0d  |re%..Z... more%.|
00001230  05 64 0f f2 70 6c 6f 74  73 70 72 6d 61 70 0d 05  |.d..plotsprmap..|
00001240  6e 26 c8 99 20 22 57 69  6d 70 5f 47 65 74 52 65  |n&.. "Wimp_GetRe|
00001250  63 74 61 6e 67 6c 65 22  2c 2c 71 25 20 b8 20 6d  |ctangle",,q% . m|
00001260  6f 72 65 25 0d 05 78 07  ce 3a e1 0d 05 82 05 3a  |ore%..x..:.....:|
00001270  0d 05 8c 10 dd f2 70 6c  6f 74 73 70 72 6d 61 70  |......plotsprmap|
00001280  0d 05 96 22 78 6f 25 3d  71 25 21 34 2d 71 25 21  |..."xo%=q%!4-q%!|
00001290  32 30 3a 79 6f 25 3d 71  25 21 31 36 2d 71 25 21  |20:yo%=q%!16-q%!|
000012a0  32 34 0d 05 a0 22 6c 65  66 74 25 3d 28 71 25 21  |24..."left%=(q%!|
000012b0  32 38 2d 78 6f 25 29 81  28 31 32 38 2f 73 63 61  |28-xo%).(128/sca|
000012c0  6c 65 25 29 0d 05 aa 26  62 6f 74 74 6f 6d 25 3d  |le%)...&bottom%=|
000012d0  28 79 6f 25 2d 71 25 21  33 32 2d 34 29 81 28 31  |(yo%-q%!32-4).(1|
000012e0  32 38 2f 73 63 61 6c 65  25 29 0d 05 b4 25 72 69  |28/scale%)...%ri|
000012f0  67 68 74 25 3d 28 71 25  21 33 36 2d 78 6f 25 2d  |ght%=(q%!36-xo%-|
00001300  32 29 81 28 31 32 38 2f  73 63 61 6c 65 25 29 0d  |2).(128/scale%).|
00001310  05 be 21 74 6f 70 25 3d  28 79 6f 25 2d 71 25 21  |..!top%=(yo%-q%!|
00001320  34 30 29 81 28 31 32 38  2f 73 63 61 6c 65 25 29  |40).(128/scale%)|
00001330  0d 05 c8 2b e3 20 59 25  3d 74 6f 70 25 20 b8 20  |...+. Y%=top% . |
00001340  62 6f 74 74 6f 6d 25 3a  e3 20 58 25 3d 6c 65 66  |bottom%:. X%=lef|
00001350  74 25 20 b8 20 72 69 67  68 74 25 0d 05 d2 47 61  |t% . right%...Ga|
00001360  64 64 72 25 3d 28 58 25  2b 37 2b 28 28 77 69 64  |ddr%=(X%+7+((wid|
00001370  74 68 25 2b 31 32 29 2a  28 59 25 2b 32 29 29 29  |th%+12)*(Y%+2)))|
00001380  2b 62 6c 6f 63 6b 61 64  64 72 25 3a 73 70 72 69  |+blockaddr%:spri|
00001390  74 65 24 3d c3 28 28 3f  61 64 64 72 25 29 2d 33  |te$=.((?addr%)-3|
000013a0  32 29 0d 05 dc 7a c8 99  20 22 4f 53 5f 53 70 72  |2)...z.. "OS_Spr|
000013b0  69 74 65 4f 70 22 2c 35  32 2b 32 35 36 2c 73 70  |iteOp",52+256,sp|
000013c0  72 69 74 65 61 72 65 61  25 2c 73 70 72 69 74 65  |ritearea%,sprite|
000013d0  24 2c 78 6f 25 2b 58 25  2a 28 31 32 38 2f 73 63  |$,xo%+X%*(128/sc|
000013e0  61 6c 65 25 29 2c 79 6f  25 2d 59 25 2a 28 31 32  |ale%),yo%-Y%*(12|
000013f0  38 2f 73 63 61 6c 65 25  29 2d 28 31 32 38 2f 73  |8/scale%)-(128/s|
00001400  63 61 6c 65 25 29 2c 30  2c 73 63 61 6c 65 66 61  |cale%),0,scalefa|
00001410  63 25 2c 70 69 78 74 72  61 6e 73 25 0d 05 e6 07  |c%,pixtrans%....|
00001420  ed 3a ed 0d 05 f0 05 e1  0d 05 fa 05 3a 0d 06 04  |.:..........:...|
00001430  0c dd f2 62 6c 6f 63 6b  73 0d 06 0e 34 62 6c 6f  |...blocks...4blo|
00001440  63 6b 25 21 30 3d 62 6c  6f 63 6b 73 25 3a c8 99  |ck%!0=blocks%:..|
00001450  20 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  | "Wimp_GetWindow|
00001460  49 6e 66 6f 22 2c 2c 62  6c 6f 63 6b 25 0d 06 18  |Info",,block%...|
00001470  2f 62 6c 6f 63 6b 25 21  32 38 3d 2d 31 3a c8 99  |/block%!28=-1:..|
00001480  20 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  | "Wimp_OpenWindo|
00001490  77 22 2c 2c 62 6c 6f 63  6b 25 3a e1 0d 06 22 05  |w",,block%:...".|
000014a0  3a 0d 06 2c 0e dd f2 6f  70 65 6e 69 6e 66 6f 0d  |:..,...openinfo.|
000014b0  06 36 34 62 6c 6f 63 6b  25 21 30 3d 73 63 65 64  |.64block%!0=sced|
000014c0  69 74 25 3a c8 99 20 22  57 69 6d 70 5f 47 65 74  |it%:.. "Wimp_Get|
000014d0  57 69 6e 64 6f 77 49 6e  66 6f 22 2c 2c 62 6c 6f  |WindowInfo",,blo|
000014e0  63 6b 25 0d 06 40 2d 62  6c 6f 63 6b 25 21 32 38  |ck%..@-block%!28|
000014f0  3d 2d 31 3a c8 99 20 22  57 69 6d 70 5f 4f 70 65  |=-1:.. "Wimp_Ope|
00001500  6e 57 69 6e 64 6f 77 22  2c 2c 62 6c 6f 63 6b 25  |nWindow",,block%|
00001510  0d 06 4a 05 e1 0d 06 54  05 3a 0d 06 5e 12 dd f2  |..J....T.:..^...|
00001520  70 69 63 62 6c 6f 63 6b  28 4e 25 29 0d 06 68 37  |picblock(N%)..h7|
00001530  f2 6e 6f 62 6f 72 64 65  72 28 62 6c 6f 63 6b 73  |.noborder(blocks|
00001540  25 2c 62 6c 6f 63 6b 6e  75 6d 62 65 72 25 29 3a  |%,blocknumber%):|
00001550  f2 62 6f 72 64 65 72 28  62 6c 6f 63 6b 73 25 2c  |.border(blocks%,|
00001560  4e 25 29 0d 06 72 15 62  6c 6f 63 6b 6e 75 6d 62  |N%)..r.blocknumb|
00001570  65 72 25 3d 4e 25 3a e1  0d 06 7c 05 3a 0d 06 86  |er%=N%:...|.:...|
00001580  1b dd f2 62 6f 72 64 65  72 28 77 69 6e 64 6f 77  |...border(window|
00001590  25 2c 69 63 6f 6e 25 29  0d 06 90 2e 62 6c 6f 63  |%,icon%)....bloc|
000015a0  6b 25 21 30 3d 77 69 6e  64 6f 77 25 3a 62 6c 6f  |k%!0=window%:blo|
000015b0  63 6b 25 21 34 3d 69 63  6f 6e 25 3a 62 6c 6f 63  |ck%!4=icon%:bloc|
000015c0  6b 25 21 38 3d 34 0d 06  9a 30 62 6c 6f 63 6b 25  |k%!8=4...0block%|
000015d0  21 31 32 3d 34 3a c8 99  20 22 57 69 6d 70 5f 53  |!12=4:.. "Wimp_S|
000015e0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 62 6c  |etIconState",,bl|
000015f0  6f 63 6b 25 3a e1 0d 06  a4 05 3a 0d 06 ae 1d dd  |ock%:.....:.....|
00001600  f2 6e 6f 62 6f 72 64 65  72 28 77 69 6e 64 6f 77  |.noborder(window|
00001610  25 2c 69 63 6f 6e 25 29  0d 06 b8 2e 62 6c 6f 63  |%,icon%)....bloc|
00001620  6b 25 21 30 3d 77 69 6e  64 6f 77 25 3a 62 6c 6f  |k%!0=window%:blo|
00001630  63 6b 25 21 34 3d 69 63  6f 6e 25 3a 62 6c 6f 63  |ck%!4=icon%:bloc|
00001640  6b 25 21 38 3d 30 0d 06  c2 30 62 6c 6f 63 6b 25  |k%!8=0...0block%|
00001650  21 31 32 3d 34 3a c8 99  20 22 57 69 6d 70 5f 53  |!12=4:.. "Wimp_S|
00001660  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 62 6c  |etIconState",,bl|
00001670  6f 63 6b 25 3a e1 0d 06  cc 05 3a 0d 06 d6 12 dd  |ock%:.....:.....|
00001680  f2 63 68 61 6e 67 65 73  70 72 69 74 65 0d 06 e0  |.changesprite...|
00001690  2d 71 25 21 30 3d 73 63  65 64 69 74 25 3a c8 99  |-q%!0=scedit%:..|
000016a0  20 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  | "Wimp_GetWindow|
000016b0  53 74 61 74 65 22 2c 2c  71 25 0d 06 ea 22 78 6f  |State",,q%..."xo|
000016c0  25 3d 71 25 21 34 2d 71  25 21 32 30 3a 79 6f 25  |%=q%!4-q%!20:yo%|
000016d0  3d 71 25 21 31 36 2d 71  25 21 32 34 0d 06 f4 43  |=q%!16-q%!24...C|
000016e0  58 25 3d 28 6d 6f 75 73  65 78 25 2d 78 6f 25 29  |X%=(mousex%-xo%)|
000016f0  20 81 20 28 31 32 38 2f  73 63 61 6c 65 25 29 3a  | . (128/scale%):|
00001700  59 25 3d 28 79 6f 25 2d  6d 6f 75 73 65 79 25 2d  |Y%=(yo%-mousey%-|
00001710  34 29 81 28 31 32 38 2f  73 63 61 6c 65 25 29 0d  |4).(128/scale%).|
00001720  06 fe 30 61 64 64 72 25  3d 28 58 25 2b 37 2b 28  |..0addr%=(X%+7+(|
00001730  28 77 69 64 74 68 25 2b  31 32 29 2a 28 59 25 2b  |(width%+12)*(Y%+|
00001740  32 29 29 29 2b 62 6c 6f  63 6b 61 64 64 72 25 0d  |2)))+blockaddr%.|
00001750  07 08 1a 3f 61 64 64 72  25 3d 62 6c 6f 63 6b 6e  |...?addr%=blockn|
00001760  75 6d 62 65 72 25 2b 33  32 0d 07 12 4a 71 25 21  |umber%+32...Jq%!|
00001770  30 3d 73 63 65 64 69 74  25 3a 71 25 21 34 3d 58  |0=scedit%:q%!4=X|
00001780  25 2a 28 31 32 38 2f 73  63 61 6c 65 25 29 3a 71  |%*(128/scale%):q|
00001790  25 21 38 3d 2d 28 28 31  32 38 2f 73 63 61 6c 65  |%!8=-((128/scale|
000017a0  25 29 2a 59 25 29 2d 28  31 32 38 2f 73 63 61 6c  |%)*Y%)-(128/scal|
000017b0  65 25 29 0d 07 1c 43 71  25 21 31 32 3d 58 25 2a  |e%)...Cq%!12=X%*|
000017c0  28 31 32 38 2f 73 63 61  6c 65 25 29 2a 31 32 38  |(128/scale%)*128|
000017d0  2b 28 31 32 38 2f 73 63  61 6c 65 25 29 3a 71 25  |+(128/scale%):q%|
000017e0  21 31 36 3d 2d 28 28 31  32 38 2f 73 63 61 6c 65  |!16=-((128/scale|
000017f0  25 29 2a 59 25 29 0d 07  26 49 c8 99 20 22 57 69  |%)*Y%)..&I.. "Wi|
00001800  6d 70 5f 52 65 61 64 50  69 78 54 72 61 6e 73 22  |mp_ReadPixTrans"|
00001810  2c 26 31 30 30 2c 73 70  72 69 74 65 61 72 65 61  |,&100,spritearea|
00001820  25 2c 22 30 22 2c 30 2c  30 2c 30 2c 73 63 61 6c  |%,"0",0,0,0,scal|
00001830  65 66 61 63 25 2c 70 69  78 74 72 61 6e 73 25 0d  |efac%,pixtrans%.|
00001840  07 30 43 73 63 61 6c 65  66 61 63 25 21 38 3d 73  |.0Cscalefac%!8=s|
00001850  63 61 6c 65 66 61 63 25  21 38 2a 73 63 61 6c 65  |calefac%!8*scale|
00001860  25 3a 73 63 61 6c 65 66  61 63 25 21 31 32 3d 73  |%:scalefac%!12=s|
00001870  63 61 6c 65 66 61 63 25  21 31 32 2a 73 63 61 6c  |calefac%!12*scal|
00001880  65 25 0d 07 3a 0d f2 70  69 78 74 72 61 6e 73 0d  |e%..:..pixtrans.|
00001890  07 44 26 c8 99 20 22 57  69 6d 70 5f 55 70 64 61  |.D&.. "Wimp_Upda|
000018a0  74 65 57 69 6e 64 6f 77  22 2c 2c 71 25 20 b8 20  |teWindow",,q% . |
000018b0  6d 6f 72 65 25 0d 07 4e  3b c8 95 20 6d 6f 72 65  |more%..N;.. more|
000018c0  25 3a f2 70 6c 6f 74 73  70 72 6d 61 70 3a c8 99  |%:.plotsprmap:..|
000018d0  20 22 57 69 6d 70 5f 47  65 74 52 65 63 74 61 6e  | "Wimp_GetRectan|
000018e0  67 6c 65 22 2c 2c 71 25  20 b8 20 6d 6f 72 65 25  |gle",,q% . more%|
000018f0  0d 07 58 07 ce 3a e1 0d  07 62 05 3a 0d 07 6c 23  |..X..:...b.:..l#|
00001900  dd f2 6e 65 77 73 70 72  28 77 69 6e 64 6f 77 25  |..newspr(window%|
00001910  2c 69 63 6f 6e 25 2c 73  70 72 69 74 65 24 29 0d  |,icon%,sprite$).|
00001920  07 76 42 62 6c 6f 63 6b  25 21 30 3d 77 69 6e 64  |.vBblock%!0=wind|
00001930  6f 77 25 3a 62 6c 6f 63  6b 25 21 34 3d 69 63 6f  |ow%:block%!4=ico|
00001940  6e 25 3a c8 99 20 22 57  69 6d 70 5f 47 65 74 49  |n%:.. "Wimp_GetI|
00001950  63 6f 6e 53 74 61 74 65  22 2c 2c 62 6c 6f 63 6b  |conState",,block|
00001960  25 0d 07 80 20 41 25 3d  62 6c 6f 63 6b 25 21 33  |%... A%=block%!3|
00001970  32 3a 24 41 25 3d 22 53  22 2b 73 70 72 69 74 65  |2:$A%="S"+sprite|
00001980  24 0d 07 8a 3a 62 6c 6f  63 6b 25 21 30 3d 77 69  |$...:block%!0=wi|
00001990  6e 64 6f 77 25 3a 62 6c  6f 63 6b 25 21 34 3d 69  |ndow%:block%!4=i|
000019a0  63 6f 6e 25 3a 62 6c 6f  63 6b 25 21 38 3d 30 3a  |con%:block%!8=0:|
000019b0  62 6c 6f 63 6b 25 21 31  32 3d 30 0d 07 94 24 c8  |block%!12=0...$.|
000019c0  99 20 22 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  |. "Wimp_SetIconS|
000019d0  74 61 74 65 22 2c 2c 62  6c 6f 63 6b 25 3a e1 0d  |tate",,block%:..|
000019e0  07 9e 05 3a 0d 07 a8 0a  dd f2 67 72 69 64 0d 07  |...:......grid..|
000019f0  b2 51 c8 99 20 22 57 69  6d 70 5f 46 6f 72 63 65  |.Q.. "Wimp_Force|
00001a00  52 65 64 72 61 77 22 2c  73 63 65 64 69 74 25 2c  |Redraw",scedit%,|
00001a10  30 2c 2d 28 28 31 32 38  2f 73 63 61 6c 65 25 29  |0,-((128/scale%)|
00001a20  2a 68 65 69 67 68 74 25  29 2c 28 31 32 38 2f 73  |*height%),(128/s|
00001a30  63 61 6c 65 25 29 2a 77  69 64 74 68 25 2c 30 0d  |cale%)*width%,0.|
00001a40  07 bc 05 e1 0d 07 c6 05  3a 0d 07 d0 11 dd f2 73  |........:......s|
00001a50  65 74 75 70 62 6c 6f 63  6b 73 0d 07 da 29 e3 20  |etupblocks...). |
00001a60  58 25 3d 30 20 b8 20 33  31 3a f2 6e 65 77 73 70  |X%=0 . 31:.newsp|
00001a70  72 28 62 6c 6f 63 6b 73  25 2c 58 25 2c c3 28 58  |r(blocks%,X%,.(X|
00001a80  25 29 29 0d 07 e4 1c f2  62 61 63 6b 63 6f 6c 28  |%)).....backcol(|
00001a90  62 6c 6f 63 6b 73 25 2c  58 25 2c 30 29 3a ed 0d  |blocks%,X%,0):..|
00001aa0  07 ee 05 e1 0d 07 f8 05  3a 0d 08 02 24 dd f2 62  |........:...$..b|
00001ab0  61 63 6b 63 6f 6c 28 77  69 6e 64 6f 77 25 2c 69  |ackcol(window%,i|
00001ac0  63 6f 6e 25 2c 63 6f 6c  6f 75 72 25 29 0d 08 0c  |con%,colour%)...|
00001ad0  1a 41 24 3d c3 7e 63 6f  6c 6f 75 72 25 2b 22 30  |.A$=.~colour%+"0|
00001ae0  30 30 30 30 30 30 22 0d  08 16 32 62 6c 6f 63 6b  |000000"...2block|
00001af0  25 21 30 3d 77 69 6e 64  6f 77 25 3a 62 6c 6f 63  |%!0=window%:bloc|
00001b00  6b 25 21 34 3d 69 63 6f  6e 25 3a 62 6c 6f 63 6b  |k%!4=icon%:block|
00001b10  25 21 38 3d a0 28 41 24  29 0d 08 20 38 62 6c 6f  |%!8=.(A$).. 8blo|
00001b20  63 6b 25 21 31 32 3d 26  46 30 30 30 30 30 30 30  |ck%!12=&F0000000|
00001b30  3a c8 99 20 22 57 69 6d  70 5f 53 65 74 49 63 6f  |:.. "Wimp_SetIco|
00001b40  6e 53 74 61 74 65 22 2c  2c 62 6c 6f 63 6b 25 3a  |nState",,block%:|
00001b50  e1 0d 08 2a 05 3a 0d 08  34 0d dd f2 72 65 63 69  |...*.:..4...reci|
00001b60  65 76 65 0d 08 3e 15 e7  20 71 25 21 31 36 3d 30  |eve..>.. q%!16=0|
00001b70  20 71 75 69 74 25 3d b9  0d 08 48 19 e7 20 71 25  | quit%=...H.. q%|
00001b80  21 31 36 3d 32 20 f2 64  61 74 61 73 61 76 65 3a  |!16=2 .datasave:|
00001b90  e1 0d 08 52 3d e7 20 71  25 21 31 36 3d 33 20 f2  |...R=. q%!16=3 .|
00001ba0  64 61 74 61 6c 6f 61 64  3a f2 72 65 73 70 72 73  |dataload:.resprs|
00001bb0  3a f2 65 64 69 74 65 78  74 65 6e 74 3a f2 6f 70  |:.editextent:.op|
00001bc0  65 6e 69 6e 66 6f 3a f2  67 72 69 64 3a e1 0d 08  |eninfo:.grid:...|
00001bd0  5c 05 e1 0d 08 66 05 3a  0d 08 70 0f dd 20 a4 73  |\....f.:..p.. .s|
00001be0  61 76 65 6e 61 6d 65 0d  08 7a 1c 62 6c 6f 63 6b  |avename..z.block|
00001bf0  25 21 30 3d 73 61 76 25  3a 62 6c 6f 63 6b 25 21  |%!0=sav%:block%!|
00001c00  34 3d 32 0d 08 84 22 c8  99 20 22 57 69 6d 70 5f  |4=2...".. "Wimp_|
00001c10  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 62  |GetIconState",,b|
00001c20  6c 6f 63 6b 25 0d 08 8e  3c 41 24 3d 22 22 3a 41  |lock%...<A$="":A|
00001c30  25 3d 62 6c 6f 63 6b 25  21 32 38 3a f5 3a 41 24  |%=block%!28:.:A$|
00001c40  3d 41 24 2b bd 3f 41 25  3a 41 25 3d 41 25 2b 31  |=A$+.?A%:A%=A%+1|
00001c50  3a fd 20 3f 41 25 3d 30  20 84 20 3f 41 25 3d 31  |:. ?A%=0 . ?A%=1|
00001c60  33 0d 08 98 0a 3d 41 24  2b bd 30 0d 08 a2 05 3a  |3....=A$+.0....:|
00001c70  0d 08 ac 12 dd f2 73 61  76 65 6e 61 6d 65 28 41  |......savename(A|
00001c80  24 29 0d 08 b6 1c 62 6c  6f 63 6b 25 21 30 3d 73  |$)....block%!0=s|
00001c90  61 76 25 3a 62 6c 6f 63  6b 25 21 34 3d 32 0d 08  |av%:block%!4=2..|
00001ca0  c0 22 c8 99 20 22 57 69  6d 70 5f 47 65 74 49 63  |.".. "Wimp_GetIc|
00001cb0  6f 6e 53 74 61 74 65 22  2c 2c 62 6c 6f 63 6b 25  |onState",,block%|
00001cc0  0d 08 ca 13 24 28 62 6c  6f 63 6b 25 21 32 38 29  |....$(block%!28)|
00001cd0  3d 41 24 0d 08 d4 05 e1  0d 08 de 05 3a 0d 08 e8  |=A$.........:...|
00001ce0  0e dd f2 73 61 76 65 64  72 61 67 0d 08 f2 2a 71  |...savedrag...*q|
00001cf0  25 21 30 3d 73 61 76 25  3a c8 99 20 22 57 69 6d  |%!0=sav%:.. "Wim|
00001d00  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
00001d10  22 2c 2c 71 25 0d 08 fc  22 78 6f 25 3d 71 25 21  |",,q%..."xo%=q%!|
00001d20  34 2d 71 25 21 32 30 3a  79 6f 25 3d 71 25 21 31  |4-q%!20:yo%=q%!1|
00001d30  36 2d 71 25 21 32 34 0d  09 06 25 71 25 21 34 3d  |6-q%!24...%q%!4=|
00001d40  33 3a c8 99 20 22 57 69  6d 70 5f 47 65 74 49 63  |3:.. "Wimp_GetIc|
00001d50  6f 6e 53 74 61 74 65 22  2c 2c 71 25 0d 09 10 42  |onState",,q%...B|
00001d60  71 25 21 30 3d 73 61 76  25 3a 71 25 21 34 3d 35  |q%!0=sav%:q%!4=5|
00001d70  3a 71 25 21 38 3d 78 6f  25 2b 71 25 21 38 3a 71  |:q%!8=xo%+q%!8:q|
00001d80  25 21 31 32 3d 79 6f 25  2b 71 25 21 31 32 3a 71  |%!12=yo%+q%!12:q|
00001d90  25 21 31 36 3d 78 6f 25  2b 71 25 21 31 36 0d 09  |%!16=xo%+q%!16..|
00001da0  1a 43 71 25 21 32 30 3d  79 6f 25 2b 71 25 21 32  |.Cq%!20=yo%+q%!2|
00001db0  30 3a 71 25 21 32 34 3d  30 3a 71 25 21 32 38 3d  |0:q%!24=0:q%!28=|
00001dc0  30 3a 71 25 21 33 32 3d  26 37 46 46 46 46 46 46  |0:q%!32=&7FFFFFF|
00001dd0  46 3a 71 25 21 33 36 3d  26 37 46 46 46 46 46 46  |F:q%!36=&7FFFFFF|
00001de0  46 0d 09 24 19 c8 99 20  22 57 69 6d 70 5f 44 72  |F..$... "Wimp_Dr|
00001df0  61 67 42 6f 78 22 2c 2c  71 25 0d 09 2e 05 e1 0d  |agBox",,q%......|
00001e00  09 38 05 3a 0d 09 42 12  dd f2 64 72 61 67 66 69  |.8.:..B...dragfi|
00001e10  6e 69 73 68 65 64 0d 09  4c 20 c8 99 20 22 57 69  |nished..L .. "Wi|
00001e20  6d 70 5f 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |mp_GetPointerInf|
00001e30  6f 22 2c 2c 71 25 0d 09  56 31 71 25 21 32 30 3d  |o",,q%..V1q%!20=|
00001e40  71 25 21 31 32 3a 71 25  21 32 34 3d 71 25 21 31  |q%!12:q%!24=q%!1|
00001e50  36 3a 71 25 21 32 38 3d  71 25 21 30 3a 71 25 21  |6:q%!28=q%!0:q%!|
00001e60  33 32 3d 71 25 21 34 0d  09 60 1c e7 20 73 61 76  |32=q%!4..`.. sav|
00001e70  25 3d 73 61 76 65 25 20  71 25 21 33 36 3d 26 36  |%=save% q%!36=&6|
00001e80  38 30 30 0d 09 6a 1d e7  20 73 61 76 25 3d 73 61  |800..j.. sav%=sa|
00001e90  76 65 31 25 20 71 25 21  33 36 3d 26 34 30 30 30  |ve1% q%!36=&4000|
00001ea0  0d 09 74 1b e7 20 73 61  76 25 3d 73 61 76 65 32  |..t.. sav%=save2|
00001eb0  25 20 71 25 21 33 36 3d  31 33 30 0d 09 7e 1c 71  |% q%!36=130..~.q|
00001ec0  25 21 30 3d 32 35 36 3a  71 25 21 31 32 3d 30 3a  |%!0=256:q%!12=0:|
00001ed0  71 25 21 31 36 3d 31 0d  09 88 20 e7 20 73 61 76  |q%!16=1... . sav|
00001ee0  25 3d 73 61 76 65 25 20  71 25 21 34 30 3d 66 69  |%=save% q%!40=fi|
00001ef0  6c 65 74 79 70 65 25 0d  09 92 1c e7 20 73 61 76  |letype%..... sav|
00001f00  25 3d 73 61 76 65 31 25  20 71 25 21 34 30 3d 26  |%=save1% q%!40=&|
00001f10  46 46 39 0d 09 9c 1c e7  20 73 61 76 25 3d 73 61  |FF9..... sav%=sa|
00001f20  76 65 32 25 20 71 25 21  34 30 3d 26 46 45 44 0d  |ve2% q%!40=&FED.|
00001f30  09 a6 24 24 28 71 25 2b  34 34 29 3d a4 67 65 74  |..$$(q%+44)=.get|
00001f40  6c 65 61 66 6e 61 6d 65  28 a4 73 61 76 65 6e 61  |leafname(.savena|
00001f50  6d 65 29 0d 09 b0 2b c8  99 20 22 57 69 6d 70 5f  |me)...+.. "Wimp_|
00001f60  53 65 6e 64 4d 65 73 73  61 67 65 22 2c 31 37 2c  |SendMessage",17,|
00001f70  71 25 2c 71 25 21 32 30  2c 71 25 21 32 34 0d 09  |q%,q%!20,q%!24..|
00001f80  ba 05 e1 0d 09 c4 05 3a  0d 09 ce 15 dd a4 67 65  |.......:......ge|
00001f90  74 6c 65 61 66 6e 61 6d  65 28 41 24 29 0d 09 d8  |tleafname(A$)...|
00001fa0  0f c8 95 20 a7 41 24 2c  22 2e 22 29 0d 09 e2 16  |... .A$,".")....|
00001fb0  41 24 3d c1 41 24 2c a7  41 24 2c 22 2e 22 29 2b  |A$=.A$,.A$,".")+|
00001fc0  31 29 0d 09 ec 0c ce 3a  3d 41 24 2b bd 30 0d 09  |1).....:=A$+.0..|
00001fd0  f6 05 3a 0d 0a 00 0e dd  f2 64 61 74 61 73 61 76  |..:......datasav|
00001fe0  65 0d 0a 0a 23 66 75 6c  6c 6e 61 6d 65 24 3d 22  |e...#fullname$="|
00001ff0  22 3a 61 25 3d 30 3a 62  25 3d 71 25 3f 28 34 34  |":a%=0:b%=q%?(44|
00002000  2b 61 25 29 0d 0a 14 0c  c8 95 20 62 25 3c 3e 30  |+a%)...... b%<>0|
00002010  0d 0a 1e 33 66 75 6c 6c  6e 61 6d 65 24 3d 66 75  |...3fullname$=fu|
00002020  6c 6c 6e 61 6d 65 24 2b  bd 28 62 25 29 3a 61 25  |llname$+.(b%):a%|
00002030  3d 61 25 2b 31 3a 62 25  3d 71 25 3f 28 34 34 2b  |=a%+1:b%=q%?(44+|
00002040  61 25 29 0d 0a 28 05 ce  0d 0a 32 2a e7 20 73 61  |a%)..(....2*. sa|
00002050  76 25 3d 73 61 76 65 25  20 f2 73 61 76 65 6f 70  |v%=save% .saveop|
00002060  65 72 61 74 69 6f 6e 28  66 75 6c 6c 6e 61 6d 65  |eration(fullname|
00002070  24 29 0d 0a 3c 26 e7 20  73 61 76 25 3d 73 61 76  |$)..<&. sav%=sav|
00002080  65 31 25 20 f2 73 61 76  65 73 70 72 73 28 66 75  |e1% .savesprs(fu|
00002090  6c 6c 6e 61 6d 65 24 29  0d 0a 46 25 e7 20 73 61  |llname$)..F%. sa|
000020a0  76 25 3d 73 61 76 65 32  25 20 f2 73 61 76 65 70  |v%=save2% .savep|
000020b0  61 6c 28 66 75 6c 6c 6e  61 6d 65 24 29 0d 0a 50  |al(fullname$)..P|
000020c0  26 e7 20 71 25 21 33 36  3c 3e 2d 31 20 8c 20 f2  |&. q%!36<>-1 . .|
000020d0  73 61 76 65 6e 61 6d 65  28 66 75 6c 6c 6e 61 6d  |savename(fullnam|
000020e0  65 24 29 0d 0a 5a 47 71  25 21 31 32 3d 71 25 21  |e$)..ZGq%!12=q%!|
000020f0  38 3a 71 25 21 31 36 3d  33 3a 71 25 21 30 3d 32  |8:q%!16=3:q%!0=2|
00002100  35 36 3a c8 99 20 22 57  69 6d 70 5f 53 65 6e 64  |56:.. "Wimp_Send|
00002110  4d 65 73 73 61 67 65 22  2c 31 38 2c 71 25 2c 71  |Message",18,q%,q|
00002120  25 21 32 30 2c 71 25 21  32 34 0d 0a 64 1c c8 99  |%!20,q%!24..d...|
00002130  20 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  | "Wimp_CreateMen|
00002140  75 22 2c 2c 2d 31 0d 0a  6e 05 e1 0d 0a 78 05 3a  |u",,-1..n....x.:|
00002150  0d 0a 82 17 dd f2 73 61  76 65 6f 70 65 72 61 74  |......saveoperat|
00002160  69 6f 6e 28 41 24 29 0d  0a 8c 0f f2 73 61 76 69  |ion(A$).....savi|
00002170  6e 67 67 61 6d 65 0d 0a  96 34 c8 99 20 22 4f 53  |nggame...4.. "OS|
00002180  5f 46 69 6c 65 22 2c 31  30 2c 41 24 2c 66 69 6c  |_File",10,A$,fil|
00002190  65 74 79 70 65 25 2c 30  2c 66 69 6c 65 25 2c 66  |etype%,0,file%,f|
000021a0  69 6c 65 25 2b 26 36 32  46 34 0d 0a a0 05 e1 0d  |ile%+&62F4......|
000021b0  0a aa 05 3a 0d 0a b4 0c  dd f2 73 61 76 65 6f 6b  |...:......saveok|
000021c0  0d 0a be 10 41 24 3d a4  73 61 76 65 6e 61 6d 65  |....A$=.savename|
000021d0  0d 0a c8 43 e7 20 a7 41  24 2c 22 2e 22 29 3d 30  |...C. .A$,".")=0|
000021e0  20 85 20 31 2c 22 54 6f  20 73 61 76 65 2c 20 64  | . 1,"To save, d|
000021f0  72 61 67 20 74 68 65 20  69 63 6f 6e 20 74 6f 20  |rag the icon to |
00002200  61 20 64 69 72 65 63 74  6f 72 79 20 76 69 65 77  |a directory view|
00002210  65 72 22 0d 0a d2 23 e7  20 73 61 76 25 3d 73 61  |er"...#. sav%=sa|
00002220  76 65 25 20 f2 73 61 76  65 6f 70 65 72 61 74 69  |ve% .saveoperati|
00002230  6f 6e 28 41 24 29 0d 0a  dc 1f e7 20 73 61 76 25  |on(A$)..... sav%|
00002240  3d 73 61 76 65 31 25 20  f2 73 61 76 65 73 70 72  |=save1% .savespr|
00002250  73 28 41 24 29 0d 0a e6  1e e7 20 73 61 76 25 3d  |s(A$)..... sav%=|
00002260  73 61 76 65 32 25 20 f2  73 61 76 65 70 61 6c 28  |save2% .savepal(|
00002270  41 24 29 0d 0a f0 1c c8  99 20 22 57 69 6d 70 5f  |A$)...... "Wimp_|
00002280  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 2d 31 0d  |CreateMenu",,-1.|
00002290  0a fa 05 e1 0d 0b 04 05  3a 0d 0b 0e 0e dd f2 64  |........:......d|
000022a0  61 74 61 6c 6f 61 64 0d  0b 18 39 41 25 3d 71 25  |ataload...9A%=q%|
000022b0  2b 34 34 3a 41 24 3d 22  22 3a f5 3a 41 24 3d 41  |+44:A$="":.:A$=A|
000022c0  24 2b bd 3f 41 25 3a 41  25 3d 41 25 2b 31 3a fd  |$+.?A%:A%=A%+1:.|
000022d0  3f 41 25 3c 33 31 3a 41  24 3d 41 24 2b bd 31 33  |?A%<31:A$=A$+.13|
000022e0  0d 0b 22 2c e7 20 71 25  21 34 30 3d 26 46 46 39  |..",. q%!40=&FF9|
000022f0  20 73 61 76 25 3d 73 61  76 65 31 25 3a f2 6c 6f  | sav%=save1%:.lo|
00002300  61 64 73 70 72 73 28 41  24 29 3a e1 0d 0b 2c 2b  |adsprs(A$):...,+|
00002310  e7 20 71 25 21 34 30 3d  26 46 45 44 20 73 61 76  |. q%!40=&FED sav|
00002320  25 3d 73 61 76 65 32 25  3a f2 6c 6f 61 64 70 61  |%=save2%:.loadpa|
00002330  6c 28 41 24 29 3a e1 0d  0b 36 18 e7 20 71 25 21  |l(A$):...6.. q%!|
00002340  34 30 3c 3e 66 69 6c 65  74 79 70 65 25 20 e1 0d  |40<>filetype% ..|
00002350  0b 40 29 73 61 76 25 3d  73 61 76 65 25 3a c8 99  |.@)sav%=save%:..|
00002360  20 22 4f 53 5f 46 69 6c  65 22 2c 31 32 2c 41 24  | "OS_File",12,A$|
00002370  2c 66 69 6c 65 25 2c 30  0d 0b 4a 37 73 69 7a 65  |,file%,0..J7size|
00002380  24 3d 22 22 3a 73 63 61  6c 65 25 3d 32 3a f2 70  |$="":scale%=2:.p|
00002390  69 63 62 6c 6f 63 6b 28  30 29 3a 77 69 64 74 68  |icblock(0):width|
000023a0  25 3d 32 38 3a 68 65 69  67 68 74 25 3d 32 34 0d  |%=28:height%=24.|
000023b0  0b 54 2b f2 6f 70 65 6e  69 6e 66 6f 3a f2 63 68  |.T+.openinfo:.ch|
000023c0  61 6e 67 65 6c 65 76 65  6c 28 30 29 3a f2 73 61  |angelevel(0):.sa|
000023d0  76 65 6e 61 6d 65 28 41  24 29 0d 0b 5e 34 f2 73  |vename(A$)..^4.s|
000023e0  70 72 69 74 65 68 61 6e  64 6c 65 3a f2 72 65 61  |pritehandle:.rea|
000023f0  64 76 61 72 73 3a f2 72  65 73 70 72 73 3a 66 69  |dvars:.resprs:fi|
00002400  6c 65 73 74 61 74 65 24  3d 22 79 65 73 22 0d 0b  |lestate$="yes"..|
00002410  68 05 e1 0d 0b 72 05 3a  0d 0b 7c 1f dd f2 73 65  |h....r.:..|...se|
00002420  74 69 63 6f 6e 28 77 69  6e 64 6f 77 25 2c 69 63  |ticon(window%,ic|
00002430  6f 6e 25 2c 41 24 29 0d  0b 86 42 62 6c 6f 63 6b  |on%,A$)...Bblock|
00002440  25 21 30 3d 77 69 6e 64  6f 77 25 3a 62 6c 6f 63  |%!0=window%:bloc|
00002450  6b 25 21 34 3d 69 63 6f  6e 25 3a c8 99 20 22 57  |k%!4=icon%:.. "W|
00002460  69 6d 70 5f 47 65 74 49  63 6f 6e 53 74 61 74 65  |imp_GetIconState|
00002470  22 2c 2c 62 6c 6f 63 6b  25 0d 0b 90 49 24 28 62  |",,block%...I$(b|
00002480  6c 6f 63 6b 25 21 32 38  29 3d 41 24 3a 62 6c 6f  |lock%!28)=A$:blo|
00002490  63 6b 25 21 38 3d 30 3a  62 6c 6f 63 6b 25 21 31  |ck%!8=0:block%!1|
000024a0  32 3d 30 3a c8 99 20 22  57 69 6d 70 5f 53 65 74  |2=0:.. "Wimp_Set|
000024b0  49 63 6f 6e 53 74 61 74  65 22 2c 2c 62 6c 6f 63  |IconState",,bloc|
000024c0  6b 25 0d 0b 9a 05 e1 0d  0b a4 05 3a 0d 0b ae 1c  |k%.........:....|
000024d0  dd a4 67 65 74 69 63 6f  6e 28 77 69 6e 64 6f 77  |..geticon(window|
000024e0  25 2c 69 63 6f 6e 25 29  0d 0b b8 42 62 6c 6f 63  |%,icon%)...Bbloc|
000024f0  6b 25 21 30 3d 77 69 6e  64 6f 77 25 3a 62 6c 6f  |k%!0=window%:blo|
00002500  63 6b 25 21 34 3d 69 63  6f 6e 25 3a c8 99 20 22  |ck%!4=icon%:.. "|
00002510  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
00002520  65 22 2c 2c 62 6c 6f 63  6b 25 0d 0b c2 11 3d 24  |e",,block%....=$|
00002530  28 62 6c 6f 63 6b 25 21  32 38 29 0d 0b cc 05 3a  |(block%!28)....:|
00002540  0d 0b d6 10 dd f2 65 64  69 74 65 78 74 65 6e 74  |......editextent|
00002550  0d 0b e0 48 71 25 21 30  3d 30 3a 71 25 21 34 3d  |...Hq%!0=0:q%!4=|
00002560  2d 28 28 31 32 38 2f 73  63 61 6c 65 25 29 2a 68  |-((128/scale%)*h|
00002570  65 69 67 68 74 25 29 3a  71 25 21 38 3d 28 31 32  |eight%):q%!8=(12|
00002580  38 2f 73 63 61 6c 65 25  29 2a 77 69 64 74 68 25  |8/scale%)*width%|
00002590  3a 71 25 21 31 32 3d 30  0d 0b ea 24 c8 99 20 22  |:q%!12=0...$.. "|
000025a0  57 69 6d 70 5f 53 65 74  45 78 74 65 6e 74 22 2c  |Wimp_SetExtent",|
000025b0  73 63 65 64 69 74 25 2c  71 25 3a e1 0d 0b f4 05  |scedit%,q%:.....|
000025c0  3a 0d 0b fe 0b dd f2 63  6c 65 61 72 0d 0c 08 4d  |:......clear...M|
000025d0  21 62 6c 6f 63 6b 25 3d  32 35 35 3a 24 28 62 6c  |!block%=255:$(bl|
000025e0  6f 63 6b 25 2b 34 29 3d  22 41 72 65 20 79 6f 75  |ock%+4)="Are you|
000025f0  20 73 68 75 72 65 20 79  6f 75 20 77 61 6e 74 20  | shure you want |
00002600  74 6f 20 63 6c 65 61 72  20 74 68 69 73 20 6c 65  |to clear this le|
00002610  76 65 6c 20 3f 22 2b bd  30 0d 0c 12 4a c8 99 20  |vel ?"+.0...J.. |
00002620  22 57 69 6d 70 5f 52 65  70 6f 72 74 45 72 72 6f  |"Wimp_ReportErro|
00002630  72 22 2c 62 6c 6f 63 6b  25 2c 31 39 2c 22 4d 65  |r",block%,19,"Me|
00002640  73 73 61 67 65 20 66 72  6f 6d 20 74 68 65 20 63  |ssage from the c|
00002650  61 76 65 20 65 64 69 74  6f 72 22 20 b8 20 2c 6f  |ave editor" . ,o|
00002660  75 74 25 0d 0c 1c 0f e7  20 6f 75 74 25 3c 3e 31  |ut%..... out%<>1|
00002670  20 e1 0d 0c 26 28 e3 20  58 25 3d 30 20 b8 20 77  | ...&(. X%=0 . w|
00002680  69 64 74 68 25 2d 31 3a  e3 20 59 25 3d 30 20 b8  |idth%-1:. Y%=0 .|
00002690  20 68 65 69 67 68 74 25  2d 31 0d 0c 30 3e 61 64  | height%-1..0>ad|
000026a0  64 72 25 3d 28 58 25 2b  37 2b 28 28 77 69 64 74  |dr%=(X%+7+((widt|
000026b0  68 25 2b 31 32 29 2a 28  59 25 2b 32 29 29 29 2b  |h%+12)*(Y%+2)))+|
000026c0  62 6c 6f 63 6b 61 64 64  72 25 3a 3f 61 64 64 72  |blockaddr%:?addr|
000026d0  25 3d 33 32 3a ed 3a ed  0d 0c 3a 0b f2 67 72 69  |%=32:.:...:..gri|
000026e0  64 3a e1 0d 0c 44 05 3a  0d 0c 4e 0f dd f2 61 6c  |d:...D.:..N...al|
000026f0  74 65 72 73 69 7a 65 0d  0c 58 38 e7 20 73 69 7a  |tersize..X8. siz|
00002700  65 24 3d bd 31 32 38 20  73 69 7a 65 24 3d 22 22  |e$=.128 size$=""|
00002710  3a 73 63 61 6c 65 25 3d  32 20 8b 20 73 69 7a 65  |:scale%=2 . size|
00002720  24 3d bd 31 32 38 3a 73  63 61 6c 65 25 3d 31 0d  |$=.128:scale%=1.|
00002730  0c 62 40 f2 65 64 69 74  65 78 74 65 6e 74 3a 62  |.b@.editextent:b|
00002740  6c 6f 63 6b 25 21 30 3d  73 63 65 64 69 74 25 3a  |lock%!0=scedit%:|
00002750  c8 99 20 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |.. "Wimp_GetWind|
00002760  6f 77 49 6e 66 6f 22 2c  2c 62 6c 6f 63 6b 25 0d  |owInfo",,block%.|
00002770  0c 6c 28 c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |.l(.. "Wimp_Open|
00002780  57 69 6e 64 6f 77 22 2c  2c 62 6c 6f 63 6b 25 3a  |Window",,block%:|
00002790  f2 67 72 69 64 3a e1 0d  0c 76 05 3a 0d 0c 80 12  |.grid:...v.:....|
000027a0  dd f2 73 70 72 69 74 65  68 61 6e 64 6c 65 0d 0c  |..spritehandle..|
000027b0  8a 15 c8 99 20 22 48 6f  75 72 67 6c 61 73 73 5f  |.... "Hourglass_|
000027c0  4f 6e 22 0d 0c 94 30 e3  20 6e 75 6d 62 65 72 25  |On"...0. number%|
000027d0  3d 30 20 b8 20 32 37 3a  f2 66 69 6c 6c 69 6e 73  |=0 . 27:.fillins|
000027e0  70 72 69 74 65 28 c3 28  6e 75 6d 62 65 72 25 29  |prite(.(number%)|
000027f0  29 3a ed 0d 0c 9e 16 c8  99 20 22 48 6f 75 72 67  |):....... "Hourg|
00002800  6c 61 73 73 5f 4f 66 66  22 0d 0c a8 05 e1 0d 0c  |lass_Off".......|
00002810  b2 05 3a 0d 0c bc 19 dd  f2 66 69 6c 6c 69 6e 73  |..:......fillins|
00002820  70 72 69 74 65 28 6e 61  6d 65 24 29 0d 0c c6 27  |prite(name$)...'|
00002830  62 69 74 6d 61 70 61 64  64 72 65 73 73 25 3d 28  |bitmapaddress%=(|
00002840  bb 28 6e 61 6d 65 24 29  2a 35 31 32 29 2b 66 69  |.(name$)*512)+fi|
00002850  6c 65 25 0d 0c d0 2c 73  70 72 69 74 65 61 64 64  |le%...,spriteadd|
00002860  72 65 73 73 25 3d 73 70  72 69 74 65 61 72 65 61  |ress%=spritearea|
00002870  25 2b 73 70 72 69 74 65  61 72 65 61 25 21 38 0d  |%+spritearea%!8.|
00002880  0c da 20 6e 75 6d 25 3d  bb 28 6e 61 6d 65 24 29  |.. num%=.(name$)|
00002890  3a e7 20 6e 75 6d 25 3d  30 20 e5 8d 64 6e 4c 0d  |:. num%=0 ..dnL.|
000028a0  0c e4 36 e3 20 58 25 3d  30 20 b8 20 6e 75 6d 25  |..6. X%=0 . num%|
000028b0  2d 31 3a 73 70 72 69 74  65 61 64 64 72 65 73 73  |-1:spriteaddress|
000028c0  25 2b 3d 73 70 72 69 74  65 61 64 64 72 65 73 73  |%+=spriteaddress|
000028d0  25 21 30 3a ed 0d 0c ee  1f 61 64 64 72 65 73 73  |%!0:.....address|
000028e0  31 25 3d 73 70 72 69 74  65 61 64 64 72 65 73 73  |1%=spriteaddress|
000028f0  25 2b 34 34 0d 0c f8 37  e3 20 61 64 64 72 65 73  |%+44...7. addres|
00002900  73 32 25 3d 62 69 74 6d  61 70 61 64 64 72 65 73  |s2%=bitmapaddres|
00002910  73 25 20 b8 20 62 69 74  6d 61 70 61 64 64 72 65  |s% . bitmapaddre|
00002920  73 73 25 2b 35 30 38 20  88 20 34 0d 0d 02 2a 21  |ss%+508 . 4...*!|
00002930  61 64 64 72 65 73 73 31  25 3d 21 61 64 64 72 65  |address1%=!addre|
00002940  73 73 32 25 3a 61 64 64  72 65 73 73 31 25 2b 3d  |ss2%:address1%+=|
00002950  34 3a ed 3a e1 0d 0d 0c  05 3a 0d 0d 16 11 dd f2  |4:.:.....:......|
00002960  73 70 72 69 74 65 73 74  61 72 74 0d 0d 20 3c de  |spritestart.. <.|
00002970  20 73 70 72 69 74 65 61  72 65 61 25 20 26 34 35  | spritearea% &45|
00002980  30 30 3a 73 70 72 69 74  65 61 72 65 61 25 21 30  |00:spritearea%!0|
00002990  3d 26 34 35 30 30 3a 73  70 72 69 74 65 61 72 65  |=&4500:spriteare|
000029a0  61 25 21 38 3d 31 36 0d  0d 2a 36 de 20 74 65 6d  |a%!8=16..*6. tem|
000029b0  70 61 72 65 61 25 20 26  36 30 30 30 3a 74 65 6d  |parea% &6000:tem|
000029c0  70 61 72 65 61 25 21 30  3d 26 36 30 30 30 3a 74  |parea%!0=&6000:t|
000029d0  65 6d 70 61 72 65 61 25  21 38 3d 31 36 0d 0d 34  |emparea%!8=16..4|
000029e0  22 c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |".. "OS_SpriteOp|
000029f0  22 2c 32 36 35 2c 74 65  6d 70 61 72 65 61 25 0d  |",265,temparea%.|
00002a00  0d 3e 35 c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |.>5.. "OS_Sprite|
00002a10  4f 70 22 2c 32 36 35 2c  73 70 72 69 74 65 61 72  |Op",265,spritear|
00002a20  65 61 25 3a e3 20 6e 75  6d 62 65 72 25 3d 30 20  |ea%:. number%=0 |
00002a30  b8 20 32 37 0d 0d 48 3b  c8 99 20 22 4f 53 5f 53  |. 27..H;.. "OS_S|
00002a40  70 72 69 74 65 4f 70 22  2c 32 37 31 2c 73 70 72  |priteOp",271,spr|
00002a50  69 74 65 61 72 65 61 25  2c c3 28 6e 75 6d 62 65  |itearea%,.(numbe|
00002a60  72 25 29 2c 30 2c 33 32  2c 33 32 2c 39 3a ed 0d  |r%),0,32,32,9:..|
00002a70  0d 52 05 e1 0d 0d 5c 05  3a 0d 0d 66 0f dd f2 74  |.R....\.:..f...t|
00002a80  65 6d 70 6c 61 74 65 73  0d 0d 70 43 61 64 64 72  |emplates..pCaddr|
00002a90  25 3d 77 69 6e 64 6f 77  73 25 3a c8 99 20 22 57  |%=windows%:.. "W|
00002aa0  69 6d 70 5f 4f 70 65 6e  54 65 6d 70 6c 61 74 65  |imp_OpenTemplate|
00002ab0  22 2c 2c 22 3c 45 64 69  74 6f 72 24 44 69 72 3e  |",,"<Editor$Dir>|
00002ac0  2e 54 65 6d 70 6c 61 74  65 73 22 0d 0d 7a 4a c8  |.Templates"..zJ.|
00002ad0  99 20 22 57 69 6d 70 5f  4c 6f 61 64 54 65 6d 70  |. "Wimp_LoadTemp|
00002ae0  6c 61 74 65 22 2c 2c 62  6c 6f 63 6b 25 2c 61 64  |late",,block%,ad|
00002af0  64 72 25 2c 61 64 64 72  25 2b 26 31 32 30 30 2c  |dr%,addr%+&1200,|
00002b00  2d 31 2c 22 62 6c 6f 63  6b 73 22 20 b8 20 2c 2c  |-1,"blocks" . ,,|
00002b10  61 64 64 72 25 0d 0d 84  42 62 6c 6f 63 6b 25 21  |addr%...Bblock%!|
00002b20  36 34 3d 73 70 72 69 74  65 61 72 65 61 25 3a c8  |64=spritearea%:.|
00002b30  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |. "Wimp_CreateWi|
00002b40  6e 64 6f 77 22 2c 2c 62  6c 6f 63 6b 25 20 b8 20  |ndow",,block% . |
00002b50  62 6c 6f 63 6b 73 25 0d  0d 8e 47 c8 99 20 22 57  |blocks%...G.. "W|
00002b60  69 6d 70 5f 4c 6f 61 64  54 65 6d 70 6c 61 74 65  |imp_LoadTemplate|
00002b70  22 2c 2c 62 6c 6f 63 6b  25 2c 61 64 64 72 25 2c  |",,block%,addr%,|
00002b80  61 64 64 72 25 2b 26 33  30 30 2c 2d 31 2c 22 69  |addr%+&300,-1,"i|
00002b90  6e 66 6f 22 20 b8 20 2c  2c 61 64 64 72 25 0d 0d  |nfo" . ,,addr%..|
00002ba0  98 2a c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |.*.. "Wimp_Creat|
00002bb0  65 57 69 6e 64 6f 77 22  2c 2c 62 6c 6f 63 6b 25  |eWindow",,block%|
00002bc0  20 b8 20 69 6e 66 6f 25  0d 0d a2 49 c8 99 20 22  | . info%...I.. "|
00002bd0  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
00002be0  65 22 2c 2c 62 6c 6f 63  6b 25 2c 61 64 64 72 25  |e",,block%,addr%|
00002bf0  2c 61 64 64 72 25 2b 26  31 30 30 2c 2d 31 2c 22  |,addr%+&100,-1,"|
00002c00  73 63 65 64 69 74 22 20  b8 20 2c 2c 61 64 64 72  |scedit" . ,,addr|
00002c10  25 0d 0d ac 2c c8 99 20  22 57 69 6d 70 5f 43 72  |%...,.. "Wimp_Cr|
00002c20  65 61 74 65 57 69 6e 64  6f 77 22 2c 2c 62 6c 6f  |eateWindow",,blo|
00002c30  63 6b 25 20 b8 20 73 63  65 64 69 74 25 0d 0d b6  |ck% . scedit%...|
00002c40  48 c8 99 20 22 57 69 6d  70 5f 4c 6f 61 64 54 65  |H.. "Wimp_LoadTe|
00002c50  6d 70 6c 61 74 65 22 2c  2c 62 6c 6f 63 6b 25 2c  |mplate",,block%,|
00002c60  61 64 64 72 25 2c 61 64  64 72 25 2b 26 31 32 30  |addr%,addr%+&120|
00002c70  30 2c 2d 31 2c 22 67 61  6d 65 22 20 b8 20 2c 2c  |0,-1,"game" . ,,|
00002c80  61 64 64 72 25 0d 0d c0  2a c8 99 20 22 57 69 6d  |addr%...*.. "Wim|
00002c90  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
00002ca0  2c 62 6c 6f 63 6b 25 20  b8 20 67 61 6d 65 25 0d  |,block% . game%.|
00002cb0  0d ca 47 c8 99 20 22 57  69 6d 70 5f 4c 6f 61 64  |..G.. "Wimp_Load|
00002cc0  54 65 6d 70 6c 61 74 65  22 2c 2c 62 6c 6f 63 6b  |Template",,block|
00002cd0  25 2c 61 64 64 72 25 2c  61 64 64 72 25 2b 26 33  |%,addr%,addr%+&3|
00002ce0  30 30 2c 2d 31 2c 22 73  61 76 65 22 20 b8 20 2c  |00,-1,"save" . ,|
00002cf0  2c 61 64 64 72 25 0d 0d  d4 2a c8 99 20 22 57 69  |,addr%...*.. "Wi|
00002d00  6d 70 5f 43 72 65 61 74  65 57 69 6e 64 6f 77 22  |mp_CreateWindow"|
00002d10  2c 2c 62 6c 6f 63 6b 25  20 b8 20 73 61 76 65 25  |,,block% . save%|
00002d20  0d 0d de 48 c8 99 20 22  57 69 6d 70 5f 4c 6f 61  |...H.. "Wimp_Loa|
00002d30  64 54 65 6d 70 6c 61 74  65 22 2c 2c 62 6c 6f 63  |dTemplate",,bloc|
00002d40  6b 25 2c 61 64 64 72 25  2c 61 64 64 72 25 2b 26  |k%,addr%,addr%+&|
00002d50  33 30 30 2c 2d 31 2c 22  73 61 76 65 31 22 20 b8  |300,-1,"save1" .|
00002d60  20 2c 2c 61 64 64 72 25  0d 0d e8 2b c8 99 20 22  | ,,addr%...+.. "|
00002d70  57 69 6d 70 5f 43 72 65  61 74 65 57 69 6e 64 6f  |Wimp_CreateWindo|
00002d80  77 22 2c 2c 62 6c 6f 63  6b 25 20 b8 20 73 61 76  |w",,block% . sav|
00002d90  65 31 25 0d 0d f2 48 c8  99 20 22 57 69 6d 70 5f  |e1%...H.. "Wimp_|
00002da0  4c 6f 61 64 54 65 6d 70  6c 61 74 65 22 2c 2c 62  |LoadTemplate",,b|
00002db0  6c 6f 63 6b 25 2c 61 64  64 72 25 2c 61 64 64 72  |lock%,addr%,addr|
00002dc0  25 2b 26 33 30 30 2c 2d  31 2c 22 73 61 76 65 32  |%+&300,-1,"save2|
00002dd0  22 20 b8 20 2c 2c 61 64  64 72 25 0d 0d fc 2b c8  |" . ,,addr%...+.|
00002de0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |. "Wimp_CreateWi|
00002df0  6e 64 6f 77 22 2c 2c 62  6c 6f 63 6b 25 20 b8 20  |ndow",,block% . |
00002e00  73 61 76 65 32 25 0d 0e  06 49 c8 99 20 22 57 69  |save2%...I.. "Wi|
00002e10  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
00002e20  2c 2c 62 6c 6f 63 6b 25  2c 61 64 64 72 25 2c 61  |,,block%,addr%,a|
00002e30  64 64 72 25 2b 26 33 30  30 2c 2d 31 2c 22 6c 65  |ddr%+&300,-1,"le|
00002e40  76 65 6c 73 22 20 b8 20  2c 2c 61 64 64 72 25 0d  |vels" . ,,addr%.|
00002e50  0e 10 2b c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |..+.. "Wimp_Crea|
00002e60  74 65 57 69 6e 64 6f 77  22 2c 2c 62 6c 6f 63 6b  |teWindow",,block|
00002e70  25 20 b8 20 6c 65 76 65  6c 25 0d 0e 1a 48 c8 99  |% . level%...H..|
00002e80  20 22 57 69 6d 70 5f 4c  6f 61 64 54 65 6d 70 6c  | "Wimp_LoadTempl|
00002e90  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 2c 61 64 64  |ate",,block%,add|
00002ea0  72 25 2c 61 64 64 72 25  2b 26 33 30 30 2c 2d 31  |r%,addr%+&300,-1|
00002eb0  2c 22 73 74 61 72 74 22  20 b8 20 2c 2c 61 64 64  |,"start" . ,,add|
00002ec0  72 25 0d 0e 24 2b c8 99  20 22 57 69 6d 70 5f 43  |r%..$+.. "Wimp_C|
00002ed0  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 62 6c  |reateWindow",,bl|
00002ee0  6f 63 6b 25 20 b8 20 73  74 61 72 74 25 0d 0e 2e  |ock% . start%...|
00002ef0  1d c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 54  |... "Wimp_CloseT|
00002f00  65 6d 70 6c 61 74 65 22  3a e1 0d 0e 38 05 3a 0d  |emplate":...8.:.|
00002f10  0e 42 12 dd f2 73 61 76  65 73 70 72 73 28 41 24  |.B...savesprs(A$|
00002f20  29 0d 0e 4c 29 c8 99 20  22 4f 53 5f 53 70 72 69  |)..L).. "OS_Spri|
00002f30  74 65 4f 70 22 2c 32 36  38 2c 73 70 72 69 74 65  |teOp",268,sprite|
00002f40  61 72 65 61 25 2c 41 24  3a e1 0d 0e 56 05 3a 0d  |area%,A$:...V.:.|
00002f50  0e 60 12 dd f2 6c 6f 61  64 73 70 72 73 28 41 24  |.`...loadsprs(A$|
00002f60  29 0d 0e 6a 37 c8 99 20  22 4f 53 5f 53 70 72 69  |)..j7.. "OS_Spri|
00002f70  74 65 4f 70 22 2c 32 36  36 2c 74 65 6d 70 61 72  |teOp",266,tempar|
00002f80  65 61 25 2c 41 24 3a c8  99 20 22 48 6f 75 72 67  |ea%,A$:.. "Hourg|
00002f90  6c 61 73 73 5f 4f 6e 22  0d 0e 74 36 c8 99 20 22  |lass_On"..t6.. "|
00002fa0  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 32 36 34  |OS_SpriteOp",264|
00002fb0  2c 74 65 6d 70 61 72 65  61 25 20 b8 20 2c 2c 2c  |,temparea% . ,,,|
00002fc0  74 6f 74 61 6c 25 2c 6f  66 66 73 65 74 25 0d 0e  |total%,offset%..|
00002fd0  7e 27 73 70 72 61 64 64  72 25 3d 74 65 6d 70 61  |~'spraddr%=tempa|
00002fe0  72 65 61 25 2b 6f 66 66  73 65 74 25 3a 6e 62 72  |rea%+offset%:nbr|
00002ff0  25 3d 30 3a f5 0d 0e 88  14 f2 6c 64 74 69 6c 65  |%=0:......ldtile|
00003000  28 c3 28 6e 62 72 25 29  29 0d 0e 92 28 6e 62 72  |(.(nbr%))...(nbr|
00003010  25 2b 3d 31 3a fd 20 6e  62 72 25 3d 32 38 3a c8  |%+=1:. nbr%=28:.|
00003020  99 20 22 48 6f 75 72 67  6c 61 73 73 5f 4f 66 66  |. "Hourglass_Off|
00003030  22 0d 0e 9c 21 f2 73 70  72 69 74 65 68 61 6e 64  |"...!.spritehand|
00003040  6c 65 3a f2 73 61 76 65  6e 61 6d 65 28 41 24 29  |le:.savename(A$)|
00003050  3a e1 0d 0e a6 05 3a 0d  0e b0 13 dd f2 6c 64 74  |:.....:......ldt|
00003060  69 6c 65 28 6e 61 6d 65  24 29 0d 0e ba 27 62 69  |ile(name$)...'bi|
00003070  74 6d 61 70 61 64 64 72  65 73 73 25 3d 28 bb 28  |tmapaddress%=(.(|
00003080  6e 61 6d 65 24 29 2a 35  31 32 29 2b 66 69 6c 65  |name$)*512)+file|
00003090  25 0d 0e c4 4b c8 99 20  22 4f 53 5f 53 70 72 69  |%...K.. "OS_Spri|
000030a0  74 65 4f 70 22 2c 32 36  34 2c 74 65 6d 70 61 72  |teOp",264,tempar|
000030b0  65 61 25 20 b8 20 2c 2c  2c 2c 6f 66 66 73 65 74  |ea% . ,,,,offset|
000030c0  25 3a 73 70 72 61 64 64  72 25 3d 74 65 6d 70 61  |%:spraddr%=tempa|
000030d0  72 65 61 25 2b 6f 66 66  73 65 74 25 0d 0e ce 1e  |rea%+offset%....|
000030e0  6e 75 6d 62 65 72 25 3d  2d 31 3a e3 20 78 25 3d  |number%=-1:. x%=|
000030f0  31 20 b8 20 74 6f 74 61  6c 25 0d 0e d8 2f c8 99  |1 . total%.../..|
00003100  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 32  | "OS_SpriteOp",2|
00003110  36 39 2c 74 65 6d 70 61  72 65 61 25 2c 70 6f 69  |69,temparea%,poi|
00003120  6e 74 25 2c 32 30 2c 78  25 0d 0e e2 30 42 24 3d  |nt%,20,x%...0B$=|
00003130  22 22 3a 41 25 3d 70 6f  69 6e 74 25 3a f5 3a 42  |"":A%=point%:.:B|
00003140  24 3d 42 24 2b bd 3f 41  25 3a 41 25 3d 41 25 2b  |$=B$+.?A%:A%=A%+|
00003150  31 3a fd 3f 41 25 3c 33  31 0d 0e ec 1b e7 20 42  |1:.?A%<31..... B|
00003160  24 3d 6e 61 6d 65 24 20  6e 75 6d 62 65 72 25 3d  |$=name$ number%=|
00003170  78 25 2d 31 0d 0e f6 14  ed 3a e7 20 6e 75 6d 62  |x%-1.....:. numb|
00003180  65 72 25 3d 2d 31 20 e1  0d 0f 00 24 e7 20 a4 76  |er%=-1 ....$. .v|
00003190  61 6c 69 64 73 70 72 28  74 65 6d 70 61 72 65 61  |alidspr(temparea|
000031a0  25 2c 6e 61 6d 65 24 29  3d a3 20 e1 0d 0f 0a 15  |%,name$)=. .....|
000031b0  e7 20 6e 75 6d 62 65 72  25 3d 30 20 e5 8d 54 5e  |. number%=0 ..T^|
000031c0  4f 0d 0f 14 2b e3 20 78  25 3d 31 20 b8 20 6e 75  |O...+. x%=1 . nu|
000031d0  6d 62 65 72 25 3a 73 70  72 61 64 64 72 25 2b 3d  |mber%:spraddr%+=|
000031e0  73 70 72 61 64 64 72 25  21 30 3a ed 0d 0f 1e 19  |spraddr%!0:.....|
000031f0  61 64 64 72 65 73 73 31  25 3d 73 70 72 61 64 64  |address1%=spradd|
00003200  72 25 2b 34 34 0d 0f 28  37 e3 20 61 64 64 72 65  |r%+44..(7. addre|
00003210  73 73 32 25 3d 62 69 74  6d 61 70 61 64 64 72 65  |ss2%=bitmapaddre|
00003220  73 73 25 20 b8 20 62 69  74 6d 61 70 61 64 64 72  |ss% . bitmapaddr|
00003230  65 73 73 25 2b 35 30 38  20 88 20 34 0d 0f 32 28  |ess%+508 . 4..2(|
00003240  21 61 64 64 72 65 73 73  32 25 3d 21 61 64 64 72  |!address2%=!addr|
00003250  65 73 73 31 25 3a 61 64  64 72 65 73 73 31 25 2b  |ess1%:address1%+|
00003260  3d 34 3a ed 0d 0f 3c 05  e1 0d 0f 46 05 3a 0d 0f  |=4:...<....F.:..|
00003270  50 1b dd a4 76 61 6c 69  64 73 70 72 28 61 64 64  |P...validspr(add|
00003280  72 25 2c 6e 61 6d 65 24  29 0d 0f 5a 46 76 61 6c  |r%,name$)..ZFval|
00003290  69 64 25 3d b9 3a c8 99  20 22 4f 53 5f 53 70 72  |id%=.:.. "OS_Spr|
000032a0  69 74 65 4f 70 22 2c 32  39 36 2c 61 64 64 72 25  |iteOp",296,addr%|
000032b0  2c 6e 61 6d 65 24 20 b8  20 2c 2c 2c 77 69 64 25  |,name$ . ,,,wid%|
000032c0  2c 68 65 69 25 2c 6d 73  6b 25 2c 6d 6f 64 25 0d  |,hei%,msk%,mod%.|
000032d0  0f 64 22 e7 20 77 69 64  25 3c 3e 33 32 20 84 20  |.d". wid%<>32 . |
000032e0  68 65 69 25 3c 3e 33 32  20 76 61 6c 69 64 25 3d  |hei%<>32 valid%=|
000032f0  a3 0d 0f 6e 36 e7 20 6d  6f 64 25 3c 3e 31 32 20  |...n6. mod%<>12 |
00003300  80 20 6d 6f 64 25 3c 3e  39 20 80 20 6d 6f 64 25  |. mod%<>9 . mod%|
00003310  3c 3e 31 36 20 80 20 6d  6f 64 25 3c 3e 32 20 76  |<>16 . mod%<>2 v|
00003320  61 6c 69 64 25 3d a3 0d  0f 78 0b 3d 76 61 6c 69  |alid%=...x.=vali|
00003330  64 25 0d 0f 82 05 3a 0d  0f 8c 0c dd f2 72 65 73  |d%....:......res|
00003340  70 72 73 0d 0f 96 30 c8  99 20 22 57 69 6d 70 5f  |prs...0.. "Wimp_|
00003350  46 6f 72 63 65 52 65 64  72 61 77 22 2c 62 6c 6f  |ForceRedraw",blo|
00003360  63 6b 73 25 2c 30 2c 2d  36 34 30 2c 31 39 32 2c  |cks%,0,-640,192,|
00003370  30 3a e1 0d 0f a0 05 3a  0d 0f aa 0e dd f2 72 65  |0:.....:......re|
00003380  61 64 76 61 72 73 0d 0f  b4 44 6e 61 6d 65 24 3d  |advars...Dname$=|
00003390  24 28 66 69 6c 65 25 2b  26 36 32 42 32 29 3a 64  |$(file%+&62B2):d|
000033a0  65 73 69 67 6e 24 3d 24  28 66 69 6c 65 25 2b 26  |esign$=$(file%+&|
000033b0  36 32 43 36 29 3a 74 69  6d 65 24 3d 24 28 66 69  |62C6):time$=$(fi|
000033c0  6c 65 25 2b 26 36 32 44  41 29 0d 0f be 53 f2 73  |le%+&62DA)...S.s|
000033d0  65 74 69 63 6f 6e 28 67  61 6d 65 25 2c 35 2c 6e  |eticon(game%,5,n|
000033e0  61 6d 65 24 29 3a f2 73  65 74 69 63 6f 6e 28 67  |ame$):.seticon(g|
000033f0  61 6d 65 25 2c 36 2c 64  65 73 69 67 6e 24 29 3a  |ame%,6,design$):|
00003400  f2 73 65 74 69 63 6f 6e  28 67 61 6d 65 25 2c 31  |.seticon(game%,1|
00003410  31 2c c0 74 69 6d 65 24  2c 31 35 29 29 0d 0f c8  |1,.time$,15))...|
00003420  21 69 63 6f 6e 25 3d 30  3a f2 65 64 69 74 73 74  |!icon%=0:.editst|
00003430  61 72 74 3a f2 70 61 73  73 77 6f 72 64 73 0d 0f  |art:.passwords..|
00003440  d2 05 e1 0d 0f dc 05 3a  0d 0f e6 0f dd f2 65 64  |.......:......ed|
00003450  69 74 73 74 61 72 74 0d  0f f0 45 63 6f 6f 72 64  |itstart...Ecoord|
00003460  73 25 3d 62 6c 6f 63 6b  61 64 64 72 25 2d 31 35  |s%=blockaddr%-15|
00003470  3a 78 73 74 61 72 74 25  3d 28 63 6f 6f 72 64 73  |:xstart%=(coords|
00003480  25 21 30 29 2d 32 3a 79  73 74 61 72 74 25 3d 28  |%!0)-2:ystart%=(|
00003490  63 6f 6f 72 64 73 25 21  34 29 2b 32 0d 0f fa 24  |coords%!4)+2...$|
000034a0  e7 20 69 63 6f 6e 25 3d  32 20 80 20 78 73 74 61  |. icon%=2 . xsta|
000034b0  72 74 25 3e 31 20 78 73  74 61 72 74 25 2d 3d 31  |rt%>1 xstart%-=1|
000034c0  0d 10 04 29 e7 20 69 63  6f 6e 25 3d 33 20 80 20  |...). icon%=3 . |
000034d0  78 73 74 61 72 74 25 3c  77 69 64 74 68 25 20 78  |xstart%<width% x|
000034e0  73 74 61 72 74 25 2b 3d  31 0d 10 0e 24 e7 20 69  |start%+=1...$. i|
000034f0  63 6f 6e 25 3d 34 20 80  20 79 73 74 61 72 74 25  |con%=4 . ystart%|
00003500  3e 31 20 79 73 74 61 72  74 25 2d 3d 31 0d 10 18  |>1 ystart%-=1...|
00003510  2a e7 20 69 63 6f 6e 25  3d 35 20 80 20 79 73 74  |*. icon%=5 . yst|
00003520  61 72 74 25 3c 68 65 69  67 68 74 25 20 79 73 74  |art%<height% yst|
00003530  61 72 74 25 2b 3d 31 0d  10 22 3f f2 73 65 74 69  |art%+=1.."?.seti|
00003540  63 6f 6e 28 73 74 61 72  74 25 2c 31 2c c3 28 78  |con(start%,1,.(x|
00003550  73 74 61 72 74 25 29 29  3a f2 73 65 74 69 63 6f  |start%)):.setico|
00003560  6e 28 73 74 61 72 74 25  2c 36 2c c3 28 79 73 74  |n(start%,6,.(yst|
00003570  61 72 74 25 29 29 0d 10  2c 2d 63 6f 6f 72 64 73  |art%))..,-coords|
00003580  25 21 30 3d 78 73 74 61  72 74 25 2b 32 3a 63 6f  |%!0=xstart%+2:co|
00003590  6f 72 64 73 25 21 34 3d  79 73 74 61 72 74 25 2d  |ords%!4=ystart%-|
000035a0  32 3a e1 0d 10 36 05 3a  0d 10 40 0f dd f2 70 61  |2:...6.:..@...pa|
000035b0  73 73 77 6f 72 64 73 0d  10 4a 49 e3 20 6c 76 6c  |sswords..JI. lvl|
000035c0  25 3d 30 20 b8 20 34 3a  61 64 64 72 25 3d 28 66  |%=0 . 4:addr%=(f|
000035d0  69 6c 65 25 2b 26 34 43  30 46 2b 28 6c 76 6c 25  |ile%+&4C0F+(lvl%|
000035e0  2a 31 31 33 36 29 29 2d  38 3a 70 61 73 73 24 28  |*1136))-8:pass$(|
000035f0  6c 76 6c 25 29 3d 22 6e  22 2b 24 61 64 64 72 25  |lvl%)="n"+$addr%|
00003600  0d 10 54 4f 71 25 21 30  3d 6c 65 76 65 6c 25 3a  |..TOq%!0=level%:|
00003610  71 25 21 34 3d 6c 76 6c  25 3a 71 25 21 38 3d 26  |q%!4=lvl%:q%!8=&|
00003620  34 30 30 30 30 30 3a 71  25 21 31 32 3d 26 34 30  |400000:q%!12=&40|
00003630  30 30 30 30 3a c8 99 20  22 57 69 6d 70 5f 53 65  |0000:.. "Wimp_Se|
00003640  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 71 25 0d  |tIconState",,q%.|
00003650  10 5e 4d 71 25 21 30 3d  6c 65 76 65 6c 25 3a 71  |.^Mq%!0=level%:q|
00003660  25 21 34 3d 6c 76 6c 25  2b 35 3a 71 25 21 38 3d  |%!4=lvl%+5:q%!8=|
00003670  30 3a 71 25 21 31 32 3d  26 46 30 30 30 30 30 30  |0:q%!12=&F000000|
00003680  30 3a c8 99 20 22 57 69  6d 70 5f 53 65 74 49 63  |0:.. "Wimp_SetIc|
00003690  6f 6e 53 74 61 74 65 22  2c 2c 71 25 0d 10 68 2f  |onState",,q%..h/|
000036a0  f2 73 65 74 69 63 6f 6e  28 6c 65 76 65 6c 25 2c  |.seticon(level%,|
000036b0  6c 76 6c 25 2b 35 2c 22  22 29 3a ed 3a f2 6b 6e  |lvl%+5,""):.:.kn|
000036c0  6f 77 70 61 73 73 28 30  29 3a e1 0d 10 72 05 3a  |owpass(0):...r.:|
000036d0  0d 10 7c 14 dd f2 6b 6e  6f 77 70 61 73 73 28 6c  |..|...knowpass(l|
000036e0  76 6c 25 29 0d 10 86 55  71 25 21 30 3d 6c 65 76  |vl%)...Uq%!0=lev|
000036f0  65 6c 25 3a 71 25 21 34  3d 6c 76 6c 25 2b 35 3a  |el%:q%!4=lvl%+5:|
00003700  71 25 21 38 3d 26 45 30  30 30 30 30 30 30 3a 71  |q%!8=&E0000000:q|
00003710  25 21 31 32 3d 26 46 30  30 30 30 30 30 30 3a c8  |%!12=&F0000000:.|
00003720  99 20 22 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  |. "Wimp_SetIconS|
00003730  74 61 74 65 22 2c 2c 71  25 0d 10 90 49 71 25 21  |tate",,q%...Iq%!|
00003740  30 3d 6c 65 76 65 6c 25  3a 71 25 21 34 3d 6c 76  |0=level%:q%!4=lv|
00003750  6c 25 3a 71 25 21 38 3d  30 3a 71 25 21 31 32 3d  |l%:q%!8=0:q%!12=|
00003760  26 34 30 30 30 30 30 3a  c8 99 20 22 57 69 6d 70  |&400000:.. "Wimp|
00003770  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00003780  71 25 0d 10 9a 4b 70 61  73 73 24 28 6c 76 6c 25  |q%...Kpass$(lvl%|
00003790  29 3d 22 79 22 2b c2 70  61 73 73 24 28 6c 76 6c  |)="y"+.pass$(lvl|
000037a0  25 29 2c 37 29 3a f2 73  65 74 69 63 6f 6e 28 6c  |%),7):.seticon(l|
000037b0  65 76 65 6c 25 2c 6c 76  6c 25 2b 35 2c c2 70 61  |evel%,lvl%+5,.pa|
000037c0  73 73 24 28 6c 76 6c 25  29 2c 37 29 29 0d 10 a4  |ss$(lvl%),7))...|
000037d0  05 e1 0d 10 ae 05 3a 0d  10 b8 18 dd f2 63 68 61  |......:......cha|
000037e0  6e 67 65 6c 65 76 65 6c  28 69 63 6f 6e 25 29 0d  |ngelevel(icon%).|
000037f0  10 c2 19 e7 20 69 63 6f  6e 25 3e 34 20 84 20 69  |.... icon%>4 . i|
00003800  63 6f 6e 25 3c 30 20 e1  0d 10 cc 1c e7 20 c0 70  |con%<0 ...... .p|
00003810  61 73 73 24 28 69 63 6f  6e 25 29 2c 31 29 3d 22  |ass$(icon%),1)="|
00003820  6e 22 20 e1 0d 10 d6 4b  6c 65 76 65 6c 6e 6f 25  |n" ....Klevelno%|
00003830  3d 69 63 6f 6e 25 3a 62  6c 6f 63 6b 61 64 64 72  |=icon%:blockaddr|
00003840  25 3d 66 69 6c 65 25 2b  26 34 43 30 46 2b 28 6c  |%=file%+&4C0F+(l|
00003850  65 76 65 6c 6e 6f 25 2a  31 31 33 36 29 3a f2 65  |evelno%*1136):.e|
00003860  64 69 74 65 78 74 65 6e  74 3a f2 67 72 69 64 0d  |ditextent:.grid.|
00003870  10 e0 16 69 63 6f 6e 25  3d 30 3a f2 65 64 69 74  |...icon%=0:.edit|
00003880  73 74 61 72 74 0d 10 ea  05 e1 0d 10 f4 05 3a 0d  |start.........:.|
00003890  10 fe 24 dd f2 70 72 6f  63 65 73 73 6b 65 79 28  |..$..processkey(|
000038a0  69 63 6f 6e 25 2c 77 69  6e 64 6f 77 25 2c 6b 65  |icon%,window%,ke|
000038b0  79 25 29 0d 11 08 2a e7  20 6b 65 79 25 3c 3e 31  |y%)...*. key%<>1|
000038c0  33 20 c8 99 20 22 57 69  6d 70 5f 50 72 6f 63 65  |3 .. "Wimp_Proce|
000038d0  73 73 4b 65 79 22 2c 6b  65 79 25 3a e1 0d 11 12  |ssKey",key%:....|
000038e0  3c e7 20 69 63 6f 6e 25  3e 34 20 80 20 69 63 6f  |<. icon%>4 . ico|
000038f0  6e 25 3c 31 30 20 80 20  77 69 6e 64 6f 77 25 3d  |n%<10 . window%=|
00003900  6c 65 76 65 6c 25 20 f2  74 65 73 74 70 61 73 73  |level% .testpass|
00003910  28 69 63 6f 6e 25 2d 35  29 0d 11 1c 05 e1 0d 11  |(icon%-5).......|
00003920  26 05 3a 0d 11 30 1e dd  f2 74 65 73 74 70 61 73  |&.:..0...testpas|
00003930  73 28 6c 76 6c 25 29 3a  69 63 25 3d 69 63 6f 6e  |s(lvl%):ic%=icon|
00003940  25 0d 11 3a 2d e7 20 c0  70 61 73 73 24 28 6c 76  |%..:-. .pass$(lv|
00003950  6c 25 29 2c 31 29 3d 22  79 22 20 f2 63 68 61 6e  |l%),1)="y" .chan|
00003960  67 65 70 61 73 73 28 6c  76 6c 25 29 3a e1 0d 11  |gepass(lvl%):...|
00003970  44 65 e7 20 a4 67 65 74  69 63 6f 6e 28 6c 65 76  |De. .geticon(lev|
00003980  65 6c 25 2c 6c 76 6c 25  2b 35 29 3c 3e c2 70 61  |el%,lvl%+5)<>.pa|
00003990  73 73 24 28 6c 76 6c 25  29 2c 37 29 20 f2 6d 65  |ss$(lvl%),7) .me|
000039a0  73 73 61 67 65 28 22 53  6f 72 72 79 21 20 49 20  |ssage("Sorry! I |
000039b0  6a 75 73 74 20 63 61 6e  74 20 61 63 63 65 70 74  |just cant accept|
000039c0  20 74 68 61 74 20 70 61  73 73 77 6f 72 64 2e 22  | that password."|
000039d0  29 3a e1 0d 11 4e 29 f2  6b 6e 6f 77 70 61 73 73  |):...N).knowpass|
000039e0  28 6c 76 6c 25 29 3a 69  63 25 2b 3d 31 3a e7 20  |(lvl%):ic%+=1:. |
000039f0  69 63 25 3d 31 30 20 69  63 25 3d 35 0d 11 58 30  |ic%=10 ic%=5..X0|
00003a00  c8 99 20 22 57 69 6d 70  5f 53 65 74 43 61 72 65  |.. "Wimp_SetCare|
00003a10  74 50 6f 73 69 74 69 6f  6e 22 2c 6c 65 76 65 6c  |tPosition",level|
00003a20  25 2c 69 63 25 2c 2c 2c  2d 31 2c 30 0d 11 62 05  |%,ic%,,,-1,0..b.|
00003a30  e1 0d 11 6c 05 3a 0d 11  76 11 dd f2 6d 65 73 73  |...l.:..v...mess|
00003a40  61 67 65 28 41 24 29 0d  11 80 21 21 62 6c 6f 63  |age(A$)...!!bloc|
00003a50  6b 25 3d 32 35 35 3a 24  28 62 6c 6f 63 6b 25 2b  |k%=255:$(block%+|
00003a60  34 29 3d 41 24 2b bd 30  0d 11 8a 42 c8 99 20 22  |4)=A$+.0...B.. "|
00003a70  57 69 6d 70 5f 52 65 70  6f 72 74 45 72 72 6f 72  |Wimp_ReportError|
00003a80  22 2c 62 6c 6f 63 6b 25  2c 31 37 2c 22 4d 65 73  |",block%,17,"Mes|
00003a90  73 61 67 65 20 66 72 6f  6d 20 74 68 65 20 63 61  |sage from the ca|
00003aa0  76 65 20 65 64 69 74 6f  72 22 0d 11 94 05 e1 0d  |ve editor"......|
00003ab0  11 9e 05 3a 0d 11 a8 16  dd f2 63 68 61 6e 67 65  |...:......change|
00003ac0  70 61 73 73 28 6c 76 6c  25 29 0d 11 b2 19 69 63  |pass(lvl%)....ic|
00003ad0  25 2b 3d 31 3a e7 20 69  63 25 3d 31 30 20 69 63  |%+=1:. ic%=10 ic|
00003ae0  25 3d 35 0d 11 bc 5c e7  20 c2 70 61 73 73 24 28  |%=5...\. .pass$(|
00003af0  6c 76 6c 25 29 2c 37 29  3d a4 67 65 74 69 63 6f  |lvl%),7)=.getico|
00003b00  6e 28 6c 65 76 65 6c 25  2c 6c 76 6c 25 2b 35 29  |n(level%,lvl%+5)|
00003b10  20 c8 99 20 22 57 69 6d  70 5f 53 65 74 43 61 72  | .. "Wimp_SetCar|
00003b20  65 74 50 6f 73 69 74 69  6f 6e 22 2c 6c 65 76 65  |etPosition",leve|
00003b30  6c 25 2c 69 63 25 2c 2c  2c 2d 31 2c 30 3a e1 0d  |l%,ic%,,,-1,0:..|
00003b40  11 c6 83 21 62 6c 6f 63  6b 25 3d 32 35 35 3a 24  |...!block%=255:$|
00003b50  28 62 6c 6f 63 6b 25 2b  34 29 3d 22 41 72 65 20  |(block%+4)="Are |
00003b60  79 6f 75 20 73 68 75 72  65 20 79 6f 75 20 77 61  |you shure you wa|
00003b70  6e 74 20 74 6f 20 63 68  61 6e 67 65 20 6c 65 76  |nt to change lev|
00003b80  65 6c 20 22 2b c3 28 6c  76 6c 25 2b 31 29 2b 22  |el "+.(lvl%+1)+"|
00003b90  60 73 20 70 61 73 73 77  6f 72 64 20 74 6f 20 60  |`s password to `|
00003ba0  22 2b a4 67 65 74 69 63  6f 6e 28 6c 65 76 65 6c  |"+.geticon(level|
00003bb0  25 2c 6c 76 6c 25 2b 35  29 2b 22 60 20 3f 22 2b  |%,lvl%+5)+"` ?"+|
00003bc0  bd 30 0d 11 d0 4a c8 99  20 22 57 69 6d 70 5f 52  |.0...J.. "Wimp_R|
00003bd0  65 70 6f 72 74 45 72 72  6f 72 22 2c 62 6c 6f 63  |eportError",bloc|
00003be0  6b 25 2c 31 39 2c 22 4d  65 73 73 61 67 65 20 66  |k%,19,"Message f|
00003bf0  72 6f 6d 20 74 68 65 20  63 61 76 65 20 65 64 69  |rom the cave edi|
00003c00  74 6f 72 22 20 b8 20 2c  6f 75 74 25 0d 11 da 0f  |tor" . ,out%....|
00003c10  e7 20 6f 75 74 25 3c 3e  31 20 e1 0d 11 e4 6d e7  |. out%<>1 ....m.|
00003c20  20 a9 28 a4 67 65 74 69  63 6f 6e 28 6c 65 76 65  | .(.geticon(leve|
00003c30  6c 25 2c 6c 76 6c 25 2b  35 29 29 3c 3e 37 20 f2  |l%,lvl%+5))<>7 .|
00003c40  6d 65 73 73 61 67 65 28  22 49 20 63 61 6e 74 20  |message("I cant |
00003c50  61 63 63 65 70 74 20 61  6e 79 20 70 61 73 73 77  |accept any passw|
00003c60  6f 72 64 20 6c 65 73 73  20 74 68 61 6e 20 73 65  |ord less than se|
00003c70  76 65 6e 20 63 68 61 72  61 63 74 65 72 73 20 6c  |ven characters l|
00003c80  6f 6e 67 2e 22 29 3a e1  0d 11 ee 2b 70 61 73 73  |ong."):....+pass|
00003c90  24 28 6c 76 6c 25 29 3d  22 79 22 2b a4 67 65 74  |$(lvl%)="y"+.get|
00003ca0  69 63 6f 6e 28 6c 65 76  65 6c 25 2c 6c 76 6c 25  |icon(level%,lvl%|
00003cb0  2b 35 29 0d 11 f8 4c e3  20 6c 76 25 3d 30 20 b8  |+5)...L. lv%=0 .|
00003cc0  20 34 3a 61 64 64 72 25  3d 28 66 69 6c 65 25 2b  | 4:addr%=(file%+|
00003cd0  26 34 43 30 30 2b 28 6c  76 25 2a 31 31 33 36 29  |&4C00+(lv%*1136)|
00003ce0  29 2b 38 3a 24 61 64 64  72 25 3d c2 70 61 73 73  |)+8:$addr%=.pass|
00003cf0  24 28 6c 76 25 29 2c 37  29 2b bd 31 33 3a ed 0d  |$(lv%),7)+.13:..|
00003d00  12 02 76 f2 6d 65 73 73  61 67 65 28 22 52 45 4d  |..v.message("REM|
00003d10  45 4d 42 45 52 20 21 20  59 6f 75 20 6a 75 73 74  |EMBER ! You just|
00003d20  20 63 68 61 6e 67 65 64  20 6c 65 76 65 6c 20 22  | changed level "|
00003d30  2b c3 28 6c 76 6c 25 2b  31 29 2b 22 60 73 20 70  |+.(lvl%+1)+"`s p|
00003d40  61 73 73 77 6f 72 64 20  74 6f 20 60 22 2b c2 70  |assword to `"+.p|
00003d50  61 73 73 24 28 6c 76 6c  25 29 2c 37 29 2b 22 60  |ass$(lvl%),7)+"`|
00003d60  20 73 6f 20 44 4f 4e 54  20 66 6f 72 67 65 74 20  | so DONT forget |
00003d70  69 74 21 22 29 0d 12 0c  05 e1 0d 12 16 05 3a 0d  |it!").........:.|
00003d80  12 20 0e dd f2 6d 61 69  6e 6d 65 6e 75 0d 12 2a  |. ...mainmenu..*|
00003d90  33 6d 75 25 3d 31 3a f2  64 6f 6d 65 6e 75 28 22  |3mu%=1:.domenu("|
00003da0  53 68 6f 77 2c 45 64 69  74 2c 53 61 76 65 22 2c  |Show,Edit,Save",|
00003db0  22 45 64 69 74 6f 72 22  2c 6d 65 6e 75 31 25 29  |"Editor",menu1%)|
00003dc0  0d 12 34 32 f2 64 6f 6d  65 6e 75 28 22 3e 49 6e  |..42.domenu(">In|
00003dd0  66 6f 2c 46 69 6c 65 2c  54 69 6c 65 73 2c 46 75  |fo,File,Tiles,Fu|
00003de0  6c 6c 22 2c 22 53 68 6f  77 22 2c 6d 65 6e 75 32  |ll","Show",menu2|
00003df0  25 29 0d 12 3e 2e f2 64  6f 6d 65 6e 75 28 22 43  |%)..>..domenu("C|
00003e00  6c 65 61 72 2c 53 74 61  72 74 2c 4c 65 76 65 6c  |lear,Start,Level|
00003e10  22 2c 22 45 64 69 74 22  2c 6d 65 6e 75 33 25 29  |","Edit",menu3%)|
00003e20  0d 12 48 2f f2 64 6f 6d  65 6e 75 28 22 47 61 6d  |..H/.domenu("Gam|
00003e30  65 2c 54 69 6c 65 73 2c  50 61 6c 65 74 74 65 22  |e,Tiles,Palette"|
00003e40  2c 22 53 61 76 65 22 2c  6d 65 6e 75 34 25 29 0d  |,"Save",menu4%).|
00003e50  12 52 30 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |.R0.. "Wimp_Crea|
00003e60  74 65 4d 65 6e 75 22 2c  2c 6d 65 6e 75 31 25 2c  |teMenu",,menu1%,|
00003e70  6d 6f 75 73 65 78 25 2c  6d 6f 75 73 65 79 25 0d  |mousex%,mousey%.|
00003e80  12 5c 05 e1 0d 12 66 05  3a 0d 12 70 0e dd f2 69  |.\....f.:..p...i|
00003e90  63 6f 6e 6d 65 6e 75 0d  12 7a 2f 6d 75 25 3d 30  |conmenu..z/mu%=0|
00003ea0  3a f2 64 6f 6d 65 6e 75  28 22 3e 49 6e 66 6f 2c  |:.domenu(">Info,|
00003eb0  51 75 69 74 22 2c 22 45  64 69 74 6f 72 22 2c 6d  |Quit","Editor",m|
00003ec0  65 6e 75 31 25 29 0d 12  84 2f c8 99 20 22 57 69  |enu1%).../.. "Wi|
00003ed0  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
00003ee0  6d 65 6e 75 31 25 2c 6d  6f 75 73 65 78 25 2d 36  |menu1%,mousex%-6|
00003ef0  34 2c 31 37 38 0d 12 8e  05 e1 0d 12 98 05 3a 0d  |4,178.........:.|
00003f00  12 a2 10 dd f2 73 61 76  69 6e 67 67 61 6d 65 0d  |.....savinggame.|
00003f10  12 ac 45 24 28 66 69 6c  65 25 2b 26 36 32 42 32  |..E$(file%+&62B2|
00003f20  29 3d a4 67 65 74 69 63  6f 6e 28 67 61 6d 65 25  |)=.geticon(game%|
00003f30  2c 35 29 3a 24 28 66 69  6c 65 25 2b 26 36 32 43  |,5):$(file%+&62C|
00003f40  36 29 3d a4 67 65 74 69  63 6f 6e 28 67 61 6d 65  |6)=.geticon(game|
00003f50  25 2c 36 29 0d 12 b6 30  24 28 66 69 6c 65 25 2b  |%,6)...0$(file%+|
00003f60  26 36 32 44 41 29 3d 91  24 3a f2 73 65 74 69 63  |&62DA)=.$:.setic|
00003f70  6f 6e 28 67 61 6d 65 25  2c 31 31 2c c0 91 24 2c  |on(game%,11,..$,|
00003f80  31 35 29 29 0d 12 c0 05  e1 0d 12 ca 05 3a 0d 12  |15)).........:..|
00003f90  d4 11 dd f2 73 61 76 65  70 61 6c 28 41 24 29 0d  |....savepal(A$).|
00003fa0  12 de 3b c8 99 20 22 4f  53 5f 46 69 6c 65 22 2c  |..;.. "OS_File",|
00003fb0  31 30 2c 41 24 2c 26 46  45 44 2c 30 2c 66 69 6c  |10,A$,&FED,0,fil|
00003fc0  65 25 2b 26 36 32 33 30  2c 66 69 6c 65 25 2b 26  |e%+&6230,file%+&|
00003fd0  36 32 33 30 2b 31 32 30  3a e1 0d 12 e8 05 3a 0d  |6230+120:.....:.|
00003fe0  12 f2 11 dd f2 6c 6f 61  64 70 61 6c 28 41 24 29  |.....loadpal(A$)|
00003ff0  0d 12 fc 34 c8 99 20 22  4f 53 5f 46 69 6c 65 22  |...4.. "OS_File"|
00004000  2c 31 32 2c 41 24 2c 66  69 6c 65 25 2b 26 36 32  |,12,A$,file%+&62|
00004010  33 30 2c 30 3a f2 73 61  76 65 6e 61 6d 65 28 41  |30,0:.savename(A|
00004020  24 29 3a e1 0d 13 06 05  3a 0d 13 10 0e dd f2 70  |$):.....:......p|
00004030  69 78 74 72 61 6e 73 0d  13 1a 30 61 64 64 72 25  |ixtrans...0addr%|
00004040  3d 66 69 6c 65 25 2b 26  36 32 33 30 3a e3 20 63  |=file%+&6230:. c|
00004050  6f 6c 25 3d 30 20 b8 20  31 35 3a 72 67 62 25 3d  |ol%=0 . 15:rgb%=|
00004060  61 64 64 72 25 21 32 0d  13 2e 36 c8 99 20 22 43  |addr%!2...6.. "C|
00004070  6f 6c 6f 75 72 54 72 61  6e 73 5f 52 65 74 75 72  |olourTrans_Retur|
00004080  6e 43 6f 6c 6f 75 72 4e  75 6d 62 65 72 22 2c 72  |nColourNumber",r|
00004090  67 62 25 20 b8 20 63 6f  6c 6f 75 72 25 0d 13 38  |gb% . colour%..8|
000040a0  28 3f 28 70 69 78 74 72  61 6e 73 25 2b 63 6f 6c  |(?(pixtrans%+col|
000040b0  25 29 3d 63 6f 6c 6f 75  72 25 3a 61 64 64 72 25  |%)=colour%:addr%|
000040c0  2b 3d 36 3a ed 0d 13 42  05 e1 0d ff              |+=6:...B....|
000040cc