$�   !RunImage of StarBase Attack
�
�       By Graham Rowbottom
(�
2�            (c) 1995
<
F
P
Z� � �shutdown
d
n"� �$<>"Module is not in ROM" �
x
�� 15
�!� "Risc PC Mode (y/n) : ",yn$
� 
�)� yn$="y" � yn$="Y" � risc=� � risc=�
�'� "IconSprites <obey$dir>.!Pointer"
�� "Pointer 1"
��
�
�
�� normal(50,7),selected(50)
�� circle(30,6),limits(8,2)
�&� exist(10),nuke(8,4),multiman(50)
�%� ismulti(50),other(50),isgit(50)

%� shotgo(40,8),font(28),inc(40,2)

"� numis(40),spd(40),gitprb(40)

&� name$(20),hiscore(20),erased(50)

"� curse$(6),diff(20)

,t=0

6ch=0

@shotgo()=0

J
numshot=0

T
isgit()=�

^
exist()=�

hammo=200:fs=�

rnumcircle=0:xd=0:yd=0

|gunheight=100:gunx=620

�-xpos=1:ypos=2:xend=3:yend=4:xdir=5:ydir=6

�*score=0:lascol=31:blastcol=12:gitcol=3

�
endgame=�

��mf

�

�� risc � � 21 � � 15

�

�ȗ �

�Ƞ 4

�� "Audio On"

�

�

�

� risc �
� "SCHOOSE city3"
&�
0� "SCHOOSE city"
:�
D
N
wave=0
XG� 75,168,219,312,363,456,507,600,648,741,795,885,939,1029,1080,1173
b
l<� 4,10,6,12,8,14,8,14,8,14,10,15,10,15,15,20,15,20,20,20
v(� 7,70,80,80,100,140,150,160,180,200
�� 2,3,3,3.5,3.5,4,4.5,6,6,6
�3� 0,0.005,0.08,0.03,0.05,0.09,0.1,0.1,0.15,0.15
�
�
�
�
� i=1 � 8
� � limits(i,1),limits(i,2)
�� i
�
�� i=1 � 10
� � inc(i,1),inc(i,2)
�� i
�� i=1 � 10
 � numis(i)
� i

 
diff=0
*�getspds
4
>
� �tJB
H� i=1 � 10
R � gitprb(i)
\� i
f
p
z
�� i=11 � 40
� gitprb(i)=gitprb(10)
� spd(i)=spd(10)
� numis(i)=numis(10)
� inc(i,1)=inc(10,1)
� inc(i,2)=inc(10,2)
�� i
�
�
�
�� 5
��hall_of_fame
�xpos=1:ypos=2
�screen_setup
�set_score
�tracker
$
endgame=�
.
8
B
L�refresh_city
Vȗ ȓ 0,188,1279,580
`numfired=5
j
t�
~
�   � endgame �
�xpos=1:ypos=2
�    wave=0
�    score=0
�    exist()=�
�    selected()=�
�    �screen_setup
�    �refresh_city
�    �tracker
�    endgame=�
�   �
�    
"                    numfired=5

"                    finished=�
!                    numshot=0
"                    shotgo()=0
(                     nuke()=0
2#                    numcircle=0
<
F
P   wave+=1
Z   
d   � wave=41 �
n	    �
x    � 4
�4    �10,10);"You are TOO good at this game!!!!"
�    p=�
�    �hall_of_fame
�    �shut_down
�   �
�
�   
�/                    ammo=numis(wave)+wave*5
�"                    �set_score
�   
�   � risc �
�   � m=1 � 250 � 1
�    � n=1 � 500:�
    � 500,550
    � m,m,m
    � "Wave ";wave
"
   � m
,   �
6    � 63 Ȝ 255
@    � 500,550
J    � "Wave ";wave
T   �
^   �:ȗ d,f,s:� s=0
h   
r   
|   
��refresh_city
�   �
�    ȗ xp,yp,b
�    �tracker
�
   � b<>0
�   �:ȗ s,d,f:� f=0
�   � 0 Ȝ 0
�   ȓ Ȑ 490,520,155,40
�   
�                    
�                    
�
 num=5
� � i=1 � num
  �assign_line(i,�)
 �
 toset=�
&                    
0
:�
D
Nw=0:numl=0
X �
b
  w+=1
l!  � selected(w) � numl=numl+1
v � w=num
�� 5
�
 g=�(500)
�
 de=10
�  � numl<inc(wave,1) � de=501
� � numl>inc(wave,2) � de=2
� � numl=0 � de=501
�
 � g<de �
� y=0
�  �
�
  y+=1
�  � selected(y)=�
�  � y>num � num=y
�  � finished=� �
  � wave>1 �
'   � �(1)<gitprb(wave) � isgit(y)=�
  �
   �assign_line(y,�)
*  numfired+=1
4  �
>)  � numfired=numis(wave) � finished=�
H �
R
\ � i=1 � num
f
p  
z  p=�(1)
�
�
�
�(  � p<0.0003 � numl>2 � isgit(i)=� �
�	  q=0
�   �
�   q+=1
�   � q=num � q=0
�    � selected(q)=� � �(15)=3
�   splitnum=q
�   
�
   f=�(1)
�   
	   � f>=0.1 � � risc �
	    nump=3
	   �
	$    nump=8
	.   �
	8
      
	B   � g=1 � nump
	L"    q=0:�:q+=1:� selected(q)=�
	V    � q>num � num=q
	`    �assign_line(q,-1)
	j
   � g
	t
	~
	�  �
	� 
	�" � selected(i) � � other(i)  �
	� 
	� 
	�.  � p<0.0008 � ismulti(i)=� � � isgit(i) �
	�
	�   
	�   splitnum=i
	�   d=0:�
	�   d+=1:� selected(d)=�
	�   multiman(d)=i
   other(i)=�

   ismulti(d)=�
   � d>num � num=d
   �assign_line(d,�)
(   
2 �
< 
F 
P  normal(i,7)+=1
Z  xposold=normal(i,xpos)
d  yposold=normal(i,ypos)
n$  normal(i,xpos)+=normal(i,xdir)
x$  normal(i,ypos)-=normal(i,ydir)
�  
�  � isgit(i) �
�
�6   � �normal(i,xpos),normal(i,ypos)-18)=blastcol �
�    xdtmp=normal(i,xdir)
�    ydtmp=normal(i,ydir)
�    xptmp=normal(i,xend)
�    yptmp=normal(i,yend)
�    �erase_line
�    isgit(i)=�
�    erased(i)=�
�    normal(i,ypos)+=18
�%    normal(i,xend)=normal(i,xpos)
%    normal(i,yend)=normal(i,ypos)
    normal(i,xdir)=xdtmp
    normal(i,ydir)=ydtmp
"    
,    
6   
@    selected(i)=�
J   �
T  �
^  
h  
r  �get_mouse
|
  � z=5 �
�   � 0,0
�   � 1279,959
�   � "SGet screen"
�"   � "SSave <Obey$dir>.screen"
�
   z=0
�  �
�  
�  
�  � z<>0 �
�  � blastcol
�
�� ammo>0 �
�
  ammo-=1
�set_score


�new_shot
&�play(11000,"Lazer",0)
0�
:
D�play(11000,"Collect",0)
Ntoset=�
X�
b  �
l  
v  
�%b=�normal(i,xpos),normal(i,ypos))
�0� (b=63 � b=1 � b=15) � normal(i,ypos)<100 �
�
� 
�   hitx=normal(i,xpos)
�
   k=�
�   � l=1 � 8
�>    � hitx>limits(l,1) � hitx<limits(l,2) � hitx=l:l=8:k=�
�
   � l
� endgame=�
�$ � hitx>8 � hitx<1 �  k=�:hitx=8
�   � k=� � exist(hitx) �
�    �explode_city(hitx)

    

    

    �play(3000,"Boom",0)

 

*    � endgame �

4
    i=num

>    numl=0

H'     normal(i,xpos)+=normal(i,xdir)

R'     normal(i,ypos)+=normal(i,ydir)

\	     

f	    �

p	     

z     t=4

�    �erase_line

�

�    exist(hitx)=�

�    �refresh_city

�    exist(hitx)=�

�   �

��

�  

�2  � �normal(i,xpos),normal(i,ypos))=blastcol �

�    �erase_line

�    score+=10

�    �set_score

�  �
   � isgit(i) �
   � gitcol Ȝ 255
   �
$   � lascol Ȝ 255
.   �
8  
Bwer=normal(i,ypos)
L7� yposold>wer � yposold<wer+20 � � endgame � t<>4 �
V6   � normal(i,xpos),normal(i,ypos),xposold,yposold
`�
j
t  � t=4 � t=0
~  
�
�  �
�  
�B � normal(i,ypos)<0 � normal(i,xpos)>1297 � normal(i,xpos)<0 �
�  �erase_line
� �
�   
�
�  
� �
� 
�%  � selected(i)=� � erased(i)=� �
   erased(i)=�

   �erase_line
  �
  
(  
2  
< � i
F 
P 
Z �manage_circle
d �manage_nuke
n �manage_shot
x
 �tracker
� 
� 
� 
�� numl=0 � endgame
�
�
�
�� endgame �
�
�     �erase_line
�     � k=1 � num
�
      i=k
�      � selected(i) �
      �erase_line
      �

      
"
      
,     � k
6     selected()=�
@     �screen_setup
J     �set_score
T     � w=1 � 100
^      �manage_nuke
h      �tracker
r      �manage_circle
|      �manage_shot
�
     �
�	     
�
     �
�	     
�     �hall_of_fame
�	     
��
�
�
�� i=1 � 100
� �manage_circle
� �manage_nuke
� �manage_shot

 �tracker
� i

&� risc �
0� 63 Ȝ 255
:�
D� 63 Ȝ 255
N�
X
b� risc �
l� i=1 � 250
v � i,i,i
� � n=1 � 500:�
�1 � 430,600:� "*** WAVE ";wave;" COMPLETE ***"
�
 � 80,430
� � "City Bonus  "
�� i
��
� � 63 Ȝ 255
�1 � 430,600:� "*** WAVE ";wave;" COMPLETE ***"
� � 80,430:� "City Bonus  "
��
�
� 
� q=0
� risc �
� "SCHOOSE city3"
�
 � "SCHOOSE city"
*�
4 
> � i=1 � 8
H  � exist(i) �
R
  q+=1
\   � 0 Ȝ 0
f   st=�
p   �:� �-st=50
z   
�&   ȓ Ȑ -75+i*(1150/8),10,110,100
�   
�   � &ED,170+q*120,390
�   �play(7000,"Collect",0)
�   score+=150
�   �set_score
�   
�  �
� � i
� 
�   st=�
�   �:� �-st=50
� 
          tmp=ammo
)          � risc � grr=1000 � grr=300
 � i=tmp � 1 � -1
$
  ammo-=1
.  score+=10
8  �set_score
B  � k=1 � grr:� k
L � i
V 
`
j
 � 0 Ȝ 0
t ȓ Ȑ 0,150,1279,700
~ 
� 
��
�
�
�
�� �
�
�
�� �get_mouse
� ȗ xp,yp,z
� � toset=� �
�  � z<>0 � z=0 � toset=�
 �

�

� �manage_circle
(
2 � k=1 � numcircle
< � circle(k,1)<>0 �
F
P  circle(k,4)+=0.09
Z  cold=circle(k,3)
d$  circle(k,3)=�(circle(k,4))*100
n
x(  � circle(k,3)>95 � � circle(k,5) �
�   circle(k,5)=�
�   circle(k,3)=0
�   circle(k,4)=0
�   circle(k,6)=�
�  �
�  
�  
�  � circle(k,5) �
�
   xoff=6
�
   yoff=6
�
   roff=8
�  �
�
   xoff=0

   yoff=0

   roff=0
  �
"
,
6
@� cold>circle(k,3) �
Jcircle(k,6)=�
T  �
^
h� circle(k,5) �
r
 � 0 Ȝ 0
|�
�  � blastcol Ȝ 255
� �
� 
�>  ȏ Ȑ circle(k,1)+xoff,circle(k,2)+yoff,circle(k,3)+roff
�  
�  � circle(k,3)<0 �
�   � 0 Ȝ 0
�'   ȏ Ȑ circle(k,1),circle(k,2),25
�  
�   
�   circle(k,1)=0
�   
�  �
  
6  � circle(k,3)>95 � circle(k,5) � � circle(k,6) �
   circle(k,1)=0
&   circle(k,6)=�
0   circle(k,5)=�
:   
D  �
N  
X�
b� k
l� 63 Ȝ 255
v�
�
�
�
�� �test
�� 63 Ȝ 255
�ȓ Ȑ 100,100,300,300
�p=�
�� i=250 � 1 � -5
� � 63,i,i,i
� p=�
�� i
�p=�
��

� �assign_line(w,split)

  f=�(10):city=0
* � isgit(w) � f=4
4 � f<7 �
> �
H yn=�(�(8))
R � exist(yn)
\
 cityn=yn
f
p city=-50+(1190/8)*cityn
z �
� city=(�(8))
� city=-50+(1190/8)*city
� 
� �
�                   
�                   
�� � split �
�
�& normal(w,xpos)=city+(-250+�(500))
�* � normal(w,xpos)<0 � normal(w,xpos)=0
�0 � normal(w,xpos)>1279 � normal(w,xpos)=1279
�
 � risc �
� normal(w,ypos)=900
 �
 normal(w,ypos)=890
 �
$�
.
8) normal(w,xpos)=normal(splitnum,xpos)
B) normal(w,ypos)=normal(splitnum,ypos)
L�
V 
`#  normal(w,xend)=normal(w,xpos)
j#  normal(w,yend)=normal(w,ypos)
t 
~' � normal(w,xpos)>600 � cn=1 � cn=2
� 
�$ normal(w,ydir)=spd(wave)+�(1)*2
�.                   yinc=900/normal(w,ydir)
�. normal(w,xdir)=(city-normal(w,xpos))/yinc
�* � normal(w,xdir)=0 � normal(w,xdir)=1
� 
�
� split �
� �
�%  normal(w,ydir)=spd(wave)+�(1)*2
�%  tgt=normal(w,xpos)+(-70+�(140))
�  
�8  normal(w,xdir)=(tgt-normal(w,xpos))/normal(w,ydir)
* � normal(w,xdir)=0 � normal(w,xdir)=1

) � �(normal(w,ydir)/normal(w,xdir))>2
�

( 
2 selected(w)=�
< erased(w)=�
F 
P�
Z 
d� �erase_line
n   � tmp,j
x
�   
�   � ismulti(i) �
�    ismulti(i)=�
�
    tmp=i
�    i=multiman(i)
�    ismulti(i)=�
�    �erase_line
�    other(i)=�
�
    i=tmp
�    multiman(i)=�
�
�   �
� 
   selected(i)=�
   isgit(i)=�

"   � 0 Ȝ 0
,
6C� normal(i,xpos), normal(i,ypos), normal(i,xend),normal(i,yend)
@G� normal(i,xpos)-2, normal(i,ypos), normal(i,xend)-2,normal(i,yend)
JG� normal(i,xpos)+2, normal(i,ypos), normal(i,xend)-2,normal(i,yend)
TG� normal(i,xpos)-2, normal(i,ypos), normal(i,xend)+2,normal(i,yend)
^G� normal(i,xpos)+2, normal(i,ypos), normal(i,xend)+2,normal(i,yend)
hG� normal(i,xpos)-4, normal(i,ypos), normal(i,xend)-2,normal(i,yend)
rG� normal(i,xpos)+4, normal(i,ypos), normal(i,xend)+2,normal(i,yend)
|
�other(i)=�
�erased(i)=�
�
��refresh_missiles
� �
� 
� 
�� �screen_setup
�      r=58
�!      � risc � ugt=0 � ugt=-8
�� i=902+ugt � 960 � 2
�r-=2
�
 � risc �
  � 25,25,r*(250/58)
 �

  � 48
& �
0 
: � 0,i,1279,i
D� i
N
X� risc �
b � 63 Ȝ 255
l�
v � 63 Ȝ 255
��
�
�� 0,0,1279,0
�
�� 0,902+ugt,1279,902+ugt
�
�
�init_scr
�
��
�
�� �set_score
�� 0 Ȝ 0
�� risc �
 ȓ Ȑ 165,915,112,20
 ȓ Ȑ 565,915,112,20
�
  ȓ Ȑ 165,908,112,32
* ȓ Ȑ 565,908,112,32
4�
>
H � 40,930-ugt
R� 63 Ȝ 255
\ � "  SCORE ";score
f
p � 440,930-ugt
z � "   AMMO ";ammo
� 
� 
�
��
�
�� �explode_city(t)
�
�
�
 � 3 Ȝ 0
� nuke(t,1)=t*(1150/8)-25
� nuke(t,2)=50
� nuke(t,3)=0
� nuke(t,4)=0
 
 exist(t)=�
g=�
$
� o=1 � 8
. � exist(o) � g=�
8� o
B� g=� � endgame=�
L 
V�
`
j� �new_circle
t	  d=0
~  
�  �
�
  d+=1
�  � circle(d,1)=0
�!  � d>numcircle � numcircle=d
�
�#  xp=shotgo(k,7):yp=shotgo(k,8)
�?  circle(d,1)=xp:circle(d,2)=yp:circle(d,3)=5:circle(d,4)=0
�%  � circle(d,1)=0 � circle(d,1)=1
�
�  � lascol
�
  toset=�
�
�


� �manage_nuke
 � h=1 � 8
(  � nuke(h,1)<>0 �
2   nuke(h,4)+=0.05
<   nukold=nuke(h,3)
F    nuke(h,3)=�(nuke(h,4))*75
P   � nuke(h,3)<0 �
Z    � 0 Ȝ 0
d#    ȏ Ȑ nuke(h,1),nuke(h,2),5
n    nuke(h,1)=0
x   �
�    � nukold>nuke(h,3) �
�     � 0 Ȝ 0
�)     ȏ Ȑ nuke(h,1),nuke(h,2),nukold
�	    �
�    � risc �
�!     � �(nuke(h,4))*250,100,0
�	    �
�     � �(nuke(h,4))*63
�	    �
�+    ȏ Ȑ nuke(h,1),nuke(h,2),nuke(h,3)
�   �
�  �
�  
  � 63 Ȝ 255
  � 0,0,1279,0
 � h
"�
,
6
@� �new_shot
J
Tg=0
^�
h	 g+=1
r
|� shotgo(g,1)=0
� � g>numshot � numshot=g
� xdiff=xp-gunx
� ydiff=yp-gunheight
�+ shotgo(g,1)=gunx:shotgo(g,2)=gunheight
� shotgo(g,3)=shotgo(g,1)
� shotgo(g,4)=shotgo(g,2)
�" shotgo(g,7)=xp:shotgo(g,8)=yp
�
�� xdiff=0 � xdiff=1
�atn=ydiff/xdiff
�atn=�(atn)
�� xdiff<0 � atn=-atn
�
 shotgo(g,5)=40*�(atn)
 (� xdiff<0 � shotgo(g,5)=-shotgo(g,5)
 shotgo(g,6)=40*�(atn)
 & toset=�
 0�
 :
 D� �manage_shot
 N
 X� k=1 � numshot
 b � shotgo(k,1)<>0 �
 l4 shotgo(k,3)=shotgo(k,1):shotgo(k,4)=shotgo(k,2)
 v 
 �  
 � shotgo(k,1)+=shotgo(k,5)
 � shotgo(k,2)+=shotgo(k,6)
 � 
 � 
 �
 � 0 Ȝ 0
 �# ȓ shotgo(k,3),shotgo(k,4),2,2
 � � 63 Ȝ 255
 �# ȓ shotgo(k,1),shotgo(k,2),2,2
 �
 � 
 �B � shotgo(k,2)<=shotgo(k,8)+20 � shotgo(k,2)>=shotgo(k,8)-20 �
 �
!-  � 0 Ȝ 0:ȓ shotgo(k,1),shotgo(k,2),2,2
!  �play(5000,"Boom",0)
!  �new_circle
!   shotgo(k,1)=0
!*  
!4 �
!> 
!H �
!R� k
!\ 
!f�
!p
!z
!�� �refresh_city
!�� a
!�� risc �
!�� "SCHOOSE city3"
!��
!�� "SCHOOSE city"
!��
!�
!�
� a=1 � 8
!� � exist(a) �
!� � &ED,-75+a*(1150/8),10
!� �
!�� a
"�
"
"� �tracker
"$          ȗ xp,yp,b
".          xdold=xd
"8          ydold=yd
"B xd=xp-gunx
"L yd=yp-gunheight
"V � xd=0 � xd=1
"` ang=�(yd/�(xd))
"j 
"t � xd<0 � ang=(�)-ang
"~ 
"� 
"� xd=20*�(ang)
"� yd=20*�(ang)
"� � ang<0 � yd=-yd
"� 
"�
 � 0 Ȝ 0
"�0 � gunx,gunheight,gunx+xdold,gunheight+ydold
"� 
"�� 63 Ȝ 255
"�* � gunx,gunheight,gunx+xd,gunheight+yd
"� 
"� ȏ Ȑ gunx,gunheight,4
#! � gunx-2,gunheight,gunx-2,10
#
! � gunx+2,gunheight,gunx+2,10
#�
#
#(� �refresh_missiles
#2�
#< � b=1 � num
#F  � selected(b) �
#P   � lascol Ȝ 255
#ZD   � normal(b,xend),normal(b,yend),normal(b,xpos),normal(b,ypos)
#d  �
#n � b
#x�
#�
#� 
#�
#�
#�
#�� �hall_of_fame
#�dispnum=-1
#�
#�� i=10 � 1 � -1
#� � score<hiscore(i) �
#�  dispnum=i+1
#�  
#�  � dispnum<>11 �
$  � k=10 � i+2 � -1
$   hiscore(k)=hiscore(k-1)
$   name$(k)=name$(k-1)
$"   diff(k)=diff(k-1)
$,	  � k
$6  hiscore(dispnum)=score
$@  
$J  �
$T  
$^	  i=1
$h �
$r� i
$|
$�
$�� dispnum=-1 �
$� � i=9 � 1 � -1
$�  hiscore(i+1)=hiscore(i)
$�  name$(i+1)=name$(i)
$�  diff(i+1)=diff(i)
$� � i
$� hiscore(1)=score
$� dispnum=1
$��
$�
$�� risc �
$�� "SCHOOSE misscom"
%po=0
%�
%� "SCHOOSE misscom3"
%&
po=140
%0�
%:
%D
%N� &ED,200,650+po
%X
%b � 5
%l� 23,17,7,%100,10;8;0,0
%v
%�� 23,17,7,%10,10;12;0,0
%�	 � 63
%� 
%�
 � risc �
%�  � 50,50,130
%� �
%�
  � 17
%� �
%� 
%�
 � risc �
%� ȓ Ȑ 280,100,700,485
%� �
%� ȓ Ȑ 280,100,700,645
& �
& 
& � dispnum<>11 �
& 
 � risc �
&* � 170,70,70
&4 �
&> � 63 Ȝ 255
&H �
&R 
&\G � 130,45:� "Mouse left & right to choose. Press button to select."
&f �
&p 
&z � 63 Ȝ 255
&�
 � risc �
&� ȓ 280,100,700,485
&� ȓ 275,95,710,495
&� �
&� 
&� ȓ 280,100,700,645
&� ȓ 275,95,710,655
&��
&� 
&�
&� 
&� 
&� � i=1 � 10
'  � risc �
'#   � 250-i*10,250-i*10,250-i*10
'   up=0:mlt=0
'$  �
'.   � 63 Ȝ 255
'8   up=145:mlt=10
'B  �
'L  � i=dispnum �
'V   � 31 Ȝ 255
'`3   name$(i)="   ":hiscore(i)=score:diff(i)=diff
'j  �
't  
'~  
'� 
'� � 290,(600+up)-i*(45+mlt)
'�6 � i;"- ";name$(i);" (";diff(i);")    ";hiscore(i)
'�
'� 
'� � i
'� 
'�, xpos=530:ypos=(600+up)-dispnum*(45+mlt)
'� 
'� � dispnum<>11 �
'�  �get_name
'�   name$(dispnum)=new$
(
         
(
    x=�("<Obey$dir>.hiscore")
(   � i=1 � 10
((    � #x,name$(i),hiscore(i),diff(i)
((
   � i
(2   � #x
(<  
(F �
(P� 0 Ȝ 0
(Zȓ Ȑ 0,0,1279,50
(d
(n� risc �
(x � 170,70,70
(��
(� � 63 Ȝ 255
(��
(�8 � 130,45:� "               Click the Mouse to Play"
(�  � "FX 15"
(�  �:ȗ l,m,n:� n<>0
(�  �:ȗ l,m,n:� n=0
(�
(�� 23,17,7,%100,8;8;0,0
(�
(�� 23,17,7,%10,8;8;0,0
(� �
(�	  � 5
)  � 0 Ȝ 0
)  ȓ Ȑ 300,300,500,150
)  � 63 Ȝ 255
)"  ȓ 300,300,500,150
),  ȓ 305,305,490,140
)6  ȓ 320,320,460,20
)@  
)J   � risc � ghj=390 � ghj=405
)T,  � 350,ghj:� "Select difficulty rating"
)^
  ȗ �
)h  ȗ ȓ 320,320,438,20
)r  
)|
  g=0:h=0
)�  � � risc � ert=2 � ert=0
)�� 4
)�  �
)�   gold=g:hold=h
)�   ȗ g,h,j
)�   
)�   � g<gold �
)�    �PRINT "OK"
)�    � 0 Ȝ 0
)�&    ȓ Ȑ g+2,322+ert,776-g,16-ert
)�   �
)�    � 2 Ȝ 255
)�   �
*   
*&    ȓ Ȑ 322,322+ert,g-302,16-ert
*    
*&  � j<>0
*0  diff=g-322
*:diff+=2
*Ddiff=�(diff/100)
*N�getspds
*Xȗ �
*bȗ ȓ 0,188,1279,580
*l 
*v
     �
*� �
*� 
*� 
*�� �shutdown
*�#� �$="Module is not in ROM" � �
*�� 4
*��
*��
*��
*�� "    StarBase Attack"
*��
*��
*�� "  By Graham Rowbottom"
+	�:�:�
+J� �:� � � "Error in ShutDown Procedure. Line : ";�;"    Cause : ";�$:�
+ 
+  � "RmKill Boom"
+* � "RmKill Lazer"
+4 � "RmKill Collect"
+>) � "IconSprites <obey$dir>.!Pointer1"
+H � "Pointer 1"
+R'� PRINT REPORT$;" AT LINE ";ERL:END
+\ 
+f �
+p�
+z
+�� �play(pitch,name$,qsound)
+�
+�	ch+=1
+�� ch=5 � ch=1
+�
+�  
+�' � "channelvoice "+�(ch)+ " "+name$
+� � ch,-15,pitch,1,qsound
+� 
+�
+��
+�
+�
,
,� �get_name
,                  new$=""
,$ � 5
,.� 23,17,7,%100,10;8;0,0
,8
,B� 23,17,7,%10,10;12;0,0
,L
,V
,`               x=0:y=0
,j               num=65
,t               ltr=1
,~ȗ �
,�
ȗ � 0,10
,�� 31 Ȝ 255
,�   � xpos,ypos
,�   � �(num)
,�
,�
,� �
,�  xold=x:yold=y
,�  ȗ x,y,z
,�  numold=num
,�  
,�  � z<>0 �
-
   ltr+=1
-
   � ltr=4 �
-   new$+=�(num)
-    ȗ �
-(	    �
-2   �
-<   
-F   new$+=�(num)
-P   xpos+=20
-Z   � 31 Ȝ 255
-d   � xpos,ypos
-n   � �(num)
-x    �:ȗ a,s,d:� d=0
-�  �
-�  
-�  
-�  xmult=1279/26
-�  ymult=959/26
-�  
-� � i=1 � 26
-� 
-� 
-�  � x<i*xmult �
-�   num=i+64
-�   i=26
-�  �
.  
. 
. 
." � i
., 
.6 
.@  
.J  
.T  � numold<>num �
.^  � risc �
.h  � 50,50,130
.r
  re=0
.|  �
.�
  � 17
.�  re=20
.�  �
.�  
.�  
.�  
.�%   ȓ Ȑ xpos,ypos-20-re,20,20+re
.�   
.�   � xpos,ypos
.�   � 31 Ȝ 255
.�   � �(num)
.�  �
.�   
/ � �
/   
/
/&
/0
/:
/D �
/N
/X
/b	� �mf
/l
/v
/� x=�("<Obey$dir>.hiscore")
/� � i=1 � 10
/�&  � #x,name$(i),hiscore(i),diff(i)
/� � i
/�	 � #x
/�
/�
/��
/�
/�� �init_scr
/� � 5
/�� 63 Ȝ 255
/�� risc �
0
 ugr=0
0�
0
 ugr=8
0 �
0*" ȓ 163,912-ugr,116,24+(2*ugr)
04" ȓ 563,912-ugr,116,24+(2*ugr)
0>� 63 Ȝ 255
0H � 900,930+ugr
0R � "HI SCORE  ";hiscore(1)
0\ 
0f�
0p
0z� �getspds
0�
� �t@B
0�� i=1 � 10
0�
 � spd(i)
0� � � risc �
0�  spd(i)+=2.5+diff+(i/10)
0� �
0�  spd(i)+=diff
0� �
0�
0� �
0�� i
0�� i=11 � 30
0� spd(i)=spd(10)
1� i
1�
1
1$
�

00000000  0d 00 0a 24 f4 20 20 20  21 52 75 6e 49 6d 61 67  |...$.   !RunImag|
00000010  65 20 6f 66 20 53 74 61  72 42 61 73 65 20 41 74  |e of StarBase At|
00000020  74 61 63 6b 0d 00 14 05  f4 0d 00 1e 1f f4 20 20  |tack..........  |
00000030  20 20 20 20 20 42 79 20  47 72 61 68 61 6d 20 52  |     By Graham R|
00000040  6f 77 62 6f 74 74 6f 6d  0d 00 28 05 f4 0d 00 32  |owbottom..(....2|
00000050  19 f4 20 20 20 20 20 20  20 20 20 20 20 20 28 63  |..            (c|
00000060  29 20 31 39 39 35 0d 00  3c 04 0d 00 46 04 0d 00  |) 1995..<...F...|
00000070  50 04 0d 00 5a 11 ee 20  85 20 f2 73 68 75 74 64  |P...Z.. . .shutd|
00000080  6f 77 6e 0d 00 64 04 0d  00 6e 22 e7 20 f6 24 3c  |own..d...n". .$<|
00000090  3e 22 4d 6f 64 75 6c 65  20 69 73 20 6e 6f 74 20  |>"Module is not |
000000a0  69 6e 20 52 4f 4d 22 20  8c 0d 00 78 04 0d 00 82  |in ROM" ...x....|
000000b0  08 eb 20 31 35 0d 00 8c  21 e8 20 22 52 69 73 63  |.. 15...!. "Risc|
000000c0  20 50 43 20 4d 6f 64 65  20 28 79 2f 6e 29 20 3a  | PC Mode (y/n) :|
000000d0  20 22 2c 79 6e 24 0d 00  96 05 20 0d 00 a0 29 e7  | ",yn$.... ...).|
000000e0  20 79 6e 24 3d 22 79 22  20 84 20 79 6e 24 3d 22  | yn$="y" . yn$="|
000000f0  59 22 20 8c 20 72 69 73  63 3d b9 20 8b 20 72 69  |Y" . risc=. . ri|
00000100  73 63 3d a3 0d 00 aa 27  ff 20 22 49 63 6f 6e 53  |sc=....'. "IconS|
00000110  70 72 69 74 65 73 20 3c  6f 62 65 79 24 64 69 72  |prites <obey$dir|
00000120  3e 2e 21 50 6f 69 6e 74  65 72 22 0d 00 b4 11 ff  |>.!Pointer".....|
00000130  20 22 50 6f 69 6e 74 65  72 20 31 22 0d 00 be 05  | "Pointer 1"....|
00000140  cd 0d 00 c8 04 0d 00 d2  04 0d 00 dc 1f de 20 6e  |.............. n|
00000150  6f 72 6d 61 6c 28 35 30  2c 37 29 2c 73 65 6c 65  |ormal(50,7),sele|
00000160  63 74 65 64 28 35 30 29  0d 00 e6 1e de 20 63 69  |cted(50)..... ci|
00000170  72 63 6c 65 28 33 30 2c  36 29 2c 6c 69 6d 69 74  |rcle(30,6),limit|
00000180  73 28 38 2c 32 29 0d 00  f0 26 de 20 65 78 69 73  |s(8,2)...&. exis|
00000190  74 28 31 30 29 2c 6e 75  6b 65 28 38 2c 34 29 2c  |t(10),nuke(8,4),|
000001a0  6d 75 6c 74 69 6d 61 6e  28 35 30 29 0d 00 fa 25  |multiman(50)...%|
000001b0  de 20 69 73 6d 75 6c 74  69 28 35 30 29 2c 6f 74  |. ismulti(50),ot|
000001c0  68 65 72 28 35 30 29 2c  69 73 67 69 74 28 35 30  |her(50),isgit(50|
000001d0  29 0d 01 04 25 de 20 73  68 6f 74 67 6f 28 34 30  |)...%. shotgo(40|
000001e0  2c 38 29 2c 66 6f 6e 74  28 32 38 29 2c 69 6e 63  |,8),font(28),inc|
000001f0  28 34 30 2c 32 29 0d 01  0e 22 de 20 6e 75 6d 69  |(40,2)...". numi|
00000200  73 28 34 30 29 2c 73 70  64 28 34 30 29 2c 67 69  |s(40),spd(40),gi|
00000210  74 70 72 62 28 34 30 29  0d 01 18 26 de 20 6e 61  |tprb(40)...&. na|
00000220  6d 65 24 28 32 30 29 2c  68 69 73 63 6f 72 65 28  |me$(20),hiscore(|
00000230  32 30 29 2c 65 72 61 73  65 64 28 35 30 29 0d 01  |20),erased(50)..|
00000240  22 18 de 20 63 75 72 73  65 24 28 36 29 2c 64 69  |".. curse$(6),di|
00000250  66 66 28 32 30 29 0d 01  2c 07 74 3d 30 0d 01 36  |ff(20)..,.t=0..6|
00000260  08 63 68 3d 30 0d 01 40  0e 73 68 6f 74 67 6f 28  |.ch=0..@.shotgo(|
00000270  29 3d 30 0d 01 4a 0d 6e  75 6d 73 68 6f 74 3d 30  |)=0..J.numshot=0|
00000280  0d 01 54 0d 69 73 67 69  74 28 29 3d a3 0d 01 5e  |..T.isgit()=...^|
00000290  0d 65 78 69 73 74 28 29  3d b9 0d 01 68 11 61 6d  |.exist()=...h.am|
000002a0  6d 6f 3d 32 30 30 3a 66  73 3d b9 0d 01 72 19 6e  |mo=200:fs=...r.n|
000002b0  75 6d 63 69 72 63 6c 65  3d 30 3a 78 64 3d 30 3a  |umcircle=0:xd=0:|
000002c0  79 64 3d 30 0d 01 7c 1a  67 75 6e 68 65 69 67 68  |yd=0..|.gunheigh|
000002d0  74 3d 31 30 30 3a 67 75  6e 78 3d 36 32 30 0d 01  |t=100:gunx=620..|
000002e0  86 2d 78 70 6f 73 3d 31  3a 79 70 6f 73 3d 32 3a  |.-xpos=1:ypos=2:|
000002f0  78 65 6e 64 3d 33 3a 79  65 6e 64 3d 34 3a 78 64  |xend=3:yend=4:xd|
00000300  69 72 3d 35 3a 79 64 69  72 3d 36 0d 01 90 2a 73  |ir=5:ydir=6...*s|
00000310  63 6f 72 65 3d 30 3a 6c  61 73 63 6f 6c 3d 33 31  |core=0:lascol=31|
00000320  3a 62 6c 61 73 74 63 6f  6c 3d 31 32 3a 67 69 74  |:blastcol=12:git|
00000330  63 6f 6c 3d 33 0d 01 9a  0d 65 6e 64 67 61 6d 65  |col=3....endgame|
00000340  3d a3 0d 01 a4 07 f2 6d  66 0d 01 ae 04 0d 01 b8  |=......mf.......|
00000350  18 e7 20 72 69 73 63 20  8c 20 eb 20 32 31 20 8b  |.. risc . . 21 .|
00000360  20 eb 20 31 35 0d 01 c2  04 0d 01 cc 08 c8 97 20  | . 15.......... |
00000370  ee 0d 01 d6 08 c8 a0 20  34 0d 01 e0 10 ff 20 22  |....... 4..... "|
00000380  41 75 64 69 6f 20 4f 6e  22 0d 01 ea 04 0d 01 f4  |Audio On".......|
00000390  04 0d 01 fe 04 0d 02 08  04 0d 02 12 0c e7 20 72  |.............. r|
000003a0  69 73 63 20 8c 0d 02 1c  15 ff 20 22 53 43 48 4f  |isc ...... "SCHO|
000003b0  4f 53 45 20 63 69 74 79  33 22 0d 02 26 05 cc 0d  |OSE city3"..&...|
000003c0  02 30 14 ff 20 22 53 43  48 4f 4f 53 45 20 63 69  |.0.. "SCHOOSE ci|
000003d0  74 79 22 0d 02 3a 05 cd  0d 02 44 04 0d 02 4e 0a  |ty"..:....D...N.|
000003e0  77 61 76 65 3d 30 0d 02  58 47 dc 20 37 35 2c 31  |wave=0..XG. 75,1|
000003f0  36 38 2c 32 31 39 2c 33  31 32 2c 33 36 33 2c 34  |68,219,312,363,4|
00000400  35 36 2c 35 30 37 2c 36  30 30 2c 36 34 38 2c 37  |56,507,600,648,7|
00000410  34 31 2c 37 39 35 2c 38  38 35 2c 39 33 39 2c 31  |41,795,885,939,1|
00000420  30 32 39 2c 31 30 38 30  2c 31 31 37 33 0d 02 62  |029,1080,1173..b|
00000430  04 0d 02 6c 3c dc 20 34  2c 31 30 2c 36 2c 31 32  |...l<. 4,10,6,12|
00000440  2c 38 2c 31 34 2c 38 2c  31 34 2c 38 2c 31 34 2c  |,8,14,8,14,8,14,|
00000450  31 30 2c 31 35 2c 31 30  2c 31 35 2c 31 35 2c 32  |10,15,10,15,15,2|
00000460  30 2c 31 35 2c 32 30 2c  32 30 2c 32 30 0d 02 76  |0,15,20,20,20..v|
00000470  28 dc 20 37 2c 37 30 2c  38 30 2c 38 30 2c 31 30  |(. 7,70,80,80,10|
00000480  30 2c 31 34 30 2c 31 35  30 2c 31 36 30 2c 31 38  |0,140,150,160,18|
00000490  30 2c 32 30 30 0d 02 80  1f dc 20 32 2c 33 2c 33  |0,200..... 2,3,3|
000004a0  2c 33 2e 35 2c 33 2e 35  2c 34 2c 34 2e 35 2c 36  |,3.5,3.5,4,4.5,6|
000004b0  2c 36 2c 36 0d 02 8a 33  dc 20 30 2c 30 2e 30 30  |,6,6...3. 0,0.00|
000004c0  35 2c 30 2e 30 38 2c 30  2e 30 33 2c 30 2e 30 35  |5,0.08,0.03,0.05|
000004d0  2c 30 2e 30 39 2c 30 2e  31 2c 30 2e 31 2c 30 2e  |,0.09,0.1,0.1,0.|
000004e0  31 35 2c 30 2e 31 35 0d  02 94 04 0d 02 9e 04 0d  |15,0.15.........|
000004f0  02 a8 04 0d 02 b2 0d e3  20 69 3d 31 20 b8 20 38  |........ i=1 . 8|
00000500  0d 02 bc 1e 20 f3 20 6c  69 6d 69 74 73 28 69 2c  |.... . limits(i,|
00000510  31 29 2c 6c 69 6d 69 74  73 28 69 2c 32 29 0d 02  |1),limits(i,2)..|
00000520  c6 07 ed 20 69 0d 02 d0  04 0d 02 da 0e e3 20 69  |... i......... i|
00000530  3d 31 20 b8 20 31 30 0d  02 e4 18 20 f3 20 69 6e  |=1 . 10.... . in|
00000540  63 28 69 2c 31 29 2c 69  6e 63 28 69 2c 32 29 0d  |c(i,1),inc(i,2).|
00000550  02 ee 07 ed 20 69 0d 02  f8 0e e3 20 69 3d 31 20  |.... i..... i=1 |
00000560  b8 20 31 30 0d 03 02 0f  20 f3 20 6e 75 6d 69 73  |. 10.... . numis|
00000570  28 69 29 0d 03 0c 07 ed  20 69 0d 03 16 04 0d 03  |(i)..... i......|
00000580  20 0a 64 69 66 66 3d 30  0d 03 2a 0c f2 67 65 74  | .diff=0..*..get|
00000590  73 70 64 73 0d 03 34 04  0d 03 3e 0a f7 20 8d 74  |spds..4...>.. .t|
000005a0  4a 42 0d 03 48 0e e3 20  69 3d 31 20 b8 20 31 30  |JB..H.. i=1 . 10|
000005b0  0d 03 52 10 20 f3 20 67  69 74 70 72 62 28 69 29  |..R. . gitprb(i)|
000005c0  0d 03 5c 07 ed 20 69 0d  03 66 04 0d 03 70 04 0d  |..\.. i..f...p..|
000005d0  03 7a 04 0d 03 84 0f e3  20 69 3d 31 31 20 b8 20  |.z...... i=11 . |
000005e0  34 30 0d 03 8e 19 20 67  69 74 70 72 62 28 69 29  |40.... gitprb(i)|
000005f0  3d 67 69 74 70 72 62 28  31 30 29 0d 03 98 13 20  |=gitprb(10).... |
00000600  73 70 64 28 69 29 3d 73  70 64 28 31 30 29 0d 03  |spd(i)=spd(10)..|
00000610  a2 17 20 6e 75 6d 69 73  28 69 29 3d 6e 75 6d 69  |.. numis(i)=numi|
00000620  73 28 31 30 29 0d 03 ac  17 20 69 6e 63 28 69 2c  |s(10).... inc(i,|
00000630  31 29 3d 69 6e 63 28 31  30 2c 31 29 0d 03 b6 17  |1)=inc(10,1)....|
00000640  20 69 6e 63 28 69 2c 32  29 3d 69 6e 63 28 31 30  | inc(i,2)=inc(10|
00000650  2c 32 29 0d 03 c0 07 ed  20 69 0d 03 ca 04 0d 03  |,2)..... i......|
00000660  d4 04 0d 03 de 04 0d 03  e8 07 ef 20 35 0d 03 f2  |........... 5...|
00000670  11 f2 68 61 6c 6c 5f 6f  66 5f 66 61 6d 65 0d 03  |..hall_of_fame..|
00000680  fc 11 78 70 6f 73 3d 31  3a 79 70 6f 73 3d 32 0d  |..xpos=1:ypos=2.|
00000690  04 06 11 f2 73 63 72 65  65 6e 5f 73 65 74 75 70  |....screen_setup|
000006a0  0d 04 10 0e f2 73 65 74  5f 73 63 6f 72 65 0d 04  |.....set_score..|
000006b0  1a 0c f2 74 72 61 63 6b  65 72 0d 04 24 0d 65 6e  |...tracker..$.en|
000006c0  64 67 61 6d 65 3d a3 0d  04 2e 04 0d 04 38 04 0d  |dgame=.......8..|
000006d0  04 42 04 0d 04 4c 11 f2  72 65 66 72 65 73 68 5f  |.B...L..refresh_|
000006e0  63 69 74 79 0d 04 56 18  c8 97 20 c8 93 20 30 2c  |city..V... .. 0,|
000006f0  31 38 38 2c 31 32 37 39  2c 35 38 30 0d 04 60 0e  |188,1279,580..`.|
00000700  6e 75 6d 66 69 72 65 64  3d 35 0d 04 6a 04 0d 04  |numfired=5..j...|
00000710  74 05 f5 0d 04 7e 04 0d  04 88 12 20 20 20 e7 20  |t....~.....   . |
00000720  65 6e 64 67 61 6d 65 20  8c 0d 04 92 11 78 70 6f  |endgame .....xpo|
00000730  73 3d 31 3a 79 70 6f 73  3d 32 0d 04 9c 0e 20 20  |s=1:ypos=2....  |
00000740  20 20 77 61 76 65 3d 30  0d 04 a6 0f 20 20 20 20  |  wave=0....    |
00000750  73 63 6f 72 65 3d 30 0d  04 b0 11 20 20 20 20 65  |score=0....    e|
00000760  78 69 73 74 28 29 3d b9  0d 04 ba 14 20 20 20 20  |xist()=.....    |
00000770  73 65 6c 65 63 74 65 64  28 29 3d a3 0d 04 c4 15  |selected()=.....|
00000780  20 20 20 20 f2 73 63 72  65 65 6e 5f 73 65 74 75  |    .screen_setu|
00000790  70 0d 04 ce 15 20 20 20  20 f2 72 65 66 72 65 73  |p....    .refres|
000007a0  68 5f 63 69 74 79 0d 04  d8 10 20 20 20 20 f2 74  |h_city....    .t|
000007b0  72 61 63 6b 65 72 0d 04  e2 11 20 20 20 20 65 6e  |racker....    en|
000007c0  64 67 61 6d 65 3d a3 0d  04 ec 08 20 20 20 cd 0d  |dgame=.....   ..|
000007d0  04 f6 08 20 20 20 20 0d  05 00 22 20 20 20 20 20  |...    ..."     |
000007e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 6e  |               n|
000007f0  75 6d 66 69 72 65 64 3d  35 0d 05 0a 22 20 20 20  |umfired=5..."   |
00000800  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000810  20 66 69 6e 69 73 68 65  64 3d a3 0d 05 14 21 20  | finished=....! |
00000820  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000830  20 20 20 6e 75 6d 73 68  6f 74 3d 30 0d 05 1e 22  |   numshot=0..."|
00000840  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000850  20 20 20 20 73 68 6f 74  67 6f 28 29 3d 30 0d 05  |    shotgo()=0..|
00000860  28 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |(               |
00000870  20 20 20 20 20 20 6e 75  6b 65 28 29 3d 30 0d 05  |      nuke()=0..|
00000880  32 23 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |2#              |
00000890  20 20 20 20 20 20 6e 75  6d 63 69 72 63 6c 65 3d  |      numcircle=|
000008a0  30 0d 05 3c 04 0d 05 46  04 0d 05 50 0e 20 20 20  |0..<...F...P.   |
000008b0  77 61 76 65 2b 3d 31 0d  05 5a 07 20 20 20 0d 05  |wave+=1..Z.   ..|
000008c0  64 12 20 20 20 e7 20 77  61 76 65 3d 34 31 20 8c  |d.   . wave=41 .|
000008d0  0d 05 6e 09 20 20 20 20  db 0d 05 78 0b 20 20 20  |..n.    ...x.   |
000008e0  20 ef 20 34 0d 05 82 34  20 20 20 20 f1 8a 31 30  | . 4...4    ..10|
000008f0  2c 31 30 29 3b 22 59 6f  75 20 61 72 65 20 54 4f  |,10);"You are TO|
00000900  4f 20 67 6f 6f 64 20 61  74 20 74 68 69 73 20 67  |O good at this g|
00000910  61 6d 65 21 21 21 21 22  0d 05 8c 0b 20 20 20 20  |ame!!!!"....    |
00000920  70 3d a5 0d 05 96 15 20  20 20 20 f2 68 61 6c 6c  |p=.....    .hall|
00000930  5f 6f 66 5f 66 61 6d 65  0d 05 a0 12 20 20 20 20  |_of_fame....    |
00000940  f2 73 68 75 74 5f 64 6f  77 6e 0d 05 aa 08 20 20  |.shut_down....  |
00000950  20 cd 0d 05 b4 04 0d 05  be 07 20 20 20 0d 05 c8  | .........   ...|
00000960  2f 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |/               |
00000970  20 20 20 20 20 61 6d 6d  6f 3d 6e 75 6d 69 73 28  |     ammo=numis(|
00000980  77 61 76 65 29 2b 77 61  76 65 2a 35 0d 05 d2 22  |wave)+wave*5..."|
00000990  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000009a0  20 20 20 20 f2 73 65 74  5f 73 63 6f 72 65 0d 05  |    .set_score..|
000009b0  dc 07 20 20 20 0d 05 e6  0f 20 20 20 e7 20 72 69  |..   ....   . ri|
000009c0  73 63 20 8c 0d 05 f0 16  20 20 20 e3 20 6d 3d 31  |sc .....   . m=1|
000009d0  20 b8 20 32 35 30 20 88  20 31 0d 05 fa 15 20 20  | . 250 . 1....  |
000009e0  20 20 e3 20 6e 3d 31 20  b8 20 35 30 30 3a ed 0d  |  . n=1 . 500:..|
000009f0  06 04 11 20 20 20 20 ec  20 35 30 30 2c 35 35 30  |...    . 500,550|
00000a00  0d 06 0e 0f 20 20 20 20  e6 20 6d 2c 6d 2c 6d 0d  |....    . m,m,m.|
00000a10  06 18 16 20 20 20 20 f1  20 22 57 61 76 65 20 22  |...    . "Wave "|
00000a20  3b 77 61 76 65 0d 06 22  0a 20 20 20 ed 20 6d 0d  |;wave..".   . m.|
00000a30  06 2c 08 20 20 20 cc 0d  06 36 13 20 20 20 20 e6  |.,.   ...6.    .|
00000a40  20 36 33 20 c8 9c 20 32  35 35 0d 06 40 11 20 20  | 63 .. 255..@.  |
00000a50  20 20 ec 20 35 30 30 2c  35 35 30 0d 06 4a 16 20  |  . 500,550..J. |
00000a60  20 20 20 f1 20 22 57 61  76 65 20 22 3b 77 61 76  |   . "Wave ";wav|
00000a70  65 0d 06 54 08 20 20 20  cd 0d 06 5e 17 20 20 20  |e..T.   ...^.   |
00000a80  f5 3a c8 97 20 64 2c 66  2c 73 3a fd 20 73 3d 30  |.:.. d,f,s:. s=0|
00000a90  0d 06 68 07 20 20 20 0d  06 72 07 20 20 20 0d 06  |..h.   ..r.   ..|
00000aa0  7c 07 20 20 20 0d 06 86  11 f2 72 65 66 72 65 73  ||.   .....refres|
00000ab0  68 5f 63 69 74 79 0d 06  90 08 20 20 20 f5 0d 06  |h_city....   ...|
00000ac0  9a 12 20 20 20 20 c8 97  20 78 70 2c 79 70 2c 62  |..    .. xp,yp,b|
00000ad0  0d 06 a4 10 20 20 20 20  f2 74 72 61 63 6b 65 72  |....    .tracker|
00000ae0  0d 06 ae 0d 20 20 20 fd  20 62 3c 3e 30 0d 06 b8  |....   . b<>0...|
00000af0  17 20 20 20 f5 3a c8 97  20 73 2c 64 2c 66 3a fd  |.   .:.. s,d,f:.|
00000b00  20 66 3d 30 0d 06 c2 0f  20 20 20 e6 20 30 20 c8  | f=0....   . 0 .|
00000b10  9c 20 30 0d 06 cc 1b 20  20 20 c8 93 20 c8 90 20  |. 0....   .. .. |
00000b20  34 39 30 2c 35 32 30 2c  31 35 35 2c 34 30 0d 06  |490,520,155,40..|
00000b30  d6 07 20 20 20 0d 06 e0  18 20 20 20 20 20 20 20  |..   ....       |
00000b40  20 20 20 20 20 20 20 20  20 20 20 20 20 0d 06 ea  |             ...|
00000b50  18 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00000b60  20 20 20 20 20 0d 06 f4  0a 20 6e 75 6d 3d 35 0d  |     .... num=5.|
00000b70  06 fe 10 20 e3 20 69 3d  31 20 b8 20 6e 75 6d 0d  |... . i=1 . num.|
00000b80  07 08 17 20 20 f2 61 73  73 69 67 6e 5f 6c 69 6e  |...  .assign_lin|
00000b90  65 28 69 2c a3 29 0d 07  12 06 20 ed 0d 07 1c 0c  |e(i,.).... .....|
00000ba0  20 74 6f 73 65 74 3d a3  0d 07 26 18 20 20 20 20  | toset=...&.    |
00000bb0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000bc0  0d 07 30 04 0d 07 3a 05  f5 0d 07 44 04 0d 07 4e  |..0...:....D...N|
00000bd0  0e 77 3d 30 3a 6e 75 6d  6c 3d 30 0d 07 58 06 20  |.w=0:numl=0..X. |
00000be0  f5 0d 07 62 0a 20 20 77  2b 3d 31 0d 07 6c 21 20  |...b.  w+=1..l! |
00000bf0  20 e7 20 73 65 6c 65 63  74 65 64 28 77 29 20 8c  | . selected(w) .|
00000c00  20 6e 75 6d 6c 3d 6e 75  6d 6c 2b 31 0d 07 76 0c  | numl=numl+1..v.|
00000c10  20 fd 20 77 3d 6e 75 6d  0d 07 80 07 ef 20 35 0d  | . w=num..... 5.|
00000c20  07 8a 0d 20 67 3d b3 28  35 30 30 29 0d 07 94 0a  |... g=.(500)....|
00000c30  20 64 65 3d 31 30 0d 07  9e 20 20 e7 20 6e 75 6d  | de=10...  . num|
00000c40  6c 3c 69 6e 63 28 77 61  76 65 2c 31 29 20 8c 20  |l<inc(wave,1) . |
00000c50  64 65 3d 35 30 31 0d 07  a8 1e 20 e7 20 6e 75 6d  |de=501.... . num|
00000c60  6c 3e 69 6e 63 28 77 61  76 65 2c 32 29 20 8c 20  |l>inc(wave,2) . |
00000c70  64 65 3d 32 0d 07 b2 16  20 e7 20 6e 75 6d 6c 3d  |de=2.... . numl=|
00000c80  30 20 8c 20 64 65 3d 35  30 31 0d 07 bc 0d 20 e7  |0 . de=501.... .|
00000c90  20 67 3c 64 65 20 8c 0d  07 c6 08 20 79 3d 30 0d  | g<de ..... y=0.|
00000ca0  07 d0 07 20 20 f5 0d 07  da 0a 20 20 79 2b 3d 31  |...  .....  y+=1|
00000cb0  0d 07 e4 15 20 20 fd 20  73 65 6c 65 63 74 65 64  |....  . selected|
00000cc0  28 79 29 3d a3 0d 07 ee  15 20 20 e7 20 79 3e 6e  |(y)=.....  . y>n|
00000cd0  75 6d 20 8c 20 6e 75 6d  3d 79 0d 07 f8 14 20 20  |um . num=y....  |
00000ce0  e7 20 66 69 6e 69 73 68  65 64 3d a3 20 8c 0d 08  |. finished=. ...|
00000cf0  02 10 20 20 e7 20 77 61  76 65 3e 31 20 8c 0d 08  |..  . wave>1 ...|
00000d00  0c 27 20 20 20 e7 20 b3  28 31 29 3c 67 69 74 70  |.'   . .(1)<gitp|
00000d10  72 62 28 77 61 76 65 29  20 8c 20 69 73 67 69 74  |rb(wave) . isgit|
00000d20  28 79 29 3d b9 0d 08 16  07 20 20 cd 0d 08 20 17  |(y)=.....  ... .|
00000d30  20 20 f2 61 73 73 69 67  6e 5f 6c 69 6e 65 28 79  |  .assign_line(y|
00000d40  2c a3 29 0d 08 2a 11 20  20 6e 75 6d 66 69 72 65  |,.)..*.  numfire|
00000d50  64 2b 3d 31 0d 08 34 07  20 20 cd 0d 08 3e 29 20  |d+=1..4.  ...>) |
00000d60  20 e7 20 6e 75 6d 66 69  72 65 64 3d 6e 75 6d 69  | . numfired=numi|
00000d70  73 28 77 61 76 65 29 20  8c 20 66 69 6e 69 73 68  |s(wave) . finish|
00000d80  65 64 3d b9 0d 08 48 06  20 cd 0d 08 52 04 0d 08  |ed=...H. ...R...|
00000d90  5c 10 20 e3 20 69 3d 31  20 b8 20 6e 75 6d 0d 08  |\. . i=1 . num..|
00000da0  66 04 0d 08 70 06 20 20  0d 08 7a 0c 20 20 70 3d  |f...p.  ..z.  p=|
00000db0  b3 28 31 29 0d 08 84 04  0d 08 8e 04 0d 08 98 04  |.(1)............|
00000dc0  0d 08 a2 28 20 20 e7 20  70 3c 30 2e 30 30 30 33  |...(  . p<0.0003|
00000dd0  20 80 20 6e 75 6d 6c 3e  32 20 80 20 69 73 67 69  | . numl>2 . isgi|
00000de0  74 28 69 29 3d a3 20 8c  0d 08 ac 09 20 20 71 3d  |t(i)=. .....  q=|
00000df0  30 0d 08 b6 08 20 20 20  f5 0d 08 c0 0b 20 20 20  |0....   .....   |
00000e00  71 2b 3d 31 0d 08 ca 14  20 20 20 e7 20 71 3d 6e  |q+=1....   . q=n|
00000e10  75 6d 20 8c 20 71 3d 30  0d 08 d4 20 20 20 20 fd  |um . q=0...    .|
00000e20  20 73 65 6c 65 63 74 65  64 28 71 29 3d b9 20 80  | selected(q)=. .|
00000e30  20 b3 28 31 35 29 3d 33  0d 08 de 11 20 20 20 73  | .(15)=3....   s|
00000e40  70 6c 69 74 6e 75 6d 3d  71 0d 08 e8 07 20 20 20  |plitnum=q....   |
00000e50  0d 08 f2 0d 20 20 20 66  3d b3 28 31 29 0d 08 fc  |....   f=.(1)...|
00000e60  07 20 20 20 0d 09 06 1a  20 20 20 e7 20 66 3e 3d  |.   ....   . f>=|
00000e70  30 2e 31 20 84 20 ac 20  72 69 73 63 20 8c 0d 09  |0.1 . . risc ...|
00000e80  10 0e 20 20 20 20 6e 75  6d 70 3d 33 0d 09 1a 08  |..    nump=3....|
00000e90  20 20 20 cc 0d 09 24 0e  20 20 20 20 6e 75 6d 70  |   ...$.    nump|
00000ea0  3d 38 0d 09 2e 08 20 20  20 cd 0d 09 38 0a 20 20  |=8....   ...8.  |
00000eb0  20 20 20 20 0d 09 42 13  20 20 20 e3 20 67 3d 31  |    ..B.   . g=1|
00000ec0  20 b8 20 6e 75 6d 70 0d  09 4c 22 20 20 20 20 71  | . nump..L"    q|
00000ed0  3d 30 3a f5 3a 71 2b 3d  31 3a fd 20 73 65 6c 65  |=0:.:q+=1:. sele|
00000ee0  63 74 65 64 28 71 29 3d  a3 0d 09 56 17 20 20 20  |cted(q)=...V.   |
00000ef0  20 e7 20 71 3e 6e 75 6d  20 8c 20 6e 75 6d 3d 71  | . q>num . num=q|
00000f00  0d 09 60 1a 20 20 20 20  f2 61 73 73 69 67 6e 5f  |..`.    .assign_|
00000f10  6c 69 6e 65 28 71 2c 2d  31 29 0d 09 6a 0a 20 20  |line(q,-1)..j.  |
00000f20  20 ed 20 67 0d 09 74 04  0d 09 7e 04 0d 09 88 07  | . g..t...~.....|
00000f30  20 20 cd 0d 09 92 05 20  0d 09 9c 22 20 e7 20 73  |  ..... ..." . s|
00000f40  65 6c 65 63 74 65 64 28  69 29 20 80 20 ac 20 6f  |elected(i) . . o|
00000f50  74 68 65 72 28 69 29 20  20 8c 0d 09 a6 05 20 0d  |ther(i)  ..... .|
00000f60  09 b0 05 20 0d 09 ba 2e  20 20 e7 20 70 3c 30 2e  |... ....  . p<0.|
00000f70  30 30 30 38 20 80 20 69  73 6d 75 6c 74 69 28 69  |0008 . ismulti(i|
00000f80  29 3d a3 20 80 20 ac 20  69 73 67 69 74 28 69 29  |)=. . . isgit(i)|
00000f90  20 8c 0d 09 c4 04 0d 09  ce 07 20 20 20 0d 09 d8  | .........   ...|
00000fa0  11 20 20 20 73 70 6c 69  74 6e 75 6d 3d 69 0d 09  |.   splitnum=i..|
00000fb0  e2 0c 20 20 20 64 3d 30  3a f5 0d 09 ec 1b 20 20  |..   d=0:.....  |
00000fc0  20 64 2b 3d 31 3a fd 20  73 65 6c 65 63 74 65 64  | d+=1:. selected|
00000fd0  28 64 29 3d a3 0d 09 f6  14 20 20 20 6d 75 6c 74  |(d)=.....   mult|
00000fe0  69 6d 61 6e 28 64 29 3d  69 0d 0a 00 11 20 20 20  |iman(d)=i....   |
00000ff0  6f 74 68 65 72 28 69 29  3d b9 0d 0a 0a 13 20 20  |other(i)=.....  |
00001000  20 69 73 6d 75 6c 74 69  28 64 29 3d b9 0d 0a 14  | ismulti(d)=....|
00001010  16 20 20 20 e7 20 64 3e  6e 75 6d 20 8c 20 6e 75  |.   . d>num . nu|
00001020  6d 3d 64 0d 0a 1e 18 20  20 20 f2 61 73 73 69 67  |m=d....   .assig|
00001030  6e 5f 6c 69 6e 65 28 64  2c b9 29 0d 0a 28 07 20  |n_line(d,.)..(. |
00001040  20 20 0d 0a 32 06 20 cd  0d 0a 3c 05 20 0d 0a 46  |  ..2. ...<. ..F|
00001050  05 20 0d 0a 50 14 20 20  6e 6f 72 6d 61 6c 28 69  |. ..P.  normal(i|
00001060  2c 37 29 2b 3d 31 0d 0a  5a 1c 20 20 78 70 6f 73  |,7)+=1..Z.  xpos|
00001070  6f 6c 64 3d 6e 6f 72 6d  61 6c 28 69 2c 78 70 6f  |old=normal(i,xpo|
00001080  73 29 0d 0a 64 1c 20 20  79 70 6f 73 6f 6c 64 3d  |s)..d.  yposold=|
00001090  6e 6f 72 6d 61 6c 28 69  2c 79 70 6f 73 29 0d 0a  |normal(i,ypos)..|
000010a0  6e 24 20 20 6e 6f 72 6d  61 6c 28 69 2c 78 70 6f  |n$  normal(i,xpo|
000010b0  73 29 2b 3d 6e 6f 72 6d  61 6c 28 69 2c 78 64 69  |s)+=normal(i,xdi|
000010c0  72 29 0d 0a 78 24 20 20  6e 6f 72 6d 61 6c 28 69  |r)..x$  normal(i|
000010d0  2c 79 70 6f 73 29 2d 3d  6e 6f 72 6d 61 6c 28 69  |,ypos)-=normal(i|
000010e0  2c 79 64 69 72 29 0d 0a  82 06 20 20 0d 0a 8c 12  |,ydir)....  ....|
000010f0  20 20 e7 20 69 73 67 69  74 28 69 29 20 8c 0d 0a  |  . isgit(i) ...|
00001100  96 04 0d 0a a0 36 20 20  20 e7 20 b0 6e 6f 72 6d  |.....6   . .norm|
00001110  61 6c 28 69 2c 78 70 6f  73 29 2c 6e 6f 72 6d 61  |al(i,xpos),norma|
00001120  6c 28 69 2c 79 70 6f 73  29 2d 31 38 29 3d 62 6c  |l(i,ypos)-18)=bl|
00001130  61 73 74 63 6f 6c 20 8c  0d 0a aa 1c 20 20 20 20  |astcol .....    |
00001140  78 64 74 6d 70 3d 6e 6f  72 6d 61 6c 28 69 2c 78  |xdtmp=normal(i,x|
00001150  64 69 72 29 0d 0a b4 1c  20 20 20 20 79 64 74 6d  |dir)....    ydtm|
00001160  70 3d 6e 6f 72 6d 61 6c  28 69 2c 79 64 69 72 29  |p=normal(i,ydir)|
00001170  0d 0a be 1c 20 20 20 20  78 70 74 6d 70 3d 6e 6f  |....    xptmp=no|
00001180  72 6d 61 6c 28 69 2c 78  65 6e 64 29 0d 0a c8 1c  |rmal(i,xend)....|
00001190  20 20 20 20 79 70 74 6d  70 3d 6e 6f 72 6d 61 6c  |    yptmp=normal|
000011a0  28 69 2c 79 65 6e 64 29  0d 0a d2 13 20 20 20 20  |(i,yend)....    |
000011b0  f2 65 72 61 73 65 5f 6c  69 6e 65 0d 0a dc 12 20  |.erase_line.... |
000011c0  20 20 20 69 73 67 69 74  28 69 29 3d b9 0d 0a e6  |   isgit(i)=....|
000011d0  13 20 20 20 20 65 72 61  73 65 64 28 69 29 3d b9  |.    erased(i)=.|
000011e0  0d 0a f0 1a 20 20 20 20  6e 6f 72 6d 61 6c 28 69  |....    normal(i|
000011f0  2c 79 70 6f 73 29 2b 3d  31 38 0d 0a fa 25 20 20  |,ypos)+=18...%  |
00001200  20 20 6e 6f 72 6d 61 6c  28 69 2c 78 65 6e 64 29  |  normal(i,xend)|
00001210  3d 6e 6f 72 6d 61 6c 28  69 2c 78 70 6f 73 29 0d  |=normal(i,xpos).|
00001220  0b 04 25 20 20 20 20 6e  6f 72 6d 61 6c 28 69 2c  |..%    normal(i,|
00001230  79 65 6e 64 29 3d 6e 6f  72 6d 61 6c 28 69 2c 79  |yend)=normal(i,y|
00001240  70 6f 73 29 0d 0b 0e 1c  20 20 20 20 6e 6f 72 6d  |pos)....    norm|
00001250  61 6c 28 69 2c 78 64 69  72 29 3d 78 64 74 6d 70  |al(i,xdir)=xdtmp|
00001260  0d 0b 18 1c 20 20 20 20  6e 6f 72 6d 61 6c 28 69  |....    normal(i|
00001270  2c 79 64 69 72 29 3d 79  64 74 6d 70 0d 0b 22 08  |,ydir)=ydtmp..".|
00001280  20 20 20 20 0d 0b 2c 08  20 20 20 20 0d 0b 36 07  |    ..,.    ..6.|
00001290  20 20 20 0d 0b 40 15 20  20 20 20 73 65 6c 65 63  |   ..@.    selec|
000012a0  74 65 64 28 69 29 3d b9  0d 0b 4a 08 20 20 20 cd  |ted(i)=...J.   .|
000012b0  0d 0b 54 07 20 20 cd 0d  0b 5e 06 20 20 0d 0b 68  |..T.  ...^.  ..h|
000012c0  06 20 20 0d 0b 72 10 20  20 f2 67 65 74 5f 6d 6f  |.  ..r.  .get_mo|
000012d0  75 73 65 0d 0b 7c 0d 20  20 e7 20 7a 3d 35 20 8c  |use..|.  . z=5 .|
000012e0  0d 0b 86 0c 20 20 20 ec  20 30 2c 30 0d 0b 90 11  |....   . 0,0....|
000012f0  20 20 20 ec 20 31 32 37  39 2c 39 35 39 0d 0b 9a  |   . 1279,959...|
00001300  16 20 20 20 ff 20 22 53  47 65 74 20 73 63 72 65  |.   . "SGet scre|
00001310  65 6e 22 0d 0b a4 22 20  20 20 ff 20 22 53 53 61  |en"..."   . "SSa|
00001320  76 65 20 3c 4f 62 65 79  24 64 69 72 3e 2e 73 63  |ve <Obey$dir>.sc|
00001330  72 65 65 6e 22 0d 0b ae  0a 20 20 20 7a 3d 30 0d  |reen"....   z=0.|
00001340  0b b8 07 20 20 cd 0d 0b  c2 06 20 20 0d 0b cc 06  |...  .....  ....|
00001350  20 20 0d 0b d6 0e 20 20  e7 20 7a 3c 3e 30 20 8c  |  ....  . z<>0 .|
00001360  0d 0b e0 10 20 20 e6 20  62 6c 61 73 74 63 6f 6c  |....  . blastcol|
00001370  0d 0b ea 04 0d 0b f4 0e  e7 20 61 6d 6d 6f 3e 30  |......... ammo>0|
00001380  20 8c 0d 0b fe 0d 20 20  61 6d 6d 6f 2d 3d 31 0d  | .....  ammo-=1.|
00001390  0c 08 0e f2 73 65 74 5f  73 63 6f 72 65 0d 0c 12  |....set_score...|
000013a0  04 0d 0c 1c 0d f2 6e 65  77 5f 73 68 6f 74 0d 0c  |......new_shot..|
000013b0  26 1a f2 70 6c 61 79 28  31 31 30 30 30 2c 22 4c  |&..play(11000,"L|
000013c0  61 7a 65 72 22 2c 30 29  0d 0c 30 05 cc 0d 0c 3a  |azer",0)..0....:|
000013d0  04 0d 0c 44 1c f2 70 6c  61 79 28 31 31 30 30 30  |...D..play(11000|
000013e0  2c 22 43 6f 6c 6c 65 63  74 22 2c 30 29 0d 0c 4e  |,"Collect",0)..N|
000013f0  0b 74 6f 73 65 74 3d b9  0d 0c 58 05 cd 0d 0c 62  |.toset=...X....b|
00001400  07 20 20 cd 0d 0c 6c 06  20 20 0d 0c 76 06 20 20  |.  ...l.  ..v.  |
00001410  0d 0c 80 25 62 3d b0 6e  6f 72 6d 61 6c 28 69 2c  |...%b=.normal(i,|
00001420  78 70 6f 73 29 2c 6e 6f  72 6d 61 6c 28 69 2c 79  |xpos),normal(i,y|
00001430  70 6f 73 29 29 0d 0c 8a  30 e7 20 28 62 3d 36 33  |pos))...0. (b=63|
00001440  20 84 20 62 3d 31 20 84  20 62 3d 31 35 29 20 80  | . b=1 . b=15) .|
00001450  20 6e 6f 72 6d 61 6c 28  69 2c 79 70 6f 73 29 3c  | normal(i,ypos)<|
00001460  31 30 30 20 8c 0d 0c 94  04 0d 0c 9e 05 20 0d 0c  |100 ......... ..|
00001470  a8 1a 20 20 20 68 69 74  78 3d 6e 6f 72 6d 61 6c  |..   hitx=normal|
00001480  28 69 2c 78 70 6f 73 29  0d 0c b2 0a 20 20 20 6b  |(i,xpos)....   k|
00001490  3d a3 0d 0c bc 10 20 20  20 e3 20 6c 3d 31 20 b8  |=.....   . l=1 .|
000014a0  20 38 0d 0c c6 3e 20 20  20 20 e7 20 68 69 74 78  | 8...>    . hitx|
000014b0  3e 6c 69 6d 69 74 73 28  6c 2c 31 29 20 80 20 68  |>limits(l,1) . h|
000014c0  69 74 78 3c 6c 69 6d 69  74 73 28 6c 2c 32 29 20  |itx<limits(l,2) |
000014d0  8c 20 68 69 74 78 3d 6c  3a 6c 3d 38 3a 6b 3d b9  |. hitx=l:l=8:k=.|
000014e0  0d 0c d0 0a 20 20 20 ed  20 6c 0d 0c da 0e 20 65  |....   . l.... e|
000014f0  6e 64 67 61 6d 65 3d a3  0d 0c e4 24 20 e7 20 68  |ndgame=....$ . h|
00001500  69 74 78 3e 38 20 84 20  68 69 74 78 3c 31 20 8c  |itx>8 . hitx<1 .|
00001510  20 20 6b 3d a3 3a 68 69  74 78 3d 38 0d 0c ee 1c  |  k=.:hitx=8....|
00001520  20 20 20 e7 20 6b 3d b9  20 80 20 65 78 69 73 74  |   . k=. . exist|
00001530  28 68 69 74 78 29 20 8c  0d 0c f8 1b 20 20 20 20  |(hitx) .....    |
00001540  f2 65 78 70 6c 6f 64 65  5f 63 69 74 79 28 68 69  |.explode_city(hi|
00001550  74 78 29 0d 0d 02 08 20  20 20 20 0d 0d 0c 08 20  |tx)....    .... |
00001560  20 20 20 0d 0d 16 1c 20  20 20 20 f2 70 6c 61 79  |   ....    .play|
00001570  28 33 30 30 30 2c 22 42  6f 6f 6d 22 2c 30 29 0d  |(3000,"Boom",0).|
00001580  0d 20 04 0d 0d 2a 13 20  20 20 20 e7 20 65 6e 64  |. ...*.    . end|
00001590  67 61 6d 65 20 8c 0d 0d  34 0d 20 20 20 20 69 3d  |game ...4.    i=|
000015a0  6e 75 6d 0d 0d 3e 0e 20  20 20 20 6e 75 6d 6c 3d  |num..>.    numl=|
000015b0  30 0d 0d 48 27 20 20 20  20 20 6e 6f 72 6d 61 6c  |0..H'     normal|
000015c0  28 69 2c 78 70 6f 73 29  2b 3d 6e 6f 72 6d 61 6c  |(i,xpos)+=normal|
000015d0  28 69 2c 78 64 69 72 29  0d 0d 52 27 20 20 20 20  |(i,xdir)..R'    |
000015e0  20 6e 6f 72 6d 61 6c 28  69 2c 79 70 6f 73 29 2b  | normal(i,ypos)+|
000015f0  3d 6e 6f 72 6d 61 6c 28  69 2c 79 64 69 72 29 0d  |=normal(i,ydir).|
00001600  0d 5c 09 20 20 20 20 20  0d 0d 66 09 20 20 20 20  |.\.     ..f.    |
00001610  cd 0d 0d 70 09 20 20 20  20 20 0d 0d 7a 0c 20 20  |...p.     ..z.  |
00001620  20 20 20 74 3d 34 0d 0d  84 13 20 20 20 20 f2 65  |   t=4....    .e|
00001630  72 61 73 65 5f 6c 69 6e  65 0d 0d 8e 04 0d 0d 98  |rase_line.......|
00001640  15 20 20 20 20 65 78 69  73 74 28 68 69 74 78 29  |.    exist(hitx)|
00001650  3d b9 0d 0d a2 15 20 20  20 20 f2 72 65 66 72 65  |=.....    .refre|
00001660  73 68 5f 63 69 74 79 0d  0d ac 15 20 20 20 20 65  |sh_city....    e|
00001670  78 69 73 74 28 68 69 74  78 29 3d a3 0d 0d b6 08  |xist(hitx)=.....|
00001680  20 20 20 cd 0d 0d c0 05  cd 0d 0d ca 06 20 20 0d  |   ..........  .|
00001690  0d d4 32 20 20 e7 20 b0  6e 6f 72 6d 61 6c 28 69  |..2  . .normal(i|
000016a0  2c 78 70 6f 73 29 2c 6e  6f 72 6d 61 6c 28 69 2c  |,xpos),normal(i,|
000016b0  79 70 6f 73 29 29 3d 62  6c 61 73 74 63 6f 6c 20  |ypos))=blastcol |
000016c0  8c 0d 0d de 13 20 20 20  20 f2 65 72 61 73 65 5f  |.....    .erase_|
000016d0  6c 69 6e 65 0d 0d e8 11  20 20 20 20 73 63 6f 72  |line....    scor|
000016e0  65 2b 3d 31 30 0d 0d f2  12 20 20 20 20 f2 73 65  |e+=10....    .se|
000016f0  74 5f 73 63 6f 72 65 0d  0d fc 07 20 20 cc 0d 0e  |t_score....  ...|
00001700  06 13 20 20 20 e7 20 69  73 67 69 74 28 69 29 20  |..   . isgit(i) |
00001710  8c 0d 0e 10 16 20 20 20  e6 20 67 69 74 63 6f 6c  |.....   . gitcol|
00001720  20 c8 9c 20 32 35 35 0d  0e 1a 08 20 20 20 cc 0d  | .. 255....   ..|
00001730  0e 24 16 20 20 20 e6 20  6c 61 73 63 6f 6c 20 c8  |.$.   . lascol .|
00001740  9c 20 32 35 35 0d 0e 2e  08 20 20 20 cd 0d 0e 38  |. 255....   ...8|
00001750  06 20 20 0d 0e 42 16 77  65 72 3d 6e 6f 72 6d 61  |.  ..B.wer=norma|
00001760  6c 28 69 2c 79 70 6f 73  29 0d 0e 4c 37 e7 20 79  |l(i,ypos)..L7. y|
00001770  70 6f 73 6f 6c 64 3e 77  65 72 20 80 20 79 70 6f  |posold>wer . ypo|
00001780  73 6f 6c 64 3c 77 65 72  2b 32 30 20 80 20 ac 20  |sold<wer+20 . . |
00001790  65 6e 64 67 61 6d 65 20  80 20 74 3c 3e 34 20 8c  |endgame . t<>4 .|
000017a0  0d 0e 56 36 20 20 20 86  20 6e 6f 72 6d 61 6c 28  |..V6   . normal(|
000017b0  69 2c 78 70 6f 73 29 2c  6e 6f 72 6d 61 6c 28 69  |i,xpos),normal(i|
000017c0  2c 79 70 6f 73 29 2c 78  70 6f 73 6f 6c 64 2c 79  |,ypos),xposold,y|
000017d0  70 6f 73 6f 6c 64 0d 0e  60 05 cd 0d 0e 6a 04 0d  |posold..`....j..|
000017e0  0e 74 11 20 20 e7 20 74  3d 34 20 8c 20 74 3d 30  |.t.  . t=4 . t=0|
000017f0  0d 0e 7e 06 20 20 0d 0e  88 04 0d 0e 92 07 20 20  |..~.  ........  |
00001800  cd 0d 0e 9c 06 20 20 0d  0e a6 42 20 e7 20 6e 6f  |.....  ...B . no|
00001810  72 6d 61 6c 28 69 2c 79  70 6f 73 29 3c 30 20 84  |rmal(i,ypos)<0 .|
00001820  20 6e 6f 72 6d 61 6c 28  69 2c 78 70 6f 73 29 3e  | normal(i,xpos)>|
00001830  31 32 39 37 20 84 20 6e  6f 72 6d 61 6c 28 69 2c  |1297 . normal(i,|
00001840  78 70 6f 73 29 3c 30 20  8c 0d 0e b0 11 20 20 f2  |xpos)<0 .....  .|
00001850  65 72 61 73 65 5f 6c 69  6e 65 0d 0e ba 06 20 cd  |erase_line.... .|
00001860  0d 0e c4 07 20 20 20 0d  0e ce 04 0d 0e d8 06 20  |....   ........ |
00001870  20 0d 0e e2 06 20 cd 0d  0e ec 05 20 0d 0e f6 25  | .... ..... ...%|
00001880  20 20 e7 20 73 65 6c 65  63 74 65 64 28 69 29 3d  |  . selected(i)=|
00001890  a3 20 80 20 65 72 61 73  65 64 28 69 29 3d a3 20  |. . erased(i)=. |
000018a0  8c 0d 0f 00 12 20 20 20  65 72 61 73 65 64 28 69  |.....   erased(i|
000018b0  29 3d b9 0d 0f 0a 12 20  20 20 f2 65 72 61 73 65  |)=.....   .erase|
000018c0  5f 6c 69 6e 65 0d 0f 14  07 20 20 cd 0d 0f 1e 06  |_line....  .....|
000018d0  20 20 0d 0f 28 06 20 20  0d 0f 32 06 20 20 0d 0f  |  ..(.  ..2.  ..|
000018e0  3c 08 20 ed 20 69 0d 0f  46 05 20 0d 0f 50 05 20  |<. . i..F. ..P. |
000018f0  0d 0f 5a 13 20 f2 6d 61  6e 61 67 65 5f 63 69 72  |..Z. .manage_cir|
00001900  63 6c 65 0d 0f 64 11 20  f2 6d 61 6e 61 67 65 5f  |cle..d. .manage_|
00001910  6e 75 6b 65 0d 0f 6e 11  20 f2 6d 61 6e 61 67 65  |nuke..n. .manage|
00001920  5f 73 68 6f 74 0d 0f 78  0d 20 f2 74 72 61 63 6b  |_shot..x. .track|
00001930  65 72 0d 0f 82 05 20 0d  0f 8c 05 20 0d 0f 96 05  |er.... .... ....|
00001940  20 0d 0f a0 16 fd 20 6e  75 6d 6c 3d 30 20 84 20  | ..... numl=0 . |
00001950  65 6e 64 67 61 6d 65 0d  0f aa 04 0d 0f b4 04 0d  |endgame.........|
00001960  0f be 04 0d 0f c8 0f e7  20 65 6e 64 67 61 6d 65  |........ endgame|
00001970  20 8c 0d 0f d2 04 0d 0f  dc 14 20 20 20 20 20 f2  | .........     .|
00001980  65 72 61 73 65 5f 6c 69  6e 65 0d 0f e6 14 20 20  |erase_line....  |
00001990  20 20 20 e3 20 6b 3d 31  20 b8 20 6e 75 6d 0d 0f  |   . k=1 . num..|
000019a0  f0 0d 20 20 20 20 20 20  69 3d 6b 0d 0f fa 19 20  |..      i=k.... |
000019b0  20 20 20 20 20 e7 20 73  65 6c 65 63 74 65 64 28  |     . selected(|
000019c0  69 29 20 8c 0d 10 04 15  20 20 20 20 20 20 f2 65  |i) .....      .e|
000019d0  72 61 73 65 5f 6c 69 6e  65 0d 10 0e 0b 20 20 20  |rase_line....   |
000019e0  20 20 20 cd 0d 10 18 0a  20 20 20 20 20 20 0d 10  |   .....      ..|
000019f0  22 0a 20 20 20 20 20 20  0d 10 2c 0c 20 20 20 20  |".      ..,.    |
00001a00  20 ed 20 6b 0d 10 36 15  20 20 20 20 20 73 65 6c  | . k..6.     sel|
00001a10  65 63 74 65 64 28 29 3d  a3 0d 10 40 16 20 20 20  |ected()=...@.   |
00001a20  20 20 f2 73 63 72 65 65  6e 5f 73 65 74 75 70 0d  |  .screen_setup.|
00001a30  10 4a 13 20 20 20 20 20  f2 73 65 74 5f 73 63 6f  |.J.     .set_sco|
00001a40  72 65 0d 10 54 14 20 20  20 20 20 e3 20 77 3d 31  |re..T.     . w=1|
00001a50  20 b8 20 31 30 30 0d 10  5e 16 20 20 20 20 20 20  | . 100..^.      |
00001a60  f2 6d 61 6e 61 67 65 5f  6e 75 6b 65 0d 10 68 12  |.manage_nuke..h.|
00001a70  20 20 20 20 20 20 f2 74  72 61 63 6b 65 72 0d 10  |      .tracker..|
00001a80  72 18 20 20 20 20 20 20  f2 6d 61 6e 61 67 65 5f  |r.      .manage_|
00001a90  63 69 72 63 6c 65 0d 10  7c 16 20 20 20 20 20 20  |circle..|.      |
00001aa0  f2 6d 61 6e 61 67 65 5f  73 68 6f 74 0d 10 86 0a  |.manage_shot....|
00001ab0  20 20 20 20 20 ed 0d 10  90 09 20 20 20 20 20 0d  |     .....     .|
00001ac0  10 9a 0a 20 20 20 20 20  db 0d 10 a4 09 20 20 20  |...     .....   |
00001ad0  20 20 0d 10 ae 16 20 20  20 20 20 f2 68 61 6c 6c  |  ....     .hall|
00001ae0  5f 6f 66 5f 66 61 6d 65  0d 10 b8 09 20 20 20 20  |_of_fame....    |
00001af0  20 0d 10 c2 05 cc 0d 10  cc 04 0d 10 d6 04 0d 10  | ...............|
00001b00  e0 0f e3 20 69 3d 31 20  b8 20 31 30 30 0d 10 ea  |... i=1 . 100...|
00001b10  13 20 f2 6d 61 6e 61 67  65 5f 63 69 72 63 6c 65  |. .manage_circle|
00001b20  0d 10 f4 11 20 f2 6d 61  6e 61 67 65 5f 6e 75 6b  |.... .manage_nuk|
00001b30  65 0d 10 fe 11 20 f2 6d  61 6e 61 67 65 5f 73 68  |e.... .manage_sh|
00001b40  6f 74 0d 11 08 0d 20 f2  74 72 61 63 6b 65 72 0d  |ot.... .tracker.|
00001b50  11 12 07 ed 20 69 0d 11  1c 04 0d 11 26 0c e7 20  |.... i......&.. |
00001b60  72 69 73 63 20 8c 0d 11  30 0f e6 20 36 33 20 c8  |risc ...0.. 63 .|
00001b70  9c 20 32 35 35 0d 11 3a  05 cc 0d 11 44 0f e6 20  |. 255..:....D.. |
00001b80  36 33 20 c8 9c 20 32 35  35 0d 11 4e 05 cd 0d 11  |63 .. 255..N....|
00001b90  58 04 0d 11 62 0c e7 20  72 69 73 63 20 8c 0d 11  |X...b.. risc ...|
00001ba0  6c 0f e3 20 69 3d 31 20  b8 20 32 35 30 0d 11 76  |l.. i=1 . 250..v|
00001bb0  0c 20 e6 20 69 2c 69 2c  69 0d 11 80 12 20 e3 20  |. . i,i,i.... . |
00001bc0  6e 3d 31 20 b8 20 35 30  30 3a ed 0d 11 8a 31 20  |n=1 . 500:....1 |
00001bd0  ec 20 34 33 30 2c 36 30  30 3a f1 20 22 2a 2a 2a  |. 430,600:. "***|
00001be0  20 57 41 56 45 20 22 3b  77 61 76 65 3b 22 20 43  | WAVE ";wave;" C|
00001bf0  4f 4d 50 4c 45 54 45 20  2a 2a 2a 22 0d 11 94 0d  |OMPLETE ***"....|
00001c00  20 ec 20 38 30 2c 34 33  30 0d 11 9e 15 20 f1 20  | . 80,430.... . |
00001c10  22 43 69 74 79 20 42 6f  6e 75 73 20 20 22 0d 11  |"City Bonus  "..|
00001c20  a8 07 ed 20 69 0d 11 b2  05 cc 0d 11 bc 10 20 e6  |... i......... .|
00001c30  20 36 33 20 c8 9c 20 32  35 35 0d 11 c6 31 20 ec  | 63 .. 255...1 .|
00001c40  20 34 33 30 2c 36 30 30  3a f1 20 22 2a 2a 2a 20  | 430,600:. "*** |
00001c50  57 41 56 45 20 22 3b 77  61 76 65 3b 22 20 43 4f  |WAVE ";wave;" CO|
00001c60  4d 50 4c 45 54 45 20 2a  2a 2a 22 0d 11 d0 1e 20  |MPLETE ***".... |
00001c70  ec 20 38 30 2c 34 33 30  3a f1 20 22 43 69 74 79  |. 80,430:. "City|
00001c80  20 42 6f 6e 75 73 20 20  22 0d 11 da 05 cd 0d 11  | Bonus  ".......|
00001c90  e4 04 0d 11 ee 05 20 0d  11 f8 08 20 71 3d 30 0d  |...... .... q=0.|
00001ca0  12 02 0c e7 20 72 69 73  63 20 8c 0d 12 0c 15 ff  |.... risc ......|
00001cb0  20 22 53 43 48 4f 4f 53  45 20 63 69 74 79 33 22  | "SCHOOSE city3"|
00001cc0  0d 12 16 05 cc 0d 12 20  14 ff 20 22 53 43 48 4f  |....... .. "SCHO|
00001cd0  4f 53 45 20 63 69 74 79  22 0d 12 2a 05 cd 0d 12  |OSE city"..*....|
00001ce0  34 05 20 0d 12 3e 0e 20  e3 20 69 3d 31 20 b8 20  |4. ..>. . i=1 . |
00001cf0  38 0d 12 48 12 20 20 e7  20 65 78 69 73 74 28 69  |8..H.  . exist(i|
00001d00  29 20 8c 0d 12 52 0a 20  20 71 2b 3d 31 0d 12 5c  |) ...R.  q+=1..\|
00001d10  0f 20 20 20 e6 20 30 20  c8 9c 20 30 0d 12 66 0b  |.   . 0 .. 0..f.|
00001d20  20 20 20 73 74 3d 91 0d  12 70 12 20 20 20 f5 3a  |   st=...p.   .:|
00001d30  fd 20 91 2d 73 74 3d 35  30 0d 12 7a 07 20 20 20  |. .-st=50..z.   |
00001d40  0d 12 84 26 20 20 20 c8  93 20 c8 90 20 2d 37 35  |...&   .. .. -75|
00001d50  2b 69 2a 28 31 31 35 30  2f 38 29 2c 31 30 2c 31  |+i*(1150/8),10,1|
00001d60  31 30 2c 31 30 30 0d 12  8e 07 20 20 20 0d 12 98  |10,100....   ...|
00001d70  1a 20 20 20 f0 20 26 45  44 2c 31 37 30 2b 71 2a  |.   . &ED,170+q*|
00001d80  31 32 30 2c 33 39 30 0d  12 a2 1e 20 20 20 f2 70  |120,390....   .p|
00001d90  6c 61 79 28 37 30 30 30  2c 22 43 6f 6c 6c 65 63  |lay(7000,"Collec|
00001da0  74 22 2c 30 29 0d 12 ac  11 20 20 20 73 63 6f 72  |t",0)....   scor|
00001db0  65 2b 3d 31 35 30 0d 12  b6 11 20 20 20 f2 73 65  |e+=150....   .se|
00001dc0  74 5f 73 63 6f 72 65 0d  12 c0 07 20 20 20 0d 12  |t_score....   ..|
00001dd0  ca 07 20 20 cd 0d 12 d4  08 20 ed 20 69 0d 12 de  |..  ..... . i...|
00001de0  05 20 0d 12 e8 0b 20 20  20 73 74 3d 91 0d 12 f2  |. ....   st=....|
00001df0  12 20 20 20 f5 3a fd 20  91 2d 73 74 3d 35 30 0d  |.   .:. .-st=50.|
00001e00  12 fc 05 20 0d 13 06 16  20 20 20 20 20 20 20 20  |... ....        |
00001e10  20 20 74 6d 70 3d 61 6d  6d 6f 0d 13 10 29 20 20  |  tmp=ammo...)  |
00001e20  20 20 20 20 20 20 20 20  e7 20 72 69 73 63 20 8c  |        . risc .|
00001e30  20 67 72 72 3d 31 30 30  30 20 8b 20 67 72 72 3d  | grr=1000 . grr=|
00001e40  33 30 30 0d 13 1a 15 20  e3 20 69 3d 74 6d 70 20  |300.... . i=tmp |
00001e50  b8 20 31 20 88 20 2d 31  0d 13 24 0d 20 20 61 6d  |. 1 . -1..$.  am|
00001e60  6d 6f 2d 3d 31 0d 13 2e  0f 20 20 73 63 6f 72 65  |mo-=1....  score|
00001e70  2b 3d 31 30 0d 13 38 10  20 20 f2 73 65 74 5f 73  |+=10..8.  .set_s|
00001e80  63 6f 72 65 0d 13 42 15  20 20 e3 20 6b 3d 31 20  |core..B.  . k=1 |
00001e90  b8 20 67 72 72 3a ed 20  6b 0d 13 4c 08 20 ed 20  |. grr:. k..L. . |
00001ea0  69 0d 13 56 05 20 0d 13  60 04 0d 13 6a 0d 20 e6  |i..V. ..`...j. .|
00001eb0  20 30 20 c8 9c 20 30 0d  13 74 19 20 c8 93 20 c8  | 0 .. 0..t. .. .|
00001ec0  90 20 30 2c 31 35 30 2c  31 32 37 39 2c 37 30 30  |. 0,150,1279,700|
00001ed0  0d 13 7e 05 20 0d 13 88  05 20 0d 13 92 05 cd 0d  |..~. .... ......|
00001ee0  13 9c 04 0d 13 a6 04 0d  13 b0 04 0d 13 ba 07 fd  |................|
00001ef0  20 a3 0d 13 c4 04 0d 13  ce 04 0d 13 d8 10 dd 20  | .............. |
00001f00  f2 67 65 74 5f 6d 6f 75  73 65 0d 13 e2 0f 20 c8  |.get_mouse.... .|
00001f10  97 20 78 70 2c 79 70 2c  7a 0d 13 ec 10 20 e7 20  |. xp,yp,z.... . |
00001f20  74 6f 73 65 74 3d b9 20  8c 0d 13 f6 1c 20 20 e7  |toset=. .....  .|
00001f30  20 7a 3c 3e 30 20 8c 20  7a 3d 30 20 8b 20 74 6f  | z<>0 . z=0 . to|
00001f40  73 65 74 3d a3 0d 14 00  06 20 cd 0d 14 0a 05 e1  |set=..... ......|
00001f50  0d 14 14 04 0d 14 1e 14  dd 20 f2 6d 61 6e 61 67  |......... .manag|
00001f60  65 5f 63 69 72 63 6c 65  0d 14 28 04 0d 14 32 16  |e_circle..(...2.|
00001f70  20 e3 20 6b 3d 31 20 b8  20 6e 75 6d 63 69 72 63  | . k=1 . numcirc|
00001f80  6c 65 0d 14 3c 17 20 e7  20 63 69 72 63 6c 65 28  |le..<. . circle(|
00001f90  6b 2c 31 29 3c 3e 30 20  8c 0d 14 46 04 0d 14 50  |k,1)<>0 ...F...P|
00001fa0  17 20 20 63 69 72 63 6c  65 28 6b 2c 34 29 2b 3d  |.  circle(k,4)+=|
00001fb0  30 2e 30 39 0d 14 5a 16  20 20 63 6f 6c 64 3d 63  |0.09..Z.  cold=c|
00001fc0  69 72 63 6c 65 28 6b 2c  33 29 0d 14 64 24 20 20  |ircle(k,3)..d$  |
00001fd0  63 69 72 63 6c 65 28 6b  2c 33 29 3d b5 28 63 69  |circle(k,3)=.(ci|
00001fe0  72 63 6c 65 28 6b 2c 34  29 29 2a 31 30 30 0d 14  |rcle(k,4))*100..|
00001ff0  6e 04 0d 14 78 28 20 20  e7 20 63 69 72 63 6c 65  |n...x(  . circle|
00002000  28 6b 2c 33 29 3e 39 35  20 80 20 ac 20 63 69 72  |(k,3)>95 . . cir|
00002010  63 6c 65 28 6b 2c 35 29  20 8c 0d 14 82 14 20 20  |cle(k,5) .....  |
00002020  20 63 69 72 63 6c 65 28  6b 2c 35 29 3d b9 0d 14  | circle(k,5)=...|
00002030  8c 14 20 20 20 63 69 72  63 6c 65 28 6b 2c 33 29  |..   circle(k,3)|
00002040  3d 30 0d 14 96 14 20 20  20 63 69 72 63 6c 65 28  |=0....   circle(|
00002050  6b 2c 34 29 3d 30 0d 14  a0 14 20 20 20 63 69 72  |k,4)=0....   cir|
00002060  63 6c 65 28 6b 2c 36 29  3d b9 0d 14 aa 07 20 20  |cle(k,6)=.....  |
00002070  cd 0d 14 b4 06 20 20 0d  14 be 06 20 20 0d 14 c8  |.....  ....  ...|
00002080  15 20 20 e7 20 63 69 72  63 6c 65 28 6b 2c 35 29  |.  . circle(k,5)|
00002090  20 8c 0d 14 d2 0d 20 20  20 78 6f 66 66 3d 36 0d  | .....   xoff=6.|
000020a0  14 dc 0d 20 20 20 79 6f  66 66 3d 36 0d 14 e6 0d  |...   yoff=6....|
000020b0  20 20 20 72 6f 66 66 3d  38 0d 14 f0 07 20 20 cc  |   roff=8....  .|
000020c0  0d 14 fa 0d 20 20 20 78  6f 66 66 3d 30 0d 15 04  |....   xoff=0...|
000020d0  0d 20 20 20 79 6f 66 66  3d 30 0d 15 0e 0d 20 20  |.   yoff=0....  |
000020e0  20 72 6f 66 66 3d 30 0d  15 18 07 20 20 cd 0d 15  | roff=0....  ...|
000020f0  22 04 0d 15 2c 04 0d 15  36 04 0d 15 40 18 e7 20  |"...,...6...@.. |
00002100  63 6f 6c 64 3e 63 69 72  63 6c 65 28 6b 2c 33 29  |cold>circle(k,3)|
00002110  20 8c 0d 15 4a 11 63 69  72 63 6c 65 28 6b 2c 36  | ...J.circle(k,6|
00002120  29 3d a3 0d 15 54 07 20  20 cd 0d 15 5e 04 0d 15  |)=...T.  ...^...|
00002130  68 13 e7 20 63 69 72 63  6c 65 28 6b 2c 35 29 20  |h.. circle(k,5) |
00002140  8c 0d 15 72 0d 20 e6 20  30 20 c8 9c 20 30 0d 15  |...r. . 0 .. 0..|
00002150  7c 05 cc 0d 15 86 17 20  20 e6 20 62 6c 61 73 74  ||......  . blast|
00002160  63 6f 6c 20 c8 9c 20 32  35 35 0d 15 90 06 20 cd  |col .. 255.... .|
00002170  0d 15 9a 05 20 0d 15 a4  3e 20 20 c8 8f 20 c8 90  |.... ...>  .. ..|
00002180  20 63 69 72 63 6c 65 28  6b 2c 31 29 2b 78 6f 66  | circle(k,1)+xof|
00002190  66 2c 63 69 72 63 6c 65  28 6b 2c 32 29 2b 79 6f  |f,circle(k,2)+yo|
000021a0  66 66 2c 63 69 72 63 6c  65 28 6b 2c 33 29 2b 72  |ff,circle(k,3)+r|
000021b0  6f 66 66 0d 15 ae 06 20  20 0d 15 b8 17 20 20 e7  |off....  ....  .|
000021c0  20 63 69 72 63 6c 65 28  6b 2c 33 29 3c 30 20 8c  | circle(k,3)<0 .|
000021d0  0d 15 c2 0f 20 20 20 e6  20 30 20 c8 9c 20 30 0d  |....   . 0 .. 0.|
000021e0  15 cc 27 20 20 20 c8 8f  20 c8 90 20 63 69 72 63  |..'   .. .. circ|
000021f0  6c 65 28 6b 2c 31 29 2c  63 69 72 63 6c 65 28 6b  |le(k,1),circle(k|
00002200  2c 32 29 2c 32 35 0d 15  d6 06 20 20 0d 15 e0 07  |,2),25....  ....|
00002210  20 20 20 0d 15 ea 14 20  20 20 63 69 72 63 6c 65  |   ....   circle|
00002220  28 6b 2c 31 29 3d 30 0d  15 f4 07 20 20 20 0d 15  |(k,1)=0....   ..|
00002230  fe 07 20 20 cd 0d 16 08  06 20 20 0d 16 12 36 20  |..  .....  ...6 |
00002240  20 e7 20 63 69 72 63 6c  65 28 6b 2c 33 29 3e 39  | . circle(k,3)>9|
00002250  35 20 80 20 63 69 72 63  6c 65 28 6b 2c 35 29 20  |5 . circle(k,5) |
00002260  80 20 ac 20 63 69 72 63  6c 65 28 6b 2c 36 29 20  |. . circle(k,6) |
00002270  8c 0d 16 1c 14 20 20 20  63 69 72 63 6c 65 28 6b  |.....   circle(k|
00002280  2c 31 29 3d 30 0d 16 26  14 20 20 20 63 69 72 63  |,1)=0..&.   circ|
00002290  6c 65 28 6b 2c 36 29 3d  a3 0d 16 30 14 20 20 20  |le(k,6)=...0.   |
000022a0  63 69 72 63 6c 65 28 6b  2c 35 29 3d a3 0d 16 3a  |circle(k,5)=...:|
000022b0  07 20 20 20 0d 16 44 07  20 20 cd 0d 16 4e 06 20  |.   ..D.  ...N. |
000022c0  20 0d 16 58 05 cd 0d 16  62 07 ed 20 6b 0d 16 6c  | ..X....b.. k..l|
000022d0  0f e6 20 36 33 20 c8 9c  20 32 35 35 0d 16 76 05  |.. 63 .. 255..v.|
000022e0  e1 0d 16 80 04 0d 16 8a  04 0d 16 94 04 0d 16 9e  |................|
000022f0  0b dd 20 f2 74 65 73 74  0d 16 a8 0f e6 20 36 33  |.. .test..... 63|
00002300  20 c8 9c 20 32 35 35 0d  16 b2 19 c8 93 20 c8 90  | .. 255...... ..|
00002310  20 31 30 30 2c 31 30 30  2c 33 30 30 2c 33 30 30  | 100,100,300,300|
00002320  0d 16 bc 07 70 3d a5 0d  16 c6 14 e3 20 69 3d 32  |....p=...... i=2|
00002330  35 30 20 b8 20 31 20 88  20 2d 35 0d 16 d0 0f 20  |50 . 1 . -5.... |
00002340  fb 20 36 33 2c 69 2c 69  2c 69 0d 16 da 08 20 70  |. 63,i,i,i.... p|
00002350  3d a5 0d 16 e4 07 ed 20  69 0d 16 ee 07 70 3d a5  |=...... i....p=.|
00002360  0d 16 f8 05 e1 0d 17 02  04 0d 17 0c 1b dd 20 f2  |.............. .|
00002370  61 73 73 69 67 6e 5f 6c  69 6e 65 28 77 2c 73 70  |assign_line(w,sp|
00002380  6c 69 74 29 0d 17 16 04  0d 17 20 13 20 66 3d b3  |lit)...... . f=.|
00002390  28 31 30 29 3a 63 69 74  79 3d 30 0d 17 2a 15 20  |(10):city=0..*. |
000023a0  e7 20 69 73 67 69 74 28  77 29 20 8c 20 66 3d 34  |. isgit(w) . f=4|
000023b0  0d 17 34 0c 20 e7 20 66  3c 37 20 8c 0d 17 3e 06  |..4. . f<7 ...>.|
000023c0  20 f5 0d 17 48 0f 20 79  6e 3d a8 28 b3 28 38 29  | ...H. yn=.(.(8)|
000023d0  29 0d 17 52 10 20 fd 20  65 78 69 73 74 28 79 6e  |)..R. . exist(yn|
000023e0  29 0d 17 5c 0d 20 63 69  74 79 6e 3d 79 6e 0d 17  |)..\. cityn=yn..|
000023f0  66 04 0d 17 70 1c 20 63  69 74 79 3d 2d 35 30 2b  |f...p. city=-50+|
00002400  28 31 31 39 30 2f 38 29  2a 63 69 74 79 6e 0d 17  |(1190/8)*cityn..|
00002410  7a 06 20 cc 0d 17 84 10  20 63 69 74 79 3d 28 b3  |z. ..... city=(.|
00002420  28 38 29 29 0d 17 8e 1b  20 63 69 74 79 3d 2d 35  |(8)).... city=-5|
00002430  30 2b 28 31 31 39 30 2f  38 29 2a 63 69 74 79 0d  |0+(1190/8)*city.|
00002440  17 98 05 20 0d 17 a2 06  20 cd 0d 17 ac 17 20 20  |... .... .....  |
00002450  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002460  20 0d 17 b6 17 20 20 20  20 20 20 20 20 20 20 20  | ....           |
00002470  20 20 20 20 20 20 20 20  0d 17 c0 0f e7 20 ac 20  |        ..... . |
00002480  73 70 6c 69 74 20 8c 0d  17 ca 04 0d 17 d4 26 20  |split ........& |
00002490  6e 6f 72 6d 61 6c 28 77  2c 78 70 6f 73 29 3d 63  |normal(w,xpos)=c|
000024a0  69 74 79 2b 28 2d 32 35  30 2b b3 28 35 30 30 29  |ity+(-250+.(500)|
000024b0  29 0d 17 de 2a 20 e7 20  6e 6f 72 6d 61 6c 28 77  |)...* . normal(w|
000024c0  2c 78 70 6f 73 29 3c 30  20 8c 20 6e 6f 72 6d 61  |,xpos)<0 . norma|
000024d0  6c 28 77 2c 78 70 6f 73  29 3d 30 0d 17 e8 30 20  |l(w,xpos)=0...0 |
000024e0  e7 20 6e 6f 72 6d 61 6c  28 77 2c 78 70 6f 73 29  |. normal(w,xpos)|
000024f0  3e 31 32 37 39 20 8c 20  6e 6f 72 6d 61 6c 28 77  |>1279 . normal(w|
00002500  2c 78 70 6f 73 29 3d 31  32 37 39 0d 17 f2 0d 20  |,xpos)=1279.... |
00002510  e7 20 72 69 73 63 20 8c  0d 17 fc 17 20 6e 6f 72  |. risc ..... nor|
00002520  6d 61 6c 28 77 2c 79 70  6f 73 29 3d 39 30 30 0d  |mal(w,ypos)=900.|
00002530  18 06 06 20 cc 0d 18 10  17 20 6e 6f 72 6d 61 6c  |... ..... normal|
00002540  28 77 2c 79 70 6f 73 29  3d 38 39 30 0d 18 1a 06  |(w,ypos)=890....|
00002550  20 cd 0d 18 24 05 cc 0d  18 2e 04 0d 18 38 29 20  | ...$........8) |
00002560  6e 6f 72 6d 61 6c 28 77  2c 78 70 6f 73 29 3d 6e  |normal(w,xpos)=n|
00002570  6f 72 6d 61 6c 28 73 70  6c 69 74 6e 75 6d 2c 78  |ormal(splitnum,x|
00002580  70 6f 73 29 0d 18 42 29  20 6e 6f 72 6d 61 6c 28  |pos)..B) normal(|
00002590  77 2c 79 70 6f 73 29 3d  6e 6f 72 6d 61 6c 28 73  |w,ypos)=normal(s|
000025a0  70 6c 69 74 6e 75 6d 2c  79 70 6f 73 29 0d 18 4c  |plitnum,ypos)..L|
000025b0  05 cd 0d 18 56 05 20 0d  18 60 23 20 20 6e 6f 72  |....V. ..`#  nor|
000025c0  6d 61 6c 28 77 2c 78 65  6e 64 29 3d 6e 6f 72 6d  |mal(w,xend)=norm|
000025d0  61 6c 28 77 2c 78 70 6f  73 29 0d 18 6a 23 20 20  |al(w,xpos)..j#  |
000025e0  6e 6f 72 6d 61 6c 28 77  2c 79 65 6e 64 29 3d 6e  |normal(w,yend)=n|
000025f0  6f 72 6d 61 6c 28 77 2c  79 70 6f 73 29 0d 18 74  |ormal(w,ypos)..t|
00002600  05 20 0d 18 7e 27 20 e7  20 6e 6f 72 6d 61 6c 28  |. ..~' . normal(|
00002610  77 2c 78 70 6f 73 29 3e  36 30 30 20 8c 20 63 6e  |w,xpos)>600 . cn|
00002620  3d 31 20 8b 20 63 6e 3d  32 0d 18 88 05 20 0d 18  |=1 . cn=2.... ..|
00002630  92 24 20 6e 6f 72 6d 61  6c 28 77 2c 79 64 69 72  |.$ normal(w,ydir|
00002640  29 3d 73 70 64 28 77 61  76 65 29 2b b3 28 31 29  |)=spd(wave)+.(1)|
00002650  2a 32 0d 18 9c 2e 20 20  20 20 20 20 20 20 20 20  |*2....          |
00002660  20 20 20 20 20 20 20 20  20 79 69 6e 63 3d 39 30  |         yinc=90|
00002670  30 2f 6e 6f 72 6d 61 6c  28 77 2c 79 64 69 72 29  |0/normal(w,ydir)|
00002680  0d 18 a6 2e 20 6e 6f 72  6d 61 6c 28 77 2c 78 64  |.... normal(w,xd|
00002690  69 72 29 3d 28 63 69 74  79 2d 6e 6f 72 6d 61 6c  |ir)=(city-normal|
000026a0  28 77 2c 78 70 6f 73 29  29 2f 79 69 6e 63 0d 18  |(w,xpos))/yinc..|
000026b0  b0 2a 20 e7 20 6e 6f 72  6d 61 6c 28 77 2c 78 64  |.* . normal(w,xd|
000026c0  69 72 29 3d 30 20 8c 20  6e 6f 72 6d 61 6c 28 77  |ir)=0 . normal(w|
000026d0  2c 78 64 69 72 29 3d 31  0d 18 ba 05 20 0d 18 c4  |,xdir)=1.... ...|
000026e0  0d e7 20 73 70 6c 69 74  20 8c 0d 18 ce 06 20 f5  |.. split ..... .|
000026f0  0d 18 d8 25 20 20 6e 6f  72 6d 61 6c 28 77 2c 79  |...%  normal(w,y|
00002700  64 69 72 29 3d 73 70 64  28 77 61 76 65 29 2b b3  |dir)=spd(wave)+.|
00002710  28 31 29 2a 32 0d 18 e2  25 20 20 74 67 74 3d 6e  |(1)*2...%  tgt=n|
00002720  6f 72 6d 61 6c 28 77 2c  78 70 6f 73 29 2b 28 2d  |ormal(w,xpos)+(-|
00002730  37 30 2b b3 28 31 34 30  29 29 0d 18 ec 06 20 20  |70+.(140))....  |
00002740  0d 18 f6 38 20 20 6e 6f  72 6d 61 6c 28 77 2c 78  |...8  normal(w,x|
00002750  64 69 72 29 3d 28 74 67  74 2d 6e 6f 72 6d 61 6c  |dir)=(tgt-normal|
00002760  28 77 2c 78 70 6f 73 29  29 2f 6e 6f 72 6d 61 6c  |(w,xpos))/normal|
00002770  28 77 2c 79 64 69 72 29  0d 19 00 2a 20 e7 20 6e  |(w,ydir)...* . n|
00002780  6f 72 6d 61 6c 28 77 2c  78 64 69 72 29 3d 30 20  |ormal(w,xdir)=0 |
00002790  8c 20 6e 6f 72 6d 61 6c  28 77 2c 78 64 69 72 29  |. normal(w,xdir)|
000027a0  3d 31 0d 19 0a 29 20 fd  20 94 28 6e 6f 72 6d 61  |=1...) . .(norma|
000027b0  6c 28 77 2c 79 64 69 72  29 2f 6e 6f 72 6d 61 6c  |l(w,ydir)/normal|
000027c0  28 77 2c 78 64 69 72 29  29 3e 32 0d 19 14 05 cd  |(w,xdir))>2.....|
000027d0  0d 19 1e 04 0d 19 28 05  20 0d 19 32 12 20 73 65  |......(. ..2. se|
000027e0  6c 65 63 74 65 64 28 77  29 3d b9 0d 19 3c 10 20  |lected(w)=...<. |
000027f0  65 72 61 73 65 64 28 77  29 3d a3 0d 19 46 05 20  |erased(w)=...F. |
00002800  0d 19 50 05 e1 0d 19 5a  05 20 0d 19 64 11 dd 20  |..P....Z. ..d.. |
00002810  f2 65 72 61 73 65 5f 6c  69 6e 65 0d 19 6e 0e 20  |.erase_line..n. |
00002820  20 20 ea 20 74 6d 70 2c  6a 0d 19 78 04 0d 19 82  |  . tmp,j..x....|
00002830  07 20 20 20 0d 19 8c 15  20 20 20 e7 20 69 73 6d  |.   ....   . ism|
00002840  75 6c 74 69 28 69 29 20  8c 0d 19 96 14 20 20 20  |ulti(i) .....   |
00002850  20 69 73 6d 75 6c 74 69  28 69 29 3d a3 0d 19 a0  | ismulti(i)=....|
00002860  0d 20 20 20 20 74 6d 70  3d 69 0d 19 aa 15 20 20  |.    tmp=i....  |
00002870  20 20 69 3d 6d 75 6c 74  69 6d 61 6e 28 69 29 0d  |  i=multiman(i).|
00002880  19 b4 14 20 20 20 20 69  73 6d 75 6c 74 69 28 69  |...    ismulti(i|
00002890  29 3d a3 0d 19 be 13 20  20 20 20 f2 65 72 61 73  |)=.....    .eras|
000028a0  65 5f 6c 69 6e 65 0d 19  c8 12 20 20 20 20 6f 74  |e_line....    ot|
000028b0  68 65 72 28 69 29 3d a3  0d 19 d2 0d 20 20 20 20  |her(i)=.....    |
000028c0  69 3d 74 6d 70 0d 19 dc  15 20 20 20 20 6d 75 6c  |i=tmp....    mul|
000028d0  74 69 6d 61 6e 28 69 29  3d a3 0d 19 e6 04 0d 19  |timan(i)=.......|
000028e0  f0 08 20 20 20 cd 0d 19  fa 05 20 0d 1a 04 14 20  |..   ..... .... |
000028f0  20 20 73 65 6c 65 63 74  65 64 28 69 29 3d a3 0d  |  selected(i)=..|
00002900  1a 0e 11 20 20 20 69 73  67 69 74 28 69 29 3d a3  |...   isgit(i)=.|
00002910  0d 1a 18 04 0d 1a 22 0f  20 20 20 e6 20 30 20 c8  |......".   . 0 .|
00002920  9c 20 30 0d 1a 2c 04 0d  1a 36 43 86 20 6e 6f 72  |. 0..,...6C. nor|
00002930  6d 61 6c 28 69 2c 78 70  6f 73 29 2c 20 6e 6f 72  |mal(i,xpos), nor|
00002940  6d 61 6c 28 69 2c 79 70  6f 73 29 2c 20 6e 6f 72  |mal(i,ypos), nor|
00002950  6d 61 6c 28 69 2c 78 65  6e 64 29 2c 6e 6f 72 6d  |mal(i,xend),norm|
00002960  61 6c 28 69 2c 79 65 6e  64 29 0d 1a 40 47 86 20  |al(i,yend)..@G. |
00002970  6e 6f 72 6d 61 6c 28 69  2c 78 70 6f 73 29 2d 32  |normal(i,xpos)-2|
00002980  2c 20 6e 6f 72 6d 61 6c  28 69 2c 79 70 6f 73 29  |, normal(i,ypos)|
00002990  2c 20 6e 6f 72 6d 61 6c  28 69 2c 78 65 6e 64 29  |, normal(i,xend)|
000029a0  2d 32 2c 6e 6f 72 6d 61  6c 28 69 2c 79 65 6e 64  |-2,normal(i,yend|
000029b0  29 0d 1a 4a 47 86 20 6e  6f 72 6d 61 6c 28 69 2c  |)..JG. normal(i,|
000029c0  78 70 6f 73 29 2b 32 2c  20 6e 6f 72 6d 61 6c 28  |xpos)+2, normal(|
000029d0  69 2c 79 70 6f 73 29 2c  20 6e 6f 72 6d 61 6c 28  |i,ypos), normal(|
000029e0  69 2c 78 65 6e 64 29 2d  32 2c 6e 6f 72 6d 61 6c  |i,xend)-2,normal|
000029f0  28 69 2c 79 65 6e 64 29  0d 1a 54 47 86 20 6e 6f  |(i,yend)..TG. no|
00002a00  72 6d 61 6c 28 69 2c 78  70 6f 73 29 2d 32 2c 20  |rmal(i,xpos)-2, |
00002a10  6e 6f 72 6d 61 6c 28 69  2c 79 70 6f 73 29 2c 20  |normal(i,ypos), |
00002a20  6e 6f 72 6d 61 6c 28 69  2c 78 65 6e 64 29 2b 32  |normal(i,xend)+2|
00002a30  2c 6e 6f 72 6d 61 6c 28  69 2c 79 65 6e 64 29 0d  |,normal(i,yend).|
00002a40  1a 5e 47 86 20 6e 6f 72  6d 61 6c 28 69 2c 78 70  |.^G. normal(i,xp|
00002a50  6f 73 29 2b 32 2c 20 6e  6f 72 6d 61 6c 28 69 2c  |os)+2, normal(i,|
00002a60  79 70 6f 73 29 2c 20 6e  6f 72 6d 61 6c 28 69 2c  |ypos), normal(i,|
00002a70  78 65 6e 64 29 2b 32 2c  6e 6f 72 6d 61 6c 28 69  |xend)+2,normal(i|
00002a80  2c 79 65 6e 64 29 0d 1a  68 47 86 20 6e 6f 72 6d  |,yend)..hG. norm|
00002a90  61 6c 28 69 2c 78 70 6f  73 29 2d 34 2c 20 6e 6f  |al(i,xpos)-4, no|
00002aa0  72 6d 61 6c 28 69 2c 79  70 6f 73 29 2c 20 6e 6f  |rmal(i,ypos), no|
00002ab0  72 6d 61 6c 28 69 2c 78  65 6e 64 29 2d 32 2c 6e  |rmal(i,xend)-2,n|
00002ac0  6f 72 6d 61 6c 28 69 2c  79 65 6e 64 29 0d 1a 72  |ormal(i,yend)..r|
00002ad0  47 86 20 6e 6f 72 6d 61  6c 28 69 2c 78 70 6f 73  |G. normal(i,xpos|
00002ae0  29 2b 34 2c 20 6e 6f 72  6d 61 6c 28 69 2c 79 70  |)+4, normal(i,yp|
00002af0  6f 73 29 2c 20 6e 6f 72  6d 61 6c 28 69 2c 78 65  |os), normal(i,xe|
00002b00  6e 64 29 2b 32 2c 6e 6f  72 6d 61 6c 28 69 2c 79  |nd)+2,normal(i,y|
00002b10  65 6e 64 29 0d 1a 7c 04  0d 1a 86 0e 6f 74 68 65  |end)..|.....othe|
00002b20  72 28 69 29 3d a3 0d 1a  90 0f 65 72 61 73 65 64  |r(i)=.....erased|
00002b30  28 69 29 3d b9 0d 1a 9a  04 0d 1a a4 15 f2 72 65  |(i)=..........re|
00002b40  66 72 65 73 68 5f 6d 69  73 73 69 6c 65 73 0d 1a  |fresh_missiles..|
00002b50  ae 06 20 e1 0d 1a b8 05  20 0d 1a c2 05 20 0d 1a  |.. ..... .... ..|
00002b60  cc 13 dd 20 f2 73 63 72  65 65 6e 5f 73 65 74 75  |... .screen_setu|
00002b70  70 0d 1a d6 0e 20 20 20  20 20 20 72 3d 35 38 0d  |p....      r=58.|
00002b80  1a e0 21 20 20 20 20 20  20 e7 20 72 69 73 63 20  |..!      . risc |
00002b90  8c 20 75 67 74 3d 30 20  8b 20 75 67 74 3d 2d 38  |. ugt=0 . ugt=-8|
00002ba0  0d 1a ea 19 e3 20 69 3d  39 30 32 2b 75 67 74 20  |..... i=902+ugt |
00002bb0  b8 20 39 36 30 20 88 20  32 0d 1a f4 08 72 2d 3d  |. 960 . 2....r-=|
00002bc0  32 0d 1a fe 0d 20 e7 20  72 69 73 63 20 8c 0d 1b  |2.... . risc ...|
00002bd0  08 18 20 20 e6 20 32 35  2c 32 35 2c 72 2a 28 32  |..  . 25,25,r*(2|
00002be0  35 30 2f 35 38 29 0d 1b  12 06 20 cc 0d 1b 1c 0a  |50/58).... .....|
00002bf0  20 20 e6 20 34 38 0d 1b  26 06 20 cd 0d 1b 30 05  |  . 48..&. ...0.|
00002c00  20 0d 1b 3a 11 20 86 20  30 2c 69 2c 31 32 37 39  | ..:. . 0,i,1279|
00002c10  2c 69 0d 1b 44 07 ed 20  69 0d 1b 4e 04 0d 1b 58  |,i..D.. i..N...X|
00002c20  0c e7 20 72 69 73 63 20  8c 0d 1b 62 10 20 e6 20  |.. risc ...b. . |
00002c30  36 33 20 c8 9c 20 32 35  35 0d 1b 6c 05 cc 0d 1b  |63 .. 255..l....|
00002c40  76 10 20 e6 20 36 33 20  c8 9c 20 32 35 35 0d 1b  |v. . 63 .. 255..|
00002c50  80 05 cd 0d 1b 8a 04 0d  1b 94 10 86 20 30 2c 30  |............ 0,0|
00002c60  2c 31 32 37 39 2c 30 0d  1b 9e 04 0d 1b a8 1c 86  |,1279,0.........|
00002c70  20 30 2c 39 30 32 2b 75  67 74 2c 31 32 37 39 2c  | 0,902+ugt,1279,|
00002c80  39 30 32 2b 75 67 74 0d  1b b2 04 0d 1b bc 0d f2  |902+ugt.........|
00002c90  69 6e 69 74 5f 73 63 72  0d 1b c6 04 0d 1b d0 05  |init_scr........|
00002ca0  e1 0d 1b da 04 0d 1b e4  10 dd 20 f2 73 65 74 5f  |.......... .set_|
00002cb0  73 63 6f 72 65 0d 1b ee  0c e6 20 30 20 c8 9c 20  |score..... 0 .. |
00002cc0  30 0d 1b f8 0c e7 20 72  69 73 63 20 8c 0d 1c 02  |0..... risc ....|
00002cd0  19 20 c8 93 20 c8 90 20  31 36 35 2c 39 31 35 2c  |. .. .. 165,915,|
00002ce0  31 31 32 2c 32 30 0d 1c  0c 19 20 c8 93 20 c8 90  |112,20.... .. ..|
00002cf0  20 35 36 35 2c 39 31 35  2c 31 31 32 2c 32 30 0d  | 565,915,112,20.|
00002d00  1c 16 05 cc 0d 1c 20 19  20 c8 93 20 c8 90 20 31  |...... . .. .. 1|
00002d10  36 35 2c 39 30 38 2c 31  31 32 2c 33 32 0d 1c 2a  |65,908,112,32..*|
00002d20  19 20 c8 93 20 c8 90 20  35 36 35 2c 39 30 38 2c  |. .. .. 565,908,|
00002d30  31 31 32 2c 33 32 0d 1c  34 05 cd 0d 1c 3e 04 0d  |112,32..4....>..|
00002d40  1c 48 11 20 ec 20 34 30  2c 39 33 30 2d 75 67 74  |.H. . 40,930-ugt|
00002d50  0d 1c 52 0f e6 20 36 33  20 c8 9c 20 32 35 35 0d  |..R.. 63 .. 255.|
00002d60  1c 5c 17 20 f1 20 22 20  20 53 43 4f 52 45 20 22  |.\. . "  SCORE "|
00002d70  3b 73 63 6f 72 65 0d 1c  66 04 0d 1c 70 12 20 ec  |;score..f...p. .|
00002d80  20 34 34 30 2c 39 33 30  2d 75 67 74 0d 1c 7a 16  | 440,930-ugt..z.|
00002d90  20 f1 20 22 20 20 20 41  4d 4d 4f 20 22 3b 61 6d  | . "   AMMO ";am|
00002da0  6d 6f 0d 1c 84 05 20 0d  1c 8e 05 20 0d 1c 98 04  |mo.... .... ....|
00002db0  0d 1c a2 05 e1 0d 1c ac  04 0d 1c b6 16 dd 20 f2  |.............. .|
00002dc0  65 78 70 6c 6f 64 65 5f  63 69 74 79 28 74 29 0d  |explode_city(t).|
00002dd0  1c c0 04 0d 1c ca 04 0d  1c d4 0d 20 e6 20 33 20  |........... . 3 |
00002de0  c8 9c 20 30 0d 1c de 1c  20 6e 75 6b 65 28 74 2c  |.. 0.... nuke(t,|
00002df0  31 29 3d 74 2a 28 31 31  35 30 2f 38 29 2d 32 35  |1)=t*(1150/8)-25|
00002e00  0d 1c e8 11 20 6e 75 6b  65 28 74 2c 32 29 3d 35  |.... nuke(t,2)=5|
00002e10  30 0d 1c f2 10 20 6e 75  6b 65 28 74 2c 33 29 3d  |0.... nuke(t,3)=|
00002e20  30 0d 1c fc 10 20 6e 75  6b 65 28 74 2c 34 29 3d  |0.... nuke(t,4)=|
00002e30  30 0d 1d 06 05 20 0d 1d  10 0f 20 65 78 69 73 74  |0.... .... exist|
00002e40  28 74 29 3d a3 0d 1d 1a  07 67 3d a3 0d 1d 24 0d  |(t)=.....g=...$.|
00002e50  e3 20 6f 3d 31 20 b8 20  38 0d 1d 2e 15 20 e7 20  |. o=1 . 8.... . |
00002e60  65 78 69 73 74 28 6f 29  20 8c 20 67 3d b9 0d 1d  |exist(o) . g=...|
00002e70  38 07 ed 20 6f 0d 1d 42  15 e7 20 67 3d a3 20 8c  |8.. o..B.. g=. .|
00002e80  20 65 6e 64 67 61 6d 65  3d b9 0d 1d 4c 05 20 0d  | endgame=...L. .|
00002e90  1d 56 05 e1 0d 1d 60 04  0d 1d 6a 11 dd 20 f2 6e  |.V....`...j.. .n|
00002ea0  65 77 5f 63 69 72 63 6c  65 0d 1d 74 09 20 20 64  |ew_circle..t.  d|
00002eb0  3d 30 0d 1d 7e 06 20 20  0d 1d 88 07 20 20 f5 0d  |=0..~.  ....  ..|
00002ec0  1d 92 0a 20 20 64 2b 3d  31 0d 1d 9c 15 20 20 fd  |...  d+=1....  .|
00002ed0  20 63 69 72 63 6c 65 28  64 2c 31 29 3d 30 0d 1d  | circle(d,1)=0..|
00002ee0  a6 21 20 20 e7 20 64 3e  6e 75 6d 63 69 72 63 6c  |.!  . d>numcircl|
00002ef0  65 20 8c 20 6e 75 6d 63  69 72 63 6c 65 3d 64 0d  |e . numcircle=d.|
00002f00  1d b0 04 0d 1d ba 23 20  20 78 70 3d 73 68 6f 74  |......#  xp=shot|
00002f10  67 6f 28 6b 2c 37 29 3a  79 70 3d 73 68 6f 74 67  |go(k,7):yp=shotg|
00002f20  6f 28 6b 2c 38 29 0d 1d  c4 3f 20 20 63 69 72 63  |o(k,8)...?  circ|
00002f30  6c 65 28 64 2c 31 29 3d  78 70 3a 63 69 72 63 6c  |le(d,1)=xp:circl|
00002f40  65 28 64 2c 32 29 3d 79  70 3a 63 69 72 63 6c 65  |e(d,2)=yp:circle|
00002f50  28 64 2c 33 29 3d 35 3a  63 69 72 63 6c 65 28 64  |(d,3)=5:circle(d|
00002f60  2c 34 29 3d 30 0d 1d ce  25 20 20 e7 20 63 69 72  |,4)=0...%  . cir|
00002f70  63 6c 65 28 64 2c 31 29  3d 30 20 8c 20 63 69 72  |cle(d,1)=0 . cir|
00002f80  63 6c 65 28 64 2c 31 29  3d 31 0d 1d d8 04 0d 1d  |cle(d,1)=1......|
00002f90  e2 0e 20 20 e6 20 6c 61  73 63 6f 6c 0d 1d ec 0d  |..  . lascol....|
00002fa0  20 20 74 6f 73 65 74 3d  b9 0d 1d f6 04 0d 1e 00  |  toset=........|
00002fb0  05 e1 0d 1e 0a 04 0d 1e  14 12 dd 20 f2 6d 61 6e  |........... .man|
00002fc0  61 67 65 5f 6e 75 6b 65  0d 1e 1e 0e 20 e3 20 68  |age_nuke.... . h|
00002fd0  3d 31 20 b8 20 38 0d 1e  28 16 20 20 e7 20 6e 75  |=1 . 8..(.  . nu|
00002fe0  6b 65 28 68 2c 31 29 3c  3e 30 20 8c 0d 1e 32 16  |ke(h,1)<>0 ...2.|
00002ff0  20 20 20 6e 75 6b 65 28  68 2c 34 29 2b 3d 30 2e  |   nuke(h,4)+=0.|
00003000  30 35 0d 1e 3c 17 20 20  20 6e 75 6b 6f 6c 64 3d  |05..<.   nukold=|
00003010  6e 75 6b 65 28 68 2c 33  29 0d 1e 46 20 20 20 20  |nuke(h,3)..F    |
00003020  6e 75 6b 65 28 68 2c 33  29 3d b5 28 6e 75 6b 65  |nuke(h,3)=.(nuke|
00003030  28 68 2c 34 29 29 2a 37  35 0d 1e 50 16 20 20 20  |(h,4))*75..P.   |
00003040  e7 20 6e 75 6b 65 28 68  2c 33 29 3c 30 20 8c 0d  |. nuke(h,3)<0 ..|
00003050  1e 5a 10 20 20 20 20 e6  20 30 20 c8 9c 20 30 0d  |.Z.    . 0 .. 0.|
00003060  1e 64 23 20 20 20 20 c8  8f 20 c8 90 20 6e 75 6b  |.d#    .. .. nuk|
00003070  65 28 68 2c 31 29 2c 6e  75 6b 65 28 68 2c 32 29  |e(h,1),nuke(h,2)|
00003080  2c 35 0d 1e 6e 13 20 20  20 20 6e 75 6b 65 28 68  |,5..n.    nuke(h|
00003090  2c 31 29 3d 30 0d 1e 78  08 20 20 20 cc 0d 1e 82  |,1)=0..x.   ....|
000030a0  1c 20 20 20 20 e7 20 6e  75 6b 6f 6c 64 3e 6e 75  |.    . nukold>nu|
000030b0  6b 65 28 68 2c 33 29 20  8c 0d 1e 8c 11 20 20 20  |ke(h,3) .....   |
000030c0  20 20 e6 20 30 20 c8 9c  20 30 0d 1e 96 29 20 20  |  . 0 .. 0...)  |
000030d0  20 20 20 c8 8f 20 c8 90  20 6e 75 6b 65 28 68 2c  |   .. .. nuke(h,|
000030e0  31 29 2c 6e 75 6b 65 28  68 2c 32 29 2c 6e 75 6b  |1),nuke(h,2),nuk|
000030f0  6f 6c 64 0d 1e a0 09 20  20 20 20 cd 0d 1e aa 10  |old....    .....|
00003100  20 20 20 20 e7 20 72 69  73 63 20 8c 0d 1e b4 21  |    . risc ....!|
00003110  20 20 20 20 20 e6 20 b5  28 6e 75 6b 65 28 68 2c  |     . .(nuke(h,|
00003120  34 29 29 2a 32 35 30 2c  31 30 30 2c 30 0d 1e be  |4))*250,100,0...|
00003130  09 20 20 20 20 cc 0d 1e  c8 1a 20 20 20 20 20 e6  |.    .....     .|
00003140  20 b5 28 6e 75 6b 65 28  68 2c 34 29 29 2a 36 33  | .(nuke(h,4))*63|
00003150  0d 1e d2 09 20 20 20 20  cd 0d 1e dc 2b 20 20 20  |....    ....+   |
00003160  20 c8 8f 20 c8 90 20 6e  75 6b 65 28 68 2c 31 29  | .. .. nuke(h,1)|
00003170  2c 6e 75 6b 65 28 68 2c  32 29 2c 6e 75 6b 65 28  |,nuke(h,2),nuke(|
00003180  68 2c 33 29 0d 1e e6 08  20 20 20 cd 0d 1e f0 07  |h,3)....   .....|
00003190  20 20 cd 0d 1e fa 06 20  20 0d 1f 04 11 20 20 e6  |  .....  ....  .|
000031a0  20 36 33 20 c8 9c 20 32  35 35 0d 1f 0e 12 20 20  | 63 .. 255....  |
000031b0  86 20 30 2c 30 2c 31 32  37 39 2c 30 0d 1f 18 08  |. 0,0,1279,0....|
000031c0  20 ed 20 68 0d 1f 22 05  e1 0d 1f 2c 04 0d 1f 36  | . h.."....,...6|
000031d0  04 0d 1f 40 0f dd 20 f2  6e 65 77 5f 73 68 6f 74  |...@.. .new_shot|
000031e0  0d 1f 4a 04 0d 1f 54 07  67 3d 30 0d 1f 5e 05 f5  |..J...T.g=0..^..|
000031f0  0d 1f 68 09 20 67 2b 3d  31 0d 1f 72 04 0d 1f 7c  |..h. g+=1..r...||
00003200  13 fd 20 73 68 6f 74 67  6f 28 67 2c 31 29 3d 30  |.. shotgo(g,1)=0|
00003210  0d 1f 86 1c 20 e7 20 67  3e 6e 75 6d 73 68 6f 74  |.... . g>numshot|
00003220  20 8c 20 6e 75 6d 73 68  6f 74 3d 67 0d 1f 90 12  | . numshot=g....|
00003230  20 78 64 69 66 66 3d 78  70 2d 67 75 6e 78 0d 1f  | xdiff=xp-gunx..|
00003240  9a 17 20 79 64 69 66 66  3d 79 70 2d 67 75 6e 68  |.. ydiff=yp-gunh|
00003250  65 69 67 68 74 0d 1f a4  2b 20 73 68 6f 74 67 6f  |eight...+ shotgo|
00003260  28 67 2c 31 29 3d 67 75  6e 78 3a 73 68 6f 74 67  |(g,1)=gunx:shotg|
00003270  6f 28 67 2c 32 29 3d 67  75 6e 68 65 69 67 68 74  |o(g,2)=gunheight|
00003280  0d 1f ae 1c 20 73 68 6f  74 67 6f 28 67 2c 33 29  |.... shotgo(g,3)|
00003290  3d 73 68 6f 74 67 6f 28  67 2c 31 29 0d 1f b8 1c  |=shotgo(g,1)....|
000032a0  20 73 68 6f 74 67 6f 28  67 2c 34 29 3d 73 68 6f  | shotgo(g,4)=sho|
000032b0  74 67 6f 28 67 2c 32 29  0d 1f c2 22 20 73 68 6f  |tgo(g,2)..." sho|
000032c0  74 67 6f 28 67 2c 37 29  3d 78 70 3a 73 68 6f 74  |tgo(g,7)=xp:shot|
000032d0  67 6f 28 67 2c 38 29 3d  79 70 0d 1f cc 04 0d 1f  |go(g,8)=yp......|
000032e0  d6 17 e7 20 78 64 69 66  66 3d 30 20 8c 20 78 64  |... xdiff=0 . xd|
000032f0  69 66 66 3d 31 0d 1f e0  13 61 74 6e 3d 79 64 69  |iff=1....atn=ydi|
00003300  66 66 2f 78 64 69 66 66  0d 1f ea 0e 61 74 6e 3d  |ff/xdiff....atn=|
00003310  99 28 61 74 6e 29 0d 1f  f4 18 e7 20 78 64 69 66  |.(atn)..... xdif|
00003320  66 3c 30 20 8c 20 61 74  6e 3d 2d 61 74 6e 0d 1f  |f<0 . atn=-atn..|
00003330  fe 04 0d 20 08 19 73 68  6f 74 67 6f 28 67 2c 35  |... ..shotgo(g,5|
00003340  29 3d 34 30 2a 9b 28 61  74 6e 29 0d 20 12 28 e7  |)=40*.(atn). .(.|
00003350  20 78 64 69 66 66 3c 30  20 8c 20 73 68 6f 74 67  | xdiff<0 . shotg|
00003360  6f 28 67 2c 35 29 3d 2d  73 68 6f 74 67 6f 28 67  |o(g,5)=-shotgo(g|
00003370  2c 35 29 0d 20 1c 19 73  68 6f 74 67 6f 28 67 2c  |,5). ..shotgo(g,|
00003380  36 29 3d 34 30 2a b5 28  61 74 6e 29 0d 20 26 0c  |6)=40*.(atn). &.|
00003390  20 74 6f 73 65 74 3d b9  0d 20 30 05 e1 0d 20 3a  | toset=.. 0... :|
000033a0  04 0d 20 44 12 dd 20 f2  6d 61 6e 61 67 65 5f 73  |.. D.. .manage_s|
000033b0  68 6f 74 0d 20 4e 04 0d  20 58 13 e3 20 6b 3d 31  |hot. N.. X.. k=1|
000033c0  20 b8 20 6e 75 6d 73 68  6f 74 0d 20 62 17 20 e7  | . numshot. b. .|
000033d0  20 73 68 6f 74 67 6f 28  6b 2c 31 29 3c 3e 30 20  | shotgo(k,1)<>0 |
000033e0  8c 0d 20 6c 34 20 73 68  6f 74 67 6f 28 6b 2c 33  |.. l4 shotgo(k,3|
000033f0  29 3d 73 68 6f 74 67 6f  28 6b 2c 31 29 3a 73 68  |)=shotgo(k,1):sh|
00003400  6f 74 67 6f 28 6b 2c 34  29 3d 73 68 6f 74 67 6f  |otgo(k,4)=shotgo|
00003410  28 6b 2c 32 29 0d 20 76  05 20 0d 20 80 06 20 20  |(k,2). v. . ..  |
00003420  0d 20 8a 1d 20 73 68 6f  74 67 6f 28 6b 2c 31 29  |. .. shotgo(k,1)|
00003430  2b 3d 73 68 6f 74 67 6f  28 6b 2c 35 29 0d 20 94  |+=shotgo(k,5). .|
00003440  1d 20 73 68 6f 74 67 6f  28 6b 2c 32 29 2b 3d 73  |. shotgo(k,2)+=s|
00003450  68 6f 74 67 6f 28 6b 2c  36 29 0d 20 9e 05 20 0d  |hotgo(k,6). .. .|
00003460  20 a8 05 20 0d 20 b2 0d  20 e6 20 30 20 c8 9c 20  | .. . .. . 0 .. |
00003470  30 0d 20 bc 23 20 c8 93  20 73 68 6f 74 67 6f 28  |0. .# .. shotgo(|
00003480  6b 2c 33 29 2c 73 68 6f  74 67 6f 28 6b 2c 34 29  |k,3),shotgo(k,4)|
00003490  2c 32 2c 32 0d 20 c6 10  20 e6 20 36 33 20 c8 9c  |,2,2. .. . 63 ..|
000034a0  20 32 35 35 0d 20 d0 23  20 c8 93 20 73 68 6f 74  | 255. .# .. shot|
000034b0  67 6f 28 6b 2c 31 29 2c  73 68 6f 74 67 6f 28 6b  |go(k,1),shotgo(k|
000034c0  2c 32 29 2c 32 2c 32 0d  20 da 04 0d 20 e4 05 20  |,2),2,2. ... .. |
000034d0  0d 20 ee 42 20 e7 20 73  68 6f 74 67 6f 28 6b 2c  |. .B . shotgo(k,|
000034e0  32 29 3c 3d 73 68 6f 74  67 6f 28 6b 2c 38 29 2b  |2)<=shotgo(k,8)+|
000034f0  32 30 20 80 20 73 68 6f  74 67 6f 28 6b 2c 32 29  |20 . shotgo(k,2)|
00003500  3e 3d 73 68 6f 74 67 6f  28 6b 2c 38 29 2d 32 30  |>=shotgo(k,8)-20|
00003510  20 8c 0d 20 f8 04 0d 21  02 2d 20 20 e6 20 30 20  | .. ...!.-  . 0 |
00003520  c8 9c 20 30 3a c8 93 20  73 68 6f 74 67 6f 28 6b  |.. 0:.. shotgo(k|
00003530  2c 31 29 2c 73 68 6f 74  67 6f 28 6b 2c 32 29 2c  |,1),shotgo(k,2),|
00003540  32 2c 32 0d 21 0c 1a 20  20 f2 70 6c 61 79 28 35  |2,2.!..  .play(5|
00003550  30 30 30 2c 22 42 6f 6f  6d 22 2c 30 29 0d 21 16  |000,"Boom",0).!.|
00003560  11 20 20 f2 6e 65 77 5f  63 69 72 63 6c 65 0d 21  |.  .new_circle.!|
00003570  20 13 20 20 73 68 6f 74  67 6f 28 6b 2c 31 29 3d  | .  shotgo(k,1)=|
00003580  30 0d 21 2a 06 20 20 0d  21 34 06 20 cd 0d 21 3e  |0.!*.  .!4. ..!>|
00003590  05 20 0d 21 48 06 20 cd  0d 21 52 07 ed 20 6b 0d  |. .!H. ..!R.. k.|
000035a0  21 5c 05 20 0d 21 66 05  e1 0d 21 70 04 0d 21 7a  |!\. .!f...!p..!z|
000035b0  04 0d 21 84 13 dd 20 f2  72 65 66 72 65 73 68 5f  |..!... .refresh_|
000035c0  63 69 74 79 0d 21 8e 07  ea 20 61 0d 21 98 0c e7  |city.!... a.!...|
000035d0  20 72 69 73 63 20 8c 0d  21 a2 15 ff 20 22 53 43  | risc ..!... "SC|
000035e0  48 4f 4f 53 45 20 63 69  74 79 33 22 0d 21 ac 05  |HOOSE city3".!..|
000035f0  cc 0d 21 b6 14 ff 20 22  53 43 48 4f 4f 53 45 20  |..!... "SCHOOSE |
00003600  63 69 74 79 22 0d 21 c0  05 cd 0d 21 ca 04 0d 21  |city".!....!...!|
00003610  d4 0d e3 20 61 3d 31 20  b8 20 38 0d 21 de 11 20  |... a=1 . 8.!.. |
00003620  e7 20 65 78 69 73 74 28  61 29 20 8c 0d 21 e8 1c  |. exist(a) ..!..|
00003630  20 f0 20 26 45 44 2c 2d  37 35 2b 61 2a 28 31 31  | . &ED,-75+a*(11|
00003640  35 30 2f 38 29 2c 31 30  0d 21 f2 06 20 cd 0d 21  |50/8),10.!.. ..!|
00003650  fc 07 ed 20 61 0d 22 06  05 e1 0d 22 10 04 0d 22  |... a."...."..."|
00003660  1a 0e dd 20 f2 74 72 61  63 6b 65 72 0d 22 24 18  |... .tracker."$.|
00003670  20 20 20 20 20 20 20 20  20 20 c8 97 20 78 70 2c  |          .. xp,|
00003680  79 70 2c 62 0d 22 2e 16  20 20 20 20 20 20 20 20  |yp,b."..        |
00003690  20 20 78 64 6f 6c 64 3d  78 64 0d 22 38 16 20 20  |  xdold=xd."8.  |
000036a0  20 20 20 20 20 20 20 20  79 64 6f 6c 64 3d 79 64  |        ydold=yd|
000036b0  0d 22 42 0f 20 78 64 3d  78 70 2d 67 75 6e 78 0d  |."B. xd=xp-gunx.|
000036c0  22 4c 14 20 79 64 3d 79  70 2d 67 75 6e 68 65 69  |"L. yd=yp-gunhei|
000036d0  67 68 74 0d 22 56 12 20  e7 20 78 64 3d 30 20 8c  |ght."V. . xd=0 .|
000036e0  20 78 64 3d 31 0d 22 60  14 20 61 6e 67 3d 99 28  | xd=1."`. ang=.(|
000036f0  79 64 2f 94 28 78 64 29  29 0d 22 6a 05 20 0d 22  |yd/.(xd))."j. ."|
00003700  74 19 20 e7 20 78 64 3c  30 20 8c 20 61 6e 67 3d  |t. . xd<0 . ang=|
00003710  28 af 29 2d 61 6e 67 0d  22 7e 05 20 0d 22 88 05  |(.)-ang."~. ."..|
00003720  20 0d 22 92 11 20 78 64  3d 32 30 2a 9b 28 61 6e  | .".. xd=20*.(an|
00003730  67 29 0d 22 9c 11 20 79  64 3d 32 30 2a b5 28 61  |g).".. yd=20*.(a|
00003740  6e 67 29 0d 22 a6 15 20  e7 20 61 6e 67 3c 30 20  |ng).".. . ang<0 |
00003750  8c 20 79 64 3d 2d 79 64  0d 22 b0 05 20 0d 22 ba  |. yd=-yd.".. .".|
00003760  0d 20 e6 20 30 20 c8 9c  20 30 0d 22 c4 30 20 86  |. . 0 .. 0.".0 .|
00003770  20 67 75 6e 78 2c 67 75  6e 68 65 69 67 68 74 2c  | gunx,gunheight,|
00003780  67 75 6e 78 2b 78 64 6f  6c 64 2c 67 75 6e 68 65  |gunx+xdold,gunhe|
00003790  69 67 68 74 2b 79 64 6f  6c 64 0d 22 ce 05 20 0d  |ight+ydold.".. .|
000037a0  22 d8 0f e6 20 36 33 20  c8 9c 20 32 35 35 0d 22  |"... 63 .. 255."|
000037b0  e2 2a 20 86 20 67 75 6e  78 2c 67 75 6e 68 65 69  |.* . gunx,gunhei|
000037c0  67 68 74 2c 67 75 6e 78  2b 78 64 2c 67 75 6e 68  |ght,gunx+xd,gunh|
000037d0  65 69 67 68 74 2b 79 64  0d 22 ec 05 20 0d 22 f6  |eight+yd.".. .".|
000037e0  1b 20 c8 8f 20 c8 90 20  67 75 6e 78 2c 67 75 6e  |. .. .. gunx,gun|
000037f0  68 65 69 67 68 74 2c 34  0d 23 00 21 20 86 20 67  |height,4.#.! . g|
00003800  75 6e 78 2d 32 2c 67 75  6e 68 65 69 67 68 74 2c  |unx-2,gunheight,|
00003810  67 75 6e 78 2d 32 2c 31  30 0d 23 0a 21 20 86 20  |gunx-2,10.#.! . |
00003820  67 75 6e 78 2b 32 2c 67  75 6e 68 65 69 67 68 74  |gunx+2,gunheight|
00003830  2c 67 75 6e 78 2b 32 2c  31 30 0d 23 14 05 e1 0d  |,gunx+2,10.#....|
00003840  23 1e 04 0d 23 28 17 dd  20 f2 72 65 66 72 65 73  |#...#(.. .refres|
00003850  68 5f 6d 69 73 73 69 6c  65 73 0d 23 32 05 e1 0d  |h_missiles.#2...|
00003860  23 3c 10 20 e3 20 62 3d  31 20 b8 20 6e 75 6d 0d  |#<. . b=1 . num.|
00003870  23 46 15 20 20 e7 20 73  65 6c 65 63 74 65 64 28  |#F.  . selected(|
00003880  62 29 20 8c 0d 23 50 16  20 20 20 e6 20 6c 61 73  |b) ..#P.   . las|
00003890  63 6f 6c 20 c8 9c 20 32  35 35 0d 23 5a 44 20 20  |col .. 255.#ZD  |
000038a0  20 86 20 6e 6f 72 6d 61  6c 28 62 2c 78 65 6e 64  | . normal(b,xend|
000038b0  29 2c 6e 6f 72 6d 61 6c  28 62 2c 79 65 6e 64 29  |),normal(b,yend)|
000038c0  2c 6e 6f 72 6d 61 6c 28  62 2c 78 70 6f 73 29 2c  |,normal(b,xpos),|
000038d0  6e 6f 72 6d 61 6c 28 62  2c 79 70 6f 73 29 0d 23  |normal(b,ypos).#|
000038e0  64 07 20 20 cd 0d 23 6e  08 20 ed 20 62 0d 23 78  |d.  ..#n. . b.#x|
000038f0  05 e1 0d 23 82 04 0d 23  8c 05 20 0d 23 96 04 0d  |...#...#.. .#...|
00003900  23 a0 04 0d 23 aa 04 0d  23 b4 13 dd 20 f2 68 61  |#...#...#... .ha|
00003910  6c 6c 5f 6f 66 5f 66 61  6d 65 0d 23 be 0e 64 69  |ll_of_fame.#..di|
00003920  73 70 6e 75 6d 3d 2d 31  0d 23 c8 04 0d 23 d2 13  |spnum=-1.#...#..|
00003930  e3 20 69 3d 31 30 20 b8  20 31 20 88 20 2d 31 0d  |. i=10 . 1 . -1.|
00003940  23 dc 19 20 e7 20 73 63  6f 72 65 3c 68 69 73 63  |#.. . score<hisc|
00003950  6f 72 65 28 69 29 20 8c  0d 23 e6 11 20 20 64 69  |ore(i) ..#..  di|
00003960  73 70 6e 75 6d 3d 69 2b  31 0d 23 f0 06 20 20 0d  |spnum=i+1.#..  .|
00003970  23 fa 15 20 20 e7 20 64  69 73 70 6e 75 6d 3c 3e  |#..  . dispnum<>|
00003980  31 31 20 8c 0d 24 04 17  20 20 e3 20 6b 3d 31 30  |11 ..$..  . k=10|
00003990  20 b8 20 69 2b 32 20 88  20 2d 31 0d 24 0e 1e 20  | . i+2 . -1.$.. |
000039a0  20 20 68 69 73 63 6f 72  65 28 6b 29 3d 68 69 73  |  hiscore(k)=his|
000039b0  63 6f 72 65 28 6b 2d 31  29 0d 24 18 1a 20 20 20  |core(k-1).$..   |
000039c0  6e 61 6d 65 24 28 6b 29  3d 6e 61 6d 65 24 28 6b  |name$(k)=name$(k|
000039d0  2d 31 29 0d 24 22 18 20  20 20 64 69 66 66 28 6b  |-1).$".   diff(k|
000039e0  29 3d 64 69 66 66 28 6b  2d 31 29 0d 24 2c 09 20  |)=diff(k-1).$,. |
000039f0  20 ed 20 6b 0d 24 36 1c  20 20 68 69 73 63 6f 72  | . k.$6.  hiscor|
00003a00  65 28 64 69 73 70 6e 75  6d 29 3d 73 63 6f 72 65  |e(dispnum)=score|
00003a10  0d 24 40 06 20 20 0d 24  4a 07 20 20 cd 0d 24 54  |.$@.  .$J.  ..$T|
00003a20  06 20 20 0d 24 5e 09 20  20 69 3d 31 0d 24 68 06  |.  .$^.  i=1.$h.|
00003a30  20 cd 0d 24 72 07 ed 20  69 0d 24 7c 04 0d 24 86  | ..$r.. i.$|..$.|
00003a40  04 0d 24 90 12 e7 20 64  69 73 70 6e 75 6d 3d 2d  |..$... dispnum=-|
00003a50  31 20 8c 0d 24 9a 13 20  e3 20 69 3d 39 20 b8 20  |1 ..$.. . i=9 . |
00003a60  31 20 88 20 2d 31 0d 24  a4 1d 20 20 68 69 73 63  |1 . -1.$..  hisc|
00003a70  6f 72 65 28 69 2b 31 29  3d 68 69 73 63 6f 72 65  |ore(i+1)=hiscore|
00003a80  28 69 29 0d 24 ae 19 20  20 6e 61 6d 65 24 28 69  |(i).$..  name$(i|
00003a90  2b 31 29 3d 6e 61 6d 65  24 28 69 29 0d 24 b8 17  |+1)=name$(i).$..|
00003aa0  20 20 64 69 66 66 28 69  2b 31 29 3d 64 69 66 66  |  diff(i+1)=diff|
00003ab0  28 69 29 0d 24 c2 08 20  ed 20 69 0d 24 cc 15 20  |(i).$.. . i.$.. |
00003ac0  68 69 73 63 6f 72 65 28  31 29 3d 73 63 6f 72 65  |hiscore(1)=score|
00003ad0  0d 24 d6 0e 20 64 69 73  70 6e 75 6d 3d 31 0d 24  |.$.. dispnum=1.$|
00003ae0  e0 05 cd 0d 24 ea 04 0d  24 f4 0c e7 20 72 69 73  |....$...$... ris|
00003af0  63 20 8c 0d 24 fe 17 ff  20 22 53 43 48 4f 4f 53  |c ..$... "SCHOOS|
00003b00  45 20 6d 69 73 73 63 6f  6d 22 0d 25 08 08 70 6f  |E misscom".%..po|
00003b10  3d 30 0d 25 12 05 cc 0d  25 1c 18 ff 20 22 53 43  |=0.%....%... "SC|
00003b20  48 4f 4f 53 45 20 6d 69  73 73 63 6f 6d 33 22 0d  |HOOSE misscom3".|
00003b30  25 26 0a 70 6f 3d 31 34  30 0d 25 30 05 cd 0d 25  |%&.po=140.%0...%|
00003b40  3a 04 0d 25 44 04 0d 25  4e 14 f0 20 26 45 44 2c  |:..%D..%N.. &ED,|
00003b50  32 30 30 2c 36 35 30 2b  70 6f 0d 25 58 04 0d 25  |200,650+po.%X..%|
00003b60  62 08 20 ef 20 35 0d 25  6c 1b ef 20 32 33 2c 31  |b. . 5.%l.. 23,1|
00003b70  37 2c 37 2c 25 31 30 30  2c 31 30 3b 38 3b 30 2c  |7,7,%100,10;8;0,|
00003b80  30 0d 25 76 04 0d 25 80  1b ef 20 32 33 2c 31 37  |0.%v..%... 23,17|
00003b90  2c 37 2c 25 31 30 2c 31  30 3b 31 32 3b 30 2c 30  |,7,%10,10;12;0,0|
00003ba0  0d 25 8a 09 20 fb 20 36  33 0d 25 94 05 20 0d 25  |.%.. . 63.%.. .%|
00003bb0  9e 0d 20 e7 20 72 69 73  63 20 8c 0d 25 a8 11 20  |.. . risc ..%.. |
00003bc0  20 e6 20 35 30 2c 35 30  2c 31 33 30 0d 25 b2 06  | . 50,50,130.%..|
00003bd0  20 cc 0d 25 bc 0a 20 20  e6 20 31 37 0d 25 c6 06  | ..%..  . 17.%..|
00003be0  20 cd 0d 25 d0 05 20 0d  25 da 0d 20 e7 20 72 69  | ..%.. .%.. . ri|
00003bf0  73 63 20 8c 0d 25 e4 1a  20 c8 93 20 c8 90 20 32  |sc ..%.. .. .. 2|
00003c00  38 30 2c 31 30 30 2c 37  30 30 2c 34 38 35 0d 25  |80,100,700,485.%|
00003c10  ee 06 20 cc 0d 25 f8 1a  20 c8 93 20 c8 90 20 32  |.. ..%.. .. .. 2|
00003c20  38 30 2c 31 30 30 2c 37  30 30 2c 36 34 35 0d 26  |80,100,700,645.&|
00003c30  02 06 20 cd 0d 26 0c 05  20 0d 26 16 14 20 e7 20  |.. ..&.. .&.. . |
00003c40  64 69 73 70 6e 75 6d 3c  3e 31 31 20 8c 0d 26 20  |dispnum<>11 ..& |
00003c50  0d 20 e7 20 72 69 73 63  20 8c 0d 26 2a 10 20 e6  |. . risc ..&*. .|
00003c60  20 31 37 30 2c 37 30 2c  37 30 0d 26 34 06 20 cc  | 170,70,70.&4. .|
00003c70  0d 26 3e 10 20 e6 20 36  33 20 c8 9c 20 32 35 35  |.&>. . 63 .. 255|
00003c80  0d 26 48 06 20 cd 0d 26  52 05 20 0d 26 5c 47 20  |.&H. ..&R. .&\G |
00003c90  ec 20 31 33 30 2c 34 35  3a f1 20 22 4d 6f 75 73  |. 130,45:. "Mous|
00003ca0  65 20 6c 65 66 74 20 26  20 72 69 67 68 74 20 74  |e left & right t|
00003cb0  6f 20 63 68 6f 6f 73 65  2e 20 50 72 65 73 73 20  |o choose. Press |
00003cc0  62 75 74 74 6f 6e 20 74  6f 20 73 65 6c 65 63 74  |button to select|
00003cd0  2e 22 0d 26 66 06 20 cd  0d 26 70 05 20 0d 26 7a  |.".&f. ..&p. .&z|
00003ce0  10 20 e6 20 36 33 20 c8  9c 20 32 35 35 0d 26 84  |. . 63 .. 255.&.|
00003cf0  0d 20 e7 20 72 69 73 63  20 8c 0d 26 8e 17 20 c8  |. . risc ..&.. .|
00003d00  93 20 32 38 30 2c 31 30  30 2c 37 30 30 2c 34 38  |. 280,100,700,48|
00003d10  35 0d 26 98 16 20 c8 93  20 32 37 35 2c 39 35 2c  |5.&.. .. 275,95,|
00003d20  37 31 30 2c 34 39 35 0d  26 a2 06 20 cc 0d 26 ac  |710,495.&.. ..&.|
00003d30  05 20 0d 26 b6 17 20 c8  93 20 32 38 30 2c 31 30  |. .&.. .. 280,10|
00003d40  30 2c 37 30 30 2c 36 34  35 0d 26 c0 16 20 c8 93  |0,700,645.&.. ..|
00003d50  20 32 37 35 2c 39 35 2c  37 31 30 2c 36 35 35 0d  | 275,95,710,655.|
00003d60  26 ca 05 cd 0d 26 d4 05  20 0d 26 de 04 0d 26 e8  |&....&.. .&...&.|
00003d70  05 20 0d 26 f2 05 20 0d  26 fc 0f 20 e3 20 69 3d  |. .&.. .&.. . i=|
00003d80  31 20 b8 20 31 30 0d 27  06 0e 20 20 e7 20 72 69  |1 . 10.'..  . ri|
00003d90  73 63 20 8c 0d 27 10 23  20 20 20 e6 20 32 35 30  |sc ..'.#   . 250|
00003da0  2d 69 2a 31 30 2c 32 35  30 2d 69 2a 31 30 2c 32  |-i*10,250-i*10,2|
00003db0  35 30 2d 69 2a 31 30 0d  27 1a 11 20 20 20 75 70  |50-i*10.'..   up|
00003dc0  3d 30 3a 6d 6c 74 3d 30  0d 27 24 07 20 20 cc 0d  |=0:mlt=0.'$.  ..|
00003dd0  27 2e 12 20 20 20 e6 20  36 33 20 c8 9c 20 32 35  |'..   . 63 .. 25|
00003de0  35 0d 27 38 14 20 20 20  75 70 3d 31 34 35 3a 6d  |5.'8.   up=145:m|
00003df0  6c 74 3d 31 30 0d 27 42  07 20 20 cd 0d 27 4c 13  |lt=10.'B.  ..'L.|
00003e00  20 20 e7 20 69 3d 64 69  73 70 6e 75 6d 20 8c 0d  |  . i=dispnum ..|
00003e10  27 56 12 20 20 20 e6 20  33 31 20 c8 9c 20 32 35  |'V.   . 31 .. 25|
00003e20  35 0d 27 60 33 20 20 20  6e 61 6d 65 24 28 69 29  |5.'`3   name$(i)|
00003e30  3d 22 20 20 20 22 3a 68  69 73 63 6f 72 65 28 69  |="   ":hiscore(i|
00003e40  29 3d 73 63 6f 72 65 3a  64 69 66 66 28 69 29 3d  |)=score:diff(i)=|
00003e50  64 69 66 66 0d 27 6a 07  20 20 cd 0d 27 74 06 20  |diff.'j.  ..'t. |
00003e60  20 0d 27 7e 06 20 20 0d  27 88 05 20 0d 27 92 1e  | .'~.  .'.. .'..|
00003e70  20 ec 20 32 39 30 2c 28  36 30 30 2b 75 70 29 2d  | . 290,(600+up)-|
00003e80  69 2a 28 34 35 2b 6d 6c  74 29 0d 27 9c 36 20 f1  |i*(45+mlt).'.6 .|
00003e90  20 69 3b 22 2d 20 22 3b  6e 61 6d 65 24 28 69 29  | i;"- ";name$(i)|
00003ea0  3b 22 20 28 22 3b 64 69  66 66 28 69 29 3b 22 29  |;" (";diff(i);")|
00003eb0  20 20 20 20 22 3b 68 69  73 63 6f 72 65 28 69 29  |    ";hiscore(i)|
00003ec0  0d 27 a6 04 0d 27 b0 05  20 0d 27 ba 08 20 ed 20  |.'...'.. .'.. . |
00003ed0  69 0d 27 c4 05 20 0d 27  ce 2c 20 78 70 6f 73 3d  |i.'.. .'., xpos=|
00003ee0  35 33 30 3a 79 70 6f 73  3d 28 36 30 30 2b 75 70  |530:ypos=(600+up|
00003ef0  29 2d 64 69 73 70 6e 75  6d 2a 28 34 35 2b 6d 6c  |)-dispnum*(45+ml|
00003f00  74 29 0d 27 d8 05 20 0d  27 e2 14 20 e7 20 64 69  |t).'.. .'.. . di|
00003f10  73 70 6e 75 6d 3c 3e 31  31 20 8c 0d 27 ec 0f 20  |spnum<>11 ..'.. |
00003f20  20 f2 67 65 74 5f 6e 61  6d 65 0d 27 f6 1a 20 20  | .get_name.'..  |
00003f30  20 6e 61 6d 65 24 28 64  69 73 70 6e 75 6d 29 3d  | name$(dispnum)=|
00003f40  6e 65 77 24 0d 28 00 0d  20 20 20 20 20 20 20 20  |new$.(..        |
00003f50  20 0d 28 0a 20 20 20 20  78 3d ae 28 22 3c 4f 62  | .(.    x=.("<Ob|
00003f60  65 79 24 64 69 72 3e 2e  68 69 73 63 6f 72 65 22  |ey$dir>.hiscore"|
00003f70  29 0d 28 14 11 20 20 20  e3 20 69 3d 31 20 b8 20  |).(..   . i=1 . |
00003f80  31 30 0d 28 1e 28 20 20  20 20 f1 20 23 78 2c 6e  |10.(.(    . #x,n|
00003f90  61 6d 65 24 28 69 29 2c  68 69 73 63 6f 72 65 28  |ame$(i),hiscore(|
00003fa0  69 29 2c 64 69 66 66 28  69 29 0d 28 28 0a 20 20  |i),diff(i).((.  |
00003fb0  20 ed 20 69 0d 28 32 0b  20 20 20 d9 20 23 78 0d  | . i.(2.   . #x.|
00003fc0  28 3c 06 20 20 0d 28 46  06 20 cd 0d 28 50 0c e6  |(<.  .(F. ..(P..|
00003fd0  20 30 20 c8 9c 20 30 0d  28 5a 15 c8 93 20 c8 90  | 0 .. 0.(Z... ..|
00003fe0  20 30 2c 30 2c 31 32 37  39 2c 35 30 0d 28 64 04  | 0,0,1279,50.(d.|
00003ff0  0d 28 6e 0c e7 20 72 69  73 63 20 8c 0d 28 78 10  |.(n.. risc ..(x.|
00004000  20 e6 20 31 37 30 2c 37  30 2c 37 30 0d 28 82 05  | . 170,70,70.(..|
00004010  cc 0d 28 8c 10 20 e6 20  36 33 20 c8 9c 20 32 35  |..(.. . 63 .. 25|
00004020  35 0d 28 96 05 cd 0d 28  a0 38 20 ec 20 31 33 30  |5.(....(.8 . 130|
00004030  2c 34 35 3a f1 20 22 20  20 20 20 20 20 20 20 20  |,45:. "         |
00004040  20 20 20 20 20 20 43 6c  69 63 6b 20 74 68 65 20  |      Click the |
00004050  4d 6f 75 73 65 20 74 6f  20 50 6c 61 79 22 0d 28  |Mouse to Play".(|
00004060  aa 0f 20 20 ff 20 22 46  58 20 31 35 22 0d 28 b4  |..  . "FX 15".(.|
00004070  17 20 20 f5 3a c8 97 20  6c 2c 6d 2c 6e 3a fd 20  |.  .:.. l,m,n:. |
00004080  6e 3c 3e 30 0d 28 be 16  20 20 f5 3a c8 97 20 6c  |n<>0.(..  .:.. l|
00004090  2c 6d 2c 6e 3a fd 20 6e  3d 30 0d 28 c8 04 0d 28  |,m,n:. n=0.(...(|
000040a0  d2 1a ef 20 32 33 2c 31  37 2c 37 2c 25 31 30 30  |... 23,17,7,%100|
000040b0  2c 38 3b 38 3b 30 2c 30  0d 28 dc 04 0d 28 e6 19  |,8;8;0,0.(...(..|
000040c0  ef 20 32 33 2c 31 37 2c  37 2c 25 31 30 2c 38 3b  |. 23,17,7,%10,8;|
000040d0  38 3b 30 2c 30 0d 28 f0  06 20 db 0d 28 fa 09 20  |8;0,0.(.. ..(.. |
000040e0  20 ef 20 35 0d 29 04 0e  20 20 e6 20 30 20 c8 9c  | . 5.)..  . 0 ..|
000040f0  20 30 0d 29 0e 1b 20 20  c8 93 20 c8 90 20 33 30  | 0.)..  .. .. 30|
00004100  30 2c 33 30 30 2c 35 30  30 2c 31 35 30 0d 29 18  |0,300,500,150.).|
00004110  11 20 20 e6 20 36 33 20  c8 9c 20 32 35 35 0d 29  |.  . 63 .. 255.)|
00004120  22 18 20 20 c8 93 20 33  30 30 2c 33 30 30 2c 35  |".  .. 300,300,5|
00004130  30 30 2c 31 35 30 0d 29  2c 18 20 20 c8 93 20 33  |00,150.),.  .. 3|
00004140  30 35 2c 33 30 35 2c 34  39 30 2c 31 34 30 0d 29  |05,305,490,140.)|
00004150  36 17 20 20 c8 93 20 33  32 30 2c 33 32 30 2c 34  |6.  .. 320,320,4|
00004160  36 30 2c 32 30 0d 29 40  06 20 20 0d 29 4a 20 20  |60,20.)@.  .)J  |
00004170  20 e7 20 72 69 73 63 20  8c 20 67 68 6a 3d 33 39  | . risc . ghj=39|
00004180  30 20 8b 20 67 68 6a 3d  34 30 35 0d 29 54 2c 20  |0 . ghj=405.)T, |
00004190  20 ec 20 33 35 30 2c 67  68 6a 3a f1 20 22 53 65  | . 350,ghj:. "Se|
000041a0  6c 65 63 74 20 64 69 66  66 69 63 75 6c 74 79 20  |lect difficulty |
000041b0  72 61 74 69 6e 67 22 0d  29 5e 0a 20 20 c8 97 20  |rating".)^.  .. |
000041c0  87 0d 29 68 1a 20 20 c8  97 20 c8 93 20 33 32 30  |..)h.  .. .. 320|
000041d0  2c 33 32 30 2c 34 33 38  2c 32 30 0d 29 72 06 20  |,320,438,20.)r. |
000041e0  20 0d 29 7c 0d 20 20 67  3d 30 3a 68 3d 30 0d 29  | .)|.  g=0:h=0.)|
000041f0  86 1e 20 20 e7 20 ac 20  72 69 73 63 20 8c 20 65  |..  . . risc . e|
00004200  72 74 3d 32 20 8b 20 65  72 74 3d 30 0d 29 90 07  |rt=2 . ert=0.)..|
00004210  ef 20 34 0d 29 9a 07 20  20 f5 0d 29 a4 14 20 20  |. 4.)..  ..)..  |
00004220  20 67 6f 6c 64 3d 67 3a  68 6f 6c 64 3d 68 0d 29  | gold=g:hold=h.)|
00004230  ae 0f 20 20 20 c8 97 20  67 2c 68 2c 6a 0d 29 b8  |..   .. g,h,j.).|
00004240  07 20 20 20 0d 29 c2 11  20 20 20 e7 20 67 3c 67  |.   .)..   . g<g|
00004250  6f 6c 64 20 8c 0d 29 cc  13 20 20 20 20 f4 50 52  |old ..)..    .PR|
00004260  49 4e 54 20 22 4f 4b 22  0d 29 d6 10 20 20 20 20  |INT "OK".)..    |
00004270  e6 20 30 20 c8 9c 20 30  0d 29 e0 26 20 20 20 20  |. 0 .. 0.).&    |
00004280  c8 93 20 c8 90 20 67 2b  32 2c 33 32 32 2b 65 72  |.. .. g+2,322+er|
00004290  74 2c 37 37 36 2d 67 2c  31 36 2d 65 72 74 0d 29  |t,776-g,16-ert.)|
000042a0  ea 08 20 20 20 cc 0d 29  f4 12 20 20 20 20 e6 20  |..   ..)..    . |
000042b0  32 20 c8 9c 20 32 35 35  0d 29 fe 08 20 20 20 cd  |2 .. 255.)..   .|
000042c0  0d 2a 08 07 20 20 20 0d  2a 12 26 20 20 20 20 c8  |.*..   .*.&    .|
000042d0  93 20 c8 90 20 33 32 32  2c 33 32 32 2b 65 72 74  |. .. 322,322+ert|
000042e0  2c 67 2d 33 30 32 2c 31  36 2d 65 72 74 0d 2a 1c  |,g-302,16-ert.*.|
000042f0  08 20 20 20 20 0d 2a 26  0c 20 20 fd 20 6a 3c 3e  |.    .*&.  . j<>|
00004300  30 0d 2a 30 10 20 20 64  69 66 66 3d 67 2d 33 32  |0.*0.  diff=g-32|
00004310  32 0d 2a 3a 0b 64 69 66  66 2b 3d 32 0d 2a 44 14  |2.*:.diff+=2.*D.|
00004320  64 69 66 66 3d a8 28 64  69 66 66 2f 31 30 30 29  |diff=.(diff/100)|
00004330  0d 2a 4e 0c f2 67 65 74  73 70 64 73 0d 2a 58 08  |.*N..getspds.*X.|
00004340  c8 97 20 ee 0d 2a 62 18  c8 97 20 c8 93 20 30 2c  |.. ..*b... .. 0,|
00004350  31 38 38 2c 31 32 37 39  2c 35 38 30 0d 2a 6c 05  |188,1279,580.*l.|
00004360  20 0d 2a 76 0a 20 20 20  20 20 db 0d 2a 80 06 20  | .*v.     ..*.. |
00004370  e1 0d 2a 8a 05 20 0d 2a  94 05 20 0d 2a 9e 0f dd  |..*.. .*.. .*...|
00004380  20 f2 73 68 75 74 64 6f  77 6e 0d 2a a8 23 e7 20  | .shutdown.*.#. |
00004390  f6 24 3d 22 4d 6f 64 75  6c 65 20 69 73 20 6e 6f  |.$="Module is no|
000043a0  74 20 69 6e 20 52 4f 4d  22 20 8c 20 e1 0d 2a b2  |t in ROM" . ..*.|
000043b0  07 ef 20 34 0d 2a bc 05  db 0d 2a c6 05 f1 0d 2a  |.. 4.*....*....*|
000043c0  d0 05 f1 0d 2a da 1b f1  20 22 20 20 20 20 53 74  |....*... "    St|
000043d0  61 72 42 61 73 65 20 41  74 74 61 63 6b 22 0d 2a  |arBase Attack".*|
000043e0  e4 05 f1 0d 2a ee 05 f1  0d 2a f8 1d f1 20 22 20  |....*....*... " |
000043f0  20 42 79 20 47 72 61 68  61 6d 20 52 6f 77 62 6f  | By Graham Rowbo|
00004400  74 74 6f 6d 22 0d 2b 02  09 f1 3a f1 3a f1 0d 2b  |ttom".+...:.:..+|
00004410  0c 4a ea 20 85 3a ee 20  85 20 f1 20 22 45 72 72  |.J. .:. . . "Err|
00004420  6f 72 20 69 6e 20 53 68  75 74 44 6f 77 6e 20 50  |or in ShutDown P|
00004430  72 6f 63 65 64 75 72 65  2e 20 4c 69 6e 65 20 3a  |rocedure. Line :|
00004440  20 22 3b 9e 3b 22 20 20  20 20 43 61 75 73 65 20  | ";.;"    Cause |
00004450  3a 20 22 3b f6 24 3a e0  0d 2b 16 05 20 0d 2b 20  |: ";.$:..+.. .+ |
00004460  14 20 ff 20 22 52 6d 4b  69 6c 6c 20 42 6f 6f 6d  |. . "RmKill Boom|
00004470  22 0d 2b 2a 15 20 ff 20  22 52 6d 4b 69 6c 6c 20  |".+*. . "RmKill |
00004480  4c 61 7a 65 72 22 0d 2b  34 17 20 ff 20 22 52 6d  |Lazer".+4. . "Rm|
00004490  4b 69 6c 6c 20 43 6f 6c  6c 65 63 74 22 0d 2b 3e  |Kill Collect".+>|
000044a0  29 20 ff 20 22 49 63 6f  6e 53 70 72 69 74 65 73  |) . "IconSprites|
000044b0  20 3c 6f 62 65 79 24 64  69 72 3e 2e 21 50 6f 69  | <obey$dir>.!Poi|
000044c0  6e 74 65 72 31 22 0d 2b  48 12 20 ff 20 22 50 6f  |nter1".+H. . "Po|
000044d0  69 6e 74 65 72 20 31 22  0d 2b 52 27 f4 20 50 52  |inter 1".+R'. PR|
000044e0  49 4e 54 20 52 45 50 4f  52 54 24 3b 22 20 41 54  |INT REPORT$;" AT|
000044f0  20 4c 49 4e 45 20 22 3b  45 52 4c 3a 45 4e 44 0d  | LINE ";ERL:END.|
00004500  2b 5c 05 20 0d 2b 66 06  20 e0 0d 2b 70 05 e1 0d  |+\. .+f. ..+p...|
00004510  2b 7a 04 0d 2b 84 1f dd  20 f2 70 6c 61 79 28 70  |+z..+... .play(p|
00004520  69 74 63 68 2c 6e 61 6d  65 24 2c 71 73 6f 75 6e  |itch,name$,qsoun|
00004530  64 29 0d 2b 8e 04 0d 2b  98 09 63 68 2b 3d 31 0d  |d).+...+..ch+=1.|
00004540  2b a2 11 e7 20 63 68 3d  35 20 8c 20 63 68 3d 31  |+... ch=5 . ch=1|
00004550  0d 2b ac 04 0d 2b b6 06  20 20 0d 2b c0 27 20 ff  |.+...+..  .+.' .|
00004560  20 22 63 68 61 6e 6e 65  6c 76 6f 69 63 65 20 22  | "channelvoice "|
00004570  2b c3 28 63 68 29 2b 20  22 20 22 2b 6e 61 6d 65  |+.(ch)+ " "+name|
00004580  24 0d 2b ca 1c 20 d4 20  63 68 2c 2d 31 35 2c 70  |$.+.. . ch,-15,p|
00004590  69 74 63 68 2c 31 2c 71  73 6f 75 6e 64 0d 2b d4  |itch,1,qsound.+.|
000045a0  05 20 0d 2b de 04 0d 2b  e8 05 e1 0d 2b f2 04 0d  |. .+...+....+...|
000045b0  2b fc 04 0d 2c 06 04 0d  2c 10 0f dd 20 f2 67 65  |+...,...,... .ge|
000045c0  74 5f 6e 61 6d 65 0d 2c  1a 1d 20 20 20 20 20 20  |t_name.,..      |
000045d0  20 20 20 20 20 20 20 20  20 20 20 20 6e 65 77 24  |            new$|
000045e0  3d 22 22 0d 2c 24 08 20  ef 20 35 0d 2c 2e 1b ef  |="".,$. . 5.,...|
000045f0  20 32 33 2c 31 37 2c 37  2c 25 31 30 30 2c 31 30  | 23,17,7,%100,10|
00004600  3b 38 3b 30 2c 30 0d 2c  38 04 0d 2c 42 1b ef 20  |;8;0,0.,8..,B.. |
00004610  32 33 2c 31 37 2c 37 2c  25 31 30 2c 31 30 3b 31  |23,17,7,%10,10;1|
00004620  32 3b 30 2c 30 0d 2c 4c  04 0d 2c 56 04 0d 2c 60  |2;0,0.,L..,V..,`|
00004630  1a 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00004640  78 3d 30 3a 79 3d 30 0d  2c 6a 19 20 20 20 20 20  |x=0:y=0.,j.     |
00004650  20 20 20 20 20 20 20 20  20 20 6e 75 6d 3d 36 35  |          num=65|
00004660  0d 2c 74 18 20 20 20 20  20 20 20 20 20 20 20 20  |.,t.            |
00004670  20 20 20 6c 74 72 3d 31  0d 2c 7e 08 c8 97 20 87  |   ltr=1.,~... .|
00004680  0d 2c 88 0d c8 97 20 b8  20 30 2c 31 30 0d 2c 92  |.,.... . 0,10.,.|
00004690  0f e6 20 33 31 20 c8 9c  20 32 35 35 0d 2c 9c 12  |.. 31 .. 255.,..|
000046a0  20 20 20 ec 20 78 70 6f  73 2c 79 70 6f 73 0d 2c  |   . xpos,ypos.,|
000046b0  a6 0f 20 20 20 f1 20 bd  28 6e 75 6d 29 0d 2c b0  |..   . .(num).,.|
000046c0  04 0d 2c ba 04 0d 2c c4  06 20 f5 0d 2c ce 13 20  |..,...,.. ..,.. |
000046d0  20 78 6f 6c 64 3d 78 3a  79 6f 6c 64 3d 79 0d 2c  | xold=x:yold=y.,|
000046e0  d8 0e 20 20 c8 97 20 78  2c 79 2c 7a 0d 2c e2 10  |..  .. x,y,z.,..|
000046f0  20 20 6e 75 6d 6f 6c 64  3d 6e 75 6d 0d 2c ec 06  |  numold=num.,..|
00004700  20 20 0d 2c f6 0e 20 20  e7 20 7a 3c 3e 30 20 8c  |  .,..  . z<>0 .|
00004710  0d 2d 00 0d 20 20 20 6c  74 72 2b 3d 31 0d 2d 0a  |.-..   ltr+=1.-.|
00004720  10 20 20 20 e7 20 6c 74  72 3d 34 20 8c 0d 2d 14  |.   . ltr=4 ..-.|
00004730  13 20 20 20 6e 65 77 24  2b 3d bd 28 6e 75 6d 29  |.   new$+=.(num)|
00004740  0d 2d 1e 0c 20 20 20 20  c8 97 20 ee 0d 2d 28 09  |.-..    .. ..-(.|
00004750  20 20 20 20 e1 0d 2d 32  08 20 20 20 cd 0d 2d 3c  |    ..-2.   ..-<|
00004760  07 20 20 20 0d 2d 46 13  20 20 20 6e 65 77 24 2b  |.   .-F.   new$+|
00004770  3d bd 28 6e 75 6d 29 0d  2d 50 0f 20 20 20 78 70  |=.(num).-P.   xp|
00004780  6f 73 2b 3d 32 30 0d 2d  5a 12 20 20 20 e6 20 33  |os+=20.-Z.   . 3|
00004790  31 20 c8 9c 20 32 35 35  0d 2d 64 12 20 20 20 ec  |1 .. 255.-d.   .|
000047a0  20 78 70 6f 73 2c 79 70  6f 73 0d 2d 6e 0f 20 20  | xpos,ypos.-n.  |
000047b0  20 f1 20 bd 28 6e 75 6d  29 0d 2d 78 18 20 20 20  | . .(num).-x.   |
000047c0  20 f5 3a c8 97 20 61 2c  73 2c 64 3a fd 20 64 3d  | .:.. a,s,d:. d=|
000047d0  30 0d 2d 82 07 20 20 cd  0d 2d 8c 06 20 20 0d 2d  |0.-..  ..-..  .-|
000047e0  96 06 20 20 0d 2d a0 13  20 20 78 6d 75 6c 74 3d  |..  .-..  xmult=|
000047f0  31 32 37 39 2f 32 36 0d  2d aa 12 20 20 79 6d 75  |1279/26.-..  ymu|
00004800  6c 74 3d 39 35 39 2f 32  36 0d 2d b4 06 20 20 0d  |lt=959/26.-..  .|
00004810  2d be 0f 20 e3 20 69 3d  31 20 b8 20 32 36 0d 2d  |-.. . i=1 . 26.-|
00004820  c8 05 20 0d 2d d2 05 20  0d 2d dc 13 20 20 e7 20  |.. .-.. .-..  . |
00004830  78 3c 69 2a 78 6d 75 6c  74 20 8c 0d 2d e6 0f 20  |x<i*xmult ..-.. |
00004840  20 20 6e 75 6d 3d 69 2b  36 34 0d 2d f0 0b 20 20  |  num=i+64.-..  |
00004850  20 69 3d 32 36 0d 2d fa  07 20 20 cd 0d 2e 04 06  | i=26.-..  .....|
00004860  20 20 0d 2e 0e 05 20 0d  2e 18 05 20 0d 2e 22 08  |  .... .... ..".|
00004870  20 ed 20 69 0d 2e 2c 05  20 0d 2e 36 05 20 0d 2e  | . i..,. ..6. ..|
00004880  40 06 20 20 0d 2e 4a 06  20 20 0d 2e 54 15 20 20  |@.  ..J.  ..T.  |
00004890  e7 20 6e 75 6d 6f 6c 64  3c 3e 6e 75 6d 20 8c 0d  |. numold<>num ..|
000048a0  2e 5e 0e 20 20 e7 20 72  69 73 63 20 8c 0d 2e 68  |.^.  . risc ...h|
000048b0  11 20 20 e6 20 35 30 2c  35 30 2c 31 33 30 0d 2e  |.  . 50,50,130..|
000048c0  72 0a 20 20 72 65 3d 30  0d 2e 7c 07 20 20 cc 0d  |r.  re=0..|.  ..|
000048d0  2e 86 0a 20 20 e6 20 31  37 0d 2e 90 0b 20 20 72  |...  . 17....  r|
000048e0  65 3d 32 30 0d 2e 9a 07  20 20 cd 0d 2e a4 06 20  |e=20....  ..... |
000048f0  20 0d 2e ae 06 20 20 0d  2e b8 06 20 20 0d 2e c2  | ....  ....  ...|
00004900  25 20 20 20 c8 93 20 c8  90 20 78 70 6f 73 2c 79  |%   .. .. xpos,y|
00004910  70 6f 73 2d 32 30 2d 72  65 2c 32 30 2c 32 30 2b  |pos-20-re,20,20+|
00004920  72 65 0d 2e cc 07 20 20  20 0d 2e d6 12 20 20 20  |re....   ....   |
00004930  ec 20 78 70 6f 73 2c 79  70 6f 73 0d 2e e0 12 20  |. xpos,ypos.... |
00004940  20 20 e6 20 33 31 20 c8  9c 20 32 35 35 0d 2e ea  |  . 31 .. 255...|
00004950  0f 20 20 20 f1 20 bd 28  6e 75 6d 29 0d 2e f4 07  |.   . .(num)....|
00004960  20 20 cd 0d 2e fe 07 20  20 20 0d 2f 08 08 20 fd  |  .....   ./.. .|
00004970  20 a3 0d 2f 12 07 20 20  20 0d 2f 1c 04 0d 2f 26  | ../..   ./.../&|
00004980  04 0d 2f 30 04 0d 2f 3a  04 0d 2f 44 06 20 e1 0d  |../0../:../D. ..|
00004990  2f 4e 04 0d 2f 58 04 0d  2f 62 09 dd 20 f2 6d 66  |/N../X../b.. .mf|
000049a0  0d 2f 6c 04 0d 2f 76 04  0d 2f 80 1e 20 78 3d 8e  |./l../v../.. x=.|
000049b0  28 22 3c 4f 62 65 79 24  64 69 72 3e 2e 68 69 73  |("<Obey$dir>.his|
000049c0  63 6f 72 65 22 29 0d 2f  8a 0f 20 e3 20 69 3d 31  |core")./.. . i=1|
000049d0  20 b8 20 31 30 0d 2f 94  26 20 20 e8 20 23 78 2c  | . 10./.&  . #x,|
000049e0  6e 61 6d 65 24 28 69 29  2c 68 69 73 63 6f 72 65  |name$(i),hiscore|
000049f0  28 69 29 2c 64 69 66 66  28 69 29 0d 2f 9e 08 20  |(i),diff(i)./.. |
00004a00  ed 20 69 0d 2f a8 09 20  d9 20 23 78 0d 2f b2 04  |. i./.. . #x./..|
00004a10  0d 2f bc 04 0d 2f c6 05  e1 0d 2f d0 04 0d 2f da  |./.../..../.../.|
00004a20  0f dd 20 f2 69 6e 69 74  5f 73 63 72 0d 2f e4 08  |.. .init_scr./..|
00004a30  20 ef 20 35 0d 2f ee 0f  e6 20 36 33 20 c8 9c 20  | . 5./... 63 .. |
00004a40  32 35 35 0d 2f f8 0c e7  20 72 69 73 63 20 8c 0d  |255./... risc ..|
00004a50  30 02 0a 20 75 67 72 3d  30 0d 30 0c 05 cc 0d 30  |0.. ugr=0.0....0|
00004a60  16 0a 20 75 67 72 3d 38  0d 30 20 05 cd 0d 30 2a  |.. ugr=8.0 ...0*|
00004a70  22 20 c8 93 20 31 36 33  2c 39 31 32 2d 75 67 72  |" .. 163,912-ugr|
00004a80  2c 31 31 36 2c 32 34 2b  28 32 2a 75 67 72 29 0d  |,116,24+(2*ugr).|
00004a90  30 34 22 20 c8 93 20 35  36 33 2c 39 31 32 2d 75  |04" .. 563,912-u|
00004aa0  67 72 2c 31 31 36 2c 32  34 2b 28 32 2a 75 67 72  |gr,116,24+(2*ugr|
00004ab0  29 0d 30 3e 0f e6 20 36  33 20 c8 9c 20 32 35 35  |).0>.. 63 .. 255|
00004ac0  0d 30 48 12 20 ec 20 39  30 30 2c 39 33 30 2b 75  |.0H. . 900,930+u|
00004ad0  67 72 0d 30 52 1e 20 f1  20 22 48 49 20 53 43 4f  |gr.0R. . "HI SCO|
00004ae0  52 45 20 20 22 3b 68 69  73 63 6f 72 65 28 31 29  |RE  ";hiscore(1)|
00004af0  0d 30 5c 05 20 0d 30 66  05 e1 0d 30 70 04 0d 30  |.0\. .0f...0p..0|
00004b00  7a 0e dd 20 f2 67 65 74  73 70 64 73 0d 30 84 0a  |z.. .getspds.0..|
00004b10  f7 20 8d 74 40 42 0d 30  8e 0e e3 20 69 3d 31 20  |. .t@B.0... i=1 |
00004b20  b8 20 31 30 0d 30 98 0d  20 f3 20 73 70 64 28 69  |. 10.0.. . spd(i|
00004b30  29 0d 30 a2 0f 20 e7 20  ac 20 72 69 73 63 20 8c  |).0.. . . risc .|
00004b40  0d 30 ac 1d 20 20 73 70  64 28 69 29 2b 3d 32 2e  |.0..  spd(i)+=2.|
00004b50  35 2b 64 69 66 66 2b 28  69 2f 31 30 29 0d 30 b6  |5+diff+(i/10).0.|
00004b60  06 20 cc 0d 30 c0 12 20  20 73 70 64 28 69 29 2b  |. ..0..  spd(i)+|
00004b70  3d 64 69 66 66 0d 30 ca  06 20 cd 0d 30 d4 04 0d  |=diff.0.. ..0...|
00004b80  30 de 06 20 cd 0d 30 e8  07 ed 20 69 0d 30 f2 0f  |0.. ..0... i.0..|
00004b90  e3 20 69 3d 31 31 20 b8  20 33 30 0d 30 fc 13 20  |. i=11 . 30.0.. |
00004ba0  73 70 64 28 69 29 3d 73  70 64 28 31 30 29 0d 31  |spd(i)=spd(10).1|
00004bb0  06 07 ed 20 69 0d 31 10  05 e1 0d 31 1a 04 0d 31  |... i.1....1...1|
00004bc0  24 04 0d ff                                       |$...|
00004bc4