�><Maze$Dir>.!RunImage
�
-� Basic Shell for any RISC OS application
(� By Lee McGinty 1990
2�
<� This App -
F
� By -
P� Written -
Z)� � �error(�$+" ("+Þ+")",�,3):� �t`@
d�shellinit
n�loadtemplates
xOmenu$="05Maze|[info%]Info|[size$]Size|[difficulty$]Difficulty|Give Up|Quit"
�2size$="04Size|Small|#Medium|Large|Impossible|"
�4difficulty$="03Difficulty|#Easy|Hard|Very Hard|"
�1dummy%=�createmenu(menublock%,menuind%,menu$)
��
�#ș"Wimp_Poll",0,block1 � event%
�Ȏ event% �
�� 0:� null reason code
�� playing% � �play
�� 1:� redraw window
�� 2:� Open window
�ș"Wimp_OpenWindow",,block1
�� 3:� Close window
� ș"Wimp_CloseWindow",,block1

!� 4:� Pointer entering window

 � 5:� Pointer leaving window

� 6:� Mouse click

"�mouseclick(block1)

,� 7:� User drag box

6� 8:� Key Pressed

@� 9:� Menu selection

J�decodemenu

T� 10:� Scroll request

^� 11:� Lose caret

h� 12:� Gain caret

r� 17,18,19:� message

|�receive(block1)

��

�
� quit

�ș"Wimp_CloseDown"

��

���shellinit

�program$="Maze"

�� task% 4:$task%="TASK"

�-ș"Wimp_Initialise",2*100,!task%,program$

�� block1 256,block2 256

�indsize%=1024

�0� templateblock% 1024,tempindirect% indsize%

�#� menublock% 1024,menuind% 1024

�� scaleblock 20
� spritearea% 44000
!spritearea%=44000
spritearea%!8=16
&%ș"OS_SpriteOp",9+256,spritearea%
0;ș"OS_SpriteOp",10+256,spritearea%,"<Maze$Dir>.Sprites"
:=ș"OS_SpriteOp",24+256,spritearea%,"themaze" � ,,themaze%
D?ș"OS_SpriteOp",24+256,spritearea%,"gameicon" � ,,gameicon%
Nmazesize%=�(-�)
Xmazesize%=25
bscale%=2
l
quit=�
v�newgame
�!purpose$="Icon bar maze game"
� author$="� 1991 Lee McGinty"
� version$="1.1 (15-Jun-1991)"
�block1!0=-1
�block1!4=0
�block1!8=0
�block1!12=68
�block1!16=68
�block1!20=%11000100011010
�block1!24=gameicon%
�block1!28=spritearea%
�block1!32=0
�-ș"Wimp_CreateIcon",,block1 � iconhandle%
playing%=�
frame%=1
�
 ��loadtemplates
*1ș"Wimp_OpenTemplate",,"<Maze$Dir>.Templates"
4gș"Wimp_LoadTemplate",,templateblock%,tempindirect%,tempindirect%+indsize%,-1,"info",0 � ,,nextind%
>1ș"Wimp_CreateWindow",,templateblock% � info%
H#$(�iconaddr(info%,15))=version$
R"$(�iconaddr(info%,2))=program$
\"$(�iconaddr(info%,9))=purpose$
f"$(�iconaddr(info%,12))=author$
p� next template
zș"Wimp_CloseTemplate"
��
�ݤiconaddr(handle,icon)
� !block1=handle:block1!4=icon
�!ș"Wimp_GetIconState",,block1
�=block1!28
���error(error$,err,flags%)
�8!block2=err:$(block2+4)=error$:?(block2+4+�error$)=0
�7ș"Wimp_ReportError",block2,flags%,program$ � ,res%
�� res%=1 � �
�ș"Wimp_CloseDown"
��
���receive(block)
�� message%
message%=block!16
Ȏ message% �
� 0:quit=�
$�
.�
8ݤcreatemenu(mb%,ind%,t$)
B� �t$,1)<>"|" � t$+="|"
L7� new$,ptr%,shade%,tick%,dotted%,submenu%,writable%
V � indirected%,g%,numofitems%
`!numofitems%=��t$,2):t$=�t$,3)
j#nextmenu%=mb%+28+24*numofitems%
t+$mb%=�t$,�t$,"|")-1):t$=�t$,�t$,"|")+1)
~mb%?12=7
�mb%?13=2
�mb%?14=7
�mb%?15=0
�mb%!16=(�$mb%*16)+8
�
mb%!20=44
�mb%!24=0
�ptr%=mb%+28
�8�:shade%=0:tick%=0:dotted%=0:writable%=0:submenu%=-1
�*� �t$,1)="{" � t$=�(�t$,2,�t$,"}")-2))
�!�t$,1)="#" tick%=1:t$=�t$,2)
��t$,1)="[" �
�"t$=�t$,2):new$=�t$,�t$,"]")-1)
X� �new$,"%") � submenu%=�new$ � new$=�new$:submenu%=�createmenu(nextmenu%,ind%,new$)

t$=�t$,�t$,"]")+1)
�
�t$,1)="." t$=�t$,2)
((�t$,1)="*" shade%=&400000:t$=�t$,2)
2#�t$,1)=":" dotted%=2:t$=�t$,2)
<%�t$,1)="^" writable%=4:t$=�t$,2)
Fg%=�t$,"|")
P� writable% �
Z/i%=�t$,","):ptr%!12=��t$,i%-1):t$=�t$,i%+1)
dptr%!16=-1
nptr%!20=��t$,�t$,"|")-1)
x(mb%!16=�greater(mb%!16,4+16*ptr%!20)
��
�� g%-1>12 �
�!(ptr%+12)=ind%
�$ind%=�t$,g%-1):ind%+=g%
�!(ptr%+16)=0
�!(ptr%+20)=g%
�indirected%=1
��
�indirected%=�
�$(ptr%+12)=�t$,g%-1)
��
�#mb%!16=�greater(mb%!16,g%*16-8)
��
t$=�t$,g%+1)
7!ptr%=tick% � dotted% � writable% � (&80 � (t$=""))
ptr%!4=submenu%
"Jptr%!8=&10021 � shade% � writable%<<6 � 0<<28 � 7<<24 � indirected%<<8
,ptr%+=24
6
�t$=""
@=mb%
J'� �greater(a%,b%):� a%>b% =a% � =b%
T��mouseclick(block)
^� buttons%,window%,icon%
h� x%,y%
rbuttons%=block!8
|window%=block!12
�icon%=block!16
�Ȏ window% �
�� -2:� Click on icon bar
�&� buttons%=2 � icon%=iconhandle% �
�x%=block!0:y%=block!4
�1ș"Wimp_CreateMenu",,menublock%,x%-64,96+4*44
��
�&� buttons%=4 � icon%=iconhandle% �
�� playing%=� �
�playing%=�
�$�createmaze(mazesize%,mazesize%)
�Qmenu$="05Maze|[info%]Info|[size$]*Size|[difficulty$]*Difficulty|Give Up|Quit"
�1dummy%=�createmenu(menublock%,menuind%,menu$)
�
�
�
&�
0��decodemenu
:� buttons%
D#ș"Wimp_GetPointerInfo",,block2
Nbuttons%=block2!8
X1ș"Wimp_DecodeMenu",,menublock%,block1,block2
bȎ $block2 �
l
� "Quit":
v
quit=�
�M�"Size.Small":mazesize%=10:size$="04Size|#Small|Medium|Large|Impossible|"
�N�"Size.Medium":mazesize%=25:size$="04Size|Small|#Medium|Large|Impossible|"
�M�"Size.Large":mazesize%=50:size$="04Size|Small|Medium|#Large|Impossible|"
�S�"Size.Impossible":mazesize%=100:size$="04Size|Small|Medium|Large|#Impossible|"
�Q� "Difficulty.Easy":scale%=2:difficulty$="03Difficulty|#Easy|Hard|Very Hard|"
�Q� "Difficulty.Hard":scale%=3:difficulty$="03Difficulty|Easy|#Hard|Very Hard|"
�V� "Difficulty.Very Hard":scale%=4:difficulty$="03Difficulty|Easy|Hard|#Very Hard|"
�� "Give Up"
��7:playing%=�
��newgame
�Omenu$="05Maze|[info%]Info|[size$]Size|[difficulty$]Difficulty|Give Up|Quit"
�1dummy%=�createmenu(menublock%,menuind%,menu$)
��
�1dummy%=�createmenu(menublock%,menuind%,menu$)
�� �playing% � �newgame
�6� buttons%=1 � ș"Wimp_CreateMenu",,menublock%,0,0
��
�
��newgame
'x%=scale%*4:y%=mazesize%*scale%*8-4
�

��draw
 @ș"OS_SpriteOp",60+512,spritearea%,gameicon%,0 � r0,r1,r2,r3
*2� x%,y%:Coordinates of thing in maze in pixels
4
� 7+128:�
>*!scaleblock=scale%:scaleblock!4=scale%
H"scaleblock!8=1:scaleblock!12=1
RJș"OS_SpriteOp",512+52,spritearea%,themaze%,34-x%,34-y%,0,scaleblock,0
\�11
fȒ 15*2,8*4
pȒ 16*2,8*4
zș"OS_SpriteOp",r0,r1,r2,r3
�:!block1=-1:block1!4=iconhandle%:block1!8=0:block1!12=0
�!ș"Wimp_SetIconState",,block1
��
�
��play
�	�draw
�ȗ X%,Y%,Z%
�tx%=15:ty%=8
�'� X%>800 � �move(x%,y%,tx%,ty%,2,0)
�(� X%<400 � �move(x%,y%,tx%,ty%,-1,0)
�'� Y%>700 � �move(x%,y%,tx%,ty%,0,1)
�(� Y%<300 � �move(x%,y%,tx%,ty%,0,-1)
�Gș"OS_SpriteOp",512+41,spritearea%,gameicon%,tx%,ty% � ,,,,,colour%
	� colour%=10 �
	�7:playing%=�
	9�error("Well Done. You have finished this maze!",0,1)
	$�newgame
	.Omenu$="05Maze|[info%]Info|[size$]Size|[difficulty$]Difficulty|Give Up|Quit"
	81dummy%=�createmenu(menublock%,menuind%,menu$)
	B�
	L�
	V��createmaze(xsize%,ysize%)
	`ș"Hourglass_On"
	j� X%,Y%,xx%,yy%,dx%,dy%
	t?ș"OS_SpriteOp",60+512,spritearea%,themaze%,0 � r0,r1,r2,r3
	~�7+128:�
	�� 0
	�X%=1:Y%=1:xm%=2:ym%=2
	��point(2,2)
	�!� square%=1 � xsize%*ysize%-1
	�<ș"Hourglass_Percentage",(square%/(xsize%*ysize%-1)*100)
	��
	�	ok%=�
	��
	�direction%=�(4)
	�Ȏ direction% �
	�� 1:dx%=0:dy%=1
	�� 2:dx%=1:dy%=0
� 3:dx%=0:dy%=-1

� 4:dx%=-1:dy%=0
�
xx%=X%+dx%
(yy%=Y%+dy%
2/� xx%>0 � xx%<=xsize% � yy%>0 � yy%<=ysize%
<� �point(xx%*2,yy%*2)=0 �
F	ok%=�
P�
ZX%=�(xm%):Y%=�(ym%)
d��point(X%*2,Y%*2)=0
n�
x	� ok%
�� I%=1 � 2
�#�point(X%*2+I%*dx%,Y%*2+I%*dy%)
��
�
X%=xx%
�
Y%=yy%
�� X%>xm% xm%=X%
�� Y%>ym% ym%=Y%
��
�'�10:�point(�(xsize%*2),�(ysize%*2))
�ș"OS_SpriteOp",r0,r1,r2,r3
�ș"Hourglass_Off"
��
���point(x%,y%)
Ȓ x%*4-4,y%*4-4
Ȓ x%*4-2,y%*4-4
�
"ݤpoint(x%,y%)
,=�x%*4-4,y%*4-4)
�)��move(� x%,� y%,� tx%,� ty%,mx%,my%)
�Lș"OS_SpriteOp",512+41,spritearea%,gameicon%,tx%+mx%,ty%+my% � ,,,,,col%
�� col%=0 � col%=10 �
�x%+=�(mx%)*2
�y%+=�(my%)*2
�tx%+=mx%
�ty%+=my%
��
��
�

00000000  0d 00 0a 1a f4 3e 3c 4d  61 7a 65 24 44 69 72 3e  |.....><Maze$Dir>|
00000010  2e 21 52 75 6e 49 6d 61  67 65 0d 00 14 05 f4 0d  |.!RunImage......|
00000020  00 1e 2d f4 20 42 61 73  69 63 20 53 68 65 6c 6c  |..-. Basic Shell|
00000030  20 66 6f 72 20 61 6e 79  20 52 49 53 43 20 4f 53  | for any RISC OS|
00000040  20 61 70 70 6c 69 63 61  74 69 6f 6e 0d 00 28 19  | application..(.|
00000050  f4 20 42 79 20 4c 65 65  20 4d 63 47 69 6e 74 79  |. By Lee McGinty|
00000060  20 31 39 39 30 0d 00 32  05 f4 0d 00 3c 10 f4 20  | 1990..2....<.. |
00000070  54 68 69 73 20 41 70 70  20 2d 0d 00 46 0a f4 20  |This App -..F.. |
00000080  42 79 20 2d 0d 00 50 0f  f4 20 57 72 69 74 74 65  |By -..P.. Writte|
00000090  6e 20 2d 0d 00 5a 29 ee  20 85 20 f2 65 72 72 6f  |n -..Z). . .erro|
000000a0  72 28 f6 24 2b 22 20 28  22 2b c3 9e 2b 22 29 22  |r(.$+" ("+..+")"|
000000b0  2c 9f 2c 33 29 3a e5 20  8d 74 60 40 0d 00 64 0e  |,.,3):. .t`@..d.|
000000c0  f2 73 68 65 6c 6c 69 6e  69 74 0d 00 6e 12 f2 6c  |.shellinit..n..l|
000000d0  6f 61 64 74 65 6d 70 6c  61 74 65 73 0d 00 78 4f  |oadtemplates..xO|
000000e0  6d 65 6e 75 24 3d 22 30  35 4d 61 7a 65 7c 5b 69  |menu$="05Maze|[i|
000000f0  6e 66 6f 25 5d 49 6e 66  6f 7c 5b 73 69 7a 65 24  |nfo%]Info|[size$|
00000100  5d 53 69 7a 65 7c 5b 64  69 66 66 69 63 75 6c 74  |]Size|[difficult|
00000110  79 24 5d 44 69 66 66 69  63 75 6c 74 79 7c 47 69  |y$]Difficulty|Gi|
00000120  76 65 20 55 70 7c 51 75  69 74 22 0d 00 82 32 73  |ve Up|Quit"...2s|
00000130  69 7a 65 24 3d 22 30 34  53 69 7a 65 7c 53 6d 61  |ize$="04Size|Sma|
00000140  6c 6c 7c 23 4d 65 64 69  75 6d 7c 4c 61 72 67 65  |ll|#Medium|Large|
00000150  7c 49 6d 70 6f 73 73 69  62 6c 65 7c 22 0d 00 8c  ||Impossible|"...|
00000160  34 64 69 66 66 69 63 75  6c 74 79 24 3d 22 30 33  |4difficulty$="03|
00000170  44 69 66 66 69 63 75 6c  74 79 7c 23 45 61 73 79  |Difficulty|#Easy|
00000180  7c 48 61 72 64 7c 56 65  72 79 20 48 61 72 64 7c  ||Hard|Very Hard||
00000190  22 0d 00 96 31 64 75 6d  6d 79 25 3d a4 63 72 65  |"...1dummy%=.cre|
000001a0  61 74 65 6d 65 6e 75 28  6d 65 6e 75 62 6c 6f 63  |atemenu(menubloc|
000001b0  6b 25 2c 6d 65 6e 75 69  6e 64 25 2c 6d 65 6e 75  |k%,menuind%,menu|
000001c0  24 29 0d 00 a0 05 f5 0d  00 aa 23 c8 99 22 57 69  |$)........#.."Wi|
000001d0  6d 70 5f 50 6f 6c 6c 22  2c 30 2c 62 6c 6f 63 6b  |mp_Poll",0,block|
000001e0  31 20 b8 20 65 76 65 6e  74 25 0d 00 b4 0f c8 8e  |1 . event%......|
000001f0  20 65 76 65 6e 74 25 20  ca 0d 00 be 1a c9 20 30  | event% ...... 0|
00000200  3a f4 20 6e 75 6c 6c 20  72 65 61 73 6f 6e 20 63  |:. null reason c|
00000210  6f 64 65 0d 00 c8 16 e7  20 70 6c 61 79 69 6e 67  |ode..... playing|
00000220  25 20 8c 20 f2 70 6c 61  79 0d 00 d2 17 c9 20 31  |% . .play..... 1|
00000230  3a f4 20 72 65 64 72 61  77 20 77 69 6e 64 6f 77  |:. redraw window|
00000240  0d 00 dc 15 c9 20 32 3a  f4 20 4f 70 65 6e 20 77  |..... 2:. Open w|
00000250  69 6e 64 6f 77 0d 00 e6  1f c8 99 22 57 69 6d 70  |indow......"Wimp|
00000260  5f 4f 70 65 6e 57 69 6e  64 6f 77 22 2c 2c 62 6c  |_OpenWindow",,bl|
00000270  6f 63 6b 31 0d 00 f0 16  c9 20 33 3a f4 20 43 6c  |ock1..... 3:. Cl|
00000280  6f 73 65 20 77 69 6e 64  6f 77 0d 00 fa 20 c8 99  |ose window... ..|
00000290  22 57 69 6d 70 5f 43 6c  6f 73 65 57 69 6e 64 6f  |"Wimp_CloseWindo|
000002a0  77 22 2c 2c 62 6c 6f 63  6b 31 0d 01 04 21 c9 20  |w",,block1...!. |
000002b0  34 3a f4 20 50 6f 69 6e  74 65 72 20 65 6e 74 65  |4:. Pointer ente|
000002c0  72 69 6e 67 20 77 69 6e  64 6f 77 0d 01 0e 20 c9  |ring window... .|
000002d0  20 35 3a f4 20 50 6f 69  6e 74 65 72 20 6c 65 61  | 5:. Pointer lea|
000002e0  76 69 6e 67 20 77 69 6e  64 6f 77 0d 01 18 15 c9  |ving window.....|
000002f0  20 36 3a f4 20 4d 6f 75  73 65 20 63 6c 69 63 6b  | 6:. Mouse click|
00000300  0d 01 22 17 f2 6d 6f 75  73 65 63 6c 69 63 6b 28  |.."..mouseclick(|
00000310  62 6c 6f 63 6b 31 29 0d  01 2c 17 c9 20 37 3a f4  |block1)..,.. 7:.|
00000320  20 55 73 65 72 20 64 72  61 67 20 62 6f 78 0d 01  | User drag box..|
00000330  36 15 c9 20 38 3a f4 20  4b 65 79 20 50 72 65 73  |6.. 8:. Key Pres|
00000340  73 65 64 0d 01 40 18 c9  20 39 3a f4 20 4d 65 6e  |sed..@.. 9:. Men|
00000350  75 20 73 65 6c 65 63 74  69 6f 6e 0d 01 4a 0f f2  |u selection..J..|
00000360  64 65 63 6f 64 65 6d 65  6e 75 0d 01 54 19 c9 20  |decodemenu..T.. |
00000370  31 30 3a f4 20 53 63 72  6f 6c 6c 20 72 65 71 75  |10:. Scroll requ|
00000380  65 73 74 0d 01 5e 15 c9  20 31 31 3a f4 20 4c 6f  |est..^.. 11:. Lo|
00000390  73 65 20 63 61 72 65 74  0d 01 68 15 c9 20 31 32  |se caret..h.. 12|
000003a0  3a f4 20 47 61 69 6e 20  63 61 72 65 74 0d 01 72  |:. Gain caret..r|
000003b0  18 c9 20 31 37 2c 31 38  2c 31 39 3a f4 20 6d 65  |.. 17,18,19:. me|
000003c0  73 73 61 67 65 0d 01 7c  14 f2 72 65 63 65 69 76  |ssage..|..receiv|
000003d0  65 28 62 6c 6f 63 6b 31  29 0d 01 86 05 cb 0d 01  |e(block1).......|
000003e0  90 0a fd 20 71 75 69 74  0d 01 9a 16 c8 99 22 57  |... quit......"W|
000003f0  69 6d 70 5f 43 6c 6f 73  65 44 6f 77 6e 22 0d 01  |imp_CloseDown"..|
00000400  a4 05 e0 0d 01 ae 0f dd  f2 73 68 65 6c 6c 69 6e  |.........shellin|
00000410  69 74 0d 01 b8 13 70 72  6f 67 72 61 6d 24 3d 22  |it....program$="|
00000420  4d 61 7a 65 22 0d 01 c2  1b de 20 74 61 73 6b 25  |Maze"..... task%|
00000430  20 34 3a 24 74 61 73 6b  25 3d 22 54 41 53 4b 22  | 4:$task%="TASK"|
00000440  0d 01 cc 2d c8 99 22 57  69 6d 70 5f 49 6e 69 74  |...-.."Wimp_Init|
00000450  69 61 6c 69 73 65 22 2c  32 2a 31 30 30 2c 21 74  |ialise",2*100,!t|
00000460  61 73 6b 25 2c 70 72 6f  67 72 61 6d 24 0d 01 d6  |ask%,program$...|
00000470  1b de 20 62 6c 6f 63 6b  31 20 32 35 36 2c 62 6c  |.. block1 256,bl|
00000480  6f 63 6b 32 20 32 35 36  0d 01 e0 11 69 6e 64 73  |ock2 256....inds|
00000490  69 7a 65 25 3d 31 30 32  34 0d 01 ea 30 de 20 74  |ize%=1024...0. t|
000004a0  65 6d 70 6c 61 74 65 62  6c 6f 63 6b 25 20 31 30  |emplateblock% 10|
000004b0  32 34 2c 74 65 6d 70 69  6e 64 69 72 65 63 74 25  |24,tempindirect%|
000004c0  20 69 6e 64 73 69 7a 65  25 0d 01 f4 23 de 20 6d  | indsize%...#. m|
000004d0  65 6e 75 62 6c 6f 63 6b  25 20 31 30 32 34 2c 6d  |enublock% 1024,m|
000004e0  65 6e 75 69 6e 64 25 20  31 30 32 34 0d 01 fe 13  |enuind% 1024....|
000004f0  de 20 73 63 61 6c 65 62  6c 6f 63 6b 20 32 30 0d  |. scaleblock 20.|
00000500  02 08 17 de 20 73 70 72  69 74 65 61 72 65 61 25  |.... spritearea%|
00000510  20 34 34 30 30 30 0d 02  12 16 21 73 70 72 69 74  | 44000....!sprit|
00000520  65 61 72 65 61 25 3d 34  34 30 30 30 0d 02 1c 14  |earea%=44000....|
00000530  73 70 72 69 74 65 61 72  65 61 25 21 38 3d 31 36  |spritearea%!8=16|
00000540  0d 02 26 25 c8 99 22 4f  53 5f 53 70 72 69 74 65  |..&%.."OS_Sprite|
00000550  4f 70 22 2c 39 2b 32 35  36 2c 73 70 72 69 74 65  |Op",9+256,sprite|
00000560  61 72 65 61 25 0d 02 30  3b c8 99 22 4f 53 5f 53  |area%..0;.."OS_S|
00000570  70 72 69 74 65 4f 70 22  2c 31 30 2b 32 35 36 2c  |priteOp",10+256,|
00000580  73 70 72 69 74 65 61 72  65 61 25 2c 22 3c 4d 61  |spritearea%,"<Ma|
00000590  7a 65 24 44 69 72 3e 2e  53 70 72 69 74 65 73 22  |ze$Dir>.Sprites"|
000005a0  0d 02 3a 3d c8 99 22 4f  53 5f 53 70 72 69 74 65  |..:=.."OS_Sprite|
000005b0  4f 70 22 2c 32 34 2b 32  35 36 2c 73 70 72 69 74  |Op",24+256,sprit|
000005c0  65 61 72 65 61 25 2c 22  74 68 65 6d 61 7a 65 22  |earea%,"themaze"|
000005d0  20 b8 20 2c 2c 74 68 65  6d 61 7a 65 25 0d 02 44  | . ,,themaze%..D|
000005e0  3f c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |?.."OS_SpriteOp"|
000005f0  2c 32 34 2b 32 35 36 2c  73 70 72 69 74 65 61 72  |,24+256,spritear|
00000600  65 61 25 2c 22 67 61 6d  65 69 63 6f 6e 22 20 b8  |ea%,"gameicon" .|
00000610  20 2c 2c 67 61 6d 65 69  63 6f 6e 25 0d 02 4e 13  | ,,gameicon%..N.|
00000620  6d 61 7a 65 73 69 7a 65  25 3d b3 28 2d 91 29 0d  |mazesize%=.(-.).|
00000630  02 58 10 6d 61 7a 65 73  69 7a 65 25 3d 32 35 0d  |.X.mazesize%=25.|
00000640  02 62 0c 73 63 61 6c 65  25 3d 32 0d 02 6c 0a 71  |.b.scale%=2..l.q|
00000650  75 69 74 3d a3 0d 02 76  0c f2 6e 65 77 67 61 6d  |uit=...v..newgam|
00000660  65 0d 02 80 21 70 75 72  70 6f 73 65 24 3d 22 49  |e...!purpose$="I|
00000670  63 6f 6e 20 62 61 72 20  6d 61 7a 65 20 67 61 6d  |con bar maze gam|
00000680  65 22 0d 02 8a 20 61 75  74 68 6f 72 24 3d 22 a9  |e"... author$=".|
00000690  20 31 39 39 31 20 4c 65  65 20 4d 63 47 69 6e 74  | 1991 Lee McGint|
000006a0  79 22 0d 02 94 20 76 65  72 73 69 6f 6e 24 3d 22  |y"... version$="|
000006b0  31 2e 31 20 28 31 35 2d  4a 75 6e 2d 31 39 39 31  |1.1 (15-Jun-1991|
000006c0  29 22 0d 02 9e 0f 62 6c  6f 63 6b 31 21 30 3d 2d  |)"....block1!0=-|
000006d0  31 0d 02 a8 0e 62 6c 6f  63 6b 31 21 34 3d 30 0d  |1....block1!4=0.|
000006e0  02 b2 0e 62 6c 6f 63 6b  31 21 38 3d 30 0d 02 bc  |...block1!8=0...|
000006f0  10 62 6c 6f 63 6b 31 21  31 32 3d 36 38 0d 02 c6  |.block1!12=68...|
00000700  10 62 6c 6f 63 6b 31 21  31 36 3d 36 38 0d 02 d0  |.block1!16=68...|
00000710  1d 62 6c 6f 63 6b 31 21  32 30 3d 25 31 31 30 30  |.block1!20=%1100|
00000720  30 31 30 30 30 31 31 30  31 30 0d 02 da 17 62 6c  |0100011010....bl|
00000730  6f 63 6b 31 21 32 34 3d  67 61 6d 65 69 63 6f 6e  |ock1!24=gameicon|
00000740  25 0d 02 e4 19 62 6c 6f  63 6b 31 21 32 38 3d 73  |%....block1!28=s|
00000750  70 72 69 74 65 61 72 65  61 25 0d 02 ee 0f 62 6c  |pritearea%....bl|
00000760  6f 63 6b 31 21 33 32 3d  30 0d 02 f8 2d c8 99 22  |ock1!32=0...-.."|
00000770  57 69 6d 70 5f 43 72 65  61 74 65 49 63 6f 6e 22  |Wimp_CreateIcon"|
00000780  2c 2c 62 6c 6f 63 6b 31  20 b8 20 69 63 6f 6e 68  |,,block1 . iconh|
00000790  61 6e 64 6c 65 25 0d 03  02 0e 70 6c 61 79 69 6e  |andle%....playin|
000007a0  67 25 3d a3 0d 03 0c 0c  66 72 61 6d 65 25 3d 31  |g%=.....frame%=1|
000007b0  0d 03 16 05 e1 0d 03 20  13 dd f2 6c 6f 61 64 74  |....... ...loadt|
000007c0  65 6d 70 6c 61 74 65 73  0d 03 2a 31 c8 99 22 57  |emplates..*1.."W|
000007d0  69 6d 70 5f 4f 70 65 6e  54 65 6d 70 6c 61 74 65  |imp_OpenTemplate|
000007e0  22 2c 2c 22 3c 4d 61 7a  65 24 44 69 72 3e 2e 54  |",,"<Maze$Dir>.T|
000007f0  65 6d 70 6c 61 74 65 73  22 0d 03 34 67 c8 99 22  |emplates"..4g.."|
00000800  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
00000810  65 22 2c 2c 74 65 6d 70  6c 61 74 65 62 6c 6f 63  |e",,templatebloc|
00000820  6b 25 2c 74 65 6d 70 69  6e 64 69 72 65 63 74 25  |k%,tempindirect%|
00000830  2c 74 65 6d 70 69 6e 64  69 72 65 63 74 25 2b 69  |,tempindirect%+i|
00000840  6e 64 73 69 7a 65 25 2c  2d 31 2c 22 69 6e 66 6f  |ndsize%,-1,"info|
00000850  22 2c 30 20 b8 20 2c 2c  6e 65 78 74 69 6e 64 25  |",0 . ,,nextind%|
00000860  0d 03 3e 31 c8 99 22 57  69 6d 70 5f 43 72 65 61  |..>1.."Wimp_Crea|
00000870  74 65 57 69 6e 64 6f 77  22 2c 2c 74 65 6d 70 6c  |teWindow",,templ|
00000880  61 74 65 62 6c 6f 63 6b  25 20 b8 20 69 6e 66 6f  |ateblock% . info|
00000890  25 0d 03 48 23 24 28 a4  69 63 6f 6e 61 64 64 72  |%..H#$(.iconaddr|
000008a0  28 69 6e 66 6f 25 2c 31  35 29 29 3d 76 65 72 73  |(info%,15))=vers|
000008b0  69 6f 6e 24 0d 03 52 22  24 28 a4 69 63 6f 6e 61  |ion$..R"$(.icona|
000008c0  64 64 72 28 69 6e 66 6f  25 2c 32 29 29 3d 70 72  |ddr(info%,2))=pr|
000008d0  6f 67 72 61 6d 24 0d 03  5c 22 24 28 a4 69 63 6f  |ogram$..\"$(.ico|
000008e0  6e 61 64 64 72 28 69 6e  66 6f 25 2c 39 29 29 3d  |naddr(info%,9))=|
000008f0  70 75 72 70 6f 73 65 24  0d 03 66 22 24 28 a4 69  |purpose$..f"$(.i|
00000900  63 6f 6e 61 64 64 72 28  69 6e 66 6f 25 2c 31 32  |conaddr(info%,12|
00000910  29 29 3d 61 75 74 68 6f  72 24 0d 03 70 13 f4 20  |))=author$..p.. |
00000920  6e 65 78 74 20 74 65 6d  70 6c 61 74 65 0d 03 7a  |next template..z|
00000930  1a c8 99 22 57 69 6d 70  5f 43 6c 6f 73 65 54 65  |..."Wimp_CloseTe|
00000940  6d 70 6c 61 74 65 22 0d  03 84 05 e1 0d 03 8e 1b  |mplate".........|
00000950  dd a4 69 63 6f 6e 61 64  64 72 28 68 61 6e 64 6c  |..iconaddr(handl|
00000960  65 2c 69 63 6f 6e 29 0d  03 98 20 21 62 6c 6f 63  |e,icon)... !bloc|
00000970  6b 31 3d 68 61 6e 64 6c  65 3a 62 6c 6f 63 6b 31  |k1=handle:block1|
00000980  21 34 3d 69 63 6f 6e 0d  03 a2 21 c8 99 22 57 69  |!4=icon...!.."Wi|
00000990  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
000009a0  2c 2c 62 6c 6f 63 6b 31  0d 03 ac 0e 3d 62 6c 6f  |,,block1....=blo|
000009b0  63 6b 31 21 32 38 0d 03  b6 1e dd f2 65 72 72 6f  |ck1!28......erro|
000009c0  72 28 65 72 72 6f 72 24  2c 65 72 72 2c 66 6c 61  |r(error$,err,fla|
000009d0  67 73 25 29 0d 03 c0 38  21 62 6c 6f 63 6b 32 3d  |gs%)...8!block2=|
000009e0  65 72 72 3a 24 28 62 6c  6f 63 6b 32 2b 34 29 3d  |err:$(block2+4)=|
000009f0  65 72 72 6f 72 24 3a 3f  28 62 6c 6f 63 6b 32 2b  |error$:?(block2+|
00000a00  34 2b a9 65 72 72 6f 72  24 29 3d 30 0d 03 ca 37  |4+.error$)=0...7|
00000a10  c8 99 22 57 69 6d 70 5f  52 65 70 6f 72 74 45 72  |.."Wimp_ReportEr|
00000a20  72 6f 72 22 2c 62 6c 6f  63 6b 32 2c 66 6c 61 67  |ror",block2,flag|
00000a30  73 25 2c 70 72 6f 67 72  61 6d 24 20 b8 20 2c 72  |s%,program$ . ,r|
00000a40  65 73 25 0d 03 d4 10 e7  20 72 65 73 25 3d 31 20  |es%..... res%=1 |
00000a50  8c 20 e1 0d 03 de 16 c8  99 22 57 69 6d 70 5f 43  |. ......."Wimp_C|
00000a60  6c 6f 73 65 44 6f 77 6e  22 0d 03 e8 05 e0 0d 03  |loseDown".......|
00000a70  f2 14 dd f2 72 65 63 65  69 76 65 28 62 6c 6f 63  |....receive(bloc|
00000a80  6b 29 0d 03 fc 0e ea 20  6d 65 73 73 61 67 65 25  |k)..... message%|
00000a90  0d 04 06 15 6d 65 73 73  61 67 65 25 3d 62 6c 6f  |....message%=blo|
00000aa0  63 6b 21 31 36 0d 04 10  11 c8 8e 20 6d 65 73 73  |ck!16...... mess|
00000ab0  61 67 65 25 20 ca 0d 04  1a 0e c9 20 30 3a 71 75  |age% ...... 0:qu|
00000ac0  69 74 3d b9 0d 04 24 05  cb 0d 04 2e 05 e1 0d 04  |it=...$.........|
00000ad0  38 1d dd a4 63 72 65 61  74 65 6d 65 6e 75 28 6d  |8...createmenu(m|
00000ae0  62 25 2c 69 6e 64 25 2c  74 24 29 0d 04 42 1b e7  |b%,ind%,t$)..B..|
00000af0  20 c2 74 24 2c 31 29 3c  3e 22 7c 22 20 8c 20 74  | .t$,1)<>"|" . t|
00000b00  24 2b 3d 22 7c 22 0d 04  4c 37 ea 20 6e 65 77 24  |$+="|"..L7. new$|
00000b10  2c 70 74 72 25 2c 73 68  61 64 65 25 2c 74 69 63  |,ptr%,shade%,tic|
00000b20  6b 25 2c 64 6f 74 74 65  64 25 2c 73 75 62 6d 65  |k%,dotted%,subme|
00000b30  6e 75 25 2c 77 72 69 74  61 62 6c 65 25 0d 04 56  |nu%,writable%..V|
00000b40  20 ea 20 69 6e 64 69 72  65 63 74 65 64 25 2c 67  | . indirected%,g|
00000b50  25 2c 6e 75 6d 6f 66 69  74 65 6d 73 25 0d 04 60  |%,numofitems%..`|
00000b60  21 6e 75 6d 6f 66 69 74  65 6d 73 25 3d bb c0 74  |!numofitems%=..t|
00000b70  24 2c 32 29 3a 74 24 3d  c1 74 24 2c 33 29 0d 04  |$,2):t$=.t$,3)..|
00000b80  6a 23 6e 65 78 74 6d 65  6e 75 25 3d 6d 62 25 2b  |j#nextmenu%=mb%+|
00000b90  32 38 2b 32 34 2a 6e 75  6d 6f 66 69 74 65 6d 73  |28+24*numofitems|
00000ba0  25 0d 04 74 2b 24 6d 62  25 3d c0 74 24 2c a7 74  |%..t+$mb%=.t$,.t|
00000bb0  24 2c 22 7c 22 29 2d 31  29 3a 74 24 3d c1 74 24  |$,"|")-1):t$=.t$|
00000bc0  2c a7 74 24 2c 22 7c 22  29 2b 31 29 0d 04 7e 0c  |,.t$,"|")+1)..~.|
00000bd0  6d 62 25 3f 31 32 3d 37  0d 04 88 0c 6d 62 25 3f  |mb%?12=7....mb%?|
00000be0  31 33 3d 32 0d 04 92 0c  6d 62 25 3f 31 34 3d 37  |13=2....mb%?14=7|
00000bf0  0d 04 9c 0c 6d 62 25 3f  31 35 3d 30 0d 04 a6 17  |....mb%?15=0....|
00000c00  6d 62 25 21 31 36 3d 28  a9 24 6d 62 25 2a 31 36  |mb%!16=(.$mb%*16|
00000c10  29 2b 38 0d 04 b0 0d 6d  62 25 21 32 30 3d 34 34  |)+8....mb%!20=44|
00000c20  0d 04 ba 0c 6d 62 25 21  32 34 3d 30 0d 04 c4 0f  |....mb%!24=0....|
00000c30  70 74 72 25 3d 6d 62 25  2b 32 38 0d 04 ce 38 f5  |ptr%=mb%+28...8.|
00000c40  3a 73 68 61 64 65 25 3d  30 3a 74 69 63 6b 25 3d  |:shade%=0:tick%=|
00000c50  30 3a 64 6f 74 74 65 64  25 3d 30 3a 77 72 69 74  |0:dotted%=0:writ|
00000c60  61 62 6c 65 25 3d 30 3a  73 75 62 6d 65 6e 75 25  |able%=0:submenu%|
00000c70  3d 2d 31 0d 04 d8 2a e7  20 c0 74 24 2c 31 29 3d  |=-1...*. .t$,1)=|
00000c80  22 7b 22 20 8c 20 74 24  3d a0 28 c1 74 24 2c 32  |"{" . t$=.(.t$,2|
00000c90  2c a7 74 24 2c 22 7d 22  29 2d 32 29 29 0d 04 e2  |,.t$,"}")-2))...|
00000ca0  21 e7 c0 74 24 2c 31 29  3d 22 23 22 20 74 69 63  |!..t$,1)="#" tic|
00000cb0  6b 25 3d 31 3a 74 24 3d  c1 74 24 2c 32 29 0d 04  |k%=1:t$=.t$,2)..|
00000cc0  ec 11 e7 c0 74 24 2c 31  29 3d 22 5b 22 20 8c 0d  |....t$,1)="[" ..|
00000cd0  04 f6 22 74 24 3d c1 74  24 2c 32 29 3a 6e 65 77  |.."t$=.t$,2):new|
00000ce0  24 3d c0 74 24 2c a7 74  24 2c 22 5d 22 29 2d 31  |$=.t$,.t$,"]")-1|
00000cf0  29 0d 05 00 58 e7 20 a7  6e 65 77 24 2c 22 25 22  |)...X. .new$,"%"|
00000d00  29 20 8c 20 73 75 62 6d  65 6e 75 25 3d a0 6e 65  |) . submenu%=.ne|
00000d10  77 24 20 8b 20 6e 65 77  24 3d a0 6e 65 77 24 3a  |w$ . new$=.new$:|
00000d20  73 75 62 6d 65 6e 75 25  3d a4 63 72 65 61 74 65  |submenu%=.create|
00000d30  6d 65 6e 75 28 6e 65 78  74 6d 65 6e 75 25 2c 69  |menu(nextmenu%,i|
00000d40  6e 64 25 2c 6e 65 77 24  29 0d 05 0a 16 74 24 3d  |nd%,new$)....t$=|
00000d50  c1 74 24 2c a7 74 24 2c  22 5d 22 29 2b 31 29 0d  |.t$,.t$,"]")+1).|
00000d60  05 14 05 cd 0d 05 1e 19  e7 c0 74 24 2c 31 29 3d  |..........t$,1)=|
00000d70  22 2e 22 20 74 24 3d c1  74 24 2c 32 29 0d 05 28  |"." t$=.t$,2)..(|
00000d80  28 e7 c0 74 24 2c 31 29  3d 22 2a 22 20 73 68 61  |(..t$,1)="*" sha|
00000d90  64 65 25 3d 26 34 30 30  30 30 30 3a 74 24 3d c1  |de%=&400000:t$=.|
00000da0  74 24 2c 32 29 0d 05 32  23 e7 c0 74 24 2c 31 29  |t$,2)..2#..t$,1)|
00000db0  3d 22 3a 22 20 64 6f 74  74 65 64 25 3d 32 3a 74  |=":" dotted%=2:t|
00000dc0  24 3d c1 74 24 2c 32 29  0d 05 3c 25 e7 c0 74 24  |$=.t$,2)..<%..t$|
00000dd0  2c 31 29 3d 22 5e 22 20  77 72 69 74 61 62 6c 65  |,1)="^" writable|
00000de0  25 3d 34 3a 74 24 3d c1  74 24 2c 32 29 0d 05 46  |%=4:t$=.t$,2)..F|
00000df0  0f 67 25 3d a7 74 24 2c  22 7c 22 29 0d 05 50 11  |.g%=.t$,"|")..P.|
00000e00  e7 20 77 72 69 74 61 62  6c 65 25 20 8c 0d 05 5a  |. writable% ...Z|
00000e10  2f 69 25 3d a7 74 24 2c  22 2c 22 29 3a 70 74 72  |/i%=.t$,","):ptr|
00000e20  25 21 31 32 3d a0 c0 74  24 2c 69 25 2d 31 29 3a  |%!12=..t$,i%-1):|
00000e30  74 24 3d c1 74 24 2c 69  25 2b 31 29 0d 05 64 0e  |t$=.t$,i%+1)..d.|
00000e40  70 74 72 25 21 31 36 3d  2d 31 0d 05 6e 1c 70 74  |ptr%!16=-1..n.pt|
00000e50  72 25 21 32 30 3d a0 c0  74 24 2c a7 74 24 2c 22  |r%!20=..t$,.t$,"|
00000e60  7c 22 29 2d 31 29 0d 05  78 28 6d 62 25 21 31 36  ||")-1)..x(mb%!16|
00000e70  3d a4 67 72 65 61 74 65  72 28 6d 62 25 21 31 36  |=.greater(mb%!16|
00000e80  2c 34 2b 31 36 2a 70 74  72 25 21 32 30 29 0d 05  |,4+16*ptr%!20)..|
00000e90  82 05 cc 0d 05 8c 0f e7  20 67 25 2d 31 3e 31 32  |........ g%-1>12|
00000ea0  20 8c 0d 05 96 13 21 28  70 74 72 25 2b 31 32 29  | .....!(ptr%+12)|
00000eb0  3d 69 6e 64 25 0d 05 a0  1c 24 69 6e 64 25 3d c0  |=ind%....$ind%=.|
00000ec0  74 24 2c 67 25 2d 31 29  3a 69 6e 64 25 2b 3d 67  |t$,g%-1):ind%+=g|
00000ed0  25 0d 05 aa 10 21 28 70  74 72 25 2b 31 36 29 3d  |%....!(ptr%+16)=|
00000ee0  30 0d 05 b4 11 21 28 70  74 72 25 2b 32 30 29 3d  |0....!(ptr%+20)=|
00000ef0  67 25 0d 05 be 11 69 6e  64 69 72 65 63 74 65 64  |g%....indirected|
00000f00  25 3d 31 0d 05 c8 05 cc  0d 05 d2 11 69 6e 64 69  |%=1.........indi|
00000f10  72 65 63 74 65 64 25 3d  a3 0d 05 dc 18 24 28 70  |rected%=.....$(p|
00000f20  74 72 25 2b 31 32 29 3d  c0 74 24 2c 67 25 2d 31  |tr%+12)=.t$,g%-1|
00000f30  29 0d 05 e6 05 cd 0d 05  f0 23 6d 62 25 21 31 36  |)........#mb%!16|
00000f40  3d a4 67 72 65 61 74 65  72 28 6d 62 25 21 31 36  |=.greater(mb%!16|
00000f50  2c 67 25 2a 31 36 2d 38  29 0d 05 fa 05 cd 0d 06  |,g%*16-8).......|
00000f60  04 10 74 24 3d c1 74 24  2c 67 25 2b 31 29 0d 06  |..t$=.t$,g%+1)..|
00000f70  0e 37 21 70 74 72 25 3d  74 69 63 6b 25 20 84 20  |.7!ptr%=tick% . |
00000f80  64 6f 74 74 65 64 25 20  84 20 77 72 69 74 61 62  |dotted% . writab|
00000f90  6c 65 25 20 84 20 28 26  38 30 20 80 20 28 74 24  |le% . (&80 . (t$|
00000fa0  3d 22 22 29 29 0d 06 18  13 70 74 72 25 21 34 3d  |=""))....ptr%!4=|
00000fb0  73 75 62 6d 65 6e 75 25  0d 06 22 4a 70 74 72 25  |submenu%.."Jptr%|
00000fc0  21 38 3d 26 31 30 30 32  31 20 84 20 73 68 61 64  |!8=&10021 . shad|
00000fd0  65 25 20 84 20 77 72 69  74 61 62 6c 65 25 3c 3c  |e% . writable%<<|
00000fe0  36 20 84 20 30 3c 3c 32  38 20 84 20 37 3c 3c 32  |6 . 0<<28 . 7<<2|
00000ff0  34 20 84 20 69 6e 64 69  72 65 63 74 65 64 25 3c  |4 . indirected%<|
00001000  3c 38 0d 06 2c 0c 70 74  72 25 2b 3d 32 34 0d 06  |<8..,.ptr%+=24..|
00001010  36 0a fd 74 24 3d 22 22  0d 06 40 08 3d 6d 62 25  |6..t$=""..@.=mb%|
00001020  0d 06 4a 27 dd 20 a4 67  72 65 61 74 65 72 28 61  |..J'. .greater(a|
00001030  25 2c 62 25 29 3a e7 20  61 25 3e 62 25 20 3d 61  |%,b%):. a%>b% =a|
00001040  25 20 8b 20 3d 62 25 0d  06 54 17 dd f2 6d 6f 75  |% . =b%..T...mou|
00001050  73 65 63 6c 69 63 6b 28  62 6c 6f 63 6b 29 0d 06  |seclick(block)..|
00001060  5e 1c ea 20 62 75 74 74  6f 6e 73 25 2c 77 69 6e  |^.. buttons%,win|
00001070  64 6f 77 25 2c 69 63 6f  6e 25 0d 06 68 0b ea 20  |dow%,icon%..h.. |
00001080  78 25 2c 79 25 0d 06 72  14 62 75 74 74 6f 6e 73  |x%,y%..r.buttons|
00001090  25 3d 62 6c 6f 63 6b 21  38 0d 06 7c 14 77 69 6e  |%=block!8..|.win|
000010a0  64 6f 77 25 3d 62 6c 6f  63 6b 21 31 32 0d 06 86  |dow%=block!12...|
000010b0  12 69 63 6f 6e 25 3d 62  6c 6f 63 6b 21 31 36 0d  |.icon%=block!16.|
000010c0  06 90 10 c8 8e 20 77 69  6e 64 6f 77 25 20 ca 0d  |..... window% ..|
000010d0  06 9a 1c c9 20 2d 32 3a  f4 20 43 6c 69 63 6b 20  |.... -2:. Click |
000010e0  6f 6e 20 69 63 6f 6e 20  62 61 72 0d 06 a4 26 e7  |on icon bar...&.|
000010f0  20 62 75 74 74 6f 6e 73  25 3d 32 20 80 20 69 63  | buttons%=2 . ic|
00001100  6f 6e 25 3d 69 63 6f 6e  68 61 6e 64 6c 65 25 20  |on%=iconhandle% |
00001110  8c 0d 06 ae 19 78 25 3d  62 6c 6f 63 6b 21 30 3a  |.....x%=block!0:|
00001120  79 25 3d 62 6c 6f 63 6b  21 34 0d 06 b8 31 c8 99  |y%=block!4...1..|
00001130  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
00001140  22 2c 2c 6d 65 6e 75 62  6c 6f 63 6b 25 2c 78 25  |",,menublock%,x%|
00001150  2d 36 34 2c 39 36 2b 34  2a 34 34 0d 06 c2 05 cd  |-64,96+4*44.....|
00001160  0d 06 cc 26 e7 20 62 75  74 74 6f 6e 73 25 3d 34  |...&. buttons%=4|
00001170  20 80 20 69 63 6f 6e 25  3d 69 63 6f 6e 68 61 6e  | . icon%=iconhan|
00001180  64 6c 65 25 20 8c 0d 06  d6 12 e7 20 70 6c 61 79  |dle% ...... play|
00001190  69 6e 67 25 3d a3 20 8c  0d 06 e0 0e 70 6c 61 79  |ing%=. .....play|
000011a0  69 6e 67 25 3d b9 0d 06  ea 24 f2 63 72 65 61 74  |ing%=....$.creat|
000011b0  65 6d 61 7a 65 28 6d 61  7a 65 73 69 7a 65 25 2c  |emaze(mazesize%,|
000011c0  6d 61 7a 65 73 69 7a 65  25 29 0d 06 f4 51 6d 65  |mazesize%)...Qme|
000011d0  6e 75 24 3d 22 30 35 4d  61 7a 65 7c 5b 69 6e 66  |nu$="05Maze|[inf|
000011e0  6f 25 5d 49 6e 66 6f 7c  5b 73 69 7a 65 24 5d 2a  |o%]Info|[size$]*|
000011f0  53 69 7a 65 7c 5b 64 69  66 66 69 63 75 6c 74 79  |Size|[difficulty|
00001200  24 5d 2a 44 69 66 66 69  63 75 6c 74 79 7c 47 69  |$]*Difficulty|Gi|
00001210  76 65 20 55 70 7c 51 75  69 74 22 0d 06 fe 31 64  |ve Up|Quit"...1d|
00001220  75 6d 6d 79 25 3d a4 63  72 65 61 74 65 6d 65 6e  |ummy%=.createmen|
00001230  75 28 6d 65 6e 75 62 6c  6f 63 6b 25 2c 6d 65 6e  |u(menublock%,men|
00001240  75 69 6e 64 25 2c 6d 65  6e 75 24 29 0d 07 08 05  |uind%,menu$)....|
00001250  cd 0d 07 12 05 cd 0d 07  1c 05 cb 0d 07 26 05 e1  |.............&..|
00001260  0d 07 30 10 dd f2 64 65  63 6f 64 65 6d 65 6e 75  |..0...decodemenu|
00001270  0d 07 3a 0e ea 20 62 75  74 74 6f 6e 73 25 0d 07  |..:.. buttons%..|
00001280  44 23 c8 99 22 57 69 6d  70 5f 47 65 74 50 6f 69  |D#.."Wimp_GetPoi|
00001290  6e 74 65 72 49 6e 66 6f  22 2c 2c 62 6c 6f 63 6b  |nterInfo",,block|
000012a0  32 0d 07 4e 15 62 75 74  74 6f 6e 73 25 3d 62 6c  |2..N.buttons%=bl|
000012b0  6f 63 6b 32 21 38 0d 07  58 31 c8 99 22 57 69 6d  |ock2!8..X1.."Wim|
000012c0  70 5f 44 65 63 6f 64 65  4d 65 6e 75 22 2c 2c 6d  |p_DecodeMenu",,m|
000012d0  65 6e 75 62 6c 6f 63 6b  25 2c 62 6c 6f 63 6b 31  |enublock%,block1|
000012e0  2c 62 6c 6f 63 6b 32 0d  07 62 10 c8 8e 20 24 62  |,block2..b... $b|
000012f0  6c 6f 63 6b 32 20 ca 0d  07 6c 0d c9 20 22 51 75  |lock2 ...l.. "Qu|
00001300  69 74 22 3a 0d 07 76 0a  71 75 69 74 3d b9 0d 07  |it":..v.quit=...|
00001310  80 4d c9 22 53 69 7a 65  2e 53 6d 61 6c 6c 22 3a  |.M."Size.Small":|
00001320  6d 61 7a 65 73 69 7a 65  25 3d 31 30 3a 73 69 7a  |mazesize%=10:siz|
00001330  65 24 3d 22 30 34 53 69  7a 65 7c 23 53 6d 61 6c  |e$="04Size|#Smal|
00001340  6c 7c 4d 65 64 69 75 6d  7c 4c 61 72 67 65 7c 49  |l|Medium|Large|I|
00001350  6d 70 6f 73 73 69 62 6c  65 7c 22 0d 07 8a 4e c9  |mpossible|"...N.|
00001360  22 53 69 7a 65 2e 4d 65  64 69 75 6d 22 3a 6d 61  |"Size.Medium":ma|
00001370  7a 65 73 69 7a 65 25 3d  32 35 3a 73 69 7a 65 24  |zesize%=25:size$|
00001380  3d 22 30 34 53 69 7a 65  7c 53 6d 61 6c 6c 7c 23  |="04Size|Small|#|
00001390  4d 65 64 69 75 6d 7c 4c  61 72 67 65 7c 49 6d 70  |Medium|Large|Imp|
000013a0  6f 73 73 69 62 6c 65 7c  22 0d 07 94 4d c9 22 53  |ossible|"...M."S|
000013b0  69 7a 65 2e 4c 61 72 67  65 22 3a 6d 61 7a 65 73  |ize.Large":mazes|
000013c0  69 7a 65 25 3d 35 30 3a  73 69 7a 65 24 3d 22 30  |ize%=50:size$="0|
000013d0  34 53 69 7a 65 7c 53 6d  61 6c 6c 7c 4d 65 64 69  |4Size|Small|Medi|
000013e0  75 6d 7c 23 4c 61 72 67  65 7c 49 6d 70 6f 73 73  |um|#Large|Imposs|
000013f0  69 62 6c 65 7c 22 0d 07  9e 53 c9 22 53 69 7a 65  |ible|"...S."Size|
00001400  2e 49 6d 70 6f 73 73 69  62 6c 65 22 3a 6d 61 7a  |.Impossible":maz|
00001410  65 73 69 7a 65 25 3d 31  30 30 3a 73 69 7a 65 24  |esize%=100:size$|
00001420  3d 22 30 34 53 69 7a 65  7c 53 6d 61 6c 6c 7c 4d  |="04Size|Small|M|
00001430  65 64 69 75 6d 7c 4c 61  72 67 65 7c 23 49 6d 70  |edium|Large|#Imp|
00001440  6f 73 73 69 62 6c 65 7c  22 0d 07 a8 51 c9 20 22  |ossible|"...Q. "|
00001450  44 69 66 66 69 63 75 6c  74 79 2e 45 61 73 79 22  |Difficulty.Easy"|
00001460  3a 73 63 61 6c 65 25 3d  32 3a 64 69 66 66 69 63  |:scale%=2:diffic|
00001470  75 6c 74 79 24 3d 22 30  33 44 69 66 66 69 63 75  |ulty$="03Difficu|
00001480  6c 74 79 7c 23 45 61 73  79 7c 48 61 72 64 7c 56  |lty|#Easy|Hard|V|
00001490  65 72 79 20 48 61 72 64  7c 22 0d 07 b2 51 c9 20  |ery Hard|"...Q. |
000014a0  22 44 69 66 66 69 63 75  6c 74 79 2e 48 61 72 64  |"Difficulty.Hard|
000014b0  22 3a 73 63 61 6c 65 25  3d 33 3a 64 69 66 66 69  |":scale%=3:diffi|
000014c0  63 75 6c 74 79 24 3d 22  30 33 44 69 66 66 69 63  |culty$="03Diffic|
000014d0  75 6c 74 79 7c 45 61 73  79 7c 23 48 61 72 64 7c  |ulty|Easy|#Hard||
000014e0  56 65 72 79 20 48 61 72  64 7c 22 0d 07 bc 56 c9  |Very Hard|"...V.|
000014f0  20 22 44 69 66 66 69 63  75 6c 74 79 2e 56 65 72  | "Difficulty.Ver|
00001500  79 20 48 61 72 64 22 3a  73 63 61 6c 65 25 3d 34  |y Hard":scale%=4|
00001510  3a 64 69 66 66 69 63 75  6c 74 79 24 3d 22 30 33  |:difficulty$="03|
00001520  44 69 66 66 69 63 75 6c  74 79 7c 45 61 73 79 7c  |Difficulty|Easy||
00001530  48 61 72 64 7c 23 56 65  72 79 20 48 61 72 64 7c  |Hard|#Very Hard||
00001540  22 0d 07 bd 0f c9 20 22  47 69 76 65 20 55 70 22  |"..... "Give Up"|
00001550  0d 07 be 11 ef 37 3a 70  6c 61 79 69 6e 67 25 3d  |.....7:playing%=|
00001560  a3 0d 07 bf 0c f2 6e 65  77 67 61 6d 65 0d 07 c0  |......newgame...|
00001570  4f 6d 65 6e 75 24 3d 22  30 35 4d 61 7a 65 7c 5b  |Omenu$="05Maze|[|
00001580  69 6e 66 6f 25 5d 49 6e  66 6f 7c 5b 73 69 7a 65  |info%]Info|[size|
00001590  24 5d 53 69 7a 65 7c 5b  64 69 66 66 69 63 75 6c  |$]Size|[difficul|
000015a0  74 79 24 5d 44 69 66 66  69 63 75 6c 74 79 7c 47  |ty$]Difficulty|G|
000015b0  69 76 65 20 55 70 7c 51  75 69 74 22 0d 07 c1 31  |ive Up|Quit"...1|
000015c0  64 75 6d 6d 79 25 3d a4  63 72 65 61 74 65 6d 65  |dummy%=.createme|
000015d0  6e 75 28 6d 65 6e 75 62  6c 6f 63 6b 25 2c 6d 65  |nu(menublock%,me|
000015e0  6e 75 69 6e 64 25 2c 6d  65 6e 75 24 29 0d 07 c6  |nuind%,menu$)...|
000015f0  05 cb 0d 07 d0 31 64 75  6d 6d 79 25 3d a4 63 72  |.....1dummy%=.cr|
00001600  65 61 74 65 6d 65 6e 75  28 6d 65 6e 75 62 6c 6f  |eatemenu(menublo|
00001610  63 6b 25 2c 6d 65 6e 75  69 6e 64 25 2c 6d 65 6e  |ck%,menuind%,men|
00001620  75 24 29 0d 07 da 1a e7  20 ac 70 6c 61 79 69 6e  |u$)..... .playin|
00001630  67 25 20 8c 20 f2 6e 65  77 67 61 6d 65 0d 07 e4  |g% . .newgame...|
00001640  36 e7 20 62 75 74 74 6f  6e 73 25 3d 31 20 8c 20  |6. buttons%=1 . |
00001650  c8 99 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |.."Wimp_CreateMe|
00001660  6e 75 22 2c 2c 6d 65 6e  75 62 6c 6f 63 6b 25 2c  |nu",,menublock%,|
00001670  30 2c 30 0d 07 ee 05 e1  0d 07 f8 0d dd f2 6e 65  |0,0...........ne|
00001680  77 67 61 6d 65 0d 08 02  27 78 25 3d 73 63 61 6c  |wgame...'x%=scal|
00001690  65 25 2a 34 3a 79 25 3d  6d 61 7a 65 73 69 7a 65  |e%*4:y%=mazesize|
000016a0  25 2a 73 63 61 6c 65 25  2a 38 2d 34 0d 08 0c 05  |%*scale%*8-4....|
000016b0  e1 0d 08 16 0a dd f2 64  72 61 77 0d 08 20 40 c8  |.......draw.. @.|
000016c0  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 36  |."OS_SpriteOp",6|
000016d0  30 2b 35 31 32 2c 73 70  72 69 74 65 61 72 65 61  |0+512,spritearea|
000016e0  25 2c 67 61 6d 65 69 63  6f 6e 25 2c 30 20 b8 20  |%,gameicon%,0 . |
000016f0  72 30 2c 72 31 2c 72 32  2c 72 33 0d 08 2a 32 f4  |r0,r1,r2,r3..*2.|
00001700  20 78 25 2c 79 25 3a 43  6f 6f 72 64 69 6e 61 74  | x%,y%:Coordinat|
00001710  65 73 20 6f 66 20 74 68  69 6e 67 20 69 6e 20 6d  |es of thing in m|
00001720  61 7a 65 20 69 6e 20 70  69 78 65 6c 73 0d 08 34  |aze in pixels..4|
00001730  0d e6 20 37 2b 31 32 38  3a da 0d 08 3e 2a 21 73  |.. 7+128:...>*!s|
00001740  63 61 6c 65 62 6c 6f 63  6b 3d 73 63 61 6c 65 25  |caleblock=scale%|
00001750  3a 73 63 61 6c 65 62 6c  6f 63 6b 21 34 3d 73 63  |:scaleblock!4=sc|
00001760  61 6c 65 25 0d 08 48 22  73 63 61 6c 65 62 6c 6f  |ale%..H"scaleblo|
00001770  63 6b 21 38 3d 31 3a 73  63 61 6c 65 62 6c 6f 63  |ck!8=1:scalebloc|
00001780  6b 21 31 32 3d 31 0d 08  52 4a c8 99 22 4f 53 5f  |k!12=1..RJ.."OS_|
00001790  53 70 72 69 74 65 4f 70  22 2c 35 31 32 2b 35 32  |SpriteOp",512+52|
000017a0  2c 73 70 72 69 74 65 61  72 65 61 25 2c 74 68 65  |,spritearea%,the|
000017b0  6d 61 7a 65 25 2c 33 34  2d 78 25 2c 33 34 2d 79  |maze%,34-x%,34-y|
000017c0  25 2c 30 2c 73 63 61 6c  65 62 6c 6f 63 6b 2c 30  |%,0,scaleblock,0|
000017d0  0d 08 5c 07 e6 31 31 0d  08 66 0f c8 92 20 31 35  |..\..11..f... 15|
000017e0  2a 32 2c 38 2a 34 0d 08  70 0f c8 92 20 31 36 2a  |*2,8*4..p... 16*|
000017f0  32 2c 38 2a 34 0d 08 7a  1f c8 99 22 4f 53 5f 53  |2,8*4..z..."OS_S|
00001800  70 72 69 74 65 4f 70 22  2c 72 30 2c 72 31 2c 72  |priteOp",r0,r1,r|
00001810  32 2c 72 33 0d 08 84 3a  21 62 6c 6f 63 6b 31 3d  |2,r3...:!block1=|
00001820  2d 31 3a 62 6c 6f 63 6b  31 21 34 3d 69 63 6f 6e  |-1:block1!4=icon|
00001830  68 61 6e 64 6c 65 25 3a  62 6c 6f 63 6b 31 21 38  |handle%:block1!8|
00001840  3d 30 3a 62 6c 6f 63 6b  31 21 31 32 3d 30 0d 08  |=0:block1!12=0..|
00001850  8e 21 c8 99 22 57 69 6d  70 5f 53 65 74 49 63 6f  |.!.."Wimp_SetIco|
00001860  6e 53 74 61 74 65 22 2c  2c 62 6c 6f 63 6b 31 0d  |nState",,block1.|
00001870  08 98 05 e1 0d 08 a2 0a  dd f2 70 6c 61 79 0d 08  |..........play..|
00001880  ac 09 f2 64 72 61 77 0d  08 b6 0f c8 97 20 58 25  |...draw...... X%|
00001890  2c 59 25 2c 5a 25 0d 08  c0 10 74 78 25 3d 31 35  |,Y%,Z%....tx%=15|
000018a0  3a 74 79 25 3d 38 0d 08  d4 27 e7 20 58 25 3e 38  |:ty%=8...'. X%>8|
000018b0  30 30 20 8c 20 f2 6d 6f  76 65 28 78 25 2c 79 25  |00 . .move(x%,y%|
000018c0  2c 74 78 25 2c 74 79 25  2c 32 2c 30 29 0d 08 de  |,tx%,ty%,2,0)...|
000018d0  28 e7 20 58 25 3c 34 30  30 20 8c 20 f2 6d 6f 76  |(. X%<400 . .mov|
000018e0  65 28 78 25 2c 79 25 2c  74 78 25 2c 74 79 25 2c  |e(x%,y%,tx%,ty%,|
000018f0  2d 31 2c 30 29 0d 08 e8  27 e7 20 59 25 3e 37 30  |-1,0)...'. Y%>70|
00001900  30 20 8c 20 f2 6d 6f 76  65 28 78 25 2c 79 25 2c  |0 . .move(x%,y%,|
00001910  74 78 25 2c 74 79 25 2c  30 2c 31 29 0d 08 f2 28  |tx%,ty%,0,1)...(|
00001920  e7 20 59 25 3c 33 30 30  20 8c 20 f2 6d 6f 76 65  |. Y%<300 . .move|
00001930  28 78 25 2c 79 25 2c 74  78 25 2c 74 79 25 2c 30  |(x%,y%,tx%,ty%,0|
00001940  2c 2d 31 29 0d 08 fc 47  c8 99 22 4f 53 5f 53 70  |,-1)...G.."OS_Sp|
00001950  72 69 74 65 4f 70 22 2c  35 31 32 2b 34 31 2c 73  |riteOp",512+41,s|
00001960  70 72 69 74 65 61 72 65  61 25 2c 67 61 6d 65 69  |pritearea%,gamei|
00001970  63 6f 6e 25 2c 74 78 25  2c 74 79 25 20 b8 20 2c  |con%,tx%,ty% . ,|
00001980  2c 2c 2c 2c 63 6f 6c 6f  75 72 25 0d 09 10 12 e7  |,,,,colour%.....|
00001990  20 63 6f 6c 6f 75 72 25  3d 31 30 20 8c 0d 09 1a  | colour%=10 ....|
000019a0  11 ef 37 3a 70 6c 61 79  69 6e 67 25 3d a3 0d 09  |..7:playing%=...|
000019b0  1f 39 f2 65 72 72 6f 72  28 22 57 65 6c 6c 20 44  |.9.error("Well D|
000019c0  6f 6e 65 2e 20 59 6f 75  20 68 61 76 65 20 66 69  |one. You have fi|
000019d0  6e 69 73 68 65 64 20 74  68 69 73 20 6d 61 7a 65  |nished this maze|
000019e0  21 22 2c 30 2c 31 29 0d  09 24 0c f2 6e 65 77 67  |!",0,1)..$..newg|
000019f0  61 6d 65 0d 09 2e 4f 6d  65 6e 75 24 3d 22 30 35  |ame...Omenu$="05|
00001a00  4d 61 7a 65 7c 5b 69 6e  66 6f 25 5d 49 6e 66 6f  |Maze|[info%]Info|
00001a10  7c 5b 73 69 7a 65 24 5d  53 69 7a 65 7c 5b 64 69  ||[size$]Size|[di|
00001a20  66 66 69 63 75 6c 74 79  24 5d 44 69 66 66 69 63  |fficulty$]Diffic|
00001a30  75 6c 74 79 7c 47 69 76  65 20 55 70 7c 51 75 69  |ulty|Give Up|Qui|
00001a40  74 22 0d 09 38 31 64 75  6d 6d 79 25 3d a4 63 72  |t"..81dummy%=.cr|
00001a50  65 61 74 65 6d 65 6e 75  28 6d 65 6e 75 62 6c 6f  |eatemenu(menublo|
00001a60  63 6b 25 2c 6d 65 6e 75  69 6e 64 25 2c 6d 65 6e  |ck%,menuind%,men|
00001a70  75 24 29 0d 09 42 05 cd  0d 09 4c 05 e1 0d 09 56  |u$)..B....L....V|
00001a80  1f dd f2 63 72 65 61 74  65 6d 61 7a 65 28 78 73  |...createmaze(xs|
00001a90  69 7a 65 25 2c 79 73 69  7a 65 25 29 0d 09 60 14  |ize%,ysize%)..`.|
00001aa0  c8 99 22 48 6f 75 72 67  6c 61 73 73 5f 4f 6e 22  |.."Hourglass_On"|
00001ab0  0d 09 6a 1b ea 20 58 25  2c 59 25 2c 78 78 25 2c  |..j.. X%,Y%,xx%,|
00001ac0  79 79 25 2c 64 78 25 2c  64 79 25 0d 09 74 3f c8  |yy%,dx%,dy%..t?.|
00001ad0  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 36  |."OS_SpriteOp",6|
00001ae0  30 2b 35 31 32 2c 73 70  72 69 74 65 61 72 65 61  |0+512,spritearea|
00001af0  25 2c 74 68 65 6d 61 7a  65 25 2c 30 20 b8 20 72  |%,themaze%,0 . r|
00001b00  30 2c 72 31 2c 72 32 2c  72 33 0d 09 7e 0c e6 37  |0,r1,r2,r3..~..7|
00001b10  2b 31 32 38 3a da 0d 09  88 07 e6 20 30 0d 09 92  |+128:...... 0...|
00001b20  19 58 25 3d 31 3a 59 25  3d 31 3a 78 6d 25 3d 32  |.X%=1:Y%=1:xm%=2|
00001b30  3a 79 6d 25 3d 32 0d 09  9c 0f f2 70 6f 69 6e 74  |:ym%=2.....point|
00001b40  28 32 2c 32 29 0d 09 a6  21 e3 20 73 71 75 61 72  |(2,2)...!. squar|
00001b50  65 25 3d 31 20 b8 20 78  73 69 7a 65 25 2a 79 73  |e%=1 . xsize%*ys|
00001b60  69 7a 65 25 2d 31 0d 09  b0 3c c8 99 22 48 6f 75  |ize%-1...<.."Hou|
00001b70  72 67 6c 61 73 73 5f 50  65 72 63 65 6e 74 61 67  |rglass_Percentag|
00001b80  65 22 2c 28 73 71 75 61  72 65 25 2f 28 78 73 69  |e",(square%/(xsi|
00001b90  7a 65 25 2a 79 73 69 7a  65 25 2d 31 29 2a 31 30  |ze%*ysize%-1)*10|
00001ba0  30 29 0d 09 ba 05 f5 0d  09 c4 09 6f 6b 25 3d b9  |0).........ok%=.|
00001bb0  0d 09 ce 05 f5 0d 09 d8  13 64 69 72 65 63 74 69  |.........directi|
00001bc0  6f 6e 25 3d b3 28 34 29  0d 09 e2 13 c8 8e 20 64  |on%=.(4)...... d|
00001bd0  69 72 65 63 74 69 6f 6e  25 20 ca 0d 09 ec 13 c9  |irection% ......|
00001be0  20 31 3a 64 78 25 3d 30  3a 64 79 25 3d 31 0d 09  | 1:dx%=0:dy%=1..|
00001bf0  f6 13 c9 20 32 3a 64 78  25 3d 31 3a 64 79 25 3d  |... 2:dx%=1:dy%=|
00001c00  30 0d 0a 00 14 c9 20 33  3a 64 78 25 3d 30 3a 64  |0..... 3:dx%=0:d|
00001c10  79 25 3d 2d 31 0d 0a 0a  14 c9 20 34 3a 64 78 25  |y%=-1..... 4:dx%|
00001c20  3d 2d 31 3a 64 79 25 3d  30 0d 0a 14 05 cb 0d 0a  |=-1:dy%=0.......|
00001c30  1e 0e 78 78 25 3d 58 25  2b 64 78 25 0d 0a 28 0e  |..xx%=X%+dx%..(.|
00001c40  79 79 25 3d 59 25 2b 64  79 25 0d 0a 32 2f fd 20  |yy%=Y%+dy%..2/. |
00001c50  78 78 25 3e 30 20 80 20  78 78 25 3c 3d 78 73 69  |xx%>0 . xx%<=xsi|
00001c60  7a 65 25 20 80 20 79 79  25 3e 30 20 80 20 79 79  |ze% . yy%>0 . yy|
00001c70  25 3c 3d 79 73 69 7a 65  25 0d 0a 3c 1d e7 20 a4  |%<=ysize%..<.. .|
00001c80  70 6f 69 6e 74 28 78 78  25 2a 32 2c 79 79 25 2a  |point(xx%*2,yy%*|
00001c90  32 29 3d 30 20 8c 0d 0a  46 09 6f 6b 25 3d a3 0d  |2)=0 ...F.ok%=..|
00001ca0  0a 50 05 f5 0d 0a 5a 17  58 25 3d b3 28 78 6d 25  |.P....Z.X%=.(xm%|
00001cb0  29 3a 59 25 3d b3 28 79  6d 25 29 0d 0a 64 18 fd  |):Y%=.(ym%)..d..|
00001cc0  a4 70 6f 69 6e 74 28 58  25 2a 32 2c 59 25 2a 32  |.point(X%*2,Y%*2|
00001cd0  29 3d 30 0d 0a 6e 05 cd  0d 0a 78 09 fd 20 6f 6b  |)=0..n....x.. ok|
00001ce0  25 0d 0a 82 0e e3 20 49  25 3d 31 20 b8 20 32 0d  |%..... I%=1 . 2.|
00001cf0  0a 8c 23 f2 70 6f 69 6e  74 28 58 25 2a 32 2b 49  |..#.point(X%*2+I|
00001d00  25 2a 64 78 25 2c 59 25  2a 32 2b 49 25 2a 64 79  |%*dx%,Y%*2+I%*dy|
00001d10  25 29 0d 0a 96 05 ed 0d  0a a0 0a 58 25 3d 78 78  |%).........X%=xx|
00001d20  25 0d 0a aa 0a 59 25 3d  79 79 25 0d 0a b4 13 e7  |%....Y%=yy%.....|
00001d30  20 58 25 3e 78 6d 25 20  78 6d 25 3d 58 25 0d 0a  | X%>xm% xm%=X%..|
00001d40  be 13 e7 20 59 25 3e 79  6d 25 20 79 6d 25 3d 59  |... Y%>ym% ym%=Y|
00001d50  25 0d 0a c8 05 ed 0d 0a  d2 27 e6 31 30 3a f2 70  |%........'.10:.p|
00001d60  6f 69 6e 74 28 b3 28 78  73 69 7a 65 25 2a 32 29  |oint(.(xsize%*2)|
00001d70  2c b3 28 79 73 69 7a 65  25 2a 32 29 29 0d 0a dc  |,.(ysize%*2))...|
00001d80  1f c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |..."OS_SpriteOp"|
00001d90  2c 72 30 2c 72 31 2c 72  32 2c 72 33 0d 0a e6 15  |,r0,r1,r2,r3....|
00001da0  c8 99 22 48 6f 75 72 67  6c 61 73 73 5f 4f 66 66  |.."Hourglass_Off|
00001db0  22 0d 0a f0 05 e1 0d 0a  fa 12 dd f2 70 6f 69 6e  |"...........poin|
00001dc0  74 28 78 25 2c 79 25 29  0d 0b 04 14 c8 92 20 78  |t(x%,y%)...... x|
00001dd0  25 2a 34 2d 34 2c 79 25  2a 34 2d 34 0d 0b 0e 14  |%*4-4,y%*4-4....|
00001de0  c8 92 20 78 25 2a 34 2d  32 2c 79 25 2a 34 2d 34  |.. x%*4-2,y%*4-4|
00001df0  0d 0b 18 05 e1 0d 0b 22  12 dd a4 70 6f 69 6e 74  |......."...point|
00001e00  28 78 25 2c 79 25 29 0d  0b 2c 14 3d b0 78 25 2a  |(x%,y%)..,.=.x%*|
00001e10  34 2d 34 2c 79 25 2a 34  2d 34 29 0d 0b b8 29 dd  |4-4,y%*4-4)...).|
00001e20  f2 6d 6f 76 65 28 f8 20  78 25 2c f8 20 79 25 2c  |.move(. x%,. y%,|
00001e30  f8 20 74 78 25 2c f8 20  74 79 25 2c 6d 78 25 2c  |. tx%,. ty%,mx%,|
00001e40  6d 79 25 29 0d 0b c2 4c  c8 99 22 4f 53 5f 53 70  |my%)...L.."OS_Sp|
00001e50  72 69 74 65 4f 70 22 2c  35 31 32 2b 34 31 2c 73  |riteOp",512+41,s|
00001e60  70 72 69 74 65 61 72 65  61 25 2c 67 61 6d 65 69  |pritearea%,gamei|
00001e70  63 6f 6e 25 2c 74 78 25  2b 6d 78 25 2c 74 79 25  |con%,tx%+mx%,ty%|
00001e80  2b 6d 79 25 20 b8 20 2c  2c 2c 2c 2c 63 6f 6c 25  |+my% . ,,,,,col%|
00001e90  0d 0b cc 18 e7 20 63 6f  6c 25 3d 30 20 84 20 63  |..... col%=0 . c|
00001ea0  6f 6c 25 3d 31 30 20 8c  0d 0b d6 10 78 25 2b 3d  |ol%=10 .....x%+=|
00001eb0  b4 28 6d 78 25 29 2a 32  0d 0b e0 10 79 25 2b 3d  |.(mx%)*2....y%+=|
00001ec0  b4 28 6d 79 25 29 2a 32  0d 0b ea 0c 74 78 25 2b  |.(my%)*2....tx%+|
00001ed0  3d 6d 78 25 0d 0b f4 0c  74 79 25 2b 3d 6d 79 25  |=mx%....ty%+=my%|
00001ee0  0d 0b f9 05 cd 0d 0b fe  05 e1 0d ff              |............|
00001eec