"� >adfs::0.$.SixGames.Graphoid

�:�error
��<>12:�12:�
(�initial
2	�menu
<�
F�mouseilluminate
P�localskill
Z
�sound
d
�practice
n�instructions
x�graphics("space craft",7)
�� �
�
��initial
�H� att%(6,10),scores%(11),scr%(4),high$(11),name$(4),info$(6),prc%(6)
�>� com$(18),cod%(18),dat$(32),mis$(1,32),obj$(12),srn%(1,8)
�G� asx(8),asy(8),asi%(8),vx(8),vy(8),gld$(4),gli%(4),glx%(4),gly%(4)
�
� �T`C
��J%=1�6
�� K%
�prc%(J%)=K%
��
�J%=0
�� a$
�ȕ a$<>"end"

dat$(J%)=a$

	J%+=1

� a$

"�

,J%=1

6� a$,b$

@ȕ a$<>"end"

Jmis$(0,J%)=a$

Tmis$(1,J%)=b$

^	J%+=1

h� a$,b$

r�

|J%=1

�� a$,K%

�ȕ a$<>"end"

�com$(J%)=a$

�cod%(J%)=K%

�	J%+=1

�� a$,K%

��

�J%=1

�� a$

�ȕ a$<>"end"

�obj$(J%)=a$

�	J%+=1

�� a$
�
�X%=0�2
srn%(0,X%)=160*X%+160
&srn%(0,X%+3)=srn%(0,X%)
0srn%(0,X%+6)=srn%(0,X%)
:�
D�Y%=0�2
Nsrn%(1,Y%*3)=43*Y%+126
Xsrn%(1,Y%*3+1)=srn%(1,Y%*3)
bsrn%(1,Y%*3+2)=srn%(1,Y%*3)
l�
v
@%  =0
�
ast%=4
�
gme%=1
�mis%=10
�
san%=0
�
tim%=�
� f$  ="<Disc2$Dir>.SixGames."
�ț f$+"Common"
�)b%  =�initialsprites("Numbers|Game1")
�&z%  =�initialcompressed("GrapSpr")
��loaddetails
�
�limit
��sortscores
�
�assemble
ș"Hourglass_Smash"
�point("Ten",1)
�
 � 1,1,15,15,3,3
*6� simple movement commands with the object visible
4� object is visible
>C� first quadrant,second quadrant,third quadrant,fourth quadrant
HC� first quadrant,second quadrant,third quadrant,fourth quadrant
R#� x inequalities,y inequalities
\,� inside region safe,outside region safe
f	� end
p$� Rescue the astronaut,astronaut
z� Space walker,astronaut
�� Collect a fuel pod,fuel
�� Extra fuel,fuel
�!� Enter the stargate,stargate
�!� Go to the stargate,stargate
�� Pick up cargo,cargo
�"� Cargo awaiting pick up,cargo
�%� Service the satellite,satellite
�$� Satellite in trouble,satellite
�� Go to the moon,moon
�� Full moon,moon
�� Observe the star,star
�� A new star,star
�� Observe the comet,comet
� A new comet,comet
!� Pick up equipment,equipment
� New equipment,equipment
$#� Fresh oxygen cylinders,oxygen
.� Pick up oxygen,oxygen
8� Service the probe,probe
B� Go to the probe,probe
L� Destroy mine,mine
V� Pick up mine,mine
`
� end,end
j� top left,6,bottom right,2
t(� top of centre,7,bottom of centre,1
~� top right,8,bottom left,0
�"� centre left,3,centre right,5
�� centre,4,centre,4
�� bottom right,2,top left,6
�(� bottom of centre,1,top of centre,7
�� bottom left,0,top right,8
�"� centre right,5,centre left,3
�� end,0
�#� astronaut,fuel,stargate,cargo
�� satellite,moon,star,comet
�!� equipment,oxygen,probe,mine
�	� end
���mouseilluminate
ȗ mox%,moy%,but%

box%=(moy%-164)>>6
�box%<0:box%=0
�box%>9:box%=9
(�box%<>sun%�
2Ȗ
<�sqr(sun%,11)
F�sqr(box%,15)
P�int(sun%)
Z�int(box%)
d
sun%=box%
n�
x
�but%=0:�
��7
�
upd%=�
�
Ȏ box% �
�
� 0:�quit
�� 1:�information
�� 2:�volume
�� 3:�grade
�� 4
�mis%+=10
��mis%=60:mis%=10
�
upd%=�
�� 5
�san%+=5

upd%=�
� 6
ast%+=1
"�ast%=9:ast%=0
,
upd%=�
6� 7:�players
@� 8:�highscore
J� 9
T
�intro
^�numbername
h�esc%:�playgame
r�
|�menuclean
��
���int(int%)
�� 5
�	� 0,0
�
Ȏ int% �
�� 2:�insert(11,�(M%�g%))
�G� 3:�sub%=0 �insert(13,�(grd%)) ��insert(13,�(grd%)+"/"+�(sub%+64))
�� 4:�insert(15,�(mis%))
�� 5
��san%=35:san%=0
��san%=0�
��insert(17,"OFF")
�
tim%=�
�

tim%=�
�insert(17,�(san%))
&�
07� 6:�ast%=0 �insert(19,"NONE") ��insert(19,�(ast%))
:� 7:�insert(21,�(ply%))
D�
N�4
X�
b�
l
��menu
vș"ABC_Blank",15
�ș"ABC_Colour",15
�%�card("GRAPHOID MENU",24,10,2,10)
�
� �dZG
��fillmenu(13,6)
��sprites
�ș"ABC_Palette"
�ȗ ȓ 702,164,160,640
��mouse1
��
�@� Play Graphoid,High score table,Number of players,Asteroids
�:� Timer,Missions,,Volume,Information,Exit to Main Menu
���initialgame
�ș"ABC_Blank",7
ș"ABC_Colour",7
�variables
�scores
 
�which
*�update
4ș"ABC_Palette"
>�
H��variables
Rȗ ȓ 0,0,1280,1024
\ �ply%=1 cur%=1 �cur%=�(ply%)
fbon%=10*grd%
p
com%=�
z
esc%=�
�
fin%=�
�
min%=�
�
ovr%=�
�
pre%=�
�
ron%=0
�
ryt%=0
�
sec%=san%
�
shw%=�
�
spn%=�
�
sum%=0
�scr%()=0
�4�pix%=0 g$="z"+�(((grd%-1)�2)+1) �g$="z"+�(pix%)
�!ș"ABC_UnpackPlace",0,z%,0,40
	!ș"ABC_UnpackPlace",1,z%,0,80
	� 5
	
� �DZJ
	$�X%=1�4
	.
� 0,11
	8ȓȐ X%*320-308,240,272,40
	B
� 0,14
	LȓȐ X%*320-308,196,272,40
	V	� 0,7
	`ȓȐ X%*320-316,236,272,36
	jȓȐ X%*320-316,192,272,36
	t	� 0,0
	~� X%*320-308,268
	��name$(X%)
	�	� 0,2
	�� a$
	�� X%*320-308,220
	��X%=4 �typ$ ��a$
	��
	��tim% �
	�	� 0,0
	�
� 166,220
	�	�sec%
	��
	�	� 0,9

� 166,220


�"Off"
�
	� 0,4
(� 1128,220
2&�sub%=0 �grd% ��grd%"/"+�(sub%+64)
<� 4
F�
P�
Z� Time,Bonus,Missions,
d��update
n� 5
x�tim% �
�	� 0,7
�Ȗ
�ȓȐ 168,192,64,36
��sec%<10 � 0,11 �� 0,10
�
� 168,220
�	�sec%
��
�	� 0,7
�Ȗ
�ȓȐ 488,192,32,36
�	� 0,4
�
� 488,220
�	�bon%

�mis%>0 �
	� 0,7
Ȗ
"ȓȐ 808,192,80,36
,	� 0,4
6
� 808,220
@�mis%-sum%
J�
T� 4
^�
h�
r��which
|	� 0,8
��X%=0�3
�ȓȐ X%*320+286,232,32,36
��
�	� 0,0
�� cur%*320-32,248
�� 0,16,-16
�
� 81,0,32
�	� 0,7
�� cur%*320-32,248
�� 1,16,-16
�� 1,0,32
�� 1,-16,-16
��
��scores
� 5
�X%=1� ply%
&	� 0,7
0Ȗ
:ȓȐ X%*320-166,236,122,36
D	� 0,0
N� X%*320-152,268
X
�scr%(X%)
b�
l� 4
v�
��
���enterhighscores
�Q%=ryt%/(ryt%+ron%)*100
�
tab%=�
��ent%=1� ply%
�scores%(11)=scr%(ent%)
�&a$=��$,5,11)+" Grade "+�(grd%)+" "
�(�ply%>1 b$=�(Q%)+"%." �b$=�(Q%)+"% "
� �(b$)<5:b$=�5-�(b$)," ")+b$
�#high$(11)=a$+b$+" "+name$(ent%)
��sortscores
��
��

��intro

ȗ�

ș"ABC_Blank",8

 ș"ABC_Colour",8

*a$="intro"+�(gme%)

4(ș"OS_SpriteOp",296,b%,a$ � ,,,A%,B%

>X%=320-A%�2

HY%=128+B%�2

Rș"ABC_Place",b%,a$,X%,Y%

\�title("GRAPHOID",128,9)

fș"ABC_Palette"

p�=0

z�

�� �>200

��

���timer

��<100:�

�bon%-=grd%

��bon%<0:bon%=0

�shw%=�shw%

�1�shw% � ani%>0:�noise("Ping",4,&17F,&6200,&2)

��tim% �

�%�noise("Timer",3,&17F,&1000,&100)

�sec%-=1

�
�sec%<0 �

�bon%=10*grd%

fin%=�

sec%=san%

spn%=�
$
suc%=�
.�
8�
B�update
L�=0
V�
`
��sprites
j�J%=1�3
t+ș"ABC_Sprite",b%,"z"+�(J%),68,J%*48+38
~,ș"ABC_Sprite",b%,"z"+�(J%),486,J%*48+38
��
��
���playgame
��initialgame
�
�flush
��same(name$(cur%))
��
��questions
��danger
��
��
�
�delay(2)
�animate

�asteroids
	�ship
�collide
(�hazard
2�collect
<
�sound
F
�timer
P�reveal(8,0,0)
Z�escape
d
�pause
n!� esc% � spn% � exp% � but%>0
x�esc% �
��but%>0 � �exp% � �spn% �
�
�flush
��answer
�	�warp
��zeromouse
��
�
�panel
��decide
��
�� fin% � ovr% � esc%
�� ovr% � esc%
��ovr% � �esc% �
��delay(50)
�enterhighscores
�report
�
"�
,��anyprogress
6#�ply%>1 � attend$="" � sub%>0:�
@Q%=ryt%/(ryt%+ron%)*100
J	��tFP
T�J%=1� grd%
^
� inx%
h�
r�upgrade
|�
�� 10,4,5,7,8,9
���limit
�	��tFP
�
bnd%=1
��J%=1�6
�
� inx%
� �att%(gme%,inx%)>1:bnd%=J%+1
��
��bnd%>6:bnd%=6
��
���localskill
�符-2:�
�	��tTQ
L%=0
�J%=1�6
� K%
&�-K%:L%=J%:A%=K%:sub%=0
0�
:�L%=0:�
D� 7
Ngrd%=L%
XȖ
b"�box%=3 �sqr(3,15) ��sqr(3,11)
l�int(3)
v�
�� ��-A%
��
�� 114,115,116,21,117,118
�
��pattern
�� 29,640;400;
��X%=1�8
�L%=0
�s=7
��J%=1�15
�
� �dTR
��draw(�)
�
L%+=15
�s=s*.88
�
L%=0
s=7
 �J%=1�15
*
� �dTR
4�draw(�)
>
L%+=15
Hs=s*.88
R�
\�
f� 26
p�
z��draw(col%)
��K%=1�7
��col% � 0,�(4)+7 �� 0,7
�	� x,y
�xt=x*��(L%)-y*��(L%)
�yt=x*��(L%)+y*��(L%)
�"�K%=1 � s*xt,s*yt �� s*xt,s*yt
��
��
�<� 43.3,25,0,50,-43.3,25,-43.3,-25,0,-50,43.3,-25,43.3,25
���rating
��rat%:�
�	��DLS
�J%=Q%�10

�Y%=1� J%
� a$
�
$a$="Rating : "+a$
.&ș"ABC_PryntString",a$,132,106,1,7
8&ș"ABC_PryntString",a$,134,107,1,8
B�
L4� pathetic,poor,could do better,keep trying,fair
V=� pretty clever,not too bad,nearly there,good work,genius
`��extra
j
� �tFP
t�J%=1� grd%
~
� inx%
��
�(�att%(gme%,inx%)=1 � prc%(grd%)>32 �
�
J%=�("0")
��K%=0�4
��(prc%(grd%)�2^K%)>0:J%+=1
��
�r�J%=�("1") a$="Then press key f1 for extra practice" �a$="Then press keys f1 to f"+�(J%)+" for extra practice"
�xsc%=320-�(a$)*4
�&ș"ABC_PryntString",a$,xsc%,11,0,7
�)ș"ABC_PryntString",a$,xsc%+1,12,0,11
��
��
 ��fillinformation(tax%,tay%)

� 5
	� 0,0
!� tax%*32-f%,1024-(tay%*g%+4)
(X�nig% �"Subject               NC      "+typ$ ��"Subject             Colour    "+typ$
2
� �tFP
<�J%=1�6
F
� inx%
PȎ att%(gme%,inx%) �
Z
� 0:� 0,3
d� 1:� 0,11
n� 2:� 0,14
x � 3,4,5,6,7,8,9,10,11:� 0,10
�:� 0,15
��
�ȓȐ 642,740-J%*64,156,56
��
�
� �DhU
��J%=1�6
�� s$
�	� 0,7
�(� tax%*32+448,1024-(tay%*g%+J%*f%+4)
��J%
�(� tax%*32+272,1024-(tay%*g%+J%*f%+4)
�(�nig%:�info$(J%),�info$(J%),"(")-2)
�	� 0,0
'� tax%*32-f%,1024-(tay%*g%+J%*f%+4)
�s$
&� tax%*32+448,1024-(tay%*g%+J%*f%)
"�J%
,&� tax%*32+272,1024-(tay%*g%+J%*f%)
6(�nig%:�info$(J%),�info$(J%),"(")-2)
@�
J� 4
T�
^�
hL� Words,Co-ordinates,Graphs,Mappings and Fns,Inequalities,Interpretation
r��practice
|
�-2:�
�
� �tTQ
�J%=1
�K%=�
�ȕ J%<7 � K%
�� L%
�%�-L% � (prc%(grd%)�2^(J%-1))>0 �
�ȕ �-L%
��
�K%=�
��J%<=6 �
�� 7
�sub%=J%
�Ȗ
"�box%=3 �sqr(3,15) ��sqr(3,11)
�int(3)
�
&�
0	J%+=1
:�
D�
N��same(t$)
Xȗ �
b� 7
l#ș"ABC_Transfer",256,168,128,78
v%ș"ABC_Sprite",b%,"mouse",256,168
�xsc%=320-�(t$)*8
�ysc%=120
�(ș"ABC_PryntString",t$,xsc%,ysc%,1,7
�,ș"ABC_PryntString",t$,xsc%-2,ysc%+1,1,8
��
�ȗ mox%,moy%,but%
�� but%>0
�ș"ABC_Restore"
��zeromouse
�ȗ � 640,512
��=0
��
���stars
�J%=1�48
� 0,�(4)+7
X%=�(1280)
 Y%=�(1024)
*� X%,Y%
4� 1,6,0
>� 0,-4,4
H� 1,0,-8
R�
\�
f��questions
pș"ABC_Blank",7
z� 0,135
�� 24,0;320;1278;1020;
��
�
�stars
�� 26
�!ș"ABC_UnpackPlace",0,z%,0,40
�
ani%=0
�
foc%=�
�bon%=10*grd%
�
Ȏ grd% �
�� 1:�one
�� 2:�two
�� 3:�three
�
� 4:�four

� 5:�five
� 6:�six
�
$� ScreenSave
.�placecraft
8�placeasteroids
B�update
Lș"ABC_Palette"
V�=0
`�
j	��one
t
�sub%=0 �
~�com% �firstcom ��secondcom
�com%=�com%
��
�
�firstcom
��
�xxx%=srn%(0,cod%(tex%))
�yyy%=srn%(1,cod%(tex%))
�anx%=xxx%-16
�any%=yyy%+8
�xsc%=320-�(a$)*4
�&ș"ABC_PryntString",a$,xsc%,26,0,7
�(ș"ABC_PryntString",a$,xsc%-2,27,0,0
��graph1

ani%=sub%

�place(j$)
�
��firstcom
(�
2tex%=�(9)*2
<obj%=�(12)
F � com$(tex%)>"" � tex%<>pre%
Ppre%=J%
Zj$=obj$(obj%)
d8a$="MOVE to the "+j$+" at the "+com$(tex%)+" square"
n�
x��secondcom
�obj%=�(12)
�tex%-=1
�j$=obj$(obj%)
�<a$="Now MOVE to the "+j$+" at the "+com$(tex%)+" square"
��
�	��two
�xob%=�(11)-1
�yob%=�(6)-1
��
�J%=�(32)
�� mis$(0,J%)>"" � J%<>pre%
�pre%=J%
�1a$=mis$(0,J%)+" at ("+�(xob%)+","+�(yob%)+")"
j$=mis$(1,J%)
xsc%=320-�(a$)*8
&ș"ABC_PryntString",a$,xsc%,30,1,7
"(ș"ABC_PryntString",a$,xsc%-2,31,1,0
,�graph2
6anx%=xob%*52+48
@any%=yob%*26+112
Jxxx%=xob%*52+64
Tyyy%=yob%*26+104
^
ani%=sub%
h�place(j$)
r�
|��three
� �sub%=0 opr%=�(4) �opr%=sub%
��
�J%=�(32)
�� mis$(0,J%)>"" � J%<>pre%
�pre%=J%
�
Ȏ opr% �
�� 1
�xob%=�(21)-1
�yob%=�(11)-1
��graph3a
�anx%=xob%*26+48
�any%=yob%*13+112
�0�minecoors(21,11,"mix%*26+48","miy%*13+112")
� 2
xob%=�(21)-1
yob%=-(�(11)-1)
&�graph3b
0anx%=xob%*26+48
:any%=242+yob%*13
D1�minecoors(21,-11,"mix%*26+48","242+miy%*13")
N� 3
Xxob%=-(�(21)-1)
byob%=-(�(11)-1)
l�graph3c
vanx%=568+xob%*26
�any%=242+yob%*13
�3�minecoors(-21,-11,"568+mix%*26","242+miy%*13")
�� 4
�xob%=-(�(21)-1)
�yob%=�(11)-1
��graph3d
�anx%=568+xob%*26
�any%=yob%*13+112
�2�minecoors(-21,11,"568+mix%*26","miy%*13+112")
��
�xxx%=anx%+16
�yyy%=any%-8
�1a$=mis$(0,J%)+" at ("+�(xob%)+","+�(yob%)+")"
j$=mis$(1,J%)
xsc%=320-�(a$)*8
&ș"ABC_PryntString",a$,xsc%,30,1,7
 (ș"ABC_PryntString",a$,xsc%-2,31,1,0
*�place(j$)
4�
>
��four
H�
RJ%=�(32)
\� mis$(0,J%)>"" � J%<>pre%
fpre%=J%
p
Ȏ sub% �
z� 0
��
�ady%=�(22)-11
�xob%=�(22)-11
�yob%=xob%+ady%
�� yob%>-11 � yob%<11
��graph5
�anx%=xob%*16+304
�any%=yob%*8+176
�
Ȏ �(4) �
�4� 1:�minecoors(21,11,"mix%*16+304","miy%*8+176")
�5� 2:�minecoors(-21,11,"mix%*16+304","miy%*8+176")
�5� 3:�minecoors(21,-11,"mix%*16+304","miy%*8+176")
�4:�minecoors(-21,-11,"mix%*16+304","miy%*8+176")
�
� 1
�
$ady%=�(22)-11
.xob%=�(21)-1
8yob%=xob%+ady%
B!� yob%>-1 � yob%<11 � ady%<>0
L�graph3a
Vanx%=xob%*26+48
`any%=yob%*13+112
j0�minecoors(21,11,"mix%*26+48","miy%*13+112")
t� 2
~�
�ady%=�(22)-11
�xob%=�(21)-1
�yob%=xob%+ady%
�!� yob%<1 � yob%>-11 � ady%<>0
��graph3b
�anx%=xob%*26+48
�any%=242+yob%*13
�1�minecoors(21,-11,"mix%*26+48","242+miy%*13")
�� 3
��
�ady%=�(22)-11
�xob%=-(�(21)-1)
yob%=xob%+ady%

!� yob%<1 � yob%>-11 � ady%<>0
�graph3c
anx%=568+xob%*26
(any%=242+yob%*13
23�minecoors(-21,-11,"568+mix%*26","242+miy%*13")
<� 4
F�
Pady%=�(22)-11
Zxob%=-(�(21)-1)
dyob%=xob%+ady%
n!� yob%>-1 � yob%<11 � ady%<>0
x�graph3d
�anx%=568+xob%*26
�any%=yob%*13+112
�2�minecoors(-21,11,"568+mix%*26","miy%*13+112")
��
�xxx%=anx%+16
�yyy%=any%-8
�{�ady%<0 a$="When x="+�(xob%)+"  "+mis$(0,J%)+" at y=x"+�(ady%) �a$="When x="+�(xob%)+"  "+mis$(0,J%)+" at y=x+"+�(ady%)
�j$=mis$(1,J%)
�xsc%=320-�(a$)*4
�&ș"ABC_PryntString",a$,xsc%,26,0,7
�(ș"ABC_PryntString",a$,xsc%-2,27,0,0
��place(j$)
��

��five
�graph5
�scatter
"
Ȏ sub% �
,� 0:�>0 �xcoor ��ycoor
6� 1:�xcoor
@� 2:�ycoor
J�
T
xxx%=0
^
yyy%=0
h�
r��xcoor
|
cor%=�
�
� �dn`
��J%=1� �(4)
�� a$
��
��
�xe1%=�(32)-16
�xe2%=�(32)-16
�1� xe1%<xe2% � �(xe1%-xe2%)>3 � �(xe1%-xe2%)<6
�a$+=": "
�xsc%=240-�(a$)*4
�&ș"ABC_PryntString",a$,xsc%,26,0,7
�(ș"ABC_PryntString",a$,xsc%-2,27,0,0
�xsc%+=�(a$)*8
  a$=�(xe1%)+" � x � "+�(xe2%)
 &ș"ABC_PryntString",a$,xsc%,30,1,7
 (ș"ABC_PryntString",a$,xsc%-2,31,1,0
 &�
 0��ycoor
 :
cor%=�
 D
� �dn`
 N�J%=1� �(4)
 X� a$
 b�
 l�
 vye1%=�(18)-9
 �ye2%=�(18)-9
 �1� ye1%<ye2% � �(ye1%-ye2%)>3 � �(ye1%-ye2%)<6
 �a$+=": "
 �xsc%=240-�(a$)*4
 �&ș"ABC_PryntString",a$,xsc%,26,0,7
 �(ș"ABC_PryntString",a$,xsc%-2,27,0,0
 �xsc%+=�(a$)*8
 � a$=�(ye1%)+" � y � "+�(ye2%)
 �&ș"ABC_PryntString",a$,xsc%,30,1,7
 �(ș"ABC_PryntString",a$,xsc%-2,31,1,0
 ��
 �7� Proceed to safe area,Keep to the following region
 �5� Get in this region of space,Safe region only at
!,� Space pirates in,Deadly radiation area
!/� Electromagnetic storm at,Avoid super nova
!	��six
! �graph5
!*�scatter
!4
Ȏ sub% �
!>#� 0:�>0 �region(�) ��region(�)
!H� 1:�region(�)
!R� 2:�region(�)
!\�
!f
xxx%=0
!p
yyy%=0
!z�
!���region(val%)
!�
cor%=val%
!��cor% � �dn` �� �TBa
!��J%=1� �(4)
!�� a$
!��
!��
!�xe1%=�(41)-21
!�xe2%=�(41)-21
!�4� xe1%<xe2% � �(xe1%-xe2%)>10 � �(xe1%)<>�(xe2%)
!��
!�ye1%=�(21)-11
!�ye2%=�(21)-11
"3� ye1%<ye2% � �(ye1%-ye2%)>6 � �(ye1%)<>�(ye2%)
"a$+=": "
"xsc%=136-�(a$)*4
"$&ș"ABC_PryntString",a$,xsc%,26,0,7
".(ș"ABC_PryntString",a$,xsc%-2,27,0,0
"8xsc%+=�(a$)*8
"B;a$=�(ye1%)+" <y< "+�(ye2%)+"  "+�(xe1%)+" <x< "+�(xe2%)
"L&ș"ABC_PryntString",a$,xsc%,30,1,7
"V(ș"ABC_PryntString",a$,xsc%-2,31,1,0
"`�
"j
��scatter
"tgli%()=�
"~�J%=1�4
"�gld$(J%)=obj$(�(12))
"��
"�glx%(J%)=�(608)-1
"�gly%(J%)=�(160)+96
"�0� ��craft(240,144,400,192,glx%(J%),gly%(J%))
"��
"��
"���assemble
"�� cde% &E000
"�ș"ABC_VideoAddress" � vid%
"�sp  =13
"�link=14
#pc  =15
#

�A%=0�2�2
#P%=cde%
#
[OPTA%
#(.ScreenSave
#2ADR      R12,savescreen
#<LDR      R11,screen
#FMOV      R10,#&B0
#P.save_another
#ZMOV      R9,#10
#d.save_line
#nLDMIA    R11!,{R0-R7}
#xSTMIA    R12!,{R0-R7}
#�SUBS     R9,R9,#&1
#�BNE      save_line
#�SUBS     R10,R10,#&1
#�BNE      save_another
#�MOV      pc,link
#�.RestoreScreen
#�ADR      R12,savescreen
#�LDR      R11,screen
#�MOV      R10,#&B0
#�.restore_another
#�MOV      R9,#10
#�.restore_line
#�LDMIA    R12!,{R0-R7}
$STMIA    R11!,{R0-R7}
$SUBS     R9,R9,#&1
$BNE      restore_line
$"SUBS     R10,R10,#&1
$,BNE      restore_another
$6MOV      pc,link
$@
.Asteroid
$JLDR      R2,[R9]
$TLDR      R2,[R2]
$^LDR      R1,[R9,#&8]
$hLDR      R1,[R1]
$rADR      R12,savescreen
$|LDR      R11,screen
$�RSB      R2,R2,#&100
$�ADD      R2,R2,R2,LSL#2
$�MOV      R2,R2,LSL#6
$�ADD      R2,R2,R1,ASR#1
$�TST      R2,#%11
$�ADD      R12,R12,R2
$�ADD      R11,R11,R2
$�MOV      R10,#&8
$�.restore_asteroid
$�LDMIA    R12,{R0-R2}
$�STMIA    R11,{R0-R2}
$�ADD      R11,R11,#&140
$�ADD      R12,R12,#&140
%SUBS     R10,R10,#&1
%BNE      restore_asteroid
%MOV      pc,link
%&	.Ship
%0LDR      R3,[R9]
%:LDR      R3,[R3]
%DLDR      R2,[R9,#&8]
%NLDR      R2,[R2]
%XLDR      R1,[R9,#&10]
%bLDR      R1,[R1]
%lLDR      R0,[R9,#&18]
%vLDR      R0,[R0]
%�STMFD    sp !,{R0-R3}
%�MOV      R0,#19
%�SWI      "XOS_Byte"
%�LDMFD    sp !,{R1,R2}
%�ADR      R12,savescreen
%�LDR      R11,screen
%�RSB      R2,R2,#&100
%�ADD      R2,R2,R2,LSL#2
%�MOV      R2,R2,LSL#6
%�ADD      R2,R2,R1,ASR#1
%�TST      R2,#%11
%�ADD      R12,R12,R2
%�ADD      R11,R11,R2
&MOV      R10,#&18
&.restore_ship
&LDMIA    R12,{R0-R8}
& STMIA    R11,{R0-R8}
&*ADD      R11,R11,#&140
&4ADD      R12,R12,#&140
&>SUBS     R10,R10,#&1
&HBNE      restore_ship
&RLDR      R0,sprite_bank
&\ADR      R1,sprite_name
&fLDMFD    sp !,{R2,R3}
&pSWI      "ABC_Sprite"
&zMOV      pc,link
&�.Object
&�LDR      R2,[R9]
&�LDR      R2,[R2]
&�LDR      R1,[R9,#&8]
&�LDR      R1,[R1]
&�ADR      R12,savescreen
&�LDR      R11,screen
&�RSB      R2,R2,#&100
&�ADD      R2,R2,R2,LSL#2
&�MOV      R2,R2,LSL#6
&�ADD      R2,R2,R1,ASR#1
&�TST      R2,#%11
&�ADD      R12,R12,R2
'ADD      R11,R11,R2
'MOV      R10,#&10
'.restore_object
'$LDMIA    R12,{R0-R4}
'.STMIA    R11,{R0-R4}
'8ADD      R11,R11,#&140
'BADD      R12,R12,#&140
'LSUBS     R10,R10,#&1
'VBNE      restore_object
'`MOV      pc,link
'j.screen
't
EQUD vid%
'~.sprite_bank
'�EQUD b%
'�.sprite_name
'�EQUD &0
'�.savescreen
'�]
'��
'��
'���placeasteroids
'�
�ast%=0:�
'��A%=1� ast%
'��
'�
B%=�(600)
(C%=�(160)+88
(
$� ��craft(240,144,400,192,B%,C%)
(asx(A%)=B%
(asy(A%)=C%
((asi%(A%)=�(4)-1
(2/ș"ABC_Sprite",b%,"aster"+�(asi%(A%)),B%,C%
(<�
(Fvx(A%)=�(1)*4-2
(Pvy(A%)=�(1)*4-2
(Z� �(vx(A%))>1 � �(vy(A%))>1
(d�
(n�
(x&ݤcraft(x1%,y1%,x2%,y2%,xsc%,ysc%)
(��xsc%<x1% � xsc%>x2%:=�
(��ysc%<y1% � ysc%>y2%:=�
(�=�
(���placecraft
(�
exp%=�
(�
fin%=�
(�
rok%=ast%
(�sax%=288
(�say%=180
(�
try%=0
(�
vox%=0
(�
voy%=0
(�$sprite_name=g$
)"ș"ABC_Sprite",b%,g$,sax%,say%
)
�flush
)ȗ � 640,512
)"�
),��asteroids
)6�rok%=0:Ȗ:�
)@�A%=1� rok%
)Jolx%=asx(A%)
)Toly%=asy(A%)
)^asx(A%)+=vx(A%)
)hasy(A%)+=vy(A%)
)r'�asx(A%)<-32:asx(A%)=608:asy(A%)+=1
)|%�asx(A%)>640:asx(A%)=0:asy(A%)-=1
)��asy(A%)>256:asy(A%)=88
)��asy(A%)<88:asy(A%)=255
)�asi%(A%)=(asi%(A%)+1)�3
)�� Asteroid, olx%, oly%
)�9ș"ABC_Sprite",b%,"aster"+�(asi%(A%)),asx(A%),asy(A%)
)��
)��
)�$ݤhit(x1%,y1%,x2%,y2%,xsc%,ysc%)
)��xsc%<x1% � xsc%>x2%:=�
)��ysc%<y1% � ysc%>y2%:=�
)�=�
)�
��ship
)�ȗ mox%,moy%,but%
*
olx%=sax%
*
oly%=say%
*�mox%>648:vox%+=4
*&�mox%<632:vox%-=4
*0�moy%>524:voy%+=2
*:�moy%<500:voy%-=2
*Dsax%+=vox%
*Nsay%+=voy%
*X�vox%>0:vox%-=1
*b�vox%<0:vox%+=1
*l�voy%>0:voy%-=1
*v�voy%<0:voy%+=1
*��sax%<0:sax%=0
*��sax%>576:sax%=576
*��say%<104:say%=104
*��say%>256:say%=256
*�"� Ship, olx%, oly%, sax%, say%
*�ȗ � 640,512
*��
*�
��collide
*�
�rok%=0:�
*��A%=1� rok%
*�T�hit(sax%,say%-24,sax%+64,say%,asx(A%)+8,asy(A%)-4):�explode(asx(A%),asy(A%),�)
*��
*��
+��explode(B%,C%,wip%)
+�wip% �
+� Asteroid, B%, C%
+ asx(A%)=asx(rok%)
+*asy(A%)=asy(rok%)
+4asi%(A%)=asi%(rok%)
+>rok%-=1
+H�
+R
exp%=�
+\
fin%=�
+f
foc%=�
+p
suc%=�
+z� 24,0;320;1278;1020;
+�/�noise("Percussion-Snare",3,&17F,&1000,&24)
+��J%=1�20
+��K%=1�4
+�
� 0,14
+�xsc%=�(128)+sax%*2
+�ysc%=�(96)+say%*4-96
+�rad%=�(32)+8
+�ȏȐ xsc%,ysc%,rad%
+�	� 0,7
+�ȏ xsc%,ysc%,rad%
+��
+�
�delay(3)
+��asteroids
,�keepobject
,�
,� RestoreScreen
,$�26
,.�
,8��keepobject
,B�A%=1�4
,L:�gli%(A%):ș"ABC_Sprite",b%,gld$(A%),glx%(A%),gly%(A%)
,V�
,`�
,j
��animate
,tB�ani%=0 � exp% � �craft(sax%,say%-24,sax%+64,say%,xxx%,yyy%):�
,~C�shw% ș"ABC_Sprite",b%,j$,xxx%-16,yyy%+8 �� Object, anx%, any%
,��
,���answer
,�
suc%=�
,�
Ȏ grd% �
,�� 1
,�xsr%=srn%(0,cod%(tex%))-80
,�ysr%=srn%(1,cod%(tex%))-22
,�;suc%=�craft(xsr%,ysr%,xsr%+160,ysr%+43,sax%+32,say%-12)
,�<� 2,3,4:suc%=�craft(sax%,say%-24,sax%+64,say%,xxx%,yyy%)
,�� 5
,�xsc=(sax%+32)/16-20
,�ysc=(say%-92)/8-11
-�cor% �
-
�xsc>xe1% � xsc<xe2%:suc%=�
-�
-�ysc>ye1% � ysc<ye2%:suc%=�
-(�
-2� 6
-<xsc=(sax%+32)/16-20
-Fysc=(say%-92)/8-11
-P=�xsc>xe1% � xsc<xe2% � ysc>ye1% � ysc<ye2% reg%=� �reg%=�
-Z�cor% �
-d�reg%:suc%=�
-n�
-x�reg%:suc%=�
-��
-��
-��
-���panel
-�
spn%=�
-�
fin%=suc%
-��suc% �
-�&�noise("Cymbal",4,&17F,&1200,&100)
-�
sec%=san%
-�sum%+=1
-��sum%=mis%:ovr%=�
-�ryt%+=1
-� scr%(cur%)+=bon%+4*ast%*grd%
.�tim%:scr%(cur%)+=(35-san%)
.
try%=0
.�
.")�exp%:�noise("Burp",3,&17F,&2600,&8)
.,ron%+=1
.6try%+=1
.@
�try%=1 �
.J"�grd%<5 ani%=1 ��highlightarea
.T
shw%=�
.^�animate
.h�
.r
fin%=�
.|�
.��
.��
.���changeplayer
.�cur%+=1
.��cur%>ply%:cur%=1
.�
�which
.��zeromouse
.�
�flush
.��same(name$(cur%))
.��
.�
��attract
.�
com%=�
.�
exp%=�
/sum%+=1
/
try%=0
/�sum%=mis%:ovr%=�
/&
�grd%>4:�
/0�fla%=1�48
/:
�delay(3)
/Dshw%=�shw%
/N(�shw%:�noise("Ping",4,&17F,&6200,&2)
/X�animate
/b�
/l�update
/v�delay(100)
/��
/���decide
/�#�tim% �timerused ��timernotused
/��scores
/��update
/�
�which
/��=0
/��
/���timerused
/�
�ply%=1 �
/��attract
/�
fin%=�
/��
0�suc% �
0�attract
0�ovr%:�changeplayer
0 
fin%=�
0*
sec%=san%
04�
0>�
0H�
0R��timernotused
0\
�ply%=1 �
0f�try%=2:�attract
0p�
0z�suc% �
0��attract
0��ovr%:�changeplayer
0�
fin%=�
0��
0��
0��
0���graph1
0�ȑ 160,416
0�	� 0,0
0��X%=0�3
0�� X%*320,0
0�
� 1,0,512
0��
1�Y%=0�3
1� 0,Y%*172
1
� 1,960,0
1$�
1.
ȑ 0,0
18�
1B��graph2
1Lȑ 128,416
1V� 5
1`�X%=0�10
1j	� 0,0
1t� X%*104,0
1~� 1,0,-8
1�� X%*104-8,-16
1��X%
1�	� 0,5
1�� X%*104,0
1�� 25,0,520
1��
1��Y%=0�5
1�	� 0,0
1�� 0,Y%*104
1�� 1,-4,0
1�� -28,Y%*104+16
1��Y%
2	� 0,5
2
� 0,Y%*104
2� 25,1040,0
2�
2(	� 0,0
22� 0,0,1040,0
2<� 0,0,0,520
2F�xpos(1040,0)
2P�ypos(0,512)
2Z� 4
2d�
2n
ȑ 0,0
2x�
2���ypos(xsc%,ysc%)
2�� xsc%,ysc%
2�� 1,0,64
2�� 1,-8,-16
2�� 0,8,16
2�
� 1,8,-16
2�� xsc%-16,ysc%+96
2�	�"+y"
2��
2���yneg(xsc%,ysc%)
2�� xsc%,ysc%
2�
� 1,0,-64
2�
� 1,-8,16
3
� 0,8,-16
3� 1,8,16
3� xsc%-16,ysc%-64
3"	�"-y"
3,�
36��xpos(xsc%,ysc%)
3@� xsc%,ysc%
3J� 1,32,0
3T� 1,-8,8
3^� 0,8,-8
3h
� 1,-8,-8
3r� xsc%+32,ysc%+16
3|	�"+x"
3��
3���xneg(xsc%,ysc%)
3�� xsc%,ysc%
3�
� 1,-32,0
3�� 1,8,8
3�
� 0,-8,-8
3�� 1,8,-8
3�� xsc%-66,ysc%+16
3�	�"-x"
3��
3�
��graph3a
3��hatch1
3�ȑ 128,416
4� 5
4	� 0,0
4�X%=0�20
4&
� X%*52,0
40� 1,0,-8
4:&�X%�2=0:� X%*52-�(�(X%))*8,-16:�X%
4D�
4N�Y%=0�10
4X
� 0,Y%*52
4b� 1,-4,0
4l*�Y%�2=0:� -12-�(�(Y%))*16,Y%*52+16:�Y%
4v�
4�� 0,0,0,520
4�� 0,0,1040,0
4��xpos(1040,0)
4��ypos(0,512)
4�� 4
4��
4�
ȑ 0,0
4��
4�
��graph3b
4��hatch1
4�ȑ 128,936
4�� 5
4�	� 0,0
5�X%=0�20
5
� X%*52,0
5� 1,0,8
5 %�X%�2=0:� X%*52-�(�(X%))*8,40:�X%
5*�
54�Y%=0�10
5>� 0,-Y%*52
5H� 1,-4,0
5R1�Y%�2=0:� -(12+�(�(-Y%))*16),-(Y%*52)+16:�-Y%
5\�
5f	� 0,0
5p� 0,0,0,-520
5z� 0,0,1040,0
5��xpos(1040,0)
5��yneg(0,-520)
5�� 4
5��
5�
ȑ 0,0
5��
5�
��graph3c
5��hatch1
5�ȑ 1168,936
5�� 5
5�	� 0,0
5��X%=0�20
5�� -X%*52,0
6� 1,0,8
6(�X%�2=0:� -X%*52-�(�(-X%))*8,40:�-X%
6�
6$�Y%=0�10
6.� 0,-Y%*52
68� 1,-4,0
6B!�Y%�2=0:� 12,-(Y%*52)+16:�-Y%
6L�
6V� 0,0,0,-520
6`� 0,0,-1040,0
6j�xneg(-1040,0)
6t�yneg(0,-520)
6~� 4
6��
6�
ȑ 0,0
6��
6�
��graph3d
6��hatch1
6�ȑ 1168,416
6�� 5
6�	� 0,0
6��X%=0�20
6�� -X%*52,0
6�� 1,0,-8
6�)�X%�2=0:� -X%*52-�(�(-X%))*8,-16:�-X%
7�
7
�Y%=0�10
7
� 0,Y%*52
7� 1,4,0
7(�Y%�2=0:� 12,Y%*52+16:�Y%
72�
7<� 0,0,0,520
7F� 0,0,-1040,0
7P�xneg(-1040,0)
7Z�ypos(0,512)
7d� 4
7n�
7x
ȑ 0,0
7��
7���graph5
7��hatch2
7�ȑ 640,672
7�� 5
7�	� 0,0
7��X%=-18�18
7�
� X%*32,0
7�� 1,0,-8
7�&�X%�2=0:� X%*32-�(�(X%))*8,-16:�X%
7��
7��Y%=-9�9
7�
� 0,Y%*32
8� 1,-4,0
8.�Y%�2=0:� -(12+�(�(Y%))*16),(Y%*32)+12:�Y%
8�
8"ȑ 640,672
8,� 0,-320,0,320
86� -608,0,608,0
8@�xpos(576,0)
8J�xneg(-576,0)
8T�ypos(0,256)
8^�yneg(0,-256)
8h� 4
8r�
8|
ȑ 0,0
8��
8���hatch2
8�ȑ 0,320
8�	� 0,5
8��X%=1�40
8�
� X%*32,0
8�� 17,0,704
8��
8��Y%=1�21
8�
� 0,Y%*32
8�� 17,1280,0
8��
8��
9��hatch1
9ȑ 128,416
9	� 0,5
9&�X%=0�20
90
� X%*52,0
9:� 17,0,520
9D�
9N�Y%=0�10
9X
� 0,Y%*52
9b� 17,1040,0
9l�
9v�
9� ��minecoors(rax%,ray%,x$,y$)
9�
min%=�
9��
9��
9�mix%=�(�(rax%)-1)
9�miy%=�(�(ray%)-1)
9��rax%<0:mix%=-mix%
9��ray%<0:miy%=-miy%
9�� mix%<>xob% � miy%<>yob%
9�dax%=�(x$)+16
9�day%=�(y$)-8
9�(� ��craft(288,156,352,180,dax%,day%)
9��
:��danger
:(�sub%>0 � �(4)<3 � grd%<3 � grd%>4:�
:
min%=�
: &�noise("Danger",2,&17F,&1C00,&100)
:*&�noise("Danger",3,&17F,&1C00,&100)
:4#ș"ABC_Transfer",212,195,216,64
:>&ș"ABC_Place",b%,"message",212,196
:H
� �d@z
:R�J%=1� �(8)
:\� a$
:f�
:p'a$+=" at ("+�(mix%)+","+�(miy%)+")"
:z/ș"ABC_PryntString",a$,320-�(a$)*4,162,0,11
:��=0
:��
:��countdown
:�� �leave
:�ș"ABC_Restore"
:��
:�/� Space junk,Black hole,Radiation,Gas cloud
:�,� Anti-matter,Nebula,Worm hole,Ion storm
:���countdown
:��<100:�
:�bon%-=grd%
:��bon%<0:bon%=0
:�� 5
;	� 0,7
;Ȗ
;ȓȐ 488,192,32,36
;$	� 0,4
;.
� 488,220
;8	�bon%
;B� 4
;L�
;V�=0
;`�
;j��hazard
;t�min%:�
;~
hit%=�
;�
Ȏ grd% �
;�=� 3,4:�craft(sax%,say%-24,sax%+64,say%,dax%,day%):hit%=�
;�� 5
;�� 6
;��
;��hit% �
;�"�noise("Tone",3,&17F,&5400,&1)
;�scr%(cur%)-=grd%
;��scr%(cur%)<0:scr%(cur%)=0
;��scores
;��
;��
<��place(a$)
<
!ș"ABC_Place",b%,"blank",2,34
<#ș"ABC_Place",b%,"blank",598,34
<ș"ABC_Sprite",b%,j$,6,32
<(ș"ABC_Sprite",b%,j$,602,32
<2�
<<
��warp
<F�suc%:�
<P� 24,0;320;1278;1020;
<Zxsc%=sax%*2+64
<dysc%=say%*4-48
<n#�noise("Worp",3,&17F,&400,&100)
<x�rad%=1�260�10
<�Ȗ
<�Ȗ
<�� 3,rad%�3+7
<�ȏȐ xsc%,ysc%,rad%
<�	� 0,7
<�ȏ xsc%,ysc%,rad%
<��
<�� 26
<��
<�
��collect
<�
�grd%<5:�
<�
are%=�
<��A%=1�4
=�gli%(A%) � are% �
==�hit(sax%,say%-24,sax%+64,say%,glx%(A%)+16,gly%(A%)-8) �
= �grd%=5 �outside5 ��outside6
="�are% �
=,+�bon%>0:�noise("Ping",3,&17F,&5400,&10)
=6� Object, glx%(A%),gly%(A%)
=@gli%(A%)=�
=J�bon%>0:scr%(cur%)+=10
=T�scores
=^�
=h�
=r0ș"ABC_Sprite",b%,gld$(A%),glx%(A%),gly%(A%)
=|�
=��
=��
=��are%:�explode(0,0,�)
=��Ǝ gli%()=-5:�
=�
�bon%>0:�
=�
but%=4
=�
foc%=�
=��
=���outside5
=�xsc%=(glx%(A%)+16)/16-20
=�ysc%=(gly%(A%)-8)/8-21
=��cor% �
=�!�xsc%<xe1% � xsc%>xe2%:are%=�
>�
>!�ysc%<ye1% � ysc%>ye2%:are%=�
>�
>&�
>0��outside6
>:xsc%=(glx%(A%)+16)/16-20
>Dysc%=(gly%(A%)-8)/8-21
>NA�xsc%>xe1% � xsc%<xe2% � ysc%>ye1% � ysc%<ye2% reg%=� �reg%=�
>X�cor% �
>b�reg%:are%=�
>l�
>v�reg%:are%=�
>��
>��
>���highlightarea
>�!�grd%=5 �gradefive ��gradesix
>�
ȑ 0,0
>�� ScreenSave
>��foc% �
>��collect
>�	�ship
>��
>�ș"ABC_Palette"
>��foc%:�
>�
fin%=�
?�zeromouse
?�
?ȗ mox%,moy%,but%
? � but%>0
?*�zeromouse
?4�
?>��gradefive
?Hș"ABC_Blank",7
?R
� 0,11
?\ȓȐ 0,320,1280,704
?f
� 0,10
?p�cor% �
?zȑ 640,0
?�'ȓȐ xe1%*32,320,(xe2%-xe1%)*32,704
?��
?�ȑ 0,672
?�&ȓȐ 0,ye1%*32,1280,(ye2%-ye1%)*32
?��
?��graph5
?��
?���gradesix
?�ș"ABC_Blank",7
?��cor% � 0,11 �� 0,10
?�ȓȐ 0,320,1280,704
?�ȑ 640,672
?��cor% � 0,10 �� 0,11
@6ȓȐ xe1%*32,ye1%*32,(xe2%-xe1%)*32,(ye2%-ye1%)*32
@�graph5
@�
�

00000000  0d 00 0a 22 f4 20 3e 61  64 66 73 3a 3a 30 2e 24  |...". >adfs::0.$|
00000010  2e 53 69 78 47 61 6d 65  73 2e 47 72 61 70 68 6f  |.SixGames.Grapho|
00000020  69 64 0d 00 14 0d ee 85  3a f2 65 72 72 6f 72 0d  |id......:.error.|
00000030  00 1e 10 e7 eb 3c 3e 31  32 3a eb 31 32 3a 87 0d  |.....<>12:.12:..|
00000040  00 28 0c f2 69 6e 69 74  69 61 6c 0d 00 32 09 f2  |.(..initial..2..|
00000050  6d 65 6e 75 0d 00 3c 05  f5 0d 00 46 14 f2 6d 6f  |menu..<....F..mo|
00000060  75 73 65 69 6c 6c 75 6d  69 6e 61 74 65 0d 00 50  |useilluminate..P|
00000070  0f f2 6c 6f 63 61 6c 73  6b 69 6c 6c 0d 00 5a 0a  |..localskill..Z.|
00000080  f2 73 6f 75 6e 64 0d 00  64 0d f2 70 72 61 63 74  |.sound..d..pract|
00000090  69 63 65 0d 00 6e 11 f2  69 6e 73 74 72 75 63 74  |ice..n..instruct|
000000a0  69 6f 6e 73 0d 00 78 1e  f2 67 72 61 70 68 69 63  |ions..x..graphic|
000000b0  73 28 22 73 70 61 63 65  20 63 72 61 66 74 22 2c  |s("space craft",|
000000c0  37 29 0d 00 82 07 fd 20  a3 0d 00 8c 0d dd f2 69  |7)..... .......i|
000000d0  6e 69 74 69 61 6c 0d 00  96 48 de 20 61 74 74 25  |nitial...H. att%|
000000e0  28 36 2c 31 30 29 2c 73  63 6f 72 65 73 25 28 31  |(6,10),scores%(1|
000000f0  31 29 2c 73 63 72 25 28  34 29 2c 68 69 67 68 24  |1),scr%(4),high$|
00000100  28 31 31 29 2c 6e 61 6d  65 24 28 34 29 2c 69 6e  |(11),name$(4),in|
00000110  66 6f 24 28 36 29 2c 70  72 63 25 28 36 29 0d 00  |fo$(6),prc%(6)..|
00000120  a0 3e de 20 63 6f 6d 24  28 31 38 29 2c 63 6f 64  |.>. com$(18),cod|
00000130  25 28 31 38 29 2c 64 61  74 24 28 33 32 29 2c 6d  |%(18),dat$(32),m|
00000140  69 73 24 28 31 2c 33 32  29 2c 6f 62 6a 24 28 31  |is$(1,32),obj$(1|
00000150  32 29 2c 73 72 6e 25 28  31 2c 38 29 0d 00 aa 47  |2),srn%(1,8)...G|
00000160  de 20 61 73 78 28 38 29  2c 61 73 79 28 38 29 2c  |. asx(8),asy(8),|
00000170  61 73 69 25 28 38 29 2c  76 78 28 38 29 2c 76 79  |asi%(8),vx(8),vy|
00000180  28 38 29 2c 67 6c 64 24  28 34 29 2c 67 6c 69 25  |(8),gld$(4),gli%|
00000190  28 34 29 2c 67 6c 78 25  28 34 29 2c 67 6c 79 25  |(4),glx%(4),gly%|
000001a0  28 34 29 0d 00 b4 0a f7  20 8d 54 60 43 0d 00 be  |(4)..... .T`C...|
000001b0  0b e3 4a 25 3d 31 b8 36  0d 00 c8 08 f3 20 4b 25  |..J%=1.6..... K%|
000001c0  0d 00 d2 0f 70 72 63 25  28 4a 25 29 3d 4b 25 0d  |....prc%(J%)=K%.|
000001d0  00 dc 05 ed 0d 00 e6 08  4a 25 3d 30 0d 00 f0 08  |........J%=0....|
000001e0  f3 20 61 24 0d 00 fa 10  c8 95 20 61 24 3c 3e 22  |. a$...... a$<>"|
000001f0  65 6e 64 22 0d 01 04 0f  64 61 74 24 28 4a 25 29  |end"....dat$(J%)|
00000200  3d 61 24 0d 01 0e 09 4a  25 2b 3d 31 0d 01 18 08  |=a$....J%+=1....|
00000210  f3 20 61 24 0d 01 22 05  ce 0d 01 2c 08 4a 25 3d  |. a$.."....,.J%=|
00000220  31 0d 01 36 0b f3 20 61  24 2c 62 24 0d 01 40 10  |1..6.. a$,b$..@.|
00000230  c8 95 20 61 24 3c 3e 22  65 6e 64 22 0d 01 4a 11  |.. a$<>"end"..J.|
00000240  6d 69 73 24 28 30 2c 4a  25 29 3d 61 24 0d 01 54  |mis$(0,J%)=a$..T|
00000250  11 6d 69 73 24 28 31 2c  4a 25 29 3d 62 24 0d 01  |.mis$(1,J%)=b$..|
00000260  5e 09 4a 25 2b 3d 31 0d  01 68 0b f3 20 61 24 2c  |^.J%+=1..h.. a$,|
00000270  62 24 0d 01 72 05 ce 0d  01 7c 08 4a 25 3d 31 0d  |b$..r....|.J%=1.|
00000280  01 86 0b f3 20 61 24 2c  4b 25 0d 01 90 10 c8 95  |.... a$,K%......|
00000290  20 61 24 3c 3e 22 65 6e  64 22 0d 01 9a 0f 63 6f  | a$<>"end"....co|
000002a0  6d 24 28 4a 25 29 3d 61  24 0d 01 a4 0f 63 6f 64  |m$(J%)=a$....cod|
000002b0  25 28 4a 25 29 3d 4b 25  0d 01 ae 09 4a 25 2b 3d  |%(J%)=K%....J%+=|
000002c0  31 0d 01 b8 0b f3 20 61  24 2c 4b 25 0d 01 c2 05  |1..... a$,K%....|
000002d0  ce 0d 01 cc 08 4a 25 3d  31 0d 01 d6 08 f3 20 61  |.....J%=1..... a|
000002e0  24 0d 01 e0 10 c8 95 20  61 24 3c 3e 22 65 6e 64  |$...... a$<>"end|
000002f0  22 0d 01 ea 0f 6f 62 6a  24 28 4a 25 29 3d 61 24  |"....obj$(J%)=a$|
00000300  0d 01 f4 09 4a 25 2b 3d  31 0d 01 fe 08 f3 20 61  |....J%+=1..... a|
00000310  24 0d 02 08 05 ce 0d 02  12 0b e3 58 25 3d 30 b8  |$..........X%=0.|
00000320  32 0d 02 1c 19 73 72 6e  25 28 30 2c 58 25 29 3d  |2....srn%(0,X%)=|
00000330  31 36 30 2a 58 25 2b 31  36 30 0d 02 26 1b 73 72  |160*X%+160..&.sr|
00000340  6e 25 28 30 2c 58 25 2b  33 29 3d 73 72 6e 25 28  |n%(0,X%+3)=srn%(|
00000350  30 2c 58 25 29 0d 02 30  1b 73 72 6e 25 28 30 2c  |0,X%)..0.srn%(0,|
00000360  58 25 2b 36 29 3d 73 72  6e 25 28 30 2c 58 25 29  |X%+6)=srn%(0,X%)|
00000370  0d 02 3a 05 ed 0d 02 44  0b e3 59 25 3d 30 b8 32  |..:....D..Y%=0.2|
00000380  0d 02 4e 1a 73 72 6e 25  28 31 2c 59 25 2a 33 29  |..N.srn%(1,Y%*3)|
00000390  3d 34 33 2a 59 25 2b 31  32 36 0d 02 58 1f 73 72  |=43*Y%+126..X.sr|
000003a0  6e 25 28 31 2c 59 25 2a  33 2b 31 29 3d 73 72 6e  |n%(1,Y%*3+1)=srn|
000003b0  25 28 31 2c 59 25 2a 33  29 0d 02 62 1f 73 72 6e  |%(1,Y%*3)..b.srn|
000003c0  25 28 31 2c 59 25 2a 33  2b 32 29 3d 73 72 6e 25  |%(1,Y%*3+2)=srn%|
000003d0  28 31 2c 59 25 2a 33 29  0d 02 6c 05 ed 0d 02 76  |(1,Y%*3)..l....v|
000003e0  0a 40 25 20 20 3d 30 0d  02 80 0a 61 73 74 25 3d  |.@%  =0....ast%=|
000003f0  34 0d 02 8a 0a 67 6d 65  25 3d 31 0d 02 94 0b 6d  |4....gme%=1....m|
00000400  69 73 25 3d 31 30 0d 02  9e 0a 73 61 6e 25 3d 30  |is%=10....san%=0|
00000410  0d 02 a8 0a 74 69 6d 25  3d b9 0d 02 b2 20 66 24  |....tim%=.... f$|
00000420  20 20 3d 22 3c 44 69 73  63 32 24 44 69 72 3e 2e  |  ="<Disc2$Dir>.|
00000430  53 69 78 47 61 6d 65 73  2e 22 0d 02 bc 12 c8 9b  |SixGames."......|
00000440  20 66 24 2b 22 43 6f 6d  6d 6f 6e 22 0d 02 c6 29  | f$+"Common"...)|
00000450  62 25 20 20 3d a4 69 6e  69 74 69 61 6c 73 70 72  |b%  =.initialspr|
00000460  69 74 65 73 28 22 4e 75  6d 62 65 72 73 7c 47 61  |ites("Numbers|Ga|
00000470  6d 65 31 22 29 0d 02 d0  26 7a 25 20 20 3d a4 69  |me1")...&z%  =.i|
00000480  6e 69 74 69 61 6c 63 6f  6d 70 72 65 73 73 65 64  |nitialcompressed|
00000490  28 22 47 72 61 70 53 70  72 22 29 0d 02 da 10 f2  |("GrapSpr").....|
000004a0  6c 6f 61 64 64 65 74 61  69 6c 73 0d 02 e4 0a f2  |loaddetails.....|
000004b0  6c 69 6d 69 74 0d 02 ee  0f f2 73 6f 72 74 73 63  |limit.....sortsc|
000004c0  6f 72 65 73 0d 02 f8 0d  f2 61 73 73 65 6d 62 6c  |ores.....assembl|
000004d0  65 0d 03 02 17 c8 99 22  48 6f 75 72 67 6c 61 73  |e......"Hourglas|
000004e0  73 5f 53 6d 61 73 68 22  0d 03 0c 13 f2 70 6f 69  |s_Smash".....poi|
000004f0  6e 74 28 22 54 65 6e 22  2c 31 29 0d 03 16 05 e1  |nt("Ten",1).....|
00000500  0d 03 20 13 dc 20 31 2c  31 2c 31 35 2c 31 35 2c  |.. .. 1,1,15,15,|
00000510  33 2c 33 0d 03 2a 36 dc  20 73 69 6d 70 6c 65 20  |3,3..*6. simple |
00000520  6d 6f 76 65 6d 65 6e 74  20 63 6f 6d 6d 61 6e 64  |movement command|
00000530  73 20 77 69 74 68 20 74  68 65 20 6f 62 6a 65 63  |s with the objec|
00000540  74 20 76 69 73 69 62 6c  65 0d 03 34 17 dc 20 6f  |t visible..4.. o|
00000550  62 6a 65 63 74 20 69 73  20 76 69 73 69 62 6c 65  |bject is visible|
00000560  0d 03 3e 43 dc 20 66 69  72 73 74 20 71 75 61 64  |..>C. first quad|
00000570  72 61 6e 74 2c 73 65 63  6f 6e 64 20 71 75 61 64  |rant,second quad|
00000580  72 61 6e 74 2c 74 68 69  72 64 20 71 75 61 64 72  |rant,third quadr|
00000590  61 6e 74 2c 66 6f 75 72  74 68 20 71 75 61 64 72  |ant,fourth quadr|
000005a0  61 6e 74 0d 03 48 43 dc  20 66 69 72 73 74 20 71  |ant..HC. first q|
000005b0  75 61 64 72 61 6e 74 2c  73 65 63 6f 6e 64 20 71  |uadrant,second q|
000005c0  75 61 64 72 61 6e 74 2c  74 68 69 72 64 20 71 75  |uadrant,third qu|
000005d0  61 64 72 61 6e 74 2c 66  6f 75 72 74 68 20 71 75  |adrant,fourth qu|
000005e0  61 64 72 61 6e 74 0d 03  52 23 dc 20 78 20 69 6e  |adrant..R#. x in|
000005f0  65 71 75 61 6c 69 74 69  65 73 2c 79 20 69 6e 65  |equalities,y ine|
00000600  71 75 61 6c 69 74 69 65  73 0d 03 5c 2c dc 20 69  |qualities..\,. i|
00000610  6e 73 69 64 65 20 72 65  67 69 6f 6e 20 73 61 66  |nside region saf|
00000620  65 2c 6f 75 74 73 69 64  65 20 72 65 67 69 6f 6e  |e,outside region|
00000630  20 73 61 66 65 0d 03 66  09 dc 20 65 6e 64 0d 03  | safe..f.. end..|
00000640  70 24 dc 20 52 65 73 63  75 65 20 74 68 65 20 61  |p$. Rescue the a|
00000650  73 74 72 6f 6e 61 75 74  2c 61 73 74 72 6f 6e 61  |stronaut,astrona|
00000660  75 74 0d 03 7a 1c dc 20  53 70 61 63 65 20 77 61  |ut..z.. Space wa|
00000670  6c 6b 65 72 2c 61 73 74  72 6f 6e 61 75 74 0d 03  |lker,astronaut..|
00000680  84 1d dc 20 43 6f 6c 6c  65 63 74 20 61 20 66 75  |... Collect a fu|
00000690  65 6c 20 70 6f 64 2c 66  75 65 6c 0d 03 8e 15 dc  |el pod,fuel.....|
000006a0  20 45 78 74 72 61 20 66  75 65 6c 2c 66 75 65 6c  | Extra fuel,fuel|
000006b0  0d 03 98 21 dc 20 45 6e  74 65 72 20 74 68 65 20  |...!. Enter the |
000006c0  73 74 61 72 67 61 74 65  2c 73 74 61 72 67 61 74  |stargate,stargat|
000006d0  65 0d 03 a2 21 dc 20 47  6f 20 74 6f 20 74 68 65  |e...!. Go to the|
000006e0  20 73 74 61 72 67 61 74  65 2c 73 74 61 72 67 61  | stargate,starga|
000006f0  74 65 0d 03 ac 19 dc 20  50 69 63 6b 20 75 70 20  |te..... Pick up |
00000700  63 61 72 67 6f 2c 63 61  72 67 6f 0d 03 b6 22 dc  |cargo,cargo...".|
00000710  20 43 61 72 67 6f 20 61  77 61 69 74 69 6e 67 20  | Cargo awaiting |
00000720  70 69 63 6b 20 75 70 2c  63 61 72 67 6f 0d 03 c0  |pick up,cargo...|
00000730  25 dc 20 53 65 72 76 69  63 65 20 74 68 65 20 73  |%. Service the s|
00000740  61 74 65 6c 6c 69 74 65  2c 73 61 74 65 6c 6c 69  |atellite,satelli|
00000750  74 65 0d 03 ca 24 dc 20  53 61 74 65 6c 6c 69 74  |te...$. Satellit|
00000760  65 20 69 6e 20 74 72 6f  75 62 6c 65 2c 73 61 74  |e in trouble,sat|
00000770  65 6c 6c 69 74 65 0d 03  d4 19 dc 20 47 6f 20 74  |ellite..... Go t|
00000780  6f 20 74 68 65 20 6d 6f  6f 6e 2c 6d 6f 6f 6e 0d  |o the moon,moon.|
00000790  03 de 14 dc 20 46 75 6c  6c 20 6d 6f 6f 6e 2c 6d  |.... Full moon,m|
000007a0  6f 6f 6e 0d 03 e8 1b dc  20 4f 62 73 65 72 76 65  |oon..... Observe|
000007b0  20 74 68 65 20 73 74 61  72 2c 73 74 61 72 0d 03  | the star,star..|
000007c0  f2 15 dc 20 41 20 6e 65  77 20 73 74 61 72 2c 73  |... A new star,s|
000007d0  74 61 72 0d 03 fc 1d dc  20 4f 62 73 65 72 76 65  |tar..... Observe|
000007e0  20 74 68 65 20 63 6f 6d  65 74 2c 63 6f 6d 65 74  | the comet,comet|
000007f0  0d 04 06 17 dc 20 41 20  6e 65 77 20 63 6f 6d 65  |..... A new come|
00000800  74 2c 63 6f 6d 65 74 0d  04 10 21 dc 20 50 69 63  |t,comet...!. Pic|
00000810  6b 20 75 70 20 65 71 75  69 70 6d 65 6e 74 2c 65  |k up equipment,e|
00000820  71 75 69 70 6d 65 6e 74  0d 04 1a 1d dc 20 4e 65  |quipment..... Ne|
00000830  77 20 65 71 75 69 70 6d  65 6e 74 2c 65 71 75 69  |w equipment,equi|
00000840  70 6d 65 6e 74 0d 04 24  23 dc 20 46 72 65 73 68  |pment..$#. Fresh|
00000850  20 6f 78 79 67 65 6e 20  63 79 6c 69 6e 64 65 72  | oxygen cylinder|
00000860  73 2c 6f 78 79 67 65 6e  0d 04 2e 1b dc 20 50 69  |s,oxygen..... Pi|
00000870  63 6b 20 75 70 20 6f 78  79 67 65 6e 2c 6f 78 79  |ck up oxygen,oxy|
00000880  67 65 6e 0d 04 38 1d dc  20 53 65 72 76 69 63 65  |gen..8.. Service|
00000890  20 74 68 65 20 70 72 6f  62 65 2c 70 72 6f 62 65  | the probe,probe|
000008a0  0d 04 42 1b dc 20 47 6f  20 74 6f 20 74 68 65 20  |..B.. Go to the |
000008b0  70 72 6f 62 65 2c 70 72  6f 62 65 0d 04 4c 17 dc  |probe,probe..L..|
000008c0  20 44 65 73 74 72 6f 79  20 6d 69 6e 65 2c 6d 69  | Destroy mine,mi|
000008d0  6e 65 0d 04 56 17 dc 20  50 69 63 6b 20 75 70 20  |ne..V.. Pick up |
000008e0  6d 69 6e 65 2c 6d 69 6e  65 0d 04 60 0d dc 20 65  |mine,mine..`.. e|
000008f0  6e 64 2c 65 6e 64 0d 04  6a 1f dc 20 74 6f 70 20  |nd,end..j.. top |
00000900  6c 65 66 74 2c 36 2c 62  6f 74 74 6f 6d 20 72 69  |left,6,bottom ri|
00000910  67 68 74 2c 32 0d 04 74  28 dc 20 74 6f 70 20 6f  |ght,2..t(. top o|
00000920  66 20 63 65 6e 74 72 65  2c 37 2c 62 6f 74 74 6f  |f centre,7,botto|
00000930  6d 20 6f 66 20 63 65 6e  74 72 65 2c 31 0d 04 7e  |m of centre,1..~|
00000940  1f dc 20 74 6f 70 20 72  69 67 68 74 2c 38 2c 62  |.. top right,8,b|
00000950  6f 74 74 6f 6d 20 6c 65  66 74 2c 30 0d 04 88 22  |ottom left,0..."|
00000960  dc 20 63 65 6e 74 72 65  20 6c 65 66 74 2c 33 2c  |. centre left,3,|
00000970  63 65 6e 74 72 65 20 72  69 67 68 74 2c 35 0d 04  |centre right,5..|
00000980  92 17 dc 20 63 65 6e 74  72 65 2c 34 2c 63 65 6e  |... centre,4,cen|
00000990  74 72 65 2c 34 0d 04 9c  1f dc 20 62 6f 74 74 6f  |tre,4..... botto|
000009a0  6d 20 72 69 67 68 74 2c  32 2c 74 6f 70 20 6c 65  |m right,2,top le|
000009b0  66 74 2c 36 0d 04 a6 28  dc 20 62 6f 74 74 6f 6d  |ft,6...(. bottom|
000009c0  20 6f 66 20 63 65 6e 74  72 65 2c 31 2c 74 6f 70  | of centre,1,top|
000009d0  20 6f 66 20 63 65 6e 74  72 65 2c 37 0d 04 b0 1f  | of centre,7....|
000009e0  dc 20 62 6f 74 74 6f 6d  20 6c 65 66 74 2c 30 2c  |. bottom left,0,|
000009f0  74 6f 70 20 72 69 67 68  74 2c 38 0d 04 ba 22 dc  |top right,8...".|
00000a00  20 63 65 6e 74 72 65 20  72 69 67 68 74 2c 35 2c  | centre right,5,|
00000a10  63 65 6e 74 72 65 20 6c  65 66 74 2c 33 0d 04 c4  |centre left,3...|
00000a20  0b dc 20 65 6e 64 2c 30  0d 04 ce 23 dc 20 61 73  |.. end,0...#. as|
00000a30  74 72 6f 6e 61 75 74 2c  66 75 65 6c 2c 73 74 61  |tronaut,fuel,sta|
00000a40  72 67 61 74 65 2c 63 61  72 67 6f 0d 04 d8 1f dc  |rgate,cargo.....|
00000a50  20 73 61 74 65 6c 6c 69  74 65 2c 6d 6f 6f 6e 2c  | satellite,moon,|
00000a60  73 74 61 72 2c 63 6f 6d  65 74 0d 04 e2 21 dc 20  |star,comet...!. |
00000a70  65 71 75 69 70 6d 65 6e  74 2c 6f 78 79 67 65 6e  |equipment,oxygen|
00000a80  2c 70 72 6f 62 65 2c 6d  69 6e 65 0d 04 ec 09 dc  |,probe,mine.....|
00000a90  20 65 6e 64 0d 04 f6 15  dd f2 6d 6f 75 73 65 69  | end......mousei|
00000aa0  6c 6c 75 6d 69 6e 61 74  65 0d 05 00 15 c8 97 20  |lluminate...... |
00000ab0  6d 6f 78 25 2c 6d 6f 79  25 2c 62 75 74 25 0d 05  |mox%,moy%,but%..|
00000ac0  0a 16 62 6f 78 25 3d 28  6d 6f 79 25 2d 31 36 34  |..box%=(moy%-164|
00000ad0  29 3e 3e 36 0d 05 14 12  e7 62 6f 78 25 3c 30 3a  |)>>6.....box%<0:|
00000ae0  62 6f 78 25 3d 30 0d 05  1e 12 e7 62 6f 78 25 3e  |box%=0.....box%>|
00000af0  39 3a 62 6f 78 25 3d 39  0d 05 28 10 e7 62 6f 78  |9:box%=9..(..box|
00000b00  25 3c 3e 73 75 6e 25 8c  0d 05 32 06 c8 96 0d 05  |%<>sun%...2.....|
00000b10  3c 11 f2 73 71 72 28 73  75 6e 25 2c 31 31 29 0d  |<..sqr(sun%,11).|
00000b20  05 46 11 f2 73 71 72 28  62 6f 78 25 2c 31 35 29  |.F..sqr(box%,15)|
00000b30  0d 05 50 0e f2 69 6e 74  28 73 75 6e 25 29 0d 05  |..P..int(sun%)..|
00000b40  5a 0e f2 69 6e 74 28 62  6f 78 25 29 0d 05 64 0d  |Z..int(box%)..d.|
00000b50  73 75 6e 25 3d 62 6f 78  25 0d 05 6e 05 cd 0d 05  |sun%=box%..n....|
00000b60  78 0d e7 62 75 74 25 3d  30 3a e1 0d 05 82 06 ef  |x..but%=0:......|
00000b70  37 0d 05 8c 0a 75 70 64  25 3d b9 0d 05 96 0d c8  |7....upd%=......|
00000b80  8e 20 62 6f 78 25 20 ca  0d 05 a0 0d c9 20 30 3a  |. box% ...... 0:|
00000b90  f2 71 75 69 74 0d 05 aa  14 c9 20 31 3a f2 69 6e  |.quit..... 1:.in|
00000ba0  66 6f 72 6d 61 74 69 6f  6e 0d 05 b4 0f c9 20 32  |formation..... 2|
00000bb0  3a f2 76 6f 6c 75 6d 65  0d 05 be 0e c9 20 33 3a  |:.volume..... 3:|
00000bc0  f2 67 72 61 64 65 0d 05  c8 07 c9 20 34 0d 05 d2  |.grade..... 4...|
00000bd0  0c 6d 69 73 25 2b 3d 31  30 0d 05 dc 14 e7 6d 69  |.mis%+=10.....mi|
00000be0  73 25 3d 36 30 3a 6d 69  73 25 3d 31 30 0d 05 e6  |s%=60:mis%=10...|
00000bf0  0a 75 70 64 25 3d a3 0d  05 f0 07 c9 20 35 0d 05  |.upd%=...... 5..|
00000c00  fa 0b 73 61 6e 25 2b 3d  35 0d 06 04 0a 75 70 64  |..san%+=5....upd|
00000c10  25 3d a3 0d 06 0e 07 c9  20 36 0d 06 18 0b 61 73  |%=...... 6....as|
00000c20  74 25 2b 3d 31 0d 06 22  12 e7 61 73 74 25 3d 39  |t%+=1.."..ast%=9|
00000c30  3a 61 73 74 25 3d 30 0d  06 2c 0a 75 70 64 25 3d  |:ast%=0..,.upd%=|
00000c40  a3 0d 06 36 10 c9 20 37  3a f2 70 6c 61 79 65 72  |...6.. 7:.player|
00000c50  73 0d 06 40 12 c9 20 38  3a f2 68 69 67 68 73 63  |s..@.. 8:.highsc|
00000c60  6f 72 65 0d 06 4a 07 c9  20 39 0d 06 54 0a f2 69  |ore..J.. 9..T..i|
00000c70  6e 74 72 6f 0d 06 5e 0f  f2 6e 75 6d 62 65 72 6e  |ntro..^..numbern|
00000c80  61 6d 65 0d 06 68 14 e7  ac 65 73 63 25 3a f2 70  |ame..h...esc%:.p|
00000c90  6c 61 79 67 61 6d 65 0d  06 72 05 cb 0d 06 7c 0e  |laygame..r....|.|
00000ca0  f2 6d 65 6e 75 63 6c 65  61 6e 0d 06 86 05 e1 0d  |.menuclean......|
00000cb0  06 90 0f dd f2 69 6e 74  28 69 6e 74 25 29 0d 06  |.....int(int%)..|
00000cc0  9a 07 ef 20 35 0d 06 a4  09 e6 20 30 2c 30 0d 06  |... 5..... 0,0..|
00000cd0  ae 0d c8 8e 20 69 6e 74  25 20 ca 0d 06 b8 1c c9  |.... int% ......|
00000ce0  20 32 3a f2 69 6e 73 65  72 74 28 31 31 2c c3 28  | 2:.insert(11,.(|
00000cf0  4d 25 81 67 25 29 29 0d  06 c2 47 c9 20 33 3a e7  |M%.g%))...G. 3:.|
00000d00  73 75 62 25 3d 30 20 f2  69 6e 73 65 72 74 28 31  |sub%=0 .insert(1|
00000d10  33 2c c3 28 67 72 64 25  29 29 20 8b f2 69 6e 73  |3,.(grd%)) ..ins|
00000d20  65 72 74 28 31 33 2c c3  28 67 72 64 25 29 2b 22  |ert(13,.(grd%)+"|
00000d30  2f 22 2b bd 28 73 75 62  25 2b 36 34 29 29 0d 06  |/"+.(sub%+64))..|
00000d40  cc 1b c9 20 34 3a f2 69  6e 73 65 72 74 28 31 35  |... 4:.insert(15|
00000d50  2c c3 28 6d 69 73 25 29  29 0d 06 d6 07 c9 20 35  |,.(mis%))..... 5|
00000d60  0d 06 e0 13 e7 73 61 6e  25 3d 33 35 3a 73 61 6e  |.....san%=35:san|
00000d70  25 3d 30 0d 06 ea 0c e7  73 61 6e 25 3d 30 8c 0d  |%=0.....san%=0..|
00000d80  06 f4 15 f2 69 6e 73 65  72 74 28 31 37 2c 22 4f  |....insert(17,"O|
00000d90  46 46 22 29 0d 06 fe 0a  74 69 6d 25 3d a3 0d 07  |FF")....tim%=...|
00000da0  08 05 cc 0d 07 12 0a 74  69 6d 25 3d b9 0d 07 1c  |.......tim%=....|
00000db0  17 f2 69 6e 73 65 72 74  28 31 37 2c c3 28 73 61  |..insert(17,.(sa|
00000dc0  6e 25 29 29 0d 07 26 05  cd 0d 07 30 37 c9 20 36  |n%))..&....07. 6|
00000dd0  3a e7 61 73 74 25 3d 30  20 f2 69 6e 73 65 72 74  |:.ast%=0 .insert|
00000de0  28 31 39 2c 22 4e 4f 4e  45 22 29 20 8b f2 69 6e  |(19,"NONE") ..in|
00000df0  73 65 72 74 28 31 39 2c  c3 28 61 73 74 25 29 29  |sert(19,.(ast%))|
00000e00  0d 07 3a 1b c9 20 37 3a  f2 69 6e 73 65 72 74 28  |..:.. 7:.insert(|
00000e10  32 31 2c c3 28 70 6c 79  25 29 29 0d 07 44 05 cb  |21,.(ply%))..D..|
00000e20  0d 07 4e 06 ef 34 0d 07  58 05 87 0d 07 62 05 e1  |..N..4..X....b..|
00000e30  0d 07 6c 0a dd f2 6d 65  6e 75 0d 07 76 14 c8 99  |..l...menu..v...|
00000e40  22 41 42 43 5f 42 6c 61  6e 6b 22 2c 31 35 0d 07  |"ABC_Blank",15..|
00000e50  80 15 c8 99 22 41 42 43  5f 43 6f 6c 6f 75 72 22  |...."ABC_Colour"|
00000e60  2c 31 35 0d 07 8a 25 f2  63 61 72 64 28 22 47 52  |,15...%.card("GR|
00000e70  41 50 48 4f 49 44 20 4d  45 4e 55 22 2c 32 34 2c  |APHOID MENU",24,|
00000e80  31 30 2c 32 2c 31 30 29  0d 07 94 0a f7 20 8d 64  |10,2,10)..... .d|
00000e90  5a 47 0d 07 9e 13 f2 66  69 6c 6c 6d 65 6e 75 28  |ZG.....fillmenu(|
00000ea0  31 33 2c 36 29 0d 07 a8  0c f2 73 70 72 69 74 65  |13,6).....sprite|
00000eb0  73 0d 07 b2 13 c8 99 22  41 42 43 5f 50 61 6c 65  |s......"ABC_Pale|
00000ec0  74 74 65 22 0d 07 bc 19  c8 97 20 c8 93 20 37 30  |tte"...... .. 70|
00000ed0  32 2c 31 36 34 2c 31 36  30 2c 36 34 30 0d 07 c6  |2,164,160,640...|
00000ee0  0b f2 6d 6f 75 73 65 31  0d 07 d0 05 e1 0d 07 da  |..mouse1........|
00000ef0  40 dc 20 50 6c 61 79 20  47 72 61 70 68 6f 69 64  |@. Play Graphoid|
00000f00  2c 48 69 67 68 20 73 63  6f 72 65 20 74 61 62 6c  |,High score tabl|
00000f10  65 2c 4e 75 6d 62 65 72  20 6f 66 20 70 6c 61 79  |e,Number of play|
00000f20  65 72 73 2c 41 73 74 65  72 6f 69 64 73 0d 07 e4  |ers,Asteroids...|
00000f30  3a dc 20 54 69 6d 65 72  2c 4d 69 73 73 69 6f 6e  |:. Timer,Mission|
00000f40  73 2c 2c 56 6f 6c 75 6d  65 2c 49 6e 66 6f 72 6d  |s,,Volume,Inform|
00000f50  61 74 69 6f 6e 2c 45 78  69 74 20 74 6f 20 4d 61  |ation,Exit to Ma|
00000f60  69 6e 20 4d 65 6e 75 0d  07 ee 11 dd f2 69 6e 69  |in Menu......ini|
00000f70  74 69 61 6c 67 61 6d 65  0d 07 f8 13 c8 99 22 41  |tialgame......"A|
00000f80  42 43 5f 42 6c 61 6e 6b  22 2c 37 0d 08 02 14 c8  |BC_Blank",7.....|
00000f90  99 22 41 42 43 5f 43 6f  6c 6f 75 72 22 2c 37 0d  |."ABC_Colour",7.|
00000fa0  08 0c 0e f2 76 61 72 69  61 62 6c 65 73 0d 08 16  |....variables...|
00000fb0  0b f2 73 63 6f 72 65 73  0d 08 20 0a f2 77 68 69  |..scores.. ..whi|
00000fc0  63 68 0d 08 2a 0b f2 75  70 64 61 74 65 0d 08 34  |ch..*..update..4|
00000fd0  13 c8 99 22 41 42 43 5f  50 61 6c 65 74 74 65 22  |..."ABC_Palette"|
00000fe0  0d 08 3e 05 e1 0d 08 48  0f dd f2 76 61 72 69 61  |..>....H...varia|
00000ff0  62 6c 65 73 0d 08 52 17  c8 97 20 c8 93 20 30 2c  |bles..R... .. 0,|
00001000  30 2c 31 32 38 30 2c 31  30 32 34 0d 08 5c 20 e7  |0,1280,1024..\ .|
00001010  70 6c 79 25 3d 31 20 63  75 72 25 3d 31 20 8b 63  |ply%=1 cur%=1 .c|
00001020  75 72 25 3d b3 28 70 6c  79 25 29 0d 08 66 10 62  |ur%=.(ply%)..f.b|
00001030  6f 6e 25 3d 31 30 2a 67  72 64 25 0d 08 70 0a 63  |on%=10*grd%..p.c|
00001040  6f 6d 25 3d b9 0d 08 7a  0a 65 73 63 25 3d a3 0d  |om%=...z.esc%=..|
00001050  08 84 0a 66 69 6e 25 3d  a3 0d 08 8e 0a 6d 69 6e  |...fin%=.....min|
00001060  25 3d a3 0d 08 98 0a 6f  76 72 25 3d a3 0d 08 a2  |%=.....ovr%=....|
00001070  0a 70 72 65 25 3d a3 0d  08 ac 0a 72 6f 6e 25 3d  |.pre%=.....ron%=|
00001080  30 0d 08 b6 0a 72 79 74  25 3d 30 0d 08 c0 0d 73  |0....ryt%=0....s|
00001090  65 63 25 3d 73 61 6e 25  0d 08 ca 0a 73 68 77 25  |ec%=san%....shw%|
000010a0  3d a3 0d 08 d4 0a 73 70  6e 25 3d a3 0d 08 de 0a  |=.....spn%=.....|
000010b0  73 75 6d 25 3d 30 0d 08  e8 0c 73 63 72 25 28 29  |sum%=0....scr%()|
000010c0  3d 30 0d 08 f2 34 e7 70  69 78 25 3d 30 20 67 24  |=0...4.pix%=0 g$|
000010d0  3d 22 7a 22 2b c3 28 28  28 67 72 64 25 2d 31 29  |="z"+.(((grd%-1)|
000010e0  81 32 29 2b 31 29 20 8b  67 24 3d 22 7a 22 2b c3  |.2)+1) .g$="z"+.|
000010f0  28 70 69 78 25 29 0d 08  fc 21 c8 99 22 41 42 43  |(pix%)...!.."ABC|
00001100  5f 55 6e 70 61 63 6b 50  6c 61 63 65 22 2c 30 2c  |_UnpackPlace",0,|
00001110  7a 25 2c 30 2c 34 30 0d  09 06 21 c8 99 22 41 42  |z%,0,40...!.."AB|
00001120  43 5f 55 6e 70 61 63 6b  50 6c 61 63 65 22 2c 31  |C_UnpackPlace",1|
00001130  2c 7a 25 2c 30 2c 38 30  0d 09 10 07 ef 20 35 0d  |,z%,0,80..... 5.|
00001140  09 1a 0a f7 20 8d 44 5a  4a 0d 09 24 0b e3 58 25  |.... .DZJ..$..X%|
00001150  3d 31 b8 34 0d 09 2e 0a  e6 20 30 2c 31 31 0d 09  |=1.4..... 0,11..|
00001160  38 1e c8 93 c8 90 20 58  25 2a 33 32 30 2d 33 30  |8..... X%*320-30|
00001170  38 2c 32 34 30 2c 32 37  32 2c 34 30 0d 09 42 0a  |8,240,272,40..B.|
00001180  e6 20 30 2c 31 34 0d 09  4c 1e c8 93 c8 90 20 58  |. 0,14..L..... X|
00001190  25 2a 33 32 30 2d 33 30  38 2c 31 39 36 2c 32 37  |%*320-308,196,27|
000011a0  32 2c 34 30 0d 09 56 09  e6 20 30 2c 37 0d 09 60  |2,40..V.. 0,7..`|
000011b0  1e c8 93 c8 90 20 58 25  2a 33 32 30 2d 33 31 36  |..... X%*320-316|
000011c0  2c 32 33 36 2c 32 37 32  2c 33 36 0d 09 6a 1e c8  |,236,272,36..j..|
000011d0  93 c8 90 20 58 25 2a 33  32 30 2d 33 31 36 2c 31  |... X%*320-316,1|
000011e0  39 32 2c 32 37 32 2c 33  36 0d 09 74 09 e6 20 30  |92,272,36..t.. 0|
000011f0  2c 30 0d 09 7e 14 ec 20  58 25 2a 33 32 30 2d 33  |,0..~.. X%*320-3|
00001200  30 38 2c 32 36 38 0d 09  88 0e f1 6e 61 6d 65 24  |08,268.....name$|
00001210  28 58 25 29 0d 09 92 09  e6 20 30 2c 32 0d 09 9c  |(X%)..... 0,2...|
00001220  08 f3 20 61 24 0d 09 a6  14 ec 20 58 25 2a 33 32  |.. a$..... X%*32|
00001230  30 2d 33 30 38 2c 32 32  30 0d 09 b0 14 e7 58 25  |0-308,220.....X%|
00001240  3d 34 20 f1 74 79 70 24  20 8b f1 61 24 0d 09 ba  |=4 .typ$ ..a$...|
00001250  05 ed 0d 09 c4 0b e7 74  69 6d 25 20 8c 0d 09 ce  |.......tim% ....|
00001260  09 e6 20 30 2c 30 0d 09  d8 0d ec 20 31 36 36 2c  |.. 0,0..... 166,|
00001270  32 32 30 0d 09 e2 09 f1  73 65 63 25 0d 09 ec 05  |220.....sec%....|
00001280  cc 0d 09 f6 09 e6 20 30  2c 39 0d 0a 00 0d ec 20  |...... 0,9..... |
00001290  31 36 36 2c 32 32 30 0d  0a 0a 0a f1 22 4f 66 66  |166,220....."Off|
000012a0  22 0d 0a 14 05 cd 0d 0a  1e 09 e6 20 30 2c 34 0d  |".......... 0,4.|
000012b0  0a 28 0e ec 20 31 31 32  38 2c 32 32 30 0d 0a 32  |.(.. 1128,220..2|
000012c0  26 e7 73 75 62 25 3d 30  20 f1 67 72 64 25 20 8b  |&.sub%=0 .grd% .|
000012d0  f1 67 72 64 25 22 2f 22  2b bd 28 73 75 62 25 2b  |.grd%"/"+.(sub%+|
000012e0  36 34 29 0d 0a 3c 07 ef  20 34 0d 0a 46 05 87 0d  |64)..<.. 4..F...|
000012f0  0a 50 05 e1 0d 0a 5a 1a  dc 20 54 69 6d 65 2c 42  |.P....Z.. Time,B|
00001300  6f 6e 75 73 2c 4d 69 73  73 69 6f 6e 73 2c 0d 0a  |onus,Missions,..|
00001310  64 0c dd f2 75 70 64 61  74 65 0d 0a 6e 07 ef 20  |d...update..n.. |
00001320  35 0d 0a 78 0b e7 74 69  6d 25 20 8c 0d 0a 82 09  |5..x..tim% .....|
00001330  e6 20 30 2c 37 0d 0a 8c  06 c8 96 0d 0a 96 16 c8  |. 0,7...........|
00001340  93 c8 90 20 31 36 38 2c  31 39 32 2c 36 34 2c 33  |... 168,192,64,3|
00001350  36 0d 0a a0 1b e7 73 65  63 25 3c 31 30 20 e6 20  |6.....sec%<10 . |
00001360  30 2c 31 31 20 8b e6 20  30 2c 31 30 0d 0a aa 0d  |0,11 .. 0,10....|
00001370  ec 20 31 36 38 2c 32 32  30 0d 0a b4 09 f1 73 65  |. 168,220.....se|
00001380  63 25 0d 0a be 05 cd 0d  0a c8 09 e6 20 30 2c 37  |c%.......... 0,7|
00001390  0d 0a d2 06 c8 96 0d 0a  dc 16 c8 93 c8 90 20 34  |.............. 4|
000013a0  38 38 2c 31 39 32 2c 33  32 2c 33 36 0d 0a e6 09  |88,192,32,36....|
000013b0  e6 20 30 2c 34 0d 0a f0  0d ec 20 34 38 38 2c 32  |. 0,4..... 488,2|
000013c0  32 30 0d 0a fa 09 f1 62  6f 6e 25 0d 0b 04 0d e7  |20.....bon%.....|
000013d0  6d 69 73 25 3e 30 20 8c  0d 0b 0e 09 e6 20 30 2c  |mis%>0 ...... 0,|
000013e0  37 0d 0b 18 06 c8 96 0d  0b 22 16 c8 93 c8 90 20  |7........"..... |
000013f0  38 30 38 2c 31 39 32 2c  38 30 2c 33 36 0d 0b 2c  |808,192,80,36..,|
00001400  09 e6 20 30 2c 34 0d 0b  36 0d ec 20 38 30 38 2c  |.. 0,4..6.. 808,|
00001410  32 32 30 0d 0b 40 0e f1  6d 69 73 25 2d 73 75 6d  |220..@..mis%-sum|
00001420  25 0d 0b 4a 05 cd 0d 0b  54 07 ef 20 34 0d 0b 5e  |%..J....T.. 4..^|
00001430  05 87 0d 0b 68 05 e1 0d  0b 72 0b dd f2 77 68 69  |....h....r...whi|
00001440  63 68 0d 0b 7c 09 e6 20  30 2c 38 0d 0b 86 0b e3  |ch..|.. 0,8.....|
00001450  58 25 3d 30 b8 33 0d 0b  90 1d c8 93 c8 90 20 58  |X%=0.3........ X|
00001460  25 2a 33 32 30 2b 32 38  36 2c 32 33 32 2c 33 32  |%*320+286,232,32|
00001470  2c 33 36 0d 0b 9a 05 ed  0d 0b a4 09 e6 20 30 2c  |,36.......... 0,|
00001480  30 0d 0b ae 15 ec 20 63  75 72 25 2a 33 32 30 2d  |0..... cur%*320-|
00001490  33 32 2c 32 34 38 0d 0b  b8 0e f0 20 30 2c 31 36  |32,248..... 0,16|
000014a0  2c 2d 31 36 0d 0b c2 0d  f0 20 38 31 2c 30 2c 33  |,-16..... 81,0,3|
000014b0  32 0d 0b cc 09 e6 20 30  2c 37 0d 0b d6 15 ec 20  |2..... 0,7..... |
000014c0  63 75 72 25 2a 33 32 30  2d 33 32 2c 32 34 38 0d  |cur%*320-32,248.|
000014d0  0b e0 0e f0 20 31 2c 31  36 2c 2d 31 36 0d 0b ea  |.... 1,16,-16...|
000014e0  0c f0 20 31 2c 30 2c 33  32 0d 0b f4 0f f0 20 31  |.. 1,0,32..... 1|
000014f0  2c 2d 31 36 2c 2d 31 36  0d 0b fe 05 e1 0d 0c 08  |,-16,-16........|
00001500  0c dd f2 73 63 6f 72 65  73 0d 0c 12 07 ef 20 35  |...scores..... 5|
00001510  0d 0c 1c 0f e3 58 25 3d  31 b8 20 70 6c 79 25 0d  |.....X%=1. ply%.|
00001520  0c 26 09 e6 20 30 2c 37  0d 0c 30 06 c8 96 0d 0c  |.&.. 0,7..0.....|
00001530  3a 1e c8 93 c8 90 20 58  25 2a 33 32 30 2d 31 36  |:..... X%*320-16|
00001540  36 2c 32 33 36 2c 31 32  32 2c 33 36 0d 0c 44 09  |6,236,122,36..D.|
00001550  e6 20 30 2c 30 0d 0c 4e  14 ec 20 58 25 2a 33 32  |. 0,0..N.. X%*32|
00001560  30 2d 31 35 32 2c 32 36  38 0d 0c 58 0d f1 73 63  |0-152,268..X..sc|
00001570  72 25 28 58 25 29 0d 0c  62 05 ed 0d 0c 6c 07 ef  |r%(X%)..b....l..|
00001580  20 34 0d 0c 76 05 87 0d  0c 80 05 e1 0d 0c 8a 15  | 4..v...........|
00001590  dd f2 65 6e 74 65 72 68  69 67 68 73 63 6f 72 65  |..enterhighscore|
000015a0  73 0d 0c 94 1b 51 25 3d  72 79 74 25 2f 28 72 79  |s....Q%=ryt%/(ry|
000015b0  74 25 2b 72 6f 6e 25 29  2a 31 30 30 0d 0c 9e 0a  |t%+ron%)*100....|
000015c0  74 61 62 25 3d a3 0d 0c  a8 11 e3 65 6e 74 25 3d  |tab%=......ent%=|
000015d0  31 b8 20 70 6c 79 25 0d  0c b2 1a 73 63 6f 72 65  |1. ply%....score|
000015e0  73 25 28 31 31 29 3d 73  63 72 25 28 65 6e 74 25  |s%(11)=scr%(ent%|
000015f0  29 0d 0c bc 26 61 24 3d  c1 91 24 2c 35 2c 31 31  |)...&a$=..$,5,11|
00001600  29 2b 22 20 47 72 61 64  65 20 22 2b c3 28 67 72  |)+" Grade "+.(gr|
00001610  64 25 29 2b 22 20 22 0d  0c c6 28 e7 70 6c 79 25  |d%)+" "...(.ply%|
00001620  3e 31 20 62 24 3d c3 28  51 25 29 2b 22 25 2e 22  |>1 b$=.(Q%)+"%."|
00001630  20 8b 62 24 3d c3 28 51  25 29 2b 22 25 20 22 0d  | .b$=.(Q%)+"% ".|
00001640  0c d0 20 e7 a9 28 62 24  29 3c 35 3a 62 24 3d c4  |.. ..(b$)<5:b$=.|
00001650  35 2d a9 28 62 24 29 2c  22 20 22 29 2b 62 24 0d  |5-.(b$)," ")+b$.|
00001660  0c da 23 68 69 67 68 24  28 31 31 29 3d 61 24 2b  |..#high$(11)=a$+|
00001670  62 24 2b 22 20 22 2b 6e  61 6d 65 24 28 65 6e 74  |b$+" "+name$(ent|
00001680  25 29 0d 0c e4 0f f2 73  6f 72 74 73 63 6f 72 65  |%).....sortscore|
00001690  73 0d 0c ee 05 ed 0d 0c  f8 05 e1 0d 0d 02 0b dd  |s...............|
000016a0  f2 69 6e 74 72 6f 0d 0d  0c 07 c8 97 87 0d 0d 16  |.intro..........|
000016b0  13 c8 99 22 41 42 43 5f  42 6c 61 6e 6b 22 2c 38  |..."ABC_Blank",8|
000016c0  0d 0d 20 14 c8 99 22 41  42 43 5f 43 6f 6c 6f 75  |.. ..."ABC_Colou|
000016d0  72 22 2c 38 0d 0d 2a 16  61 24 3d 22 69 6e 74 72  |r",8..*.a$="intr|
000016e0  6f 22 2b c3 28 67 6d 65  25 29 0d 0d 34 28 c8 99  |o"+.(gme%)..4(..|
000016f0  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 32 39  |"OS_SpriteOp",29|
00001700  36 2c 62 25 2c 61 24 20  b8 20 2c 2c 2c 41 25 2c  |6,b%,a$ . ,,,A%,|
00001710  42 25 0d 0d 3e 0f 58 25  3d 33 32 30 2d 41 25 81  |B%..>.X%=320-A%.|
00001720  32 0d 0d 48 0f 59 25 3d  31 32 38 2b 42 25 81 32  |2..H.Y%=128+B%.2|
00001730  0d 0d 52 1d c8 99 22 41  42 43 5f 50 6c 61 63 65  |..R..."ABC_Place|
00001740  22 2c 62 25 2c 61 24 2c  58 25 2c 59 25 0d 0d 5c  |",b%,a$,X%,Y%..\|
00001750  1c f2 74 69 74 6c 65 28  22 47 52 41 50 48 4f 49  |..title("GRAPHOI|
00001760  44 22 2c 31 32 38 2c 39  29 0d 0d 66 13 c8 99 22  |D",128,9)..f..."|
00001770  41 42 43 5f 50 61 6c 65  74 74 65 22 0d 0d 70 07  |ABC_Palette"..p.|
00001780  d1 3d 30 0d 0d 7a 05 f5  0d 0d 84 0b fd 20 91 3e  |.=0..z....... .>|
00001790  32 30 30 0d 0d 8e 05 e1  0d 0d 98 0b dd f2 74 69  |200...........ti|
000017a0  6d 65 72 0d 0d a2 0c e7  91 3c 31 30 30 3a e1 0d  |mer......<100:..|
000017b0  0d ac 0e 62 6f 6e 25 2d  3d 67 72 64 25 0d 0d b6  |...bon%-=grd%...|
000017c0  12 e7 62 6f 6e 25 3c 30  3a 62 6f 6e 25 3d 30 0d  |..bon%<0:bon%=0.|
000017d0  0d c0 0e 73 68 77 25 3d  ac 73 68 77 25 0d 0d ca  |...shw%=.shw%...|
000017e0  31 e7 73 68 77 25 20 80  20 61 6e 69 25 3e 30 3a  |1.shw% . ani%>0:|
000017f0  f2 6e 6f 69 73 65 28 22  50 69 6e 67 22 2c 34 2c  |.noise("Ping",4,|
00001800  26 31 37 46 2c 26 36 32  30 30 2c 26 32 29 0d 0d  |&17F,&6200,&2)..|
00001810  d4 0b e7 74 69 6d 25 20  8c 0d 0d de 25 f2 6e 6f  |...tim% ....%.no|
00001820  69 73 65 28 22 54 69 6d  65 72 22 2c 33 2c 26 31  |ise("Timer",3,&1|
00001830  37 46 2c 26 31 30 30 30  2c 26 31 30 30 29 0d 0d  |7F,&1000,&100)..|
00001840  e8 0b 73 65 63 25 2d 3d  31 0d 0d f2 0d e7 73 65  |..sec%-=1.....se|
00001850  63 25 3c 30 20 8c 0d 0d  fc 10 62 6f 6e 25 3d 31  |c%<0 .....bon%=1|
00001860  30 2a 67 72 64 25 0d 0e  06 0a 66 69 6e 25 3d b9  |0*grd%....fin%=.|
00001870  0d 0e 10 0d 73 65 63 25  3d 73 61 6e 25 0d 0e 1a  |....sec%=san%...|
00001880  0a 73 70 6e 25 3d b9 0d  0e 24 0a 73 75 63 25 3d  |.spn%=...$.suc%=|
00001890  a3 0d 0e 2e 05 cd 0d 0e  38 05 cd 0d 0e 42 0b f2  |........8....B..|
000018a0  75 70 64 61 74 65 0d 0e  4c 07 d1 3d 30 0d 0e 56  |update..L..=0..V|
000018b0  05 e1 0d 0e 60 0d dd f2  73 70 72 69 74 65 73 0d  |....`...sprites.|
000018c0  0e 6a 0b e3 4a 25 3d 31  b8 33 0d 0e 74 2b c8 99  |.j..J%=1.3..t+..|
000018d0  22 41 42 43 5f 53 70 72  69 74 65 22 2c 62 25 2c  |"ABC_Sprite",b%,|
000018e0  22 7a 22 2b c3 28 4a 25  29 2c 36 38 2c 4a 25 2a  |"z"+.(J%),68,J%*|
000018f0  34 38 2b 33 38 0d 0e 7e  2c c8 99 22 41 42 43 5f  |48+38..~,.."ABC_|
00001900  53 70 72 69 74 65 22 2c  62 25 2c 22 7a 22 2b c3  |Sprite",b%,"z"+.|
00001910  28 4a 25 29 2c 34 38 36  2c 4a 25 2a 34 38 2b 33  |(J%),486,J%*48+3|
00001920  38 0d 0e 88 05 ed 0d 0e  92 05 e1 0d 0e 9c 0e dd  |8...............|
00001930  f2 70 6c 61 79 67 61 6d  65 0d 0e a6 10 f2 69 6e  |.playgame.....in|
00001940  69 74 69 61 6c 67 61 6d  65 0d 0e b0 0a f2 66 6c  |itialgame.....fl|
00001950  75 73 68 0d 0e ba 16 f2  73 61 6d 65 28 6e 61 6d  |ush.....same(nam|
00001960  65 24 28 63 75 72 25 29  29 0d 0e c4 05 f5 0d 0e  |e$(cur%)).......|
00001970  ce 0e f2 71 75 65 73 74  69 6f 6e 73 0d 0e d8 0b  |...questions....|
00001980  f2 64 61 6e 67 65 72 0d  0e e2 05 f5 0d 0e ec 05  |.danger.........|
00001990  f5 0d 0e f6 0d f2 64 65  6c 61 79 28 32 29 0d 0f  |......delay(2)..|
000019a0  00 0c f2 61 6e 69 6d 61  74 65 0d 0f 0a 0e f2 61  |...animate.....a|
000019b0  73 74 65 72 6f 69 64 73  0d 0f 14 09 f2 73 68 69  |steroids.....shi|
000019c0  70 0d 0f 1e 0c f2 63 6f  6c 6c 69 64 65 0d 0f 28  |p.....collide..(|
000019d0  0b f2 68 61 7a 61 72 64  0d 0f 32 0c f2 63 6f 6c  |..hazard..2..col|
000019e0  6c 65 63 74 0d 0f 3c 0a  f2 73 6f 75 6e 64 0d 0f  |lect..<..sound..|
000019f0  46 0a f2 74 69 6d 65 72  0d 0f 50 12 f2 72 65 76  |F..timer..P..rev|
00001a00  65 61 6c 28 38 2c 30 2c  30 29 0d 0f 5a 0b f2 65  |eal(8,0,0)..Z..e|
00001a10  73 63 61 70 65 0d 0f 64  0a f2 70 61 75 73 65 0d  |scape..d..pause.|
00001a20  0f 6e 21 fd 20 65 73 63  25 20 84 20 73 70 6e 25  |.n!. esc% . spn%|
00001a30  20 84 20 65 78 70 25 20  84 20 62 75 74 25 3e 30  | . exp% . but%>0|
00001a40  0d 0f 78 0c e7 ac 65 73  63 25 20 8c 0d 0f 82 1d  |..x...esc% .....|
00001a50  e7 62 75 74 25 3e 30 20  80 20 ac 65 78 70 25 20  |.but%>0 . .exp% |
00001a60  80 20 ac 73 70 6e 25 20  8c 0d 0f 8c 0a f2 66 6c  |. .spn% ......fl|
00001a70  75 73 68 0d 0f 96 0b f2  61 6e 73 77 65 72 0d 0f  |ush.....answer..|
00001a80  a0 09 f2 77 61 72 70 0d  0f aa 0e f2 7a 65 72 6f  |...warp.....zero|
00001a90  6d 6f 75 73 65 0d 0f b4  05 cd 0d 0f be 0a f2 70  |mouse..........p|
00001aa0  61 6e 65 6c 0d 0f c8 0b  f2 64 65 63 69 64 65 0d  |anel.....decide.|
00001ab0  0f d2 05 cd 0d 0f dc 18  fd 20 66 69 6e 25 20 84  |......... fin% .|
00001ac0  20 6f 76 72 25 20 84 20  65 73 63 25 0d 0f e6 11  | ovr% . esc%....|
00001ad0  fd 20 6f 76 72 25 20 84  20 65 73 63 25 0d 0f f0  |. ovr% . esc%...|
00001ae0  13 e7 6f 76 72 25 20 80  20 ac 65 73 63 25 20 8c  |..ovr% . .esc% .|
00001af0  0d 0f fa 0e f2 64 65 6c  61 79 28 35 30 29 0d 10  |.....delay(50)..|
00001b00  04 14 f2 65 6e 74 65 72  68 69 67 68 73 63 6f 72  |...enterhighscor|
00001b10  65 73 0d 10 0e 0b f2 72  65 70 6f 72 74 0d 10 18  |es.....report...|
00001b20  05 cd 0d 10 22 05 e1 0d  10 2c 11 dd f2 61 6e 79  |...."....,...any|
00001b30  70 72 6f 67 72 65 73 73  0d 10 36 23 e7 70 6c 79  |progress..6#.ply|
00001b40  25 3e 31 20 84 20 61 74  74 65 6e 64 24 3d 22 22  |%>1 . attend$=""|
00001b50  20 84 20 73 75 62 25 3e  30 3a e1 0d 10 40 1b 51  | . sub%>0:...@.Q|
00001b60  25 3d 72 79 74 25 2f 28  72 79 74 25 2b 72 6f 6e  |%=ryt%/(ryt%+ron|
00001b70  25 29 2a 31 30 30 0d 10  4a 09 f7 8d 74 46 50 0d  |%)*100..J...tFP.|
00001b80  10 54 0f e3 4a 25 3d 31  b8 20 67 72 64 25 0d 10  |.T..J%=1. grd%..|
00001b90  5e 0a f3 20 69 6e 78 25  0d 10 68 05 ed 0d 10 72  |^.. inx%..h....r|
00001ba0  0c f2 75 70 67 72 61 64  65 0d 10 7c 05 e1 0d 10  |..upgrade..|....|
00001bb0  86 12 dc 20 31 30 2c 34  2c 35 2c 37 2c 38 2c 39  |... 10,4,5,7,8,9|
00001bc0  0d 10 90 0b dd f2 6c 69  6d 69 74 0d 10 9a 09 f7  |......limit.....|
00001bd0  8d 74 46 50 0d 10 a4 0a  62 6e 64 25 3d 31 0d 10  |.tFP....bnd%=1..|
00001be0  ae 0b e3 4a 25 3d 31 b8  36 0d 10 b8 0a f3 20 69  |...J%=1.6..... i|
00001bf0  6e 78 25 0d 10 c2 20 e7  61 74 74 25 28 67 6d 65  |nx%... .att%(gme|
00001c00  25 2c 69 6e 78 25 29 3e  31 3a 62 6e 64 25 3d 4a  |%,inx%)>1:bnd%=J|
00001c10  25 2b 31 0d 10 cc 05 ed  0d 10 d6 12 e7 62 6e 64  |%+1..........bnd|
00001c20  25 3e 36 3a 62 6e 64 25  3d 36 0d 10 e0 05 e1 0d  |%>6:bnd%=6......|
00001c30  10 ea 10 dd f2 6c 6f 63  61 6c 73 6b 69 6c 6c 0d  |.....localskill.|
00001c40  10 f4 0b e7 ac a6 2d 32  3a e1 0d 10 fe 09 f7 8d  |......-2:.......|
00001c50  74 54 51 0d 11 08 08 4c  25 3d 30 0d 11 12 0b e3  |tTQ....L%=0.....|
00001c60  4a 25 3d 31 b8 36 0d 11  1c 08 f3 20 4b 25 0d 11  |J%=1.6..... K%..|
00001c70  26 1c e7 a6 2d 4b 25 3a  4c 25 3d 4a 25 3a 41 25  |&...-K%:L%=J%:A%|
00001c80  3d 4b 25 3a 73 75 62 25  3d 30 0d 11 30 05 ed 0d  |=K%:sub%=0..0...|
00001c90  11 3a 0b e7 4c 25 3d 30  3a e1 0d 11 44 07 ef 20  |.:..L%=0:...D.. |
00001ca0  37 0d 11 4e 0b 67 72 64  25 3d 4c 25 0d 11 58 06  |7..N.grd%=L%..X.|
00001cb0  c8 96 0d 11 62 22 e7 62  6f 78 25 3d 33 20 f2 73  |....b".box%=3 .s|
00001cc0  71 72 28 33 2c 31 35 29  20 8b f2 73 71 72 28 33  |qr(3,15) ..sqr(3|
00001cd0  2c 31 31 29 0d 11 6c 0b  f2 69 6e 74 28 33 29 0d  |,11)..l..int(3).|
00001ce0  11 76 05 f5 0d 11 80 0b  fd 20 ac a6 2d 41 25 0d  |.v....... ..-A%.|
00001cf0  11 8a 05 e1 0d 11 94 1c  dc 20 31 31 34 2c 31 31  |......... 114,11|
00001d00  35 2c 31 31 36 2c 32 31  2c 31 31 37 2c 31 31 38  |5,116,21,117,118|
00001d10  0d 11 9e 0d dd f2 70 61  74 74 65 72 6e 0d 11 a8  |......pattern...|
00001d20  11 ef 20 32 39 2c 36 34  30 3b 34 30 30 3b 0d 11  |.. 29,640;400;..|
00001d30  b2 0b e3 58 25 3d 31 b8  38 0d 11 bc 08 4c 25 3d  |...X%=1.8....L%=|
00001d40  30 0d 11 c6 07 73 3d 37  0d 11 d0 0c e3 4a 25 3d  |0....s=7.....J%=|
00001d50  31 b8 31 35 0d 11 da 0a  f7 20 8d 64 54 52 0d 11  |1.15..... .dTR..|
00001d60  e4 0c f2 64 72 61 77 28  b9 29 0d 11 ee 0a 4c 25  |...draw(.)....L%|
00001d70  2b 3d 31 35 0d 11 f8 0b  73 3d 73 2a 2e 38 38 0d  |+=15....s=s*.88.|
00001d80  12 02 05 ed 0d 12 0c 08  4c 25 3d 30 0d 12 16 07  |........L%=0....|
00001d90  73 3d 37 0d 12 20 0c e3  4a 25 3d 31 b8 31 35 0d  |s=7.. ..J%=1.15.|
00001da0  12 2a 0a f7 20 8d 64 54  52 0d 12 34 0c f2 64 72  |.*.. .dTR..4..dr|
00001db0  61 77 28 a3 29 0d 12 3e  0a 4c 25 2b 3d 31 35 0d  |aw(.)..>.L%+=15.|
00001dc0  12 48 0b 73 3d 73 2a 2e  38 38 0d 12 52 05 ed 0d  |.H.s=s*.88..R...|
00001dd0  12 5c 05 ed 0d 12 66 08  ef 20 32 36 0d 12 70 05  |.\....f.. 26..p.|
00001de0  e1 0d 12 7a 10 dd f2 64  72 61 77 28 63 6f 6c 25  |...z...draw(col%|
00001df0  29 0d 12 84 0b e3 4b 25  3d 31 b8 37 0d 12 8e 1b  |).....K%=1.7....|
00001e00  e7 63 6f 6c 25 20 e6 20  30 2c b3 28 34 29 2b 37  |.col% . 0,.(4)+7|
00001e10  20 8b e6 20 30 2c 37 0d  12 98 09 f3 20 78 2c 79  | .. 0,7..... x,y|
00001e20  0d 12 a2 18 78 74 3d 78  2a 9b b2 28 4c 25 29 2d  |....xt=x*..(L%)-|
00001e30  79 2a b5 b2 28 4c 25 29  0d 12 ac 18 79 74 3d 78  |y*..(L%)....yt=x|
00001e40  2a b5 b2 28 4c 25 29 2b  79 2a 9b b2 28 4c 25 29  |*..(L%)+y*..(L%)|
00001e50  0d 12 b6 22 e7 4b 25 3d  31 20 ec 20 73 2a 78 74  |...".K%=1 . s*xt|
00001e60  2c 73 2a 79 74 20 8b df  20 73 2a 78 74 2c 73 2a  |,s*yt .. s*xt,s*|
00001e70  79 74 0d 12 c0 05 ed 0d  12 ca 05 e1 0d 12 d4 3c  |yt.............<|
00001e80  dc 20 34 33 2e 33 2c 32  35 2c 30 2c 35 30 2c 2d  |. 43.3,25,0,50,-|
00001e90  34 33 2e 33 2c 32 35 2c  2d 34 33 2e 33 2c 2d 32  |43.3,25,-43.3,-2|
00001ea0  35 2c 30 2c 2d 35 30 2c  34 33 2e 33 2c 2d 32 35  |5,0,-50,43.3,-25|
00001eb0  2c 34 33 2e 33 2c 32 35  0d 12 de 0c dd f2 72 61  |,43.3,25......ra|
00001ec0  74 69 6e 67 0d 12 e8 0b  e7 72 61 74 25 3a e1 0d  |ting.....rat%:..|
00001ed0  12 f2 09 f7 8d 44 4c 53  0d 12 fc 0c 4a 25 3d 51  |.....DLS....J%=Q|
00001ee0  25 81 31 30 0d 13 06 0d  e3 59 25 3d 31 b8 20 4a  |%.10.....Y%=1. J|
00001ef0  25 0d 13 10 08 f3 20 61  24 0d 13 1a 05 ed 0d 13  |%..... a$.......|
00001f00  24 15 61 24 3d 22 52 61  74 69 6e 67 20 3a 20 22  |$.a$="Rating : "|
00001f10  2b 61 24 0d 13 2e 26 c8  99 22 41 42 43 5f 50 72  |+a$...&.."ABC_Pr|
00001f20  79 6e 74 53 74 72 69 6e  67 22 2c 61 24 2c 31 33  |yntString",a$,13|
00001f30  32 2c 31 30 36 2c 31 2c  37 0d 13 38 26 c8 99 22  |2,106,1,7..8&.."|
00001f40  41 42 43 5f 50 72 79 6e  74 53 74 72 69 6e 67 22  |ABC_PryntString"|
00001f50  2c 61 24 2c 31 33 34 2c  31 30 37 2c 31 2c 38 0d  |,a$,134,107,1,8.|
00001f60  13 42 05 e1 0d 13 4c 34  dc 20 70 61 74 68 65 74  |.B....L4. pathet|
00001f70  69 63 2c 70 6f 6f 72 2c  63 6f 75 6c 64 20 64 6f  |ic,poor,could do|
00001f80  20 62 65 74 74 65 72 2c  6b 65 65 70 20 74 72 79  | better,keep try|
00001f90  69 6e 67 2c 66 61 69 72  0d 13 56 3d dc 20 70 72  |ing,fair..V=. pr|
00001fa0  65 74 74 79 20 63 6c 65  76 65 72 2c 6e 6f 74 20  |etty clever,not |
00001fb0  74 6f 6f 20 62 61 64 2c  6e 65 61 72 6c 79 20 74  |too bad,nearly t|
00001fc0  68 65 72 65 2c 67 6f 6f  64 20 77 6f 72 6b 2c 67  |here,good work,g|
00001fd0  65 6e 69 75 73 0d 13 60  0b dd f2 65 78 74 72 61  |enius..`...extra|
00001fe0  0d 13 6a 0a f7 20 8d 74  46 50 0d 13 74 0f e3 4a  |..j.. .tFP..t..J|
00001ff0  25 3d 31 b8 20 67 72 64  25 0d 13 7e 0a f3 20 69  |%=1. grd%..~.. i|
00002000  6e 78 25 0d 13 88 05 ed  0d 13 92 28 e7 61 74 74  |nx%........(.att|
00002010  25 28 67 6d 65 25 2c 69  6e 78 25 29 3d 31 20 80  |%(gme%,inx%)=1 .|
00002020  20 70 72 63 25 28 67 72  64 25 29 3e 33 32 20 8c  | prc%(grd%)>32 .|
00002030  0d 13 9c 0d 4a 25 3d 97  28 22 30 22 29 0d 13 a6  |....J%=.("0")...|
00002040  0b e3 4b 25 3d 30 b8 34  0d 13 b0 1e e7 28 70 72  |..K%=0.4.....(pr|
00002050  63 25 28 67 72 64 25 29  80 32 5e 4b 25 29 3e 30  |c%(grd%).2^K%)>0|
00002060  3a 4a 25 2b 3d 31 0d 13  ba 05 ed 0d 13 c4 72 e7  |:J%+=1........r.|
00002070  4a 25 3d 97 28 22 31 22  29 20 61 24 3d 22 54 68  |J%=.("1") a$="Th|
00002080  65 6e 20 70 72 65 73 73  20 6b 65 79 20 66 31 20  |en press key f1 |
00002090  66 6f 72 20 65 78 74 72  61 20 70 72 61 63 74 69  |for extra practi|
000020a0  63 65 22 20 8b 61 24 3d  22 54 68 65 6e 20 70 72  |ce" .a$="Then pr|
000020b0  65 73 73 20 6b 65 79 73  20 66 31 20 74 6f 20 66  |ess keys f1 to f|
000020c0  22 2b bd 28 4a 25 29 2b  22 20 66 6f 72 20 65 78  |"+.(J%)+" for ex|
000020d0  74 72 61 20 70 72 61 63  74 69 63 65 22 0d 13 ce  |tra practice"...|
000020e0  14 78 73 63 25 3d 33 32  30 2d a9 28 61 24 29 2a  |.xsc%=320-.(a$)*|
000020f0  34 0d 13 d8 26 c8 99 22  41 42 43 5f 50 72 79 6e  |4...&.."ABC_Pryn|
00002100  74 53 74 72 69 6e 67 22  2c 61 24 2c 78 73 63 25  |tString",a$,xsc%|
00002110  2c 31 31 2c 30 2c 37 0d  13 e2 29 c8 99 22 41 42  |,11,0,7...).."AB|
00002120  43 5f 50 72 79 6e 74 53  74 72 69 6e 67 22 2c 61  |C_PryntString",a|
00002130  24 2c 78 73 63 25 2b 31  2c 31 32 2c 30 2c 31 31  |$,xsc%+1,12,0,11|
00002140  0d 13 ec 05 cd 0d 13 f6  05 e1 0d 14 00 20 dd f2  |............. ..|
00002150  66 69 6c 6c 69 6e 66 6f  72 6d 61 74 69 6f 6e 28  |fillinformation(|
00002160  74 61 78 25 2c 74 61 79  25 29 0d 14 0a 07 ef 20  |tax%,tay%)..... |
00002170  35 0d 14 14 09 e6 20 30  2c 30 0d 14 1e 21 ec 20  |5..... 0,0...!. |
00002180  74 61 78 25 2a 33 32 2d  66 25 2c 31 30 32 34 2d  |tax%*32-f%,1024-|
00002190  28 74 61 79 25 2a 67 25  2b 34 29 0d 14 28 58 e7  |(tay%*g%+4)..(X.|
000021a0  6e 69 67 25 20 f1 22 53  75 62 6a 65 63 74 20 20  |nig% ."Subject  |
000021b0  20 20 20 20 20 20 20 20  20 20 20 20 20 4e 43 20  |             NC |
000021c0  20 20 20 20 20 22 2b 74  79 70 24 20 8b f1 22 53  |     "+typ$ .."S|
000021d0  75 62 6a 65 63 74 20 20  20 20 20 20 20 20 20 20  |ubject          |
000021e0  20 20 20 43 6f 6c 6f 75  72 20 20 20 20 22 2b 74  |   Colour    "+t|
000021f0  79 70 24 0d 14 32 0a f7  20 8d 74 46 50 0d 14 3c  |yp$..2.. .tFP..<|
00002200  0b e3 4a 25 3d 31 b8 36  0d 14 46 0a f3 20 69 6e  |..J%=1.6..F.. in|
00002210  78 25 0d 14 50 18 c8 8e  20 61 74 74 25 28 67 6d  |x%..P... att%(gm|
00002220  65 25 2c 69 6e 78 25 29  20 ca 0d 14 5a 0d c9 20  |e%,inx%) ...Z.. |
00002230  30 3a e6 20 30 2c 33 0d  14 64 0e c9 20 31 3a e6  |0:. 0,3..d.. 1:.|
00002240  20 30 2c 31 31 0d 14 6e  0e c9 20 32 3a e6 20 30  | 0,11..n.. 2:. 0|
00002250  2c 31 34 0d 14 78 20 c9  20 33 2c 34 2c 35 2c 36  |,14..x . 3,4,5,6|
00002260  2c 37 2c 38 2c 39 2c 31  30 2c 31 31 3a e6 20 30  |,7,8,9,10,11:. 0|
00002270  2c 31 30 0d 14 82 0c 7f  3a e6 20 30 2c 31 35 0d  |,10.....:. 0,15.|
00002280  14 8c 05 cb 0d 14 96 1d  c8 93 c8 90 20 36 34 32  |............ 642|
00002290  2c 37 34 30 2d 4a 25 2a  36 34 2c 31 35 36 2c 35  |,740-J%*64,156,5|
000022a0  36 0d 14 a0 05 ed 0d 14  aa 0a f7 20 8d 44 68 55  |6.......... .DhU|
000022b0  0d 14 b4 0b e3 4a 25 3d  31 b8 36 0d 14 be 08 f3  |.....J%=1.6.....|
000022c0  20 73 24 0d 14 c8 09 e6  20 30 2c 37 0d 14 d2 28  | s$..... 0,7...(|
000022d0  ec 20 74 61 78 25 2a 33  32 2b 34 34 38 2c 31 30  |. tax%*32+448,10|
000022e0  32 34 2d 28 74 61 79 25  2a 67 25 2b 4a 25 2a 66  |24-(tay%*g%+J%*f|
000022f0  25 2b 34 29 0d 14 dc 07  f1 4a 25 0d 14 e6 28 ec  |%+4).....J%...(.|
00002300  20 74 61 78 25 2a 33 32  2b 32 37 32 2c 31 30 32  | tax%*32+272,102|
00002310  34 2d 28 74 61 79 25 2a  67 25 2b 4a 25 2a 66 25  |4-(tay%*g%+J%*f%|
00002320  2b 34 29 0d 14 f0 28 e7  6e 69 67 25 3a f1 c0 69  |+4)...(.nig%:..i|
00002330  6e 66 6f 24 28 4a 25 29  2c a7 69 6e 66 6f 24 28  |nfo$(J%),.info$(|
00002340  4a 25 29 2c 22 28 22 29  2d 32 29 0d 14 fa 09 e6  |J%),"(")-2).....|
00002350  20 30 2c 30 0d 15 04 27  ec 20 74 61 78 25 2a 33  | 0,0...'. tax%*3|
00002360  32 2d 66 25 2c 31 30 32  34 2d 28 74 61 79 25 2a  |2-f%,1024-(tay%*|
00002370  67 25 2b 4a 25 2a 66 25  2b 34 29 0d 15 0e 07 f1  |g%+J%*f%+4).....|
00002380  73 24 0d 15 18 26 ec 20  74 61 78 25 2a 33 32 2b  |s$...&. tax%*32+|
00002390  34 34 38 2c 31 30 32 34  2d 28 74 61 79 25 2a 67  |448,1024-(tay%*g|
000023a0  25 2b 4a 25 2a 66 25 29  0d 15 22 07 f1 4a 25 0d  |%+J%*f%).."..J%.|
000023b0  15 2c 26 ec 20 74 61 78  25 2a 33 32 2b 32 37 32  |.,&. tax%*32+272|
000023c0  2c 31 30 32 34 2d 28 74  61 79 25 2a 67 25 2b 4a  |,1024-(tay%*g%+J|
000023d0  25 2a 66 25 29 0d 15 36  28 e7 6e 69 67 25 3a f1  |%*f%)..6(.nig%:.|
000023e0  c0 69 6e 66 6f 24 28 4a  25 29 2c a7 69 6e 66 6f  |.info$(J%),.info|
000023f0  24 28 4a 25 29 2c 22 28  22 29 2d 32 29 0d 15 40  |$(J%),"(")-2)..@|
00002400  05 ed 0d 15 4a 07 ef 20  34 0d 15 54 05 87 0d 15  |....J.. 4..T....|
00002410  5e 05 e1 0d 15 68 4c dc  20 57 6f 72 64 73 2c 43  |^....hL. Words,C|
00002420  6f 2d 6f 72 64 69 6e 61  74 65 73 2c 47 72 61 70  |o-ordinates,Grap|
00002430  68 73 2c 4d 61 70 70 69  6e 67 73 20 61 6e 64 20  |hs,Mappings and |
00002440  46 6e 73 2c 49 6e 65 71  75 61 6c 69 74 69 65 73  |Fns,Inequalities|
00002450  2c 49 6e 74 65 72 70 72  65 74 61 74 69 6f 6e 0d  |,Interpretation.|
00002460  15 72 0e dd f2 70 72 61  63 74 69 63 65 0d 15 7c  |.r...practice..||
00002470  0a e7 a6 2d 32 3a e1 0d  15 86 0a f7 20 8d 74 54  |...-2:...... .tT|
00002480  51 0d 15 90 08 4a 25 3d  31 0d 15 9a 08 4b 25 3d  |Q....J%=1....K%=|
00002490  b9 0d 15 a4 10 c8 95 20  4a 25 3c 37 20 80 20 4b  |....... J%<7 . K|
000024a0  25 0d 15 ae 08 f3 20 4c  25 0d 15 b8 25 e7 a6 2d  |%..... L%...%..-|
000024b0  4c 25 20 80 20 28 70 72  63 25 28 67 72 64 25 29  |L% . (prc%(grd%)|
000024c0  80 32 5e 28 4a 25 2d 31  29 29 3e 30 20 8c 0d 15  |.2^(J%-1))>0 ...|
000024d0  c2 0b c8 95 20 a6 2d 4c  25 0d 15 cc 05 ce 0d 15  |.... .-L%.......|
000024e0  d6 08 4b 25 3d a3 0d 15  e0 0c e7 4a 25 3c 3d 36  |..K%=......J%<=6|
000024f0  20 8c 0d 15 ea 07 ef 20  37 0d 15 f4 0b 73 75 62  | ...... 7....sub|
00002500  25 3d 4a 25 0d 15 fe 06  c8 96 0d 16 08 22 e7 62  |%=J%.........".b|
00002510  6f 78 25 3d 33 20 f2 73  71 72 28 33 2c 31 35 29  |ox%=3 .sqr(3,15)|
00002520  20 8b f2 73 71 72 28 33  2c 31 31 29 0d 16 12 0b  | ..sqr(3,11)....|
00002530  f2 69 6e 74 28 33 29 0d  16 1c 05 cd 0d 16 26 05  |.int(3).......&.|
00002540  cd 0d 16 30 09 4a 25 2b  3d 31 0d 16 3a 05 ce 0d  |...0.J%+=1..:...|
00002550  16 44 05 e1 0d 16 4e 0e  dd f2 73 61 6d 65 28 74  |.D....N...same(t|
00002560  24 29 0d 16 58 08 c8 97  20 87 0d 16 62 07 ef 20  |$)..X... ...b.. |
00002570  37 0d 16 6c 23 c8 99 22  41 42 43 5f 54 72 61 6e  |7..l#.."ABC_Tran|
00002580  73 66 65 72 22 2c 32 35  36 2c 31 36 38 2c 31 32  |sfer",256,168,12|
00002590  38 2c 37 38 0d 16 76 25  c8 99 22 41 42 43 5f 53  |8,78..v%.."ABC_S|
000025a0  70 72 69 74 65 22 2c 62  25 2c 22 6d 6f 75 73 65  |prite",b%,"mouse|
000025b0  22 2c 32 35 36 2c 31 36  38 0d 16 80 14 78 73 63  |",256,168....xsc|
000025c0  25 3d 33 32 30 2d a9 28  74 24 29 2a 38 0d 16 8a  |%=320-.(t$)*8...|
000025d0  0c 79 73 63 25 3d 31 32  30 0d 16 94 28 c8 99 22  |.ysc%=120...(.."|
000025e0  41 42 43 5f 50 72 79 6e  74 53 74 72 69 6e 67 22  |ABC_PryntString"|
000025f0  2c 74 24 2c 78 73 63 25  2c 79 73 63 25 2c 31 2c  |,t$,xsc%,ysc%,1,|
00002600  37 0d 16 9e 2c c8 99 22  41 42 43 5f 50 72 79 6e  |7...,.."ABC_Pryn|
00002610  74 53 74 72 69 6e 67 22  2c 74 24 2c 78 73 63 25  |tString",t$,xsc%|
00002620  2d 32 2c 79 73 63 25 2b  31 2c 31 2c 38 0d 16 a8  |-2,ysc%+1,1,8...|
00002630  05 f5 0d 16 b2 15 c8 97  20 6d 6f 78 25 2c 6d 6f  |........ mox%,mo|
00002640  79 25 2c 62 75 74 25 0d  16 bc 0c fd 20 62 75 74  |y%,but%..... but|
00002650  25 3e 30 0d 16 c6 13 c8  99 22 41 42 43 5f 52 65  |%>0......"ABC_Re|
00002660  73 74 6f 72 65 22 0d 16  d0 0e f2 7a 65 72 6f 6d  |store".....zerom|
00002670  6f 75 73 65 0d 16 da 10  c8 97 20 b8 20 36 34 30  |ouse...... . 640|
00002680  2c 35 31 32 0d 16 e4 07  d1 3d 30 0d 16 ee 05 e1  |,512.....=0.....|
00002690  0d 16 f8 0b dd f2 73 74  61 72 73 0d 17 02 0c e3  |......stars.....|
000026a0  4a 25 3d 31 b8 34 38 0d  17 0c 0e e6 20 30 2c b3  |J%=1.48..... 0,.|
000026b0  28 34 29 2b 37 0d 17 16  0e 58 25 3d b3 28 31 32  |(4)+7....X%=.(12|
000026c0  38 30 29 0d 17 20 0e 59  25 3d b3 28 31 30 32 34  |80).. .Y%=.(1024|
000026d0  29 0d 17 2a 0b ec 20 58  25 2c 59 25 0d 17 34 0b  |)..*.. X%,Y%..4.|
000026e0  f0 20 31 2c 36 2c 30 0d  17 3e 0c f0 20 30 2c 2d  |. 1,6,0..>.. 0,-|
000026f0  34 2c 34 0d 17 48 0c f0  20 31 2c 30 2c 2d 38 0d  |4,4..H.. 1,0,-8.|
00002700  17 52 05 ed 0d 17 5c 05  e1 0d 17 66 0f dd f2 71  |.R....\....f...q|
00002710  75 65 73 74 69 6f 6e 73  0d 17 70 13 c8 99 22 41  |uestions..p..."A|
00002720  42 43 5f 42 6c 61 6e 6b  22 2c 37 0d 17 7a 0b e6  |BC_Blank",7..z..|
00002730  20 30 2c 31 33 35 0d 17  84 19 ef 20 32 34 2c 30  | 0,135..... 24,0|
00002740  3b 33 32 30 3b 31 32 37  38 3b 31 30 32 30 3b 0d  |;320;1278;1020;.|
00002750  17 8e 05 da 0d 17 98 0a  f2 73 74 61 72 73 0d 17  |.........stars..|
00002760  a2 08 ef 20 32 36 0d 17  ac 21 c8 99 22 41 42 43  |... 26...!.."ABC|
00002770  5f 55 6e 70 61 63 6b 50  6c 61 63 65 22 2c 30 2c  |_UnpackPlace",0,|
00002780  7a 25 2c 30 2c 34 30 0d  17 b6 0a 61 6e 69 25 3d  |z%,0,40....ani%=|
00002790  30 0d 17 c0 0a 66 6f 63  25 3d a3 0d 17 ca 10 62  |0....foc%=.....b|
000027a0  6f 6e 25 3d 31 30 2a 67  72 64 25 0d 17 d4 0d c8  |on%=10*grd%.....|
000027b0  8e 20 67 72 64 25 20 ca  0d 17 de 0c c9 20 31 3a  |. grd% ...... 1:|
000027c0  f2 6f 6e 65 0d 17 e8 0c  c9 20 32 3a f2 74 77 6f  |.one..... 2:.two|
000027d0  0d 17 f2 0e c9 20 33 3a  f2 74 68 72 65 65 0d 17  |..... 3:.three..|
000027e0  fc 0d c9 20 34 3a f2 66  6f 75 72 0d 18 06 0d c9  |... 4:.four.....|
000027f0  20 35 3a f2 66 69 76 65  0d 18 10 0c c9 20 36 3a  | 5:.five..... 6:|
00002800  f2 73 69 78 0d 18 1a 05  cb 0d 18 24 10 d6 20 53  |.six.......$.. S|
00002810  63 72 65 65 6e 53 61 76  65 0d 18 2e 0f f2 70 6c  |creenSave.....pl|
00002820  61 63 65 63 72 61 66 74  0d 18 38 13 f2 70 6c 61  |acecraft..8..pla|
00002830  63 65 61 73 74 65 72 6f  69 64 73 0d 18 42 0b f2  |ceasteroids..B..|
00002840  75 70 64 61 74 65 0d 18  4c 13 c8 99 22 41 42 43  |update..L..."ABC|
00002850  5f 50 61 6c 65 74 74 65  22 0d 18 56 07 d1 3d 30  |_Palette"..V..=0|
00002860  0d 18 60 05 e1 0d 18 6a  09 dd f2 6f 6e 65 0d 18  |..`....j...one..|
00002870  74 0d e7 73 75 62 25 3d  30 20 8c 0d 18 7e 1f e7  |t..sub%=0 ...~..|
00002880  63 6f 6d 25 20 f2 66 69  72 73 74 63 6f 6d 20 8b  |com% .firstcom .|
00002890  f2 73 65 63 6f 6e 64 63  6f 6d 0d 18 88 0e 63 6f  |.secondcom....co|
000028a0  6d 25 3d ac 63 6f 6d 25  0d 18 92 05 cc 0d 18 9c  |m%=.com%........|
000028b0  0d f2 66 69 72 73 74 63  6f 6d 0d 18 a6 05 cd 0d  |..firstcom......|
000028c0  18 b0 1b 78 78 78 25 3d  73 72 6e 25 28 30 2c 63  |...xxx%=srn%(0,c|
000028d0  6f 64 25 28 74 65 78 25  29 29 0d 18 ba 1b 79 79  |od%(tex%))....yy|
000028e0  79 25 3d 73 72 6e 25 28  31 2c 63 6f 64 25 28 74  |y%=srn%(1,cod%(t|
000028f0  65 78 25 29 29 0d 18 c4  10 61 6e 78 25 3d 78 78  |ex%))....anx%=xx|
00002900  78 25 2d 31 36 0d 18 ce  0f 61 6e 79 25 3d 79 79  |x%-16....any%=yy|
00002910  79 25 2b 38 0d 18 d8 14  78 73 63 25 3d 33 32 30  |y%+8....xsc%=320|
00002920  2d a9 28 61 24 29 2a 34  0d 18 e2 26 c8 99 22 41  |-.(a$)*4...&.."A|
00002930  42 43 5f 50 72 79 6e 74  53 74 72 69 6e 67 22 2c  |BC_PryntString",|
00002940  61 24 2c 78 73 63 25 2c  32 36 2c 30 2c 37 0d 18  |a$,xsc%,26,0,7..|
00002950  ec 28 c8 99 22 41 42 43  5f 50 72 79 6e 74 53 74  |.(.."ABC_PryntSt|
00002960  72 69 6e 67 22 2c 61 24  2c 78 73 63 25 2d 32 2c  |ring",a$,xsc%-2,|
00002970  32 37 2c 30 2c 30 0d 18  f6 0b f2 67 72 61 70 68  |27,0,0.....graph|
00002980  31 0d 19 00 0d 61 6e 69  25 3d 73 75 62 25 0d 19  |1....ani%=sub%..|
00002990  0a 0e f2 70 6c 61 63 65  28 6a 24 29 0d 19 14 05  |...place(j$)....|
000029a0  e1 0d 19 1e 0e dd f2 66  69 72 73 74 63 6f 6d 0d  |.......firstcom.|
000029b0  19 28 05 f5 0d 19 32 0f  74 65 78 25 3d b3 28 39  |.(....2.tex%=.(9|
000029c0  29 2a 32 0d 19 3c 0e 6f  62 6a 25 3d b3 28 31 32  |)*2..<.obj%=.(12|
000029d0  29 0d 19 46 20 fd 20 63  6f 6d 24 28 74 65 78 25  |)..F . com$(tex%|
000029e0  29 3e 22 22 20 80 20 74  65 78 25 3c 3e 70 72 65  |)>"" . tex%<>pre|
000029f0  25 0d 19 50 0b 70 72 65  25 3d 4a 25 0d 19 5a 11  |%..P.pre%=J%..Z.|
00002a00  6a 24 3d 6f 62 6a 24 28  6f 62 6a 25 29 0d 19 64  |j$=obj$(obj%)..d|
00002a10  38 61 24 3d 22 4d 4f 56  45 20 74 6f 20 74 68 65  |8a$="MOVE to the|
00002a20  20 22 2b 6a 24 2b 22 20  61 74 20 74 68 65 20 22  | "+j$+" at the "|
00002a30  2b 63 6f 6d 24 28 74 65  78 25 29 2b 22 20 73 71  |+com$(tex%)+" sq|
00002a40  75 61 72 65 22 0d 19 6e  05 e1 0d 19 78 0f dd f2  |uare"..n....x...|
00002a50  73 65 63 6f 6e 64 63 6f  6d 0d 19 82 0e 6f 62 6a  |secondcom....obj|
00002a60  25 3d b3 28 31 32 29 0d  19 8c 0b 74 65 78 25 2d  |%=.(12)....tex%-|
00002a70  3d 31 0d 19 96 11 6a 24  3d 6f 62 6a 24 28 6f 62  |=1....j$=obj$(ob|
00002a80  6a 25 29 0d 19 a0 3c 61  24 3d 22 4e 6f 77 20 4d  |j%)...<a$="Now M|
00002a90  4f 56 45 20 74 6f 20 74  68 65 20 22 2b 6a 24 2b  |OVE to the "+j$+|
00002aa0  22 20 61 74 20 74 68 65  20 22 2b 63 6f 6d 24 28  |" at the "+com$(|
00002ab0  74 65 78 25 29 2b 22 20  73 71 75 61 72 65 22 0d  |tex%)+" square".|
00002ac0  19 aa 05 e1 0d 19 b4 09  dd f2 74 77 6f 0d 19 be  |..........two...|
00002ad0  10 78 6f 62 25 3d b3 28  31 31 29 2d 31 0d 19 c8  |.xob%=.(11)-1...|
00002ae0  0f 79 6f 62 25 3d b3 28  36 29 2d 31 0d 19 d2 05  |.yob%=.(6)-1....|
00002af0  f5 0d 19 dc 0c 4a 25 3d  b3 28 33 32 29 0d 19 e6  |.....J%=.(32)...|
00002b00  1e fd 20 6d 69 73 24 28  30 2c 4a 25 29 3e 22 22  |.. mis$(0,J%)>""|
00002b10  20 80 20 4a 25 3c 3e 70  72 65 25 0d 19 f0 0b 70  | . J%<>pre%....p|
00002b20  72 65 25 3d 4a 25 0d 19  fa 31 61 24 3d 6d 69 73  |re%=J%...1a$=mis|
00002b30  24 28 30 2c 4a 25 29 2b  22 20 61 74 20 28 22 2b  |$(0,J%)+" at ("+|
00002b40  c3 28 78 6f 62 25 29 2b  22 2c 22 2b c3 28 79 6f  |.(xob%)+","+.(yo|
00002b50  62 25 29 2b 22 29 22 0d  1a 04 11 6a 24 3d 6d 69  |b%)+")"....j$=mi|
00002b60  73 24 28 31 2c 4a 25 29  0d 1a 0e 14 78 73 63 25  |s$(1,J%)....xsc%|
00002b70  3d 33 32 30 2d a9 28 61  24 29 2a 38 0d 1a 18 26  |=320-.(a$)*8...&|
00002b80  c8 99 22 41 42 43 5f 50  72 79 6e 74 53 74 72 69  |.."ABC_PryntStri|
00002b90  6e 67 22 2c 61 24 2c 78  73 63 25 2c 33 30 2c 31  |ng",a$,xsc%,30,1|
00002ba0  2c 37 0d 1a 22 28 c8 99  22 41 42 43 5f 50 72 79  |,7.."(.."ABC_Pry|
00002bb0  6e 74 53 74 72 69 6e 67  22 2c 61 24 2c 78 73 63  |ntString",a$,xsc|
00002bc0  25 2d 32 2c 33 31 2c 31  2c 30 0d 1a 2c 0b f2 67  |%-2,31,1,0..,..g|
00002bd0  72 61 70 68 32 0d 1a 36  13 61 6e 78 25 3d 78 6f  |raph2..6.anx%=xo|
00002be0  62 25 2a 35 32 2b 34 38  0d 1a 40 14 61 6e 79 25  |b%*52+48..@.any%|
00002bf0  3d 79 6f 62 25 2a 32 36  2b 31 31 32 0d 1a 4a 13  |=yob%*26+112..J.|
00002c00  78 78 78 25 3d 78 6f 62  25 2a 35 32 2b 36 34 0d  |xxx%=xob%*52+64.|
00002c10  1a 54 14 79 79 79 25 3d  79 6f 62 25 2a 32 36 2b  |.T.yyy%=yob%*26+|
00002c20  31 30 34 0d 1a 5e 0d 61  6e 69 25 3d 73 75 62 25  |104..^.ani%=sub%|
00002c30  0d 1a 68 0e f2 70 6c 61  63 65 28 6a 24 29 0d 1a  |..h..place(j$)..|
00002c40  72 05 e1 0d 1a 7c 0b dd  f2 74 68 72 65 65 0d 1a  |r....|...three..|
00002c50  86 20 e7 73 75 62 25 3d  30 20 6f 70 72 25 3d b3  |. .sub%=0 opr%=.|
00002c60  28 34 29 20 8b 6f 70 72  25 3d 73 75 62 25 0d 1a  |(4) .opr%=sub%..|
00002c70  90 05 f5 0d 1a 9a 0c 4a  25 3d b3 28 33 32 29 0d  |.......J%=.(32).|
00002c80  1a a4 1e fd 20 6d 69 73  24 28 30 2c 4a 25 29 3e  |.... mis$(0,J%)>|
00002c90  22 22 20 80 20 4a 25 3c  3e 70 72 65 25 0d 1a ae  |"" . J%<>pre%...|
00002ca0  0b 70 72 65 25 3d 4a 25  0d 1a b8 0d c8 8e 20 6f  |.pre%=J%...... o|
00002cb0  70 72 25 20 ca 0d 1a c2  07 c9 20 31 0d 1a cc 10  |pr% ...... 1....|
00002cc0  78 6f 62 25 3d b3 28 32  31 29 2d 31 0d 1a d6 10  |xob%=.(21)-1....|
00002cd0  79 6f 62 25 3d b3 28 31  31 29 2d 31 0d 1a e0 0c  |yob%=.(11)-1....|
00002ce0  f2 67 72 61 70 68 33 61  0d 1a ea 13 61 6e 78 25  |.graph3a....anx%|
00002cf0  3d 78 6f 62 25 2a 32 36  2b 34 38 0d 1a f4 14 61  |=xob%*26+48....a|
00002d00  6e 79 25 3d 79 6f 62 25  2a 31 33 2b 31 31 32 0d  |ny%=yob%*13+112.|
00002d10  1a fe 30 f2 6d 69 6e 65  63 6f 6f 72 73 28 32 31  |..0.minecoors(21|
00002d20  2c 31 31 2c 22 6d 69 78  25 2a 32 36 2b 34 38 22  |,11,"mix%*26+48"|
00002d30  2c 22 6d 69 79 25 2a 31  33 2b 31 31 32 22 29 0d  |,"miy%*13+112").|
00002d40  1b 08 07 c9 20 32 0d 1b  12 10 78 6f 62 25 3d b3  |.... 2....xob%=.|
00002d50  28 32 31 29 2d 31 0d 1b  1c 13 79 6f 62 25 3d 2d  |(21)-1....yob%=-|
00002d60  28 b3 28 31 31 29 2d 31  29 0d 1b 26 0c f2 67 72  |(.(11)-1)..&..gr|
00002d70  61 70 68 33 62 0d 1b 30  13 61 6e 78 25 3d 78 6f  |aph3b..0.anx%=xo|
00002d80  62 25 2a 32 36 2b 34 38  0d 1b 3a 14 61 6e 79 25  |b%*26+48..:.any%|
00002d90  3d 32 34 32 2b 79 6f 62  25 2a 31 33 0d 1b 44 31  |=242+yob%*13..D1|
00002da0  f2 6d 69 6e 65 63 6f 6f  72 73 28 32 31 2c 2d 31  |.minecoors(21,-1|
00002db0  31 2c 22 6d 69 78 25 2a  32 36 2b 34 38 22 2c 22  |1,"mix%*26+48","|
00002dc0  32 34 32 2b 6d 69 79 25  2a 31 33 22 29 0d 1b 4e  |242+miy%*13")..N|
00002dd0  07 c9 20 33 0d 1b 58 13  78 6f 62 25 3d 2d 28 b3  |.. 3..X.xob%=-(.|
00002de0  28 32 31 29 2d 31 29 0d  1b 62 13 79 6f 62 25 3d  |(21)-1)..b.yob%=|
00002df0  2d 28 b3 28 31 31 29 2d  31 29 0d 1b 6c 0c f2 67  |-(.(11)-1)..l..g|
00002e00  72 61 70 68 33 63 0d 1b  76 14 61 6e 78 25 3d 35  |raph3c..v.anx%=5|
00002e10  36 38 2b 78 6f 62 25 2a  32 36 0d 1b 80 14 61 6e  |68+xob%*26....an|
00002e20  79 25 3d 32 34 32 2b 79  6f 62 25 2a 31 33 0d 1b  |y%=242+yob%*13..|
00002e30  8a 33 f2 6d 69 6e 65 63  6f 6f 72 73 28 2d 32 31  |.3.minecoors(-21|
00002e40  2c 2d 31 31 2c 22 35 36  38 2b 6d 69 78 25 2a 32  |,-11,"568+mix%*2|
00002e50  36 22 2c 22 32 34 32 2b  6d 69 79 25 2a 31 33 22  |6","242+miy%*13"|
00002e60  29 0d 1b 94 07 c9 20 34  0d 1b 9e 13 78 6f 62 25  |)..... 4....xob%|
00002e70  3d 2d 28 b3 28 32 31 29  2d 31 29 0d 1b a8 10 79  |=-(.(21)-1)....y|
00002e80  6f 62 25 3d b3 28 31 31  29 2d 31 0d 1b b2 0c f2  |ob%=.(11)-1.....|
00002e90  67 72 61 70 68 33 64 0d  1b bc 14 61 6e 78 25 3d  |graph3d....anx%=|
00002ea0  35 36 38 2b 78 6f 62 25  2a 32 36 0d 1b c6 14 61  |568+xob%*26....a|
00002eb0  6e 79 25 3d 79 6f 62 25  2a 31 33 2b 31 31 32 0d  |ny%=yob%*13+112.|
00002ec0  1b d0 32 f2 6d 69 6e 65  63 6f 6f 72 73 28 2d 32  |..2.minecoors(-2|
00002ed0  31 2c 31 31 2c 22 35 36  38 2b 6d 69 78 25 2a 32  |1,11,"568+mix%*2|
00002ee0  36 22 2c 22 6d 69 79 25  2a 31 33 2b 31 31 32 22  |6","miy%*13+112"|
00002ef0  29 0d 1b da 05 cb 0d 1b  e4 10 78 78 78 25 3d 61  |).........xxx%=a|
00002f00  6e 78 25 2b 31 36 0d 1b  ee 0f 79 79 79 25 3d 61  |nx%+16....yyy%=a|
00002f10  6e 79 25 2d 38 0d 1b f8  31 61 24 3d 6d 69 73 24  |ny%-8...1a$=mis$|
00002f20  28 30 2c 4a 25 29 2b 22  20 61 74 20 28 22 2b c3  |(0,J%)+" at ("+.|
00002f30  28 78 6f 62 25 29 2b 22  2c 22 2b c3 28 79 6f 62  |(xob%)+","+.(yob|
00002f40  25 29 2b 22 29 22 0d 1c  02 11 6a 24 3d 6d 69 73  |%)+")"....j$=mis|
00002f50  24 28 31 2c 4a 25 29 0d  1c 0c 14 78 73 63 25 3d  |$(1,J%)....xsc%=|
00002f60  33 32 30 2d a9 28 61 24  29 2a 38 0d 1c 16 26 c8  |320-.(a$)*8...&.|
00002f70  99 22 41 42 43 5f 50 72  79 6e 74 53 74 72 69 6e  |."ABC_PryntStrin|
00002f80  67 22 2c 61 24 2c 78 73  63 25 2c 33 30 2c 31 2c  |g",a$,xsc%,30,1,|
00002f90  37 0d 1c 20 28 c8 99 22  41 42 43 5f 50 72 79 6e  |7.. (.."ABC_Pryn|
00002fa0  74 53 74 72 69 6e 67 22  2c 61 24 2c 78 73 63 25  |tString",a$,xsc%|
00002fb0  2d 32 2c 33 31 2c 31 2c  30 0d 1c 2a 0e f2 70 6c  |-2,31,1,0..*..pl|
00002fc0  61 63 65 28 6a 24 29 0d  1c 34 05 e1 0d 1c 3e 0a  |ace(j$)..4....>.|
00002fd0  dd f2 66 6f 75 72 0d 1c  48 05 f5 0d 1c 52 0c 4a  |..four..H....R.J|
00002fe0  25 3d b3 28 33 32 29 0d  1c 5c 1e fd 20 6d 69 73  |%=.(32)..\.. mis|
00002ff0  24 28 30 2c 4a 25 29 3e  22 22 20 80 20 4a 25 3c  |$(0,J%)>"" . J%<|
00003000  3e 70 72 65 25 0d 1c 66  0b 70 72 65 25 3d 4a 25  |>pre%..f.pre%=J%|
00003010  0d 1c 70 0d c8 8e 20 73  75 62 25 20 ca 0d 1c 7a  |..p... sub% ...z|
00003020  07 c9 20 30 0d 1c 84 05  f5 0d 1c 8e 11 61 64 79  |.. 0.........ady|
00003030  25 3d b3 28 32 32 29 2d  31 31 0d 1c 98 11 78 6f  |%=.(22)-11....xo|
00003040  62 25 3d b3 28 32 32 29  2d 31 31 0d 1c a2 12 79  |b%=.(22)-11....y|
00003050  6f 62 25 3d 78 6f 62 25  2b 61 64 79 25 0d 1c ac  |ob%=xob%+ady%...|
00003060  18 fd 20 79 6f 62 25 3e  2d 31 31 20 80 20 79 6f  |.. yob%>-11 . yo|
00003070  62 25 3c 31 31 0d 1c b6  0b f2 67 72 61 70 68 35  |b%<11.....graph5|
00003080  0d 1c c0 14 61 6e 78 25  3d 78 6f 62 25 2a 31 36  |....anx%=xob%*16|
00003090  2b 33 30 34 0d 1c ca 13  61 6e 79 25 3d 79 6f 62  |+304....any%=yob|
000030a0  25 2a 38 2b 31 37 36 0d  1c d4 0d c8 8e 20 b3 28  |%*8+176...... .(|
000030b0  34 29 20 ca 0d 1c de 34  c9 20 31 3a f2 6d 69 6e  |4) ....4. 1:.min|
000030c0  65 63 6f 6f 72 73 28 32  31 2c 31 31 2c 22 6d 69  |ecoors(21,11,"mi|
000030d0  78 25 2a 31 36 2b 33 30  34 22 2c 22 6d 69 79 25  |x%*16+304","miy%|
000030e0  2a 38 2b 31 37 36 22 29  0d 1c e8 35 c9 20 32 3a  |*8+176")...5. 2:|
000030f0  f2 6d 69 6e 65 63 6f 6f  72 73 28 2d 32 31 2c 31  |.minecoors(-21,1|
00003100  31 2c 22 6d 69 78 25 2a  31 36 2b 33 30 34 22 2c  |1,"mix%*16+304",|
00003110  22 6d 69 79 25 2a 38 2b  31 37 36 22 29 0d 1c f2  |"miy%*8+176")...|
00003120  35 c9 20 33 3a f2 6d 69  6e 65 63 6f 6f 72 73 28  |5. 3:.minecoors(|
00003130  32 31 2c 2d 31 31 2c 22  6d 69 78 25 2a 31 36 2b  |21,-11,"mix%*16+|
00003140  33 30 34 22 2c 22 6d 69  79 25 2a 38 2b 31 37 36  |304","miy%*8+176|
00003150  22 29 0d 1c fc 34 7f 3a  f2 6d 69 6e 65 63 6f 6f  |")...4.:.minecoo|
00003160  72 73 28 2d 32 31 2c 2d  31 31 2c 22 6d 69 78 25  |rs(-21,-11,"mix%|
00003170  2a 31 36 2b 33 30 34 22  2c 22 6d 69 79 25 2a 38  |*16+304","miy%*8|
00003180  2b 31 37 36 22 29 0d 1d  06 05 cb 0d 1d 10 07 c9  |+176")..........|
00003190  20 31 0d 1d 1a 05 f5 0d  1d 24 11 61 64 79 25 3d  | 1.......$.ady%=|
000031a0  b3 28 32 32 29 2d 31 31  0d 1d 2e 10 78 6f 62 25  |.(22)-11....xob%|
000031b0  3d b3 28 32 31 29 2d 31  0d 1d 38 12 79 6f 62 25  |=.(21)-1..8.yob%|
000031c0  3d 78 6f 62 25 2b 61 64  79 25 0d 1d 42 21 fd 20  |=xob%+ady%..B!. |
000031d0  79 6f 62 25 3e 2d 31 20  80 20 79 6f 62 25 3c 31  |yob%>-1 . yob%<1|
000031e0  31 20 80 20 61 64 79 25  3c 3e 30 0d 1d 4c 0c f2  |1 . ady%<>0..L..|
000031f0  67 72 61 70 68 33 61 0d  1d 56 13 61 6e 78 25 3d  |graph3a..V.anx%=|
00003200  78 6f 62 25 2a 32 36 2b  34 38 0d 1d 60 14 61 6e  |xob%*26+48..`.an|
00003210  79 25 3d 79 6f 62 25 2a  31 33 2b 31 31 32 0d 1d  |y%=yob%*13+112..|
00003220  6a 30 f2 6d 69 6e 65 63  6f 6f 72 73 28 32 31 2c  |j0.minecoors(21,|
00003230  31 31 2c 22 6d 69 78 25  2a 32 36 2b 34 38 22 2c  |11,"mix%*26+48",|
00003240  22 6d 69 79 25 2a 31 33  2b 31 31 32 22 29 0d 1d  |"miy%*13+112")..|
00003250  74 07 c9 20 32 0d 1d 7e  05 f5 0d 1d 88 11 61 64  |t.. 2..~......ad|
00003260  79 25 3d b3 28 32 32 29  2d 31 31 0d 1d 92 10 78  |y%=.(22)-11....x|
00003270  6f 62 25 3d b3 28 32 31  29 2d 31 0d 1d 9c 12 79  |ob%=.(21)-1....y|
00003280  6f 62 25 3d 78 6f 62 25  2b 61 64 79 25 0d 1d a6  |ob%=xob%+ady%...|
00003290  21 fd 20 79 6f 62 25 3c  31 20 80 20 79 6f 62 25  |!. yob%<1 . yob%|
000032a0  3e 2d 31 31 20 80 20 61  64 79 25 3c 3e 30 0d 1d  |>-11 . ady%<>0..|
000032b0  b0 0c f2 67 72 61 70 68  33 62 0d 1d ba 13 61 6e  |...graph3b....an|
000032c0  78 25 3d 78 6f 62 25 2a  32 36 2b 34 38 0d 1d c4  |x%=xob%*26+48...|
000032d0  14 61 6e 79 25 3d 32 34  32 2b 79 6f 62 25 2a 31  |.any%=242+yob%*1|
000032e0  33 0d 1d ce 31 f2 6d 69  6e 65 63 6f 6f 72 73 28  |3...1.minecoors(|
000032f0  32 31 2c 2d 31 31 2c 22  6d 69 78 25 2a 32 36 2b  |21,-11,"mix%*26+|
00003300  34 38 22 2c 22 32 34 32  2b 6d 69 79 25 2a 31 33  |48","242+miy%*13|
00003310  22 29 0d 1d d8 07 c9 20  33 0d 1d e2 05 f5 0d 1d  |")..... 3.......|
00003320  ec 11 61 64 79 25 3d b3  28 32 32 29 2d 31 31 0d  |..ady%=.(22)-11.|
00003330  1d f6 13 78 6f 62 25 3d  2d 28 b3 28 32 31 29 2d  |...xob%=-(.(21)-|
00003340  31 29 0d 1e 00 12 79 6f  62 25 3d 78 6f 62 25 2b  |1)....yob%=xob%+|
00003350  61 64 79 25 0d 1e 0a 21  fd 20 79 6f 62 25 3c 31  |ady%...!. yob%<1|
00003360  20 80 20 79 6f 62 25 3e  2d 31 31 20 80 20 61 64  | . yob%>-11 . ad|
00003370  79 25 3c 3e 30 0d 1e 14  0c f2 67 72 61 70 68 33  |y%<>0.....graph3|
00003380  63 0d 1e 1e 14 61 6e 78  25 3d 35 36 38 2b 78 6f  |c....anx%=568+xo|
00003390  62 25 2a 32 36 0d 1e 28  14 61 6e 79 25 3d 32 34  |b%*26..(.any%=24|
000033a0  32 2b 79 6f 62 25 2a 31  33 0d 1e 32 33 f2 6d 69  |2+yob%*13..23.mi|
000033b0  6e 65 63 6f 6f 72 73 28  2d 32 31 2c 2d 31 31 2c  |necoors(-21,-11,|
000033c0  22 35 36 38 2b 6d 69 78  25 2a 32 36 22 2c 22 32  |"568+mix%*26","2|
000033d0  34 32 2b 6d 69 79 25 2a  31 33 22 29 0d 1e 3c 07  |42+miy%*13")..<.|
000033e0  c9 20 34 0d 1e 46 05 f5  0d 1e 50 11 61 64 79 25  |. 4..F....P.ady%|
000033f0  3d b3 28 32 32 29 2d 31  31 0d 1e 5a 13 78 6f 62  |=.(22)-11..Z.xob|
00003400  25 3d 2d 28 b3 28 32 31  29 2d 31 29 0d 1e 64 12  |%=-(.(21)-1)..d.|
00003410  79 6f 62 25 3d 78 6f 62  25 2b 61 64 79 25 0d 1e  |yob%=xob%+ady%..|
00003420  6e 21 fd 20 79 6f 62 25  3e 2d 31 20 80 20 79 6f  |n!. yob%>-1 . yo|
00003430  62 25 3c 31 31 20 80 20  61 64 79 25 3c 3e 30 0d  |b%<11 . ady%<>0.|
00003440  1e 78 0c f2 67 72 61 70  68 33 64 0d 1e 82 14 61  |.x..graph3d....a|
00003450  6e 78 25 3d 35 36 38 2b  78 6f 62 25 2a 32 36 0d  |nx%=568+xob%*26.|
00003460  1e 8c 14 61 6e 79 25 3d  79 6f 62 25 2a 31 33 2b  |...any%=yob%*13+|
00003470  31 31 32 0d 1e 96 32 f2  6d 69 6e 65 63 6f 6f 72  |112...2.minecoor|
00003480  73 28 2d 32 31 2c 31 31  2c 22 35 36 38 2b 6d 69  |s(-21,11,"568+mi|
00003490  78 25 2a 32 36 22 2c 22  6d 69 79 25 2a 31 33 2b  |x%*26","miy%*13+|
000034a0  31 31 32 22 29 0d 1e a0  05 cb 0d 1e aa 10 78 78  |112").........xx|
000034b0  78 25 3d 61 6e 78 25 2b  31 36 0d 1e b4 0f 79 79  |x%=anx%+16....yy|
000034c0  79 25 3d 61 6e 79 25 2d  38 0d 1e be 7b e7 61 64  |y%=any%-8...{.ad|
000034d0  79 25 3c 30 20 61 24 3d  22 57 68 65 6e 20 78 3d  |y%<0 a$="When x=|
000034e0  22 2b c3 28 78 6f 62 25  29 2b 22 20 20 22 2b 6d  |"+.(xob%)+"  "+m|
000034f0  69 73 24 28 30 2c 4a 25  29 2b 22 20 61 74 20 79  |is$(0,J%)+" at y|
00003500  3d 78 22 2b c3 28 61 64  79 25 29 20 8b 61 24 3d  |=x"+.(ady%) .a$=|
00003510  22 57 68 65 6e 20 78 3d  22 2b c3 28 78 6f 62 25  |"When x="+.(xob%|
00003520  29 2b 22 20 20 22 2b 6d  69 73 24 28 30 2c 4a 25  |)+"  "+mis$(0,J%|
00003530  29 2b 22 20 61 74 20 79  3d 78 2b 22 2b c3 28 61  |)+" at y=x+"+.(a|
00003540  64 79 25 29 0d 1e c8 11  6a 24 3d 6d 69 73 24 28  |dy%)....j$=mis$(|
00003550  31 2c 4a 25 29 0d 1e d2  14 78 73 63 25 3d 33 32  |1,J%)....xsc%=32|
00003560  30 2d a9 28 61 24 29 2a  34 0d 1e dc 26 c8 99 22  |0-.(a$)*4...&.."|
00003570  41 42 43 5f 50 72 79 6e  74 53 74 72 69 6e 67 22  |ABC_PryntString"|
00003580  2c 61 24 2c 78 73 63 25  2c 32 36 2c 30 2c 37 0d  |,a$,xsc%,26,0,7.|
00003590  1e e6 28 c8 99 22 41 42  43 5f 50 72 79 6e 74 53  |..(.."ABC_PryntS|
000035a0  74 72 69 6e 67 22 2c 61  24 2c 78 73 63 25 2d 32  |tring",a$,xsc%-2|
000035b0  2c 32 37 2c 30 2c 30 0d  1e f0 0e f2 70 6c 61 63  |,27,0,0.....plac|
000035c0  65 28 6a 24 29 0d 1e fa  05 e1 0d 1f 04 0a dd f2  |e(j$)...........|
000035d0  66 69 76 65 0d 1f 0e 0b  f2 67 72 61 70 68 35 0d  |five.....graph5.|
000035e0  1f 18 0c f2 73 63 61 74  74 65 72 0d 1f 22 0d c8  |....scatter.."..|
000035f0  8e 20 73 75 62 25 20 ca  0d 1f 2c 1b c9 20 30 3a  |. sub% ...,.. 0:|
00003600  e7 b3 3e 30 20 f2 78 63  6f 6f 72 20 8b f2 79 63  |..>0 .xcoor ..yc|
00003610  6f 6f 72 0d 1f 36 0e c9  20 31 3a f2 78 63 6f 6f  |oor..6.. 1:.xcoo|
00003620  72 0d 1f 40 0e c9 20 32  3a f2 79 63 6f 6f 72 0d  |r..@.. 2:.ycoor.|
00003630  1f 4a 05 cb 0d 1f 54 0a  78 78 78 25 3d 30 0d 1f  |.J....T.xxx%=0..|
00003640  5e 0a 79 79 79 25 3d 30  0d 1f 68 05 e1 0d 1f 72  |^.yyy%=0..h....r|
00003650  0b dd f2 78 63 6f 6f 72  0d 1f 7c 0a 63 6f 72 25  |...xcoor..|.cor%|
00003660  3d b9 0d 1f 86 0a f7 20  8d 64 6e 60 0d 1f 90 0f  |=...... .dn`....|
00003670  e3 4a 25 3d 31 b8 20 b3  28 34 29 0d 1f 9a 08 f3  |.J%=1. .(4).....|
00003680  20 61 24 0d 1f a4 05 ed  0d 1f ae 05 f5 0d 1f b8  | a$.............|
00003690  11 78 65 31 25 3d b3 28  33 32 29 2d 31 36 0d 1f  |.xe1%=.(32)-16..|
000036a0  c2 11 78 65 32 25 3d b3  28 33 32 29 2d 31 36 0d  |..xe2%=.(32)-16.|
000036b0  1f cc 31 fd 20 78 65 31  25 3c 78 65 32 25 20 80  |..1. xe1%<xe2% .|
000036c0  20 94 28 78 65 31 25 2d  78 65 32 25 29 3e 33 20  | .(xe1%-xe2%)>3 |
000036d0  80 20 94 28 78 65 31 25  2d 78 65 32 25 29 3c 36  |. .(xe1%-xe2%)<6|
000036e0  0d 1f d6 0c 61 24 2b 3d  22 3a 20 22 0d 1f e0 14  |....a$+=": "....|
000036f0  78 73 63 25 3d 32 34 30  2d a9 28 61 24 29 2a 34  |xsc%=240-.(a$)*4|
00003700  0d 1f ea 26 c8 99 22 41  42 43 5f 50 72 79 6e 74  |...&.."ABC_Prynt|
00003710  53 74 72 69 6e 67 22 2c  61 24 2c 78 73 63 25 2c  |String",a$,xsc%,|
00003720  32 36 2c 30 2c 37 0d 1f  f4 28 c8 99 22 41 42 43  |26,0,7...(.."ABC|
00003730  5f 50 72 79 6e 74 53 74  72 69 6e 67 22 2c 61 24  |_PryntString",a$|
00003740  2c 78 73 63 25 2d 32 2c  32 37 2c 30 2c 30 0d 1f  |,xsc%-2,27,0,0..|
00003750  fe 11 78 73 63 25 2b 3d  a9 28 61 24 29 2a 38 0d  |..xsc%+=.(a$)*8.|
00003760  20 08 20 61 24 3d c3 28  78 65 31 25 29 2b 22 20  | . a$=.(xe1%)+" |
00003770  89 20 78 20 89 20 22 2b  c3 28 78 65 32 25 29 0d  |. x . "+.(xe2%).|
00003780  20 12 26 c8 99 22 41 42  43 5f 50 72 79 6e 74 53  | .&.."ABC_PryntS|
00003790  74 72 69 6e 67 22 2c 61  24 2c 78 73 63 25 2c 33  |tring",a$,xsc%,3|
000037a0  30 2c 31 2c 37 0d 20 1c  28 c8 99 22 41 42 43 5f  |0,1,7. .(.."ABC_|
000037b0  50 72 79 6e 74 53 74 72  69 6e 67 22 2c 61 24 2c  |PryntString",a$,|
000037c0  78 73 63 25 2d 32 2c 33  31 2c 31 2c 30 0d 20 26  |xsc%-2,31,1,0. &|
000037d0  05 e1 0d 20 30 0b dd f2  79 63 6f 6f 72 0d 20 3a  |... 0...ycoor. :|
000037e0  0a 63 6f 72 25 3d a3 0d  20 44 0a f7 20 8d 64 6e  |.cor%=.. D.. .dn|
000037f0  60 0d 20 4e 0f e3 4a 25  3d 31 b8 20 b3 28 34 29  |`. N..J%=1. .(4)|
00003800  0d 20 58 08 f3 20 61 24  0d 20 62 05 ed 0d 20 6c  |. X.. a$. b... l|
00003810  05 f5 0d 20 76 10 79 65  31 25 3d b3 28 31 38 29  |... v.ye1%=.(18)|
00003820  2d 39 0d 20 80 10 79 65  32 25 3d b3 28 31 38 29  |-9. ..ye2%=.(18)|
00003830  2d 39 0d 20 8a 31 fd 20  79 65 31 25 3c 79 65 32  |-9. .1. ye1%<ye2|
00003840  25 20 80 20 94 28 79 65  31 25 2d 79 65 32 25 29  |% . .(ye1%-ye2%)|
00003850  3e 33 20 80 20 94 28 79  65 31 25 2d 79 65 32 25  |>3 . .(ye1%-ye2%|
00003860  29 3c 36 0d 20 94 0c 61  24 2b 3d 22 3a 20 22 0d  |)<6. ..a$+=": ".|
00003870  20 9e 14 78 73 63 25 3d  32 34 30 2d a9 28 61 24  | ..xsc%=240-.(a$|
00003880  29 2a 34 0d 20 a8 26 c8  99 22 41 42 43 5f 50 72  |)*4. .&.."ABC_Pr|
00003890  79 6e 74 53 74 72 69 6e  67 22 2c 61 24 2c 78 73  |yntString",a$,xs|
000038a0  63 25 2c 32 36 2c 30 2c  37 0d 20 b2 28 c8 99 22  |c%,26,0,7. .(.."|
000038b0  41 42 43 5f 50 72 79 6e  74 53 74 72 69 6e 67 22  |ABC_PryntString"|
000038c0  2c 61 24 2c 78 73 63 25  2d 32 2c 32 37 2c 30 2c  |,a$,xsc%-2,27,0,|
000038d0  30 0d 20 bc 11 78 73 63  25 2b 3d a9 28 61 24 29  |0. ..xsc%+=.(a$)|
000038e0  2a 38 0d 20 c6 20 61 24  3d c3 28 79 65 31 25 29  |*8. . a$=.(ye1%)|
000038f0  2b 22 20 89 20 79 20 89  20 22 2b c3 28 79 65 32  |+" . y . "+.(ye2|
00003900  25 29 0d 20 d0 26 c8 99  22 41 42 43 5f 50 72 79  |%). .&.."ABC_Pry|
00003910  6e 74 53 74 72 69 6e 67  22 2c 61 24 2c 78 73 63  |ntString",a$,xsc|
00003920  25 2c 33 30 2c 31 2c 37  0d 20 da 28 c8 99 22 41  |%,30,1,7. .(.."A|
00003930  42 43 5f 50 72 79 6e 74  53 74 72 69 6e 67 22 2c  |BC_PryntString",|
00003940  61 24 2c 78 73 63 25 2d  32 2c 33 31 2c 31 2c 30  |a$,xsc%-2,31,1,0|
00003950  0d 20 e4 05 e1 0d 20 ee  37 dc 20 50 72 6f 63 65  |. .... .7. Proce|
00003960  65 64 20 74 6f 20 73 61  66 65 20 61 72 65 61 2c  |ed to safe area,|
00003970  4b 65 65 70 20 74 6f 20  74 68 65 20 66 6f 6c 6c  |Keep to the foll|
00003980  6f 77 69 6e 67 20 72 65  67 69 6f 6e 0d 20 f8 35  |owing region. .5|
00003990  dc 20 47 65 74 20 69 6e  20 74 68 69 73 20 72 65  |. Get in this re|
000039a0  67 69 6f 6e 20 6f 66 20  73 70 61 63 65 2c 53 61  |gion of space,Sa|
000039b0  66 65 20 72 65 67 69 6f  6e 20 6f 6e 6c 79 20 61  |fe region only a|
000039c0  74 0d 21 02 2c dc 20 53  70 61 63 65 20 70 69 72  |t.!.,. Space pir|
000039d0  61 74 65 73 20 69 6e 2c  44 65 61 64 6c 79 20 72  |ates in,Deadly r|
000039e0  61 64 69 61 74 69 6f 6e  20 61 72 65 61 0d 21 0c  |adiation area.!.|
000039f0  2f dc 20 45 6c 65 63 74  72 6f 6d 61 67 6e 65 74  |/. Electromagnet|
00003a00  69 63 20 73 74 6f 72 6d  20 61 74 2c 41 76 6f 69  |ic storm at,Avoi|
00003a10  64 20 73 75 70 65 72 20  6e 6f 76 61 0d 21 16 09  |d super nova.!..|
00003a20  dd f2 73 69 78 0d 21 20  0b f2 67 72 61 70 68 35  |..six.! ..graph5|
00003a30  0d 21 2a 0c f2 73 63 61  74 74 65 72 0d 21 34 0d  |.!*..scatter.!4.|
00003a40  c8 8e 20 73 75 62 25 20  ca 0d 21 3e 23 c9 20 30  |.. sub% ..!>#. 0|
00003a50  3a e7 b3 3e 30 20 f2 72  65 67 69 6f 6e 28 b9 29  |:..>0 .region(.)|
00003a60  20 8b f2 72 65 67 69 6f  6e 28 a3 29 0d 21 48 12  | ..region(.).!H.|
00003a70  c9 20 31 3a f2 72 65 67  69 6f 6e 28 b9 29 0d 21  |. 1:.region(.).!|
00003a80  52 12 c9 20 32 3a f2 72  65 67 69 6f 6e 28 a3 29  |R.. 2:.region(.)|
00003a90  0d 21 5c 05 cb 0d 21 66  0a 78 78 78 25 3d 30 0d  |.!\...!f.xxx%=0.|
00003aa0  21 70 0a 79 79 79 25 3d  30 0d 21 7a 05 e1 0d 21  |!p.yyy%=0.!z...!|
00003ab0  84 12 dd f2 72 65 67 69  6f 6e 28 76 61 6c 25 29  |....region(val%)|
00003ac0  0d 21 8e 0d 63 6f 72 25  3d 76 61 6c 25 0d 21 98  |.!..cor%=val%.!.|
00003ad0  18 e7 63 6f 72 25 20 f7  20 8d 64 6e 60 20 8b f7  |..cor% . .dn` ..|
00003ae0  20 8d 54 42 61 0d 21 a2  0f e3 4a 25 3d 31 b8 20  | .TBa.!...J%=1. |
00003af0  b3 28 34 29 0d 21 ac 08  f3 20 61 24 0d 21 b6 05  |.(4).!... a$.!..|
00003b00  ed 0d 21 c0 05 f5 0d 21  ca 11 78 65 31 25 3d b3  |..!....!..xe1%=.|
00003b10  28 34 31 29 2d 32 31 0d  21 d4 11 78 65 32 25 3d  |(41)-21.!..xe2%=|
00003b20  b3 28 34 31 29 2d 32 31  0d 21 de 34 fd 20 78 65  |.(41)-21.!.4. xe|
00003b30  31 25 3c 78 65 32 25 20  80 20 94 28 78 65 31 25  |1%<xe2% . .(xe1%|
00003b40  2d 78 65 32 25 29 3e 31  30 20 80 20 94 28 78 65  |-xe2%)>10 . .(xe|
00003b50  31 25 29 3c 3e 94 28 78  65 32 25 29 0d 21 e8 05  |1%)<>.(xe2%).!..|
00003b60  f5 0d 21 f2 11 79 65 31  25 3d b3 28 32 31 29 2d  |..!..ye1%=.(21)-|
00003b70  31 31 0d 21 fc 11 79 65  32 25 3d b3 28 32 31 29  |11.!..ye2%=.(21)|
00003b80  2d 31 31 0d 22 06 33 fd  20 79 65 31 25 3c 79 65  |-11.".3. ye1%<ye|
00003b90  32 25 20 80 20 94 28 79  65 31 25 2d 79 65 32 25  |2% . .(ye1%-ye2%|
00003ba0  29 3e 36 20 80 20 94 28  79 65 31 25 29 3c 3e 94  |)>6 . .(ye1%)<>.|
00003bb0  28 79 65 32 25 29 0d 22  10 0c 61 24 2b 3d 22 3a  |(ye2%)."..a$+=":|
00003bc0  20 22 0d 22 1a 14 78 73  63 25 3d 31 33 36 2d a9  | "."..xsc%=136-.|
00003bd0  28 61 24 29 2a 34 0d 22  24 26 c8 99 22 41 42 43  |(a$)*4."$&.."ABC|
00003be0  5f 50 72 79 6e 74 53 74  72 69 6e 67 22 2c 61 24  |_PryntString",a$|
00003bf0  2c 78 73 63 25 2c 32 36  2c 30 2c 37 0d 22 2e 28  |,xsc%,26,0,7.".(|
00003c00  c8 99 22 41 42 43 5f 50  72 79 6e 74 53 74 72 69  |.."ABC_PryntStri|
00003c10  6e 67 22 2c 61 24 2c 78  73 63 25 2d 32 2c 32 37  |ng",a$,xsc%-2,27|
00003c20  2c 30 2c 30 0d 22 38 11  78 73 63 25 2b 3d a9 28  |,0,0."8.xsc%+=.(|
00003c30  61 24 29 2a 38 0d 22 42  3b 61 24 3d c3 28 79 65  |a$)*8."B;a$=.(ye|
00003c40  31 25 29 2b 22 20 3c 79  3c 20 22 2b c3 28 79 65  |1%)+" <y< "+.(ye|
00003c50  32 25 29 2b 22 20 20 22  2b c3 28 78 65 31 25 29  |2%)+"  "+.(xe1%)|
00003c60  2b 22 20 3c 78 3c 20 22  2b c3 28 78 65 32 25 29  |+" <x< "+.(xe2%)|
00003c70  0d 22 4c 26 c8 99 22 41  42 43 5f 50 72 79 6e 74  |."L&.."ABC_Prynt|
00003c80  53 74 72 69 6e 67 22 2c  61 24 2c 78 73 63 25 2c  |String",a$,xsc%,|
00003c90  33 30 2c 31 2c 37 0d 22  56 28 c8 99 22 41 42 43  |30,1,7."V(.."ABC|
00003ca0  5f 50 72 79 6e 74 53 74  72 69 6e 67 22 2c 61 24  |_PryntString",a$|
00003cb0  2c 78 73 63 25 2d 32 2c  33 31 2c 31 2c 30 0d 22  |,xsc%-2,31,1,0."|
00003cc0  60 05 e1 0d 22 6a 0d dd  f2 73 63 61 74 74 65 72  |`..."j...scatter|
00003cd0  0d 22 74 0c 67 6c 69 25  28 29 3d b9 0d 22 7e 0b  |."t.gli%()=.."~.|
00003ce0  e3 4a 25 3d 31 b8 34 0d  22 88 18 67 6c 64 24 28  |.J%=1.4."..gld$(|
00003cf0  4a 25 29 3d 6f 62 6a 24  28 b3 28 31 32 29 29 0d  |J%)=obj$(.(12)).|
00003d00  22 92 05 f5 0d 22 9c 15  67 6c 78 25 28 4a 25 29  |"...."..glx%(J%)|
00003d10  3d b3 28 36 30 38 29 2d  31 0d 22 a6 16 67 6c 79  |=.(608)-1."..gly|
00003d20  25 28 4a 25 29 3d b3 28  31 36 30 29 2b 39 36 0d  |%(J%)=.(160)+96.|
00003d30  22 b0 30 fd 20 ac a4 63  72 61 66 74 28 32 34 30  |".0. ..craft(240|
00003d40  2c 31 34 34 2c 34 30 30  2c 31 39 32 2c 67 6c 78  |,144,400,192,glx|
00003d50  25 28 4a 25 29 2c 67 6c  79 25 28 4a 25 29 29 0d  |%(J%),gly%(J%)).|
00003d60  22 ba 05 ed 0d 22 c4 05  e1 0d 22 ce 0e dd f2 61  |"...."...."....a|
00003d70  73 73 65 6d 62 6c 65 0d  22 d8 10 de 20 63 64 65  |ssemble."... cde|
00003d80  25 20 26 45 30 30 30 0d  22 e2 1f c8 99 22 41 42  |% &E000."...."AB|
00003d90  43 5f 56 69 64 65 6f 41  64 64 72 65 73 73 22 20  |C_VideoAddress" |
00003da0  b8 20 76 69 64 25 0d 22  ec 0b 73 70 20 20 3d 31  |. vid%."..sp  =1|
00003db0  33 0d 22 f6 0b 6c 69 6e  6b 3d 31 34 0d 23 00 0b  |3."..link=14.#..|
00003dc0  70 63 20 20 3d 31 35 0d  23 0a 0d e3 41 25 3d 30  |pc  =15.#...A%=0|
00003dd0  b8 32 88 32 0d 23 14 0b  50 25 3d 63 64 65 25 0d  |.2.2.#..P%=cde%.|
00003de0  23 1e 0a 5b 4f 50 54 41  25 0d 23 28 0f 2e 53 63  |#..[OPTA%.#(..Sc|
00003df0  72 65 65 6e 53 61 76 65  0d 23 32 1b 41 44 52 20  |reenSave.#2.ADR |
00003e00  20 20 20 20 20 52 31 32  2c 73 61 76 65 73 63 72  |     R12,savescr|
00003e10  65 65 6e 0d 23 3c 17 4c  44 52 20 20 20 20 20 20  |een.#<.LDR      |
00003e20  52 31 31 2c 73 63 72 65  65 6e 0d 23 46 15 4d 4f  |R11,screen.#F.MO|
00003e30  56 20 20 20 20 20 20 52  31 30 2c 23 26 42 30 0d  |V      R10,#&B0.|
00003e40  23 50 11 2e 73 61 76 65  5f 61 6e 6f 74 68 65 72  |#P..save_another|
00003e50  0d 23 5a 13 4d 4f 56 20  20 20 20 20 20 52 39 2c  |.#Z.MOV      R9,|
00003e60  23 31 30 0d 23 64 0e 2e  73 61 76 65 5f 6c 69 6e  |#10.#d..save_lin|
00003e70  65 0d 23 6e 19 4c 44 4d  49 41 20 20 20 20 52 31  |e.#n.LDMIA    R1|
00003e80  31 21 2c 7b 52 30 2d 52  37 7d 0d 23 78 19 53 54  |1!,{R0-R7}.#x.ST|
00003e90  4d 49 41 20 20 20 20 52  31 32 21 2c 7b 52 30 2d  |MIA    R12!,{R0-|
00003ea0  52 37 7d 0d 23 82 16 53  55 42 53 20 20 20 20 20  |R7}.#..SUBS     |
00003eb0  52 39 2c 52 39 2c 23 26  31 0d 23 8c 16 42 4e 45  |R9,R9,#&1.#..BNE|
00003ec0  20 20 20 20 20 20 73 61  76 65 5f 6c 69 6e 65 0d  |      save_line.|
00003ed0  23 96 18 53 55 42 53 20  20 20 20 20 52 31 30 2c  |#..SUBS     R10,|
00003ee0  52 31 30 2c 23 26 31 0d  23 a0 19 42 4e 45 20 20  |R10,#&1.#..BNE  |
00003ef0  20 20 20 20 73 61 76 65  5f 61 6e 6f 74 68 65 72  |    save_another|
00003f00  0d 23 aa 14 4d 4f 56 20  20 20 20 20 20 70 63 2c  |.#..MOV      pc,|
00003f10  6c 69 6e 6b 0d 23 b4 12  2e 52 65 73 74 6f 72 65  |link.#...Restore|
00003f20  53 63 72 65 65 6e 0d 23  be 1b 41 44 52 20 20 20  |Screen.#..ADR   |
00003f30  20 20 20 52 31 32 2c 73  61 76 65 73 63 72 65 65  |   R12,savescree|
00003f40  6e 0d 23 c8 17 4c 44 52  20 20 20 20 20 20 52 31  |n.#..LDR      R1|
00003f50  31 2c 73 63 72 65 65 6e  0d 23 d2 15 4d 4f 56 20  |1,screen.#..MOV |
00003f60  20 20 20 20 20 52 31 30  2c 23 26 42 30 0d 23 dc  |     R10,#&B0.#.|
00003f70  14 2e 72 65 73 74 6f 72  65 5f 61 6e 6f 74 68 65  |..restore_anothe|
00003f80  72 0d 23 e6 13 4d 4f 56  20 20 20 20 20 20 52 39  |r.#..MOV      R9|
00003f90  2c 23 31 30 0d 23 f0 11  2e 72 65 73 74 6f 72 65  |,#10.#...restore|
00003fa0  5f 6c 69 6e 65 0d 23 fa  19 4c 44 4d 49 41 20 20  |_line.#..LDMIA  |
00003fb0  20 20 52 31 32 21 2c 7b  52 30 2d 52 37 7d 0d 24  |  R12!,{R0-R7}.$|
00003fc0  04 19 53 54 4d 49 41 20  20 20 20 52 31 31 21 2c  |..STMIA    R11!,|
00003fd0  7b 52 30 2d 52 37 7d 0d  24 0e 16 53 55 42 53 20  |{R0-R7}.$..SUBS |
00003fe0  20 20 20 20 52 39 2c 52  39 2c 23 26 31 0d 24 18  |    R9,R9,#&1.$.|
00003ff0  19 42 4e 45 20 20 20 20  20 20 72 65 73 74 6f 72  |.BNE      restor|
00004000  65 5f 6c 69 6e 65 0d 24  22 18 53 55 42 53 20 20  |e_line.$".SUBS  |
00004010  20 20 20 52 31 30 2c 52  31 30 2c 23 26 31 0d 24  |   R10,R10,#&1.$|
00004020  2c 1c 42 4e 45 20 20 20  20 20 20 72 65 73 74 6f  |,.BNE      resto|
00004030  72 65 5f 61 6e 6f 74 68  65 72 0d 24 36 14 4d 4f  |re_another.$6.MO|
00004040  56 20 20 20 20 20 20 70  63 2c 6c 69 6e 6b 0d 24  |V      pc,link.$|
00004050  40 0d 2e 41 73 74 65 72  6f 69 64 0d 24 4a 14 4c  |@..Asteroid.$J.L|
00004060  44 52 20 20 20 20 20 20  52 32 2c 5b 52 39 5d 0d  |DR      R2,[R9].|
00004070  24 54 14 4c 44 52 20 20  20 20 20 20 52 32 2c 5b  |$T.LDR      R2,[|
00004080  52 32 5d 0d 24 5e 18 4c  44 52 20 20 20 20 20 20  |R2].$^.LDR      |
00004090  52 31 2c 5b 52 39 2c 23  26 38 5d 0d 24 68 14 4c  |R1,[R9,#&8].$h.L|
000040a0  44 52 20 20 20 20 20 20  52 31 2c 5b 52 31 5d 0d  |DR      R1,[R1].|
000040b0  24 72 1b 41 44 52 20 20  20 20 20 20 52 31 32 2c  |$r.ADR      R12,|
000040c0  73 61 76 65 73 63 72 65  65 6e 0d 24 7c 17 4c 44  |savescreen.$|.LD|
000040d0  52 20 20 20 20 20 20 52  31 31 2c 73 63 72 65 65  |R      R11,scree|
000040e0  6e 0d 24 86 18 52 53 42  20 20 20 20 20 20 52 32  |n.$..RSB      R2|
000040f0  2c 52 32 2c 23 26 31 30  30 0d 24 90 1b 41 44 44  |,R2,#&100.$..ADD|
00004100  20 20 20 20 20 20 52 32  2c 52 32 2c 52 32 2c 4c  |      R2,R2,R2,L|
00004110  53 4c 23 32 0d 24 9a 18  4d 4f 56 20 20 20 20 20  |SL#2.$..MOV     |
00004120  20 52 32 2c 52 32 2c 4c  53 4c 23 36 0d 24 a4 1b  | R2,R2,LSL#6.$..|
00004130  41 44 44 20 20 20 20 20  20 52 32 2c 52 32 2c 52  |ADD      R2,R2,R|
00004140  31 2c 41 53 52 23 31 0d  24 ae 14 54 53 54 20 20  |1,ASR#1.$..TST  |
00004150  20 20 20 20 52 32 2c 23  25 31 31 0d 24 b8 17 41  |    R2,#%11.$..A|
00004160  44 44 20 20 20 20 20 20  52 31 32 2c 52 31 32 2c  |DD      R12,R12,|
00004170  52 32 0d 24 c2 17 41 44  44 20 20 20 20 20 20 52  |R2.$..ADD      R|
00004180  31 31 2c 52 31 31 2c 52  32 0d 24 cc 14 4d 4f 56  |11,R11,R2.$..MOV|
00004190  20 20 20 20 20 20 52 31  30 2c 23 26 38 0d 24 d6  |      R10,#&8.$.|
000041a0  15 2e 72 65 73 74 6f 72  65 5f 61 73 74 65 72 6f  |..restore_astero|
000041b0  69 64 0d 24 e0 18 4c 44  4d 49 41 20 20 20 20 52  |id.$..LDMIA    R|
000041c0  31 32 2c 7b 52 30 2d 52  32 7d 0d 24 ea 18 53 54  |12,{R0-R2}.$..ST|
000041d0  4d 49 41 20 20 20 20 52  31 31 2c 7b 52 30 2d 52  |MIA    R11,{R0-R|
000041e0  32 7d 0d 24 f4 1a 41 44  44 20 20 20 20 20 20 52  |2}.$..ADD      R|
000041f0  31 31 2c 52 31 31 2c 23  26 31 34 30 0d 24 fe 1a  |11,R11,#&140.$..|
00004200  41 44 44 20 20 20 20 20  20 52 31 32 2c 52 31 32  |ADD      R12,R12|
00004210  2c 23 26 31 34 30 0d 25  08 18 53 55 42 53 20 20  |,#&140.%..SUBS  |
00004220  20 20 20 52 31 30 2c 52  31 30 2c 23 26 31 0d 25  |   R10,R10,#&1.%|
00004230  12 1d 42 4e 45 20 20 20  20 20 20 72 65 73 74 6f  |..BNE      resto|
00004240  72 65 5f 61 73 74 65 72  6f 69 64 0d 25 1c 14 4d  |re_asteroid.%..M|
00004250  4f 56 20 20 20 20 20 20  70 63 2c 6c 69 6e 6b 0d  |OV      pc,link.|
00004260  25 26 09 2e 53 68 69 70  0d 25 30 14 4c 44 52 20  |%&..Ship.%0.LDR |
00004270  20 20 20 20 20 52 33 2c  5b 52 39 5d 0d 25 3a 14  |     R3,[R9].%:.|
00004280  4c 44 52 20 20 20 20 20  20 52 33 2c 5b 52 33 5d  |LDR      R3,[R3]|
00004290  0d 25 44 18 4c 44 52 20  20 20 20 20 20 52 32 2c  |.%D.LDR      R2,|
000042a0  5b 52 39 2c 23 26 38 5d  0d 25 4e 14 4c 44 52 20  |[R9,#&8].%N.LDR |
000042b0  20 20 20 20 20 52 32 2c  5b 52 32 5d 0d 25 58 19  |     R2,[R2].%X.|
000042c0  4c 44 52 20 20 20 20 20  20 52 31 2c 5b 52 39 2c  |LDR      R1,[R9,|
000042d0  23 26 31 30 5d 0d 25 62  14 4c 44 52 20 20 20 20  |#&10].%b.LDR    |
000042e0  20 20 52 31 2c 5b 52 31  5d 0d 25 6c 19 4c 44 52  |  R1,[R1].%l.LDR|
000042f0  20 20 20 20 20 20 52 30  2c 5b 52 39 2c 23 26 31  |      R0,[R9,#&1|
00004300  38 5d 0d 25 76 14 4c 44  52 20 20 20 20 20 20 52  |8].%v.LDR      R|
00004310  30 2c 5b 52 30 5d 0d 25  80 19 53 54 4d 46 44 20  |0,[R0].%..STMFD |
00004320  20 20 20 73 70 20 21 2c  7b 52 30 2d 52 33 7d 0d  |   sp !,{R0-R3}.|
00004330  25 8a 13 4d 4f 56 20 20  20 20 20 20 52 30 2c 23  |%..MOV      R0,#|
00004340  31 39 0d 25 94 17 53 57  49 20 20 20 20 20 20 22  |19.%..SWI      "|
00004350  58 4f 53 5f 42 79 74 65  22 0d 25 9e 19 4c 44 4d  |XOS_Byte".%..LDM|
00004360  46 44 20 20 20 20 73 70  20 21 2c 7b 52 31 2c 52  |FD    sp !,{R1,R|
00004370  32 7d 0d 25 a8 1b 41 44  52 20 20 20 20 20 20 52  |2}.%..ADR      R|
00004380  31 32 2c 73 61 76 65 73  63 72 65 65 6e 0d 25 b2  |12,savescreen.%.|
00004390  17 4c 44 52 20 20 20 20  20 20 52 31 31 2c 73 63  |.LDR      R11,sc|
000043a0  72 65 65 6e 0d 25 bc 18  52 53 42 20 20 20 20 20  |reen.%..RSB     |
000043b0  20 52 32 2c 52 32 2c 23  26 31 30 30 0d 25 c6 1b  | R2,R2,#&100.%..|
000043c0  41 44 44 20 20 20 20 20  20 52 32 2c 52 32 2c 52  |ADD      R2,R2,R|
000043d0  32 2c 4c 53 4c 23 32 0d  25 d0 18 4d 4f 56 20 20  |2,LSL#2.%..MOV  |
000043e0  20 20 20 20 52 32 2c 52  32 2c 4c 53 4c 23 36 0d  |    R2,R2,LSL#6.|
000043f0  25 da 1b 41 44 44 20 20  20 20 20 20 52 32 2c 52  |%..ADD      R2,R|
00004400  32 2c 52 31 2c 41 53 52  23 31 0d 25 e4 14 54 53  |2,R1,ASR#1.%..TS|
00004410  54 20 20 20 20 20 20 52  32 2c 23 25 31 31 0d 25  |T      R2,#%11.%|
00004420  ee 17 41 44 44 20 20 20  20 20 20 52 31 32 2c 52  |..ADD      R12,R|
00004430  31 32 2c 52 32 0d 25 f8  17 41 44 44 20 20 20 20  |12,R2.%..ADD    |
00004440  20 20 52 31 31 2c 52 31  31 2c 52 32 0d 26 02 15  |  R11,R11,R2.&..|
00004450  4d 4f 56 20 20 20 20 20  20 52 31 30 2c 23 26 31  |MOV      R10,#&1|
00004460  38 0d 26 0c 11 2e 72 65  73 74 6f 72 65 5f 73 68  |8.&...restore_sh|
00004470  69 70 0d 26 16 18 4c 44  4d 49 41 20 20 20 20 52  |ip.&..LDMIA    R|
00004480  31 32 2c 7b 52 30 2d 52  38 7d 0d 26 20 18 53 54  |12,{R0-R8}.& .ST|
00004490  4d 49 41 20 20 20 20 52  31 31 2c 7b 52 30 2d 52  |MIA    R11,{R0-R|
000044a0  38 7d 0d 26 2a 1a 41 44  44 20 20 20 20 20 20 52  |8}.&*.ADD      R|
000044b0  31 31 2c 52 31 31 2c 23  26 31 34 30 0d 26 34 1a  |11,R11,#&140.&4.|
000044c0  41 44 44 20 20 20 20 20  20 52 31 32 2c 52 31 32  |ADD      R12,R12|
000044d0  2c 23 26 31 34 30 0d 26  3e 18 53 55 42 53 20 20  |,#&140.&>.SUBS  |
000044e0  20 20 20 52 31 30 2c 52  31 30 2c 23 26 31 0d 26  |   R10,R10,#&1.&|
000044f0  48 19 42 4e 45 20 20 20  20 20 20 72 65 73 74 6f  |H.BNE      resto|
00004500  72 65 5f 73 68 69 70 0d  26 52 1b 4c 44 52 20 20  |re_ship.&R.LDR  |
00004510  20 20 20 20 52 30 2c 73  70 72 69 74 65 5f 62 61  |    R0,sprite_ba|
00004520  6e 6b 0d 26 5c 1b 41 44  52 20 20 20 20 20 20 52  |nk.&\.ADR      R|
00004530  31 2c 73 70 72 69 74 65  5f 6e 61 6d 65 0d 26 66  |1,sprite_name.&f|
00004540  19 4c 44 4d 46 44 20 20  20 20 73 70 20 21 2c 7b  |.LDMFD    sp !,{|
00004550  52 32 2c 52 33 7d 0d 26  70 19 53 57 49 20 20 20  |R2,R3}.&p.SWI   |
00004560  20 20 20 22 41 42 43 5f  53 70 72 69 74 65 22 0d  |   "ABC_Sprite".|
00004570  26 7a 14 4d 4f 56 20 20  20 20 20 20 70 63 2c 6c  |&z.MOV      pc,l|
00004580  69 6e 6b 0d 26 84 0b 2e  4f 62 6a 65 63 74 0d 26  |ink.&...Object.&|
00004590  8e 14 4c 44 52 20 20 20  20 20 20 52 32 2c 5b 52  |..LDR      R2,[R|
000045a0  39 5d 0d 26 98 14 4c 44  52 20 20 20 20 20 20 52  |9].&..LDR      R|
000045b0  32 2c 5b 52 32 5d 0d 26  a2 18 4c 44 52 20 20 20  |2,[R2].&..LDR   |
000045c0  20 20 20 52 31 2c 5b 52  39 2c 23 26 38 5d 0d 26  |   R1,[R9,#&8].&|
000045d0  ac 14 4c 44 52 20 20 20  20 20 20 52 31 2c 5b 52  |..LDR      R1,[R|
000045e0  31 5d 0d 26 b6 1b 41 44  52 20 20 20 20 20 20 52  |1].&..ADR      R|
000045f0  31 32 2c 73 61 76 65 73  63 72 65 65 6e 0d 26 c0  |12,savescreen.&.|
00004600  17 4c 44 52 20 20 20 20  20 20 52 31 31 2c 73 63  |.LDR      R11,sc|
00004610  72 65 65 6e 0d 26 ca 18  52 53 42 20 20 20 20 20  |reen.&..RSB     |
00004620  20 52 32 2c 52 32 2c 23  26 31 30 30 0d 26 d4 1b  | R2,R2,#&100.&..|
00004630  41 44 44 20 20 20 20 20  20 52 32 2c 52 32 2c 52  |ADD      R2,R2,R|
00004640  32 2c 4c 53 4c 23 32 0d  26 de 18 4d 4f 56 20 20  |2,LSL#2.&..MOV  |
00004650  20 20 20 20 52 32 2c 52  32 2c 4c 53 4c 23 36 0d  |    R2,R2,LSL#6.|
00004660  26 e8 1b 41 44 44 20 20  20 20 20 20 52 32 2c 52  |&..ADD      R2,R|
00004670  32 2c 52 31 2c 41 53 52  23 31 0d 26 f2 14 54 53  |2,R1,ASR#1.&..TS|
00004680  54 20 20 20 20 20 20 52  32 2c 23 25 31 31 0d 26  |T      R2,#%11.&|
00004690  fc 17 41 44 44 20 20 20  20 20 20 52 31 32 2c 52  |..ADD      R12,R|
000046a0  31 32 2c 52 32 0d 27 06  17 41 44 44 20 20 20 20  |12,R2.'..ADD    |
000046b0  20 20 52 31 31 2c 52 31  31 2c 52 32 0d 27 10 15  |  R11,R11,R2.'..|
000046c0  4d 4f 56 20 20 20 20 20  20 52 31 30 2c 23 26 31  |MOV      R10,#&1|
000046d0  30 0d 27 1a 13 2e 72 65  73 74 6f 72 65 5f 6f 62  |0.'...restore_ob|
000046e0  6a 65 63 74 0d 27 24 18  4c 44 4d 49 41 20 20 20  |ject.'$.LDMIA   |
000046f0  20 52 31 32 2c 7b 52 30  2d 52 34 7d 0d 27 2e 18  | R12,{R0-R4}.'..|
00004700  53 54 4d 49 41 20 20 20  20 52 31 31 2c 7b 52 30  |STMIA    R11,{R0|
00004710  2d 52 34 7d 0d 27 38 1a  41 44 44 20 20 20 20 20  |-R4}.'8.ADD     |
00004720  20 52 31 31 2c 52 31 31  2c 23 26 31 34 30 0d 27  | R11,R11,#&140.'|
00004730  42 1a 41 44 44 20 20 20  20 20 20 52 31 32 2c 52  |B.ADD      R12,R|
00004740  31 32 2c 23 26 31 34 30  0d 27 4c 18 53 55 42 53  |12,#&140.'L.SUBS|
00004750  20 20 20 20 20 52 31 30  2c 52 31 30 2c 23 26 31  |     R10,R10,#&1|
00004760  0d 27 56 1b 42 4e 45 20  20 20 20 20 20 72 65 73  |.'V.BNE      res|
00004770  74 6f 72 65 5f 6f 62 6a  65 63 74 0d 27 60 14 4d  |tore_object.'`.M|
00004780  4f 56 20 20 20 20 20 20  70 63 2c 6c 69 6e 6b 0d  |OV      pc,link.|
00004790  27 6a 0b 2e 73 63 72 65  65 6e 0d 27 74 0d 45 51  |'j..screen.'t.EQ|
000047a0  55 44 20 76 69 64 25 0d  27 7e 10 2e 73 70 72 69  |UD vid%.'~..spri|
000047b0  74 65 5f 62 61 6e 6b 0d  27 88 0b 45 51 55 44 20  |te_bank.'..EQUD |
000047c0  62 25 0d 27 92 10 2e 73  70 72 69 74 65 5f 6e 61  |b%.'...sprite_na|
000047d0  6d 65 0d 27 9c 0b 45 51  55 44 20 26 30 0d 27 a6  |me.'..EQUD &0.'.|
000047e0  0f 2e 73 61 76 65 73 63  72 65 65 6e 0d 27 b0 05  |..savescreen.'..|
000047f0  5d 0d 27 ba 05 ed 0d 27  c4 05 e1 0d 27 ce 14 dd  |].'....'....'...|
00004800  f2 70 6c 61 63 65 61 73  74 65 72 6f 69 64 73 0d  |.placeasteroids.|
00004810  27 d8 0d e7 61 73 74 25  3d 30 3a e1 0d 27 e2 0f  |'...ast%=0:..'..|
00004820  e3 41 25 3d 31 b8 20 61  73 74 25 0d 27 ec 05 f5  |.A%=1. ast%.'...|
00004830  0d 27 f6 0d 42 25 3d b3  28 36 30 30 29 0d 28 00  |.'..B%=.(600).(.|
00004840  10 43 25 3d b3 28 31 36  30 29 2b 38 38 0d 28 0a  |.C%=.(160)+88.(.|
00004850  24 fd 20 ac a4 63 72 61  66 74 28 32 34 30 2c 31  |$. ..craft(240,1|
00004860  34 34 2c 34 30 30 2c 31  39 32 2c 42 25 2c 43 25  |44,400,192,B%,C%|
00004870  29 0d 28 14 0e 61 73 78  28 41 25 29 3d 42 25 0d  |).(..asx(A%)=B%.|
00004880  28 1e 0e 61 73 79 28 41  25 29 3d 43 25 0d 28 28  |(..asy(A%)=C%.((|
00004890  13 61 73 69 25 28 41 25  29 3d b3 28 34 29 2d 31  |.asi%(A%)=.(4)-1|
000048a0  0d 28 32 2f c8 99 22 41  42 43 5f 53 70 72 69 74  |.(2/.."ABC_Sprit|
000048b0  65 22 2c 62 25 2c 22 61  73 74 65 72 22 2b c3 28  |e",b%,"aster"+.(|
000048c0  61 73 69 25 28 41 25 29  29 2c 42 25 2c 43 25 0d  |asi%(A%)),B%,C%.|
000048d0  28 3c 05 f5 0d 28 46 13  76 78 28 41 25 29 3d b3  |(<...(F.vx(A%)=.|
000048e0  28 31 29 2a 34 2d 32 0d  28 50 13 76 79 28 41 25  |(1)*4-2.(P.vy(A%|
000048f0  29 3d b3 28 31 29 2a 34  2d 32 0d 28 5a 1f fd 20  |)=.(1)*4-2.(Z.. |
00004900  94 28 76 78 28 41 25 29  29 3e 31 20 80 20 94 28  |.(vx(A%))>1 . .(|
00004910  76 79 28 41 25 29 29 3e  31 0d 28 64 05 ed 0d 28  |vy(A%))>1.(d...(|
00004920  6e 05 e1 0d 28 78 26 dd  a4 63 72 61 66 74 28 78  |n...(x&..craft(x|
00004930  31 25 2c 79 31 25 2c 78  32 25 2c 79 32 25 2c 78  |1%,y1%,x2%,y2%,x|
00004940  73 63 25 2c 79 73 63 25  29 0d 28 82 1b e7 78 73  |sc%,ysc%).(...xs|
00004950  63 25 3c 78 31 25 20 84  20 78 73 63 25 3e 78 32  |c%<x1% . xsc%>x2|
00004960  25 3a 3d a3 0d 28 8c 1b  e7 79 73 63 25 3c 79 31  |%:=..(...ysc%<y1|
00004970  25 20 84 20 79 73 63 25  3e 79 32 25 3a 3d a3 0d  |% . ysc%>y2%:=..|
00004980  28 96 06 3d b9 0d 28 a0  10 dd f2 70 6c 61 63 65  |(..=..(....place|
00004990  63 72 61 66 74 0d 28 aa  0a 65 78 70 25 3d a3 0d  |craft.(..exp%=..|
000049a0  28 b4 0a 66 69 6e 25 3d  a3 0d 28 be 0d 72 6f 6b  |(..fin%=..(..rok|
000049b0  25 3d 61 73 74 25 0d 28  c8 0c 73 61 78 25 3d 32  |%=ast%.(..sax%=2|
000049c0  38 38 0d 28 d2 0c 73 61  79 25 3d 31 38 30 0d 28  |88.(..say%=180.(|
000049d0  dc 0a 74 72 79 25 3d 30  0d 28 e6 0a 76 6f 78 25  |..try%=0.(..vox%|
000049e0  3d 30 0d 28 f0 0a 76 6f  79 25 3d 30 0d 28 fa 13  |=0.(..voy%=0.(..|
000049f0  24 73 70 72 69 74 65 5f  6e 61 6d 65 3d 67 24 0d  |$sprite_name=g$.|
00004a00  29 04 22 c8 99 22 41 42  43 5f 53 70 72 69 74 65  |).".."ABC_Sprite|
00004a10  22 2c 62 25 2c 67 24 2c  73 61 78 25 2c 73 61 79  |",b%,g$,sax%,say|
00004a20  25 0d 29 0e 0a f2 66 6c  75 73 68 0d 29 18 10 c8  |%.)...flush.)...|
00004a30  97 20 b8 20 36 34 30 2c  35 31 32 0d 29 22 05 e1  |. . 640,512.)"..|
00004a40  0d 29 2c 0f dd f2 61 73  74 65 72 6f 69 64 73 0d  |.),...asteroids.|
00004a50  29 36 10 e7 72 6f 6b 25  3d 30 3a c8 96 3a e1 0d  |)6..rok%=0:..:..|
00004a60  29 40 0f e3 41 25 3d 31  b8 20 72 6f 6b 25 0d 29  |)@..A%=1. rok%.)|
00004a70  4a 10 6f 6c 78 25 3d 61  73 78 28 41 25 29 0d 29  |J.olx%=asx(A%).)|
00004a80  54 10 6f 6c 79 25 3d 61  73 79 28 41 25 29 0d 29  |T.oly%=asy(A%).)|
00004a90  5e 13 61 73 78 28 41 25  29 2b 3d 76 78 28 41 25  |^.asx(A%)+=vx(A%|
00004aa0  29 0d 29 68 13 61 73 79  28 41 25 29 2b 3d 76 79  |).)h.asy(A%)+=vy|
00004ab0  28 41 25 29 0d 29 72 27  e7 61 73 78 28 41 25 29  |(A%).)r'.asx(A%)|
00004ac0  3c 2d 33 32 3a 61 73 78  28 41 25 29 3d 36 30 38  |<-32:asx(A%)=608|
00004ad0  3a 61 73 79 28 41 25 29  2b 3d 31 0d 29 7c 25 e7  |:asy(A%)+=1.)|%.|
00004ae0  61 73 78 28 41 25 29 3e  36 34 30 3a 61 73 78 28  |asx(A%)>640:asx(|
00004af0  41 25 29 3d 30 3a 61 73  79 28 41 25 29 2d 3d 31  |A%)=0:asy(A%)-=1|
00004b00  0d 29 86 1b e7 61 73 79  28 41 25 29 3e 32 35 36  |.)...asy(A%)>256|
00004b10  3a 61 73 79 28 41 25 29  3d 38 38 0d 29 90 1b e7  |:asy(A%)=88.)...|
00004b20  61 73 79 28 41 25 29 3c  38 38 3a 61 73 79 28 41  |asy(A%)<88:asy(A|
00004b30  25 29 3d 32 35 35 0d 29  9a 1b 61 73 69 25 28 41  |%)=255.)..asi%(A|
00004b40  25 29 3d 28 61 73 69 25  28 41 25 29 2b 31 29 80  |%)=(asi%(A%)+1).|
00004b50  33 0d 29 a4 1a d6 20 41  73 74 65 72 6f 69 64 2c  |3.)... Asteroid,|
00004b60  20 6f 6c 78 25 2c 20 6f  6c 79 25 0d 29 ae 39 c8  | olx%, oly%.).9.|
00004b70  99 22 41 42 43 5f 53 70  72 69 74 65 22 2c 62 25  |."ABC_Sprite",b%|
00004b80  2c 22 61 73 74 65 72 22  2b c3 28 61 73 69 25 28  |,"aster"+.(asi%(|
00004b90  41 25 29 29 2c 61 73 78  28 41 25 29 2c 61 73 79  |A%)),asx(A%),asy|
00004ba0  28 41 25 29 0d 29 b8 05  ed 0d 29 c2 05 e1 0d 29  |(A%).)....)....)|
00004bb0  cc 24 dd a4 68 69 74 28  78 31 25 2c 79 31 25 2c  |.$..hit(x1%,y1%,|
00004bc0  78 32 25 2c 79 32 25 2c  78 73 63 25 2c 79 73 63  |x2%,y2%,xsc%,ysc|
00004bd0  25 29 0d 29 d6 1b e7 78  73 63 25 3c 78 31 25 20  |%).)...xsc%<x1% |
00004be0  84 20 78 73 63 25 3e 78  32 25 3a 3d a3 0d 29 e0  |. xsc%>x2%:=..).|
00004bf0  1b e7 79 73 63 25 3c 79  31 25 20 84 20 79 73 63  |..ysc%<y1% . ysc|
00004c00  25 3e 79 32 25 3a 3d a3  0d 29 ea 06 3d b9 0d 29  |%>y2%:=..)..=..)|
00004c10  f4 0a dd f2 73 68 69 70  0d 29 fe 15 c8 97 20 6d  |....ship.).... m|
00004c20  6f 78 25 2c 6d 6f 79 25  2c 62 75 74 25 0d 2a 08  |ox%,moy%,but%.*.|
00004c30  0d 6f 6c 78 25 3d 73 61  78 25 0d 2a 12 0d 6f 6c  |.olx%=sax%.*..ol|
00004c40  79 25 3d 73 61 79 25 0d  2a 1c 15 e7 6d 6f 78 25  |y%=say%.*...mox%|
00004c50  3e 36 34 38 3a 76 6f 78  25 2b 3d 34 0d 2a 26 15  |>648:vox%+=4.*&.|
00004c60  e7 6d 6f 78 25 3c 36 33  32 3a 76 6f 78 25 2d 3d  |.mox%<632:vox%-=|
00004c70  34 0d 2a 30 15 e7 6d 6f  79 25 3e 35 32 34 3a 76  |4.*0..moy%>524:v|
00004c80  6f 79 25 2b 3d 32 0d 2a  3a 15 e7 6d 6f 79 25 3c  |oy%+=2.*:..moy%<|
00004c90  35 30 30 3a 76 6f 79 25  2d 3d 32 0d 2a 44 0e 73  |500:voy%-=2.*D.s|
00004ca0  61 78 25 2b 3d 76 6f 78  25 0d 2a 4e 0e 73 61 79  |ax%+=vox%.*N.say|
00004cb0  25 2b 3d 76 6f 79 25 0d  2a 58 13 e7 76 6f 78 25  |%+=voy%.*X..vox%|
00004cc0  3e 30 3a 76 6f 78 25 2d  3d 31 0d 2a 62 13 e7 76  |>0:vox%-=1.*b..v|
00004cd0  6f 78 25 3c 30 3a 76 6f  78 25 2b 3d 31 0d 2a 6c  |ox%<0:vox%+=1.*l|
00004ce0  13 e7 76 6f 79 25 3e 30  3a 76 6f 79 25 2d 3d 31  |..voy%>0:voy%-=1|
00004cf0  0d 2a 76 13 e7 76 6f 79  25 3c 30 3a 76 6f 79 25  |.*v..voy%<0:voy%|
00004d00  2b 3d 31 0d 2a 80 12 e7  73 61 78 25 3c 30 3a 73  |+=1.*...sax%<0:s|
00004d10  61 78 25 3d 30 0d 2a 8a  16 e7 73 61 78 25 3e 35  |ax%=0.*...sax%>5|
00004d20  37 36 3a 73 61 78 25 3d  35 37 36 0d 2a 94 16 e7  |76:sax%=576.*...|
00004d30  73 61 79 25 3c 31 30 34  3a 73 61 79 25 3d 31 30  |say%<104:say%=10|
00004d40  34 0d 2a 9e 16 e7 73 61  79 25 3e 32 35 36 3a 73  |4.*...say%>256:s|
00004d50  61 79 25 3d 32 35 36 0d  2a a8 22 d6 20 53 68 69  |ay%=256.*.". Shi|
00004d60  70 2c 20 6f 6c 78 25 2c  20 6f 6c 79 25 2c 20 73  |p, olx%, oly%, s|
00004d70  61 78 25 2c 20 73 61 79  25 0d 2a b2 10 c8 97 20  |ax%, say%.*.... |
00004d80  b8 20 36 34 30 2c 35 31  32 0d 2a bc 05 e1 0d 2a  |. 640,512.*....*|
00004d90  c6 0d dd f2 63 6f 6c 6c  69 64 65 0d 2a d0 0d e7  |....collide.*...|
00004da0  72 6f 6b 25 3d 30 3a e1  0d 2a da 0f e3 41 25 3d  |rok%=0:..*...A%=|
00004db0  31 b8 20 72 6f 6b 25 0d  2a e4 54 e7 a4 68 69 74  |1. rok%.*.T..hit|
00004dc0  28 73 61 78 25 2c 73 61  79 25 2d 32 34 2c 73 61  |(sax%,say%-24,sa|
00004dd0  78 25 2b 36 34 2c 73 61  79 25 2c 61 73 78 28 41  |x%+64,say%,asx(A|
00004de0  25 29 2b 38 2c 61 73 79  28 41 25 29 2d 34 29 3a  |%)+8,asy(A%)-4):|
00004df0  f2 65 78 70 6c 6f 64 65  28 61 73 78 28 41 25 29  |.explode(asx(A%)|
00004e00  2c 61 73 79 28 41 25 29  2c b9 29 0d 2a ee 05 ed  |,asy(A%),.).*...|
00004e10  0d 2a f8 05 e1 0d 2b 02  19 dd f2 65 78 70 6c 6f  |.*....+....explo|
00004e20  64 65 28 42 25 2c 43 25  2c 77 69 70 25 29 0d 2b  |de(B%,C%,wip%).+|
00004e30  0c 0b e7 77 69 70 25 20  8c 0d 2b 16 16 d6 20 41  |...wip% ..+... A|
00004e40  73 74 65 72 6f 69 64 2c  20 42 25 2c 20 43 25 0d  |steroid, B%, C%.|
00004e50  2b 20 15 61 73 78 28 41  25 29 3d 61 73 78 28 72  |+ .asx(A%)=asx(r|
00004e60  6f 6b 25 29 0d 2b 2a 15  61 73 79 28 41 25 29 3d  |ok%).+*.asy(A%)=|
00004e70  61 73 79 28 72 6f 6b 25  29 0d 2b 34 17 61 73 69  |asy(rok%).+4.asi|
00004e80  25 28 41 25 29 3d 61 73  69 25 28 72 6f 6b 25 29  |%(A%)=asi%(rok%)|
00004e90  0d 2b 3e 0b 72 6f 6b 25  2d 3d 31 0d 2b 48 05 cd  |.+>.rok%-=1.+H..|
00004ea0  0d 2b 52 0a 65 78 70 25  3d b9 0d 2b 5c 0a 66 69  |.+R.exp%=..+\.fi|
00004eb0  6e 25 3d b9 0d 2b 66 0a  66 6f 63 25 3d b9 0d 2b  |n%=..+f.foc%=..+|
00004ec0  70 0a 73 75 63 25 3d a3  0d 2b 7a 19 ef 20 32 34  |p.suc%=..+z.. 24|
00004ed0  2c 30 3b 33 32 30 3b 31  32 37 38 3b 31 30 32 30  |,0;320;1278;1020|
00004ee0  3b 0d 2b 84 2f f2 6e 6f  69 73 65 28 22 50 65 72  |;.+./.noise("Per|
00004ef0  63 75 73 73 69 6f 6e 2d  53 6e 61 72 65 22 2c 33  |cussion-Snare",3|
00004f00  2c 26 31 37 46 2c 26 31  30 30 30 2c 26 32 34 29  |,&17F,&1000,&24)|
00004f10  0d 2b 8e 0c e3 4a 25 3d  31 b8 32 30 0d 2b 98 0b  |.+...J%=1.20.+..|
00004f20  e3 4b 25 3d 31 b8 34 0d  2b a2 0a e6 20 30 2c 31  |.K%=1.4.+... 0,1|
00004f30  34 0d 2b ac 16 78 73 63  25 3d b3 28 31 32 38 29  |4.+..xsc%=.(128)|
00004f40  2b 73 61 78 25 2a 32 0d  2b b6 18 79 73 63 25 3d  |+sax%*2.+..ysc%=|
00004f50  b3 28 39 36 29 2b 73 61  79 25 2a 34 2d 39 36 0d  |.(96)+say%*4-96.|
00004f60  2b c0 10 72 61 64 25 3d  b3 28 33 32 29 2b 38 0d  |+..rad%=.(32)+8.|
00004f70  2b ca 17 c8 8f c8 90 20  78 73 63 25 2c 79 73 63  |+...... xsc%,ysc|
00004f80  25 2c 72 61 64 25 0d 2b  d4 09 e6 20 30 2c 37 0d  |%,rad%.+... 0,7.|
00004f90  2b de 15 c8 8f 20 78 73  63 25 2c 79 73 63 25 2c  |+.... xsc%,ysc%,|
00004fa0  72 61 64 25 0d 2b e8 05  ed 0d 2b f2 0d f2 64 65  |rad%.+....+...de|
00004fb0  6c 61 79 28 33 29 0d 2b  fc 0e f2 61 73 74 65 72  |lay(3).+...aster|
00004fc0  6f 69 64 73 0d 2c 06 0f  f2 6b 65 65 70 6f 62 6a  |oids.,...keepobj|
00004fd0  65 63 74 0d 2c 10 05 ed  0d 2c 1a 13 d6 20 52 65  |ect.,....,... Re|
00004fe0  73 74 6f 72 65 53 63 72  65 65 6e 0d 2c 24 07 ef  |storeScreen.,$..|
00004ff0  32 36 0d 2c 2e 05 e1 0d  2c 38 10 dd f2 6b 65 65  |26.,....,8...kee|
00005000  70 6f 62 6a 65 63 74 0d  2c 42 0b e3 41 25 3d 31  |pobject.,B..A%=1|
00005010  b8 34 0d 2c 4c 3a e7 67  6c 69 25 28 41 25 29 3a  |.4.,L:.gli%(A%):|
00005020  c8 99 22 41 42 43 5f 53  70 72 69 74 65 22 2c 62  |.."ABC_Sprite",b|
00005030  25 2c 67 6c 64 24 28 41  25 29 2c 67 6c 78 25 28  |%,gld$(A%),glx%(|
00005040  41 25 29 2c 67 6c 79 25  28 41 25 29 0d 2c 56 05  |A%),gly%(A%).,V.|
00005050  ed 0d 2c 60 05 e1 0d 2c  6a 0d dd f2 61 6e 69 6d  |..,`...,j...anim|
00005060  61 74 65 0d 2c 74 42 e7  61 6e 69 25 3d 30 20 84  |ate.,tB.ani%=0 .|
00005070  20 65 78 70 25 20 84 20  a4 63 72 61 66 74 28 73  | exp% . .craft(s|
00005080  61 78 25 2c 73 61 79 25  2d 32 34 2c 73 61 78 25  |ax%,say%-24,sax%|
00005090  2b 36 34 2c 73 61 79 25  2c 78 78 78 25 2c 79 79  |+64,say%,xxx%,yy|
000050a0  79 25 29 3a e1 0d 2c 7e  43 e7 73 68 77 25 20 c8  |y%):..,~C.shw% .|
000050b0  99 22 41 42 43 5f 53 70  72 69 74 65 22 2c 62 25  |."ABC_Sprite",b%|
000050c0  2c 6a 24 2c 78 78 78 25  2d 31 36 2c 79 79 79 25  |,j$,xxx%-16,yyy%|
000050d0  2b 38 20 8b d6 20 4f 62  6a 65 63 74 2c 20 61 6e  |+8 .. Object, an|
000050e0  78 25 2c 20 61 6e 79 25  0d 2c 88 05 e1 0d 2c 92  |x%, any%.,....,.|
000050f0  0c dd f2 61 6e 73 77 65  72 0d 2c 9c 0a 73 75 63  |...answer.,..suc|
00005100  25 3d a3 0d 2c a6 0d c8  8e 20 67 72 64 25 20 ca  |%=..,.... grd% .|
00005110  0d 2c b0 07 c9 20 31 0d  2c ba 1e 78 73 72 25 3d  |.,... 1.,..xsr%=|
00005120  73 72 6e 25 28 30 2c 63  6f 64 25 28 74 65 78 25  |srn%(0,cod%(tex%|
00005130  29 29 2d 38 30 0d 2c c4  1e 79 73 72 25 3d 73 72  |))-80.,..ysr%=sr|
00005140  6e 25 28 31 2c 63 6f 64  25 28 74 65 78 25 29 29  |n%(1,cod%(tex%))|
00005150  2d 32 32 0d 2c ce 3b 73  75 63 25 3d a4 63 72 61  |-22.,.;suc%=.cra|
00005160  66 74 28 78 73 72 25 2c  79 73 72 25 2c 78 73 72  |ft(xsr%,ysr%,xsr|
00005170  25 2b 31 36 30 2c 79 73  72 25 2b 34 33 2c 73 61  |%+160,ysr%+43,sa|
00005180  78 25 2b 33 32 2c 73 61  79 25 2d 31 32 29 0d 2c  |x%+32,say%-12).,|
00005190  d8 3c c9 20 32 2c 33 2c  34 3a 73 75 63 25 3d a4  |.<. 2,3,4:suc%=.|
000051a0  63 72 61 66 74 28 73 61  78 25 2c 73 61 79 25 2d  |craft(sax%,say%-|
000051b0  32 34 2c 73 61 78 25 2b  36 34 2c 73 61 79 25 2c  |24,sax%+64,say%,|
000051c0  78 78 78 25 2c 79 79 79  25 29 0d 2c e2 07 c9 20  |xxx%,yyy%).,... |
000051d0  35 0d 2c ec 17 78 73 63  3d 28 73 61 78 25 2b 33  |5.,..xsc=(sax%+3|
000051e0  32 29 2f 31 36 2d 32 30  0d 2c f6 16 79 73 63 3d  |2)/16-20.,..ysc=|
000051f0  28 73 61 79 25 2d 39 32  29 2f 38 2d 31 31 0d 2d  |(say%-92)/8-11.-|
00005200  00 0b e7 63 6f 72 25 20  8c 0d 2d 0a 1f e7 78 73  |...cor% ..-...xs|
00005210  63 3e 78 65 31 25 20 80  20 78 73 63 3c 78 65 32  |c>xe1% . xsc<xe2|
00005220  25 3a 73 75 63 25 3d b9  0d 2d 14 05 cc 0d 2d 1e  |%:suc%=..-....-.|
00005230  1f e7 79 73 63 3e 79 65  31 25 20 80 20 79 73 63  |..ysc>ye1% . ysc|
00005240  3c 79 65 32 25 3a 73 75  63 25 3d b9 0d 2d 28 05  |<ye2%:suc%=..-(.|
00005250  cd 0d 2d 32 07 c9 20 36  0d 2d 3c 17 78 73 63 3d  |..-2.. 6.-<.xsc=|
00005260  28 73 61 78 25 2b 33 32  29 2f 31 36 2d 32 30 0d  |(sax%+32)/16-20.|
00005270  2d 46 16 79 73 63 3d 28  73 61 79 25 2d 39 32 29  |-F.ysc=(say%-92)|
00005280  2f 38 2d 31 31 0d 2d 50  3d e7 78 73 63 3e 78 65  |/8-11.-P=.xsc>xe|
00005290  31 25 20 80 20 78 73 63  3c 78 65 32 25 20 80 20  |1% . xsc<xe2% . |
000052a0  79 73 63 3e 79 65 31 25  20 80 20 79 73 63 3c 79  |ysc>ye1% . ysc<y|
000052b0  65 32 25 20 72 65 67 25  3d b9 20 8b 72 65 67 25  |e2% reg%=. .reg%|
000052c0  3d a3 0d 2d 5a 0b e7 63  6f 72 25 20 8c 0d 2d 64  |=..-Z..cor% ..-d|
000052d0  10 e7 72 65 67 25 3a 73  75 63 25 3d b9 0d 2d 6e  |..reg%:suc%=..-n|
000052e0  05 cc 0d 2d 78 11 e7 ac  72 65 67 25 3a 73 75 63  |...-x...reg%:suc|
000052f0  25 3d b9 0d 2d 82 05 cd  0d 2d 8c 05 cb 0d 2d 96  |%=..-....-....-.|
00005300  05 e1 0d 2d a0 0b dd f2  70 61 6e 65 6c 0d 2d aa  |...-....panel.-.|
00005310  0a 73 70 6e 25 3d a3 0d  2d b4 0d 66 69 6e 25 3d  |.spn%=..-..fin%=|
00005320  73 75 63 25 0d 2d be 0b  e7 73 75 63 25 20 8c 0d  |suc%.-...suc% ..|
00005330  2d c8 26 f2 6e 6f 69 73  65 28 22 43 79 6d 62 61  |-.&.noise("Cymba|
00005340  6c 22 2c 34 2c 26 31 37  46 2c 26 31 32 30 30 2c  |l",4,&17F,&1200,|
00005350  26 31 30 30 29 0d 2d d2  0d 73 65 63 25 3d 73 61  |&100).-..sec%=sa|
00005360  6e 25 0d 2d dc 0b 73 75  6d 25 2b 3d 31 0d 2d e6  |n%.-..sum%+=1.-.|
00005370  15 e7 73 75 6d 25 3d 6d  69 73 25 3a 6f 76 72 25  |..sum%=mis%:ovr%|
00005380  3d b9 0d 2d f0 0b 72 79  74 25 2b 3d 31 0d 2d fa  |=..-..ryt%+=1.-.|
00005390  20 73 63 72 25 28 63 75  72 25 29 2b 3d 62 6f 6e  | scr%(cur%)+=bon|
000053a0  25 2b 34 2a 61 73 74 25  2a 67 72 64 25 0d 2e 04  |%+4*ast%*grd%...|
000053b0  1f e7 74 69 6d 25 3a 73  63 72 25 28 63 75 72 25  |..tim%:scr%(cur%|
000053c0  29 2b 3d 28 33 35 2d 73  61 6e 25 29 0d 2e 0e 0a  |)+=(35-san%)....|
000053d0  74 72 79 25 3d 30 0d 2e  18 05 cc 0d 2e 22 29 e7  |try%=0.......").|
000053e0  ac 65 78 70 25 3a f2 6e  6f 69 73 65 28 22 42 75  |.exp%:.noise("Bu|
000053f0  72 70 22 2c 33 2c 26 31  37 46 2c 26 32 36 30 30  |rp",3,&17F,&2600|
00005400  2c 26 38 29 0d 2e 2c 0b  72 6f 6e 25 2b 3d 31 0d  |,&8)..,.ron%+=1.|
00005410  2e 36 0b 74 72 79 25 2b  3d 31 0d 2e 40 0d e7 74  |.6.try%+=1..@..t|
00005420  72 79 25 3d 31 20 8c 0d  2e 4a 22 e7 67 72 64 25  |ry%=1 ...J".grd%|
00005430  3c 35 20 61 6e 69 25 3d  31 20 8b f2 68 69 67 68  |<5 ani%=1 ..high|
00005440  6c 69 67 68 74 61 72 65  61 0d 2e 54 0a 73 68 77  |lightarea..T.shw|
00005450  25 3d b9 0d 2e 5e 0c f2  61 6e 69 6d 61 74 65 0d  |%=...^..animate.|
00005460  2e 68 05 cc 0d 2e 72 0a  66 69 6e 25 3d b9 0d 2e  |.h....r.fin%=...|
00005470  7c 05 cd 0d 2e 86 05 cd  0d 2e 90 05 e1 0d 2e 9a  ||...............|
00005480  12 dd f2 63 68 61 6e 67  65 70 6c 61 79 65 72 0d  |...changeplayer.|
00005490  2e a4 0b 63 75 72 25 2b  3d 31 0d 2e ae 15 e7 63  |...cur%+=1.....c|
000054a0  75 72 25 3e 70 6c 79 25  3a 63 75 72 25 3d 31 0d  |ur%>ply%:cur%=1.|
000054b0  2e b8 0a f2 77 68 69 63  68 0d 2e c2 0e f2 7a 65  |....which.....ze|
000054c0  72 6f 6d 6f 75 73 65 0d  2e cc 0a f2 66 6c 75 73  |romouse.....flus|
000054d0  68 0d 2e d6 16 f2 73 61  6d 65 28 6e 61 6d 65 24  |h.....same(name$|
000054e0  28 63 75 72 25 29 29 0d  2e e0 05 e1 0d 2e ea 0d  |(cur%)).........|
000054f0  dd f2 61 74 74 72 61 63  74 0d 2e f4 0a 63 6f 6d  |..attract....com|
00005500  25 3d b9 0d 2e fe 0a 65  78 70 25 3d a3 0d 2f 08  |%=.....exp%=../.|
00005510  0b 73 75 6d 25 2b 3d 31  0d 2f 12 0a 74 72 79 25  |.sum%+=1./..try%|
00005520  3d 30 0d 2f 1c 15 e7 73  75 6d 25 3d 6d 69 73 25  |=0./...sum%=mis%|
00005530  3a 6f 76 72 25 3d b9 0d  2f 26 0d e7 67 72 64 25  |:ovr%=../&..grd%|
00005540  3e 34 3a e1 0d 2f 30 0e  e3 66 6c 61 25 3d 31 b8  |>4:../0..fla%=1.|
00005550  34 38 0d 2f 3a 0d f2 64  65 6c 61 79 28 33 29 0d  |48./:..delay(3).|
00005560  2f 44 0e 73 68 77 25 3d  ac 73 68 77 25 0d 2f 4e  |/D.shw%=.shw%./N|
00005570  28 e7 73 68 77 25 3a f2  6e 6f 69 73 65 28 22 50  |(.shw%:.noise("P|
00005580  69 6e 67 22 2c 34 2c 26  31 37 46 2c 26 36 32 30  |ing",4,&17F,&620|
00005590  30 2c 26 32 29 0d 2f 58  0c f2 61 6e 69 6d 61 74  |0,&2)./X..animat|
000055a0  65 0d 2f 62 05 ed 0d 2f  6c 0b f2 75 70 64 61 74  |e./b.../l..updat|
000055b0  65 0d 2f 76 0f f2 64 65  6c 61 79 28 31 30 30 29  |e./v..delay(100)|
000055c0  0d 2f 80 05 e1 0d 2f 8a  0c dd f2 64 65 63 69 64  |./..../....decid|
000055d0  65 0d 2f 94 23 e7 74 69  6d 25 20 f2 74 69 6d 65  |e./.#.tim% .time|
000055e0  72 75 73 65 64 20 8b f2  74 69 6d 65 72 6e 6f 74  |rused ..timernot|
000055f0  75 73 65 64 0d 2f 9e 0b  f2 73 63 6f 72 65 73 0d  |used./...scores.|
00005600  2f a8 0b f2 75 70 64 61  74 65 0d 2f b2 0a f2 77  |/...update./...w|
00005610  68 69 63 68 0d 2f bc 07  d1 3d 30 0d 2f c6 05 e1  |hich./...=0./...|
00005620  0d 2f d0 0f dd f2 74 69  6d 65 72 75 73 65 64 0d  |./....timerused.|
00005630  2f da 0d e7 70 6c 79 25  3d 31 20 8c 0d 2f e4 0c  |/...ply%=1 ../..|
00005640  f2 61 74 74 72 61 63 74  0d 2f ee 0a 66 69 6e 25  |.attract./..fin%|
00005650  3d b9 0d 2f f8 05 cc 0d  30 02 0c e7 ac 73 75 63  |=../....0....suc|
00005660  25 20 8c 0d 30 0c 0c f2  61 74 74 72 61 63 74 0d  |% ..0...attract.|
00005670  30 16 18 e7 ac 6f 76 72  25 3a f2 63 68 61 6e 67  |0....ovr%:.chang|
00005680  65 70 6c 61 79 65 72 0d  30 20 0a 66 69 6e 25 3d  |eplayer.0 .fin%=|
00005690  b9 0d 30 2a 0d 73 65 63  25 3d 73 61 6e 25 0d 30  |..0*.sec%=san%.0|
000056a0  34 05 cd 0d 30 3e 05 cd  0d 30 48 05 e1 0d 30 52  |4...0>...0H...0R|
000056b0  12 dd f2 74 69 6d 65 72  6e 6f 74 75 73 65 64 0d  |...timernotused.|
000056c0  30 5c 0d e7 70 6c 79 25  3d 31 20 8c 0d 30 66 14  |0\..ply%=1 ..0f.|
000056d0  e7 74 72 79 25 3d 32 3a  f2 61 74 74 72 61 63 74  |.try%=2:.attract|
000056e0  0d 30 70 05 cc 0d 30 7a  0c e7 ac 73 75 63 25 20  |.0p...0z...suc% |
000056f0  8c 0d 30 84 0c f2 61 74  74 72 61 63 74 0d 30 8e  |..0...attract.0.|
00005700  18 e7 ac 6f 76 72 25 3a  f2 63 68 61 6e 67 65 70  |...ovr%:.changep|
00005710  6c 61 79 65 72 0d 30 98  0a 66 69 6e 25 3d b9 0d  |layer.0..fin%=..|
00005720  30 a2 05 cd 0d 30 ac 05  cd 0d 30 b6 05 e1 0d 30  |0....0....0....0|
00005730  c0 0c dd f2 67 72 61 70  68 31 0d 30 ca 0e c8 91  |....graph1.0....|
00005740  20 31 36 30 2c 34 31 36  0d 30 d4 09 e6 20 30 2c  | 160,416.0... 0,|
00005750  30 0d 30 de 0b e3 58 25  3d 30 b8 33 0d 30 e8 0e  |0.0...X%=0.3.0..|
00005760  ec 20 58 25 2a 33 32 30  2c 30 0d 30 f2 0d f0 20  |. X%*320,0.0... |
00005770  31 2c 30 2c 35 31 32 0d  30 fc 05 ed 0d 31 06 0b  |1,0,512.0....1..|
00005780  e3 59 25 3d 30 b8 33 0d  31 10 0e ec 20 30 2c 59  |.Y%=0.3.1... 0,Y|
00005790  25 2a 31 37 32 0d 31 1a  0d f0 20 31 2c 39 36 30  |%*172.1... 1,960|
000057a0  2c 30 0d 31 24 05 ed 0d  31 2e 0a c8 91 20 30 2c  |,0.1$...1.... 0,|
000057b0  30 0d 31 38 05 e1 0d 31  42 0c dd f2 67 72 61 70  |0.18...1B...grap|
000057c0  68 32 0d 31 4c 0e c8 91  20 31 32 38 2c 34 31 36  |h2.1L... 128,416|
000057d0  0d 31 56 07 ef 20 35 0d  31 60 0c e3 58 25 3d 30  |.1V.. 5.1`..X%=0|
000057e0  b8 31 30 0d 31 6a 09 e6  20 30 2c 30 0d 31 74 0e  |.10.1j.. 0,0.1t.|
000057f0  ec 20 58 25 2a 31 30 34  2c 30 0d 31 7e 0c f0 20  |. X%*104,0.1~.. |
00005800  31 2c 30 2c 2d 38 0d 31  88 12 ec 20 58 25 2a 31  |1,0,-8.1... X%*1|
00005810  30 34 2d 38 2c 2d 31 36  0d 31 92 07 f1 58 25 0d  |04-8,-16.1...X%.|
00005820  31 9c 09 e6 20 30 2c 35  0d 31 a6 0e ec 20 58 25  |1... 0,5.1... X%|
00005830  2a 31 30 34 2c 30 0d 31  b0 0e f0 20 32 35 2c 30  |*104,0.1... 25,0|
00005840  2c 35 32 30 0d 31 ba 05  ed 0d 31 c4 0b e3 59 25  |,520.1....1...Y%|
00005850  3d 30 b8 35 0d 31 ce 09  e6 20 30 2c 30 0d 31 d8  |=0.5.1... 0,0.1.|
00005860  0e ec 20 30 2c 59 25 2a  31 30 34 0d 31 e2 0c f0  |.. 0,Y%*104.1...|
00005870  20 31 2c 2d 34 2c 30 0d  31 ec 13 ec 20 2d 32 38  | 1,-4,0.1... -28|
00005880  2c 59 25 2a 31 30 34 2b  31 36 0d 31 f6 07 f1 59  |,Y%*104+16.1...Y|
00005890  25 0d 32 00 09 e6 20 30  2c 35 0d 32 0a 0e ec 20  |%.2... 0,5.2... |
000058a0  30 2c 59 25 2a 31 30 34  0d 32 14 0f f0 20 32 35  |0,Y%*104.2... 25|
000058b0  2c 31 30 34 30 2c 30 0d  32 1e 05 ed 0d 32 28 09  |,1040,0.2....2(.|
000058c0  e6 20 30 2c 30 0d 32 32  10 86 20 30 2c 30 2c 31  |. 0,0.22.. 0,0,1|
000058d0  30 34 30 2c 30 0d 32 3c  0f 86 20 30 2c 30 2c 30  |040,0.2<.. 0,0,0|
000058e0  2c 35 32 30 0d 32 46 11  f2 78 70 6f 73 28 31 30  |,520.2F..xpos(10|
000058f0  34 30 2c 30 29 0d 32 50  10 f2 79 70 6f 73 28 30  |40,0).2P..ypos(0|
00005900  2c 35 31 32 29 0d 32 5a  07 ef 20 34 0d 32 64 05  |,512).2Z.. 4.2d.|
00005910  87 0d 32 6e 0a c8 91 20  30 2c 30 0d 32 78 05 e1  |..2n... 0,0.2x..|
00005920  0d 32 82 15 dd f2 79 70  6f 73 28 78 73 63 25 2c  |.2....ypos(xsc%,|
00005930  79 73 63 25 29 0d 32 8c  0f ec 20 78 73 63 25 2c  |ysc%).2... xsc%,|
00005940  79 73 63 25 0d 32 96 0c  f0 20 31 2c 30 2c 36 34  |ysc%.2... 1,0,64|
00005950  0d 32 a0 0e f0 20 31 2c  2d 38 2c 2d 31 36 0d 32  |.2... 1,-8,-16.2|
00005960  aa 0c f0 20 30 2c 38 2c  31 36 0d 32 b4 0d f0 20  |... 0,8,16.2... |
00005970  31 2c 38 2c 2d 31 36 0d  32 be 15 ec 20 78 73 63  |1,8,-16.2... xsc|
00005980  25 2d 31 36 2c 79 73 63  25 2b 39 36 0d 32 c8 09  |%-16,ysc%+96.2..|
00005990  f1 22 2b 79 22 0d 32 d2  05 e1 0d 32 dc 15 dd f2  |."+y".2....2....|
000059a0  79 6e 65 67 28 78 73 63  25 2c 79 73 63 25 29 0d  |yneg(xsc%,ysc%).|
000059b0  32 e6 0f ec 20 78 73 63  25 2c 79 73 63 25 0d 32  |2... xsc%,ysc%.2|
000059c0  f0 0d f0 20 31 2c 30 2c  2d 36 34 0d 32 fa 0d f0  |... 1,0,-64.2...|
000059d0  20 31 2c 2d 38 2c 31 36  0d 33 04 0d f0 20 30 2c  | 1,-8,16.3... 0,|
000059e0  38 2c 2d 31 36 0d 33 0e  0c f0 20 31 2c 38 2c 31  |8,-16.3... 1,8,1|
000059f0  36 0d 33 18 15 ec 20 78  73 63 25 2d 31 36 2c 79  |6.3... xsc%-16,y|
00005a00  73 63 25 2d 36 34 0d 33  22 09 f1 22 2d 79 22 0d  |sc%-64.3".."-y".|
00005a10  33 2c 05 e1 0d 33 36 15  dd f2 78 70 6f 73 28 78  |3,...36...xpos(x|
00005a20  73 63 25 2c 79 73 63 25  29 0d 33 40 0f ec 20 78  |sc%,ysc%).3@.. x|
00005a30  73 63 25 2c 79 73 63 25  0d 33 4a 0c f0 20 31 2c  |sc%,ysc%.3J.. 1,|
00005a40  33 32 2c 30 0d 33 54 0c  f0 20 31 2c 2d 38 2c 38  |32,0.3T.. 1,-8,8|
00005a50  0d 33 5e 0c f0 20 30 2c  38 2c 2d 38 0d 33 68 0d  |.3^.. 0,8,-8.3h.|
00005a60  f0 20 31 2c 2d 38 2c 2d  38 0d 33 72 15 ec 20 78  |. 1,-8,-8.3r.. x|
00005a70  73 63 25 2b 33 32 2c 79  73 63 25 2b 31 36 0d 33  |sc%+32,ysc%+16.3|
00005a80  7c 09 f1 22 2b 78 22 0d  33 86 05 e1 0d 33 90 15  ||.."+x".3....3..|
00005a90  dd f2 78 6e 65 67 28 78  73 63 25 2c 79 73 63 25  |..xneg(xsc%,ysc%|
00005aa0  29 0d 33 9a 0f ec 20 78  73 63 25 2c 79 73 63 25  |).3... xsc%,ysc%|
00005ab0  0d 33 a4 0d f0 20 31 2c  2d 33 32 2c 30 0d 33 ae  |.3... 1,-32,0.3.|
00005ac0  0b f0 20 31 2c 38 2c 38  0d 33 b8 0d f0 20 30 2c  |.. 1,8,8.3... 0,|
00005ad0  2d 38 2c 2d 38 0d 33 c2  0c f0 20 31 2c 38 2c 2d  |-8,-8.3... 1,8,-|
00005ae0  38 0d 33 cc 15 ec 20 78  73 63 25 2d 36 36 2c 79  |8.3... xsc%-66,y|
00005af0  73 63 25 2b 31 36 0d 33  d6 09 f1 22 2d 78 22 0d  |sc%+16.3..."-x".|
00005b00  33 e0 05 e1 0d 33 ea 0d  dd f2 67 72 61 70 68 33  |3....3....graph3|
00005b10  61 0d 33 f4 0b f2 68 61  74 63 68 31 0d 33 fe 0e  |a.3...hatch1.3..|
00005b20  c8 91 20 31 32 38 2c 34  31 36 0d 34 08 07 ef 20  |.. 128,416.4... |
00005b30  35 0d 34 12 09 e6 20 30  2c 30 0d 34 1c 0c e3 58  |5.4... 0,0.4...X|
00005b40  25 3d 30 b8 32 30 0d 34  26 0d ec 20 58 25 2a 35  |%=0.20.4&.. X%*5|
00005b50  32 2c 30 0d 34 30 0c f0  20 31 2c 30 2c 2d 38 0d  |2,0.40.. 1,0,-8.|
00005b60  34 3a 26 e7 58 25 83 32  3d 30 3a ec 20 58 25 2a  |4:&.X%.2=0:. X%*|
00005b70  35 32 2d a9 28 c3 28 58  25 29 29 2a 38 2c 2d 31  |52-.(.(X%))*8,-1|
00005b80  36 3a f1 58 25 0d 34 44  05 ed 0d 34 4e 0c e3 59  |6:.X%.4D...4N..Y|
00005b90  25 3d 30 b8 31 30 0d 34  58 0d ec 20 30 2c 59 25  |%=0.10.4X.. 0,Y%|
00005ba0  2a 35 32 0d 34 62 0c f0  20 31 2c 2d 34 2c 30 0d  |*52.4b.. 1,-4,0.|
00005bb0  34 6c 2a e7 59 25 83 32  3d 30 3a ec 20 2d 31 32  |4l*.Y%.2=0:. -12|
00005bc0  2d a9 28 c3 28 59 25 29  29 2a 31 36 2c 59 25 2a  |-.(.(Y%))*16,Y%*|
00005bd0  35 32 2b 31 36 3a f1 59  25 0d 34 76 05 ed 0d 34  |52+16:.Y%.4v...4|
00005be0  80 0f 86 20 30 2c 30 2c  30 2c 35 32 30 0d 34 8a  |... 0,0,0,520.4.|
00005bf0  10 86 20 30 2c 30 2c 31  30 34 30 2c 30 0d 34 94  |.. 0,0,1040,0.4.|
00005c00  11 f2 78 70 6f 73 28 31  30 34 30 2c 30 29 0d 34  |..xpos(1040,0).4|
00005c10  9e 10 f2 79 70 6f 73 28  30 2c 35 31 32 29 0d 34  |...ypos(0,512).4|
00005c20  a8 07 ef 20 34 0d 34 b2  05 87 0d 34 bc 0a c8 91  |... 4.4....4....|
00005c30  20 30 2c 30 0d 34 c6 05  e1 0d 34 d0 0d dd f2 67  | 0,0.4....4....g|
00005c40  72 61 70 68 33 62 0d 34  da 0b f2 68 61 74 63 68  |raph3b.4...hatch|
00005c50  31 0d 34 e4 0e c8 91 20  31 32 38 2c 39 33 36 0d  |1.4.... 128,936.|
00005c60  34 ee 07 ef 20 35 0d 34  f8 09 e6 20 30 2c 30 0d  |4... 5.4... 0,0.|
00005c70  35 02 0c e3 58 25 3d 30  b8 32 30 0d 35 0c 0d ec  |5...X%=0.20.5...|
00005c80  20 58 25 2a 35 32 2c 30  0d 35 16 0b f0 20 31 2c  | X%*52,0.5... 1,|
00005c90  30 2c 38 0d 35 20 25 e7  58 25 83 32 3d 30 3a ec  |0,8.5 %.X%.2=0:.|
00005ca0  20 58 25 2a 35 32 2d a9  28 c3 28 58 25 29 29 2a  | X%*52-.(.(X%))*|
00005cb0  38 2c 34 30 3a f1 58 25  0d 35 2a 05 ed 0d 35 34  |8,40:.X%.5*...54|
00005cc0  0c e3 59 25 3d 30 b8 31  30 0d 35 3e 0e ec 20 30  |..Y%=0.10.5>.. 0|
00005cd0  2c 2d 59 25 2a 35 32 0d  35 48 0c f0 20 31 2c 2d  |,-Y%*52.5H.. 1,-|
00005ce0  34 2c 30 0d 35 52 31 e7  59 25 83 32 3d 30 3a ec  |4,0.5R1.Y%.2=0:.|
00005cf0  20 2d 28 31 32 2b a9 28  c3 28 2d 59 25 29 29 2a  | -(12+.(.(-Y%))*|
00005d00  31 36 29 2c 2d 28 59 25  2a 35 32 29 2b 31 36 3a  |16),-(Y%*52)+16:|
00005d10  f1 2d 59 25 0d 35 5c 05  ed 0d 35 66 09 e6 20 30  |.-Y%.5\...5f.. 0|
00005d20  2c 30 0d 35 70 10 86 20  30 2c 30 2c 30 2c 2d 35  |,0.5p.. 0,0,0,-5|
00005d30  32 30 0d 35 7a 10 86 20  30 2c 30 2c 31 30 34 30  |20.5z.. 0,0,1040|
00005d40  2c 30 0d 35 84 11 f2 78  70 6f 73 28 31 30 34 30  |,0.5...xpos(1040|
00005d50  2c 30 29 0d 35 8e 11 f2  79 6e 65 67 28 30 2c 2d  |,0).5...yneg(0,-|
00005d60  35 32 30 29 0d 35 98 07  ef 20 34 0d 35 a2 05 87  |520).5... 4.5...|
00005d70  0d 35 ac 0a c8 91 20 30  2c 30 0d 35 b6 05 e1 0d  |.5.... 0,0.5....|
00005d80  35 c0 0d dd f2 67 72 61  70 68 33 63 0d 35 ca 0b  |5....graph3c.5..|
00005d90  f2 68 61 74 63 68 31 0d  35 d4 0f c8 91 20 31 31  |.hatch1.5.... 11|
00005da0  36 38 2c 39 33 36 0d 35  de 07 ef 20 35 0d 35 e8  |68,936.5... 5.5.|
00005db0  09 e6 20 30 2c 30 0d 35  f2 0c e3 58 25 3d 30 b8  |.. 0,0.5...X%=0.|
00005dc0  32 30 0d 35 fc 0e ec 20  2d 58 25 2a 35 32 2c 30  |20.5... -X%*52,0|
00005dd0  0d 36 06 0b f0 20 31 2c  30 2c 38 0d 36 10 28 e7  |.6... 1,0,8.6.(.|
00005de0  58 25 83 32 3d 30 3a ec  20 2d 58 25 2a 35 32 2d  |X%.2=0:. -X%*52-|
00005df0  a9 28 c3 28 2d 58 25 29  29 2a 38 2c 34 30 3a f1  |.(.(-X%))*8,40:.|
00005e00  2d 58 25 0d 36 1a 05 ed  0d 36 24 0c e3 59 25 3d  |-X%.6....6$..Y%=|
00005e10  30 b8 31 30 0d 36 2e 0e  ec 20 30 2c 2d 59 25 2a  |0.10.6... 0,-Y%*|
00005e20  35 32 0d 36 38 0c f0 20  31 2c 2d 34 2c 30 0d 36  |52.68.. 1,-4,0.6|
00005e30  42 21 e7 59 25 83 32 3d  30 3a ec 20 31 32 2c 2d  |B!.Y%.2=0:. 12,-|
00005e40  28 59 25 2a 35 32 29 2b  31 36 3a f1 2d 59 25 0d  |(Y%*52)+16:.-Y%.|
00005e50  36 4c 05 ed 0d 36 56 10  86 20 30 2c 30 2c 30 2c  |6L...6V.. 0,0,0,|
00005e60  2d 35 32 30 0d 36 60 11  86 20 30 2c 30 2c 2d 31  |-520.6`.. 0,0,-1|
00005e70  30 34 30 2c 30 0d 36 6a  12 f2 78 6e 65 67 28 2d  |040,0.6j..xneg(-|
00005e80  31 30 34 30 2c 30 29 0d  36 74 11 f2 79 6e 65 67  |1040,0).6t..yneg|
00005e90  28 30 2c 2d 35 32 30 29  0d 36 7e 07 ef 20 34 0d  |(0,-520).6~.. 4.|
00005ea0  36 88 05 87 0d 36 92 0a  c8 91 20 30 2c 30 0d 36  |6....6.... 0,0.6|
00005eb0  9c 05 e1 0d 36 a6 0d dd  f2 67 72 61 70 68 33 64  |....6....graph3d|
00005ec0  0d 36 b0 0b f2 68 61 74  63 68 31 0d 36 ba 0f c8  |.6...hatch1.6...|
00005ed0  91 20 31 31 36 38 2c 34  31 36 0d 36 c4 07 ef 20  |. 1168,416.6... |
00005ee0  35 0d 36 ce 09 e6 20 30  2c 30 0d 36 d8 0c e3 58  |5.6... 0,0.6...X|
00005ef0  25 3d 30 b8 32 30 0d 36  e2 0e ec 20 2d 58 25 2a  |%=0.20.6... -X%*|
00005f00  35 32 2c 30 0d 36 ec 0c  f0 20 31 2c 30 2c 2d 38  |52,0.6... 1,0,-8|
00005f10  0d 36 f6 29 e7 58 25 83  32 3d 30 3a ec 20 2d 58  |.6.).X%.2=0:. -X|
00005f20  25 2a 35 32 2d a9 28 c3  28 2d 58 25 29 29 2a 38  |%*52-.(.(-X%))*8|
00005f30  2c 2d 31 36 3a f1 2d 58  25 0d 37 00 05 ed 0d 37  |,-16:.-X%.7....7|
00005f40  0a 0c e3 59 25 3d 30 b8  31 30 0d 37 14 0d ec 20  |...Y%=0.10.7... |
00005f50  30 2c 59 25 2a 35 32 0d  37 1e 0b f0 20 31 2c 34  |0,Y%*52.7... 1,4|
00005f60  2c 30 0d 37 28 1d e7 59  25 83 32 3d 30 3a ec 20  |,0.7(..Y%.2=0:. |
00005f70  31 32 2c 59 25 2a 35 32  2b 31 36 3a f1 59 25 0d  |12,Y%*52+16:.Y%.|
00005f80  37 32 05 ed 0d 37 3c 0f  86 20 30 2c 30 2c 30 2c  |72...7<.. 0,0,0,|
00005f90  35 32 30 0d 37 46 11 86  20 30 2c 30 2c 2d 31 30  |520.7F.. 0,0,-10|
00005fa0  34 30 2c 30 0d 37 50 12  f2 78 6e 65 67 28 2d 31  |40,0.7P..xneg(-1|
00005fb0  30 34 30 2c 30 29 0d 37  5a 10 f2 79 70 6f 73 28  |040,0).7Z..ypos(|
00005fc0  30 2c 35 31 32 29 0d 37  64 07 ef 20 34 0d 37 6e  |0,512).7d.. 4.7n|
00005fd0  05 87 0d 37 78 0a c8 91  20 30 2c 30 0d 37 82 05  |...7x... 0,0.7..|
00005fe0  e1 0d 37 8c 0c dd f2 67  72 61 70 68 35 0d 37 96  |..7....graph5.7.|
00005ff0  0b f2 68 61 74 63 68 32  0d 37 a0 0e c8 91 20 36  |..hatch2.7.... 6|
00006000  34 30 2c 36 37 32 0d 37  aa 07 ef 20 35 0d 37 b4  |40,672.7... 5.7.|
00006010  09 e6 20 30 2c 30 0d 37  be 0e e3 58 25 3d 2d 31  |.. 0,0.7...X%=-1|
00006020  38 b8 31 38 0d 37 c8 0d  ec 20 58 25 2a 33 32 2c  |8.18.7... X%*32,|
00006030  30 0d 37 d2 0c f0 20 31  2c 30 2c 2d 38 0d 37 dc  |0.7... 1,0,-8.7.|
00006040  26 e7 58 25 83 32 3d 30  3a ec 20 58 25 2a 33 32  |&.X%.2=0:. X%*32|
00006050  2d a9 28 c3 28 58 25 29  29 2a 38 2c 2d 31 36 3a  |-.(.(X%))*8,-16:|
00006060  f1 58 25 0d 37 e6 05 ed  0d 37 f0 0c e3 59 25 3d  |.X%.7....7...Y%=|
00006070  2d 39 b8 39 0d 37 fa 0d  ec 20 30 2c 59 25 2a 33  |-9.9.7... 0,Y%*3|
00006080  32 0d 38 04 0c f0 20 31  2c 2d 34 2c 30 0d 38 0e  |2.8... 1,-4,0.8.|
00006090  2e e7 59 25 83 32 3d 30  3a ec 20 2d 28 31 32 2b  |..Y%.2=0:. -(12+|
000060a0  a9 28 c3 28 59 25 29 29  2a 31 36 29 2c 28 59 25  |.(.(Y%))*16),(Y%|
000060b0  2a 33 32 29 2b 31 32 3a  f1 59 25 0d 38 18 05 ed  |*32)+12:.Y%.8...|
000060c0  0d 38 22 0e c8 91 20 36  34 30 2c 36 37 32 0d 38  |.8"... 640,672.8|
000060d0  2c 12 86 20 30 2c 2d 33  32 30 2c 30 2c 33 32 30  |,.. 0,-320,0,320|
000060e0  0d 38 36 12 86 20 2d 36  30 38 2c 30 2c 36 30 38  |.86.. -608,0,608|
000060f0  2c 30 0d 38 40 10 f2 78  70 6f 73 28 35 37 36 2c  |,0.8@..xpos(576,|
00006100  30 29 0d 38 4a 11 f2 78  6e 65 67 28 2d 35 37 36  |0).8J..xneg(-576|
00006110  2c 30 29 0d 38 54 10 f2  79 70 6f 73 28 30 2c 32  |,0).8T..ypos(0,2|
00006120  35 36 29 0d 38 5e 11 f2  79 6e 65 67 28 30 2c 2d  |56).8^..yneg(0,-|
00006130  32 35 36 29 0d 38 68 07  ef 20 34 0d 38 72 05 87  |256).8h.. 4.8r..|
00006140  0d 38 7c 0a c8 91 20 30  2c 30 0d 38 86 05 e1 0d  |.8|... 0,0.8....|
00006150  38 90 0c dd f2 68 61 74  63 68 32 0d 38 9a 0c c8  |8....hatch2.8...|
00006160  91 20 30 2c 33 32 30 0d  38 a4 09 e6 20 30 2c 35  |. 0,320.8... 0,5|
00006170  0d 38 ae 0c e3 58 25 3d  31 b8 34 30 0d 38 b8 0d  |.8...X%=1.40.8..|
00006180  ec 20 58 25 2a 33 32 2c  30 0d 38 c2 0e f0 20 31  |. X%*32,0.8... 1|
00006190  37 2c 30 2c 37 30 34 0d  38 cc 05 ed 0d 38 d6 0c  |7,0,704.8....8..|
000061a0  e3 59 25 3d 31 b8 32 31  0d 38 e0 0d ec 20 30 2c  |.Y%=1.21.8... 0,|
000061b0  59 25 2a 33 32 0d 38 ea  0f f0 20 31 37 2c 31 32  |Y%*32.8... 17,12|
000061c0  38 30 2c 30 0d 38 f4 05  ed 0d 38 fe 05 e1 0d 39  |80,0.8....8....9|
000061d0  08 0c dd f2 68 61 74 63  68 31 0d 39 12 0e c8 91  |....hatch1.9....|
000061e0  20 31 32 38 2c 34 31 36  0d 39 1c 09 e6 20 30 2c  | 128,416.9... 0,|
000061f0  35 0d 39 26 0c e3 58 25  3d 30 b8 32 30 0d 39 30  |5.9&..X%=0.20.90|
00006200  0d ec 20 58 25 2a 35 32  2c 30 0d 39 3a 0e f0 20  |.. X%*52,0.9:.. |
00006210  31 37 2c 30 2c 35 32 30  0d 39 44 05 ed 0d 39 4e  |17,0,520.9D...9N|
00006220  0c e3 59 25 3d 30 b8 31  30 0d 39 58 0d ec 20 30  |..Y%=0.10.9X.. 0|
00006230  2c 59 25 2a 35 32 0d 39  62 0f f0 20 31 37 2c 31  |,Y%*52.9b.. 17,1|
00006240  30 34 30 2c 30 0d 39 6c  05 ed 0d 39 76 05 e1 0d  |040,0.9l...9v...|
00006250  39 80 20 dd f2 6d 69 6e  65 63 6f 6f 72 73 28 72  |9. ..minecoors(r|
00006260  61 78 25 2c 72 61 79 25  2c 78 24 2c 79 24 29 0d  |ax%,ray%,x$,y$).|
00006270  39 8a 0a 6d 69 6e 25 3d  a3 0d 39 94 05 f5 0d 39  |9..min%=..9....9|
00006280  9e 05 f5 0d 39 a8 15 6d  69 78 25 3d b3 28 94 28  |....9..mix%=.(.(|
00006290  72 61 78 25 29 2d 31 29  0d 39 b2 15 6d 69 79 25  |rax%)-1).9..miy%|
000062a0  3d b3 28 94 28 72 61 79  25 29 2d 31 29 0d 39 bc  |=.(.(ray%)-1).9.|
000062b0  16 e7 72 61 78 25 3c 30  3a 6d 69 78 25 3d 2d 6d  |..rax%<0:mix%=-m|
000062c0  69 78 25 0d 39 c6 16 e7  72 61 79 25 3c 30 3a 6d  |ix%.9...ray%<0:m|
000062d0  69 79 25 3d 2d 6d 69 79  25 0d 39 d0 1d fd 20 6d  |iy%=-miy%.9... m|
000062e0  69 78 25 3c 3e 78 6f 62  25 20 80 20 6d 69 79 25  |ix%<>xob% . miy%|
000062f0  3c 3e 79 6f 62 25 0d 39  da 11 64 61 78 25 3d a0  |<>yob%.9..dax%=.|
00006300  28 78 24 29 2b 31 36 0d  39 e4 10 64 61 79 25 3d  |(x$)+16.9..day%=|
00006310  a0 28 79 24 29 2d 38 0d  39 ee 28 fd 20 ac a4 63  |.(y$)-8.9.(. ..c|
00006320  72 61 66 74 28 32 38 38  2c 31 35 36 2c 33 35 32  |raft(288,156,352|
00006330  2c 31 38 30 2c 64 61 78  25 2c 64 61 79 25 29 0d  |,180,dax%,day%).|
00006340  39 f8 05 e1 0d 3a 02 0c  dd f2 64 61 6e 67 65 72  |9....:....danger|
00006350  0d 3a 0c 28 e7 73 75 62  25 3e 30 20 84 20 b3 28  |.:.(.sub%>0 . .(|
00006360  34 29 3c 33 20 84 20 67  72 64 25 3c 33 20 84 20  |4)<3 . grd%<3 . |
00006370  67 72 64 25 3e 34 3a e1  0d 3a 16 0a 6d 69 6e 25  |grd%>4:..:..min%|
00006380  3d b9 0d 3a 20 26 f2 6e  6f 69 73 65 28 22 44 61  |=..: &.noise("Da|
00006390  6e 67 65 72 22 2c 32 2c  26 31 37 46 2c 26 31 43  |nger",2,&17F,&1C|
000063a0  30 30 2c 26 31 30 30 29  0d 3a 2a 26 f2 6e 6f 69  |00,&100).:*&.noi|
000063b0  73 65 28 22 44 61 6e 67  65 72 22 2c 33 2c 26 31  |se("Danger",3,&1|
000063c0  37 46 2c 26 31 43 30 30  2c 26 31 30 30 29 0d 3a  |7F,&1C00,&100).:|
000063d0  34 23 c8 99 22 41 42 43  5f 54 72 61 6e 73 66 65  |4#.."ABC_Transfe|
000063e0  72 22 2c 32 31 32 2c 31  39 35 2c 32 31 36 2c 36  |r",212,195,216,6|
000063f0  34 0d 3a 3e 26 c8 99 22  41 42 43 5f 50 6c 61 63  |4.:>&.."ABC_Plac|
00006400  65 22 2c 62 25 2c 22 6d  65 73 73 61 67 65 22 2c  |e",b%,"message",|
00006410  32 31 32 2c 31 39 36 0d  3a 48 0a f7 20 8d 64 40  |212,196.:H.. .d@|
00006420  7a 0d 3a 52 0f e3 4a 25  3d 31 b8 20 b3 28 38 29  |z.:R..J%=1. .(8)|
00006430  0d 3a 5c 08 f3 20 61 24  0d 3a 66 05 ed 0d 3a 70  |.:\.. a$.:f...:p|
00006440  27 61 24 2b 3d 22 20 61  74 20 28 22 2b c3 28 6d  |'a$+=" at ("+.(m|
00006450  69 78 25 29 2b 22 2c 22  2b c3 28 6d 69 79 25 29  |ix%)+","+.(miy%)|
00006460  2b 22 29 22 0d 3a 7a 2f  c8 99 22 41 42 43 5f 50  |+")".:z/.."ABC_P|
00006470  72 79 6e 74 53 74 72 69  6e 67 22 2c 61 24 2c 33  |ryntString",a$,3|
00006480  32 30 2d a9 28 61 24 29  2a 34 2c 31 36 32 2c 30  |20-.(a$)*4,162,0|
00006490  2c 31 31 0d 3a 84 07 d1  3d 30 0d 3a 8e 05 f5 0d  |,11.:...=0.:....|
000064a0  3a 98 0e f2 63 6f 75 6e  74 64 6f 77 6e 0d 3a a2  |:...countdown.:.|
000064b0  0c fd 20 a4 6c 65 61 76  65 0d 3a ac 13 c8 99 22  |.. .leave.:...."|
000064c0  41 42 43 5f 52 65 73 74  6f 72 65 22 0d 3a b6 05  |ABC_Restore".:..|
000064d0  e1 0d 3a c0 2f dc 20 53  70 61 63 65 20 6a 75 6e  |..:./. Space jun|
000064e0  6b 2c 42 6c 61 63 6b 20  68 6f 6c 65 2c 52 61 64  |k,Black hole,Rad|
000064f0  69 61 74 69 6f 6e 2c 47  61 73 20 63 6c 6f 75 64  |iation,Gas cloud|
00006500  0d 3a ca 2c dc 20 41 6e  74 69 2d 6d 61 74 74 65  |.:.,. Anti-matte|
00006510  72 2c 4e 65 62 75 6c 61  2c 57 6f 72 6d 20 68 6f  |r,Nebula,Worm ho|
00006520  6c 65 2c 49 6f 6e 20 73  74 6f 72 6d 0d 3a d4 0f  |le,Ion storm.:..|
00006530  dd f2 63 6f 75 6e 74 64  6f 77 6e 0d 3a de 0c e7  |..countdown.:...|
00006540  91 3c 31 30 30 3a e1 0d  3a e8 0e 62 6f 6e 25 2d  |.<100:..:..bon%-|
00006550  3d 67 72 64 25 0d 3a f2  12 e7 62 6f 6e 25 3c 30  |=grd%.:...bon%<0|
00006560  3a 62 6f 6e 25 3d 30 0d  3a fc 07 ef 20 35 0d 3b  |:bon%=0.:... 5.;|
00006570  06 09 e6 20 30 2c 37 0d  3b 10 06 c8 96 0d 3b 1a  |... 0,7.;.....;.|
00006580  16 c8 93 c8 90 20 34 38  38 2c 31 39 32 2c 33 32  |..... 488,192,32|
00006590  2c 33 36 0d 3b 24 09 e6  20 30 2c 34 0d 3b 2e 0d  |,36.;$.. 0,4.;..|
000065a0  ec 20 34 38 38 2c 32 32  30 0d 3b 38 09 f1 62 6f  |. 488,220.;8..bo|
000065b0  6e 25 0d 3b 42 07 ef 20  34 0d 3b 4c 05 87 0d 3b  |n%.;B.. 4.;L...;|
000065c0  56 07 d1 3d 30 0d 3b 60  05 e1 0d 3b 6a 0c dd f2  |V..=0.;`...;j...|
000065d0  68 61 7a 61 72 64 0d 3b  74 0c e7 ac 6d 69 6e 25  |hazard.;t...min%|
000065e0  3a e1 0d 3b 7e 0a 68 69  74 25 3d a3 0d 3b 88 0d  |:..;~.hit%=..;..|
000065f0  c8 8e 20 67 72 64 25 20  ca 0d 3b 92 3d c9 20 33  |.. grd% ..;.=. 3|
00006600  2c 34 3a e7 a4 63 72 61  66 74 28 73 61 78 25 2c  |,4:..craft(sax%,|
00006610  73 61 79 25 2d 32 34 2c  73 61 78 25 2b 36 34 2c  |say%-24,sax%+64,|
00006620  73 61 79 25 2c 64 61 78  25 2c 64 61 79 25 29 3a  |say%,dax%,day%):|
00006630  68 69 74 25 3d b9 0d 3b  9c 07 c9 20 35 0d 3b a6  |hit%=..;... 5.;.|
00006640  07 c9 20 36 0d 3b b0 05  cb 0d 3b ba 0b e7 68 69  |.. 6.;....;...hi|
00006650  74 25 20 8c 0d 3b c4 22  f2 6e 6f 69 73 65 28 22  |t% ..;.".noise("|
00006660  54 6f 6e 65 22 2c 33 2c  26 31 37 46 2c 26 35 34  |Tone",3,&17F,&54|
00006670  30 30 2c 26 31 29 0d 3b  ce 14 73 63 72 25 28 63  |00,&1).;..scr%(c|
00006680  75 72 25 29 2d 3d 67 72  64 25 0d 3b d8 1e e7 73  |ur%)-=grd%.;...s|
00006690  63 72 25 28 63 75 72 25  29 3c 30 3a 73 63 72 25  |cr%(cur%)<0:scr%|
000066a0  28 63 75 72 25 29 3d 30  0d 3b e2 0b f2 73 63 6f  |(cur%)=0.;...sco|
000066b0  72 65 73 0d 3b ec 05 cd  0d 3b f6 05 e1 0d 3c 00  |res.;....;....<.|
000066c0  0f dd f2 70 6c 61 63 65  28 61 24 29 0d 3c 0a 21  |...place(a$).<.!|
000066d0  c8 99 22 41 42 43 5f 50  6c 61 63 65 22 2c 62 25  |.."ABC_Place",b%|
000066e0  2c 22 62 6c 61 6e 6b 22  2c 32 2c 33 34 0d 3c 14  |,"blank",2,34.<.|
000066f0  23 c8 99 22 41 42 43 5f  50 6c 61 63 65 22 2c 62  |#.."ABC_Place",b|
00006700  25 2c 22 62 6c 61 6e 6b  22 2c 35 39 38 2c 33 34  |%,"blank",598,34|
00006710  0d 3c 1e 1d c8 99 22 41  42 43 5f 53 70 72 69 74  |.<...."ABC_Sprit|
00006720  65 22 2c 62 25 2c 6a 24  2c 36 2c 33 32 0d 3c 28  |e",b%,j$,6,32.<(|
00006730  1f c8 99 22 41 42 43 5f  53 70 72 69 74 65 22 2c  |..."ABC_Sprite",|
00006740  62 25 2c 6a 24 2c 36 30  32 2c 33 32 0d 3c 32 05  |b%,j$,602,32.<2.|
00006750  e1 0d 3c 3c 0a dd f2 77  61 72 70 0d 3c 46 0c e7  |..<<...warp.<F..|
00006760  ac 73 75 63 25 3a e1 0d  3c 50 19 ef 20 32 34 2c  |.suc%:..<P.. 24,|
00006770  30 3b 33 32 30 3b 31 32  37 38 3b 31 30 32 30 3b  |0;320;1278;1020;|
00006780  0d 3c 5a 12 78 73 63 25  3d 73 61 78 25 2a 32 2b  |.<Z.xsc%=sax%*2+|
00006790  36 34 0d 3c 64 12 79 73  63 25 3d 73 61 79 25 2a  |64.<d.ysc%=say%*|
000067a0  34 2d 34 38 0d 3c 6e 23  f2 6e 6f 69 73 65 28 22  |4-48.<n#.noise("|
000067b0  57 6f 72 70 22 2c 33 2c  26 31 37 46 2c 26 34 30  |Worp",3,&17F,&40|
000067c0  30 2c 26 31 30 30 29 0d  3c 78 12 e3 72 61 64 25  |0,&100).<x..rad%|
000067d0  3d 31 b8 32 36 30 88 31  30 0d 3c 82 06 c8 96 0d  |=1.260.10.<.....|
000067e0  3c 8c 06 c8 96 0d 3c 96  10 e6 20 33 2c 72 61 64  |<.....<... 3,rad|
000067f0  25 83 33 2b 37 0d 3c a0  17 c8 8f c8 90 20 78 73  |%.3+7.<...... xs|
00006800  63 25 2c 79 73 63 25 2c  72 61 64 25 0d 3c aa 09  |c%,ysc%,rad%.<..|
00006810  e6 20 30 2c 37 0d 3c b4  15 c8 8f 20 78 73 63 25  |. 0,7.<.... xsc%|
00006820  2c 79 73 63 25 2c 72 61  64 25 0d 3c be 05 ed 0d  |,ysc%,rad%.<....|
00006830  3c c8 08 ef 20 32 36 0d  3c d2 05 e1 0d 3c dc 0d  |<... 26.<....<..|
00006840  dd f2 63 6f 6c 6c 65 63  74 0d 3c e6 0d e7 67 72  |..collect.<...gr|
00006850  64 25 3c 35 3a e1 0d 3c  f0 0a 61 72 65 25 3d b9  |d%<5:..<..are%=.|
00006860  0d 3c fa 0b e3 41 25 3d  31 b8 34 0d 3d 04 16 e7  |.<...A%=1.4.=...|
00006870  67 6c 69 25 28 41 25 29  20 80 20 61 72 65 25 20  |gli%(A%) . are% |
00006880  8c 0d 3d 0e 3d e7 a4 68  69 74 28 73 61 78 25 2c  |..=.=..hit(sax%,|
00006890  73 61 79 25 2d 32 34 2c  73 61 78 25 2b 36 34 2c  |say%-24,sax%+64,|
000068a0  73 61 79 25 2c 67 6c 78  25 28 41 25 29 2b 31 36  |say%,glx%(A%)+16|
000068b0  2c 67 6c 79 25 28 41 25  29 2d 38 29 20 8c 0d 3d  |,gly%(A%)-8) ..=|
000068c0  18 20 e7 67 72 64 25 3d  35 20 f2 6f 75 74 73 69  |. .grd%=5 .outsi|
000068d0  64 65 35 20 8b f2 6f 75  74 73 69 64 65 36 0d 3d  |de5 ..outside6.=|
000068e0  22 0b e7 61 72 65 25 20  8c 0d 3d 2c 2b e7 62 6f  |"..are% ..=,+.bo|
000068f0  6e 25 3e 30 3a f2 6e 6f  69 73 65 28 22 50 69 6e  |n%>0:.noise("Pin|
00006900  67 22 2c 33 2c 26 31 37  46 2c 26 35 34 30 30 2c  |g",3,&17F,&5400,|
00006910  26 31 30 29 0d 3d 36 1f  d6 20 4f 62 6a 65 63 74  |&10).=6.. Object|
00006920  2c 20 67 6c 78 25 28 41  25 29 2c 67 6c 79 25 28  |, glx%(A%),gly%(|
00006930  41 25 29 0d 3d 40 0e 67  6c 69 25 28 41 25 29 3d  |A%).=@.gli%(A%)=|
00006940  a3 0d 3d 4a 1a e7 62 6f  6e 25 3e 30 3a 73 63 72  |..=J..bon%>0:scr|
00006950  25 28 63 75 72 25 29 2b  3d 31 30 0d 3d 54 0b f2  |%(cur%)+=10.=T..|
00006960  73 63 6f 72 65 73 0d 3d  5e 05 cd 0d 3d 68 05 cc  |scores.=^...=h..|
00006970  0d 3d 72 30 c8 99 22 41  42 43 5f 53 70 72 69 74  |.=r0.."ABC_Sprit|
00006980  65 22 2c 62 25 2c 67 6c  64 24 28 41 25 29 2c 67  |e",b%,gld$(A%),g|
00006990  6c 78 25 28 41 25 29 2c  67 6c 79 25 28 41 25 29  |lx%(A%),gly%(A%)|
000069a0  0d 3d 7c 05 cd 0d 3d 86  05 cd 0d 3d 90 05 ed 0d  |.=|...=....=....|
000069b0  3d 9a 1a e7 ac 61 72 65  25 3a f2 65 78 70 6c 6f  |=....are%:.explo|
000069c0  64 65 28 30 2c 30 2c a3  29 0d 3d a4 13 e7 c6 8e  |de(0,0,.).=.....|
000069d0  20 67 6c 69 25 28 29 3d  2d 35 3a e1 0d 3d ae 0d  | gli%()=-5:..=..|
000069e0  e7 62 6f 6e 25 3e 30 3a  e1 0d 3d b8 0a 62 75 74  |.bon%>0:..=..but|
000069f0  25 3d 34 0d 3d c2 0a 66  6f 63 25 3d b9 0d 3d cc  |%=4.=..foc%=..=.|
00006a00  05 e1 0d 3d d6 0e dd f2  6f 75 74 73 69 64 65 35  |...=....outside5|
00006a10  0d 3d e0 1c 78 73 63 25  3d 28 67 6c 78 25 28 41  |.=..xsc%=(glx%(A|
00006a20  25 29 2b 31 36 29 2f 31  36 2d 32 30 0d 3d ea 1a  |%)+16)/16-20.=..|
00006a30  79 73 63 25 3d 28 67 6c  79 25 28 41 25 29 2d 38  |ysc%=(gly%(A%)-8|
00006a40  29 2f 38 2d 32 31 0d 3d  f4 0b e7 63 6f 72 25 20  |)/8-21.=...cor% |
00006a50  8c 0d 3d fe 21 e7 78 73  63 25 3c 78 65 31 25 20  |..=.!.xsc%<xe1% |
00006a60  84 20 78 73 63 25 3e 78  65 32 25 3a 61 72 65 25  |. xsc%>xe2%:are%|
00006a70  3d a3 0d 3e 08 05 cc 0d  3e 12 21 e7 79 73 63 25  |=..>....>.!.ysc%|
00006a80  3c 79 65 31 25 20 84 20  79 73 63 25 3e 79 65 32  |<ye1% . ysc%>ye2|
00006a90  25 3a 61 72 65 25 3d a3  0d 3e 1c 05 cd 0d 3e 26  |%:are%=..>....>&|
00006aa0  05 e1 0d 3e 30 0e dd f2  6f 75 74 73 69 64 65 36  |...>0...outside6|
00006ab0  0d 3e 3a 1c 78 73 63 25  3d 28 67 6c 78 25 28 41  |.>:.xsc%=(glx%(A|
00006ac0  25 29 2b 31 36 29 2f 31  36 2d 32 30 0d 3e 44 1a  |%)+16)/16-20.>D.|
00006ad0  79 73 63 25 3d 28 67 6c  79 25 28 41 25 29 2d 38  |ysc%=(gly%(A%)-8|
00006ae0  29 2f 38 2d 32 31 0d 3e  4e 41 e7 78 73 63 25 3e  |)/8-21.>NA.xsc%>|
00006af0  78 65 31 25 20 80 20 78  73 63 25 3c 78 65 32 25  |xe1% . xsc%<xe2%|
00006b00  20 80 20 79 73 63 25 3e  79 65 31 25 20 80 20 79  | . ysc%>ye1% . y|
00006b10  73 63 25 3c 79 65 32 25  20 72 65 67 25 3d b9 20  |sc%<ye2% reg%=. |
00006b20  8b 72 65 67 25 3d a3 0d  3e 58 0b e7 63 6f 72 25  |.reg%=..>X..cor%|
00006b30  20 8c 0d 3e 62 11 e7 ac  72 65 67 25 3a 61 72 65  | ..>b...reg%:are|
00006b40  25 3d a3 0d 3e 6c 05 cc  0d 3e 76 10 e7 72 65 67  |%=..>l...>v..reg|
00006b50  25 3a 61 72 65 25 3d a3  0d 3e 80 05 cd 0d 3e 8a  |%:are%=..>....>.|
00006b60  05 e1 0d 3e 94 13 dd f2  68 69 67 68 6c 69 67 68  |...>....highligh|
00006b70  74 61 72 65 61 0d 3e 9e  21 e7 67 72 64 25 3d 35  |tarea.>.!.grd%=5|
00006b80  20 f2 67 72 61 64 65 66  69 76 65 20 8b f2 67 72  | .gradefive ..gr|
00006b90  61 64 65 73 69 78 0d 3e  a8 0a c8 91 20 30 2c 30  |adesix.>.... 0,0|
00006ba0  0d 3e b2 10 d6 20 53 63  72 65 65 6e 53 61 76 65  |.>... ScreenSave|
00006bb0  0d 3e bc 0c e7 ac 66 6f  63 25 20 8c 0d 3e c6 0c  |.>....foc% ..>..|
00006bc0  f2 63 6f 6c 6c 65 63 74  0d 3e d0 09 f2 73 68 69  |.collect.>...shi|
00006bd0  70 0d 3e da 05 cd 0d 3e  e4 13 c8 99 22 41 42 43  |p.>....>...."ABC|
00006be0  5f 50 61 6c 65 74 74 65  22 0d 3e ee 0c e7 ac 66  |_Palette".>....f|
00006bf0  6f 63 25 3a e1 0d 3e f8  0a 66 69 6e 25 3d b9 0d  |oc%:..>..fin%=..|
00006c00  3f 02 0e f2 7a 65 72 6f  6d 6f 75 73 65 0d 3f 0c  |?...zeromouse.?.|
00006c10  05 f5 0d 3f 16 15 c8 97  20 6d 6f 78 25 2c 6d 6f  |...?.... mox%,mo|
00006c20  79 25 2c 62 75 74 25 0d  3f 20 0c fd 20 62 75 74  |y%,but%.? .. but|
00006c30  25 3e 30 0d 3f 2a 0e f2  7a 65 72 6f 6d 6f 75 73  |%>0.?*..zeromous|
00006c40  65 0d 3f 34 05 e1 0d 3f  3e 0f dd f2 67 72 61 64  |e.?4...?>...grad|
00006c50  65 66 69 76 65 0d 3f 48  13 c8 99 22 41 42 43 5f  |efive.?H..."ABC_|
00006c60  42 6c 61 6e 6b 22 2c 37  0d 3f 52 0a e6 20 30 2c  |Blank",7.?R.. 0,|
00006c70  31 31 0d 3f 5c 17 c8 93  c8 90 20 30 2c 33 32 30  |11.?\..... 0,320|
00006c80  2c 31 32 38 30 2c 37 30  34 0d 3f 66 0a e6 20 30  |,1280,704.?f.. 0|
00006c90  2c 31 30 0d 3f 70 0b e7  63 6f 72 25 20 8c 0d 3f  |,10.?p..cor% ..?|
00006ca0  7a 0c c8 91 20 36 34 30  2c 30 0d 3f 84 27 c8 93  |z... 640,0.?.'..|
00006cb0  c8 90 20 78 65 31 25 2a  33 32 2c 33 32 30 2c 28  |.. xe1%*32,320,(|
00006cc0  78 65 32 25 2d 78 65 31  25 29 2a 33 32 2c 37 30  |xe2%-xe1%)*32,70|
00006cd0  34 0d 3f 8e 05 cc 0d 3f  98 0c c8 91 20 30 2c 36  |4.?....?.... 0,6|
00006ce0  37 32 0d 3f a2 26 c8 93  c8 90 20 30 2c 79 65 31  |72.?.&.... 0,ye1|
00006cf0  25 2a 33 32 2c 31 32 38  30 2c 28 79 65 32 25 2d  |%*32,1280,(ye2%-|
00006d00  79 65 31 25 29 2a 33 32  0d 3f ac 05 cd 0d 3f b6  |ye1%)*32.?....?.|
00006d10  0b f2 67 72 61 70 68 35  0d 3f c0 05 e1 0d 3f ca  |..graph5.?....?.|
00006d20  0e dd f2 67 72 61 64 65  73 69 78 0d 3f d4 13 c8  |...gradesix.?...|
00006d30  99 22 41 42 43 5f 42 6c  61 6e 6b 22 2c 37 0d 3f  |."ABC_Blank",7.?|
00006d40  de 18 e7 63 6f 72 25 20  e6 20 30 2c 31 31 20 8b  |...cor% . 0,11 .|
00006d50  e6 20 30 2c 31 30 0d 3f  e8 17 c8 93 c8 90 20 30  |. 0,10.?...... 0|
00006d60  2c 33 32 30 2c 31 32 38  30 2c 37 30 34 0d 3f f2  |,320,1280,704.?.|
00006d70  0e c8 91 20 36 34 30 2c  36 37 32 0d 3f fc 18 e7  |... 640,672.?...|
00006d80  63 6f 72 25 20 e6 20 30  2c 31 30 20 8b e6 20 30  |cor% . 0,10 .. 0|
00006d90  2c 31 31 0d 40 06 36 c8  93 c8 90 20 78 65 31 25  |,11.@.6.... xe1%|
00006da0  2a 33 32 2c 79 65 31 25  2a 33 32 2c 28 78 65 32  |*32,ye1%*32,(xe2|
00006db0  25 2d 78 65 31 25 29 2a  33 32 2c 28 79 65 32 25  |%-xe1%)*32,(ye2%|
00006dc0  2d 79 65 31 25 29 2a 33  32 0d 40 10 0b f2 67 72  |-ye1%)*32.@...gr|
00006dd0  61 70 68 35 0d 40 1a 05  e1 0d ff                 |aph5.@.....|
00006ddb