�><Shoot$Dir>.!RunImage
�
-� Basic Shell for any RISC OS application
(� By Lee McGinty 1990
2�
<� This App -
F
� By -
P� Written -
Z�shellinit
d)� � �error(�$+" ("+Þ+")",�,3):� �tV@
x�loadtemplates
�+menu$="02Shoot Em Up|[info%]Info|Quit|"
�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

,� 8:� Key Pressed

6� 9:� Menu selection

@�decodemenu

J� 10:� Scroll request

T� 11:� Lose caret

^� 12:� Gain caret

h� 17,18,19:� message

r�receive(block1)

|�

�
� quit

�ș"Wimp_CloseDown"

��

���shellinit

�program$="Shoot 'Em Up"

�� 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

�� spritearea% 1024

�!spritearea%=1024
spritearea%!8=16
%ș"OS_SpriteOp",9+256,spritearea%
<ș"OS_SpriteOp",10+256,spritearea%,"<Shoot$Dir>.Sprites"
&;ș"OS_SpriteOp",24+256,spritearea%,"alien1" � ,,alien1%
0;ș"OS_SpriteOp",24+256,spritearea%,"alien2" � ,,alien2%
:;ș"OS_SpriteOp",24+256,spritearea%,"alien3" � ,,alien3%
D7ș"OS_SpriteOp",24+256,spritearea%,"ship" � ,,ship%
I?ș"OS_SpriteOp",24+256,spritearea%,"gameicon" � ,,gameicon%
N
quit=�
X� alive%(8,3)
b� line%(3)
l�newgame
� purpose$="Icon bar invaders"
� author$="� 1991 Lee McGinty"
�version$="1.0 (6-May-1991)"
�block1!0=-1
�block1!4=0
�block1!8=0
�block1!12=112
�block1!16=68
�block1!20=%11000100011010
�block1!24=gameicon%
�block1!28=spritearea%
�block1!32=0
�-ș"Wimp_CreateIcon",,block1 � iconhandle%
playing%=�
level%=0
�
��loadtemplates
 2ș"Wimp_OpenTemplate",,"<Shoot$Dir>.Templates"
*gș"Wimp_LoadTemplate",,templateblock%,tempindirect%,tempindirect%+indsize%,-1,"info",0 � ,,nextind%
41ș"Wimp_CreateWindow",,templateblock% � info%
>#$(�iconaddr(info%,15))=version$
H"$(�iconaddr(info%,2))=program$
R"$(�iconaddr(info%,9))=purpose$
\"$(�iconaddr(info%,12))=author$
f� next template
�ș"Wimp_CloseTemplate"
��
�ݤiconaddr(handle,icon)
� !block1=handle:block1!4=icon
�!ș"Wimp_GetIconState",,block1
�=block1!28
���error(error$,err,flags%)
��7
�8!block2=err:$(block2+4)=error$:?(block2+4+�error$)=0
�7ș"Wimp_ReportError",block2,flags%,program$ � ,res%
�� res%=1 � �
��
��
���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%
hbuttons%=block!8
rwindow%=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+2*44
��
�&� buttons%=4 � icon%=iconhandle% �
�&� playing%=� � playing%=�:level%=0
��
��
��
���decodemenu
�� buttons%
�#ș"Wimp_GetPointerInfo",,block2
�buttons%=block2!8
�1ș"Wimp_DecodeMenu",,menublock%,block1,block2
Ȏ $block2 �

� "Quit":

quit=�
&�
06� buttons%=1 � ș"Wimp_CreateMenu",,menublock%,0,0
:�
D
��newgame
N� y%=1 � 3
Xline%(y%)=8
b� x%=1 � 8
lalive%(x%,y%)=�
v�
��
�topline%=17
�
shipx%=20
�
firing%=�
�bulletx%=0
�bullety%=0
�direction%=1
�left%=1:right%=8
�
firing%=�
�alienright%=0
��
�
��draw
�@ș"OS_SpriteOp",60+512,spritearea%,gameicon%,0 � r0,r1,r2,r3
�
�7+128
�ȓ Ȑ 0,0,40*2,17*4
��1
�ȓ Ȑ 41*2,0,16*2,17*4
�� x%=1 � 8
� alive%(x%,1) �
Tș"OS_SpriteOp",34+512,spritearea%,alien1%,(x%-1)*8+2*alienright%,(topline%-2)*4
�
 �
*� x%=1 � 8
4� alive%(x%,2) �
>Tș"OS_SpriteOp",34+512,spritearea%,alien2%,(x%-1)*8+2*alienright%,(topline%-5)*4
H�
R�
\� x%=1 � 8
f� alive%(x%,3) �
pTș"OS_SpriteOp",34+512,spritearea%,alien3%,(x%-1)*8+2*alienright%,(topline%-8)*4
z�
��
�7ș"OS_SpriteOp",34+512,spritearea%,ship%,shipx%*2,0
�� firing% �
��9
�Ȓ bulletx%*2,bullety%*4
��
�
�5:�11
�� 41*2,12*4:�;level%
�ș"OS_SpriteOp",r0,r1,r2,r3
�block1!0=-1
�block1!4=iconhandle%
�block1!8=0
�block1!12=0
�!ș"Wimp_SetIconState",,block1
��
	
��play
	ȗ X%,Y%,Z%
	shipx%=X% � 32
	$� firing% �
	.bullety%+=1
	8*alienx%=((bulletx%-alienright%) � 4)+1
	B'alieny%=((topline%-bullety%) � 3)+1
	L9� alieny%>=1 � alieny%<=3 � alienx%>=1 � alienx%<=8 �
	V� alive%(alienx%,alieny%) �
	`alive%(alienx%,alieny%)=�
	jline%(alieny%)-=1
	t
firing%=�
	y�checkedges
	~�
	��
	�� bullety%>=17 � firing%=�
	��
	�
� Z% �
	�
firing%=�
	�bulletx%=shipx%+2
	�bullety%=2
	��
	��
	�.� �(line%(1)+line%(2)+line%(3)-level%)<3 �
	�alienright%+=direction%
	�A� (alienright%+4*(left%-1))<=0 � (alienright%+right%*4)>=40 �
	�direction%=-direction%
topline%-=1

� �atbottom �
�7
�newgame
%playing%=�
(�
2�
7�
<
F,� line%(1)=0 � line%(2)=0 � line%(3)=0 �
P�newgame
U
level%+=1
Z�
d	�draw
n�
�ݤatbottom
�#� line%(3)<>0 � topline%=9 � =�
#� line%(2)<>0 � topline%=6 � =�
� topline%=3 � =�
=�
���checkedges
�� left%<=7 �
��
�
done=�
�Q� alive%(left%,1)=� � alive%(left%,2)=� � alive%(left%,3)=0 � left%+=1:done=�
�� left%=8 � done
��
�� right%>=2 �
��
�
done=�
�U� alive%(right%,1)=� � alive%(right%,2)=� � alive%(right%,3)=� � right%-=1:done=�
�� right%=1 � done
�
�
�

00000000  0d 00 0a 1b f4 3e 3c 53  68 6f 6f 74 24 44 69 72  |.....><Shoot$Dir|
00000010  3e 2e 21 52 75 6e 49 6d  61 67 65 0d 00 14 05 f4  |>.!RunImage.....|
00000020  0d 00 1e 2d f4 20 42 61  73 69 63 20 53 68 65 6c  |...-. Basic Shel|
00000030  6c 20 66 6f 72 20 61 6e  79 20 52 49 53 43 20 4f  |l for any RISC O|
00000040  53 20 61 70 70 6c 69 63  61 74 69 6f 6e 0d 00 28  |S application..(|
00000050  19 f4 20 42 79 20 4c 65  65 20 4d 63 47 69 6e 74  |.. By Lee McGint|
00000060  79 20 31 39 39 30 0d 00  32 05 f4 0d 00 3c 10 f4  |y 1990..2....<..|
00000070  20 54 68 69 73 20 41 70  70 20 2d 0d 00 46 0a f4  | This App -..F..|
00000080  20 42 79 20 2d 0d 00 50  0f f4 20 57 72 69 74 74  | By -..P.. Writt|
00000090  65 6e 20 2d 0d 00 5a 0e  f2 73 68 65 6c 6c 69 6e  |en -..Z..shellin|
000000a0  69 74 0d 00 64 29 ee 20  85 20 f2 65 72 72 6f 72  |it..d). . .error|
000000b0  28 f6 24 2b 22 20 28 22  2b c3 9e 2b 22 29 22 2c  |(.$+" ("+..+")",|
000000c0  9f 2c 33 29 3a e5 20 8d  74 56 40 0d 00 78 12 f2  |.,3):. .tV@..x..|
000000d0  6c 6f 61 64 74 65 6d 70  6c 61 74 65 73 0d 00 82  |loadtemplates...|
000000e0  2b 6d 65 6e 75 24 3d 22  30 32 53 68 6f 6f 74 20  |+menu$="02Shoot |
000000f0  45 6d 20 55 70 7c 5b 69  6e 66 6f 25 5d 49 6e 66  |Em Up|[info%]Inf|
00000100  6f 7c 51 75 69 74 7c 22  0d 00 8c 31 64 75 6d 6d  |o|Quit|"...1dumm|
00000110  79 25 3d a4 63 72 65 61  74 65 6d 65 6e 75 28 6d  |y%=.createmenu(m|
00000120  65 6e 75 62 6c 6f 63 6b  25 2c 6d 65 6e 75 69 6e  |enublock%,menuin|
00000130  64 25 2c 6d 65 6e 75 24  29 0d 00 96 05 f5 0d 00  |d%,menu$).......|
00000140  a0 23 c8 99 22 57 69 6d  70 5f 50 6f 6c 6c 22 2c  |.#.."Wimp_Poll",|
00000150  30 2c 62 6c 6f 63 6b 31  20 b8 20 65 76 65 6e 74  |0,block1 . event|
00000160  25 0d 00 aa 0f c8 8e 20  65 76 65 6e 74 25 20 ca  |%...... event% .|
00000170  0d 00 b4 1a c9 20 30 3a  f4 20 6e 75 6c 6c 20 72  |..... 0:. null r|
00000180  65 61 73 6f 6e 20 63 6f  64 65 0d 00 be 16 e7 20  |eason code..... |
00000190  70 6c 61 79 69 6e 67 25  20 8c 20 f2 70 6c 61 79  |playing% . .play|
000001a0  0d 00 c8 17 c9 20 31 3a  f4 20 72 65 64 72 61 77  |..... 1:. redraw|
000001b0  20 77 69 6e 64 6f 77 0d  00 d2 15 c9 20 32 3a f4  | window..... 2:.|
000001c0  20 4f 70 65 6e 20 77 69  6e 64 6f 77 0d 00 dc 1f  | Open window....|
000001d0  c8 99 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |.."Wimp_OpenWind|
000001e0  6f 77 22 2c 2c 62 6c 6f  63 6b 31 0d 00 e6 16 c9  |ow",,block1.....|
000001f0  20 33 3a f4 20 43 6c 6f  73 65 20 77 69 6e 64 6f  | 3:. Close windo|
00000200  77 0d 00 f0 20 c8 99 22  57 69 6d 70 5f 43 6c 6f  |w... .."Wimp_Clo|
00000210  73 65 57 69 6e 64 6f 77  22 2c 2c 62 6c 6f 63 6b  |seWindow",,block|
00000220  31 0d 00 fa 21 c9 20 34  3a f4 20 50 6f 69 6e 74  |1...!. 4:. Point|
00000230  65 72 20 65 6e 74 65 72  69 6e 67 20 77 69 6e 64  |er entering wind|
00000240  6f 77 0d 01 04 20 c9 20  35 3a f4 20 50 6f 69 6e  |ow... . 5:. Poin|
00000250  74 65 72 20 6c 65 61 76  69 6e 67 20 77 69 6e 64  |ter leaving wind|
00000260  6f 77 0d 01 0e 15 c9 20  36 3a f4 20 4d 6f 75 73  |ow..... 6:. Mous|
00000270  65 20 63 6c 69 63 6b 0d  01 18 17 f2 6d 6f 75 73  |e click.....mous|
00000280  65 63 6c 69 63 6b 28 62  6c 6f 63 6b 31 29 0d 01  |eclick(block1)..|
00000290  22 17 c9 20 37 3a f4 20  55 73 65 72 20 64 72 61  |".. 7:. User dra|
000002a0  67 20 62 6f 78 0d 01 2c  15 c9 20 38 3a f4 20 4b  |g box..,.. 8:. K|
000002b0  65 79 20 50 72 65 73 73  65 64 0d 01 36 18 c9 20  |ey Pressed..6.. |
000002c0  39 3a f4 20 4d 65 6e 75  20 73 65 6c 65 63 74 69  |9:. Menu selecti|
000002d0  6f 6e 0d 01 40 0f f2 64  65 63 6f 64 65 6d 65 6e  |on..@..decodemen|
000002e0  75 0d 01 4a 19 c9 20 31  30 3a f4 20 53 63 72 6f  |u..J.. 10:. Scro|
000002f0  6c 6c 20 72 65 71 75 65  73 74 0d 01 54 15 c9 20  |ll request..T.. |
00000300  31 31 3a f4 20 4c 6f 73  65 20 63 61 72 65 74 0d  |11:. Lose caret.|
00000310  01 5e 15 c9 20 31 32 3a  f4 20 47 61 69 6e 20 63  |.^.. 12:. Gain c|
00000320  61 72 65 74 0d 01 68 18  c9 20 31 37 2c 31 38 2c  |aret..h.. 17,18,|
00000330  31 39 3a f4 20 6d 65 73  73 61 67 65 0d 01 72 14  |19:. message..r.|
00000340  f2 72 65 63 65 69 76 65  28 62 6c 6f 63 6b 31 29  |.receive(block1)|
00000350  0d 01 7c 05 cb 0d 01 86  0a fd 20 71 75 69 74 0d  |..|....... quit.|
00000360  01 90 16 c8 99 22 57 69  6d 70 5f 43 6c 6f 73 65  |....."Wimp_Close|
00000370  44 6f 77 6e 22 0d 01 9a  05 e0 0d 01 a4 0f dd f2  |Down"...........|
00000380  73 68 65 6c 6c 69 6e 69  74 0d 01 a9 1b 70 72 6f  |shellinit....pro|
00000390  67 72 61 6d 24 3d 22 53  68 6f 6f 74 20 27 45 6d  |gram$="Shoot 'Em|
000003a0  20 55 70 22 0d 01 c2 1b  de 20 74 61 73 6b 25 20  | Up"..... task% |
000003b0  34 3a 24 74 61 73 6b 25  3d 22 54 41 53 4b 22 0d  |4:$task%="TASK".|
000003c0  01 c7 2d c8 99 22 57 69  6d 70 5f 49 6e 69 74 69  |..-.."Wimp_Initi|
000003d0  61 6c 69 73 65 22 2c 32  2a 31 30 30 2c 21 74 61  |alise",2*100,!ta|
000003e0  73 6b 25 2c 70 72 6f 67  72 61 6d 24 0d 01 cc 1b  |sk%,program$....|
000003f0  de 20 62 6c 6f 63 6b 31  20 32 35 36 2c 62 6c 6f  |. block1 256,blo|
00000400  63 6b 32 20 32 35 36 0d  01 d6 11 69 6e 64 73 69  |ck2 256....indsi|
00000410  7a 65 25 3d 31 30 32 34  0d 01 e0 30 de 20 74 65  |ze%=1024...0. te|
00000420  6d 70 6c 61 74 65 62 6c  6f 63 6b 25 20 31 30 32  |mplateblock% 102|
00000430  34 2c 74 65 6d 70 69 6e  64 69 72 65 63 74 25 20  |4,tempindirect% |
00000440  69 6e 64 73 69 7a 65 25  0d 01 ea 23 de 20 6d 65  |indsize%...#. me|
00000450  6e 75 62 6c 6f 63 6b 25  20 31 30 32 34 2c 6d 65  |nublock% 1024,me|
00000460  6e 75 69 6e 64 25 20 31  30 32 34 0d 01 f4 16 de  |nuind% 1024.....|
00000470  20 73 70 72 69 74 65 61  72 65 61 25 20 31 30 32  | spritearea% 102|
00000480  34 0d 01 fe 15 21 73 70  72 69 74 65 61 72 65 61  |4....!spritearea|
00000490  25 3d 31 30 32 34 0d 02  08 14 73 70 72 69 74 65  |%=1024....sprite|
000004a0  61 72 65 61 25 21 38 3d  31 36 0d 02 12 25 c8 99  |area%!8=16...%..|
000004b0  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 39 2b  |"OS_SpriteOp",9+|
000004c0  32 35 36 2c 73 70 72 69  74 65 61 72 65 61 25 0d  |256,spritearea%.|
000004d0  02 1c 3c c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |..<.."OS_SpriteO|
000004e0  70 22 2c 31 30 2b 32 35  36 2c 73 70 72 69 74 65  |p",10+256,sprite|
000004f0  61 72 65 61 25 2c 22 3c  53 68 6f 6f 74 24 44 69  |area%,"<Shoot$Di|
00000500  72 3e 2e 53 70 72 69 74  65 73 22 0d 02 26 3b c8  |r>.Sprites"..&;.|
00000510  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 32  |."OS_SpriteOp",2|
00000520  34 2b 32 35 36 2c 73 70  72 69 74 65 61 72 65 61  |4+256,spritearea|
00000530  25 2c 22 61 6c 69 65 6e  31 22 20 b8 20 2c 2c 61  |%,"alien1" . ,,a|
00000540  6c 69 65 6e 31 25 0d 02  30 3b c8 99 22 4f 53 5f  |lien1%..0;.."OS_|
00000550  53 70 72 69 74 65 4f 70  22 2c 32 34 2b 32 35 36  |SpriteOp",24+256|
00000560  2c 73 70 72 69 74 65 61  72 65 61 25 2c 22 61 6c  |,spritearea%,"al|
00000570  69 65 6e 32 22 20 b8 20  2c 2c 61 6c 69 65 6e 32  |ien2" . ,,alien2|
00000580  25 0d 02 3a 3b c8 99 22  4f 53 5f 53 70 72 69 74  |%..:;.."OS_Sprit|
00000590  65 4f 70 22 2c 32 34 2b  32 35 36 2c 73 70 72 69  |eOp",24+256,spri|
000005a0  74 65 61 72 65 61 25 2c  22 61 6c 69 65 6e 33 22  |tearea%,"alien3"|
000005b0  20 b8 20 2c 2c 61 6c 69  65 6e 33 25 0d 02 44 37  | . ,,alien3%..D7|
000005c0  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
000005d0  32 34 2b 32 35 36 2c 73  70 72 69 74 65 61 72 65  |24+256,spriteare|
000005e0  61 25 2c 22 73 68 69 70  22 20 b8 20 2c 2c 73 68  |a%,"ship" . ,,sh|
000005f0  69 70 25 0d 02 49 3f c8  99 22 4f 53 5f 53 70 72  |ip%..I?.."OS_Spr|
00000600  69 74 65 4f 70 22 2c 32  34 2b 32 35 36 2c 73 70  |iteOp",24+256,sp|
00000610  72 69 74 65 61 72 65 61  25 2c 22 67 61 6d 65 69  |ritearea%,"gamei|
00000620  63 6f 6e 22 20 b8 20 2c  2c 67 61 6d 65 69 63 6f  |con" . ,,gameico|
00000630  6e 25 0d 02 4e 0a 71 75  69 74 3d a3 0d 02 58 11  |n%..N.quit=...X.|
00000640  de 20 61 6c 69 76 65 25  28 38 2c 33 29 0d 02 62  |. alive%(8,3)..b|
00000650  0e de 20 6c 69 6e 65 25  28 33 29 0d 02 6c 0c f2  |.. line%(3)..l..|
00000660  6e 65 77 67 61 6d 65 0d  02 80 20 70 75 72 70 6f  |newgame... purpo|
00000670  73 65 24 3d 22 49 63 6f  6e 20 62 61 72 20 69 6e  |se$="Icon bar in|
00000680  76 61 64 65 72 73 22 0d  02 8a 20 61 75 74 68 6f  |vaders"... autho|
00000690  72 24 3d 22 a9 20 31 39  39 31 20 4c 65 65 20 4d  |r$=". 1991 Lee M|
000006a0  63 47 69 6e 74 79 22 0d  02 94 1f 76 65 72 73 69  |cGinty"....versi|
000006b0  6f 6e 24 3d 22 31 2e 30  20 28 36 2d 4d 61 79 2d  |on$="1.0 (6-May-|
000006c0  31 39 39 31 29 22 0d 02  9e 0f 62 6c 6f 63 6b 31  |1991)"....block1|
000006d0  21 30 3d 2d 31 0d 02 a8  0e 62 6c 6f 63 6b 31 21  |!0=-1....block1!|
000006e0  34 3d 30 0d 02 b2 0e 62  6c 6f 63 6b 31 21 38 3d  |4=0....block1!8=|
000006f0  30 0d 02 bc 11 62 6c 6f  63 6b 31 21 31 32 3d 31  |0....block1!12=1|
00000700  31 32 0d 02 c6 10 62 6c  6f 63 6b 31 21 31 36 3d  |12....block1!16=|
00000710  36 38 0d 02 d0 1d 62 6c  6f 63 6b 31 21 32 30 3d  |68....block1!20=|
00000720  25 31 31 30 30 30 31 30  30 30 31 31 30 31 30 0d  |%11000100011010.|
00000730  02 da 17 62 6c 6f 63 6b  31 21 32 34 3d 67 61 6d  |...block1!24=gam|
00000740  65 69 63 6f 6e 25 0d 02  e4 19 62 6c 6f 63 6b 31  |eicon%....block1|
00000750  21 32 38 3d 73 70 72 69  74 65 61 72 65 61 25 0d  |!28=spritearea%.|
00000760  02 ee 0f 62 6c 6f 63 6b  31 21 33 32 3d 30 0d 02  |...block1!32=0..|
00000770  f8 2d c8 99 22 57 69 6d  70 5f 43 72 65 61 74 65  |.-.."Wimp_Create|
00000780  49 63 6f 6e 22 2c 2c 62  6c 6f 63 6b 31 20 b8 20  |Icon",,block1 . |
00000790  69 63 6f 6e 68 61 6e 64  6c 65 25 0d 03 02 0e 70  |iconhandle%....p|
000007a0  6c 61 79 69 6e 67 25 3d  a3 0d 03 07 0c 6c 65 76  |laying%=.....lev|
000007b0  65 6c 25 3d 30 0d 03 0c  05 e1 0d 03 16 13 dd f2  |el%=0...........|
000007c0  6c 6f 61 64 74 65 6d 70  6c 61 74 65 73 0d 03 20  |loadtemplates.. |
000007d0  32 c8 99 22 57 69 6d 70  5f 4f 70 65 6e 54 65 6d  |2.."Wimp_OpenTem|
000007e0  70 6c 61 74 65 22 2c 2c  22 3c 53 68 6f 6f 74 24  |plate",,"<Shoot$|
000007f0  44 69 72 3e 2e 54 65 6d  70 6c 61 74 65 73 22 0d  |Dir>.Templates".|
00000800  03 2a 67 c8 99 22 57 69  6d 70 5f 4c 6f 61 64 54  |.*g.."Wimp_LoadT|
00000810  65 6d 70 6c 61 74 65 22  2c 2c 74 65 6d 70 6c 61  |emplate",,templa|
00000820  74 65 62 6c 6f 63 6b 25  2c 74 65 6d 70 69 6e 64  |teblock%,tempind|
00000830  69 72 65 63 74 25 2c 74  65 6d 70 69 6e 64 69 72  |irect%,tempindir|
00000840  65 63 74 25 2b 69 6e 64  73 69 7a 65 25 2c 2d 31  |ect%+indsize%,-1|
00000850  2c 22 69 6e 66 6f 22 2c  30 20 b8 20 2c 2c 6e 65  |,"info",0 . ,,ne|
00000860  78 74 69 6e 64 25 0d 03  34 31 c8 99 22 57 69 6d  |xtind%..41.."Wim|
00000870  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
00000880  2c 74 65 6d 70 6c 61 74  65 62 6c 6f 63 6b 25 20  |,templateblock% |
00000890  b8 20 69 6e 66 6f 25 0d  03 3e 23 24 28 a4 69 63  |. info%..>#$(.ic|
000008a0  6f 6e 61 64 64 72 28 69  6e 66 6f 25 2c 31 35 29  |onaddr(info%,15)|
000008b0  29 3d 76 65 72 73 69 6f  6e 24 0d 03 48 22 24 28  |)=version$..H"$(|
000008c0  a4 69 63 6f 6e 61 64 64  72 28 69 6e 66 6f 25 2c  |.iconaddr(info%,|
000008d0  32 29 29 3d 70 72 6f 67  72 61 6d 24 0d 03 52 22  |2))=program$..R"|
000008e0  24 28 a4 69 63 6f 6e 61  64 64 72 28 69 6e 66 6f  |$(.iconaddr(info|
000008f0  25 2c 39 29 29 3d 70 75  72 70 6f 73 65 24 0d 03  |%,9))=purpose$..|
00000900  5c 22 24 28 a4 69 63 6f  6e 61 64 64 72 28 69 6e  |\"$(.iconaddr(in|
00000910  66 6f 25 2c 31 32 29 29  3d 61 75 74 68 6f 72 24  |fo%,12))=author$|
00000920  0d 03 66 13 f4 20 6e 65  78 74 20 74 65 6d 70 6c  |..f.. next templ|
00000930  61 74 65 0d 03 84 1a c8  99 22 57 69 6d 70 5f 43  |ate......"Wimp_C|
00000940  6c 6f 73 65 54 65 6d 70  6c 61 74 65 22 0d 03 8e  |loseTemplate"...|
00000950  05 e1 0d 03 98 1b dd a4  69 63 6f 6e 61 64 64 72  |........iconaddr|
00000960  28 68 61 6e 64 6c 65 2c  69 63 6f 6e 29 0d 03 a2  |(handle,icon)...|
00000970  20 21 62 6c 6f 63 6b 31  3d 68 61 6e 64 6c 65 3a  | !block1=handle:|
00000980  62 6c 6f 63 6b 31 21 34  3d 69 63 6f 6e 0d 03 ac  |block1!4=icon...|
00000990  21 c8 99 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |!.."Wimp_GetIcon|
000009a0  53 74 61 74 65 22 2c 2c  62 6c 6f 63 6b 31 0d 03  |State",,block1..|
000009b0  b6 0e 3d 62 6c 6f 63 6b  31 21 32 38 0d 03 c0 1e  |..=block1!28....|
000009c0  dd f2 65 72 72 6f 72 28  65 72 72 6f 72 24 2c 65  |..error(error$,e|
000009d0  72 72 2c 66 6c 61 67 73  25 29 0d 03 ca 06 ef 37  |rr,flags%).....7|
000009e0  0d 03 d4 38 21 62 6c 6f  63 6b 32 3d 65 72 72 3a  |...8!block2=err:|
000009f0  24 28 62 6c 6f 63 6b 32  2b 34 29 3d 65 72 72 6f  |$(block2+4)=erro|
00000a00  72 24 3a 3f 28 62 6c 6f  63 6b 32 2b 34 2b a9 65  |r$:?(block2+4+.e|
00000a10  72 72 6f 72 24 29 3d 30  0d 03 de 37 c8 99 22 57  |rror$)=0...7.."W|
00000a20  69 6d 70 5f 52 65 70 6f  72 74 45 72 72 6f 72 22  |imp_ReportError"|
00000a30  2c 62 6c 6f 63 6b 32 2c  66 6c 61 67 73 25 2c 70  |,block2,flags%,p|
00000a40  72 6f 67 72 61 6d 24 20  b8 20 2c 72 65 73 25 0d  |rogram$ . ,res%.|
00000a50  03 df 10 e7 20 72 65 73  25 3d 31 20 8c 20 e1 0d  |.... res%=1 . ..|
00000a60  03 e0 05 e0 0d 03 e8 05  e1 0d 03 f2 14 dd f2 72  |...............r|
00000a70  65 63 65 69 76 65 28 62  6c 6f 63 6b 29 0d 03 fc  |eceive(block)...|
00000a80  0e ea 20 6d 65 73 73 61  67 65 25 0d 04 06 15 6d  |.. message%....m|
00000a90  65 73 73 61 67 65 25 3d  62 6c 6f 63 6b 21 31 36  |essage%=block!16|
00000aa0  0d 04 10 11 c8 8e 20 6d  65 73 73 61 67 65 25 20  |...... message% |
00000ab0  ca 0d 04 1a 0e c9 20 30  3a 71 75 69 74 3d b9 0d  |...... 0:quit=..|
00000ac0  04 24 05 cb 0d 04 2e 05  e1 0d 04 38 1d dd a4 63  |.$.........8...c|
00000ad0  72 65 61 74 65 6d 65 6e  75 28 6d 62 25 2c 69 6e  |reatemenu(mb%,in|
00000ae0  64 25 2c 74 24 29 0d 04  42 1b e7 20 c2 74 24 2c  |d%,t$)..B.. .t$,|
00000af0  31 29 3c 3e 22 7c 22 20  8c 20 74 24 2b 3d 22 7c  |1)<>"|" . t$+="||
00000b00  22 0d 04 4c 37 ea 20 6e  65 77 24 2c 70 74 72 25  |"..L7. new$,ptr%|
00000b10  2c 73 68 61 64 65 25 2c  74 69 63 6b 25 2c 64 6f  |,shade%,tick%,do|
00000b20  74 74 65 64 25 2c 73 75  62 6d 65 6e 75 25 2c 77  |tted%,submenu%,w|
00000b30  72 69 74 61 62 6c 65 25  0d 04 56 20 ea 20 69 6e  |ritable%..V . in|
00000b40  64 69 72 65 63 74 65 64  25 2c 67 25 2c 6e 75 6d  |directed%,g%,num|
00000b50  6f 66 69 74 65 6d 73 25  0d 04 60 21 6e 75 6d 6f  |ofitems%..`!numo|
00000b60  66 69 74 65 6d 73 25 3d  bb c0 74 24 2c 32 29 3a  |fitems%=..t$,2):|
00000b70  74 24 3d c1 74 24 2c 33  29 0d 04 6a 23 6e 65 78  |t$=.t$,3)..j#nex|
00000b80  74 6d 65 6e 75 25 3d 6d  62 25 2b 32 38 2b 32 34  |tmenu%=mb%+28+24|
00000b90  2a 6e 75 6d 6f 66 69 74  65 6d 73 25 0d 04 74 2b  |*numofitems%..t+|
00000ba0  24 6d 62 25 3d c0 74 24  2c a7 74 24 2c 22 7c 22  |$mb%=.t$,.t$,"|"|
00000bb0  29 2d 31 29 3a 74 24 3d  c1 74 24 2c a7 74 24 2c  |)-1):t$=.t$,.t$,|
00000bc0  22 7c 22 29 2b 31 29 0d  04 7e 0c 6d 62 25 3f 31  |"|")+1)..~.mb%?1|
00000bd0  32 3d 37 0d 04 88 0c 6d  62 25 3f 31 33 3d 32 0d  |2=7....mb%?13=2.|
00000be0  04 92 0c 6d 62 25 3f 31  34 3d 37 0d 04 9c 0c 6d  |...mb%?14=7....m|
00000bf0  62 25 3f 31 35 3d 30 0d  04 a6 17 6d 62 25 21 31  |b%?15=0....mb%!1|
00000c00  36 3d 28 a9 24 6d 62 25  2a 31 36 29 2b 38 0d 04  |6=(.$mb%*16)+8..|
00000c10  b0 0d 6d 62 25 21 32 30  3d 34 34 0d 04 ba 0c 6d  |..mb%!20=44....m|
00000c20  62 25 21 32 34 3d 30 0d  04 c4 0f 70 74 72 25 3d  |b%!24=0....ptr%=|
00000c30  6d 62 25 2b 32 38 0d 04  ce 38 f5 3a 73 68 61 64  |mb%+28...8.:shad|
00000c40  65 25 3d 30 3a 74 69 63  6b 25 3d 30 3a 64 6f 74  |e%=0:tick%=0:dot|
00000c50  74 65 64 25 3d 30 3a 77  72 69 74 61 62 6c 65 25  |ted%=0:writable%|
00000c60  3d 30 3a 73 75 62 6d 65  6e 75 25 3d 2d 31 0d 04  |=0:submenu%=-1..|
00000c70  d8 2a e7 20 c0 74 24 2c  31 29 3d 22 7b 22 20 8c  |.*. .t$,1)="{" .|
00000c80  20 74 24 3d a0 28 c1 74  24 2c 32 2c a7 74 24 2c  | t$=.(.t$,2,.t$,|
00000c90  22 7d 22 29 2d 32 29 29  0d 04 e2 21 e7 c0 74 24  |"}")-2))...!..t$|
00000ca0  2c 31 29 3d 22 23 22 20  74 69 63 6b 25 3d 31 3a  |,1)="#" tick%=1:|
00000cb0  74 24 3d c1 74 24 2c 32  29 0d 04 ec 11 e7 c0 74  |t$=.t$,2)......t|
00000cc0  24 2c 31 29 3d 22 5b 22  20 8c 0d 04 f6 22 74 24  |$,1)="[" ...."t$|
00000cd0  3d c1 74 24 2c 32 29 3a  6e 65 77 24 3d c0 74 24  |=.t$,2):new$=.t$|
00000ce0  2c a7 74 24 2c 22 5d 22  29 2d 31 29 0d 05 00 58  |,.t$,"]")-1)...X|
00000cf0  e7 20 a7 6e 65 77 24 2c  22 25 22 29 20 8c 20 73  |. .new$,"%") . s|
00000d00  75 62 6d 65 6e 75 25 3d  a0 6e 65 77 24 20 8b 20  |ubmenu%=.new$ . |
00000d10  6e 65 77 24 3d a0 6e 65  77 24 3a 73 75 62 6d 65  |new$=.new$:subme|
00000d20  6e 75 25 3d a4 63 72 65  61 74 65 6d 65 6e 75 28  |nu%=.createmenu(|
00000d30  6e 65 78 74 6d 65 6e 75  25 2c 69 6e 64 25 2c 6e  |nextmenu%,ind%,n|
00000d40  65 77 24 29 0d 05 0a 16  74 24 3d c1 74 24 2c a7  |ew$)....t$=.t$,.|
00000d50  74 24 2c 22 5d 22 29 2b  31 29 0d 05 14 05 cd 0d  |t$,"]")+1)......|
00000d60  05 1e 19 e7 c0 74 24 2c  31 29 3d 22 2e 22 20 74  |.....t$,1)="." t|
00000d70  24 3d c1 74 24 2c 32 29  0d 05 28 28 e7 c0 74 24  |$=.t$,2)..((..t$|
00000d80  2c 31 29 3d 22 2a 22 20  73 68 61 64 65 25 3d 26  |,1)="*" shade%=&|
00000d90  34 30 30 30 30 30 3a 74  24 3d c1 74 24 2c 32 29  |400000:t$=.t$,2)|
00000da0  0d 05 32 23 e7 c0 74 24  2c 31 29 3d 22 3a 22 20  |..2#..t$,1)=":" |
00000db0  64 6f 74 74 65 64 25 3d  32 3a 74 24 3d c1 74 24  |dotted%=2:t$=.t$|
00000dc0  2c 32 29 0d 05 3c 25 e7  c0 74 24 2c 31 29 3d 22  |,2)..<%..t$,1)="|
00000dd0  5e 22 20 77 72 69 74 61  62 6c 65 25 3d 34 3a 74  |^" writable%=4:t|
00000de0  24 3d c1 74 24 2c 32 29  0d 05 46 0f 67 25 3d a7  |$=.t$,2)..F.g%=.|
00000df0  74 24 2c 22 7c 22 29 0d  05 50 11 e7 20 77 72 69  |t$,"|")..P.. wri|
00000e00  74 61 62 6c 65 25 20 8c  0d 05 5a 2f 69 25 3d a7  |table% ...Z/i%=.|
00000e10  74 24 2c 22 2c 22 29 3a  70 74 72 25 21 31 32 3d  |t$,","):ptr%!12=|
00000e20  a0 c0 74 24 2c 69 25 2d  31 29 3a 74 24 3d c1 74  |..t$,i%-1):t$=.t|
00000e30  24 2c 69 25 2b 31 29 0d  05 64 0e 70 74 72 25 21  |$,i%+1)..d.ptr%!|
00000e40  31 36 3d 2d 31 0d 05 6e  1c 70 74 72 25 21 32 30  |16=-1..n.ptr%!20|
00000e50  3d a0 c0 74 24 2c a7 74  24 2c 22 7c 22 29 2d 31  |=..t$,.t$,"|")-1|
00000e60  29 0d 05 78 28 6d 62 25  21 31 36 3d a4 67 72 65  |)..x(mb%!16=.gre|
00000e70  61 74 65 72 28 6d 62 25  21 31 36 2c 34 2b 31 36  |ater(mb%!16,4+16|
00000e80  2a 70 74 72 25 21 32 30  29 0d 05 82 05 cc 0d 05  |*ptr%!20).......|
00000e90  8c 0f e7 20 67 25 2d 31  3e 31 32 20 8c 0d 05 96  |... g%-1>12 ....|
00000ea0  13 21 28 70 74 72 25 2b  31 32 29 3d 69 6e 64 25  |.!(ptr%+12)=ind%|
00000eb0  0d 05 a0 1c 24 69 6e 64  25 3d c0 74 24 2c 67 25  |....$ind%=.t$,g%|
00000ec0  2d 31 29 3a 69 6e 64 25  2b 3d 67 25 0d 05 aa 10  |-1):ind%+=g%....|
00000ed0  21 28 70 74 72 25 2b 31  36 29 3d 30 0d 05 b4 11  |!(ptr%+16)=0....|
00000ee0  21 28 70 74 72 25 2b 32  30 29 3d 67 25 0d 05 be  |!(ptr%+20)=g%...|
00000ef0  11 69 6e 64 69 72 65 63  74 65 64 25 3d 31 0d 05  |.indirected%=1..|
00000f00  c8 05 cc 0d 05 d2 11 69  6e 64 69 72 65 63 74 65  |.......indirecte|
00000f10  64 25 3d a3 0d 05 dc 18  24 28 70 74 72 25 2b 31  |d%=.....$(ptr%+1|
00000f20  32 29 3d c0 74 24 2c 67  25 2d 31 29 0d 05 e6 05  |2)=.t$,g%-1)....|
00000f30  cd 0d 05 f0 23 6d 62 25  21 31 36 3d a4 67 72 65  |....#mb%!16=.gre|
00000f40  61 74 65 72 28 6d 62 25  21 31 36 2c 67 25 2a 31  |ater(mb%!16,g%*1|
00000f50  36 2d 38 29 0d 05 fa 05  cd 0d 06 04 10 74 24 3d  |6-8).........t$=|
00000f60  c1 74 24 2c 67 25 2b 31  29 0d 06 0e 37 21 70 74  |.t$,g%+1)...7!pt|
00000f70  72 25 3d 74 69 63 6b 25  20 84 20 64 6f 74 74 65  |r%=tick% . dotte|
00000f80  64 25 20 84 20 77 72 69  74 61 62 6c 65 25 20 84  |d% . writable% .|
00000f90  20 28 26 38 30 20 80 20  28 74 24 3d 22 22 29 29  | (&80 . (t$=""))|
00000fa0  0d 06 18 13 70 74 72 25  21 34 3d 73 75 62 6d 65  |....ptr%!4=subme|
00000fb0  6e 75 25 0d 06 22 4a 70  74 72 25 21 38 3d 26 31  |nu%.."Jptr%!8=&1|
00000fc0  30 30 32 31 20 84 20 73  68 61 64 65 25 20 84 20  |0021 . shade% . |
00000fd0  77 72 69 74 61 62 6c 65  25 3c 3c 36 20 84 20 30  |writable%<<6 . 0|
00000fe0  3c 3c 32 38 20 84 20 37  3c 3c 32 34 20 84 20 69  |<<28 . 7<<24 . i|
00000ff0  6e 64 69 72 65 63 74 65  64 25 3c 3c 38 0d 06 2c  |ndirected%<<8..,|
00001000  0c 70 74 72 25 2b 3d 32  34 0d 06 36 0a fd 74 24  |.ptr%+=24..6..t$|
00001010  3d 22 22 0d 06 40 08 3d  6d 62 25 0d 06 4a 27 dd  |=""..@.=mb%..J'.|
00001020  20 a4 67 72 65 61 74 65  72 28 61 25 2c 62 25 29  | .greater(a%,b%)|
00001030  3a e7 20 61 25 3e 62 25  20 3d 61 25 20 8b 20 3d  |:. a%>b% =a% . =|
00001040  62 25 0d 06 54 17 dd f2  6d 6f 75 73 65 63 6c 69  |b%..T...mousecli|
00001050  63 6b 28 62 6c 6f 63 6b  29 0d 06 5e 1c ea 20 62  |ck(block)..^.. b|
00001060  75 74 74 6f 6e 73 25 2c  77 69 6e 64 6f 77 25 2c  |uttons%,window%,|
00001070  69 63 6f 6e 25 0d 06 68  14 62 75 74 74 6f 6e 73  |icon%..h.buttons|
00001080  25 3d 62 6c 6f 63 6b 21  38 0d 06 72 14 77 69 6e  |%=block!8..r.win|
00001090  64 6f 77 25 3d 62 6c 6f  63 6b 21 31 32 0d 06 7c  |dow%=block!12..||
000010a0  12 69 63 6f 6e 25 3d 62  6c 6f 63 6b 21 31 36 0d  |.icon%=block!16.|
000010b0  06 86 10 c8 8e 20 77 69  6e 64 6f 77 25 20 ca 0d  |..... window% ..|
000010c0  06 90 1c c9 20 2d 32 3a  f4 20 43 6c 69 63 6b 20  |.... -2:. Click |
000010d0  6f 6e 20 69 63 6f 6e 20  62 61 72 0d 06 9a 26 e7  |on icon bar...&.|
000010e0  20 62 75 74 74 6f 6e 73  25 3d 32 20 80 20 69 63  | buttons%=2 . ic|
000010f0  6f 6e 25 3d 69 63 6f 6e  68 61 6e 64 6c 65 25 20  |on%=iconhandle% |
00001100  8c 0d 06 a4 19 78 25 3d  62 6c 6f 63 6b 21 30 3a  |.....x%=block!0:|
00001110  79 25 3d 62 6c 6f 63 6b  21 34 0d 06 ae 31 c8 99  |y%=block!4...1..|
00001120  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
00001130  22 2c 2c 6d 65 6e 75 62  6c 6f 63 6b 25 2c 78 25  |",,menublock%,x%|
00001140  2d 36 34 2c 39 36 2b 32  2a 34 34 0d 06 b8 05 cd  |-64,96+2*44.....|
00001150  0d 06 b9 26 e7 20 62 75  74 74 6f 6e 73 25 3d 34  |...&. buttons%=4|
00001160  20 80 20 69 63 6f 6e 25  3d 69 63 6f 6e 68 61 6e  | . icon%=iconhan|
00001170  64 6c 65 25 20 8c 0d 06  ba 26 e7 20 70 6c 61 79  |dle% ....&. play|
00001180  69 6e 67 25 3d a3 20 8c  20 70 6c 61 79 69 6e 67  |ing%=. . playing|
00001190  25 3d b9 3a 6c 65 76 65  6c 25 3d 30 0d 06 bb 05  |%=.:level%=0....|
000011a0  cd 0d 06 c2 05 cb 0d 06  cc 05 e1 0d 06 d6 10 dd  |................|
000011b0  f2 64 65 63 6f 64 65 6d  65 6e 75 0d 06 e0 0e ea  |.decodemenu.....|
000011c0  20 62 75 74 74 6f 6e 73  25 0d 06 ea 23 c8 99 22  | buttons%...#.."|
000011d0  57 69 6d 70 5f 47 65 74  50 6f 69 6e 74 65 72 49  |Wimp_GetPointerI|
000011e0  6e 66 6f 22 2c 2c 62 6c  6f 63 6b 32 0d 06 f4 15  |nfo",,block2....|
000011f0  62 75 74 74 6f 6e 73 25  3d 62 6c 6f 63 6b 32 21  |buttons%=block2!|
00001200  38 0d 06 fe 31 c8 99 22  57 69 6d 70 5f 44 65 63  |8...1.."Wimp_Dec|
00001210  6f 64 65 4d 65 6e 75 22  2c 2c 6d 65 6e 75 62 6c  |odeMenu",,menubl|
00001220  6f 63 6b 25 2c 62 6c 6f  63 6b 31 2c 62 6c 6f 63  |ock%,block1,bloc|
00001230  6b 32 0d 07 08 10 c8 8e  20 24 62 6c 6f 63 6b 32  |k2...... $block2|
00001240  20 ca 0d 07 12 0d c9 20  22 51 75 69 74 22 3a 0d  | ...... "Quit":.|
00001250  07 1c 0a 71 75 69 74 3d  b9 0d 07 26 05 cb 0d 07  |...quit=...&....|
00001260  30 36 e7 20 62 75 74 74  6f 6e 73 25 3d 31 20 8c  |06. buttons%=1 .|
00001270  20 c8 99 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  | .."Wimp_CreateM|
00001280  65 6e 75 22 2c 2c 6d 65  6e 75 62 6c 6f 63 6b 25  |enu",,menublock%|
00001290  2c 30 2c 30 0d 07 3a 05  e1 0d 07 44 0d dd f2 6e  |,0,0..:....D...n|
000012a0  65 77 67 61 6d 65 0d 07  4e 0e e3 20 79 25 3d 31  |ewgame..N.. y%=1|
000012b0  20 b8 20 33 0d 07 58 0f  6c 69 6e 65 25 28 79 25  | . 3..X.line%(y%|
000012c0  29 3d 38 0d 07 62 0e e3  20 78 25 3d 31 20 b8 20  |)=8..b.. x%=1 . |
000012d0  38 0d 07 6c 13 61 6c 69  76 65 25 28 78 25 2c 79  |8..l.alive%(x%,y|
000012e0  25 29 3d b9 0d 07 76 05  ed 0d 07 80 05 ed 0d 07  |%)=...v.........|
000012f0  8a 0f 74 6f 70 6c 69 6e  65 25 3d 31 37 0d 07 94  |..topline%=17...|
00001300  0d 73 68 69 70 78 25 3d  32 30 0d 07 9e 0d 66 69  |.shipx%=20....fi|
00001310  72 69 6e 67 25 3d b9 0d  07 a8 0e 62 75 6c 6c 65  |ring%=.....bulle|
00001320  74 78 25 3d 30 0d 07 b2  0e 62 75 6c 6c 65 74 79  |tx%=0....bullety|
00001330  25 3d 30 0d 07 bc 10 64  69 72 65 63 74 69 6f 6e  |%=0....direction|
00001340  25 3d 31 0d 07 be 14 6c  65 66 74 25 3d 31 3a 72  |%=1....left%=1:r|
00001350  69 67 68 74 25 3d 38 0d  07 c4 0d 66 69 72 69 6e  |ight%=8....firin|
00001360  67 25 3d a3 0d 07 c5 11  61 6c 69 65 6e 72 69 67  |g%=.....alienrig|
00001370  68 74 25 3d 30 0d 07 c6  05 e1 0d 07 d0 0a dd f2  |ht%=0...........|
00001380  64 72 61 77 0d 07 da 40  c8 99 22 4f 53 5f 53 70  |draw...@.."OS_Sp|
00001390  72 69 74 65 4f 70 22 2c  36 30 2b 35 31 32 2c 73  |riteOp",60+512,s|
000013a0  70 72 69 74 65 61 72 65  61 25 2c 67 61 6d 65 69  |pritearea%,gamei|
000013b0  63 6f 6e 25 2c 30 20 b8  20 72 30 2c 72 31 2c 72  |con%,0 . r0,r1,r|
000013c0  32 2c 72 33 0d 07 e4 0a  e6 37 2b 31 32 38 0d 07  |2,r3.....7+128..|
000013d0  ee 17 c8 93 20 c8 90 20  30 2c 30 2c 34 30 2a 32  |.... .. 0,0,40*2|
000013e0  2c 31 37 2a 34 0d 07 ef  06 e6 31 0d 07 f0 1a c8  |,17*4.....1.....|
000013f0  93 20 c8 90 20 34 31 2a  32 2c 30 2c 31 36 2a 32  |. .. 41*2,0,16*2|
00001400  2c 31 37 2a 34 0d 07 f8  0e e3 20 78 25 3d 31 20  |,17*4..... x%=1 |
00001410  b8 20 38 0d 08 02 14 e7  20 61 6c 69 76 65 25 28  |. 8..... alive%(|
00001420  78 25 2c 31 29 20 8c 0d  08 0c 54 c8 99 22 4f 53  |x%,1) ....T.."OS|
00001430  5f 53 70 72 69 74 65 4f  70 22 2c 33 34 2b 35 31  |_SpriteOp",34+51|
00001440  32 2c 73 70 72 69 74 65  61 72 65 61 25 2c 61 6c  |2,spritearea%,al|
00001450  69 65 6e 31 25 2c 28 78  25 2d 31 29 2a 38 2b 32  |ien1%,(x%-1)*8+2|
00001460  2a 61 6c 69 65 6e 72 69  67 68 74 25 2c 28 74 6f  |*alienright%,(to|
00001470  70 6c 69 6e 65 25 2d 32  29 2a 34 0d 08 16 05 cd  |pline%-2)*4.....|
00001480  0d 08 20 05 ed 0d 08 2a  0e e3 20 78 25 3d 31 20  |.. ....*.. x%=1 |
00001490  b8 20 38 0d 08 34 14 e7  20 61 6c 69 76 65 25 28  |. 8..4.. alive%(|
000014a0  78 25 2c 32 29 20 8c 0d  08 3e 54 c8 99 22 4f 53  |x%,2) ...>T.."OS|
000014b0  5f 53 70 72 69 74 65 4f  70 22 2c 33 34 2b 35 31  |_SpriteOp",34+51|
000014c0  32 2c 73 70 72 69 74 65  61 72 65 61 25 2c 61 6c  |2,spritearea%,al|
000014d0  69 65 6e 32 25 2c 28 78  25 2d 31 29 2a 38 2b 32  |ien2%,(x%-1)*8+2|
000014e0  2a 61 6c 69 65 6e 72 69  67 68 74 25 2c 28 74 6f  |*alienright%,(to|
000014f0  70 6c 69 6e 65 25 2d 35  29 2a 34 0d 08 48 05 cd  |pline%-5)*4..H..|
00001500  0d 08 52 05 ed 0d 08 5c  0e e3 20 78 25 3d 31 20  |..R....\.. x%=1 |
00001510  b8 20 38 0d 08 66 14 e7  20 61 6c 69 76 65 25 28  |. 8..f.. alive%(|
00001520  78 25 2c 33 29 20 8c 0d  08 70 54 c8 99 22 4f 53  |x%,3) ...pT.."OS|
00001530  5f 53 70 72 69 74 65 4f  70 22 2c 33 34 2b 35 31  |_SpriteOp",34+51|
00001540  32 2c 73 70 72 69 74 65  61 72 65 61 25 2c 61 6c  |2,spritearea%,al|
00001550  69 65 6e 33 25 2c 28 78  25 2d 31 29 2a 38 2b 32  |ien3%,(x%-1)*8+2|
00001560  2a 61 6c 69 65 6e 72 69  67 68 74 25 2c 28 74 6f  |*alienright%,(to|
00001570  70 6c 69 6e 65 25 2d 38  29 2a 34 0d 08 7a 05 cd  |pline%-8)*4..z..|
00001580  0d 08 84 05 ed 0d 08 8e  37 c8 99 22 4f 53 5f 53  |........7.."OS_S|
00001590  70 72 69 74 65 4f 70 22  2c 33 34 2b 35 31 32 2c  |priteOp",34+512,|
000015a0  73 70 72 69 74 65 61 72  65 61 25 2c 73 68 69 70  |spritearea%,ship|
000015b0  25 2c 73 68 69 70 78 25  2a 32 2c 30 0d 08 98 0f  |%,shipx%*2,0....|
000015c0  e7 20 66 69 72 69 6e 67  25 20 8c 0d 08 a2 06 e6  |. firing% ......|
000015d0  39 0d 08 ac 1c c8 92 20  62 75 6c 6c 65 74 78 25  |9...... bulletx%|
000015e0  2a 32 2c 62 75 6c 6c 65  74 79 25 2a 34 0d 08 b6  |*2,bullety%*4...|
000015f0  05 cd 0d 08 b7 0a ef 35  3a e6 31 31 0d 08 b8 18  |.......5:.11....|
00001600  ec 20 34 31 2a 32 2c 31  32 2a 34 3a f1 3b 6c 65  |. 41*2,12*4:.;le|
00001610  76 65 6c 25 0d 08 c0 1f  c8 99 22 4f 53 5f 53 70  |vel%......"OS_Sp|
00001620  72 69 74 65 4f 70 22 2c  72 30 2c 72 31 2c 72 32  |riteOp",r0,r1,r2|
00001630  2c 72 33 0d 08 ca 0f 62  6c 6f 63 6b 31 21 30 3d  |,r3....block1!0=|
00001640  2d 31 0d 08 d4 18 62 6c  6f 63 6b 31 21 34 3d 69  |-1....block1!4=i|
00001650  63 6f 6e 68 61 6e 64 6c  65 25 0d 08 de 0e 62 6c  |conhandle%....bl|
00001660  6f 63 6b 31 21 38 3d 30  0d 08 e8 0f 62 6c 6f 63  |ock1!8=0....bloc|
00001670  6b 31 21 31 32 3d 30 0d  08 f2 21 c8 99 22 57 69  |k1!12=0...!.."Wi|
00001680  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
00001690  2c 2c 62 6c 6f 63 6b 31  0d 08 fc 05 e1 0d 09 06  |,,block1........|
000016a0  0a dd f2 70 6c 61 79 0d  09 10 0f c8 97 20 58 25  |...play...... X%|
000016b0  2c 59 25 2c 5a 25 0d 09  1a 12 73 68 69 70 78 25  |,Y%,Z%....shipx%|
000016c0  3d 58 25 20 81 20 33 32  0d 09 24 0f e7 20 66 69  |=X% . 32..$.. fi|
000016d0  72 69 6e 67 25 20 8c 0d  09 2e 0f 62 75 6c 6c 65  |ring% .....bulle|
000016e0  74 79 25 2b 3d 31 0d 09  38 2a 61 6c 69 65 6e 78  |ty%+=1..8*alienx|
000016f0  25 3d 28 28 62 75 6c 6c  65 74 78 25 2d 61 6c 69  |%=((bulletx%-ali|
00001700  65 6e 72 69 67 68 74 25  29 20 81 20 34 29 2b 31  |enright%) . 4)+1|
00001710  0d 09 42 27 61 6c 69 65  6e 79 25 3d 28 28 74 6f  |..B'alieny%=((to|
00001720  70 6c 69 6e 65 25 2d 62  75 6c 6c 65 74 79 25 29  |pline%-bullety%)|
00001730  20 81 20 33 29 2b 31 0d  09 4c 39 e7 20 61 6c 69  | . 3)+1..L9. ali|
00001740  65 6e 79 25 3e 3d 31 20  80 20 61 6c 69 65 6e 79  |eny%>=1 . alieny|
00001750  25 3c 3d 33 20 80 20 61  6c 69 65 6e 78 25 3e 3d  |%<=3 . alienx%>=|
00001760  31 20 80 20 61 6c 69 65  6e 78 25 3c 3d 38 20 8c  |1 . alienx%<=8 .|
00001770  0d 09 56 1f e7 20 61 6c  69 76 65 25 28 61 6c 69  |..V.. alive%(ali|
00001780  65 6e 78 25 2c 61 6c 69  65 6e 79 25 29 20 8c 0d  |enx%,alieny%) ..|
00001790  09 60 1d 61 6c 69 76 65  25 28 61 6c 69 65 6e 78  |.`.alive%(alienx|
000017a0  25 2c 61 6c 69 65 6e 79  25 29 3d a3 0d 09 6a 15  |%,alieny%)=...j.|
000017b0  6c 69 6e 65 25 28 61 6c  69 65 6e 79 25 29 2d 3d  |line%(alieny%)-=|
000017c0  31 0d 09 74 0d 66 69 72  69 6e 67 25 3d a3 0d 09  |1..t.firing%=...|
000017d0  79 0f f2 63 68 65 63 6b  65 64 67 65 73 0d 09 7e  |y..checkedges..~|
000017e0  05 cd 0d 09 88 05 cd 0d  09 92 1e e7 20 62 75 6c  |............ bul|
000017f0  6c 65 74 79 25 3e 3d 31  37 20 8c 20 66 69 72 69  |lety%>=17 . firi|
00001800  6e 67 25 3d a3 0d 09 9c  05 cc 0d 09 a6 0a e7 20  |ng%=........... |
00001810  5a 25 20 8c 0d 09 b0 0d  66 69 72 69 6e 67 25 3d  |Z% .....firing%=|
00001820  b9 0d 09 ba 15 62 75 6c  6c 65 74 78 25 3d 73 68  |.....bulletx%=sh|
00001830  69 70 78 25 2b 32 0d 09  c4 0e 62 75 6c 6c 65 74  |ipx%+2....bullet|
00001840  79 25 3d 32 0d 09 ce 05  cd 0d 09 d8 05 cd 0d 09  |y%=2............|
00001850  e2 2e e7 20 b3 28 6c 69  6e 65 25 28 31 29 2b 6c  |... .(line%(1)+l|
00001860  69 6e 65 25 28 32 29 2b  6c 69 6e 65 25 28 33 29  |ine%(2)+line%(3)|
00001870  2d 6c 65 76 65 6c 25 29  3c 33 20 8c 0d 09 e4 1b  |-level%)<3 .....|
00001880  61 6c 69 65 6e 72 69 67  68 74 25 2b 3d 64 69 72  |alienright%+=dir|
00001890  65 63 74 69 6f 6e 25 0d  09 ec 41 e7 20 28 61 6c  |ection%...A. (al|
000018a0  69 65 6e 72 69 67 68 74  25 2b 34 2a 28 6c 65 66  |ienright%+4*(lef|
000018b0  74 25 2d 31 29 29 3c 3d  30 20 84 20 28 61 6c 69  |t%-1))<=0 . (ali|
000018c0  65 6e 72 69 67 68 74 25  2b 72 69 67 68 74 25 2a  |enright%+right%*|
000018d0  34 29 3e 3d 34 30 20 8c  0d 09 f6 1a 64 69 72 65  |4)>=40 .....dire|
000018e0  63 74 69 6f 6e 25 3d 2d  64 69 72 65 63 74 69 6f  |ction%=-directio|
000018f0  6e 25 0d 0a 00 0f 74 6f  70 6c 69 6e 65 25 2d 3d  |n%....topline%-=|
00001900  31 0d 0a 0a 11 e7 20 a4  61 74 62 6f 74 74 6f 6d  |1..... .atbottom|
00001910  20 8c 0d 0a 14 06 ef 37  0d 0a 1e 0c f2 6e 65 77  | ......7.....new|
00001920  67 61 6d 65 0d 0a 25 0e  70 6c 61 79 69 6e 67 25  |game..%.playing%|
00001930  3d a3 0d 0a 28 05 cd 0d  0a 32 05 cd 0d 0a 37 05  |=...(....2....7.|
00001940  cd 0d 0a 3c 04 0d 0a 46  2c e7 20 6c 69 6e 65 25  |...<...F,. line%|
00001950  28 31 29 3d 30 20 80 20  6c 69 6e 65 25 28 32 29  |(1)=0 . line%(2)|
00001960  3d 30 20 80 20 6c 69 6e  65 25 28 33 29 3d 30 20  |=0 . line%(3)=0 |
00001970  8c 0d 0a 50 0c f2 6e 65  77 67 61 6d 65 0d 0a 55  |...P..newgame..U|
00001980  0d 6c 65 76 65 6c 25 2b  3d 31 0d 0a 5a 05 cd 0d  |.level%+=1..Z...|
00001990  0a 64 09 f2 64 72 61 77  0d 0a 6e 05 e1 0d 0a f0  |.d..draw..n.....|
000019a0  0e dd a4 61 74 62 6f 74  74 6f 6d 0d 0a fa 23 e7  |...atbottom...#.|
000019b0  20 6c 69 6e 65 25 28 33  29 3c 3e 30 20 80 20 74  | line%(3)<>0 . t|
000019c0  6f 70 6c 69 6e 65 25 3d  39 20 8c 20 3d b9 0d 0b  |opline%=9 . =...|
000019d0  04 23 e7 20 6c 69 6e 65  25 28 32 29 3c 3e 30 20  |.#. line%(2)<>0 |
000019e0  80 20 74 6f 70 6c 69 6e  65 25 3d 36 20 8c 20 3d  |. topline%=6 . =|
000019f0  b9 0d 0b 0e 15 e7 20 74  6f 70 6c 69 6e 65 25 3d  |...... topline%=|
00001a00  33 20 8c 20 3d b9 0d 0b  18 06 3d a3 0d 0b b8 10  |3 . =.....=.....|
00001a10  dd f2 63 68 65 63 6b 65  64 67 65 73 0d 0b bd 10  |..checkedges....|
00001a20  e7 20 6c 65 66 74 25 3c  3d 37 20 8c 0d 0b c2 05  |. left%<=7 .....|
00001a30  f5 0d 0b c7 0a 64 6f 6e  65 3d b9 0d 0b cc 51 e7  |.....done=....Q.|
00001a40  20 61 6c 69 76 65 25 28  6c 65 66 74 25 2c 31 29  | alive%(left%,1)|
00001a50  3d a3 20 80 20 61 6c 69  76 65 25 28 6c 65 66 74  |=. . alive%(left|
00001a60  25 2c 32 29 3d a3 20 80  20 61 6c 69 76 65 25 28  |%,2)=. . alive%(|
00001a70  6c 65 66 74 25 2c 33 29  3d 30 20 8c 20 6c 65 66  |left%,3)=0 . lef|
00001a80  74 25 2b 3d 31 3a 64 6f  6e 65 3d a3 0d 0b d6 14  |t%+=1:done=.....|
00001a90  fd 20 6c 65 66 74 25 3d  38 20 84 20 64 6f 6e 65  |. left%=8 . done|
00001aa0  0d 0b db 05 cd 0d 0b dd  11 e7 20 72 69 67 68 74  |.......... right|
00001ab0  25 3e 3d 32 20 8c 0d 0b  e0 05 f5 0d 0b ea 0a 64  |%>=2 ..........d|
00001ac0  6f 6e 65 3d b9 0d 0b f4  55 e7 20 61 6c 69 76 65  |one=....U. alive|
00001ad0  25 28 72 69 67 68 74 25  2c 31 29 3d a3 20 80 20  |%(right%,1)=. . |
00001ae0  61 6c 69 76 65 25 28 72  69 67 68 74 25 2c 32 29  |alive%(right%,2)|
00001af0  3d a3 20 80 20 61 6c 69  76 65 25 28 72 69 67 68  |=. . alive%(righ|
00001b00  74 25 2c 33 29 3d a3 20  8c 20 72 69 67 68 74 25  |t%,3)=. . right%|
00001b10  2d 3d 31 3a 64 6f 6e 65  3d a3 0d 0b fe 15 fd 20  |-=1:done=...... |
00001b20  72 69 67 68 74 25 3d 31  20 84 20 64 6f 6e 65 0d  |right%=1 . done.|
00001b30  0c 03 05 cd 0d 0c 08 05  e1 0d ff                 |...........|
00001b3b