� >!Guardians.!RunImage

 
*� ***  Guardians of the Labyrinth  ***
*� ********  By Vince M. Hudd  ********
*� ***  (C)1991 Soft Rock Software  ***
 
 �  ERROR GOTO 62

� 15:�
U� Sprite_area 90000,C 1000,Screen 9000,Small 6000,SN$(50),text 4000,save_area 500
	�initialise

�new_game(schce)
� � � �Ty@
�display

�move_player
� dead � �TZ@
� won � �Td@
Ȏ S% �
� 1:�s1
� 2:�s2
� 3:�s3
� 4:�s4
�
� gx%>-1 � �move_ghost
� dead � �TZ@
� � �>14

� �TM@
&� ***** player dead routine ******
�DIE
O�plot("G",512,670):�plot("A",576,670):�plot("M",640,670):�plot("E",704,670)
O�plot("O",512,588):�plot("V",576,588):�plot("E",640,588):�plot("R",704,588)
��plot("P",288,350):�plot("R",352,350):�plot("E",416,350):�plot("S",480,350):�plot("S",544,350):�plot("S",672,350):�plot("P",736,350):�plot("A",800,350):�plot("C",864,350):�plot("E",928,350)
 � � �(-99)
!� � � �(-99)
"*FX15,1
#
� �T{@
$%� ***** player won routine ******
&
� �Tv@
'� LOOP=0 � 15:� CL,TN
(� CL Ȝ TN
)7ȓ Ȑ 64+LOOP*8,192+LOOP*8,1152-LOOP*16,796-LOOP*16
*�
+O�plot("W",352,800):�plot("E",416,800):�plot("L",480,800):�plot("L",544,800)
,O�plot("D",672,800):�plot("O",736,800):�plot("N",800,800):�plot("E",864,800)
-<�plot("Y",384,700):�plot("O",448,700):�plot("U",512,700)
.O�plot("H",640,700):�plot("A",704,700):�plot("V",768,700):�plot("E",832,700)
/��plot("C",352,600):�plot("O",416,600):�plot("M",480,600):�plot("P",544,600):�plot("L",608,600):�plot("E",672,600):�plot("T",736,600):�plot("E",800,600):�plot("D",864,600)
0��plot("T",320,500):�plot("H",384,500):�plot("E",448,500):�plot("S",576,500):�plot("C",640,500):�plot("R",704,500):�plot("E",768,500):�plot("E",832,500):�plot("N",896,500)
1��plot("P",288,350):�plot("R",352,350):�plot("E",416,350):�plot("S",480,350):�plot("S",544,350):�plot("S",672,350):�plot("P",736,350):�plot("A",800,350):�plot("C",864,350):�plot("E",928,350)
2� � �(-99)
3� � � �(-99)
4*FX15,1
5
� �T{@
66�63,192,63,128,63,64,63,0,42,192,42,128,42,64,42,0
72�21,192,21,128,21,64,21,0,0,192,0,128,0,64,0,0
8�
9� � <> 17 � �T~@
:� � � �T~@
; *SCREENLOAD <Game$Dir>.TITLE
=�ttlscn:� �TJ@
>� 15
?*FX15,1
@	*ADFS
BȘ
C�
D��initialise
E *SCREENLOAD <Game$Dir>.TITLE
G!Sprite_area=90000
H!Small=4000
I;ș"OS_SpriteOp",266,Sprite_area,"<Game$Dir>.spritefile"
J4ș"OS_SpriteOp",266,Small,"<Game$Dir>.smallfile"
K*�("LOAD <Game$Dir>.Characters "+�~(C))
L-�("LOAD <Game$Dir>.ScrollText "+�~(text))
M6zzz=�("<Game$Dir>.ScrollText"):scrtl=�#(zzz):�#zzz
N � A=0 � 47:SN$(A)=$(C+8*A):�
Osound=�
P�ttlscn
Q�
R��new_game(selection)
S#*SCREENLOAD <Game$Dir>.BackDrop
T0score=0:energy=880:level=0:drain%=1:rate%=30
Ub1=�
Vb2=�
Wb3=�
X.�("LOAD <Game$Dir>.ScreenSet "+�~(Screen))
Y!sx%=0:sy%=0:px%=1:py%=1:bp%=0
[
�count
]�
^��count
_!s1%=0:s2%=0:s3%=0:s4%=0:ky%=0
`.� SX=0 � 6:� SY=0 � 6:� X=0 � 15:� Y=0 � 7
aA=�at(X,Y,SX,SY)
b� A=13 � s1%+=1
c� A=14 � s2%+=1
d� A=15 � s3%+=1
e� A=16 � s4%+=1
f� A=38 � ky%+=1
g�,,,
h�show:�
i� �display
j!�0 Ȝ 0:ȓ Ȑ 64,192,1152,796
k� X=-1 � 16:� Y=-1 � 8
lchar=27
m� X=-1 � Y=-1 � �Dv@
n� X=-1 � Y=8 � �Dv@
o� X=16 � Y=-1 � �Dv@
p� X=16 � Y=8 � �Dv@
q=� X>-1 � X<16 � Y>-1 � Y<8 � char=�at(X,Y,sx%,sy%):� �Dv@
r4� sx%>0 � X=-1 � char=�at(15,Y,sx%-1,sy%):� �Dv@
s3� sx%<6 � X=16 � char=�at(0,Y,sx%+1,sy%):� �Dv@
t3� sy%>0 � Y=-1 � char=�at(X,7,sx%,sy%-1):� �Dv@
u+� sy%<6 � Y=8 � char=�at(X,0,sx%,sy%+1)
v�out(X,Y,char)
w�,
x�screen_vars
y�
z� �screen_vars
{'no_move=0:gx%=-1:gy%=-1:bg%=0:gd%=0
|� X=0 � 15:� Y=0 � 7
}C=�at(X,Y,sx%,sy%)
~� C=8 � gx%=X:gy%=Y:bg%=0
�,
�gd%=�gd(gx%,gy%,sx%,sy%)
��
�� �at(x1,y1,x2,y2)
�)at=?(Screen+(x1+x2*16)+(y1+y2*8)*128)
�B� at=17 � level>=1 � ?(Screen+(x1+x2*16)+(y1+y2*8)*128)=0:at=0
�B� at=18 � level>=2 � ?(Screen+(x1+x2*16)+(y1+y2*8)*128)=0:at=0
�B� at=19 � level>=3 � ?(Screen+(x1+x2*16)+(y1+y2*8)*128)=0:at=0
�A� at=20 � level=4 � ?(Screen+(x1+x2*16)+(y1+y2*8)*128)=0:at=0
�=at
�� �out(X,Y,C)
�� C>63 C=0
�Hș"OS_SpriteOp",34+256,Sprite_area,SN$(C),128+X*64,1024-(192+Y*80),0
��
�� �out2(X,Y,C$)
�Ȗ
�Dș"OS_SpriteOp",34+256,Sprite_area,C$,128+X*64,1024-(192+Y*80),0
��
�
��show
�� �12,29);�"00"+�(s1%),2)
�� �20,29);�"00"+�(s2%),2)
�� �28,29);�"00"+�(s3%),2)
�� �36,29);�"00"+�(s4%),2)
�� �44,29);�"00"+�(ky%),2)
�#� �64,30);�"000000"+�(score),6)
��3:ȓ Ȑ 256,128,energy,28
�2� energy>160 � �12:ȓ Ȑ 416,128,energy-160,28
�� b1 � �out(14,10,45)
�� b2 � �out(13,10,46)
�� b3 � �out(12,10,47)
��
���move_player
��=0
�5won=�:dead=�:x1%=px%:y1%=py%:x2%=sx%:y2%=sy%:S%=0
�$� �(-98) � �p_l:no_move=0:� �ti@
�$� �(-67) � �p_r:no_move=0:� �ti@
�%� �(-105) � �p_d:no_move=0:� �ti@
�$� �(-80) � �p_u:no_move=0:� �ti@
�� �(-102) � �local_map:�
�� �(-1) � �save:�
�� bp%=39 � �energy(drain%)
�?�out(px%,py%,1):no_move+=1:� no_move=100 �food(1):no_move=0
�,?(Screen+(px%+sx%*16)+(py%+sy%*8)*128)=1
��
�
� �p_l
�direction=2
�"x1%=x1%-1:� x2%=0 � x1%=-1 � �
�� x1%=-1 � x1%=15:x2%=x2%-1
��check_below_player
�� x1%=px% � �
�� x2%=sx% �
�,� pc=1 � 4:�out2(x1%,y1%,"PLYL"+�(pc)):�
�@�out(px%,py%,bp%):?(Screen+(px%+sx%*16)+(py%+sy%*8)*128)=bp%
�,?(Screen+(x1%+x2%*16)+(y1%+y2%*8)*128)=1
�px%=x1%:bp%=under
��
�� x2%<>sx% �
�+� pc=1 � 4:�out2(-1,y1%,"PLYL"+�(pc)):�
�@�out(px%,py%,bp%):?(Screen+(px%+sx%*16)+(py%+sy%*8)*128)=bp%
�,?(Screen+(x1%+x2%*16)+(y1%+y2%*8)*128)=1
�bp%=under:px%=x1%:sx%=x2%
��display
��
��energy(drain%)
��
�
� �p_r
�direction=4
�"x1%=x1%+1:� x2%=6 � x1%=16 � �
�� x1%=16 � x1%=0:x2%=x2%+1
��check_below_player
�� x1%=px% � �
�� x2%=sx% �
�,� pc=1 � 4:�out2(px%,py%,"PLYR"+�(pc)):�
�@�out(px%,py%,bp%):?(Screen+(px%+sx%*16)+(py%+sy%*8)*128)=bp%
�,?(Screen+(x1%+x2%*16)+(y1%+y2%*8)*128)=1
�px%=x1%:bp%=under
��
�� x2%<>sx% �
�,� pc=1 � 4:�out2(px%,py%,"PLYR"+�(pc)):�
�@�out(px%,py%,bp%):?(Screen+(px%+sx%*16)+(py%+sy%*8)*128)=bp%
�,?(Screen+(x1%+x2%*16)+(y1%+y2%*8)*128)=1
�bp%=under:px%=x1%:sx%=x2%
��display
��
��energy(drain%)
��
�
� �p_u
�direction=1
�"y1%=y1%-1:� y2%=0 � y1%=-1 � �
�� y1%=-1 � y1%=7:y2%=y2%-1
��check_below_player
�� y1%=py% � �
�� y2%=sy% �
�,� pc=1 � 4:�out2(px%,py%,"PLUP"+�(pc)):�
�@�out(px%,py%,bp%):?(Screen+(px%+sx%*16)+(py%+sy%*8)*128)=bp%
�<�out(x1%,y1%,1):?(Screen+(x1%+x2%*16)+(y1%+y2%*8)*128)=1
�py%=y1%:bp%=under
��
�� y2%<>sy% �
�,� pc=1 � 4:�out2(px%,py%,"PLUP"+�(pc)):�
�@�out(px%,py%,bp%):?(Screen+(px%+sx%*16)+(py%+sy%*8)*128)=bp%
�<�out(x1%,y1%,1):?(Screen+(x1%+x2%*16)+(y1%+y2%*8)*128)=1
�bp%=under:py%=y1%:sy%=y2%
��display
��
��energy(drain%)
��
�
� �p_d
�direction=3
�!y1%=y1%+1:� y2%=6 � y1%=8 � �
�� y1%=8 � y1%=0:y2%=y2%+1
��check_below_player
�� y1%=py% � �
�� y2%=sy% �
�,� pc=1 � 4:�out2(x1%,y1%,"PLDN"+�(pc)):�
�@�out(px%,py%,bp%):?(Screen+(px%+sx%*16)+(py%+sy%*8)*128)=bp%
�<�out(x1%,y1%,1):?(Screen+(x1%+x2%*16)+(y1%+y2%*8)*128)=1
�py%=y1%:bp%=under
��
�� y2%<>sy% �
�*� pc=1 � 4:�out2(x1%,8,"PLDN"+�(pc)):�
�@�out(px%,py%,bp%):?(Screen+(px%+sx%*16)+(py%+sy%*8)*128)=bp%
�<�out(x1%,y1%,1):?(Screen+(x1%+x2%*16)+(y1%+y2%*8)*128)=1
�bp%=under:py%=y1%:sy%=y2%
��display
��
��energy(drain%)
��
�� �check_below_player

under=�at(x1%,y1%,x2%,y2%)


Ȏ under �

� 8:dead=�

*� 13:under=0:S%=1:�food(32):�SCORE(10)

*� 14:under=0:S%=2:�food(32):�SCORE(10)

*� 15:under=0:S%=3:�food(32):�SCORE(10)

*� 16:under=0:S%=4:�food(32):�SCORE(10)

(� 17:x1%=px%:x2%=sx%:y1%=py%:y2%=sy%

(� 18:x1%=px%:x2%=sx%:y1%=py%:y2%=sy%

	(� 19:x1%=px%:x2%=sx%:y1%=py%:y2%=sy%


(� 20:x1%=px%:x2%=sx%:y1%=py%:y2%=sy%

<� 26:under=�dissolve(26):x1%=px%:x2%=sx%:y1%=py%:y2%=sy%

<� 25:under=�dissolve(25):x1%=px%:x2%=sx%:y1%=py%:y2%=sy%


<� 24:under=�dissolve(24):x1%=px%:x2%=sx%:y1%=py%:y2%=sy%

<� 23:under=�dissolve(23):x1%=px%:x2%=sx%:y1%=py%:y2%=sy%

<� 22:under=�dissolve(22):x1%=px%:x2%=sx%:y1%=py%:y2%=sy%

<� 21:under=�dissolve(21):x1%=px%:x2%=sx%:y1%=py%:y2%=sy%

(� 27:x1%=px%:x2%=sx%:y1%=py%:y2%=sy%

(� 28:x1%=px%:x2%=sx%:y1%=py%:y2%=sy%

(� 29:x1%=px%:x2%=sx%:y1%=py%:y2%=sy%

(� 30:x1%=px%:x2%=sx%:y1%=py%:y2%=sy%

� 35:under=0:�food(350)

� 36:won=�

� 38:�key:�SCORE(15)

� 39:drain%=rate%

� 0:drain%=1

P� 45:rate%=rate%-10:b1=�:under=0:�out(11,10,45):�SCORE(25):� rate%<5 rate%=1

P� 46:rate%=rate%-10:b2=�:under=0:�out(13,10,46):�SCORE(25):� rate%<5 rate%=1

P� 47:rate%=rate%-10:b3=�:under=0:�out(12,10,47):�SCORE(25):� rate%<5 rate%=1

�

�

��s1

 's1%=s1%-1:� �12,29);�"00"+�(s1%),2)

!
� s1%=0 �

"�SCORE(100)

#�food(880)

$level=level+1

%�redraw(17)

&�

'�

(��s2

)'s2%=s2%-1:� �20,29);�"00"+�(s2%),2)

*
� s2%=0 �

+�food(880):�SCORE(100)

,level=level+1

-�redraw(18)

.�

/�

0��s3

1's3%=s3%-1:� �28,29);�"00"+�(s3%),2)

2
� s3%=0 �

3�food(880):�SCORE(100)

4level=level+1

5�redraw(19)

6�

7�

8��s4

9's4%=s4%-1:� �36,29);�"00"+�(s4%),2)

:
� s4%=0 �

;�food(880):�SCORE(100)

<level=level+1

=�redraw(20)

>�

?�

@� �dissolve(WALL)

A WALL=WALL+1:� WALL=27 WALL=0

BP�out((px%-(direction=4)+(direction=2)),py%+(direction=1)-(direction=3),WALL)

C/?(Screen+(x1%+x2%*16)+(y1%+y2%*8)*128)=WALL

D�energy(20)

E	=WALL

F�

G��food(increase)

H4energy=energy+increase:� energy>880 � energy=880

I�3:ȓ Ȑ 256,128,energy,28

J2� energy>160 � �12:ȓ Ȑ 416,128,energy-160,28

K�

L�PRROCexit

M� ky%=0 � won=�

N-� ky%>0 � x1%=px%:x2%=sx%:y1%=py%:y2%=sy%

O�

U��energy(amount)

V�0 Ȝ 0

W� energy-amount>0 �

X+ȓ Ȑ 256+(energy-amount),128,amount,28

Y�

Zȓ Ȑ 256,128,amount,28

[�

\.energy=energy-amount:� energy<0 � energy=0

]� energy=0 � dead=�

^�

_	��key

`ky%=ky%-1:under=0

a� �44,29);�"00"+�(ky%),2)

b�

c��local_map

d�0:ȓ Ȑ 64,192,1152,796

e)OX%=(px%+sx%*16)-28:OY%=(py%+sy%*8)-9

f� X%=0 � 56

g� Y%=0 � 19

h� (X%+OX%)<0 � C%=27:� �DoA

i!� (OX%+X%)>111 � C%=27:� �DoA

j � (OY%+Y%)>55 � C%=27:� �DoA

k� (OY%+Y%)<0 � C%=27:� �DoA

l&C%=?(Screen+(X%+OX%+128*(Y%+OY%)))

m� C%>60 � C%=0

n� C%>21 � C%<27 � C%=21

o?ș"OS_SpriteOp",34+256,Small,SN$(C%),72+X%*20,952-(Y%*40),0

p�,

q� � � �(-102)

r� � �(-102)

s� � � �(-102)

t�display

u�

v��redraw(Z%)

w� X=-1 � 16:� Y=-1 � 8

xCX=sx%:CY=sy%:AX=X:AY=Y

y� X=-1 � Y=-1 � �tIA

z� X=-1 � Y=8 � �tIA

{� X=16 � Y=-1 � �tIA

|� X=16 � Y=8 � �tIA

}� X=-1 � sx%=0 � �tIA

~� X=16 � sx%=6 � �tIA

� Y=8 � sy%=6 � �tIA

�� Y=-1 � sy%=0 � �tIA

�� X=-1 � CX=CX-1:AX=15

�� Y=-1 � CY=CY-1:AY=8

�� X=16 � CX=CX+1:AX=0

�� Y=8 � CY=CY+1:AY=0

�+� Z%=?(Screen+AX+CX*16+(AY+CY*8)*128) �

�&?(Screen+AX+CX*16+(AY+CY*8)*128)=0

��out(X,Y,0)

��

��,

��

���move_ghost

�od%=gd%

�nx%=gx%:ny%=gy%

�Ȏ gd% �

�� 1:ny%-=1

�� 2:nx%+=1

�� 3:ny%+=1

�� 4:nx%-=1

��

�7� nx%=-1 � nx%=16 � ny%=-1 � ny%=8 � �rotate:� �tMA

�ch=�at(nx%,ny%,sx%,sy%)

�� ch>1 � �rotate:� �tMA

�� ch=1 � dead=�:� �tYA

�� od%<>gd% � �

�Ȏ gd% �

�.� 1:� X=1 � 4:�out2(gx%,gy%,"GSTU"+�(X)):�

�.� 2:� X=1 � 4:�out2(gx%,gy%,"GSTR"+�(X)):�

�0� 3:� X=1 � 4:�out2(gx%,gy%+1,"GSTD"+�(X)):�

�0� 4:� X=1 � 4:�out2(gx%-1,gy%,"GSTL"+�(X)):�

��

�:�out(nx%,ny%,8):?(Screen+nx%+16*sx%+(ny%+sy%*8)*128)=8

�:�out(gx%,gy%,0):?(Screen+gx%+16*sx%+(gy%+sy%*8)*128)=0

�gx%=nx%:gy%=ny%:bg%=ch

��

���rotate

�ND%=�(2):� ND%=2 ND%=-1

�gd%=gd%+ND%

�� gd%=5 gd%=1

�� gd%=0 gd%=4

��

�� �gd(gx%,gy%,sx%,sy%)

�� gx%=-1 � =0

�+� gy%>0 � �at(gx%,gy%-1,sx%,sy%)=0 � =1

�,� gx%<15 � �at(gx%+1,gy%,sx%,sy%)=0 � =2

�+� gy%<7 � �at(gx%,gy%+1,sx%,sy%)=0 � =3

�+� gx%>0 � �at(gx%-1,gy%,sx%,sy%)=0 � =4

�,� gx%<15 � �at(gx%+1,gy%,sx%,sy%)=0 � =2

�=0

�+��ttlscn:�OPS:next$=�select(�(?(text)))

�(schce=-1:scroll=0:scrolling=�:nchr=1

��28,5,29,75,27

��24,0;0;1199;160;

�
�:�scroll

�� �(-99) � schce=1

�� schce>=0

��26

�*FX15,1

��

�	��DIE

�� A=31 � 34

��out(px%,py%,A)

�� T=0 � 5000:�

��

��out(px%,py%,0)

��

���scroll

�� scrolling � �scr:�

��next_char:�

���next_char

�scrolling=�:scrolled=1200

�out$=next$

�Bnext$=�select(�(?(nchr+text))):nchr=nchr+1:� nchr=scrtl nchr=0

��plot(out$,1136,60)

��

�	��scr

�� times=1 � 4

��23,7,0,1,1|

��

�scrolled=scrolled-8

��plot(next$,scrolled,60)

�"� scrolled<=1136 � scrolling=�

��

�� �select(ctp$):

�#� ctp$>="A" � ctp$<="Z" � =ctp$

�� ctp$="a" � ="PLAYR"

�� ctp$="b" � ="GHOST"

�� ctp$="c" � ="SHLD1"

�� ctp$="d" � ="SHLD2"

�� ctp$="e" � ="SHLD3"

�� ctp$="f" � ="SHLD4"

�� ctp$="g" � ="DOOR1"

�� ctp$="h" � ="DOOR2"

�� ctp$="i" � ="DOOR3"

�� ctp$="j" � ="DOOR4"

�� ctp$="k" � ="KEY"

�� ctp$="l" � ="EXIT"

�� ctp$="m" � ="DOORD"

�� ctp$="n" � ="DEDLY"

�� ctp$="o" � ="FOOD"

�� ctp$="p" � ="SKULL"

�� ctp$="q" � ="BONE1"

�� ctp$="r" � ="BONE2"

�� ctp$="." � ="DOT"

�� ctp$="," � ="COMMA"

�� ctp$="'" � ="APOST"

�� ctp$="!" � ="EXCLA"

�� ctp$="(" � ="OBRAK"

�� ctp$=")" � ="CBRAK"

�� ctp$="0" � ="ZERO"

�� ctp$="1" � ="ONE"

�� ctp$="2" � ="TWO"

�� ctp$="3" � ="THREE"

�� ctp$="4" � ="FOUR"

�� ctp$="5" � ="FIVE"

�� ctp$="6" � ="SIX"

�� ctp$="7" � ="SEVEN"
� ctp$="8" � ="EIGHT"

� ctp$="9" � ="NINE"
� ctp$="/" � ="SLASH"
="SPACE"
��plot(out$,x%,y%)
3ș"OS_SpriteOp",256+34,Sprite_area,out$,x%,y%,0
�
(��SCORE(SCORE)
)score=score+SCORE
*#� �64,30);�"000000"+�(score),6)
+�
,��OPS:�5
-� A=16 � 1 � -1
.
� �Tv@
/� B=1 � A:� CL,TN:�
0� CL Ȝ TN
1/� 408,400:� "PRESS THE SPACE BAR TO PLAY.."
3� T=1 � 800:�
4�
5
�4:�:�
�

00000000  0d 00 00 1b f4 20 3e 21  47 75 61 72 64 69 61 6e  |..... >!Guardian|
00000010  73 2e 21 52 75 6e 49 6d  61 67 65 0d 00 01 05 20  |s.!RunImage.... |
00000020  0d 00 02 2a f4 20 2a 2a  2a 20 20 47 75 61 72 64  |...*. ***  Guard|
00000030  69 61 6e 73 20 6f 66 20  74 68 65 20 4c 61 62 79  |ians of the Laby|
00000040  72 69 6e 74 68 20 20 2a  2a 2a 0d 00 03 2a f4 20  |rinth  ***...*. |
00000050  2a 2a 2a 2a 2a 2a 2a 2a  20 20 42 79 20 56 69 6e  |********  By Vin|
00000060  63 65 20 4d 2e 20 48 75  64 64 20 20 2a 2a 2a 2a  |ce M. Hudd  ****|
00000070  2a 2a 2a 2a 0d 00 04 2a  f4 20 2a 2a 2a 20 20 28  |****...*. ***  (|
00000080  43 29 31 39 39 31 20 53  6f 66 74 20 52 6f 63 6b  |C)1991 Soft Rock|
00000090  20 53 6f 66 74 77 61 72  65 20 20 2a 2a 2a 0d 00  | Software  ***..|
000000a0  05 05 20 0d 00 06 15 20  f4 20 20 45 52 52 4f 52  |.. .... .  ERROR|
000000b0  20 47 4f 54 4f 20 36 32  0d 00 07 0a eb 20 31 35  | GOTO 62..... 15|
000000c0  3a 87 0d 00 08 55 de 20  53 70 72 69 74 65 5f 61  |:....U. Sprite_a|
000000d0  72 65 61 20 39 30 30 30  30 2c 43 20 31 30 30 30  |rea 90000,C 1000|
000000e0  2c 53 63 72 65 65 6e 20  39 30 30 30 2c 53 6d 61  |,Screen 9000,Sma|
000000f0  6c 6c 20 36 30 30 30 2c  53 4e 24 28 35 30 29 2c  |ll 6000,SN$(50),|
00000100  74 65 78 74 20 34 30 30  30 2c 73 61 76 65 5f 61  |text 4000,save_a|
00000110  72 65 61 20 35 30 30 0d  00 09 0f f2 69 6e 69 74  |rea 500.....init|
00000120  69 61 6c 69 73 65 0d 00  0a 14 f2 6e 65 77 5f 67  |ialise.....new_g|
00000130  61 6d 65 28 73 63 68 63  65 29 0d 00 0b 0e ee 20  |ame(schce)..... |
00000140  85 20 e5 20 8d 54 79 40  0d 00 0c 0c f2 64 69 73  |. . .Ty@.....dis|
00000150  70 6c 61 79 0d 00 0d 10  f2 6d 6f 76 65 5f 70 6c  |play.....move_pl|
00000160  61 79 65 72 0d 00 0e 11  e7 20 64 65 61 64 20 8c  |ayer..... dead .|
00000170  20 8d 54 5a 40 0d 00 0f  10 e7 20 77 6f 6e 20 8c  | .TZ@..... won .|
00000180  20 8d 54 64 40 0d 00 10  0b c8 8e 20 53 25 20 ca  | .Td@...... S% .|
00000190  0d 00 11 0b c9 20 31 3a  f2 73 31 0d 00 12 0b c9  |..... 1:.s1.....|
000001a0  20 32 3a f2 73 32 0d 00  13 0b c9 20 33 3a f2 73  | 2:.s2..... 3:.s|
000001b0  33 0d 00 14 0b c9 20 34  3a f2 73 34 0d 00 15 05  |3..... 4:.s4....|
000001c0  cb 0d 00 16 1a e7 20 67  78 25 3e 2d 31 20 8c 20  |...... gx%>-1 . |
000001d0  f2 6d 6f 76 65 5f 67 68  6f 73 74 0d 00 17 11 e7  |.move_ghost.....|
000001e0  20 64 65 61 64 20 8c 20  8d 54 5a 40 0d 00 18 0c  | dead . .TZ@....|
000001f0  f5 20 fd 20 91 3e 31 34  0d 00 19 0a e5 20 8d 54  |. . .>14..... .T|
00000200  4d 40 0d 00 1a 26 f4 20  2a 2a 2a 2a 2a 20 70 6c  |M@...&. ***** pl|
00000210  61 79 65 72 20 64 65 61  64 20 72 6f 75 74 69 6e  |ayer dead routin|
00000220  65 20 2a 2a 2a 2a 2a 2a  0d 00 1c 08 f2 44 49 45  |e ******.....DIE|
00000230  0d 00 1d 4f f2 70 6c 6f  74 28 22 47 22 2c 35 31  |...O.plot("G",51|
00000240  32 2c 36 37 30 29 3a f2  70 6c 6f 74 28 22 41 22  |2,670):.plot("A"|
00000250  2c 35 37 36 2c 36 37 30  29 3a f2 70 6c 6f 74 28  |,576,670):.plot(|
00000260  22 4d 22 2c 36 34 30 2c  36 37 30 29 3a f2 70 6c  |"M",640,670):.pl|
00000270  6f 74 28 22 45 22 2c 37  30 34 2c 36 37 30 29 0d  |ot("E",704,670).|
00000280  00 1e 4f f2 70 6c 6f 74  28 22 4f 22 2c 35 31 32  |..O.plot("O",512|
00000290  2c 35 38 38 29 3a f2 70  6c 6f 74 28 22 56 22 2c  |,588):.plot("V",|
000002a0  35 37 36 2c 35 38 38 29  3a f2 70 6c 6f 74 28 22  |576,588):.plot("|
000002b0  45 22 2c 36 34 30 2c 35  38 38 29 3a f2 70 6c 6f  |E",640,588):.plo|
000002c0  74 28 22 52 22 2c 37 30  34 2c 35 38 38 29 0d 00  |t("R",704,588)..|
000002d0  1f c1 f2 70 6c 6f 74 28  22 50 22 2c 32 38 38 2c  |...plot("P",288,|
000002e0  33 35 30 29 3a f2 70 6c  6f 74 28 22 52 22 2c 33  |350):.plot("R",3|
000002f0  35 32 2c 33 35 30 29 3a  f2 70 6c 6f 74 28 22 45  |52,350):.plot("E|
00000300  22 2c 34 31 36 2c 33 35  30 29 3a f2 70 6c 6f 74  |",416,350):.plot|
00000310  28 22 53 22 2c 34 38 30  2c 33 35 30 29 3a f2 70  |("S",480,350):.p|
00000320  6c 6f 74 28 22 53 22 2c  35 34 34 2c 33 35 30 29  |lot("S",544,350)|
00000330  3a f2 70 6c 6f 74 28 22  53 22 2c 36 37 32 2c 33  |:.plot("S",672,3|
00000340  35 30 29 3a f2 70 6c 6f  74 28 22 50 22 2c 37 33  |50):.plot("P",73|
00000350  36 2c 33 35 30 29 3a f2  70 6c 6f 74 28 22 41 22  |6,350):.plot("A"|
00000360  2c 38 30 30 2c 33 35 30  29 3a f2 70 6c 6f 74 28  |,800,350):.plot(|
00000370  22 43 22 2c 38 36 34 2c  33 35 30 29 3a f2 70 6c  |"C",864,350):.pl|
00000380  6f 74 28 22 45 22 2c 39  32 38 2c 33 35 30 29 0d  |ot("E",928,350).|
00000390  00 20 0e f5 20 fd 20 a6  28 2d 39 39 29 0d 00 21  |. .. . .(-99)..!|
000003a0  10 f5 20 fd 20 ac 20 a6  28 2d 39 39 29 0d 00 22  |.. . . .(-99).."|
000003b0  0b 2a 46 58 31 35 2c 31  0d 00 23 0a e5 20 8d 54  |.*FX15,1..#.. .T|
000003c0  7b 40 0d 00 24 25 f4 20  2a 2a 2a 2a 2a 20 70 6c  |{@..$%. ***** pl|
000003d0  61 79 65 72 20 77 6f 6e  20 72 6f 75 74 69 6e 65  |ayer won routine|
000003e0  20 2a 2a 2a 2a 2a 2a 0d  00 26 0a f7 20 8d 54 76  | ******..&.. .Tv|
000003f0  40 0d 00 27 19 e3 20 4c  4f 4f 50 3d 30 20 b8 20  |@..'.. LOOP=0 . |
00000400  31 35 3a f3 20 43 4c 2c  54 4e 0d 00 28 0e e6 20  |15:. CL,TN..(.. |
00000410  43 4c 20 c8 9c 20 54 4e  0d 00 29 37 c8 93 20 c8  |CL .. TN..)7.. .|
00000420  90 20 36 34 2b 4c 4f 4f  50 2a 38 2c 31 39 32 2b  |. 64+LOOP*8,192+|
00000430  4c 4f 4f 50 2a 38 2c 31  31 35 32 2d 4c 4f 4f 50  |LOOP*8,1152-LOOP|
00000440  2a 31 36 2c 37 39 36 2d  4c 4f 4f 50 2a 31 36 0d  |*16,796-LOOP*16.|
00000450  00 2a 05 ed 0d 00 2b 4f  f2 70 6c 6f 74 28 22 57  |.*....+O.plot("W|
00000460  22 2c 33 35 32 2c 38 30  30 29 3a f2 70 6c 6f 74  |",352,800):.plot|
00000470  28 22 45 22 2c 34 31 36  2c 38 30 30 29 3a f2 70  |("E",416,800):.p|
00000480  6c 6f 74 28 22 4c 22 2c  34 38 30 2c 38 30 30 29  |lot("L",480,800)|
00000490  3a f2 70 6c 6f 74 28 22  4c 22 2c 35 34 34 2c 38  |:.plot("L",544,8|
000004a0  30 30 29 0d 00 2c 4f f2  70 6c 6f 74 28 22 44 22  |00)..,O.plot("D"|
000004b0  2c 36 37 32 2c 38 30 30  29 3a f2 70 6c 6f 74 28  |,672,800):.plot(|
000004c0  22 4f 22 2c 37 33 36 2c  38 30 30 29 3a f2 70 6c  |"O",736,800):.pl|
000004d0  6f 74 28 22 4e 22 2c 38  30 30 2c 38 30 30 29 3a  |ot("N",800,800):|
000004e0  f2 70 6c 6f 74 28 22 45  22 2c 38 36 34 2c 38 30  |.plot("E",864,80|
000004f0  30 29 0d 00 2d 3c f2 70  6c 6f 74 28 22 59 22 2c  |0)..-<.plot("Y",|
00000500  33 38 34 2c 37 30 30 29  3a f2 70 6c 6f 74 28 22  |384,700):.plot("|
00000510  4f 22 2c 34 34 38 2c 37  30 30 29 3a f2 70 6c 6f  |O",448,700):.plo|
00000520  74 28 22 55 22 2c 35 31  32 2c 37 30 30 29 0d 00  |t("U",512,700)..|
00000530  2e 4f f2 70 6c 6f 74 28  22 48 22 2c 36 34 30 2c  |.O.plot("H",640,|
00000540  37 30 30 29 3a f2 70 6c  6f 74 28 22 41 22 2c 37  |700):.plot("A",7|
00000550  30 34 2c 37 30 30 29 3a  f2 70 6c 6f 74 28 22 56  |04,700):.plot("V|
00000560  22 2c 37 36 38 2c 37 30  30 29 3a f2 70 6c 6f 74  |",768,700):.plot|
00000570  28 22 45 22 2c 38 33 32  2c 37 30 30 29 0d 00 2f  |("E",832,700)../|
00000580  ae f2 70 6c 6f 74 28 22  43 22 2c 33 35 32 2c 36  |..plot("C",352,6|
00000590  30 30 29 3a f2 70 6c 6f  74 28 22 4f 22 2c 34 31  |00):.plot("O",41|
000005a0  36 2c 36 30 30 29 3a f2  70 6c 6f 74 28 22 4d 22  |6,600):.plot("M"|
000005b0  2c 34 38 30 2c 36 30 30  29 3a f2 70 6c 6f 74 28  |,480,600):.plot(|
000005c0  22 50 22 2c 35 34 34 2c  36 30 30 29 3a f2 70 6c  |"P",544,600):.pl|
000005d0  6f 74 28 22 4c 22 2c 36  30 38 2c 36 30 30 29 3a  |ot("L",608,600):|
000005e0  f2 70 6c 6f 74 28 22 45  22 2c 36 37 32 2c 36 30  |.plot("E",672,60|
000005f0  30 29 3a f2 70 6c 6f 74  28 22 54 22 2c 37 33 36  |0):.plot("T",736|
00000600  2c 36 30 30 29 3a f2 70  6c 6f 74 28 22 45 22 2c  |,600):.plot("E",|
00000610  38 30 30 2c 36 30 30 29  3a f2 70 6c 6f 74 28 22  |800,600):.plot("|
00000620  44 22 2c 38 36 34 2c 36  30 30 29 0d 00 30 ae f2  |D",864,600)..0..|
00000630  70 6c 6f 74 28 22 54 22  2c 33 32 30 2c 35 30 30  |plot("T",320,500|
00000640  29 3a f2 70 6c 6f 74 28  22 48 22 2c 33 38 34 2c  |):.plot("H",384,|
00000650  35 30 30 29 3a f2 70 6c  6f 74 28 22 45 22 2c 34  |500):.plot("E",4|
00000660  34 38 2c 35 30 30 29 3a  f2 70 6c 6f 74 28 22 53  |48,500):.plot("S|
00000670  22 2c 35 37 36 2c 35 30  30 29 3a f2 70 6c 6f 74  |",576,500):.plot|
00000680  28 22 43 22 2c 36 34 30  2c 35 30 30 29 3a f2 70  |("C",640,500):.p|
00000690  6c 6f 74 28 22 52 22 2c  37 30 34 2c 35 30 30 29  |lot("R",704,500)|
000006a0  3a f2 70 6c 6f 74 28 22  45 22 2c 37 36 38 2c 35  |:.plot("E",768,5|
000006b0  30 30 29 3a f2 70 6c 6f  74 28 22 45 22 2c 38 33  |00):.plot("E",83|
000006c0  32 2c 35 30 30 29 3a f2  70 6c 6f 74 28 22 4e 22  |2,500):.plot("N"|
000006d0  2c 38 39 36 2c 35 30 30  29 0d 00 31 c1 f2 70 6c  |,896,500)..1..pl|
000006e0  6f 74 28 22 50 22 2c 32  38 38 2c 33 35 30 29 3a  |ot("P",288,350):|
000006f0  f2 70 6c 6f 74 28 22 52  22 2c 33 35 32 2c 33 35  |.plot("R",352,35|
00000700  30 29 3a f2 70 6c 6f 74  28 22 45 22 2c 34 31 36  |0):.plot("E",416|
00000710  2c 33 35 30 29 3a f2 70  6c 6f 74 28 22 53 22 2c  |,350):.plot("S",|
00000720  34 38 30 2c 33 35 30 29  3a f2 70 6c 6f 74 28 22  |480,350):.plot("|
00000730  53 22 2c 35 34 34 2c 33  35 30 29 3a f2 70 6c 6f  |S",544,350):.plo|
00000740  74 28 22 53 22 2c 36 37  32 2c 33 35 30 29 3a f2  |t("S",672,350):.|
00000750  70 6c 6f 74 28 22 50 22  2c 37 33 36 2c 33 35 30  |plot("P",736,350|
00000760  29 3a f2 70 6c 6f 74 28  22 41 22 2c 38 30 30 2c  |):.plot("A",800,|
00000770  33 35 30 29 3a f2 70 6c  6f 74 28 22 43 22 2c 38  |350):.plot("C",8|
00000780  36 34 2c 33 35 30 29 3a  f2 70 6c 6f 74 28 22 45  |64,350):.plot("E|
00000790  22 2c 39 32 38 2c 33 35  30 29 0d 00 32 0e f5 20  |",928,350)..2.. |
000007a0  fd 20 a6 28 2d 39 39 29  0d 00 33 10 f5 20 fd 20  |. .(-99)..3.. . |
000007b0  ac 20 a6 28 2d 39 39 29  0d 00 34 0b 2a 46 58 31  |. .(-99)..4.*FX1|
000007c0  35 2c 31 0d 00 35 0a e5  20 8d 54 7b 40 0d 00 36  |5,1..5.. .T{@..6|
000007d0  36 dc 36 33 2c 31 39 32  2c 36 33 2c 31 32 38 2c  |6.63,192,63,128,|
000007e0  36 33 2c 36 34 2c 36 33  2c 30 2c 34 32 2c 31 39  |63,64,63,0,42,19|
000007f0  32 2c 34 32 2c 31 32 38  2c 34 32 2c 36 34 2c 34  |2,42,128,42,64,4|
00000800  32 2c 30 0d 00 37 32 dc  32 31 2c 31 39 32 2c 32  |2,0..72.21,192,2|
00000810  31 2c 31 32 38 2c 32 31  2c 36 34 2c 32 31 2c 30  |1,128,21,64,21,0|
00000820  2c 30 2c 31 39 32 2c 30  2c 31 32 38 2c 30 2c 36  |,0,192,0,128,0,6|
00000830  34 2c 30 2c 30 0d 00 38  05 e0 0d 00 39 14 e7 20  |4,0,0..8....9.. |
00000840  9f 20 3c 3e 20 31 37 20  8c 20 8d 54 7e 40 0d 00  |. <> 17 . .T~@..|
00000850  3a 0e ee 20 85 20 e5 20  8d 54 7e 40 0d 00 3b 20  |:.. . . .T~@..; |
00000860  2a 53 43 52 45 45 4e 4c  4f 41 44 20 3c 47 61 6d  |*SCREENLOAD <Gam|
00000870  65 24 44 69 72 3e 2e 54  49 54 4c 45 0d 00 3d 12  |e$Dir>.TITLE..=.|
00000880  f2 74 74 6c 73 63 6e 3a  e5 20 8d 54 4a 40 0d 00  |.ttlscn:. .TJ@..|
00000890  3e 08 eb 20 31 35 0d 00  3f 0b 2a 46 58 31 35 2c  |>.. 15..?.*FX15,|
000008a0  31 0d 00 40 09 2a 41 44  46 53 0d 00 42 06 c8 98  |1..@.*ADFS..B...|
000008b0  0d 00 43 05 e0 0d 00 44  10 dd f2 69 6e 69 74 69  |..C....D...initi|
000008c0  61 6c 69 73 65 0d 00 45  20 2a 53 43 52 45 45 4e  |alise..E *SCREEN|
000008d0  4c 4f 41 44 20 3c 47 61  6d 65 24 44 69 72 3e 2e  |LOAD <Game$Dir>.|
000008e0  54 49 54 4c 45 0d 00 47  16 21 53 70 72 69 74 65  |TITLE..G.!Sprite|
000008f0  5f 61 72 65 61 3d 39 30  30 30 30 0d 00 48 0f 21  |_area=90000..H.!|
00000900  53 6d 61 6c 6c 3d 34 30  30 30 0d 00 49 3b c8 99  |Small=4000..I;..|
00000910  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 32 36  |"OS_SpriteOp",26|
00000920  36 2c 53 70 72 69 74 65  5f 61 72 65 61 2c 22 3c  |6,Sprite_area,"<|
00000930  47 61 6d 65 24 44 69 72  3e 2e 73 70 72 69 74 65  |Game$Dir>.sprite|
00000940  66 69 6c 65 22 0d 00 4a  34 c8 99 22 4f 53 5f 53  |file"..J4.."OS_S|
00000950  70 72 69 74 65 4f 70 22  2c 32 36 36 2c 53 6d 61  |priteOp",266,Sma|
00000960  6c 6c 2c 22 3c 47 61 6d  65 24 44 69 72 3e 2e 73  |ll,"<Game$Dir>.s|
00000970  6d 61 6c 6c 66 69 6c 65  22 0d 00 4b 2a ff 28 22  |mallfile"..K*.("|
00000980  4c 4f 41 44 20 3c 47 61  6d 65 24 44 69 72 3e 2e  |LOAD <Game$Dir>.|
00000990  43 68 61 72 61 63 74 65  72 73 20 22 2b c3 7e 28  |Characters "+.~(|
000009a0  43 29 29 0d 00 4c 2d ff  28 22 4c 4f 41 44 20 3c  |C))..L-.("LOAD <|
000009b0  47 61 6d 65 24 44 69 72  3e 2e 53 63 72 6f 6c 6c  |Game$Dir>.Scroll|
000009c0  54 65 78 74 20 22 2b c3  7e 28 74 65 78 74 29 29  |Text "+.~(text))|
000009d0  0d 00 4d 36 7a 7a 7a 3d  ad 28 22 3c 47 61 6d 65  |..M6zzz=.("<Game|
000009e0  24 44 69 72 3e 2e 53 63  72 6f 6c 6c 54 65 78 74  |$Dir>.ScrollText|
000009f0  22 29 3a 73 63 72 74 6c  3d a2 23 28 7a 7a 7a 29  |"):scrtl=.#(zzz)|
00000a00  3a d9 23 7a 7a 7a 0d 00  4e 20 e3 20 41 3d 30 20  |:.#zzz..N . A=0 |
00000a10  b8 20 34 37 3a 53 4e 24  28 41 29 3d 24 28 43 2b  |. 47:SN$(A)=$(C+|
00000a20  38 2a 41 29 3a ed 0d 00  4f 0b 73 6f 75 6e 64 3d  |8*A):...O.sound=|
00000a30  b9 0d 00 50 0b f2 74 74  6c 73 63 6e 0d 00 51 05  |...P..ttlscn..Q.|
00000a40  e1 0d 00 52 19 dd f2 6e  65 77 5f 67 61 6d 65 28  |...R...new_game(|
00000a50  73 65 6c 65 63 74 69 6f  6e 29 0d 00 53 23 2a 53  |selection)..S#*S|
00000a60  43 52 45 45 4e 4c 4f 41  44 20 3c 47 61 6d 65 24  |CREENLOAD <Game$|
00000a70  44 69 72 3e 2e 42 61 63  6b 44 72 6f 70 0d 00 54  |Dir>.BackDrop..T|
00000a80  30 73 63 6f 72 65 3d 30  3a 65 6e 65 72 67 79 3d  |0score=0:energy=|
00000a90  38 38 30 3a 6c 65 76 65  6c 3d 30 3a 64 72 61 69  |880:level=0:drai|
00000aa0  6e 25 3d 31 3a 72 61 74  65 25 3d 33 30 0d 00 55  |n%=1:rate%=30..U|
00000ab0  08 62 31 3d a3 0d 00 56  08 62 32 3d a3 0d 00 57  |.b1=...V.b2=...W|
00000ac0  08 62 33 3d a3 0d 00 58  2e ff 28 22 4c 4f 41 44  |.b3=...X..("LOAD|
00000ad0  20 3c 47 61 6d 65 24 44  69 72 3e 2e 53 63 72 65  | <Game$Dir>.Scre|
00000ae0  65 6e 53 65 74 20 22 2b  c3 7e 28 53 63 72 65 65  |enSet "+.~(Scree|
00000af0  6e 29 29 0d 00 59 21 73  78 25 3d 30 3a 73 79 25  |n))..Y!sx%=0:sy%|
00000b00  3d 30 3a 70 78 25 3d 31  3a 70 79 25 3d 31 3a 62  |=0:px%=1:py%=1:b|
00000b10  70 25 3d 30 0d 00 5b 0a  f2 63 6f 75 6e 74 0d 00  |p%=0..[..count..|
00000b20  5d 05 e1 0d 00 5e 0b dd  f2 63 6f 75 6e 74 0d 00  |]....^...count..|
00000b30  5f 21 73 31 25 3d 30 3a  73 32 25 3d 30 3a 73 33  |_!s1%=0:s2%=0:s3|
00000b40  25 3d 30 3a 73 34 25 3d  30 3a 6b 79 25 3d 30 0d  |%=0:s4%=0:ky%=0.|
00000b50  00 60 2e e3 20 53 58 3d  30 20 b8 20 36 3a e3 20  |.`.. SX=0 . 6:. |
00000b60  53 59 3d 30 20 b8 20 36  3a e3 20 58 3d 30 20 b8  |SY=0 . 6:. X=0 .|
00000b70  20 31 35 3a e3 20 59 3d  30 20 b8 20 37 0d 00 61  | 15:. Y=0 . 7..a|
00000b80  14 41 3d a4 61 74 28 58  2c 59 2c 53 58 2c 53 59  |.A=.at(X,Y,SX,SY|
00000b90  29 0d 00 62 13 e7 20 41  3d 31 33 20 8c 20 73 31  |)..b.. A=13 . s1|
00000ba0  25 2b 3d 31 0d 00 63 13  e7 20 41 3d 31 34 20 8c  |%+=1..c.. A=14 .|
00000bb0  20 73 32 25 2b 3d 31 0d  00 64 13 e7 20 41 3d 31  | s2%+=1..d.. A=1|
00000bc0  35 20 8c 20 73 33 25 2b  3d 31 0d 00 65 13 e7 20  |5 . s3%+=1..e.. |
00000bd0  41 3d 31 36 20 8c 20 73  34 25 2b 3d 31 0d 00 66  |A=16 . s4%+=1..f|
00000be0  13 e7 20 41 3d 33 38 20  8c 20 6b 79 25 2b 3d 31  |.. A=38 . ky%+=1|
00000bf0  0d 00 67 08 ed 2c 2c 2c  0d 00 68 0b f2 73 68 6f  |..g..,,,..h..sho|
00000c00  77 3a e1 0d 00 69 0e dd  20 f2 64 69 73 70 6c 61  |w:...i.. .displa|
00000c10  79 0d 00 6a 21 e6 30 20  c8 9c 20 30 3a c8 93 20  |y..j!.0 .. 0:.. |
00000c20  c8 90 20 36 34 2c 31 39  32 2c 31 31 35 32 2c 37  |.. 64,192,1152,7|
00000c30  39 36 0d 00 6b 1a e3 20  58 3d 2d 31 20 b8 20 31  |96..k.. X=-1 . 1|
00000c40  36 3a e3 20 59 3d 2d 31  20 b8 20 38 0d 00 6c 0b  |6:. Y=-1 . 8..l.|
00000c50  63 68 61 72 3d 32 37 0d  00 6d 18 e7 20 58 3d 2d  |char=27..m.. X=-|
00000c60  31 20 80 20 59 3d 2d 31  20 8c 20 8d 44 76 40 0d  |1 . Y=-1 . .Dv@.|
00000c70  00 6e 17 e7 20 58 3d 2d  31 20 80 20 59 3d 38 20  |.n.. X=-1 . Y=8 |
00000c80  8c 20 8d 44 76 40 0d 00  6f 18 e7 20 58 3d 31 36  |. .Dv@..o.. X=16|
00000c90  20 80 20 59 3d 2d 31 20  8c 20 8d 44 76 40 0d 00  | . Y=-1 . .Dv@..|
00000ca0  70 17 e7 20 58 3d 31 36  20 80 20 59 3d 38 20 8c  |p.. X=16 . Y=8 .|
00000cb0  20 8d 44 76 40 0d 00 71  3d e7 20 58 3e 2d 31 20  | .Dv@..q=. X>-1 |
00000cc0  80 20 58 3c 31 36 20 80  20 59 3e 2d 31 20 80 20  |. X<16 . Y>-1 . |
00000cd0  59 3c 38 20 8c 20 63 68  61 72 3d a4 61 74 28 58  |Y<8 . char=.at(X|
00000ce0  2c 59 2c 73 78 25 2c 73  79 25 29 3a e5 20 8d 44  |,Y,sx%,sy%):. .D|
00000cf0  76 40 0d 00 72 34 e7 20  73 78 25 3e 30 20 80 20  |v@..r4. sx%>0 . |
00000d00  58 3d 2d 31 20 8c 20 63  68 61 72 3d a4 61 74 28  |X=-1 . char=.at(|
00000d10  31 35 2c 59 2c 73 78 25  2d 31 2c 73 79 25 29 3a  |15,Y,sx%-1,sy%):|
00000d20  e5 20 8d 44 76 40 0d 00  73 33 e7 20 73 78 25 3c  |. .Dv@..s3. sx%<|
00000d30  36 20 80 20 58 3d 31 36  20 8c 20 63 68 61 72 3d  |6 . X=16 . char=|
00000d40  a4 61 74 28 30 2c 59 2c  73 78 25 2b 31 2c 73 79  |.at(0,Y,sx%+1,sy|
00000d50  25 29 3a e5 20 8d 44 76  40 0d 00 74 33 e7 20 73  |%):. .Dv@..t3. s|
00000d60  79 25 3e 30 20 80 20 59  3d 2d 31 20 8c 20 63 68  |y%>0 . Y=-1 . ch|
00000d70  61 72 3d a4 61 74 28 58  2c 37 2c 73 78 25 2c 73  |ar=.at(X,7,sx%,s|
00000d80  79 25 2d 31 29 3a e5 20  8d 44 76 40 0d 00 75 2b  |y%-1):. .Dv@..u+|
00000d90  e7 20 73 79 25 3c 36 20  80 20 59 3d 38 20 8c 20  |. sy%<6 . Y=8 . |
00000da0  63 68 61 72 3d a4 61 74  28 58 2c 30 2c 73 78 25  |char=.at(X,0,sx%|
00000db0  2c 73 79 25 2b 31 29 0d  00 76 12 f2 6f 75 74 28  |,sy%+1)..v..out(|
00000dc0  58 2c 59 2c 63 68 61 72  29 0d 00 77 06 ed 2c 0d  |X,Y,char)..w..,.|
00000dd0  00 78 10 f2 73 63 72 65  65 6e 5f 76 61 72 73 0d  |.x..screen_vars.|
00000de0  00 79 05 e1 0d 00 7a 12  dd 20 f2 73 63 72 65 65  |.y....z.. .scree|
00000df0  6e 5f 76 61 72 73 0d 00  7b 27 6e 6f 5f 6d 6f 76  |n_vars..{'no_mov|
00000e00  65 3d 30 3a 67 78 25 3d  2d 31 3a 67 79 25 3d 2d  |e=0:gx%=-1:gy%=-|
00000e10  31 3a 62 67 25 3d 30 3a  67 64 25 3d 30 0d 00 7c  |1:bg%=0:gd%=0..||
00000e20  18 e3 20 58 3d 30 20 b8  20 31 35 3a e3 20 59 3d  |.. X=0 . 15:. Y=|
00000e30  30 20 b8 20 37 0d 00 7d  16 43 3d a4 61 74 28 58  |0 . 7..}.C=.at(X|
00000e40  2c 59 2c 73 78 25 2c 73  79 25 29 0d 00 7e 1d e7  |,Y,sx%,sy%)..~..|
00000e50  20 43 3d 38 20 8c 20 67  78 25 3d 58 3a 67 79 25  | C=8 . gx%=X:gy%|
00000e60  3d 59 3a 62 67 25 3d 30  0d 00 7f 06 ed 2c 0d 00  |=Y:bg%=0.....,..|
00000e70  80 1c 67 64 25 3d a4 67  64 28 67 78 25 2c 67 79  |..gd%=.gd(gx%,gy|
00000e80  25 2c 73 78 25 2c 73 79  25 29 0d 00 81 05 e1 0d  |%,sx%,sy%)......|
00000e90  00 82 16 dd 20 a4 61 74  28 78 31 2c 79 31 2c 78  |.... .at(x1,y1,x|
00000ea0  32 2c 79 32 29 0d 00 83  29 61 74 3d 3f 28 53 63  |2,y2)...)at=?(Sc|
00000eb0  72 65 65 6e 2b 28 78 31  2b 78 32 2a 31 36 29 2b  |reen+(x1+x2*16)+|
00000ec0  28 79 31 2b 79 32 2a 38  29 2a 31 32 38 29 0d 00  |(y1+y2*8)*128)..|
00000ed0  84 42 e7 20 61 74 3d 31  37 20 80 20 6c 65 76 65  |.B. at=17 . leve|
00000ee0  6c 3e 3d 31 20 8c 20 3f  28 53 63 72 65 65 6e 2b  |l>=1 . ?(Screen+|
00000ef0  28 78 31 2b 78 32 2a 31  36 29 2b 28 79 31 2b 79  |(x1+x2*16)+(y1+y|
00000f00  32 2a 38 29 2a 31 32 38  29 3d 30 3a 61 74 3d 30  |2*8)*128)=0:at=0|
00000f10  0d 00 85 42 e7 20 61 74  3d 31 38 20 80 20 6c 65  |...B. at=18 . le|
00000f20  76 65 6c 3e 3d 32 20 8c  20 3f 28 53 63 72 65 65  |vel>=2 . ?(Scree|
00000f30  6e 2b 28 78 31 2b 78 32  2a 31 36 29 2b 28 79 31  |n+(x1+x2*16)+(y1|
00000f40  2b 79 32 2a 38 29 2a 31  32 38 29 3d 30 3a 61 74  |+y2*8)*128)=0:at|
00000f50  3d 30 0d 00 86 42 e7 20  61 74 3d 31 39 20 80 20  |=0...B. at=19 . |
00000f60  6c 65 76 65 6c 3e 3d 33  20 8c 20 3f 28 53 63 72  |level>=3 . ?(Scr|
00000f70  65 65 6e 2b 28 78 31 2b  78 32 2a 31 36 29 2b 28  |een+(x1+x2*16)+(|
00000f80  79 31 2b 79 32 2a 38 29  2a 31 32 38 29 3d 30 3a  |y1+y2*8)*128)=0:|
00000f90  61 74 3d 30 0d 00 87 41  e7 20 61 74 3d 32 30 20  |at=0...A. at=20 |
00000fa0  80 20 6c 65 76 65 6c 3d  34 20 8c 20 3f 28 53 63  |. level=4 . ?(Sc|
00000fb0  72 65 65 6e 2b 28 78 31  2b 78 32 2a 31 36 29 2b  |reen+(x1+x2*16)+|
00000fc0  28 79 31 2b 79 32 2a 38  29 2a 31 32 38 29 3d 30  |(y1+y2*8)*128)=0|
00000fd0  3a 61 74 3d 30 0d 00 88  07 3d 61 74 0d 00 89 11  |:at=0....=at....|
00000fe0  dd 20 f2 6f 75 74 28 58  2c 59 2c 43 29 0d 00 8a  |. .out(X,Y,C)...|
00000ff0  0e e7 20 43 3e 36 33 20  43 3d 30 0d 00 8b 48 c8  |.. C>63 C=0...H.|
00001000  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 33  |."OS_SpriteOp",3|
00001010  34 2b 32 35 36 2c 53 70  72 69 74 65 5f 61 72 65  |4+256,Sprite_are|
00001020  61 2c 53 4e 24 28 43 29  2c 31 32 38 2b 58 2a 36  |a,SN$(C),128+X*6|
00001030  34 2c 31 30 32 34 2d 28  31 39 32 2b 59 2a 38 30  |4,1024-(192+Y*80|
00001040  29 2c 30 0d 00 8c 05 e1  0d 00 8d 13 dd 20 f2 6f  |),0.......... .o|
00001050  75 74 32 28 58 2c 59 2c  43 24 29 0d 00 8e 06 c8  |ut2(X,Y,C$).....|
00001060  96 0d 00 8f 44 c8 99 22  4f 53 5f 53 70 72 69 74  |....D.."OS_Sprit|
00001070  65 4f 70 22 2c 33 34 2b  32 35 36 2c 53 70 72 69  |eOp",34+256,Spri|
00001080  74 65 5f 61 72 65 61 2c  43 24 2c 31 32 38 2b 58  |te_area,C$,128+X|
00001090  2a 36 34 2c 31 30 32 34  2d 28 31 39 32 2b 59 2a  |*64,1024-(192+Y*|
000010a0  38 30 29 2c 30 0d 00 90  05 e1 0d 00 91 0a dd f2  |80),0...........|
000010b0  73 68 6f 77 0d 00 92 1d  f1 20 8a 31 32 2c 32 39  |show..... .12,29|
000010c0  29 3b c2 22 30 30 22 2b  c3 28 73 31 25 29 2c 32  |);."00"+.(s1%),2|
000010d0  29 0d 00 93 1d f1 20 8a  32 30 2c 32 39 29 3b c2  |)..... .20,29);.|
000010e0  22 30 30 22 2b c3 28 73  32 25 29 2c 32 29 0d 00  |"00"+.(s2%),2)..|
000010f0  94 1d f1 20 8a 32 38 2c  32 39 29 3b c2 22 30 30  |... .28,29);."00|
00001100  22 2b c3 28 73 33 25 29  2c 32 29 0d 00 95 1d f1  |"+.(s3%),2).....|
00001110  20 8a 33 36 2c 32 39 29  3b c2 22 30 30 22 2b c3  | .36,29);."00"+.|
00001120  28 73 34 25 29 2c 32 29  0d 00 96 1d f1 20 8a 34  |(s4%),2)..... .4|
00001130  34 2c 32 39 29 3b c2 22  30 30 22 2b c3 28 6b 79  |4,29);."00"+.(ky|
00001140  25 29 2c 32 29 0d 00 97  23 f1 20 8a 36 34 2c 33  |%),2)...#. .64,3|
00001150  30 29 3b c2 22 30 30 30  30 30 30 22 2b c3 28 73  |0);."000000"+.(s|
00001160  63 6f 72 65 29 2c 36 29  0d 00 98 1e e6 33 3a c8  |core),6).....3:.|
00001170  93 20 c8 90 20 32 35 36  2c 31 32 38 2c 65 6e 65  |. .. 256,128,ene|
00001180  72 67 79 2c 32 38 0d 00  99 32 e7 20 65 6e 65 72  |rgy,28...2. ener|
00001190  67 79 3e 31 36 30 20 8c  20 e6 31 32 3a c8 93 20  |gy>160 . .12:.. |
000011a0  c8 90 20 34 31 36 2c 31  32 38 2c 65 6e 65 72 67  |.. 416,128,energ|
000011b0  79 2d 31 36 30 2c 32 38  0d 00 9a 19 e7 20 62 31  |y-160,28..... b1|
000011c0  20 8c 20 f2 6f 75 74 28  31 34 2c 31 30 2c 34 35  | . .out(14,10,45|
000011d0  29 0d 00 9b 19 e7 20 62  32 20 8c 20 f2 6f 75 74  |)..... b2 . .out|
000011e0  28 31 33 2c 31 30 2c 34  36 29 0d 00 9c 19 e7 20  |(13,10,46)..... |
000011f0  62 33 20 8c 20 f2 6f 75  74 28 31 32 2c 31 30 2c  |b3 . .out(12,10,|
00001200  34 37 29 0d 00 9d 05 e1  0d 00 9e 11 dd f2 6d 6f  |47)...........mo|
00001210  76 65 5f 70 6c 61 79 65  72 0d 00 9f 07 d1 3d 30  |ve_player.....=0|
00001220  0d 00 a0 35 77 6f 6e 3d  a3 3a 64 65 61 64 3d a3  |...5won=.:dead=.|
00001230  3a 78 31 25 3d 70 78 25  3a 79 31 25 3d 70 79 25  |:x1%=px%:y1%=py%|
00001240  3a 78 32 25 3d 73 78 25  3a 79 32 25 3d 73 79 25  |:x2%=sx%:y2%=sy%|
00001250  3a 53 25 3d 30 0d 00 a1  24 e7 20 a6 28 2d 39 38  |:S%=0...$. .(-98|
00001260  29 20 8c 20 f2 70 5f 6c  3a 6e 6f 5f 6d 6f 76 65  |) . .p_l:no_move|
00001270  3d 30 3a e5 20 8d 74 69  40 0d 00 a2 24 e7 20 a6  |=0:. .ti@...$. .|
00001280  28 2d 36 37 29 20 8c 20  f2 70 5f 72 3a 6e 6f 5f  |(-67) . .p_r:no_|
00001290  6d 6f 76 65 3d 30 3a e5  20 8d 74 69 40 0d 00 a3  |move=0:. .ti@...|
000012a0  25 e7 20 a6 28 2d 31 30  35 29 20 8c 20 f2 70 5f  |%. .(-105) . .p_|
000012b0  64 3a 6e 6f 5f 6d 6f 76  65 3d 30 3a e5 20 8d 74  |d:no_move=0:. .t|
000012c0  69 40 0d 00 a4 24 e7 20  a6 28 2d 38 30 29 20 8c  |i@...$. .(-80) .|
000012d0  20 f2 70 5f 75 3a 6e 6f  5f 6d 6f 76 65 3d 30 3a  | .p_u:no_move=0:|
000012e0  e5 20 8d 74 69 40 0d 00  a5 1c e7 20 a6 28 2d 31  |. .ti@..... .(-1|
000012f0  30 32 29 20 8c 20 f2 6c  6f 63 61 6c 5f 6d 61 70  |02) . .local_map|
00001300  3a e1 0d 00 a6 15 e7 20  a6 28 2d 31 29 20 8c 20  |:...... .(-1) . |
00001310  f2 73 61 76 65 3a e1 0d  00 a7 1e e7 20 62 70 25  |.save:...... bp%|
00001320  3d 33 39 20 8c 20 f2 65  6e 65 72 67 79 28 64 72  |=39 . .energy(dr|
00001330  61 69 6e 25 29 0d 00 a8  3f f2 6f 75 74 28 70 78  |ain%)...?.out(px|
00001340  25 2c 70 79 25 2c 31 29  3a 6e 6f 5f 6d 6f 76 65  |%,py%,1):no_move|
00001350  2b 3d 31 3a e7 20 6e 6f  5f 6d 6f 76 65 3d 31 30  |+=1:. no_move=10|
00001360  30 20 f2 66 6f 6f 64 28  31 29 3a 6e 6f 5f 6d 6f  |0 .food(1):no_mo|
00001370  76 65 3d 30 0d 00 a9 2c  3f 28 53 63 72 65 65 6e  |ve=0...,?(Screen|
00001380  2b 28 70 78 25 2b 73 78  25 2a 31 36 29 2b 28 70  |+(px%+sx%*16)+(p|
00001390  79 25 2b 73 79 25 2a 38  29 2a 31 32 38 29 3d 31  |y%+sy%*8)*128)=1|
000013a0  0d 00 aa 05 e1 0d 00 ab  0a dd 20 f2 70 5f 6c 0d  |.......... .p_l.|
000013b0  00 ac 0f 64 69 72 65 63  74 69 6f 6e 3d 32 0d 00  |...direction=2..|
000013c0  ad 22 78 31 25 3d 78 31  25 2d 31 3a e7 20 78 32  |."x1%=x1%-1:. x2|
000013d0  25 3d 30 20 80 20 78 31  25 3d 2d 31 20 8c 20 e1  |%=0 . x1%=-1 . .|
000013e0  0d 00 ae 1f e7 20 78 31  25 3d 2d 31 20 8c 20 78  |..... x1%=-1 . x|
000013f0  31 25 3d 31 35 3a 78 32  25 3d 78 32 25 2d 31 0d  |1%=15:x2%=x2%-1.|
00001400  00 af 17 f2 63 68 65 63  6b 5f 62 65 6c 6f 77 5f  |....check_below_|
00001410  70 6c 61 79 65 72 0d 00  b0 11 e7 20 78 31 25 3d  |player..... x1%=|
00001420  70 78 25 20 8c 20 e1 0d  00 b1 0f e7 20 78 32 25  |px% . ...... x2%|
00001430  3d 73 78 25 20 8c 0d 00  b2 2c e3 20 70 63 3d 31  |=sx% ....,. pc=1|
00001440  20 b8 20 34 3a f2 6f 75  74 32 28 78 31 25 2c 79  | . 4:.out2(x1%,y|
00001450  31 25 2c 22 50 4c 59 4c  22 2b c3 28 70 63 29 29  |1%,"PLYL"+.(pc))|
00001460  3a ed 0d 00 b3 40 f2 6f  75 74 28 70 78 25 2c 70  |:....@.out(px%,p|
00001470  79 25 2c 62 70 25 29 3a  3f 28 53 63 72 65 65 6e  |y%,bp%):?(Screen|
00001480  2b 28 70 78 25 2b 73 78  25 2a 31 36 29 2b 28 70  |+(px%+sx%*16)+(p|
00001490  79 25 2b 73 79 25 2a 38  29 2a 31 32 38 29 3d 62  |y%+sy%*8)*128)=b|
000014a0  70 25 0d 00 b4 2c 3f 28  53 63 72 65 65 6e 2b 28  |p%...,?(Screen+(|
000014b0  78 31 25 2b 78 32 25 2a  31 36 29 2b 28 79 31 25  |x1%+x2%*16)+(y1%|
000014c0  2b 79 32 25 2a 38 29 2a  31 32 38 29 3d 31 0d 00  |+y2%*8)*128)=1..|
000014d0  b5 15 70 78 25 3d 78 31  25 3a 62 70 25 3d 75 6e  |..px%=x1%:bp%=un|
000014e0  64 65 72 0d 00 b6 05 cd  0d 00 b7 10 e7 20 78 32  |der.......... x2|
000014f0  25 3c 3e 73 78 25 20 8c  0d 00 b8 2b e3 20 70 63  |%<>sx% ....+. pc|
00001500  3d 31 20 b8 20 34 3a f2  6f 75 74 32 28 2d 31 2c  |=1 . 4:.out2(-1,|
00001510  79 31 25 2c 22 50 4c 59  4c 22 2b c3 28 70 63 29  |y1%,"PLYL"+.(pc)|
00001520  29 3a ed 0d 00 b9 40 f2  6f 75 74 28 70 78 25 2c  |):....@.out(px%,|
00001530  70 79 25 2c 62 70 25 29  3a 3f 28 53 63 72 65 65  |py%,bp%):?(Scree|
00001540  6e 2b 28 70 78 25 2b 73  78 25 2a 31 36 29 2b 28  |n+(px%+sx%*16)+(|
00001550  70 79 25 2b 73 79 25 2a  38 29 2a 31 32 38 29 3d  |py%+sy%*8)*128)=|
00001560  62 70 25 0d 00 ba 2c 3f  28 53 63 72 65 65 6e 2b  |bp%...,?(Screen+|
00001570  28 78 31 25 2b 78 32 25  2a 31 36 29 2b 28 79 31  |(x1%+x2%*16)+(y1|
00001580  25 2b 79 32 25 2a 38 29  2a 31 32 38 29 3d 31 0d  |%+y2%*8)*128)=1.|
00001590  00 bb 1d 62 70 25 3d 75  6e 64 65 72 3a 70 78 25  |...bp%=under:px%|
000015a0  3d 78 31 25 3a 73 78 25  3d 78 32 25 0d 00 bc 0c  |=x1%:sx%=x2%....|
000015b0  f2 64 69 73 70 6c 61 79  0d 00 bd 05 cd 0d 00 be  |.display........|
000015c0  13 f2 65 6e 65 72 67 79  28 64 72 61 69 6e 25 29  |..energy(drain%)|
000015d0  0d 00 bf 05 e1 0d 00 c0  0a dd 20 f2 70 5f 72 0d  |.......... .p_r.|
000015e0  00 c1 0f 64 69 72 65 63  74 69 6f 6e 3d 34 0d 00  |...direction=4..|
000015f0  c2 22 78 31 25 3d 78 31  25 2b 31 3a e7 20 78 32  |."x1%=x1%+1:. x2|
00001600  25 3d 36 20 80 20 78 31  25 3d 31 36 20 8c 20 e1  |%=6 . x1%=16 . .|
00001610  0d 00 c3 1e e7 20 78 31  25 3d 31 36 20 8c 20 78  |..... x1%=16 . x|
00001620  31 25 3d 30 3a 78 32 25  3d 78 32 25 2b 31 0d 00  |1%=0:x2%=x2%+1..|
00001630  c4 17 f2 63 68 65 63 6b  5f 62 65 6c 6f 77 5f 70  |...check_below_p|
00001640  6c 61 79 65 72 0d 00 c5  11 e7 20 78 31 25 3d 70  |layer..... x1%=p|
00001650  78 25 20 8c 20 e1 0d 00  c6 0f e7 20 78 32 25 3d  |x% . ...... x2%=|
00001660  73 78 25 20 8c 0d 00 c7  2c e3 20 70 63 3d 31 20  |sx% ....,. pc=1 |
00001670  b8 20 34 3a f2 6f 75 74  32 28 70 78 25 2c 70 79  |. 4:.out2(px%,py|
00001680  25 2c 22 50 4c 59 52 22  2b c3 28 70 63 29 29 3a  |%,"PLYR"+.(pc)):|
00001690  ed 0d 00 c8 40 f2 6f 75  74 28 70 78 25 2c 70 79  |....@.out(px%,py|
000016a0  25 2c 62 70 25 29 3a 3f  28 53 63 72 65 65 6e 2b  |%,bp%):?(Screen+|
000016b0  28 70 78 25 2b 73 78 25  2a 31 36 29 2b 28 70 79  |(px%+sx%*16)+(py|
000016c0  25 2b 73 79 25 2a 38 29  2a 31 32 38 29 3d 62 70  |%+sy%*8)*128)=bp|
000016d0  25 0d 00 c9 2c 3f 28 53  63 72 65 65 6e 2b 28 78  |%...,?(Screen+(x|
000016e0  31 25 2b 78 32 25 2a 31  36 29 2b 28 79 31 25 2b  |1%+x2%*16)+(y1%+|
000016f0  79 32 25 2a 38 29 2a 31  32 38 29 3d 31 0d 00 ca  |y2%*8)*128)=1...|
00001700  15 70 78 25 3d 78 31 25  3a 62 70 25 3d 75 6e 64  |.px%=x1%:bp%=und|
00001710  65 72 0d 00 cb 05 cd 0d  00 cc 10 e7 20 78 32 25  |er.......... x2%|
00001720  3c 3e 73 78 25 20 8c 0d  00 cd 2c e3 20 70 63 3d  |<>sx% ....,. pc=|
00001730  31 20 b8 20 34 3a f2 6f  75 74 32 28 70 78 25 2c  |1 . 4:.out2(px%,|
00001740  70 79 25 2c 22 50 4c 59  52 22 2b c3 28 70 63 29  |py%,"PLYR"+.(pc)|
00001750  29 3a ed 0d 00 ce 40 f2  6f 75 74 28 70 78 25 2c  |):....@.out(px%,|
00001760  70 79 25 2c 62 70 25 29  3a 3f 28 53 63 72 65 65  |py%,bp%):?(Scree|
00001770  6e 2b 28 70 78 25 2b 73  78 25 2a 31 36 29 2b 28  |n+(px%+sx%*16)+(|
00001780  70 79 25 2b 73 79 25 2a  38 29 2a 31 32 38 29 3d  |py%+sy%*8)*128)=|
00001790  62 70 25 0d 00 cf 2c 3f  28 53 63 72 65 65 6e 2b  |bp%...,?(Screen+|
000017a0  28 78 31 25 2b 78 32 25  2a 31 36 29 2b 28 79 31  |(x1%+x2%*16)+(y1|
000017b0  25 2b 79 32 25 2a 38 29  2a 31 32 38 29 3d 31 0d  |%+y2%*8)*128)=1.|
000017c0  00 d0 1d 62 70 25 3d 75  6e 64 65 72 3a 70 78 25  |...bp%=under:px%|
000017d0  3d 78 31 25 3a 73 78 25  3d 78 32 25 0d 00 d1 0c  |=x1%:sx%=x2%....|
000017e0  f2 64 69 73 70 6c 61 79  0d 00 d2 05 cd 0d 00 d3  |.display........|
000017f0  13 f2 65 6e 65 72 67 79  28 64 72 61 69 6e 25 29  |..energy(drain%)|
00001800  0d 00 d4 05 e1 0d 00 d5  0a dd 20 f2 70 5f 75 0d  |.......... .p_u.|
00001810  00 d6 0f 64 69 72 65 63  74 69 6f 6e 3d 31 0d 00  |...direction=1..|
00001820  d7 22 79 31 25 3d 79 31  25 2d 31 3a e7 20 79 32  |."y1%=y1%-1:. y2|
00001830  25 3d 30 20 80 20 79 31  25 3d 2d 31 20 8c 20 e1  |%=0 . y1%=-1 . .|
00001840  0d 00 d8 1e e7 20 79 31  25 3d 2d 31 20 8c 20 79  |..... y1%=-1 . y|
00001850  31 25 3d 37 3a 79 32 25  3d 79 32 25 2d 31 0d 00  |1%=7:y2%=y2%-1..|
00001860  d9 17 f2 63 68 65 63 6b  5f 62 65 6c 6f 77 5f 70  |...check_below_p|
00001870  6c 61 79 65 72 0d 00 da  11 e7 20 79 31 25 3d 70  |layer..... y1%=p|
00001880  79 25 20 8c 20 e1 0d 00  db 0f e7 20 79 32 25 3d  |y% . ...... y2%=|
00001890  73 79 25 20 8c 0d 00 dc  2c e3 20 70 63 3d 31 20  |sy% ....,. pc=1 |
000018a0  b8 20 34 3a f2 6f 75 74  32 28 70 78 25 2c 70 79  |. 4:.out2(px%,py|
000018b0  25 2c 22 50 4c 55 50 22  2b c3 28 70 63 29 29 3a  |%,"PLUP"+.(pc)):|
000018c0  ed 0d 00 dd 40 f2 6f 75  74 28 70 78 25 2c 70 79  |....@.out(px%,py|
000018d0  25 2c 62 70 25 29 3a 3f  28 53 63 72 65 65 6e 2b  |%,bp%):?(Screen+|
000018e0  28 70 78 25 2b 73 78 25  2a 31 36 29 2b 28 70 79  |(px%+sx%*16)+(py|
000018f0  25 2b 73 79 25 2a 38 29  2a 31 32 38 29 3d 62 70  |%+sy%*8)*128)=bp|
00001900  25 0d 00 de 3c f2 6f 75  74 28 78 31 25 2c 79 31  |%...<.out(x1%,y1|
00001910  25 2c 31 29 3a 3f 28 53  63 72 65 65 6e 2b 28 78  |%,1):?(Screen+(x|
00001920  31 25 2b 78 32 25 2a 31  36 29 2b 28 79 31 25 2b  |1%+x2%*16)+(y1%+|
00001930  79 32 25 2a 38 29 2a 31  32 38 29 3d 31 0d 00 df  |y2%*8)*128)=1...|
00001940  15 70 79 25 3d 79 31 25  3a 62 70 25 3d 75 6e 64  |.py%=y1%:bp%=und|
00001950  65 72 0d 00 e0 05 cd 0d  00 e1 10 e7 20 79 32 25  |er.......... y2%|
00001960  3c 3e 73 79 25 20 8c 0d  00 e2 2c e3 20 70 63 3d  |<>sy% ....,. pc=|
00001970  31 20 b8 20 34 3a f2 6f  75 74 32 28 70 78 25 2c  |1 . 4:.out2(px%,|
00001980  70 79 25 2c 22 50 4c 55  50 22 2b c3 28 70 63 29  |py%,"PLUP"+.(pc)|
00001990  29 3a ed 0d 00 e3 40 f2  6f 75 74 28 70 78 25 2c  |):....@.out(px%,|
000019a0  70 79 25 2c 62 70 25 29  3a 3f 28 53 63 72 65 65  |py%,bp%):?(Scree|
000019b0  6e 2b 28 70 78 25 2b 73  78 25 2a 31 36 29 2b 28  |n+(px%+sx%*16)+(|
000019c0  70 79 25 2b 73 79 25 2a  38 29 2a 31 32 38 29 3d  |py%+sy%*8)*128)=|
000019d0  62 70 25 0d 00 e4 3c f2  6f 75 74 28 78 31 25 2c  |bp%...<.out(x1%,|
000019e0  79 31 25 2c 31 29 3a 3f  28 53 63 72 65 65 6e 2b  |y1%,1):?(Screen+|
000019f0  28 78 31 25 2b 78 32 25  2a 31 36 29 2b 28 79 31  |(x1%+x2%*16)+(y1|
00001a00  25 2b 79 32 25 2a 38 29  2a 31 32 38 29 3d 31 0d  |%+y2%*8)*128)=1.|
00001a10  00 e5 1d 62 70 25 3d 75  6e 64 65 72 3a 70 79 25  |...bp%=under:py%|
00001a20  3d 79 31 25 3a 73 79 25  3d 79 32 25 0d 00 e6 0c  |=y1%:sy%=y2%....|
00001a30  f2 64 69 73 70 6c 61 79  0d 00 e7 05 cd 0d 00 e8  |.display........|
00001a40  13 f2 65 6e 65 72 67 79  28 64 72 61 69 6e 25 29  |..energy(drain%)|
00001a50  0d 00 e9 05 e1 0d 00 ea  0a dd 20 f2 70 5f 64 0d  |.......... .p_d.|
00001a60  00 eb 0f 64 69 72 65 63  74 69 6f 6e 3d 33 0d 00  |...direction=3..|
00001a70  ec 21 79 31 25 3d 79 31  25 2b 31 3a e7 20 79 32  |.!y1%=y1%+1:. y2|
00001a80  25 3d 36 20 80 20 79 31  25 3d 38 20 8c 20 e1 0d  |%=6 . y1%=8 . ..|
00001a90  00 ed 1d e7 20 79 31 25  3d 38 20 8c 20 79 31 25  |.... y1%=8 . y1%|
00001aa0  3d 30 3a 79 32 25 3d 79  32 25 2b 31 0d 00 ee 17  |=0:y2%=y2%+1....|
00001ab0  f2 63 68 65 63 6b 5f 62  65 6c 6f 77 5f 70 6c 61  |.check_below_pla|
00001ac0  79 65 72 0d 00 ef 11 e7  20 79 31 25 3d 70 79 25  |yer..... y1%=py%|
00001ad0  20 8c 20 e1 0d 00 f0 0f  e7 20 79 32 25 3d 73 79  | . ...... y2%=sy|
00001ae0  25 20 8c 0d 00 f1 2c e3  20 70 63 3d 31 20 b8 20  |% ....,. pc=1 . |
00001af0  34 3a f2 6f 75 74 32 28  78 31 25 2c 79 31 25 2c  |4:.out2(x1%,y1%,|
00001b00  22 50 4c 44 4e 22 2b c3  28 70 63 29 29 3a ed 0d  |"PLDN"+.(pc)):..|
00001b10  00 f2 40 f2 6f 75 74 28  70 78 25 2c 70 79 25 2c  |..@.out(px%,py%,|
00001b20  62 70 25 29 3a 3f 28 53  63 72 65 65 6e 2b 28 70  |bp%):?(Screen+(p|
00001b30  78 25 2b 73 78 25 2a 31  36 29 2b 28 70 79 25 2b  |x%+sx%*16)+(py%+|
00001b40  73 79 25 2a 38 29 2a 31  32 38 29 3d 62 70 25 0d  |sy%*8)*128)=bp%.|
00001b50  00 f3 3c f2 6f 75 74 28  78 31 25 2c 79 31 25 2c  |..<.out(x1%,y1%,|
00001b60  31 29 3a 3f 28 53 63 72  65 65 6e 2b 28 78 31 25  |1):?(Screen+(x1%|
00001b70  2b 78 32 25 2a 31 36 29  2b 28 79 31 25 2b 79 32  |+x2%*16)+(y1%+y2|
00001b80  25 2a 38 29 2a 31 32 38  29 3d 31 0d 00 f4 15 70  |%*8)*128)=1....p|
00001b90  79 25 3d 79 31 25 3a 62  70 25 3d 75 6e 64 65 72  |y%=y1%:bp%=under|
00001ba0  0d 00 f5 05 cd 0d 00 f6  10 e7 20 79 32 25 3c 3e  |.......... y2%<>|
00001bb0  73 79 25 20 8c 0d 00 f7  2a e3 20 70 63 3d 31 20  |sy% ....*. pc=1 |
00001bc0  b8 20 34 3a f2 6f 75 74  32 28 78 31 25 2c 38 2c  |. 4:.out2(x1%,8,|
00001bd0  22 50 4c 44 4e 22 2b c3  28 70 63 29 29 3a ed 0d  |"PLDN"+.(pc)):..|
00001be0  00 f8 40 f2 6f 75 74 28  70 78 25 2c 70 79 25 2c  |..@.out(px%,py%,|
00001bf0  62 70 25 29 3a 3f 28 53  63 72 65 65 6e 2b 28 70  |bp%):?(Screen+(p|
00001c00  78 25 2b 73 78 25 2a 31  36 29 2b 28 70 79 25 2b  |x%+sx%*16)+(py%+|
00001c10  73 79 25 2a 38 29 2a 31  32 38 29 3d 62 70 25 0d  |sy%*8)*128)=bp%.|
00001c20  00 f9 3c f2 6f 75 74 28  78 31 25 2c 79 31 25 2c  |..<.out(x1%,y1%,|
00001c30  31 29 3a 3f 28 53 63 72  65 65 6e 2b 28 78 31 25  |1):?(Screen+(x1%|
00001c40  2b 78 32 25 2a 31 36 29  2b 28 79 31 25 2b 79 32  |+x2%*16)+(y1%+y2|
00001c50  25 2a 38 29 2a 31 32 38  29 3d 31 0d 00 fa 1d 62  |%*8)*128)=1....b|
00001c60  70 25 3d 75 6e 64 65 72  3a 70 79 25 3d 79 31 25  |p%=under:py%=y1%|
00001c70  3a 73 79 25 3d 79 32 25  0d 00 fb 0c f2 64 69 73  |:sy%=y2%.....dis|
00001c80  70 6c 61 79 0d 00 fc 05  cd 0d 00 fd 13 f2 65 6e  |play..........en|
00001c90  65 72 67 79 28 64 72 61  69 6e 25 29 0d 00 fe 05  |ergy(drain%)....|
00001ca0  e1 0d 00 ff 19 dd 20 f2  63 68 65 63 6b 5f 62 65  |...... .check_be|
00001cb0  6c 6f 77 5f 70 6c 61 79  65 72 0d 01 00 1e 75 6e  |low_player....un|
00001cc0  64 65 72 3d a4 61 74 28  78 31 25 2c 79 31 25 2c  |der=.at(x1%,y1%,|
00001cd0  78 32 25 2c 79 32 25 29  0d 01 01 0e c8 8e 20 75  |x2%,y2%)...... u|
00001ce0  6e 64 65 72 20 ca 0d 01  02 0e c9 20 38 3a 64 65  |nder ...... 8:de|
00001cf0  61 64 3d b9 0d 01 03 2a  c9 20 31 33 3a 75 6e 64  |ad=....*. 13:und|
00001d00  65 72 3d 30 3a 53 25 3d  31 3a f2 66 6f 6f 64 28  |er=0:S%=1:.food(|
00001d10  33 32 29 3a f2 53 43 4f  52 45 28 31 30 29 0d 01  |32):.SCORE(10)..|
00001d20  04 2a c9 20 31 34 3a 75  6e 64 65 72 3d 30 3a 53  |.*. 14:under=0:S|
00001d30  25 3d 32 3a f2 66 6f 6f  64 28 33 32 29 3a f2 53  |%=2:.food(32):.S|
00001d40  43 4f 52 45 28 31 30 29  0d 01 05 2a c9 20 31 35  |CORE(10)...*. 15|
00001d50  3a 75 6e 64 65 72 3d 30  3a 53 25 3d 33 3a f2 66  |:under=0:S%=3:.f|
00001d60  6f 6f 64 28 33 32 29 3a  f2 53 43 4f 52 45 28 31  |ood(32):.SCORE(1|
00001d70  30 29 0d 01 06 2a c9 20  31 36 3a 75 6e 64 65 72  |0)...*. 16:under|
00001d80  3d 30 3a 53 25 3d 34 3a  f2 66 6f 6f 64 28 33 32  |=0:S%=4:.food(32|
00001d90  29 3a f2 53 43 4f 52 45  28 31 30 29 0d 01 07 28  |):.SCORE(10)...(|
00001da0  c9 20 31 37 3a 78 31 25  3d 70 78 25 3a 78 32 25  |. 17:x1%=px%:x2%|
00001db0  3d 73 78 25 3a 79 31 25  3d 70 79 25 3a 79 32 25  |=sx%:y1%=py%:y2%|
00001dc0  3d 73 79 25 0d 01 08 28  c9 20 31 38 3a 78 31 25  |=sy%...(. 18:x1%|
00001dd0  3d 70 78 25 3a 78 32 25  3d 73 78 25 3a 79 31 25  |=px%:x2%=sx%:y1%|
00001de0  3d 70 79 25 3a 79 32 25  3d 73 79 25 0d 01 09 28  |=py%:y2%=sy%...(|
00001df0  c9 20 31 39 3a 78 31 25  3d 70 78 25 3a 78 32 25  |. 19:x1%=px%:x2%|
00001e00  3d 73 78 25 3a 79 31 25  3d 70 79 25 3a 79 32 25  |=sx%:y1%=py%:y2%|
00001e10  3d 73 79 25 0d 01 0a 28  c9 20 32 30 3a 78 31 25  |=sy%...(. 20:x1%|
00001e20  3d 70 78 25 3a 78 32 25  3d 73 78 25 3a 79 31 25  |=px%:x2%=sx%:y1%|
00001e30  3d 70 79 25 3a 79 32 25  3d 73 79 25 0d 01 0b 3c  |=py%:y2%=sy%...<|
00001e40  c9 20 32 36 3a 75 6e 64  65 72 3d a4 64 69 73 73  |. 26:under=.diss|
00001e50  6f 6c 76 65 28 32 36 29  3a 78 31 25 3d 70 78 25  |olve(26):x1%=px%|
00001e60  3a 78 32 25 3d 73 78 25  3a 79 31 25 3d 70 79 25  |:x2%=sx%:y1%=py%|
00001e70  3a 79 32 25 3d 73 79 25  0d 01 0c 3c c9 20 32 35  |:y2%=sy%...<. 25|
00001e80  3a 75 6e 64 65 72 3d a4  64 69 73 73 6f 6c 76 65  |:under=.dissolve|
00001e90  28 32 35 29 3a 78 31 25  3d 70 78 25 3a 78 32 25  |(25):x1%=px%:x2%|
00001ea0  3d 73 78 25 3a 79 31 25  3d 70 79 25 3a 79 32 25  |=sx%:y1%=py%:y2%|
00001eb0  3d 73 79 25 0d 01 0d 3c  c9 20 32 34 3a 75 6e 64  |=sy%...<. 24:und|
00001ec0  65 72 3d a4 64 69 73 73  6f 6c 76 65 28 32 34 29  |er=.dissolve(24)|
00001ed0  3a 78 31 25 3d 70 78 25  3a 78 32 25 3d 73 78 25  |:x1%=px%:x2%=sx%|
00001ee0  3a 79 31 25 3d 70 79 25  3a 79 32 25 3d 73 79 25  |:y1%=py%:y2%=sy%|
00001ef0  0d 01 0e 3c c9 20 32 33  3a 75 6e 64 65 72 3d a4  |...<. 23:under=.|
00001f00  64 69 73 73 6f 6c 76 65  28 32 33 29 3a 78 31 25  |dissolve(23):x1%|
00001f10  3d 70 78 25 3a 78 32 25  3d 73 78 25 3a 79 31 25  |=px%:x2%=sx%:y1%|
00001f20  3d 70 79 25 3a 79 32 25  3d 73 79 25 0d 01 0f 3c  |=py%:y2%=sy%...<|
00001f30  c9 20 32 32 3a 75 6e 64  65 72 3d a4 64 69 73 73  |. 22:under=.diss|
00001f40  6f 6c 76 65 28 32 32 29  3a 78 31 25 3d 70 78 25  |olve(22):x1%=px%|
00001f50  3a 78 32 25 3d 73 78 25  3a 79 31 25 3d 70 79 25  |:x2%=sx%:y1%=py%|
00001f60  3a 79 32 25 3d 73 79 25  0d 01 10 3c c9 20 32 31  |:y2%=sy%...<. 21|
00001f70  3a 75 6e 64 65 72 3d a4  64 69 73 73 6f 6c 76 65  |:under=.dissolve|
00001f80  28 32 31 29 3a 78 31 25  3d 70 78 25 3a 78 32 25  |(21):x1%=px%:x2%|
00001f90  3d 73 78 25 3a 79 31 25  3d 70 79 25 3a 79 32 25  |=sx%:y1%=py%:y2%|
00001fa0  3d 73 79 25 0d 01 11 28  c9 20 32 37 3a 78 31 25  |=sy%...(. 27:x1%|
00001fb0  3d 70 78 25 3a 78 32 25  3d 73 78 25 3a 79 31 25  |=px%:x2%=sx%:y1%|
00001fc0  3d 70 79 25 3a 79 32 25  3d 73 79 25 0d 01 12 28  |=py%:y2%=sy%...(|
00001fd0  c9 20 32 38 3a 78 31 25  3d 70 78 25 3a 78 32 25  |. 28:x1%=px%:x2%|
00001fe0  3d 73 78 25 3a 79 31 25  3d 70 79 25 3a 79 32 25  |=sx%:y1%=py%:y2%|
00001ff0  3d 73 79 25 0d 01 13 28  c9 20 32 39 3a 78 31 25  |=sy%...(. 29:x1%|
00002000  3d 70 78 25 3a 78 32 25  3d 73 78 25 3a 79 31 25  |=px%:x2%=sx%:y1%|
00002010  3d 70 79 25 3a 79 32 25  3d 73 79 25 0d 01 14 28  |=py%:y2%=sy%...(|
00002020  c9 20 33 30 3a 78 31 25  3d 70 78 25 3a 78 32 25  |. 30:x1%=px%:x2%|
00002030  3d 73 78 25 3a 79 31 25  3d 70 79 25 3a 79 32 25  |=sx%:y1%=py%:y2%|
00002040  3d 73 79 25 0d 01 15 1b  c9 20 33 35 3a 75 6e 64  |=sy%..... 35:und|
00002050  65 72 3d 30 3a f2 66 6f  6f 64 28 33 35 30 29 0d  |er=0:.food(350).|
00002060  01 16 0e c9 20 33 36 3a  77 6f 6e 3d b9 0d 01 17  |.... 36:won=....|
00002070  18 c9 20 33 38 3a f2 6b  65 79 3a f2 53 43 4f 52  |.. 38:.key:.SCOR|
00002080  45 28 31 35 29 0d 01 18  15 c9 20 33 39 3a 64 72  |E(15)..... 39:dr|
00002090  61 69 6e 25 3d 72 61 74  65 25 0d 01 19 10 c9 20  |ain%=rate%..... |
000020a0  30 3a 64 72 61 69 6e 25  3d 31 0d 01 1a 50 c9 20  |0:drain%=1...P. |
000020b0  34 35 3a 72 61 74 65 25  3d 72 61 74 65 25 2d 31  |45:rate%=rate%-1|
000020c0  30 3a 62 31 3d b9 3a 75  6e 64 65 72 3d 30 3a f2  |0:b1=.:under=0:.|
000020d0  6f 75 74 28 31 31 2c 31  30 2c 34 35 29 3a f2 53  |out(11,10,45):.S|
000020e0  43 4f 52 45 28 32 35 29  3a e7 20 72 61 74 65 25  |CORE(25):. rate%|
000020f0  3c 35 20 72 61 74 65 25  3d 31 0d 01 1b 50 c9 20  |<5 rate%=1...P. |
00002100  34 36 3a 72 61 74 65 25  3d 72 61 74 65 25 2d 31  |46:rate%=rate%-1|
00002110  30 3a 62 32 3d b9 3a 75  6e 64 65 72 3d 30 3a f2  |0:b2=.:under=0:.|
00002120  6f 75 74 28 31 33 2c 31  30 2c 34 36 29 3a f2 53  |out(13,10,46):.S|
00002130  43 4f 52 45 28 32 35 29  3a e7 20 72 61 74 65 25  |CORE(25):. rate%|
00002140  3c 35 20 72 61 74 65 25  3d 31 0d 01 1c 50 c9 20  |<5 rate%=1...P. |
00002150  34 37 3a 72 61 74 65 25  3d 72 61 74 65 25 2d 31  |47:rate%=rate%-1|
00002160  30 3a 62 33 3d b9 3a 75  6e 64 65 72 3d 30 3a f2  |0:b3=.:under=0:.|
00002170  6f 75 74 28 31 32 2c 31  30 2c 34 37 29 3a f2 53  |out(12,10,47):.S|
00002180  43 4f 52 45 28 32 35 29  3a e7 20 72 61 74 65 25  |CORE(25):. rate%|
00002190  3c 35 20 72 61 74 65 25  3d 31 0d 01 1d 05 cb 0d  |<5 rate%=1......|
000021a0  01 1e 05 e1 0d 01 1f 08  dd f2 73 31 0d 01 20 27  |..........s1.. '|
000021b0  73 31 25 3d 73 31 25 2d  31 3a f1 20 8a 31 32 2c  |s1%=s1%-1:. .12,|
000021c0  32 39 29 3b c2 22 30 30  22 2b c3 28 73 31 25 29  |29);."00"+.(s1%)|
000021d0  2c 32 29 0d 01 21 0d e7  20 73 31 25 3d 30 20 8c  |,2)..!.. s1%=0 .|
000021e0  0d 01 22 0f f2 53 43 4f  52 45 28 31 30 30 29 0d  |.."..SCORE(100).|
000021f0  01 23 0e f2 66 6f 6f 64  28 38 38 30 29 0d 01 24  |.#..food(880)..$|
00002200  11 6c 65 76 65 6c 3d 6c  65 76 65 6c 2b 31 0d 01  |.level=level+1..|
00002210  25 0f f2 72 65 64 72 61  77 28 31 37 29 0d 01 26  |%..redraw(17)..&|
00002220  05 cd 0d 01 27 05 e1 0d  01 28 08 dd f2 73 32 0d  |....'....(...s2.|
00002230  01 29 27 73 32 25 3d 73  32 25 2d 31 3a f1 20 8a  |.)'s2%=s2%-1:. .|
00002240  32 30 2c 32 39 29 3b c2  22 30 30 22 2b c3 28 73  |20,29);."00"+.(s|
00002250  32 25 29 2c 32 29 0d 01  2a 0d e7 20 73 32 25 3d  |2%),2)..*.. s2%=|
00002260  30 20 8c 0d 01 2b 1a f2  66 6f 6f 64 28 38 38 30  |0 ...+..food(880|
00002270  29 3a f2 53 43 4f 52 45  28 31 30 30 29 0d 01 2c  |):.SCORE(100)..,|
00002280  11 6c 65 76 65 6c 3d 6c  65 76 65 6c 2b 31 0d 01  |.level=level+1..|
00002290  2d 0f f2 72 65 64 72 61  77 28 31 38 29 0d 01 2e  |-..redraw(18)...|
000022a0  05 cd 0d 01 2f 05 e1 0d  01 30 08 dd f2 73 33 0d  |..../....0...s3.|
000022b0  01 31 27 73 33 25 3d 73  33 25 2d 31 3a f1 20 8a  |.1's3%=s3%-1:. .|
000022c0  32 38 2c 32 39 29 3b c2  22 30 30 22 2b c3 28 73  |28,29);."00"+.(s|
000022d0  33 25 29 2c 32 29 0d 01  32 0d e7 20 73 33 25 3d  |3%),2)..2.. s3%=|
000022e0  30 20 8c 0d 01 33 1a f2  66 6f 6f 64 28 38 38 30  |0 ...3..food(880|
000022f0  29 3a f2 53 43 4f 52 45  28 31 30 30 29 0d 01 34  |):.SCORE(100)..4|
00002300  11 6c 65 76 65 6c 3d 6c  65 76 65 6c 2b 31 0d 01  |.level=level+1..|
00002310  35 0f f2 72 65 64 72 61  77 28 31 39 29 0d 01 36  |5..redraw(19)..6|
00002320  05 cd 0d 01 37 05 e1 0d  01 38 08 dd f2 73 34 0d  |....7....8...s4.|
00002330  01 39 27 73 34 25 3d 73  34 25 2d 31 3a f1 20 8a  |.9's4%=s4%-1:. .|
00002340  33 36 2c 32 39 29 3b c2  22 30 30 22 2b c3 28 73  |36,29);."00"+.(s|
00002350  34 25 29 2c 32 29 0d 01  3a 0d e7 20 73 34 25 3d  |4%),2)..:.. s4%=|
00002360  30 20 8c 0d 01 3b 1a f2  66 6f 6f 64 28 38 38 30  |0 ...;..food(880|
00002370  29 3a f2 53 43 4f 52 45  28 31 30 30 29 0d 01 3c  |):.SCORE(100)..<|
00002380  11 6c 65 76 65 6c 3d 6c  65 76 65 6c 2b 31 0d 01  |.level=level+1..|
00002390  3d 0f f2 72 65 64 72 61  77 28 32 30 29 0d 01 3e  |=..redraw(20)..>|
000023a0  05 cd 0d 01 3f 05 e1 0d  01 40 15 dd 20 a4 64 69  |....?....@.. .di|
000023b0  73 73 6f 6c 76 65 28 57  41 4c 4c 29 0d 01 41 20  |ssolve(WALL)..A |
000023c0  57 41 4c 4c 3d 57 41 4c  4c 2b 31 3a e7 20 57 41  |WALL=WALL+1:. WA|
000023d0  4c 4c 3d 32 37 20 57 41  4c 4c 3d 30 0d 01 42 50  |LL=27 WALL=0..BP|
000023e0  f2 6f 75 74 28 28 70 78  25 2d 28 64 69 72 65 63  |.out((px%-(direc|
000023f0  74 69 6f 6e 3d 34 29 2b  28 64 69 72 65 63 74 69  |tion=4)+(directi|
00002400  6f 6e 3d 32 29 29 2c 70  79 25 2b 28 64 69 72 65  |on=2)),py%+(dire|
00002410  63 74 69 6f 6e 3d 31 29  2d 28 64 69 72 65 63 74  |ction=1)-(direct|
00002420  69 6f 6e 3d 33 29 2c 57  41 4c 4c 29 0d 01 43 2f  |ion=3),WALL)..C/|
00002430  3f 28 53 63 72 65 65 6e  2b 28 78 31 25 2b 78 32  |?(Screen+(x1%+x2|
00002440  25 2a 31 36 29 2b 28 79  31 25 2b 79 32 25 2a 38  |%*16)+(y1%+y2%*8|
00002450  29 2a 31 32 38 29 3d 57  41 4c 4c 0d 01 44 0f f2  |)*128)=WALL..D..|
00002460  65 6e 65 72 67 79 28 32  30 29 0d 01 45 09 3d 57  |energy(20)..E.=W|
00002470  41 4c 4c 0d 01 46 05 e1  0d 01 47 14 dd f2 66 6f  |ALL..F....G...fo|
00002480  6f 64 28 69 6e 63 72 65  61 73 65 29 0d 01 48 34  |od(increase)..H4|
00002490  65 6e 65 72 67 79 3d 65  6e 65 72 67 79 2b 69 6e  |energy=energy+in|
000024a0  63 72 65 61 73 65 3a e7  20 65 6e 65 72 67 79 3e  |crease:. energy>|
000024b0  38 38 30 20 8c 20 65 6e  65 72 67 79 3d 38 38 30  |880 . energy=880|
000024c0  0d 01 49 1e e6 33 3a c8  93 20 c8 90 20 32 35 36  |..I..3:.. .. 256|
000024d0  2c 31 32 38 2c 65 6e 65  72 67 79 2c 32 38 0d 01  |,128,energy,28..|
000024e0  4a 32 e7 20 65 6e 65 72  67 79 3e 31 36 30 20 8c  |J2. energy>160 .|
000024f0  20 e6 31 32 3a c8 93 20  c8 90 20 34 31 36 2c 31  | .12:.. .. 416,1|
00002500  32 38 2c 65 6e 65 72 67  79 2d 31 36 30 2c 32 38  |28,energy-160,28|
00002510  0d 01 4b 05 e1 0d 01 4c  0e dd 50 52 52 4f 43 65  |..K....L..PRROCe|
00002520  78 69 74 0d 01 4d 13 e7  20 6b 79 25 3d 30 20 8c  |xit..M.. ky%=0 .|
00002530  20 77 6f 6e 3d b9 0d 01  4e 2d e7 20 6b 79 25 3e  | won=...N-. ky%>|
00002540  30 20 8c 20 78 31 25 3d  70 78 25 3a 78 32 25 3d  |0 . x1%=px%:x2%=|
00002550  73 78 25 3a 79 31 25 3d  70 79 25 3a 79 32 25 3d  |sx%:y1%=py%:y2%=|
00002560  73 79 25 0d 01 4f 05 e1  0d 01 55 14 dd f2 65 6e  |sy%..O....U...en|
00002570  65 72 67 79 28 61 6d 6f  75 6e 74 29 0d 01 56 0b  |ergy(amount)..V.|
00002580  e6 30 20 c8 9c 20 30 0d  01 57 17 e7 20 65 6e 65  |.0 .. 0..W.. ene|
00002590  72 67 79 2d 61 6d 6f 75  6e 74 3e 30 20 8c 0d 01  |rgy-amount>0 ...|
000025a0  58 2b c8 93 20 c8 90 20  32 35 36 2b 28 65 6e 65  |X+.. .. 256+(ene|
000025b0  72 67 79 2d 61 6d 6f 75  6e 74 29 2c 31 32 38 2c  |rgy-amount),128,|
000025c0  61 6d 6f 75 6e 74 2c 32  38 0d 01 59 05 cc 0d 01  |amount,28..Y....|
000025d0  5a 1b c8 93 20 c8 90 20  32 35 36 2c 31 32 38 2c  |Z... .. 256,128,|
000025e0  61 6d 6f 75 6e 74 2c 32  38 0d 01 5b 05 cd 0d 01  |amount,28..[....|
000025f0  5c 2e 65 6e 65 72 67 79  3d 65 6e 65 72 67 79 2d  |\.energy=energy-|
00002600  61 6d 6f 75 6e 74 3a e7  20 65 6e 65 72 67 79 3c  |amount:. energy<|
00002610  30 20 8c 20 65 6e 65 72  67 79 3d 30 0d 01 5d 17  |0 . energy=0..].|
00002620  e7 20 65 6e 65 72 67 79  3d 30 20 8c 20 64 65 61  |. energy=0 . dea|
00002630  64 3d b9 0d 01 5e 05 e1  0d 01 5f 09 dd f2 6b 65  |d=...^...._...ke|
00002640  79 0d 01 60 15 6b 79 25  3d 6b 79 25 2d 31 3a 75  |y..`.ky%=ky%-1:u|
00002650  6e 64 65 72 3d 30 0d 01  61 1d f1 20 8a 34 34 2c  |nder=0..a.. .44,|
00002660  32 39 29 3b c2 22 30 30  22 2b c3 28 6b 79 25 29  |29);."00"+.(ky%)|
00002670  2c 32 29 0d 01 62 05 e1  0d 01 63 0f dd f2 6c 6f  |,2)..b....c...lo|
00002680  63 61 6c 5f 6d 61 70 0d  01 64 1c e6 30 3a c8 93  |cal_map..d..0:..|
00002690  20 c8 90 20 36 34 2c 31  39 32 2c 31 31 35 32 2c  | .. 64,192,1152,|
000026a0  37 39 36 0d 01 65 29 4f  58 25 3d 28 70 78 25 2b  |796..e)OX%=(px%+|
000026b0  73 78 25 2a 31 36 29 2d  32 38 3a 4f 59 25 3d 28  |sx%*16)-28:OY%=(|
000026c0  70 79 25 2b 73 79 25 2a  38 29 2d 39 0d 01 66 0f  |py%+sy%*8)-9..f.|
000026d0  e3 20 58 25 3d 30 20 b8  20 35 36 0d 01 67 0f e3  |. X%=0 . 56..g..|
000026e0  20 59 25 3d 30 20 b8 20  31 39 0d 01 68 1f e7 20  | Y%=0 . 19..h.. |
000026f0  28 58 25 2b 4f 58 25 29  3c 30 20 8c 20 43 25 3d  |(X%+OX%)<0 . C%=|
00002700  32 37 3a e5 20 8d 44 6f  41 0d 01 69 21 e7 20 28  |27:. .DoA..i!. (|
00002710  4f 58 25 2b 58 25 29 3e  31 31 31 20 8c 20 43 25  |OX%+X%)>111 . C%|
00002720  3d 32 37 3a e5 20 8d 44  6f 41 0d 01 6a 20 e7 20  |=27:. .DoA..j . |
00002730  28 4f 59 25 2b 59 25 29  3e 35 35 20 8c 20 43 25  |(OY%+Y%)>55 . C%|
00002740  3d 32 37 3a e5 20 8d 44  6f 41 0d 01 6b 1f e7 20  |=27:. .DoA..k.. |
00002750  28 4f 59 25 2b 59 25 29  3c 30 20 8c 20 43 25 3d  |(OY%+Y%)<0 . C%=|
00002760  32 37 3a e5 20 8d 44 6f  41 0d 01 6c 26 43 25 3d  |27:. .DoA..l&C%=|
00002770  3f 28 53 63 72 65 65 6e  2b 28 58 25 2b 4f 58 25  |?(Screen+(X%+OX%|
00002780  2b 31 32 38 2a 28 59 25  2b 4f 59 25 29 29 29 0d  |+128*(Y%+OY%))).|
00002790  01 6d 12 e7 20 43 25 3e  36 30 20 8c 20 43 25 3d  |.m.. C%>60 . C%=|
000027a0  30 0d 01 6e 1b e7 20 43  25 3e 32 31 20 80 20 43  |0..n.. C%>21 . C|
000027b0  25 3c 32 37 20 8c 20 43  25 3d 32 31 0d 01 6f 3f  |%<27 . C%=21..o?|
000027c0  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
000027d0  33 34 2b 32 35 36 2c 53  6d 61 6c 6c 2c 53 4e 24  |34+256,Small,SN$|
000027e0  28 43 25 29 2c 37 32 2b  58 25 2a 32 30 2c 39 35  |(C%),72+X%*20,95|
000027f0  32 2d 28 59 25 2a 34 30  29 2c 30 0d 01 70 06 ed  |2-(Y%*40),0..p..|
00002800  2c 0d 01 71 11 f5 20 fd  20 ac 20 a6 28 2d 31 30  |,..q.. . . .(-10|
00002810  32 29 0d 01 72 0f f5 20  fd 20 a6 28 2d 31 30 32  |2)..r.. . .(-102|
00002820  29 0d 01 73 11 f5 20 fd  20 ac 20 a6 28 2d 31 30  |)..s.. . . .(-10|
00002830  32 29 0d 01 74 0c f2 64  69 73 70 6c 61 79 0d 01  |2)..t..display..|
00002840  75 05 e1 0d 01 76 10 dd  f2 72 65 64 72 61 77 28  |u....v...redraw(|
00002850  5a 25 29 0d 01 77 1a e3  20 58 3d 2d 31 20 b8 20  |Z%)..w.. X=-1 . |
00002860  31 36 3a e3 20 59 3d 2d  31 20 b8 20 38 0d 01 78  |16:. Y=-1 . 8..x|
00002870  1b 43 58 3d 73 78 25 3a  43 59 3d 73 79 25 3a 41  |.CX=sx%:CY=sy%:A|
00002880  58 3d 58 3a 41 59 3d 59  0d 01 79 18 e7 20 58 3d  |X=X:AY=Y..y.. X=|
00002890  2d 31 20 80 20 59 3d 2d  31 20 8c 20 8d 74 49 41  |-1 . Y=-1 . .tIA|
000028a0  0d 01 7a 17 e7 20 58 3d  2d 31 20 80 20 59 3d 38  |..z.. X=-1 . Y=8|
000028b0  20 8c 20 8d 74 49 41 0d  01 7b 18 e7 20 58 3d 31  | . .tIA..{.. X=1|
000028c0  36 20 80 20 59 3d 2d 31  20 8c 20 8d 74 49 41 0d  |6 . Y=-1 . .tIA.|
000028d0  01 7c 17 e7 20 58 3d 31  36 20 80 20 59 3d 38 20  |.|.. X=16 . Y=8 |
000028e0  8c 20 8d 74 49 41 0d 01  7d 19 e7 20 58 3d 2d 31  |. .tIA..}.. X=-1|
000028f0  20 80 20 73 78 25 3d 30  20 8c 20 8d 74 49 41 0d  | . sx%=0 . .tIA.|
00002900  01 7e 19 e7 20 58 3d 31  36 20 80 20 73 78 25 3d  |.~.. X=16 . sx%=|
00002910  36 20 8c 20 8d 74 49 41  0d 01 7f 18 e7 20 59 3d  |6 . .tIA..... Y=|
00002920  38 20 80 20 73 79 25 3d  36 20 8c 20 8d 74 49 41  |8 . sy%=6 . .tIA|
00002930  0d 01 80 19 e7 20 59 3d  2d 31 20 80 20 73 79 25  |..... Y=-1 . sy%|
00002940  3d 30 20 8c 20 8d 74 49  41 0d 01 81 1a e7 20 58  |=0 . .tIA..... X|
00002950  3d 2d 31 20 8c 20 43 58  3d 43 58 2d 31 3a 41 58  |=-1 . CX=CX-1:AX|
00002960  3d 31 35 0d 01 82 19 e7  20 59 3d 2d 31 20 8c 20  |=15..... Y=-1 . |
00002970  43 59 3d 43 59 2d 31 3a  41 59 3d 38 0d 01 83 19  |CY=CY-1:AY=8....|
00002980  e7 20 58 3d 31 36 20 8c  20 43 58 3d 43 58 2b 31  |. X=16 . CX=CX+1|
00002990  3a 41 58 3d 30 0d 01 84  18 e7 20 59 3d 38 20 8c  |:AX=0..... Y=8 .|
000029a0  20 43 59 3d 43 59 2b 31  3a 41 59 3d 30 0d 01 85  | CY=CY+1:AY=0...|
000029b0  2b e7 20 5a 25 3d 3f 28  53 63 72 65 65 6e 2b 41  |+. Z%=?(Screen+A|
000029c0  58 2b 43 58 2a 31 36 2b  28 41 59 2b 43 59 2a 38  |X+CX*16+(AY+CY*8|
000029d0  29 2a 31 32 38 29 20 8c  0d 01 86 26 3f 28 53 63  |)*128) ....&?(Sc|
000029e0  72 65 65 6e 2b 41 58 2b  43 58 2a 31 36 2b 28 41  |reen+AX+CX*16+(A|
000029f0  59 2b 43 59 2a 38 29 2a  31 32 38 29 3d 30 0d 01  |Y+CY*8)*128)=0..|
00002a00  87 0f f2 6f 75 74 28 58  2c 59 2c 30 29 0d 01 88  |...out(X,Y,0)...|
00002a10  05 cd 0d 01 89 06 ed 2c  0d 01 8a 05 e1 0d 01 8b  |.......,........|
00002a20  10 dd f2 6d 6f 76 65 5f  67 68 6f 73 74 0d 01 8c  |...move_ghost...|
00002a30  0b 6f 64 25 3d 67 64 25  0d 01 8d 13 6e 78 25 3d  |.od%=gd%....nx%=|
00002a40  67 78 25 3a 6e 79 25 3d  67 79 25 0d 01 8e 0c c8  |gx%:ny%=gy%.....|
00002a50  8e 20 67 64 25 20 ca 0d  01 8f 0e c9 20 31 3a 6e  |. gd% ...... 1:n|
00002a60  79 25 2d 3d 31 0d 01 90  0e c9 20 32 3a 6e 78 25  |y%-=1..... 2:nx%|
00002a70  2b 3d 31 0d 01 91 0e c9  20 33 3a 6e 79 25 2b 3d  |+=1..... 3:ny%+=|
00002a80  31 0d 01 92 0e c9 20 34  3a 6e 78 25 2d 3d 31 0d  |1..... 4:nx%-=1.|
00002a90  01 93 05 cb 0d 01 94 37  e7 20 6e 78 25 3d 2d 31  |.......7. nx%=-1|
00002aa0  20 84 20 6e 78 25 3d 31  36 20 84 20 6e 79 25 3d  | . nx%=16 . ny%=|
00002ab0  2d 31 20 84 20 6e 79 25  3d 38 20 8c 20 f2 72 6f  |-1 . ny%=8 . .ro|
00002ac0  74 61 74 65 3a e5 20 8d  74 4d 41 0d 01 95 1b 63  |tate:. .tMA....c|
00002ad0  68 3d a4 61 74 28 6e 78  25 2c 6e 79 25 2c 73 78  |h=.at(nx%,ny%,sx|
00002ae0  25 2c 73 79 25 29 0d 01  96 1b e7 20 63 68 3e 31  |%,sy%)..... ch>1|
00002af0  20 8c 20 f2 72 6f 74 61  74 65 3a e5 20 8d 74 4d  | . .rotate:. .tM|
00002b00  41 0d 01 97 1a e7 20 63  68 3d 31 20 8c 20 64 65  |A..... ch=1 . de|
00002b10  61 64 3d b9 3a e5 20 8d  74 59 41 0d 01 98 12 e7  |ad=.:. .tYA.....|
00002b20  20 6f 64 25 3c 3e 67 64  25 20 8c 20 e1 0d 01 99  | od%<>gd% . ....|
00002b30  0c c8 8e 20 67 64 25 20  ca 0d 01 9a 2e c9 20 31  |... gd% ...... 1|
00002b40  3a e3 20 58 3d 31 20 b8  20 34 3a f2 6f 75 74 32  |:. X=1 . 4:.out2|
00002b50  28 67 78 25 2c 67 79 25  2c 22 47 53 54 55 22 2b  |(gx%,gy%,"GSTU"+|
00002b60  c3 28 58 29 29 3a ed 0d  01 9b 2e c9 20 32 3a e3  |.(X)):...... 2:.|
00002b70  20 58 3d 31 20 b8 20 34  3a f2 6f 75 74 32 28 67  | X=1 . 4:.out2(g|
00002b80  78 25 2c 67 79 25 2c 22  47 53 54 52 22 2b c3 28  |x%,gy%,"GSTR"+.(|
00002b90  58 29 29 3a ed 0d 01 9c  30 c9 20 33 3a e3 20 58  |X)):....0. 3:. X|
00002ba0  3d 31 20 b8 20 34 3a f2  6f 75 74 32 28 67 78 25  |=1 . 4:.out2(gx%|
00002bb0  2c 67 79 25 2b 31 2c 22  47 53 54 44 22 2b c3 28  |,gy%+1,"GSTD"+.(|
00002bc0  58 29 29 3a ed 0d 01 9d  30 c9 20 34 3a e3 20 58  |X)):....0. 4:. X|
00002bd0  3d 31 20 b8 20 34 3a f2  6f 75 74 32 28 67 78 25  |=1 . 4:.out2(gx%|
00002be0  2d 31 2c 67 79 25 2c 22  47 53 54 4c 22 2b c3 28  |-1,gy%,"GSTL"+.(|
00002bf0  58 29 29 3a ed 0d 01 9e  05 cb 0d 01 9f 3a f2 6f  |X)):.........:.o|
00002c00  75 74 28 6e 78 25 2c 6e  79 25 2c 38 29 3a 3f 28  |ut(nx%,ny%,8):?(|
00002c10  53 63 72 65 65 6e 2b 6e  78 25 2b 31 36 2a 73 78  |Screen+nx%+16*sx|
00002c20  25 2b 28 6e 79 25 2b 73  79 25 2a 38 29 2a 31 32  |%+(ny%+sy%*8)*12|
00002c30  38 29 3d 38 0d 01 a0 3a  f2 6f 75 74 28 67 78 25  |8)=8...:.out(gx%|
00002c40  2c 67 79 25 2c 30 29 3a  3f 28 53 63 72 65 65 6e  |,gy%,0):?(Screen|
00002c50  2b 67 78 25 2b 31 36 2a  73 78 25 2b 28 67 79 25  |+gx%+16*sx%+(gy%|
00002c60  2b 73 79 25 2a 38 29 2a  31 32 38 29 3d 30 0d 01  |+sy%*8)*128)=0..|
00002c70  a1 1a 67 78 25 3d 6e 78  25 3a 67 79 25 3d 6e 79  |..gx%=nx%:gy%=ny|
00002c80  25 3a 62 67 25 3d 63 68  0d 01 a2 05 e1 0d 01 a3  |%:bg%=ch........|
00002c90  0c dd f2 72 6f 74 61 74  65 0d 01 a4 1b 4e 44 25  |...rotate....ND%|
00002ca0  3d b3 28 32 29 3a e7 20  4e 44 25 3d 32 20 4e 44  |=.(2):. ND%=2 ND|
00002cb0  25 3d 2d 31 0d 01 a5 0f  67 64 25 3d 67 64 25 2b  |%=-1....gd%=gd%+|
00002cc0  4e 44 25 0d 01 a6 11 e7  20 67 64 25 3d 35 20 67  |ND%..... gd%=5 g|
00002cd0  64 25 3d 31 0d 01 a7 11  e7 20 67 64 25 3d 30 20  |d%=1..... gd%=0 |
00002ce0  67 64 25 3d 34 0d 01 a8  05 e1 0d 01 a9 1a dd 20  |gd%=4.......... |
00002cf0  a4 67 64 28 67 78 25 2c  67 79 25 2c 73 78 25 2c  |.gd(gx%,gy%,sx%,|
00002d00  73 79 25 29 0d 01 aa 11  e7 20 67 78 25 3d 2d 31  |sy%)..... gx%=-1|
00002d10  20 8c 20 3d 30 0d 01 ab  2b e7 20 67 79 25 3e 30  | . =0...+. gy%>0|
00002d20  20 80 20 a4 61 74 28 67  78 25 2c 67 79 25 2d 31  | . .at(gx%,gy%-1|
00002d30  2c 73 78 25 2c 73 79 25  29 3d 30 20 8c 20 3d 31  |,sx%,sy%)=0 . =1|
00002d40  0d 01 ac 2c e7 20 67 78  25 3c 31 35 20 80 20 a4  |...,. gx%<15 . .|
00002d50  61 74 28 67 78 25 2b 31  2c 67 79 25 2c 73 78 25  |at(gx%+1,gy%,sx%|
00002d60  2c 73 79 25 29 3d 30 20  8c 20 3d 32 0d 01 ad 2b  |,sy%)=0 . =2...+|
00002d70  e7 20 67 79 25 3c 37 20  80 20 a4 61 74 28 67 78  |. gy%<7 . .at(gx|
00002d80  25 2c 67 79 25 2b 31 2c  73 78 25 2c 73 79 25 29  |%,gy%+1,sx%,sy%)|
00002d90  3d 30 20 8c 20 3d 33 0d  01 ae 2b e7 20 67 78 25  |=0 . =3...+. gx%|
00002da0  3e 30 20 80 20 a4 61 74  28 67 78 25 2d 31 2c 67  |>0 . .at(gx%-1,g|
00002db0  79 25 2c 73 78 25 2c 73  79 25 29 3d 30 20 8c 20  |y%,sx%,sy%)=0 . |
00002dc0  3d 34 0d 01 af 2c e7 20  67 78 25 3c 31 35 20 80  |=4...,. gx%<15 .|
00002dd0  20 a4 61 74 28 67 78 25  2b 31 2c 67 79 25 2c 73  | .at(gx%+1,gy%,s|
00002de0  78 25 2c 73 79 25 29 3d  30 20 8c 20 3d 32 0d 01  |x%,sy%)=0 . =2..|
00002df0  b0 06 3d 30 0d 01 b1 2b  dd f2 74 74 6c 73 63 6e  |..=0...+..ttlscn|
00002e00  3a f2 4f 50 53 3a 6e 65  78 74 24 3d a4 73 65 6c  |:.OPS:next$=.sel|
00002e10  65 63 74 28 bd 28 3f 28  74 65 78 74 29 29 29 0d  |ect(.(?(text))).|
00002e20  01 b2 28 73 63 68 63 65  3d 2d 31 3a 73 63 72 6f  |..(schce=-1:scro|
00002e30  6c 6c 3d 30 3a 73 63 72  6f 6c 6c 69 6e 67 3d a3  |ll=0:scrolling=.|
00002e40  3a 6e 63 68 72 3d 31 0d  01 b3 12 ef 32 38 2c 35  |:nchr=1.....28,5|
00002e50  2c 32 39 2c 37 35 2c 32  37 0d 01 b4 15 ef 32 34  |,29,75,27.....24|
00002e60  2c 30 3b 30 3b 31 31 39  39 3b 31 36 30 3b 0d 01  |,0;0;1199;160;..|
00002e70  b5 0d f5 3a f2 73 63 72  6f 6c 6c 0d 01 b6 16 e7  |...:.scroll.....|
00002e80  20 a6 28 2d 39 39 29 20  8c 20 73 63 68 63 65 3d  | .(-99) . schce=|
00002e90  31 0d 01 be 0e fd 20 73  63 68 63 65 3e 3d 30 0d  |1..... schce>=0.|
00002ea0  01 bf 07 ef 32 36 0d 01  c0 0b 2a 46 58 31 35 2c  |....26....*FX15,|
00002eb0  31 0d 01 c1 05 e1 0d 01  c6 09 dd f2 44 49 45 0d  |1...........DIE.|
00002ec0  01 c7 0f e3 20 41 3d 33  31 20 b8 20 33 34 0d 01  |.... A=31 . 34..|
00002ed0  c8 13 f2 6f 75 74 28 70  78 25 2c 70 79 25 2c 41  |...out(px%,py%,A|
00002ee0  29 0d 01 c9 12 e3 20 54  3d 30 20 b8 20 35 30 30  |)..... T=0 . 500|
00002ef0  30 3a ed 0d 01 ca 05 ed  0d 01 cb 13 f2 6f 75 74  |0:...........out|
00002f00  28 70 78 25 2c 70 79 25  2c 30 29 0d 01 cc 05 e1  |(px%,py%,0).....|
00002f10  0d 01 cd 0c dd f2 73 63  72 6f 6c 6c 0d 01 ce 18  |......scroll....|
00002f20  e7 20 73 63 72 6f 6c 6c  69 6e 67 20 8c 20 f2 73  |. scrolling . .s|
00002f30  63 72 3a e1 0d 01 cf 10  f2 6e 65 78 74 5f 63 68  |cr:......next_ch|
00002f40  61 72 3a e1 0d 01 d0 0f  dd f2 6e 65 78 74 5f 63  |ar:.......next_c|
00002f50  68 61 72 0d 01 d1 1d 73  63 72 6f 6c 6c 69 6e 67  |har....scrolling|
00002f60  3d b9 3a 73 63 72 6f 6c  6c 65 64 3d 31 32 30 30  |=.:scrolled=1200|
00002f70  0d 01 d2 0e 6f 75 74 24  3d 6e 65 78 74 24 0d 01  |....out$=next$..|
00002f80  d3 42 6e 65 78 74 24 3d  a4 73 65 6c 65 63 74 28  |.Bnext$=.select(|
00002f90  bd 28 3f 28 6e 63 68 72  2b 74 65 78 74 29 29 29  |.(?(nchr+text)))|
00002fa0  3a 6e 63 68 72 3d 6e 63  68 72 2b 31 3a e7 20 6e  |:nchr=nchr+1:. n|
00002fb0  63 68 72 3d 73 63 72 74  6c 20 6e 63 68 72 3d 30  |chr=scrtl nchr=0|
00002fc0  0d 01 d4 17 f2 70 6c 6f  74 28 6f 75 74 24 2c 31  |.....plot(out$,1|
00002fd0  31 33 36 2c 36 30 29 0d  01 d5 05 e1 0d 01 d6 09  |136,60).........|
00002fe0  dd f2 73 63 72 0d 01 d7  11 e3 20 74 69 6d 65 73  |..scr..... times|
00002ff0  3d 31 20 b8 20 34 0d 01  d8 10 ef 32 33 2c 37 2c  |=1 . 4.....23,7,|
00003000  30 2c 31 2c 31 7c 0d 01  d9 05 ed 0d 01 da 17 73  |0,1,1|.........s|
00003010  63 72 6f 6c 6c 65 64 3d  73 63 72 6f 6c 6c 65 64  |crolled=scrolled|
00003020  2d 38 0d 01 db 1c f2 70  6c 6f 74 28 6e 65 78 74  |-8.....plot(next|
00003030  24 2c 73 63 72 6f 6c 6c  65 64 2c 36 30 29 0d 01  |$,scrolled,60)..|
00003040  dc 22 e7 20 73 63 72 6f  6c 6c 65 64 3c 3d 31 31  |.". scrolled<=11|
00003050  33 36 20 8c 20 73 63 72  6f 6c 6c 69 6e 67 3d a3  |36 . scrolling=.|
00003060  0d 01 dd 05 e1 0d 01 de  14 dd 20 a4 73 65 6c 65  |.......... .sele|
00003070  63 74 28 63 74 70 24 29  3a 0d 01 df 23 e7 20 63  |ct(ctp$):...#. c|
00003080  74 70 24 3e 3d 22 41 22  20 80 20 63 74 70 24 3c  |tp$>="A" . ctp$<|
00003090  3d 22 5a 22 20 8c 20 3d  63 74 70 24 0d 01 e0 19  |="Z" . =ctp$....|
000030a0  e7 20 63 74 70 24 3d 22  61 22 20 8c 20 3d 22 50  |. ctp$="a" . ="P|
000030b0  4c 41 59 52 22 0d 01 e1  19 e7 20 63 74 70 24 3d  |LAYR"..... ctp$=|
000030c0  22 62 22 20 8c 20 3d 22  47 48 4f 53 54 22 0d 01  |"b" . ="GHOST"..|
000030d0  e2 19 e7 20 63 74 70 24  3d 22 63 22 20 8c 20 3d  |... ctp$="c" . =|
000030e0  22 53 48 4c 44 31 22 0d  01 e3 19 e7 20 63 74 70  |"SHLD1"..... ctp|
000030f0  24 3d 22 64 22 20 8c 20  3d 22 53 48 4c 44 32 22  |$="d" . ="SHLD2"|
00003100  0d 01 e4 19 e7 20 63 74  70 24 3d 22 65 22 20 8c  |..... ctp$="e" .|
00003110  20 3d 22 53 48 4c 44 33  22 0d 01 e5 19 e7 20 63  | ="SHLD3"..... c|
00003120  74 70 24 3d 22 66 22 20  8c 20 3d 22 53 48 4c 44  |tp$="f" . ="SHLD|
00003130  34 22 0d 01 e6 19 e7 20  63 74 70 24 3d 22 67 22  |4"..... ctp$="g"|
00003140  20 8c 20 3d 22 44 4f 4f  52 31 22 0d 01 e7 19 e7  | . ="DOOR1".....|
00003150  20 63 74 70 24 3d 22 68  22 20 8c 20 3d 22 44 4f  | ctp$="h" . ="DO|
00003160  4f 52 32 22 0d 01 e8 19  e7 20 63 74 70 24 3d 22  |OR2"..... ctp$="|
00003170  69 22 20 8c 20 3d 22 44  4f 4f 52 33 22 0d 01 e9  |i" . ="DOOR3"...|
00003180  19 e7 20 63 74 70 24 3d  22 6a 22 20 8c 20 3d 22  |.. ctp$="j" . ="|
00003190  44 4f 4f 52 34 22 0d 01  ea 17 e7 20 63 74 70 24  |DOOR4"..... ctp$|
000031a0  3d 22 6b 22 20 8c 20 3d  22 4b 45 59 22 0d 01 eb  |="k" . ="KEY"...|
000031b0  18 e7 20 63 74 70 24 3d  22 6c 22 20 8c 20 3d 22  |.. ctp$="l" . ="|
000031c0  45 58 49 54 22 0d 01 ec  19 e7 20 63 74 70 24 3d  |EXIT"..... ctp$=|
000031d0  22 6d 22 20 8c 20 3d 22  44 4f 4f 52 44 22 0d 01  |"m" . ="DOORD"..|
000031e0  ed 19 e7 20 63 74 70 24  3d 22 6e 22 20 8c 20 3d  |... ctp$="n" . =|
000031f0  22 44 45 44 4c 59 22 0d  01 ee 18 e7 20 63 74 70  |"DEDLY"..... ctp|
00003200  24 3d 22 6f 22 20 8c 20  3d 22 46 4f 4f 44 22 0d  |$="o" . ="FOOD".|
00003210  01 ef 19 e7 20 63 74 70  24 3d 22 70 22 20 8c 20  |.... ctp$="p" . |
00003220  3d 22 53 4b 55 4c 4c 22  0d 01 f0 19 e7 20 63 74  |="SKULL"..... ct|
00003230  70 24 3d 22 71 22 20 8c  20 3d 22 42 4f 4e 45 31  |p$="q" . ="BONE1|
00003240  22 0d 01 f1 19 e7 20 63  74 70 24 3d 22 72 22 20  |"..... ctp$="r" |
00003250  8c 20 3d 22 42 4f 4e 45  32 22 0d 01 f2 17 e7 20  |. ="BONE2"..... |
00003260  63 74 70 24 3d 22 2e 22  20 8c 20 3d 22 44 4f 54  |ctp$="." . ="DOT|
00003270  22 0d 01 f3 19 e7 20 63  74 70 24 3d 22 2c 22 20  |"..... ctp$="," |
00003280  8c 20 3d 22 43 4f 4d 4d  41 22 0d 01 f4 19 e7 20  |. ="COMMA"..... |
00003290  63 74 70 24 3d 22 27 22  20 8c 20 3d 22 41 50 4f  |ctp$="'" . ="APO|
000032a0  53 54 22 0d 01 f5 19 e7  20 63 74 70 24 3d 22 21  |ST"..... ctp$="!|
000032b0  22 20 8c 20 3d 22 45 58  43 4c 41 22 0d 01 f6 19  |" . ="EXCLA"....|
000032c0  e7 20 63 74 70 24 3d 22  28 22 20 8c 20 3d 22 4f  |. ctp$="(" . ="O|
000032d0  42 52 41 4b 22 0d 01 f7  19 e7 20 63 74 70 24 3d  |BRAK"..... ctp$=|
000032e0  22 29 22 20 8c 20 3d 22  43 42 52 41 4b 22 0d 01  |")" . ="CBRAK"..|
000032f0  f8 18 e7 20 63 74 70 24  3d 22 30 22 20 8c 20 3d  |... ctp$="0" . =|
00003300  22 5a 45 52 4f 22 0d 01  f9 17 e7 20 63 74 70 24  |"ZERO"..... ctp$|
00003310  3d 22 31 22 20 8c 20 3d  22 4f 4e 45 22 0d 01 fa  |="1" . ="ONE"...|
00003320  17 e7 20 63 74 70 24 3d  22 32 22 20 8c 20 3d 22  |.. ctp$="2" . ="|
00003330  54 57 4f 22 0d 01 fb 19  e7 20 63 74 70 24 3d 22  |TWO"..... ctp$="|
00003340  33 22 20 8c 20 3d 22 54  48 52 45 45 22 0d 01 fc  |3" . ="THREE"...|
00003350  18 e7 20 63 74 70 24 3d  22 34 22 20 8c 20 3d 22  |.. ctp$="4" . ="|
00003360  46 4f 55 52 22 0d 01 fd  18 e7 20 63 74 70 24 3d  |FOUR"..... ctp$=|
00003370  22 35 22 20 8c 20 3d 22  46 49 56 45 22 0d 01 fe  |"5" . ="FIVE"...|
00003380  17 e7 20 63 74 70 24 3d  22 36 22 20 8c 20 3d 22  |.. ctp$="6" . ="|
00003390  53 49 58 22 0d 01 ff 19  e7 20 63 74 70 24 3d 22  |SIX"..... ctp$="|
000033a0  37 22 20 8c 20 3d 22 53  45 56 45 4e 22 0d 02 00  |7" . ="SEVEN"...|
000033b0  19 e7 20 63 74 70 24 3d  22 38 22 20 8c 20 3d 22  |.. ctp$="8" . ="|
000033c0  45 49 47 48 54 22 0d 02  01 18 e7 20 63 74 70 24  |EIGHT"..... ctp$|
000033d0  3d 22 39 22 20 8c 20 3d  22 4e 49 4e 45 22 0d 02  |="9" . ="NINE"..|
000033e0  02 19 e7 20 63 74 70 24  3d 22 2f 22 20 8c 20 3d  |... ctp$="/" . =|
000033f0  22 53 4c 41 53 48 22 0d  02 03 0c 3d 22 53 50 41  |"SLASH"....="SPA|
00003400  43 45 22 0d 02 04 16 dd  f2 70 6c 6f 74 28 6f 75  |CE"......plot(ou|
00003410  74 24 2c 78 25 2c 79 25  29 0d 02 05 33 c8 99 22  |t$,x%,y%)...3.."|
00003420  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 32 35 36  |OS_SpriteOp",256|
00003430  2b 33 34 2c 53 70 72 69  74 65 5f 61 72 65 61 2c  |+34,Sprite_area,|
00003440  6f 75 74 24 2c 78 25 2c  79 25 2c 30 0d 02 06 05  |out$,x%,y%,0....|
00003450  e1 0d 02 28 12 dd f2 53  43 4f 52 45 28 53 43 4f  |...(...SCORE(SCO|
00003460  52 45 29 0d 02 29 15 73  63 6f 72 65 3d 73 63 6f  |RE)..).score=sco|
00003470  72 65 2b 53 43 4f 52 45  0d 02 2a 23 f1 20 8a 36  |re+SCORE..*#. .6|
00003480  34 2c 33 30 29 3b c2 22  30 30 30 30 30 30 22 2b  |4,30);."000000"+|
00003490  c3 28 73 63 6f 72 65 29  2c 36 29 0d 02 2b 05 e1  |.(score),6)..+..|
000034a0  0d 02 2c 0c dd f2 4f 50  53 3a ef 35 0d 02 2d 13  |..,...OPS:.5..-.|
000034b0  e3 20 41 3d 31 36 20 b8  20 31 20 88 20 2d 31 0d  |. A=16 . 1 . -1.|
000034c0  02 2e 0a f7 20 8d 54 76  40 0d 02 2f 17 e3 20 42  |.... .Tv@../.. B|
000034d0  3d 31 20 b8 20 41 3a f3  20 43 4c 2c 54 4e 3a ed  |=1 . A:. CL,TN:.|
000034e0  0d 02 30 0e e6 20 43 4c  20 c8 9c 20 54 4e 0d 02  |..0.. CL .. TN..|
000034f0  31 2f ec 20 34 30 38 2c  34 30 30 3a f1 20 22 50  |1/. 408,400:. "P|
00003500  52 45 53 53 20 54 48 45  20 53 50 41 43 45 20 42  |RESS THE SPACE B|
00003510  41 52 20 54 4f 20 50 4c  41 59 2e 2e 22 0d 02 33  |AR TO PLAY.."..3|
00003520  11 e3 20 54 3d 31 20 b8  20 38 30 30 3a ed 0d 02  |.. T=1 . 800:...|
00003530  34 05 ed 0d 02 35 0a ef  34 3a 87 3a e1 0d ff     |4....5..4:.:...|
0000353f