� > <LASER$DIR>.!RunImage
� by MAG & CAT
� Acorn Computerating
(�voices
2all_screens%=8
<	�13:�
FO$="OS_SpriteOp"
P� Load in the Spritefile
Z$sprites$="<LASER$DIR>.LASERfile"
dfile%=�(sprites$)
nsize%=�#file%+64
x�#file%
� 
�J�Dimension an AREA the SIZE of          �the file to store sprites in
�� area% size%
�area%!0=size%
� 
�C�Initialise area to load the            �sprite definitions to
�ș O$,256+9,area%
� 
�:�Now load the sprite definitions        �to this area
�ș O$,256+10,area%,sprites$
� 
��GRAB AREA
�
g$="grab"

size%=66000

� grab% size%

grab%!0=size%

"grab%!8=16

,ș O$,256+9,grab%

6	a%=64

@	b%=64

Jc%=1280-64

Td%=1024-64

^ 

h$�_____SET UP ONCE ONLY_________

r�sprites

| 

�	�dims

� 

�$�------------------------------

� 

� 

��

� 

��

��border

� 

�	�init

� 

��
�screen
 

�start
& 
0�---LOOP------
: 
D�
NZ%=3-Z%:ș6,112,Z%
X�z%>0:z%+=1:�z%>=2z%=0
b�r%>0:r%+=1:�r%>=3r%=0
l�K
v�B
��E
��P
�ș6,113,Z%
��RS%=3�N%=1
� 
��N%=1�Y
�$�RS%=3�ok%=1�lev%=all_screens%+1
��RS%=3�ok%=1�explode:���=32
��lev%=all_screens%+1
� 
�
ș6,15
��endbit
��0
�
 
�SORT SPRITES OUT
 
��sprites
*� L%(7),M%(7)
4 
> �num of backgrounds
H� B%(8)
R 
\ �num of squares
f
�S%(4)
p 
z �num of reactors
�
�R%(8)
� 
� �num of blocks (walls)
��W%(32)
� 
�
 �sheeps
�
�SH%(3,3)
� 
��DIMendpic%(2)
� 
��I%=0�7
�*�setsprite("LASER"+�(I%),L%(I%),h%,w%)
�+�setsprite("MIRROR"+�(I%),M%(I%),h%,w%)
�
�J%=0�2
�I%=0�3
$4�setsprite("SHEEP"+�(I%)+�(J%),SH%(I%,J%),h%,w%)
.�
8�
B�I%=1�2
L/�setsprite("BACKGROUND"+�(I%),B%(I%),h%,w%)
V7�PROCsetsprite("ENDPIC"+STR$(I%),endpic%(I%),h%,w%)
`�
j�I%=1�8
t,�setsprite("REACTOR"+�(I%),R%(I%),h%,w%)
~�
�&�setsprite("DEADMIRROR",DM%,h%,w%)
�$�setsprite("DEADZONE",DZ%,h%,w%)
�*�setsprite("WELLDONE",WellDone%,h%,w%)
��I%=1�4
�+�setsprite("SQUARE"+�(I%),S%(I%),h%,w%)
��
� 
��I%=1�2
�)�setsprite("WALL"+�(I%),W%(I%),h%,w%)
��
��
� 
�Init sprites

4��setsprite(string$,� value%,� width%,� height%)
(ș O$,256+24,area%,string$ �,,value%
1ș O$,256+40,area%,string$ �,,,width%,height%
(�
2 
<
�INIT
F
��init
PN%=0
ZRX%=0:RY%=0
d	RS%=0
n	PS%=0
xz%=0
�r%=0
�
time%=900
�&         � 300 = 3 SECONDSx20=1min
�U%=0
�	f%=64
�X%=64:Y%=896
�BX%=64:BY%=64
�	M%=64
�
lev%=1
��
��I%=0�7
��FX%(I%),FY%(I%)
�)FX%(I%)=FX%(I%)*f%:FY%(I%)=FY%(I%)*f%
�
�I%=0�7
�V%(I%)
"�
, 
6�I%=0�7
@�SHOX%(I%),SHOY%(I%)
J�
T�
^�DATA FOR FIRING OFFSETS
h*�0,1,1,1,1,0,1,-1,0,-1,-1,-1,-1,0,-1,1
r�DATA FOR LASER OFFSETS
|�-20,-19,1,21,20,19,-1,-21
� 
��DATA�FOR SHEEP OFFSETS
�
�6�0,64,64,64,64,0,64,-64,0,-64,-64,-64,-64,0,-64,64
� 
��SCREEN
���screen
�X%=64:Y%=896
��24,64;64;1280-68;1024-68;
��J%=2�1�-1
�ș6,112,J%
�ș6,113,3-J%
�
�145:�
�lev%�2=1num%=1�num%=2
)ș O$,512+34,area%,B%(num%),BX%,BY%,0
�
&�plot_items
0�G
:�S
D�
N 
X�START
b��start
l	ok%=0
vN%=0
�
yes%=0
�	SS%=0
�
W%=0:Z%=1
�X%=64:Y%=896
�Q%=0
�T%=0
�	RS%=0
�F%=0
�FX%=X%+32:FY%=Y%+32
�	G%=21
�C%=0
�U%=0
�	RS%=0
SS%()=0
�P
�=0
 �
* 
4
�DIMS
>
��dims
H�G%(319)
R�g%(319)
\maxmirrors%=50
f�MX%(maxmirrors%)
p�MY%(maxmirrors%)
z�FX%(7),FY%(7)
�
�V%(7)
��SHX%(32),SHY%(32),SHG%(32)
��SHOX%(7),SHOY%(7)
��SS%(32)
�SS%()=0
��
� 
�
�KEYS
���K
��-56was%=�:���-55:�=was%
��-98�M(-M%,0,-1)
��-67�M(M%,0,1)
��-80�M(0,M%,-20)
	�-105�M(0,-M%,20)
	
�-3�C
	�-66�R(7)
	$�-82�R(1)
	.�F%=0:�-74�F
	8�
	B 
	L�MOVEMENT
	V��M(x%,y%,g%)
	`
�z%>0�
	jȎ G%(G%+g%) �
	t�-2,9,10,11,12:�
	~�
	�
G%+=g%
	�X%+=x%:Y%+=y%
	�U%=(U%+1)�2
	�z%=1
	��
	� 
	��DRAW THINGS TO SCREEN
	���P
	�  �background
	�"ș O$,&222,grab%,bg%,BX%,BY%,0
	� 
	�  �reactor heating up
0�yes%=1yes%=0:�7:�77,RX%+64,RY%+12+(T%*4):�G

 
   �alter mirror/dead mirror
Ȏ Q% �
(W � 1:ș O$,&222,area%,S%(num%*2-1+U%),X%,Y%,0:�g%(G%)=8ș O$,&222,area%,DZ%,X%,Y%,8
2, ș O$,&222,area%,M%(W%),X%,Y%,8:�G:Q%=0
<	 � 2:
F3 �G%(V%)=-1ș O$,&222,area%,DM%,FX%-32,FY%-32,0
PW �g%(V%)=8ș O$,&222,area%,DM%,FX%-32,FY%-32,0:ș O$,&222,area%,DZ%,FX%-32,FY%-32,8
Z �G:Q%=0:F%=0
d 
n�
x 
� 
�  �carrying mirror?
�Ȏ C% �
�1 � 1:ș O$,&222,area%,S%(num%*2-1+U%),X%,Y%,0
�3 �g%(G%)=8ș O$,&222,area%,DZ%,X%,Y%,8:G%(G%)=8
� �G:C%=2
� 
�0 � 3:ș O$,&222,area%,M%(W%),X%,Y%,8:�G:C%=0
��
� 
�  �fire laser?
�Ȏ F% �
� � 1:�L
 � 2:�W
 � 3:�H

 � 4:�die
"d � 5:G%(V%)=8:g%(V%)=8:ș O$,&222,area%,DM%,FX%-32,FY%-32,0:ș O$,&222,area%,DZ%,FX%-32,FY%-32,8
, �G:F%=0
6�
@ 
J  �print sheep?
TȎ RS% �
^ �0,1,2:
h �I%=1�NS%
rF �SS%(I%)=0:ș O$,512+34,area%,SH%(�(4)-1,RS%),SHX%(I%),SHY%(I%),8
|B �SS%(I%)=1:ș O$,512+34,area%,SH%(0,RS%),SHX%(I%),SHY%(I%),12
� �
��
� 
�  �print laser
�(�C%=2ș O$,&222,area%,M%(W%),X%,Y%,8
�#ș O$,&222,area%,L%(W%),X%,Y%,8
� 
��31,0);"LEVEL ";lev%;" "
��
� 
��BORDER GRID DEFAULTS
���border
�G%()=-1
g%()=-1
�I%=0�19

G%(I%)=-2
&
g%(I%)=-2
0G%(I%+300)=-2
:g%(I%+300)=-2
D�
N 
X�I%=0�300�20
b
G%(I%)=-2
l
g%(I%)=-2
vG%(I%+19)=-2
�g%(I%+19)=-2
��
��
� 
��PLOT ITEMS TO SCREEN
���plot_items
�hadreactor%=0
�'name$="<LASER$DIR>."+"DATA"+�(lev%)
�file1%=�(name$)
�px%=0:py%=896
��J%=21�298
�px%+=64
��#file1%,data%

�J%�20=0py%-=64:px%=0

�px%,py%

Ȏ data% �

 ; � 0,1,2,3,4,5,6,7:ș O$,&222,area%,M%(data%),px%,py%,8

*& �8:ș O$,&222,area%,DZ%,px%,py%,8

4Z �9:�hadreactor%=0hadreactor%=1:ș O$,&222,area%,R%(1),px%,py%-64,0:RX%=px%:RY%=py%-64

>) �10:ș O$,&222,area%,W%(1),px%,py%,8

H) �11:ș O$,&222,area%,W%(2),px%,py%,8

R�

\G%(J%)=data%

f�data%>-1�data%<8g%(J%)=-1

p �data%<0�data%>7g%(J%)=data%

z�

��#file1%

�)ș O$,&222,area%,S%(num%*2-1),X%,Y%,0

��

� 

�
�GRAB

���G

�'ș O$,256+16,grab%,g$,0,a%,b%,c%,d%

� ș O$,256+24,grab%,g$ �,,bg%

�,ș O$,256+40,grab%,g$ �,,,width%,height%

��

� 

��ROTATE

���R(w%)

�r%>0�
W%=(W%+w%)�8
(�G%(G%)>-1�G%(G%)<8�7:Q%=1:G%(G%)=W%
$r%=1
.�
8 
B
�FIRE
L��F
V�G%(G%)<>-1�
`�1,-15,61,4
jF%=1
t	D%=W%
~
FX%=X%+32
�
FY%=Y%+32
�	V%=G%
��
� 
��CARRY MIRROR
���C
�Ȏ C% �
�9 � 0:�G%(G%)>-1�G%(G%)<8:C%=1:G%(G%)=-1:�3,-15,100,10
� 
�0 � 2:�G%(G%)=-1:C%=3:G%(G%)=W%:�3,-15,160,10
�3�G%(G%)=8:C%=3:G%(G%)=W%:g%(G%)=8:�3,-15,160,10
� 
�

Ȗ:Ȗ:Ȗ
�
 
(�LASER FIRE!!
2��L
<4 �G%(V%)<0�G%(V%)>7�G%(V%)<11:Ȏ G%(V%+V%(D%)) �
F �-2,10:F%=2
P# �WHEN11:F%=5:SOUND2,-15,200,20
Z �
d�F%=2�G%(V%)<>9�
n 
xȎ G%(V%) �
� � -1,8,13:�Z
� �0,1,2,3,4,5,6,7:�D
� 
� �HIT REACTOR
� �9:N%=1
� 
� �HIT BLOCKS
�
 �10:F%=2
� �11:F%=5:�2,-15,200,20
� 
� �HIT SHEEP!
� �12:F%=0:�J
� 
�
�V%=G%F%=4
�
" 
,�LASER HITS WALL/BORDER
6��W
@F%=0
J�
T 
^�DEFLECT LASER BY MIRROR
h��D
r5�(G%(V%)-D%)<3��(G%(V%)-D%)>5�1,-15,20,20:F%=3:�
|�7,-15,255,5
�%D%=(D%+2*(6-((D%+8-G%(V%))�8)))�8
��Z
��
� 
��DRAW LASER FIRE IN
���Z
��G%(V%+V%(D%))=-2:F%=2:�
��3:�FX%,FY%
��FX%,FY%:�1,FX%(D%),FY%(D%)
�FX%+=FX%(D%):FY%+=FY%(D%)
�V%+=V%(D%)
��
� 
�HIT WRONG SIDE OF MIRROR
��H
!�G%(V%)>-1�G%(V%)<8:G%(V%)=-1
&�g%(V%)=8G%(V%)=8
0Q%=2
:�
D 
N�LASER HIT ON REACTOR
X��Y
bF%=0
l�J%=1�30
v$ș O$,&222,area%,R%(1),RX%,RY%,3
�t=�:���-t>3
��3,-15,�(90)+90,1
��
��G%(G%)=8ok%=1
��G%(G%)<>8lev%+=1
��ok%=1ș6,21:�
��2,-15,100,100
��J%=1�8
�%ș O$,&222,area%,R%(J%),RX%,RY%,0
�t=�:���-t>10
��
� 
�
ș6,21
���-99��(200)
�
 
 �HEAT UP REACTOR
*��B
4�RS%=3�
>�>time%T%+=1:�=0:yes%=1
HȎ T% �
R � 10:RS%=1
\ � 15:RS%=2
f � 20:RS%=3
p�
z�
� 
�"�RANDOM SHEEPS (ELLO SHEEPS!)
���S
�NS%=�(4)+lev%
�
�I%=1�NS%
�%�R%=�(277)+20:�G%(R%)=-1�G%(R%)=8
�G%(R%)=12:SHG%(I%)=R%
�1SHX%(I%)=(R%�20)*64:SHY%(I%)=960-((R%�20)*64)
��K=1�2:ș6,112,K
�:ș O$,512+34,area%,SH%(�(4)-1,RS%),SHX%(I%),SHY%(I%),8
��
��
��
 
�MOVE SHEEP
��E
$�RS%=3�
.rs%=�(NS%)
82�SS%(rs%)=1��(20)=1SS%(rs%)=0:G%(SHG%(rs%))=12
B�SS%(rs%)=1�
L
R%=�(8)-1
VȎ G%(SHG%(rs%)+V%(R%)) �
`
 �-1,8
j. SHX%(rs%)+=SHOX%(R%):SHY%(rs%)+=SHOY%(R%)
tG%(SHG%(rs%))=g%(SHG%(rs%))
~6G%(SHG%(rs%)+V%(R%))=12:SHG%(rs%)=SHG%(rs%)+V%(R%)
��
��
� 
��HIT SHEEP
���J
��2,-15,190,2
�
�K%=1�NS%
�)�V%=SHG%(K%)SS%(K%)=1:G%(SHG%(K%))=13
��
��
� 
��YOU DIE HIT BY LASER
	��die

�I=1�20
�1,-15,�(200),1
Ȗ:Ȗ:Ȗ
(�
2F%=0
<�
F 
P�REACTOR EXPLODES
Z
��explode
d�1,-15,100,300
n�2,-15,100,100
x
cs%=64
�"ș O$,&222,grab%,bg%,BX%,BY%,4
�	�3,27
��J%=1�2
��I%=1�80
�ȏRX%+64,RY%+64,cs%
�
cs%+=8
��
�
cs%=64
��
�cs%=648
�	�3,35
��2,-15,20,30
��J%=1�2
�I%=1�80
ȏRX%+64,RY%+64,cs%

cs%-=8
"�
,cs%=648
6�
@�
J 
T�VOICES
^��voices
hȠ 8
r*CHANNELVOICE 1 10
|*CHANNELVOICE 2 11
�*CHANNELVOICE 3 12
�*CHANNELVOICE 4 13
�*CHANNELVOICE 5 14
�*CHANNELVOICE 6 15
�*CHANNELVOICE 7 16
�*CHANNELVOICE 8 10
��
� 
�
�END BIT
���endbit
�px%=0:py%=896
��J%=21�298
�px%+=64
"ș O$,&222,area%,DM%,px%,py%,8
�px%>1240px%=0:py%-=64
�
&(ș O$,&222,area%,WellDone%,352,256,8
0
ș6,15
:
���=32
D�
�

00000000  0d 00 0a 1d f4 20 3e 20  3c 4c 41 53 45 52 24 44  |..... > <LASER$D|
00000010  49 52 3e 2e 21 52 75 6e  49 6d 61 67 65 0d 00 14  |IR>.!RunImage...|
00000020  12 f4 20 62 79 20 4d 41  47 20 26 20 43 41 54 0d  |.. by MAG & CAT.|
00000030  00 1e 19 f4 20 41 63 6f  72 6e 20 43 6f 6d 70 75  |.... Acorn Compu|
00000040  74 65 72 61 74 69 6e 67  0d 00 28 0b f2 76 6f 69  |terating..(..voi|
00000050  63 65 73 0d 00 32 12 61  6c 6c 5f 73 63 72 65 65  |ces..2.all_scree|
00000060  6e 73 25 3d 38 0d 00 3c  09 eb 31 33 3a 87 0d 00  |ns%=8..<..13:...|
00000070  46 14 4f 24 3d 22 4f 53  5f 53 70 72 69 74 65 4f  |F.O$="OS_SpriteO|
00000080  70 22 0d 00 50 1d f4 81  20 4c 6f 61 64 20 69 6e  |p"..P... Load in|
00000090  20 74 68 65 20 53 70 72  69 74 65 66 69 6c 65 0d  | the Spritefile.|
000000a0  00 5a 24 73 70 72 69 74  65 73 24 3d 22 3c 4c 41  |.Z$sprites$="<LA|
000000b0  53 45 52 24 44 49 52 3e  2e 4c 41 53 45 52 66 69  |SER$DIR>.LASERfi|
000000c0  6c 65 22 0d 00 64 15 66  69 6c 65 25 3d 8e 28 73  |le"..d.file%=.(s|
000000d0  70 72 69 74 65 73 24 29  0d 00 6e 14 73 69 7a 65  |prites$)..n.size|
000000e0  25 3d a2 23 66 69 6c 65  25 2b 36 34 0d 00 78 0b  |%=.#file%+64..x.|
000000f0  d9 23 66 69 6c 65 25 0d  00 82 05 20 0d 00 8c 4a  |.#file%.... ...J|
00000100  f4 83 44 69 6d 65 6e 73  69 6f 6e 20 61 6e 20 41  |..Dimension an A|
00000110  52 45 41 20 74 68 65 20  53 49 5a 45 20 6f 66 20  |REA the SIZE of |
00000120  20 20 20 20 20 20 20 20  20 83 74 68 65 20 66 69  |         .the fi|
00000130  6c 65 20 74 6f 20 73 74  6f 72 65 20 73 70 72 69  |le to store spri|
00000140  74 65 73 20 69 6e 0d 00  96 11 de 20 61 72 65 61  |tes in..... area|
00000150  25 20 73 69 7a 65 25 0d  00 a0 11 61 72 65 61 25  |% size%....area%|
00000160  21 30 3d 73 69 7a 65 25  0d 00 aa 05 20 0d 00 b4  |!0=size%.... ...|
00000170  43 f4 82 49 6e 69 74 69  61 6c 69 73 65 20 61 72  |C..Initialise ar|
00000180  65 61 20 74 6f 20 6c 6f  61 64 20 74 68 65 20 20  |ea to load the  |
00000190  20 20 20 20 20 20 20 20  20 20 82 73 70 72 69 74  |          .sprit|
000001a0  65 20 64 65 66 69 6e 69  74 69 6f 6e 73 20 74 6f  |e definitions to|
000001b0  0d 00 be 15 c8 99 20 4f  24 2c 32 35 36 2b 39 2c  |...... O$,256+9,|
000001c0  61 72 65 61 25 0d 00 c8  05 20 0d 00 d2 3a f4 84  |area%.... ...:..|
000001d0  4e 6f 77 20 6c 6f 61 64  20 74 68 65 20 73 70 72  |Now load the spr|
000001e0  69 74 65 20 64 65 66 69  6e 69 74 69 6f 6e 73 20  |ite definitions |
000001f0  20 20 20 20 20 20 20 84  74 6f 20 74 68 69 73 20  |       .to this |
00000200  61 72 65 61 0d 00 dc 1f  c8 99 20 4f 24 2c 32 35  |area...... O$,25|
00000210  36 2b 31 30 2c 61 72 65  61 25 2c 73 70 72 69 74  |6+10,area%,sprit|
00000220  65 73 24 0d 00 e6 05 20  0d 00 f0 0f f4 81 47 52  |es$.... ......GR|
00000230  41 42 20 41 52 45 41 0d  00 fa 0d 67 24 3d 22 67  |AB AREA....g$="g|
00000240  72 61 62 22 0d 01 04 0f  73 69 7a 65 25 3d 36 36  |rab"....size%=66|
00000250  30 30 30 0d 01 0e 11 de  20 67 72 61 62 25 20 73  |000..... grab% s|
00000260  69 7a 65 25 0d 01 18 11  67 72 61 62 25 21 30 3d  |ize%....grab%!0=|
00000270  73 69 7a 65 25 0d 01 22  0e 67 72 61 62 25 21 38  |size%..".grab%!8|
00000280  3d 31 36 0d 01 2c 15 c8  99 20 4f 24 2c 32 35 36  |=16..,... O$,256|
00000290  2b 39 2c 67 72 61 62 25  0d 01 36 09 61 25 3d 36  |+9,grab%..6.a%=6|
000002a0  34 0d 01 40 09 62 25 3d  36 34 0d 01 4a 0e 63 25  |4..@.b%=64..J.c%|
000002b0  3d 31 32 38 30 2d 36 34  0d 01 54 0e 64 25 3d 31  |=1280-64..T.d%=1|
000002c0  30 32 34 2d 36 34 0d 01  5e 05 20 0d 01 68 24 f4  |024-64..^. ..h$.|
000002d0  81 5f 5f 5f 5f 5f 53 45  54 20 55 50 20 4f 4e 43  |._____SET UP ONC|
000002e0  45 20 4f 4e 4c 59 5f 5f  5f 5f 5f 5f 5f 5f 5f 0d  |E ONLY_________.|
000002f0  01 72 0c f2 73 70 72 69  74 65 73 0d 01 7c 05 20  |.r..sprites..|. |
00000300  0d 01 86 09 f2 64 69 6d  73 0d 01 90 05 20 0d 01  |.....dims.... ..|
00000310  9a 24 f4 81 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.$..------------|
00000320  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000330  2d 2d 0d 01 a4 05 20 0d  01 ae 05 20 0d 01 b8 05  |--.... .... ....|
00000340  f5 0d 01 c2 05 20 0d 01  cc 05 f5 0d 01 d6 0b f2  |..... ..........|
00000350  62 6f 72 64 65 72 0d 01  e0 05 20 0d 01 ea 09 f2  |border.... .....|
00000360  69 6e 69 74 0d 01 f4 05  20 0d 01 fe 05 f5 0d 02  |init.... .......|
00000370  08 0b f2 73 63 72 65 65  6e 0d 02 12 05 20 0d 02  |...screen.... ..|
00000380  1c 0a f2 73 74 61 72 74  0d 02 26 05 20 0d 02 30  |...start..&. ..0|
00000390  13 f4 83 2d 2d 2d 4c 4f  4f 50 2d 2d 2d 2d 2d 2d  |...---LOOP------|
000003a0  0d 02 3a 05 20 0d 02 44  05 f5 0d 02 4e 16 5a 25  |..:. ..D....N.Z%|
000003b0  3d 33 2d 5a 25 3a c8 99  36 2c 31 31 32 2c 5a 25  |=3-Z%:..6,112,Z%|
000003c0  0d 02 58 1a e7 7a 25 3e  30 3a 7a 25 2b 3d 31 3a  |..X..z%>0:z%+=1:|
000003d0  e7 7a 25 3e 3d 32 7a 25  3d 30 0d 02 62 1a e7 72  |.z%>=2z%=0..b..r|
000003e0  25 3e 30 3a 72 25 2b 3d  31 3a e7 72 25 3e 3d 33  |%>0:r%+=1:.r%>=3|
000003f0  72 25 3d 30 0d 02 6c 06  f2 4b 0d 02 76 06 f2 42  |r%=0..l..K..v..B|
00000400  0d 02 80 06 f2 45 0d 02  8a 06 f2 50 0d 02 94 0e  |.....E.....P....|
00000410  c8 99 36 2c 31 31 33 2c  5a 25 0d 02 9e 0f fd 52  |..6,113,Z%.....R|
00000420  53 25 3d 33 84 4e 25 3d  31 0d 02 a8 05 20 0d 02  |S%=3.N%=1.... ..|
00000430  b2 0b e7 4e 25 3d 31 f2  59 0d 02 bc 24 fd 52 53  |...N%=1.Y...$.RS|
00000440  25 3d 33 84 6f 6b 25 3d  31 84 6c 65 76 25 3d 61  |%=3.ok%=1.lev%=a|
00000450  6c 6c 5f 73 63 72 65 65  6e 73 25 2b 31 0d 02 c6  |ll_screens%+1...|
00000460  1f e7 52 53 25 3d 33 84  6f 6b 25 3d 31 f2 65 78  |..RS%=3.ok%=1.ex|
00000470  70 6c 6f 64 65 3a f5 fd  a5 3d 33 32 0d 02 d0 18  |plode:...=32....|
00000480  fd 6c 65 76 25 3d 61 6c  6c 5f 73 63 72 65 65 6e  |.lev%=all_screen|
00000490  73 25 2b 31 0d 02 da 05  20 0d 02 e4 0a c8 99 36  |s%+1.... ......6|
000004a0  2c 31 35 0d 02 ee 0b f2  65 6e 64 62 69 74 0d 02  |,15.....endbit..|
000004b0  f8 06 fd 30 0d 03 02 05  e0 0d 03 0c 05 20 0d 03  |...0......... ..|
000004c0  16 16 f4 82 53 4f 52 54  20 53 50 52 49 54 45 53  |....SORT SPRITES|
000004d0  20 4f 55 54 0d 03 20 0d  dd f2 73 70 72 69 74 65  | OUT.. ...sprite|
000004e0  73 0d 03 2a 11 de 20 4c  25 28 37 29 2c 4d 25 28  |s..*.. L%(7),M%(|
000004f0  37 29 0d 03 34 05 20 0d  03 3e 19 20 f4 83 6e 75  |7)..4. ..>. ..nu|
00000500  6d 20 6f 66 20 62 61 63  6b 67 72 6f 75 6e 64 73  |m of backgrounds|
00000510  0d 03 48 0b de 20 42 25  28 38 29 0d 03 52 05 20  |..H.. B%(8)..R. |
00000520  0d 03 5c 15 20 f4 83 6e  75 6d 20 6f 66 20 73 71  |..\. ..num of sq|
00000530  75 61 72 65 73 0d 03 66  0a de 53 25 28 34 29 0d  |uares..f..S%(4).|
00000540  03 70 05 20 0d 03 7a 16  20 f4 83 6e 75 6d 20 6f  |.p. ..z. ..num o|
00000550  66 20 72 65 61 63 74 6f  72 73 0d 03 84 0a de 52  |f reactors.....R|
00000560  25 28 38 29 0d 03 8e 05  20 0d 03 98 1c 20 f4 83  |%(8).... .... ..|
00000570  6e 75 6d 20 6f 66 20 62  6c 6f 63 6b 73 20 28 77  |num of blocks (w|
00000580  61 6c 6c 73 29 0d 03 a2  0b de 57 25 28 33 32 29  |alls).....W%(32)|
00000590  0d 03 ac 05 20 0d 03 b6  0d 20 f4 85 73 68 65 65  |.... .... ..shee|
000005a0  70 73 0d 03 c0 0d de 53  48 25 28 33 2c 33 29 0d  |ps.....SH%(3,3).|
000005b0  03 ca 05 20 0d 03 d4 12  f4 44 49 4d 65 6e 64 70  |... .....DIMendp|
000005c0  69 63 25 28 32 29 0d 03  de 05 20 0d 03 e8 0b e3  |ic%(2).... .....|
000005d0  49 25 3d 30 b8 37 0d 03  f2 2a f2 73 65 74 73 70  |I%=0.7...*.setsp|
000005e0  72 69 74 65 28 22 4c 41  53 45 52 22 2b c3 28 49  |rite("LASER"+.(I|
000005f0  25 29 2c 4c 25 28 49 25  29 2c 68 25 2c 77 25 29  |%),L%(I%),h%,w%)|
00000600  0d 03 fc 2b f2 73 65 74  73 70 72 69 74 65 28 22  |...+.setsprite("|
00000610  4d 49 52 52 4f 52 22 2b  c3 28 49 25 29 2c 4d 25  |MIRROR"+.(I%),M%|
00000620  28 49 25 29 2c 68 25 2c  77 25 29 0d 04 06 05 ed  |(I%),h%,w%).....|
00000630  0d 04 10 0b e3 4a 25 3d  30 b8 32 0d 04 1a 0b e3  |.....J%=0.2.....|
00000640  49 25 3d 30 b8 33 0d 04  24 34 f2 73 65 74 73 70  |I%=0.3..$4.setsp|
00000650  72 69 74 65 28 22 53 48  45 45 50 22 2b c3 28 49  |rite("SHEEP"+.(I|
00000660  25 29 2b c3 28 4a 25 29  2c 53 48 25 28 49 25 2c  |%)+.(J%),SH%(I%,|
00000670  4a 25 29 2c 68 25 2c 77  25 29 0d 04 2e 05 ed 0d  |J%),h%,w%)......|
00000680  04 38 05 ed 0d 04 42 0b  e3 49 25 3d 31 b8 32 0d  |.8....B..I%=1.2.|
00000690  04 4c 2f f2 73 65 74 73  70 72 69 74 65 28 22 42  |.L/.setsprite("B|
000006a0  41 43 4b 47 52 4f 55 4e  44 22 2b c3 28 49 25 29  |ACKGROUND"+.(I%)|
000006b0  2c 42 25 28 49 25 29 2c  68 25 2c 77 25 29 0d 04  |,B%(I%),h%,w%)..|
000006c0  56 37 f4 50 52 4f 43 73  65 74 73 70 72 69 74 65  |V7.PROCsetsprite|
000006d0  28 22 45 4e 44 50 49 43  22 2b 53 54 52 24 28 49  |("ENDPIC"+STR$(I|
000006e0  25 29 2c 65 6e 64 70 69  63 25 28 49 25 29 2c 68  |%),endpic%(I%),h|
000006f0  25 2c 77 25 29 0d 04 60  05 ed 0d 04 6a 0b e3 49  |%,w%)..`....j..I|
00000700  25 3d 31 b8 38 0d 04 74  2c f2 73 65 74 73 70 72  |%=1.8..t,.setspr|
00000710  69 74 65 28 22 52 45 41  43 54 4f 52 22 2b c3 28  |ite("REACTOR"+.(|
00000720  49 25 29 2c 52 25 28 49  25 29 2c 68 25 2c 77 25  |I%),R%(I%),h%,w%|
00000730  29 0d 04 7e 05 ed 0d 04  88 26 f2 73 65 74 73 70  |)..~.....&.setsp|
00000740  72 69 74 65 28 22 44 45  41 44 4d 49 52 52 4f 52  |rite("DEADMIRROR|
00000750  22 2c 44 4d 25 2c 68 25  2c 77 25 29 0d 04 92 24  |",DM%,h%,w%)...$|
00000760  f2 73 65 74 73 70 72 69  74 65 28 22 44 45 41 44  |.setsprite("DEAD|
00000770  5a 4f 4e 45 22 2c 44 5a  25 2c 68 25 2c 77 25 29  |ZONE",DZ%,h%,w%)|
00000780  0d 04 9c 2a f2 73 65 74  73 70 72 69 74 65 28 22  |...*.setsprite("|
00000790  57 45 4c 4c 44 4f 4e 45  22 2c 57 65 6c 6c 44 6f  |WELLDONE",WellDo|
000007a0  6e 65 25 2c 68 25 2c 77  25 29 0d 04 a6 0b e3 49  |ne%,h%,w%).....I|
000007b0  25 3d 31 b8 34 0d 04 b0  2b f2 73 65 74 73 70 72  |%=1.4...+.setspr|
000007c0  69 74 65 28 22 53 51 55  41 52 45 22 2b c3 28 49  |ite("SQUARE"+.(I|
000007d0  25 29 2c 53 25 28 49 25  29 2c 68 25 2c 77 25 29  |%),S%(I%),h%,w%)|
000007e0  0d 04 ba 05 ed 0d 04 c4  05 20 0d 04 ce 0b e3 49  |......... .....I|
000007f0  25 3d 31 b8 32 0d 04 d8  29 f2 73 65 74 73 70 72  |%=1.2...).setspr|
00000800  69 74 65 28 22 57 41 4c  4c 22 2b c3 28 49 25 29  |ite("WALL"+.(I%)|
00000810  2c 57 25 28 49 25 29 2c  68 25 2c 77 25 29 0d 04  |,W%(I%),h%,w%)..|
00000820  e2 05 ed 0d 04 ec 05 e1  0d 04 f6 05 20 0d 05 00  |............ ...|
00000830  12 f4 83 49 6e 69 74 20  73 70 72 69 74 65 73 0d  |...Init sprites.|
00000840  05 0a 34 dd f2 73 65 74  73 70 72 69 74 65 28 73  |..4..setsprite(s|
00000850  74 72 69 6e 67 24 2c f8  20 76 61 6c 75 65 25 2c  |tring$,. value%,|
00000860  f8 20 77 69 64 74 68 25  2c f8 20 68 65 69 67 68  |. width%,. heigh|
00000870  74 25 29 0d 05 14 28 c8  99 20 4f 24 2c 32 35 36  |t%)...(.. O$,256|
00000880  2b 32 34 2c 61 72 65 61  25 2c 73 74 72 69 6e 67  |+24,area%,string|
00000890  24 20 b8 2c 2c 76 61 6c  75 65 25 0d 05 1e 31 c8  |$ .,,value%...1.|
000008a0  99 20 4f 24 2c 32 35 36  2b 34 30 2c 61 72 65 61  |. O$,256+40,area|
000008b0  25 2c 73 74 72 69 6e 67  24 20 b8 2c 2c 2c 77 69  |%,string$ .,,,wi|
000008c0  64 74 68 25 2c 68 65 69  67 68 74 25 0d 05 28 05  |dth%,height%..(.|
000008d0  e1 0d 05 32 05 20 0d 05  3c 0a f4 82 49 4e 49 54  |...2. ..<...INIT|
000008e0  0d 05 46 0a dd f2 69 6e  69 74 0d 05 50 08 4e 25  |..F...init..P.N%|
000008f0  3d 30 0d 05 5a 0f 52 58  25 3d 30 3a 52 59 25 3d  |=0..Z.RX%=0:RY%=|
00000900  30 0d 05 64 09 52 53 25  3d 30 0d 05 6e 09 50 53  |0..d.RS%=0..n.PS|
00000910  25 3d 30 0d 05 78 08 7a  25 3d 30 0d 05 82 08 72  |%=0..x.z%=0....r|
00000920  25 3d 30 0d 05 8c 0d 74  69 6d 65 25 3d 39 30 30  |%=0....time%=900|
00000930  0d 05 96 26 20 20 20 20  20 20 20 20 20 f4 20 33  |...&         . 3|
00000940  30 30 20 3d 20 33 20 53  45 43 4f 4e 44 53 78 32  |00 = 3 SECONDSx2|
00000950  30 3d 31 6d 69 6e 0d 05  a0 08 55 25 3d 30 0d 05  |0=1min....U%=0..|
00000960  aa 09 66 25 3d 36 34 0d  05 b4 10 58 25 3d 36 34  |..f%=64....X%=64|
00000970  3a 59 25 3d 38 39 36 0d  05 be 11 42 58 25 3d 36  |:Y%=896....BX%=6|
00000980  34 3a 42 59 25 3d 36 34  0d 05 c8 09 4d 25 3d 36  |4:BY%=64....M%=6|
00000990  34 0d 05 d2 0a 6c 65 76  25 3d 31 0d 05 dc 05 f7  |4....lev%=1.....|
000009a0  0d 05 e6 0b e3 49 25 3d  30 b8 37 0d 05 f0 14 f3  |.....I%=0.7.....|
000009b0  46 58 25 28 49 25 29 2c  46 59 25 28 49 25 29 0d  |FX%(I%),FY%(I%).|
000009c0  05 fa 29 46 58 25 28 49  25 29 3d 46 58 25 28 49  |..)FX%(I%)=FX%(I|
000009d0  25 29 2a 66 25 3a 46 59  25 28 49 25 29 3d 46 59  |%)*f%:FY%(I%)=FY|
000009e0  25 28 49 25 29 2a 66 25  0d 06 04 05 ed 0d 06 0e  |%(I%)*f%........|
000009f0  0b e3 49 25 3d 30 b8 37  0d 06 18 0b f3 56 25 28  |..I%=0.7.....V%(|
00000a00  49 25 29 0d 06 22 05 ed  0d 06 2c 05 20 0d 06 36  |I%).."....,. ..6|
00000a10  0b e3 49 25 3d 30 b8 37  0d 06 40 18 f3 53 48 4f  |..I%=0.7..@..SHO|
00000a20  58 25 28 49 25 29 2c 53  48 4f 59 25 28 49 25 29  |X%(I%),SHOY%(I%)|
00000a30  0d 06 4a 05 ed 0d 06 54  05 e1 0d 06 5e 1d f4 84  |..J....T....^...|
00000a40  44 41 54 41 20 46 4f 52  20 46 49 52 49 4e 47 20  |DATA FOR FIRING |
00000a50  4f 46 46 53 45 54 53 0d  06 68 2a dc 30 2c 31 2c  |OFFSETS..h*.0,1,|
00000a60  31 2c 31 2c 31 2c 30 2c  31 2c 2d 31 2c 30 2c 2d  |1,1,1,0,1,-1,0,-|
00000a70  31 2c 2d 31 2c 2d 31 2c  2d 31 2c 30 2c 2d 31 2c  |1,-1,-1,-1,0,-1,|
00000a80  31 0d 06 72 1c f4 84 44  41 54 41 20 46 4f 52 20  |1..r...DATA FOR |
00000a90  4c 41 53 45 52 20 4f 46  46 53 45 54 53 0d 06 7c  |LASER OFFSETS..||
00000aa0  1e dc 2d 32 30 2c 2d 31  39 2c 31 2c 32 31 2c 32  |..-20,-19,1,21,2|
00000ab0  30 2c 31 39 2c 2d 31 2c  2d 32 31 0d 06 86 05 20  |0,19,-1,-21.... |
00000ac0  0d 06 90 1c f4 84 44 41  54 41 82 46 4f 52 20 53  |......DATA.FOR S|
00000ad0  48 45 45 50 20 4f 46 46  53 45 54 53 0d 06 9a 04  |HEEP OFFSETS....|
00000ae0  0d 06 a4 36 dc 30 2c 36  34 2c 36 34 2c 36 34 2c  |...6.0,64,64,64,|
00000af0  36 34 2c 30 2c 36 34 2c  2d 36 34 2c 30 2c 2d 36  |64,0,64,-64,0,-6|
00000b00  34 2c 2d 36 34 2c 2d 36  34 2c 2d 36 34 2c 30 2c  |4,-64,-64,-64,0,|
00000b10  2d 36 34 2c 36 34 0d 06  ae 05 20 0d 06 b8 0c f4  |-64,64.... .....|
00000b20  85 53 43 52 45 45 4e 0d  06 c2 0c dd f2 73 63 72  |.SCREEN......scr|
00000b30  65 65 6e 0d 06 cc 10 58  25 3d 36 34 3a 59 25 3d  |een....X%=64:Y%=|
00000b40  38 39 36 0d 06 d6 1e ef  32 34 2c 36 34 3b 36 34  |896.....24,64;64|
00000b50  3b 31 32 38 30 2d 36 38  3b 31 30 32 34 2d 36 38  |;1280-68;1024-68|
00000b60  3b 0d 06 e0 0e e3 4a 25  3d 32 b8 31 88 2d 31 0d  |;.....J%=2.1.-1.|
00000b70  06 ea 0e c8 99 36 2c 31  31 32 2c 4a 25 0d 06 f4  |.....6,112,J%...|
00000b80  10 c8 99 36 2c 31 31 33  2c 33 2d 4a 25 0d 06 fe  |...6,113,3-J%...|
00000b90  0a fb 31 34 35 3a db 0d  07 08 1a e7 6c 65 76 25  |..145:......lev%|
00000ba0  83 32 3d 31 6e 75 6d 25  3d 31 8b 6e 75 6d 25 3d  |.2=1num%=1.num%=|
00000bb0  32 0d 07 12 29 c8 99 20  4f 24 2c 35 31 32 2b 33  |2...).. O$,512+3|
00000bc0  34 2c 61 72 65 61 25 2c  42 25 28 6e 75 6d 25 29  |4,area%,B%(num%)|
00000bd0  2c 42 58 25 2c 42 59 25  2c 30 0d 07 1c 05 ed 0d  |,BX%,BY%,0......|
00000be0  07 26 0f f2 70 6c 6f 74  5f 69 74 65 6d 73 0d 07  |.&..plot_items..|
00000bf0  30 06 f2 47 0d 07 3a 06  f2 53 0d 07 44 05 e1 0d  |0..G..:..S..D...|
00000c00  07 4e 05 20 0d 07 58 0b  f4 81 53 54 41 52 54 0d  |.N. ..X...START.|
00000c10  07 62 0b dd f2 73 74 61  72 74 0d 07 6c 09 6f 6b  |.b...start..l.ok|
00000c20  25 3d 30 0d 07 76 08 4e  25 3d 30 0d 07 80 0a 79  |%=0..v.N%=0....y|
00000c30  65 73 25 3d 30 0d 07 8a  09 53 53 25 3d 30 0d 07  |es%=0....SS%=0..|
00000c40  94 0d 57 25 3d 30 3a 5a  25 3d 31 0d 07 9e 10 58  |..W%=0:Z%=1....X|
00000c50  25 3d 36 34 3a 59 25 3d  38 39 36 0d 07 a8 08 51  |%=64:Y%=896....Q|
00000c60  25 3d 30 0d 07 b2 08 54  25 3d 30 0d 07 bc 09 52  |%=0....T%=0....R|
00000c70  53 25 3d 30 0d 07 c6 08  46 25 3d 30 0d 07 d0 17  |S%=0....F%=0....|
00000c80  46 58 25 3d 58 25 2b 33  32 3a 46 59 25 3d 59 25  |FX%=X%+32:FY%=Y%|
00000c90  2b 33 32 0d 07 da 09 47  25 3d 32 31 0d 07 e4 08  |+32....G%=21....|
00000ca0  43 25 3d 30 0d 07 ee 08  55 25 3d 30 0d 07 f8 09  |C%=0....U%=0....|
00000cb0  52 53 25 3d 30 0d 08 02  0b 53 53 25 28 29 3d 30  |RS%=0....SS%()=0|
00000cc0  0d 08 0c 06 f2 50 0d 08  16 07 d1 3d 30 0d 08 20  |.....P.....=0.. |
00000cd0  05 e1 0d 08 2a 05 20 0d  08 34 0a f4 86 44 49 4d  |....*. ..4...DIM|
00000ce0  53 0d 08 3e 0a dd f2 64  69 6d 73 0d 08 48 0c de  |S..>...dims..H..|
00000cf0  47 25 28 33 31 39 29 0d  08 52 0c de 67 25 28 33  |G%(319)..R..g%(3|
00000d00  31 39 29 0d 08 5c 12 6d  61 78 6d 69 72 72 6f 72  |19)..\.maxmirror|
00000d10  73 25 3d 35 30 0d 08 66  15 de 4d 58 25 28 6d 61  |s%=50..f..MX%(ma|
00000d20  78 6d 69 72 72 6f 72 73  25 29 0d 08 70 15 de 4d  |xmirrors%)..p..M|
00000d30  59 25 28 6d 61 78 6d 69  72 72 6f 72 73 25 29 0d  |Y%(maxmirrors%).|
00000d40  08 7a 12 de 46 58 25 28  37 29 2c 46 59 25 28 37  |.z..FX%(7),FY%(7|
00000d50  29 0d 08 84 0a de 56 25  28 37 29 0d 08 8e 1f de  |).....V%(7).....|
00000d60  53 48 58 25 28 33 32 29  2c 53 48 59 25 28 33 32  |SHX%(32),SHY%(32|
00000d70  29 2c 53 48 47 25 28 33  32 29 0d 08 98 16 de 53  |),SHG%(32).....S|
00000d80  48 4f 58 25 28 37 29 2c  53 48 4f 59 25 28 37 29  |HOX%(7),SHOY%(7)|
00000d90  0d 08 a2 0c de 53 53 25  28 33 32 29 0d 08 ac 0b  |.....SS%(32)....|
00000da0  53 53 25 28 29 3d 30 0d  08 b6 05 e1 0d 08 c0 05  |SS%()=0.........|
00000db0  20 0d 08 ca 0a f4 84 4b  45 59 53 0d 08 d4 07 dd  | ......KEYS.....|
00000dc0  f2 4b 0d 08 de 1d e7 a6  2d 35 36 77 61 73 25 3d  |.K......-56was%=|
00000dd0  91 3a f5 fd a6 2d 35 35  3a d1 3d 77 61 73 25 0d  |.:...-55:.=was%.|
00000de0  08 e8 15 e7 a6 2d 39 38  f2 4d 28 2d 4d 25 2c 30  |.....-98.M(-M%,0|
00000df0  2c 2d 31 29 0d 08 f2 13  e7 a6 2d 36 37 f2 4d 28  |,-1)......-67.M(|
00000e00  4d 25 2c 30 2c 31 29 0d  08 fc 15 e7 a6 2d 38 30  |M%,0,1)......-80|
00000e10  f2 4d 28 30 2c 4d 25 2c  2d 32 30 29 0d 09 06 16  |.M(0,M%,-20)....|
00000e20  e7 a6 2d 31 30 35 f2 4d  28 30 2c 2d 4d 25 2c 32  |..-105.M(0,-M%,2|
00000e30  30 29 0d 09 10 0a e7 a6  2d 33 f2 43 0d 09 1a 0e  |0)......-3.C....|
00000e40  e7 a6 2d 36 36 f2 52 28  37 29 0d 09 24 0e e7 a6  |..-66.R(7)..$...|
00000e50  2d 38 32 f2 52 28 31 29  0d 09 2e 11 e7 46 25 3d  |-82.R(1).....F%=|
00000e60  30 3a e7 a6 2d 37 34 f2  46 0d 09 38 05 e1 0d 09  |0:..-74.F..8....|
00000e70  42 05 20 0d 09 4c 0e f4  83 4d 4f 56 45 4d 45 4e  |B. ..L...MOVEMEN|
00000e80  54 0d 09 56 11 dd f2 4d  28 78 25 2c 79 25 2c 67  |T..V...M(x%,y%,g|
00000e90  25 29 0d 09 60 0a e7 7a  25 3e 30 e1 0d 09 6a 12  |%)..`..z%>0...j.|
00000ea0  c8 8e 20 47 25 28 47 25  2b 67 25 29 20 ca 0d 09  |.. G%(G%+g%) ...|
00000eb0  74 14 c9 2d 32 2c 39 2c  31 30 2c 31 31 2c 31 32  |t..-2,9,10,11,12|
00000ec0  3a e1 0d 09 7e 05 cb 0d  09 88 0a 47 25 2b 3d 67  |:...~......G%+=g|
00000ed0  25 0d 09 92 11 58 25 2b  3d 78 25 3a 59 25 2b 3d  |%....X%+=x%:Y%+=|
00000ee0  79 25 0d 09 9c 0f 55 25  3d 28 55 25 2b 31 29 83  |y%....U%=(U%+1).|
00000ef0  32 0d 09 a6 08 7a 25 3d  31 0d 09 b0 05 e1 0d 09  |2....z%=1.......|
00000f00  ba 05 20 0d 09 c4 1b f4  86 44 52 41 57 20 54 48  |.. ......DRAW TH|
00000f10  49 4e 47 53 20 54 4f 20  53 43 52 45 45 4e 0d 09  |INGS TO SCREEN..|
00000f20  ce 07 dd f2 50 0d 09 d8  12 20 20 f4 82 62 61 63  |....P....  ..bac|
00000f30  6b 67 72 6f 75 6e 64 0d  09 e2 22 c8 99 20 4f 24  |kground...".. O$|
00000f40  2c 26 32 32 32 2c 67 72  61 62 25 2c 62 67 25 2c  |,&222,grab%,bg%,|
00000f50  42 58 25 2c 42 59 25 2c  30 0d 09 ec 05 20 0d 09  |BX%,BY%,0.... ..|
00000f60  f6 1a 20 20 f4 82 72 65  61 63 74 6f 72 20 68 65  |..  ..reactor he|
00000f70  61 74 69 6e 67 20 75 70  0d 0a 00 30 e7 79 65 73  |ating up...0.yes|
00000f80  25 3d 31 79 65 73 25 3d  30 3a e6 37 3a f0 37 37  |%=1yes%=0:.7:.77|
00000f90  2c 52 58 25 2b 36 34 2c  52 59 25 2b 31 32 2b 28  |,RX%+64,RY%+12+(|
00000fa0  54 25 2a 34 29 3a f2 47  0d 0a 0a 05 20 0d 0a 14  |T%*4):.G.... ...|
00000fb0  20 20 20 f4 82 61 6c 74  65 72 20 6d 69 72 72 6f  |   ..alter mirro|
00000fc0  72 2f 64 65 61 64 20 6d  69 72 72 6f 72 0d 0a 1e  |r/dead mirror...|
00000fd0  0b c8 8e 20 51 25 20 ca  0d 0a 28 57 20 c9 20 31  |... Q% ...(W . 1|
00000fe0  3a c8 99 20 4f 24 2c 26  32 32 32 2c 61 72 65 61  |:.. O$,&222,area|
00000ff0  25 2c 53 25 28 6e 75 6d  25 2a 32 2d 31 2b 55 25  |%,S%(num%*2-1+U%|
00001000  29 2c 58 25 2c 59 25 2c  30 3a e7 67 25 28 47 25  |),X%,Y%,0:.g%(G%|
00001010  29 3d 38 c8 99 20 4f 24  2c 26 32 32 32 2c 61 72  |)=8.. O$,&222,ar|
00001020  65 61 25 2c 44 5a 25 2c  58 25 2c 59 25 2c 38 0d  |ea%,DZ%,X%,Y%,8.|
00001030  0a 32 2c 20 c8 99 20 4f  24 2c 26 32 32 32 2c 61  |.2, .. O$,&222,a|
00001040  72 65 61 25 2c 4d 25 28  57 25 29 2c 58 25 2c 59  |rea%,M%(W%),X%,Y|
00001050  25 2c 38 3a f2 47 3a 51  25 3d 30 0d 0a 3c 09 20  |%,8:.G:Q%=0..<. |
00001060  c9 20 32 3a 0d 0a 46 33  20 e7 47 25 28 56 25 29  |. 2:..F3 .G%(V%)|
00001070  3d 2d 31 c8 99 20 4f 24  2c 26 32 32 32 2c 61 72  |=-1.. O$,&222,ar|
00001080  65 61 25 2c 44 4d 25 2c  46 58 25 2d 33 32 2c 46  |ea%,DM%,FX%-32,F|
00001090  59 25 2d 33 32 2c 30 0d  0a 50 57 20 e7 67 25 28  |Y%-32,0..PW .g%(|
000010a0  56 25 29 3d 38 c8 99 20  4f 24 2c 26 32 32 32 2c  |V%)=8.. O$,&222,|
000010b0  61 72 65 61 25 2c 44 4d  25 2c 46 58 25 2d 33 32  |area%,DM%,FX%-32|
000010c0  2c 46 59 25 2d 33 32 2c  30 3a c8 99 20 4f 24 2c  |,FY%-32,0:.. O$,|
000010d0  26 32 32 32 2c 61 72 65  61 25 2c 44 5a 25 2c 46  |&222,area%,DZ%,F|
000010e0  58 25 2d 33 32 2c 46 59  25 2d 33 32 2c 38 0d 0a  |X%-32,FY%-32,8..|
000010f0  5a 11 20 f2 47 3a 51 25  3d 30 3a 46 25 3d 30 0d  |Z. .G:Q%=0:F%=0.|
00001100  0a 64 05 20 0d 0a 6e 05  cb 0d 0a 78 05 20 0d 0a  |.d. ..n....x. ..|
00001110  82 05 20 0d 0a 8c 18 20  20 f4 82 63 61 72 72 79  |.. ....  ..carry|
00001120  69 6e 67 20 6d 69 72 72  6f 72 3f 0d 0a 96 0b c8  |ing mirror?.....|
00001130  8e 20 43 25 20 ca 0d 0a  a0 31 20 c9 20 31 3a c8  |. C% ....1 . 1:.|
00001140  99 20 4f 24 2c 26 32 32  32 2c 61 72 65 61 25 2c  |. O$,&222,area%,|
00001150  53 25 28 6e 75 6d 25 2a  32 2d 31 2b 55 25 29 2c  |S%(num%*2-1+U%),|
00001160  58 25 2c 59 25 2c 30 0d  0a aa 33 20 e7 67 25 28  |X%,Y%,0...3 .g%(|
00001170  47 25 29 3d 38 c8 99 20  4f 24 2c 26 32 32 32 2c  |G%)=8.. O$,&222,|
00001180  61 72 65 61 25 2c 44 5a  25 2c 58 25 2c 59 25 2c  |area%,DZ%,X%,Y%,|
00001190  38 3a 47 25 28 47 25 29  3d 38 0d 0a b4 0c 20 f2  |8:G%(G%)=8.... .|
000011a0  47 3a 43 25 3d 32 0d 0a  be 05 20 0d 0a c8 30 20  |G:C%=2.... ...0 |
000011b0  c9 20 33 3a c8 99 20 4f  24 2c 26 32 32 32 2c 61  |. 3:.. O$,&222,a|
000011c0  72 65 61 25 2c 4d 25 28  57 25 29 2c 58 25 2c 59  |rea%,M%(W%),X%,Y|
000011d0  25 2c 38 3a f2 47 3a 43  25 3d 30 0d 0a d2 05 cb  |%,8:.G:C%=0.....|
000011e0  0d 0a dc 05 20 0d 0a e6  13 20 20 f4 82 66 69 72  |.... ....  ..fir|
000011f0  65 20 6c 61 73 65 72 3f  0d 0a f0 0b c8 8e 20 46  |e laser?...... F|
00001200  25 20 ca 0d 0a fa 0b 20  c9 20 31 3a f2 4c 0d 0b  |% ..... . 1:.L..|
00001210  04 0b 20 c9 20 32 3a f2  57 0d 0b 0e 0b 20 c9 20  |.. . 2:.W.... . |
00001220  33 3a f2 48 0d 0b 18 0d  20 c9 20 34 3a f2 64 69  |3:.H.... . 4:.di|
00001230  65 0d 0b 22 64 20 c9 20  35 3a 47 25 28 56 25 29  |e.."d . 5:G%(V%)|
00001240  3d 38 3a 67 25 28 56 25  29 3d 38 3a c8 99 20 4f  |=8:g%(V%)=8:.. O|
00001250  24 2c 26 32 32 32 2c 61  72 65 61 25 2c 44 4d 25  |$,&222,area%,DM%|
00001260  2c 46 58 25 2d 33 32 2c  46 59 25 2d 33 32 2c 30  |,FX%-32,FY%-32,0|
00001270  3a c8 99 20 4f 24 2c 26  32 32 32 2c 61 72 65 61  |:.. O$,&222,area|
00001280  25 2c 44 5a 25 2c 46 58  25 2d 33 32 2c 46 59 25  |%,DZ%,FX%-32,FY%|
00001290  2d 33 32 2c 38 0d 0b 2c  0c 20 f2 47 3a 46 25 3d  |-32,8..,. .G:F%=|
000012a0  30 0d 0b 36 05 cb 0d 0b  40 05 20 0d 0b 4a 14 20  |0..6....@. ..J. |
000012b0  20 f4 82 70 72 69 6e 74  20 73 68 65 65 70 3f 0d  | ..print sheep?.|
000012c0  0b 54 0c c8 8e 20 52 53  25 20 ca 0d 0b 5e 0c 20  |.T... RS% ...^. |
000012d0  c9 30 2c 31 2c 32 3a 0d  0b 68 0e 20 e3 49 25 3d  |.0,1,2:..h. .I%=|
000012e0  31 b8 4e 53 25 0d 0b 72  46 20 e7 53 53 25 28 49  |1.NS%..rF .SS%(I|
000012f0  25 29 3d 30 3a c8 99 20  4f 24 2c 35 31 32 2b 33  |%)=0:.. O$,512+3|
00001300  34 2c 61 72 65 61 25 2c  53 48 25 28 b3 28 34 29  |4,area%,SH%(.(4)|
00001310  2d 31 2c 52 53 25 29 2c  53 48 58 25 28 49 25 29  |-1,RS%),SHX%(I%)|
00001320  2c 53 48 59 25 28 49 25  29 2c 38 0d 0b 7c 42 20  |,SHY%(I%),8..|B |
00001330  e7 53 53 25 28 49 25 29  3d 31 3a c8 99 20 4f 24  |.SS%(I%)=1:.. O$|
00001340  2c 35 31 32 2b 33 34 2c  61 72 65 61 25 2c 53 48  |,512+34,area%,SH|
00001350  25 28 30 2c 52 53 25 29  2c 53 48 58 25 28 49 25  |%(0,RS%),SHX%(I%|
00001360  29 2c 53 48 59 25 28 49  25 29 2c 31 32 0d 0b 86  |),SHY%(I%),12...|
00001370  06 20 ed 0d 0b 90 05 cb  0d 0b 9a 05 20 0d 0b a4  |. .......... ...|
00001380  13 20 20 f4 82 70 72 69  6e 74 20 6c 61 73 65 72  |.  ..print laser|
00001390  0d 0b ae 28 e7 43 25 3d  32 c8 99 20 4f 24 2c 26  |...(.C%=2.. O$,&|
000013a0  32 32 32 2c 61 72 65 61  25 2c 4d 25 28 57 25 29  |222,area%,M%(W%)|
000013b0  2c 58 25 2c 59 25 2c 38  0d 0b b8 23 c8 99 20 4f  |,X%,Y%,8...#.. O|
000013c0  24 2c 26 32 32 32 2c 61  72 65 61 25 2c 4c 25 28  |$,&222,area%,L%(|
000013d0  57 25 29 2c 58 25 2c 59  25 2c 38 0d 0b c2 05 20  |W%),X%,Y%,8.... |
000013e0  0d 0b cc 1d f1 8a 33 31  2c 30 29 3b 22 4c 45 56  |......31,0);"LEV|
000013f0  45 4c 20 22 3b 6c 65 76  25 3b 22 20 22 0d 0b d6  |EL ";lev%;" "...|
00001400  05 e1 0d 0b e0 05 20 0d  0b ea 1a f4 81 42 4f 52  |...... ......BOR|
00001410  44 45 52 20 47 52 49 44  20 44 45 46 41 55 4c 54  |DER GRID DEFAULT|
00001420  53 0d 0b f4 0c dd f2 62  6f 72 64 65 72 0d 0b fe  |S......border...|
00001430  0b 47 25 28 29 3d 2d 31  0d 0c 08 0b 67 25 28 29  |.G%()=-1....g%()|
00001440  3d 2d 31 0d 0c 12 0c e3  49 25 3d 30 b8 31 39 0d  |=-1.....I%=0.19.|
00001450  0c 1c 0d 47 25 28 49 25  29 3d 2d 32 0d 0c 26 0d  |...G%(I%)=-2..&.|
00001460  67 25 28 49 25 29 3d 2d  32 0d 0c 30 11 47 25 28  |g%(I%)=-2..0.G%(|
00001470  49 25 2b 33 30 30 29 3d  2d 32 0d 0c 3a 11 67 25  |I%+300)=-2..:.g%|
00001480  28 49 25 2b 33 30 30 29  3d 2d 32 0d 0c 44 05 ed  |(I%+300)=-2..D..|
00001490  0d 0c 4e 05 20 0d 0c 58  10 e3 49 25 3d 30 b8 33  |..N. ..X..I%=0.3|
000014a0  30 30 88 32 30 0d 0c 62  0d 47 25 28 49 25 29 3d  |00.20..b.G%(I%)=|
000014b0  2d 32 0d 0c 6c 0d 67 25  28 49 25 29 3d 2d 32 0d  |-2..l.g%(I%)=-2.|
000014c0  0c 76 10 47 25 28 49 25  2b 31 39 29 3d 2d 32 0d  |.v.G%(I%+19)=-2.|
000014d0  0c 80 10 67 25 28 49 25  2b 31 39 29 3d 2d 32 0d  |...g%(I%+19)=-2.|
000014e0  0c 8a 05 ed 0d 0c 94 05  e1 0d 0c 9e 05 20 0d 0c  |............. ..|
000014f0  a8 1a f4 83 50 4c 4f 54  20 49 54 45 4d 53 20 54  |....PLOT ITEMS T|
00001500  4f 20 53 43 52 45 45 4e  0d 0c b2 10 dd f2 70 6c  |O SCREEN......pl|
00001510  6f 74 5f 69 74 65 6d 73  0d 0c bc 11 68 61 64 72  |ot_items....hadr|
00001520  65 61 63 74 6f 72 25 3d  30 0d 0c c6 27 6e 61 6d  |eactor%=0...'nam|
00001530  65 24 3d 22 3c 4c 41 53  45 52 24 44 49 52 3e 2e  |e$="<LASER$DIR>.|
00001540  22 2b 22 44 41 54 41 22  2b c3 28 6c 65 76 25 29  |"+"DATA"+.(lev%)|
00001550  0d 0c d0 13 66 69 6c 65  31 25 3d 8e 28 6e 61 6d  |....file1%=.(nam|
00001560  65 24 29 0d 0c da 11 70  78 25 3d 30 3a 70 79 25  |e$)....px%=0:py%|
00001570  3d 38 39 36 0d 0c e4 0e  e3 4a 25 3d 32 31 b8 32  |=896.....J%=21.2|
00001580  39 38 0d 0c ee 0b 70 78  25 2b 3d 36 34 0d 0c f8  |98....px%+=64...|
00001590  12 e8 23 66 69 6c 65 31  25 2c 64 61 74 61 25 0d  |..#file1%,data%.|
000015a0  0d 02 19 e7 4a 25 83 32  30 3d 30 70 79 25 2d 3d  |....J%.20=0py%-=|
000015b0  36 34 3a 70 78 25 3d 30  0d 0d 0c 0c ec 70 78 25  |64:px%=0.....px%|
000015c0  2c 70 79 25 0d 0d 16 0e  c8 8e 20 64 61 74 61 25  |,py%...... data%|
000015d0  20 ca 0d 0d 20 3b 20 c9  20 30 2c 31 2c 32 2c 33  | ... ; . 0,1,2,3|
000015e0  2c 34 2c 35 2c 36 2c 37  3a c8 99 20 4f 24 2c 26  |,4,5,6,7:.. O$,&|
000015f0  32 32 32 2c 61 72 65 61  25 2c 4d 25 28 64 61 74  |222,area%,M%(dat|
00001600  61 25 29 2c 70 78 25 2c  70 79 25 2c 38 0d 0d 2a  |a%),px%,py%,8..*|
00001610  26 20 c9 38 3a c8 99 20  4f 24 2c 26 32 32 32 2c  |& .8:.. O$,&222,|
00001620  61 72 65 61 25 2c 44 5a  25 2c 70 78 25 2c 70 79  |area%,DZ%,px%,py|
00001630  25 2c 38 0d 0d 34 5a 20  c9 39 3a e7 68 61 64 72  |%,8..4Z .9:.hadr|
00001640  65 61 63 74 6f 72 25 3d  30 68 61 64 72 65 61 63  |eactor%=0hadreac|
00001650  74 6f 72 25 3d 31 3a c8  99 20 4f 24 2c 26 32 32  |tor%=1:.. O$,&22|
00001660  32 2c 61 72 65 61 25 2c  52 25 28 31 29 2c 70 78  |2,area%,R%(1),px|
00001670  25 2c 70 79 25 2d 36 34  2c 30 3a 52 58 25 3d 70  |%,py%-64,0:RX%=p|
00001680  78 25 3a 52 59 25 3d 70  79 25 2d 36 34 0d 0d 3e  |x%:RY%=py%-64..>|
00001690  29 20 c9 31 30 3a c8 99  20 4f 24 2c 26 32 32 32  |) .10:.. O$,&222|
000016a0  2c 61 72 65 61 25 2c 57  25 28 31 29 2c 70 78 25  |,area%,W%(1),px%|
000016b0  2c 70 79 25 2c 38 0d 0d  48 29 20 c9 31 31 3a c8  |,py%,8..H) .11:.|
000016c0  99 20 4f 24 2c 26 32 32  32 2c 61 72 65 61 25 2c  |. O$,&222,area%,|
000016d0  57 25 28 32 29 2c 70 78  25 2c 70 79 25 2c 38 0d  |W%(2),px%,py%,8.|
000016e0  0d 52 05 cb 0d 0d 5c 10  47 25 28 4a 25 29 3d 64  |.R....\.G%(J%)=d|
000016f0  61 74 61 25 0d 0d 66 1e  e7 64 61 74 61 25 3e 2d  |ata%..f..data%>-|
00001700  31 80 64 61 74 61 25 3c  38 67 25 28 4a 25 29 3d  |1.data%<8g%(J%)=|
00001710  2d 31 0d 0d 70 20 e7 64  61 74 61 25 3c 30 84 64  |-1..p .data%<0.d|
00001720  61 74 61 25 3e 37 67 25  28 4a 25 29 3d 64 61 74  |ata%>7g%(J%)=dat|
00001730  61 25 0d 0d 7a 05 ed 0d  0d 84 0c d9 23 66 69 6c  |a%..z.......#fil|
00001740  65 31 25 0d 0d 8e 29 c8  99 20 4f 24 2c 26 32 32  |e1%...).. O$,&22|
00001750  32 2c 61 72 65 61 25 2c  53 25 28 6e 75 6d 25 2a  |2,area%,S%(num%*|
00001760  32 2d 31 29 2c 58 25 2c  59 25 2c 30 0d 0d 98 05  |2-1),X%,Y%,0....|
00001770  e1 0d 0d a2 05 20 0d 0d  ac 0a f4 85 47 52 41 42  |..... ......GRAB|
00001780  0d 0d b6 07 dd f2 47 0d  0d c0 27 c8 99 20 4f 24  |......G...'.. O$|
00001790  2c 32 35 36 2b 31 36 2c  67 72 61 62 25 2c 67 24  |,256+16,grab%,g$|
000017a0  2c 30 2c 61 25 2c 62 25  2c 63 25 2c 64 25 0d 0d  |,0,a%,b%,c%,d%..|
000017b0  ca 20 c8 99 20 4f 24 2c  32 35 36 2b 32 34 2c 67  |. .. O$,256+24,g|
000017c0  72 61 62 25 2c 67 24 20  b8 2c 2c 62 67 25 0d 0d  |rab%,g$ .,,bg%..|
000017d0  d4 2c c8 99 20 4f 24 2c  32 35 36 2b 34 30 2c 67  |.,.. O$,256+40,g|
000017e0  72 61 62 25 2c 67 24 20  b8 2c 2c 2c 77 69 64 74  |rab%,g$ .,,,widt|
000017f0  68 25 2c 68 65 69 67 68  74 25 0d 0d de 05 e1 0d  |h%,height%......|
00001800  0d e8 05 20 0d 0d f2 0c  f4 82 52 4f 54 41 54 45  |... ......ROTATE|
00001810  0d 0d fc 0b dd f2 52 28  77 25 29 0d 0e 06 0a e7  |......R(w%).....|
00001820  72 25 3e 30 e1 0d 0e 10  10 57 25 3d 28 57 25 2b  |r%>0.....W%=(W%+|
00001830  77 25 29 83 38 0d 0e 1a  28 e7 47 25 28 47 25 29  |w%).8...(.G%(G%)|
00001840  3e 2d 31 80 47 25 28 47  25 29 3c 38 ef 37 3a 51  |>-1.G%(G%)<8.7:Q|
00001850  25 3d 31 3a 47 25 28 47  25 29 3d 57 25 0d 0e 24  |%=1:G%(G%)=W%..$|
00001860  08 72 25 3d 31 0d 0e 2e  05 e1 0d 0e 38 05 20 0d  |.r%=1.......8. .|
00001870  0e 42 0a f4 81 46 49 52  45 0d 0e 4c 07 dd f2 46  |.B...FIRE..L...F|
00001880  0d 0e 56 10 e7 47 25 28  47 25 29 3c 3e 2d 31 e1  |..V..G%(G%)<>-1.|
00001890  0d 0e 60 0f d4 31 2c 2d  31 35 2c 36 31 2c 34 0d  |..`..1,-15,61,4.|
000018a0  0e 6a 08 46 25 3d 31 0d  0e 74 09 44 25 3d 57 25  |.j.F%=1..t.D%=W%|
000018b0  0d 0e 7e 0d 46 58 25 3d  58 25 2b 33 32 0d 0e 88  |..~.FX%=X%+32...|
000018c0  0d 46 59 25 3d 59 25 2b  33 32 0d 0e 92 09 56 25  |.FY%=Y%+32....V%|
000018d0  3d 47 25 0d 0e 9c 05 e1  0d 0e a6 05 20 0d 0e b0  |=G%......... ...|
000018e0  12 f4 86 43 41 52 52 59  20 4d 49 52 52 4f 52 0d  |...CARRY MIRROR.|
000018f0  0e ba 07 dd f2 43 0d 0e  c4 0b c8 8e 20 43 25 20  |.....C...... C% |
00001900  ca 0d 0e ce 39 20 c9 20  30 3a e7 47 25 28 47 25  |....9 . 0:.G%(G%|
00001910  29 3e 2d 31 80 47 25 28  47 25 29 3c 38 3a 43 25  |)>-1.G%(G%)<8:C%|
00001920  3d 31 3a 47 25 28 47 25  29 3d 2d 31 3a d4 33 2c  |=1:G%(G%)=-1:.3,|
00001930  2d 31 35 2c 31 30 30 2c  31 30 0d 0e d8 05 20 0d  |-15,100,10.... .|
00001940  0e e2 30 20 c9 20 32 3a  e7 47 25 28 47 25 29 3d  |..0 . 2:.G%(G%)=|
00001950  2d 31 3a 43 25 3d 33 3a  47 25 28 47 25 29 3d 57  |-1:C%=3:G%(G%)=W|
00001960  25 3a d4 33 2c 2d 31 35  2c 31 36 30 2c 31 30 0d  |%:.3,-15,160,10.|
00001970  0e ec 33 e7 47 25 28 47  25 29 3d 38 3a 43 25 3d  |..3.G%(G%)=8:C%=|
00001980  33 3a 47 25 28 47 25 29  3d 57 25 3a 67 25 28 47  |3:G%(G%)=W%:g%(G|
00001990  25 29 3d 38 3a d4 33 2c  2d 31 35 2c 31 36 30 2c  |%)=8:.3,-15,160,|
000019a0  31 30 0d 0e f6 05 20 0d  0f 00 05 cb 0d 0f 0a 0c  |10.... .........|
000019b0  c8 96 3a c8 96 3a c8 96  0d 0f 14 05 e1 0d 0f 1e  |..:..:..........|
000019c0  05 20 0d 0f 28 12 f4 83  4c 41 53 45 52 20 46 49  |. ..(...LASER FI|
000019d0  52 45 21 21 0d 0f 32 07  dd f2 4c 0d 0f 3c 34 20  |RE!!..2...L..<4 |
000019e0  e7 47 25 28 56 25 29 3c  30 84 47 25 28 56 25 29  |.G%(V%)<0.G%(V%)|
000019f0  3e 37 80 47 25 28 56 25  29 3c 31 31 3a c8 8e 20  |>7.G%(V%)<11:.. |
00001a00  47 25 28 56 25 2b 56 25  28 44 25 29 29 20 ca 0d  |G%(V%+V%(D%)) ..|
00001a10  0f 46 10 20 c9 2d 32 2c  31 30 3a 46 25 3d 32 0d  |.F. .-2,10:F%=2.|
00001a20  0f 50 23 20 f4 57 48 45  4e 31 31 3a 46 25 3d 35  |.P# .WHEN11:F%=5|
00001a30  3a 53 4f 55 4e 44 32 2c  2d 31 35 2c 32 30 30 2c  |:SOUND2,-15,200,|
00001a40  32 30 0d 0f 5a 06 20 cb  0d 0f 64 14 e7 46 25 3d  |20..Z. ...d..F%=|
00001a50  32 80 47 25 28 56 25 29  3c 3e 39 e1 0d 0f 6e 05  |2.G%(V%)<>9...n.|
00001a60  20 0d 0f 78 0f c8 8e 20  47 25 28 56 25 29 20 ca  | ..x... G%(V%) .|
00001a70  0d 0f 82 11 20 c9 20 2d  31 2c 38 2c 31 33 3a f2  |.... . -1,8,13:.|
00001a80  5a 0d 0f 8c 18 20 c9 30  2c 31 2c 32 2c 33 2c 34  |Z.... .0,1,2,3,4|
00001a90  2c 35 2c 36 2c 37 3a f2  44 0d 0f 96 05 20 0d 0f  |,5,6,7:.D.... ..|
00001aa0  a0 12 20 f4 85 48 49 54  20 52 45 41 43 54 4f 52  |.. ..HIT REACTOR|
00001ab0  0d 0f aa 0c 20 c9 39 3a  4e 25 3d 31 0d 0f b4 05  |.... .9:N%=1....|
00001ac0  20 0d 0f be 11 20 f4 82  48 49 54 20 42 4c 4f 43  | .... ..HIT BLOC|
00001ad0  4b 53 0d 0f c8 0d 20 c9  31 30 3a 46 25 3d 32 0d  |KS.... .10:F%=2.|
00001ae0  0f d2 1b 20 c9 31 31 3a  46 25 3d 35 3a d4 32 2c  |... .11:F%=5:.2,|
00001af0  2d 31 35 2c 32 30 30 2c  32 30 0d 0f dc 05 20 0d  |-15,200,20.... .|
00001b00  0f e6 11 20 f4 81 48 49  54 20 53 48 45 45 50 21  |... ..HIT SHEEP!|
00001b10  0d 0f f0 10 20 c9 31 32  3a 46 25 3d 30 3a f2 4a  |.... .12:F%=0:.J|
00001b20  0d 0f fa 05 20 0d 10 04  05 cb 0d 10 0e 0e e7 56  |.... ..........V|
00001b30  25 3d 47 25 46 25 3d 34  0d 10 18 05 e1 0d 10 22  |%=G%F%=4......."|
00001b40  05 20 0d 10 2c 1c f4 82  4c 41 53 45 52 20 48 49  |. ..,...LASER HI|
00001b50  54 53 20 57 41 4c 4c 2f  42 4f 52 44 45 52 0d 10  |TS WALL/BORDER..|
00001b60  36 07 dd f2 57 0d 10 40  08 46 25 3d 30 0d 10 4a  |6...W..@.F%=0..J|
00001b70  05 e1 0d 10 54 05 20 0d  10 5e 1d f4 85 44 45 46  |....T. ..^...DEF|
00001b80  4c 45 43 54 20 4c 41 53  45 52 20 42 59 20 4d 49  |LECT LASER BY MI|
00001b90  52 52 4f 52 0d 10 68 07  dd f2 44 0d 10 72 35 e7  |RROR..h...D..r5.|
00001ba0  94 28 47 25 28 56 25 29  2d 44 25 29 3c 33 84 94  |.(G%(V%)-D%)<3..|
00001bb0  28 47 25 28 56 25 29 2d  44 25 29 3e 35 d4 31 2c  |(G%(V%)-D%)>5.1,|
00001bc0  2d 31 35 2c 32 30 2c 32  30 3a 46 25 3d 33 3a e1  |-15,20,20:F%=3:.|
00001bd0  0d 10 7c 10 d4 37 2c 2d  31 35 2c 32 35 35 2c 35  |..|..7,-15,255,5|
00001be0  0d 10 86 25 44 25 3d 28  44 25 2b 32 2a 28 36 2d  |...%D%=(D%+2*(6-|
00001bf0  28 28 44 25 2b 38 2d 47  25 28 56 25 29 29 83 38  |((D%+8-G%(V%)).8|
00001c00  29 29 29 83 38 0d 10 90  06 f2 5a 0d 10 9a 05 e1  |))).8.....Z.....|
00001c10  0d 10 a4 05 20 0d 10 ae  18 f4 81 44 52 41 57 20  |.... ......DRAW |
00001c20  4c 41 53 45 52 20 46 49  52 45 20 49 4e 0d 10 b8  |LASER FIRE IN...|
00001c30  07 dd f2 5a 0d 10 c2 1c  e7 47 25 28 56 25 2b 56  |...Z.....G%(V%+V|
00001c40  25 28 44 25 29 29 3d 2d  32 3a 46 25 3d 32 3a e1  |%(D%))=-2:F%=2:.|
00001c50  0d 10 cc 0f e6 33 3a ec  46 58 25 2c 46 59 25 0d  |.....3:.FX%,FY%.|
00001c60  10 d6 1f ec 46 58 25 2c  46 59 25 3a f0 31 2c 46  |....FX%,FY%:.1,F|
00001c70  58 25 28 44 25 29 2c 46  59 25 28 44 25 29 0d 10  |X%(D%),FY%(D%)..|
00001c80  e0 1d 46 58 25 2b 3d 46  58 25 28 44 25 29 3a 46  |..FX%+=FX%(D%):F|
00001c90  59 25 2b 3d 46 59 25 28  44 25 29 0d 10 ea 0e 56  |Y%+=FY%(D%)....V|
00001ca0  25 2b 3d 56 25 28 44 25  29 0d 10 f4 05 e1 0d 10  |%+=V%(D%).......|
00001cb0  fe 05 20 0d 11 08 1e f4  83 48 49 54 20 57 52 4f  |.. ......HIT WRO|
00001cc0  4e 47 20 53 49 44 45 20  4f 46 20 4d 49 52 52 4f  |NG SIDE OF MIRRO|
00001cd0  52 0d 11 12 07 dd f2 48  0d 11 1c 21 e7 47 25 28  |R......H...!.G%(|
00001ce0  56 25 29 3e 2d 31 80 47  25 28 56 25 29 3c 38 3a  |V%)>-1.G%(V%)<8:|
00001cf0  47 25 28 56 25 29 3d 2d  31 0d 11 26 15 e7 67 25  |G%(V%)=-1..&..g%|
00001d00  28 56 25 29 3d 38 47 25  28 56 25 29 3d 38 0d 11  |(V%)=8G%(V%)=8..|
00001d10  30 08 51 25 3d 32 0d 11  3a 05 e1 0d 11 44 05 20  |0.Q%=2..:....D. |
00001d20  0d 11 4e 1a f4 82 4c 41  53 45 52 20 48 49 54 20  |..N...LASER HIT |
00001d30  4f 4e 20 52 45 41 43 54  4f 52 0d 11 58 07 dd f2  |ON REACTOR..X...|
00001d40  59 0d 11 62 08 46 25 3d  30 0d 11 6c 0c e3 4a 25  |Y..b.F%=0..l..J%|
00001d50  3d 31 b8 33 30 0d 11 76  24 c8 99 20 4f 24 2c 26  |=1.30..v$.. O$,&|
00001d60  32 32 32 2c 61 72 65 61  25 2c 52 25 28 31 29 2c  |222,area%,R%(1),|
00001d70  52 58 25 2c 52 59 25 2c  33 0d 11 80 0f 74 3d 91  |RX%,RY%,3....t=.|
00001d80  3a f5 fd 91 2d 74 3e 33  0d 11 8a 15 d4 33 2c 2d  |:...-t>3.....3,-|
00001d90  31 35 2c b3 28 39 30 29  2b 39 30 2c 31 0d 11 94  |15,.(90)+90,1...|
00001da0  05 ed 0d 11 9e 12 e7 47  25 28 47 25 29 3d 38 6f  |.......G%(G%)=8o|
00001db0  6b 25 3d 31 0d 11 a8 15  e7 47 25 28 47 25 29 3c  |k%=1.....G%(G%)<|
00001dc0  3e 38 6c 65 76 25 2b 3d  31 0d 11 b2 12 e7 6f 6b  |>8lev%+=1.....ok|
00001dd0  25 3d 31 c8 99 36 2c 32  31 3a e1 0d 11 bc 12 d4  |%=1..6,21:......|
00001de0  32 2c 2d 31 35 2c 31 30  30 2c 31 30 30 0d 11 c6  |2,-15,100,100...|
00001df0  0b e3 4a 25 3d 31 b8 38  0d 11 d0 25 c8 99 20 4f  |..J%=1.8...%.. O|
00001e00  24 2c 26 32 32 32 2c 61  72 65 61 25 2c 52 25 28  |$,&222,area%,R%(|
00001e10  4a 25 29 2c 52 58 25 2c  52 59 25 2c 30 0d 11 da  |J%),RX%,RY%,0...|
00001e20  10 74 3d 91 3a f5 fd 91  2d 74 3e 31 30 0d 11 e4  |.t=.:...-t>10...|
00001e30  05 ed 0d 11 ee 05 20 0d  11 f8 0a c8 99 36 2c 32  |...... ......6,2|
00001e40  31 0d 12 02 11 f5 fd a6  2d 39 39 84 a6 28 32 30  |1.......-99..(20|
00001e50  30 29 0d 12 0c 05 e1 0d  12 16 05 20 0d 12 20 15  |0)......... .. .|
00001e60  f4 86 48 45 41 54 20 55  50 20 52 45 41 43 54 4f  |..HEAT UP REACTO|
00001e70  52 0d 12 2a 07 dd f2 42  0d 12 34 0b e7 52 53 25  |R..*...B..4..RS%|
00001e80  3d 33 e1 0d 12 3e 1c e7  91 3e 74 69 6d 65 25 54  |=3...>...>time%T|
00001e90  25 2b 3d 31 3a d1 3d 30  3a 79 65 73 25 3d 31 0d  |%+=1:.=0:yes%=1.|
00001ea0  12 48 0b c8 8e 20 54 25  20 ca 0d 12 52 0f 20 c9  |.H... T% ...R. .|
00001eb0  20 31 30 3a 52 53 25 3d  31 0d 12 5c 0f 20 c9 20  | 10:RS%=1..\. . |
00001ec0  31 35 3a 52 53 25 3d 32  0d 12 66 0f 20 c9 20 32  |15:RS%=2..f. . 2|
00001ed0  30 3a 52 53 25 3d 33 0d  12 70 05 cb 0d 12 7a 05  |0:RS%=3..p....z.|
00001ee0  e1 0d 12 84 05 20 0d 12  8e 22 f4 82 52 41 4e 44  |..... ..."..RAND|
00001ef0  4f 4d 20 53 48 45 45 50  53 20 28 45 4c 4c 4f 20  |OM SHEEPS (ELLO |
00001f00  53 48 45 45 50 53 21 29  0d 12 98 07 dd f2 53 0d  |SHEEPS!)......S.|
00001f10  12 a2 11 4e 53 25 3d b3  28 34 29 2b 6c 65 76 25  |...NS%=.(4)+lev%|
00001f20  0d 12 ac 0d e3 49 25 3d  31 b8 4e 53 25 0d 12 b6  |.....I%=1.NS%...|
00001f30  25 f5 52 25 3d b3 28 32  37 37 29 2b 32 30 3a fd  |%.R%=.(277)+20:.|
00001f40  47 25 28 52 25 29 3d 2d  31 84 47 25 28 52 25 29  |G%(R%)=-1.G%(R%)|
00001f50  3d 38 0d 12 c0 19 47 25  28 52 25 29 3d 31 32 3a  |=8....G%(R%)=12:|
00001f60  53 48 47 25 28 49 25 29  3d 52 25 0d 12 ca 31 53  |SHG%(I%)=R%...1S|
00001f70  48 58 25 28 49 25 29 3d  28 52 25 83 32 30 29 2a  |HX%(I%)=(R%.20)*|
00001f80  36 34 3a 53 48 59 25 28  49 25 29 3d 39 36 30 2d  |64:SHY%(I%)=960-|
00001f90  28 28 52 25 81 32 30 29  2a 36 34 29 0d 12 d4 14  |((R%.20)*64)....|
00001fa0  e3 4b 3d 31 b8 32 3a c8  99 36 2c 31 31 32 2c 4b  |.K=1.2:..6,112,K|
00001fb0  0d 12 de 3a c8 99 20 4f  24 2c 35 31 32 2b 33 34  |...:.. O$,512+34|
00001fc0  2c 61 72 65 61 25 2c 53  48 25 28 b3 28 34 29 2d  |,area%,SH%(.(4)-|
00001fd0  31 2c 52 53 25 29 2c 53  48 58 25 28 49 25 29 2c  |1,RS%),SHX%(I%),|
00001fe0  53 48 59 25 28 49 25 29  2c 38 0d 12 e8 05 ed 0d  |SHY%(I%),8......|
00001ff0  12 f2 05 ed 0d 12 fc 05  e1 0d 13 06 05 20 0d 13  |............. ..|
00002000  10 10 f4 86 4d 4f 56 45  20 53 48 45 45 50 0d 13  |....MOVE SHEEP..|
00002010  1a 07 dd f2 45 0d 13 24  0b e7 52 53 25 3d 33 e1  |....E..$..RS%=3.|
00002020  0d 13 2e 0e 72 73 25 3d  b3 28 4e 53 25 29 0d 13  |....rs%=.(NS%)..|
00002030  38 32 e7 53 53 25 28 72  73 25 29 3d 31 80 b3 28  |82.SS%(rs%)=1..(|
00002040  32 30 29 3d 31 53 53 25  28 72 73 25 29 3d 30 3a  |20)=1SS%(rs%)=0:|
00002050  47 25 28 53 48 47 25 28  72 73 25 29 29 3d 31 32  |G%(SHG%(rs%))=12|
00002060  0d 13 42 10 e7 53 53 25  28 72 73 25 29 3d 31 e1  |..B..SS%(rs%)=1.|
00002070  0d 13 4c 0d 52 25 3d b3  28 38 29 2d 31 0d 13 56  |..L.R%=.(8)-1..V|
00002080  1d c8 8e 20 47 25 28 53  48 47 25 28 72 73 25 29  |... G%(SHG%(rs%)|
00002090  2b 56 25 28 52 25 29 29  20 ca 0d 13 60 0a 20 c9  |+V%(R%)) ...`. .|
000020a0  2d 31 2c 38 0d 13 6a 2e  20 53 48 58 25 28 72 73  |-1,8..j. SHX%(rs|
000020b0  25 29 2b 3d 53 48 4f 58  25 28 52 25 29 3a 53 48  |%)+=SHOX%(R%):SH|
000020c0  59 25 28 72 73 25 29 2b  3d 53 48 4f 59 25 28 52  |Y%(rs%)+=SHOY%(R|
000020d0  25 29 0d 13 74 1f 47 25  28 53 48 47 25 28 72 73  |%)..t.G%(SHG%(rs|
000020e0  25 29 29 3d 67 25 28 53  48 47 25 28 72 73 25 29  |%))=g%(SHG%(rs%)|
000020f0  29 0d 13 7e 36 47 25 28  53 48 47 25 28 72 73 25  |)..~6G%(SHG%(rs%|
00002100  29 2b 56 25 28 52 25 29  29 3d 31 32 3a 53 48 47  |)+V%(R%))=12:SHG|
00002110  25 28 72 73 25 29 3d 53  48 47 25 28 72 73 25 29  |%(rs%)=SHG%(rs%)|
00002120  2b 56 25 28 52 25 29 0d  13 88 05 cb 0d 13 92 05  |+V%(R%).........|
00002130  e1 0d 13 9c 05 20 0d 13  a6 0f f4 81 48 49 54 20  |..... ......HIT |
00002140  53 48 45 45 50 0d 13 b0  07 dd f2 4a 0d 13 ba 10  |SHEEP......J....|
00002150  d4 32 2c 2d 31 35 2c 31  39 30 2c 32 0d 13 c4 0d  |.2,-15,190,2....|
00002160  e3 4b 25 3d 31 b8 4e 53  25 0d 13 ce 29 e7 56 25  |.K%=1.NS%...).V%|
00002170  3d 53 48 47 25 28 4b 25  29 53 53 25 28 4b 25 29  |=SHG%(K%)SS%(K%)|
00002180  3d 31 3a 47 25 28 53 48  47 25 28 4b 25 29 29 3d  |=1:G%(SHG%(K%))=|
00002190  31 33 0d 13 d8 05 ed 0d  13 e2 05 e1 0d 13 ec 05  |13..............|
000021a0  20 0d 13 f6 1a f4 82 59  4f 55 20 44 49 45 20 48  | ......YOU DIE H|
000021b0  49 54 20 42 59 20 4c 41  53 45 52 0d 14 00 09 dd  |IT BY LASER.....|
000021c0  f2 64 69 65 0d 14 0a 0b  e3 49 3d 31 b8 32 30 0d  |.die.....I=1.20.|
000021d0  14 14 13 d4 31 2c 2d 31  35 2c b3 28 32 30 30 29  |....1,-15,.(200)|
000021e0  2c 31 0d 14 1e 0c c8 96  3a c8 96 3a c8 96 0d 14  |,1......:..:....|
000021f0  28 05 ed 0d 14 32 08 46  25 3d 30 0d 14 3c 05 e1  |(....2.F%=0..<..|
00002200  0d 14 46 05 20 0d 14 50  16 f4 83 52 45 41 43 54  |..F. ..P...REACT|
00002210  4f 52 20 45 58 50 4c 4f  44 45 53 0d 14 5a 0d dd  |OR EXPLODES..Z..|
00002220  f2 65 78 70 6c 6f 64 65  0d 14 64 12 d4 31 2c 2d  |.explode..d..1,-|
00002230  31 35 2c 31 30 30 2c 33  30 30 0d 14 6e 12 d4 32  |15,100,300..n..2|
00002240  2c 2d 31 35 2c 31 30 30  2c 31 30 30 0d 14 78 0a  |,-15,100,100..x.|
00002250  63 73 25 3d 36 34 0d 14  82 22 c8 99 20 4f 24 2c  |cs%=64...".. O$,|
00002260  26 32 32 32 2c 67 72 61  62 25 2c 62 67 25 2c 42  |&222,grab%,bg%,B|
00002270  58 25 2c 42 59 25 2c 34  0d 14 8c 09 e6 33 2c 32  |X%,BY%,4.....3,2|
00002280  37 0d 14 96 0b e3 4a 25  3d 31 b8 32 0d 14 a0 0c  |7.....J%=1.2....|
00002290  e3 49 25 3d 31 b8 38 30  0d 14 aa 17 c8 8f 52 58  |.I%=1.80......RX|
000022a0  25 2b 36 34 2c 52 59 25  2b 36 34 2c 63 73 25 0d  |%+64,RY%+64,cs%.|
000022b0  14 b4 0a 63 73 25 2b 3d  38 0d 14 be 05 ed 0d 14  |...cs%+=8.......|
000022c0  c8 0a 63 73 25 3d 36 34  0d 14 d2 05 ed 0d 14 dc  |..cs%=64........|
000022d0  0b 63 73 25 3d 36 34 38  0d 14 e6 09 e6 33 2c 33  |.cs%=648.....3,3|
000022e0  35 0d 14 f0 10 d4 32 2c  2d 31 35 2c 32 30 2c 33  |5.....2,-15,20,3|
000022f0  30 0d 14 fa 0b e3 4a 25  3d 31 b8 32 0d 15 04 0c  |0.....J%=1.2....|
00002300  e3 49 25 3d 31 b8 38 30  0d 15 0e 17 c8 8f 52 58  |.I%=1.80......RX|
00002310  25 2b 36 34 2c 52 59 25  2b 36 34 2c 63 73 25 0d  |%+64,RY%+64,cs%.|
00002320  15 18 0a 63 73 25 2d 3d  38 0d 15 22 05 ed 0d 15  |...cs%-=8.."....|
00002330  2c 0b 63 73 25 3d 36 34  38 0d 15 36 05 ed 0d 15  |,.cs%=648..6....|
00002340  40 05 e1 0d 15 4a 05 20  0d 15 54 0c f4 86 56 4f  |@....J. ..T...VO|
00002350  49 43 45 53 0d 15 5e 0c  dd f2 76 6f 69 63 65 73  |ICES..^...voices|
00002360  0d 15 68 08 c8 a0 20 38  0d 15 72 16 2a 43 48 41  |..h... 8..r.*CHA|
00002370  4e 4e 45 4c 56 4f 49 43  45 20 31 20 31 30 0d 15  |NNELVOICE 1 10..|
00002380  7c 16 2a 43 48 41 4e 4e  45 4c 56 4f 49 43 45 20  ||.*CHANNELVOICE |
00002390  32 20 31 31 0d 15 86 16  2a 43 48 41 4e 4e 45 4c  |2 11....*CHANNEL|
000023a0  56 4f 49 43 45 20 33 20  31 32 0d 15 90 16 2a 43  |VOICE 3 12....*C|
000023b0  48 41 4e 4e 45 4c 56 4f  49 43 45 20 34 20 31 33  |HANNELVOICE 4 13|
000023c0  0d 15 9a 16 2a 43 48 41  4e 4e 45 4c 56 4f 49 43  |....*CHANNELVOIC|
000023d0  45 20 35 20 31 34 0d 15  a4 16 2a 43 48 41 4e 4e  |E 5 14....*CHANN|
000023e0  45 4c 56 4f 49 43 45 20  36 20 31 35 0d 15 ae 16  |ELVOICE 6 15....|
000023f0  2a 43 48 41 4e 4e 45 4c  56 4f 49 43 45 20 37 20  |*CHANNELVOICE 7 |
00002400  31 36 0d 15 b8 16 2a 43  48 41 4e 4e 45 4c 56 4f  |16....*CHANNELVO|
00002410  49 43 45 20 38 20 31 30  0d 15 c2 05 e1 0d 15 cc  |ICE 8 10........|
00002420  05 20 0d 15 d6 0d f4 83  45 4e 44 20 42 49 54 0d  |. ......END BIT.|
00002430  15 e0 0c dd f2 65 6e 64  62 69 74 0d 15 ea 11 70  |.....endbit....p|
00002440  78 25 3d 30 3a 70 79 25  3d 38 39 36 0d 15 f4 0e  |x%=0:py%=896....|
00002450  e3 4a 25 3d 32 31 b8 32  39 38 0d 15 fe 0b 70 78  |.J%=21.298....px|
00002460  25 2b 3d 36 34 0d 16 08  22 c8 99 20 4f 24 2c 26  |%+=64...".. O$,&|
00002470  32 32 32 2c 61 72 65 61  25 2c 44 4d 25 2c 70 78  |222,area%,DM%,px|
00002480  25 2c 70 79 25 2c 38 0d  16 12 1a e7 70 78 25 3e  |%,py%,8.....px%>|
00002490  31 32 34 30 70 78 25 3d  30 3a 70 79 25 2d 3d 36  |1240px%=0:py%-=6|
000024a0  34 0d 16 1c 05 ed 0d 16  26 28 c8 99 20 4f 24 2c  |4.......&(.. O$,|
000024b0  26 32 32 32 2c 61 72 65  61 25 2c 57 65 6c 6c 44  |&222,area%,WellD|
000024c0  6f 6e 65 25 2c 33 35 32  2c 32 35 36 2c 38 0d 16  |one%,352,256,8..|
000024d0  30 0a c8 99 36 2c 31 35  0d 16 3a 0a f5 fd a5 3d  |0...6,15..:....=|
000024e0  33 32 0d 16 44 05 e1 0d  ff                       |32..D....|
000024e9