�1
�ship(5,4)
Cz=0:�pi(22,2):�A=0��*2.2��/10:pi(z,1)=�(A):pi(z,2)=�(A):z=z+1:�
(9�hs$(6),hs(6):�A=1�5:hs(A)=120-A*20:hs$(A)="JOSHUA":�
2fctr=0:ft=0
<�4:�
F	��tRD
P
lctr=1
Z�23,230,192,192,0,0,0,0,0,0
d�0,2
n-�0,900:�1279,900:�85,0,1023:�85,1279,1023
x�0,1
��0,900:�1279,900:�1279,1023
��0,3
��0,1023:�0,900
��0,0
�	ts=50
�gr=0
�L%=1
�score%=0
��L%=41�end:�TzB
�	�room
�k=L%+4:�k/5=�(k/5)�gr
�L%=L%+1
�%�A=255�0�-8:�1,0,A,1:�0,-15,7,1:�

�=0


�A=1�5

ship(A,1)=X:ship(A,2)=Y

"�A

,
XA=0:YA=0

6�15,1)"SCORE ";score%

@�

J�4

T2bonus=�(time-� �100):�28,1)"BONUS ";bonus;" "

^�5

h"�0,0:�ship(1,1),ship(1,2):�230

r"�0,2:�ship(5,1),ship(5,2):�230

|
�A=1�4

�ship(A,1)=ship(A+1,1)

�ship(A,2)=ship(A+1,2)

��

�ship(5,1)=ship(5,1)+XA

�ship(5,2)=ship(5,2)+YA

��-98XA=XA-1:�XA<-8XA=-8

��-67XA=XA+1:�XA>8XA=8

��-73YA=YA+1:�YA>8YA=8

��-105YA=YA-1:�YA<-8YA=-8

�"YA=YA-gr:�YA<-8YA=-8��YA>8YA=8

�<��ship(5,1),ship(5,2))=3��ship(5,1),ship(5,2))=1�bonus=0

�'�ship(5,1),ship(5,2))=3��win:�dR@

��die
�4
�
&�23;13,0;0;0;0;
0�L%=25�end
:�scores:�Tr@
D�
N��oval(x,y,a,b)
X�29,x;y;
b�0,0
l�A=0�22
v�0,0
��85,a*pi(A,1),b*pi(A,2)
��A
��29,0;0;
��
�
��room:�4
��19,1,0;0;
��2,1)"LEVEL ";L%
��0,1
�'�0,0:�1279,0:�85,0,800:�85,1279,800
�+�0,2:�A=0�1480�32:�A,0:�29,A-200,800:�A
��0,0
��a
�
�K=1�a
x=�rx:y=�ry:�a,b
�oval(x,y,a,b)
�
 
�a,b,c
*(�19,2,b;0;19,3,c;0;:�L%<21�19,1,a;0;
4#X=�rx:Y=�ry:PX=�rx:PY=�ry:�time
>time=time+lctr*5-5
H�0,3
R�oval(PX,PY,ts,ts):ts=ts-1
\�19,0,0;0;
f"�L%/5=�(L%/5)lctr=lctr+1:��tRD
p�
z%ݤrx:�a:�lctr/2=�(lctr/2)a=1280-a
�=a
�=ݤry:�a:�lctr/4=�(lctr/4)�(lctr+1)/4=�((lctr+1)/4)a=800-a
�=a
�	��die
��5
�
�A=1�5
�Eship(A,3)=�(32)-16:ship(A,4)=�(16):�0,0:�ship(A,1),ship(A,2):�230
�"�3,3:�ship(A,1),ship(A,2):�230
��A
��A=1�30
��0,�(3)
�
�B=1�5
�!ship(B,1)=ship(B,1)+ship(B,3)
!ship(B,2)=ship(B,2)+ship(B,4)
ship(B,4)=ship(B,4)-0.5
�ship(B,1),ship(B,2):�230
$�:�
.�
8	��win
B�4
L4�A=0�50�4:�1,-15,A,1:�2,-14,A*2,1:�3,-13,A*3,1:�
V5�A=50�0�-4:�1,-15,A,1:�2,-14,A*2,1:�3,-13,A*3,1:�
`�bonus=bonus-1�0�-1
jscore%=score%+1
t(�1,-15,40,1:�1,-14,88,1:�1,-13,100,1
~"�34,1);bonus;" "�21,1);score%
��
��
�l�5,640,600,600,51,640,500,100,200,640,400,600,51,340,300,200,70,340,200,100,100,5,3,6,150,600,340,200,25
���6,300,550,180,180,800,500,350,100,1000,400,100,100,1000,300,100,100,500,250,450,40,150,250,100,100,1,3,7,300,600,150,250,30
�v�6,400,600,50,50,700,600,320,48,900,500,64,64,800,400,80,80,500,350,250,100,200,350,60,60,2,1,6,400,600,200,350,25
���8,640,625,400,50,1040,400,50,220,640,200,400,50,270,320,30,120,300,420,80,80,350,470,50,50,550,470,200,20,750,470,80,80,1,5,3,300,625,750,470,35
ĕ�8,100,400,30,80,150,550,40,200,450,720,300,30,650,650,50,50,700,600,30,30,750,450,40,200,750,250,300,50,1050,250,80,80,4,3,1,100,350,1050,250,30
���fwork
��fctr=0ft=�(9999):�stup
��fctr=20�stup
��5:�A=1�4:ship(A,0)=ship(A,0)+ship(A,2):ship(A,1)=ship(A,1)+ship(A,3):ship(A,3)=ship(A,3)-1:�3,�(3):�ship(A,0),ship(A,1):�230:�
�fctr=fctr+1:�fctr=40fctr=0
�


��stup
�5
T=�(-ft)
(�19,1,�(7);0;
2�19,2,�(7);0;
<�19,3,�(7);0;
FX=�(640)+320:Y=�(512)+256
P
�A=1�4
Zship(A,0)=X:ship(A,1)=Y
d&ship(A,2)=�(32)-16:ship(A,3)=�(16)
n�
x.�3,�(3):�A=1�4:�ship(A,0),ship(A,1):�230:�
��4:�
���highscore
��4
��
�*FX15,0
�"�9,5)"You have qualified for"
�*�6,7)"the Hall of Fame. Please enter"
��15,9)"your name."
�	n$=""
��
�
�fwork
��4
�
G=�(0)
"�G>31�G<127��(n$)<20n$=n$+�(G)
!�G=127��(n$)>0n$=�n$,�(n$)-1)
"�5,28)":-";n$;" "
,	�G=13
6hs(6)=score%:hs$(6)=n$
@
�A=5�1�-1
JW�hs(A)<hs(A+1)a=hs(A):a$=hs$(A):hs(A)=hs(A+1):hs$(A)=hs$(A+1):hs(A+1)=a:hs$(A+1)=a$
T�
^�
h��scores
rfctr=0:ft=0
|�score%>hs(5)�highscore
�fctr=0:ft=0
��
��5
�
�A=1�3
��0,A
� �508+A*4,900-A*4:�"MYRIAPOD"
��
��4
��15,7)"Hall of Fame"
�
�A=1�5
��5,8+A*3);A;"....";hs$(A)
��30,8+A*3);hs(A)
��
�10,28)"Press SPACE bar"
�:�fwork:��-99
�
&	��end
0�4:�
:�5,8)"YOU HAVE COMPLETED"
D�10,11)"MYRIAPOD"
N!�5,15)"SCORING ";score%;" !"
X�5,17)"Press SPACE bar"
b	�TRG
l�
v��gr
��10,5);
��lctr=2gr=0.25:�"GRAVITY"
�#�lctr=3gr=0.5:�"STRONG GRAVITY"
�%�lctr=4gr=-0.5:�"REVERSE GRAVITY"
��lctr=5lctr=1:�"INVISIBLE"
��g=0�1999:�
��10,5)�30," ")
��
�

00000000  0d 00 0a 06 eb 31 0d 00  14 0e de 73 68 69 70 28  |.....1.....ship(|
00000010  35 2c 34 29 0d 00 1e 43  7a 3d 30 3a de 70 69 28  |5,4)...Cz=0:.pi(|
00000020  32 32 2c 32 29 3a e3 41  3d 30 b8 af 2a 32 2e 32  |22,2):.A=0..*2.2|
00000030  88 af 2f 31 30 3a 70 69  28 7a 2c 31 29 3d b5 28  |../10:pi(z,1)=.(|
00000040  41 29 3a 70 69 28 7a 2c  32 29 3d 9b 28 41 29 3a  |A):pi(z,2)=.(A):|
00000050  7a 3d 7a 2b 31 3a ed 0d  00 28 39 de 68 73 24 28  |z=z+1:...(9.hs$(|
00000060  36 29 2c 68 73 28 36 29  3a e3 41 3d 31 b8 35 3a  |6),hs(6):.A=1.5:|
00000070  68 73 28 41 29 3d 31 32  30 2d 41 2a 32 30 3a 68  |hs(A)=120-A*20:h|
00000080  73 24 28 41 29 3d 22 4a  4f 53 48 55 41 22 3a ed  |s$(A)="JOSHUA":.|
00000090  0d 00 32 0f 66 63 74 72  3d 30 3a 66 74 3d 30 0d  |..2.fctr=0:ft=0.|
000000a0  00 3c 08 ef 34 3a db 0d  00 46 09 f7 8d 74 52 44  |.<..4:...F...tRD|
000000b0  0d 00 50 0a 6c 63 74 72  3d 31 0d 00 5a 1f ef 32  |..P.lctr=1..Z..2|
000000c0  33 2c 32 33 30 2c 31 39  32 2c 31 39 32 2c 30 2c  |3,230,192,192,0,|
000000d0  30 2c 30 2c 30 2c 30 2c  30 0d 00 64 08 e6 30 2c  |0,0,0,0,0..d..0,|
000000e0  32 0d 00 6e 2d ec 30 2c  39 30 30 3a df 31 32 37  |2..n-.0,900:.127|
000000f0  39 2c 39 30 30 3a f0 38  35 2c 30 2c 31 30 32 33  |9,900:.85,0,1023|
00000100  3a f0 38 35 2c 31 32 37  39 2c 31 30 32 33 0d 00  |:.85,1279,1023..|
00000110  78 08 e6 30 2c 31 0d 00  82 1f ec 30 2c 39 30 30  |x..0,1.....0,900|
00000120  3a df 31 32 37 39 2c 39  30 30 3a df 31 32 37 39  |:.1279,900:.1279|
00000130  2c 31 30 32 33 0d 00 8c  08 e6 30 2c 33 0d 00 96  |,1023.....0,3...|
00000140  12 df 30 2c 31 30 32 33  3a df 30 2c 39 30 30 0d  |..0,1023:.0,900.|
00000150  00 a0 08 e6 30 2c 30 0d  00 aa 09 74 73 3d 35 30  |....0,0....ts=50|
00000160  0d 00 b4 08 67 72 3d 30  0d 00 be 08 4c 25 3d 31  |....gr=0....L%=1|
00000170  0d 00 c8 0c 73 63 6f 72  65 25 3d 30 0d 00 d2 14  |....score%=0....|
00000180  e7 4c 25 3d 34 31 f2 65  6e 64 3a e5 8d 54 7a 42  |.L%=41.end:..TzB|
00000190  0d 00 dc 09 f2 72 6f 6f  6d 0d 00 e6 19 6b 3d 4c  |.....room....k=L|
000001a0  25 2b 34 3a e7 6b 2f 35  3d a8 28 6b 2f 35 29 f2  |%+4:.k/5=.(k/5).|
000001b0  67 72 0d 00 f0 0b 4c 25  3d 4c 25 2b 31 0d 00 fa  |gr....L%=L%+1...|
000001c0  25 e3 41 3d 32 35 35 b8  30 88 2d 38 3a d4 31 2c  |%.A=255.0.-8:.1,|
000001d0  30 2c 41 2c 31 3a d4 30  2c 2d 31 35 2c 37 2c 31  |0,A,1:.0,-15,7,1|
000001e0  3a ed 0d 01 04 07 d1 3d  30 0d 01 0e 0a e3 41 3d  |:......=0.....A=|
000001f0  31 b8 35 0d 01 18 1b 73  68 69 70 28 41 2c 31 29  |1.5....ship(A,1)|
00000200  3d 58 3a 73 68 69 70 28  41 2c 32 29 3d 59 0d 01  |=X:ship(A,2)=Y..|
00000210  22 06 ed 41 0d 01 2c 0d  58 41 3d 30 3a 59 41 3d  |"..A..,.XA=0:YA=|
00000220  30 0d 01 36 1a f1 8a 31  35 2c 31 29 22 53 43 4f  |0..6...15,1)"SCO|
00000230  52 45 20 22 3b 73 63 6f  72 65 25 0d 01 40 05 f5  |RE ";score%..@..|
00000240  0d 01 4a 06 ef 34 0d 01  54 32 62 6f 6e 75 73 3d  |..J..4..T2bonus=|
00000250  a8 28 74 69 6d 65 2d 91  20 81 31 30 30 29 3a f1  |.(time-. .100):.|
00000260  8a 32 38 2c 31 29 22 42  4f 4e 55 53 20 22 3b 62  |.28,1)"BONUS ";b|
00000270  6f 6e 75 73 3b 22 20 22  0d 01 5e 06 ef 35 0d 01  |onus;" "..^..5..|
00000280  68 22 e6 30 2c 30 3a ec  73 68 69 70 28 31 2c 31  |h".0,0:.ship(1,1|
00000290  29 2c 73 68 69 70 28 31  2c 32 29 3a ef 32 33 30  |),ship(1,2):.230|
000002a0  0d 01 72 22 e6 30 2c 32  3a ec 73 68 69 70 28 35  |..r".0,2:.ship(5|
000002b0  2c 31 29 2c 73 68 69 70  28 35 2c 32 29 3a ef 32  |,1),ship(5,2):.2|
000002c0  33 30 0d 01 7c 0a e3 41  3d 31 b8 34 0d 01 86 19  |30..|..A=1.4....|
000002d0  73 68 69 70 28 41 2c 31  29 3d 73 68 69 70 28 41  |ship(A,1)=ship(A|
000002e0  2b 31 2c 31 29 0d 01 90  19 73 68 69 70 28 41 2c  |+1,1)....ship(A,|
000002f0  32 29 3d 73 68 69 70 28  41 2b 31 2c 32 29 0d 01  |2)=ship(A+1,2)..|
00000300  9a 05 ed 0d 01 a4 1a 73  68 69 70 28 35 2c 31 29  |.......ship(5,1)|
00000310  3d 73 68 69 70 28 35 2c  31 29 2b 58 41 0d 01 ae  |=ship(5,1)+XA...|
00000320  1a 73 68 69 70 28 35 2c  32 29 3d 73 68 69 70 28  |.ship(5,2)=ship(|
00000330  35 2c 32 29 2b 59 41 0d  01 b8 1c e7 a6 2d 39 38  |5,2)+YA......-98|
00000340  58 41 3d 58 41 2d 31 3a  e7 58 41 3c 2d 38 58 41  |XA=XA-1:.XA<-8XA|
00000350  3d 2d 38 0d 01 c2 1a e7  a6 2d 36 37 58 41 3d 58  |=-8......-67XA=X|
00000360  41 2b 31 3a e7 58 41 3e  38 58 41 3d 38 0d 01 cc  |A+1:.XA>8XA=8...|
00000370  1a e7 a6 2d 37 33 59 41  3d 59 41 2b 31 3a e7 59  |...-73YA=YA+1:.Y|
00000380  41 3e 38 59 41 3d 38 0d  01 d6 1d e7 a6 2d 31 30  |A>8YA=8......-10|
00000390  35 59 41 3d 59 41 2d 31  3a e7 59 41 3c 2d 38 59  |5YA=YA-1:.YA<-8Y|
000003a0  41 3d 2d 38 0d 01 e0 22  59 41 3d 59 41 2d 67 72  |A=-8..."YA=YA-gr|
000003b0  3a e7 59 41 3c 2d 38 59  41 3d 2d 38 8b e7 59 41  |:.YA<-8YA=-8..YA|
000003c0  3e 38 59 41 3d 38 0d 01  ea 3c fd b0 73 68 69 70  |>8YA=8...<..ship|
000003d0  28 35 2c 31 29 2c 73 68  69 70 28 35 2c 32 29 29  |(5,1),ship(5,2))|
000003e0  3d 33 84 b0 73 68 69 70  28 35 2c 31 29 2c 73 68  |=3..ship(5,1),sh|
000003f0  69 70 28 35 2c 32 29 29  3d 31 84 62 6f 6e 75 73  |ip(5,2))=1.bonus|
00000400  3d 30 0d 01 f4 27 e7 b0  73 68 69 70 28 35 2c 31  |=0...'..ship(5,1|
00000410  29 2c 73 68 69 70 28 35  2c 32 29 29 3d 33 8c f2  |),ship(5,2))=3..|
00000420  77 69 6e 3a e5 8d 64 52  40 0d 01 fe 08 f2 64 69  |win:..dR@.....di|
00000430  65 0d 02 08 06 ef 34 0d  02 1c 05 db 0d 02 26 13  |e.....4.......&.|
00000440  ef 32 33 3b 31 33 2c 30  3b 30 3b 30 3b 30 3b 0d  |.23;13,0;0;0;0;.|
00000450  02 30 0e e7 4c 25 3d 32  35 f2 65 6e 64 0d 02 3a  |.0..L%=25.end..:|
00000460  11 f2 73 63 6f 72 65 73  3a e5 8d 54 72 40 0d 02  |..scores:..Tr@..|
00000470  44 05 e0 0d 02 4e 13 dd  f2 6f 76 61 6c 28 78 2c  |D....N...oval(x,|
00000480  79 2c 61 2c 62 29 0d 02  58 0c ef 32 39 2c 78 3b  |y,a,b)..X..29,x;|
00000490  79 3b 0d 02 62 08 ec 30  2c 30 0d 02 6c 0b e3 41  |y;..b..0,0..l..A|
000004a0  3d 30 b8 32 32 0d 02 76  08 ec 30 2c 30 0d 02 80  |=0.22..v..0,0...|
000004b0  1b f0 38 35 2c 61 2a 70  69 28 41 2c 31 29 2c 62  |..85,a*pi(A,1),b|
000004c0  2a 70 69 28 41 2c 32 29  0d 02 8a 06 ed 41 0d 02  |*pi(A,2).....A..|
000004d0  94 0c ef 32 39 2c 30 3b  30 3b 0d 02 9e 05 e1 0d  |...29,0;0;......|
000004e0  02 a8 0d dd f2 72 6f 6f  6d 3a ef 34 0d 02 b2 0e  |.....room:.4....|
000004f0  ef 31 39 2c 31 2c 30 3b  30 3b 0d 02 bc 15 f1 8a  |.19,1,0;0;......|
00000500  32 2c 31 29 22 4c 45 56  45 4c 20 22 3b 4c 25 0d  |2,1)"LEVEL ";L%.|
00000510  02 c6 08 e6 30 2c 31 0d  02 d0 27 ec 30 2c 30 3a  |....0,1...'.0,0:|
00000520  df 31 32 37 39 2c 30 3a  f0 38 35 2c 30 2c 38 30  |.1279,0:.85,0,80|
00000530  30 3a f0 38 35 2c 31 32  37 39 2c 38 30 30 0d 02  |0:.85,1279,800..|
00000540  da 2b e6 30 2c 32 3a e3  41 3d 30 b8 31 34 38 30  |.+.0,2:.A=0.1480|
00000550  88 33 32 3a ec 41 2c 30  3a f0 32 39 2c 41 2d 32  |.32:.A,0:.29,A-2|
00000560  30 30 2c 38 30 30 3a ed  41 0d 02 e4 08 e6 30 2c  |00,800:.A.....0,|
00000570  30 0d 02 ee 06 f3 61 0d  02 f8 0a e3 4b 3d 31 b8  |0.....a.....K=1.|
00000580  61 0d 03 02 14 78 3d a4  72 78 3a 79 3d a4 72 79  |a....x=.rx:y=.ry|
00000590  3a f3 61 2c 62 0d 03 0c  12 f2 6f 76 61 6c 28 78  |:.a,b.....oval(x|
000005a0  2c 79 2c 61 2c 62 29 0d  03 16 05 ed 0d 03 20 0a  |,y,a,b)....... .|
000005b0  f3 61 2c 62 2c 63 0d 03  2a 28 ef 31 39 2c 32 2c  |.a,b,c..*(.19,2,|
000005c0  62 3b 30 3b 31 39 2c 33  2c 63 3b 30 3b 3a e7 4c  |b;0;19,3,c;0;:.L|
000005d0  25 3c 32 31 ef 31 39 2c  31 2c 61 3b 30 3b 0d 03  |%<21.19,1,a;0;..|
000005e0  34 23 58 3d a4 72 78 3a  59 3d a4 72 79 3a 50 58  |4#X=.rx:Y=.ry:PX|
000005f0  3d a4 72 78 3a 50 59 3d  a4 72 79 3a f3 74 69 6d  |=.rx:PY=.ry:.tim|
00000600  65 0d 03 3e 16 74 69 6d  65 3d 74 69 6d 65 2b 6c  |e..>.time=time+l|
00000610  63 74 72 2a 35 2d 35 0d  03 48 08 e6 30 2c 33 0d  |ctr*5-5..H..0,3.|
00000620  03 52 1e f2 6f 76 61 6c  28 50 58 2c 50 59 2c 74  |.R..oval(PX,PY,t|
00000630  73 2c 74 73 29 3a 74 73  3d 74 73 2d 31 0d 03 5c  |s,ts):ts=ts-1..\|
00000640  0e ef 31 39 2c 30 2c 30  3b 30 3b 0d 03 66 22 e7  |..19,0,0;0;..f".|
00000650  4c 25 2f 35 3d a8 28 4c  25 2f 35 29 6c 63 74 72  |L%/5=.(L%/5)lctr|
00000660  3d 6c 63 74 72 2b 31 3a  f7 8d 74 52 44 0d 03 70  |=lctr+1:..tRD..p|
00000670  05 e1 0d 03 7a 25 dd a4  72 78 3a f3 61 3a e7 6c  |....z%..rx:.a:.l|
00000680  63 74 72 2f 32 3d a8 28  6c 63 74 72 2f 32 29 61  |ctr/2=.(lctr/2)a|
00000690  3d 31 32 38 30 2d 61 0d  03 84 06 3d 61 0d 03 8e  |=1280-a....=a...|
000006a0  3d dd a4 72 79 3a f3 61  3a e7 6c 63 74 72 2f 34  |=..ry:.a:.lctr/4|
000006b0  3d a8 28 6c 63 74 72 2f  34 29 84 28 6c 63 74 72  |=.(lctr/4).(lctr|
000006c0  2b 31 29 2f 34 3d a8 28  28 6c 63 74 72 2b 31 29  |+1)/4=.((lctr+1)|
000006d0  2f 34 29 61 3d 38 30 30  2d 61 0d 03 98 06 3d 61  |/4)a=800-a....=a|
000006e0  0d 03 a2 09 dd f2 64 69  65 0d 03 ac 06 ef 35 0d  |......die.....5.|
000006f0  03 b6 0a e3 41 3d 31 b8  35 0d 03 c0 45 73 68 69  |....A=1.5...Eshi|
00000700  70 28 41 2c 33 29 3d b3  28 33 32 29 2d 31 36 3a  |p(A,3)=.(32)-16:|
00000710  73 68 69 70 28 41 2c 34  29 3d b3 28 31 36 29 3a  |ship(A,4)=.(16):|
00000720  e6 30 2c 30 3a ec 73 68  69 70 28 41 2c 31 29 2c  |.0,0:.ship(A,1),|
00000730  73 68 69 70 28 41 2c 32  29 3a ef 32 33 30 0d 03  |ship(A,2):.230..|
00000740  ca 22 e6 33 2c 33 3a ec  73 68 69 70 28 41 2c 31  |.".3,3:.ship(A,1|
00000750  29 2c 73 68 69 70 28 41  2c 32 29 3a ef 32 33 30  |),ship(A,2):.230|
00000760  0d 03 d4 06 ed 41 0d 03  de 0b e3 41 3d 31 b8 33  |.....A.....A=1.3|
00000770  30 0d 03 e8 0b e6 30 2c  b3 28 33 29 0d 03 f2 0a  |0.....0,.(3)....|
00000780  e3 42 3d 31 b8 35 0d 03  fc 21 73 68 69 70 28 42  |.B=1.5...!ship(B|
00000790  2c 31 29 3d 73 68 69 70  28 42 2c 31 29 2b 73 68  |,1)=ship(B,1)+sh|
000007a0  69 70 28 42 2c 33 29 0d  04 06 21 73 68 69 70 28  |ip(B,3)...!ship(|
000007b0  42 2c 32 29 3d 73 68 69  70 28 42 2c 32 29 2b 73  |B,2)=ship(B,2)+s|
000007c0  68 69 70 28 42 2c 34 29  0d 04 10 1b 73 68 69 70  |hip(B,4)....ship|
000007d0  28 42 2c 34 29 3d 73 68  69 70 28 42 2c 34 29 2d  |(B,4)=ship(B,4)-|
000007e0  30 2e 35 0d 04 1a 1d ec  73 68 69 70 28 42 2c 31  |0.5.....ship(B,1|
000007f0  29 2c 73 68 69 70 28 42  2c 32 29 3a ef 32 33 30  |),ship(B,2):.230|
00000800  0d 04 24 07 ed 3a ed 0d  04 2e 05 e1 0d 04 38 09  |..$..:........8.|
00000810  dd f2 77 69 6e 0d 04 42  06 ef 34 0d 04 4c 34 e3  |..win..B..4..L4.|
00000820  41 3d 30 b8 35 30 88 34  3a d4 31 2c 2d 31 35 2c  |A=0.50.4:.1,-15,|
00000830  41 2c 31 3a d4 32 2c 2d  31 34 2c 41 2a 32 2c 31  |A,1:.2,-14,A*2,1|
00000840  3a d4 33 2c 2d 31 33 2c  41 2a 33 2c 31 3a ed 0d  |:.3,-13,A*3,1:..|
00000850  04 56 35 e3 41 3d 35 30  b8 30 88 2d 34 3a d4 31  |.V5.A=50.0.-4:.1|
00000860  2c 2d 31 35 2c 41 2c 31  3a d4 32 2c 2d 31 34 2c  |,-15,A,1:.2,-14,|
00000870  41 2a 32 2c 31 3a d4 33  2c 2d 31 33 2c 41 2a 33  |A*2,1:.3,-13,A*3|
00000880  2c 31 3a ed 0d 04 60 17  e3 62 6f 6e 75 73 3d 62  |,1:...`..bonus=b|
00000890  6f 6e 75 73 2d 31 b8 30  88 2d 31 0d 04 6a 13 73  |onus-1.0.-1..j.s|
000008a0  63 6f 72 65 25 3d 73 63  6f 72 65 25 2b 31 0d 04  |core%=score%+1..|
000008b0  74 28 d4 31 2c 2d 31 35  2c 34 30 2c 31 3a d4 31  |t(.1,-15,40,1:.1|
000008c0  2c 2d 31 34 2c 38 38 2c  31 3a d4 31 2c 2d 31 33  |,-14,88,1:.1,-13|
000008d0  2c 31 30 30 2c 31 0d 04  7e 22 f1 8a 33 34 2c 31  |,100,1..~"..34,1|
000008e0  29 3b 62 6f 6e 75 73 3b  22 20 22 8a 32 31 2c 31  |);bonus;" ".21,1|
000008f0  29 3b 73 63 6f 72 65 25  0d 04 83 05 ed 0d 04 88  |);score%........|
00000900  05 e1 0d 04 92 6c dc 35  2c 36 34 30 2c 36 30 30  |.....l.5,640,600|
00000910  2c 36 30 30 2c 35 31 2c  36 34 30 2c 35 30 30 2c  |,600,51,640,500,|
00000920  31 30 30 2c 32 30 30 2c  36 34 30 2c 34 30 30 2c  |100,200,640,400,|
00000930  36 30 30 2c 35 31 2c 33  34 30 2c 33 30 30 2c 32  |600,51,340,300,2|
00000940  30 30 2c 37 30 2c 33 34  30 2c 32 30 30 2c 31 30  |00,70,340,200,10|
00000950  30 2c 31 30 30 2c 35 2c  33 2c 36 2c 31 35 30 2c  |0,100,5,3,6,150,|
00000960  36 30 30 2c 33 34 30 2c  32 30 30 2c 32 35 0d 04  |600,340,200,25..|
00000970  9c 80 dc 36 2c 33 30 30  2c 35 35 30 2c 31 38 30  |...6,300,550,180|
00000980  2c 31 38 30 2c 38 30 30  2c 35 30 30 2c 33 35 30  |,180,800,500,350|
00000990  2c 31 30 30 2c 31 30 30  30 2c 34 30 30 2c 31 30  |,100,1000,400,10|
000009a0  30 2c 31 30 30 2c 31 30  30 30 2c 33 30 30 2c 31  |0,100,1000,300,1|
000009b0  30 30 2c 31 30 30 2c 35  30 30 2c 32 35 30 2c 34  |00,100,500,250,4|
000009c0  35 30 2c 34 30 2c 31 35  30 2c 32 35 30 2c 31 30  |50,40,150,250,10|
000009d0  30 2c 31 30 30 2c 31 2c  33 2c 37 2c 33 30 30 2c  |0,100,1,3,7,300,|
000009e0  36 30 30 2c 31 35 30 2c  32 35 30 2c 33 30 0d 04  |600,150,250,30..|
000009f0  a6 76 dc 36 2c 34 30 30  2c 36 30 30 2c 35 30 2c  |.v.6,400,600,50,|
00000a00  35 30 2c 37 30 30 2c 36  30 30 2c 33 32 30 2c 34  |50,700,600,320,4|
00000a10  38 2c 39 30 30 2c 35 30  30 2c 36 34 2c 36 34 2c  |8,900,500,64,64,|
00000a20  38 30 30 2c 34 30 30 2c  38 30 2c 38 30 2c 35 30  |800,400,80,80,50|
00000a30  30 2c 33 35 30 2c 32 35  30 2c 31 30 30 2c 32 30  |0,350,250,100,20|
00000a40  30 2c 33 35 30 2c 36 30  2c 36 30 2c 32 2c 31 2c  |0,350,60,60,2,1,|
00000a50  36 2c 34 30 30 2c 36 30  30 2c 32 30 30 2c 33 35  |6,400,600,200,35|
00000a60  30 2c 32 35 0d 04 ba 95  dc 38 2c 36 34 30 2c 36  |0,25.....8,640,6|
00000a70  32 35 2c 34 30 30 2c 35  30 2c 31 30 34 30 2c 34  |25,400,50,1040,4|
00000a80  30 30 2c 35 30 2c 32 32  30 2c 36 34 30 2c 32 30  |00,50,220,640,20|
00000a90  30 2c 34 30 30 2c 35 30  2c 32 37 30 2c 33 32 30  |0,400,50,270,320|
00000aa0  2c 33 30 2c 31 32 30 2c  33 30 30 2c 34 32 30 2c  |,30,120,300,420,|
00000ab0  38 30 2c 38 30 2c 33 35  30 2c 34 37 30 2c 35 30  |80,80,350,470,50|
00000ac0  2c 35 30 2c 35 35 30 2c  34 37 30 2c 32 30 30 2c  |,50,550,470,200,|
00000ad0  32 30 2c 37 35 30 2c 34  37 30 2c 38 30 2c 38 30  |20,750,470,80,80|
00000ae0  2c 31 2c 35 2c 33 2c 33  30 30 2c 36 32 35 2c 37  |,1,5,3,300,625,7|
00000af0  35 30 2c 34 37 30 2c 33  35 0d 04 c4 95 dc 38 2c  |50,470,35.....8,|
00000b00  31 30 30 2c 34 30 30 2c  33 30 2c 38 30 2c 31 35  |100,400,30,80,15|
00000b10  30 2c 35 35 30 2c 34 30  2c 32 30 30 2c 34 35 30  |0,550,40,200,450|
00000b20  2c 37 32 30 2c 33 30 30  2c 33 30 2c 36 35 30 2c  |,720,300,30,650,|
00000b30  36 35 30 2c 35 30 2c 35  30 2c 37 30 30 2c 36 30  |650,50,50,700,60|
00000b40  30 2c 33 30 2c 33 30 2c  37 35 30 2c 34 35 30 2c  |0,30,30,750,450,|
00000b50  34 30 2c 32 30 30 2c 37  35 30 2c 32 35 30 2c 33  |40,200,750,250,3|
00000b60  30 30 2c 35 30 2c 31 30  35 30 2c 32 35 30 2c 38  |00,50,1050,250,8|
00000b70  30 2c 38 30 2c 34 2c 33  2c 31 2c 31 30 30 2c 33  |0,80,4,3,1,100,3|
00000b80  35 30 2c 31 30 35 30 2c  32 35 30 2c 33 30 0d 04  |50,1050,250,30..|
00000b90  ce 0b dd f2 66 77 6f 72  6b 0d 04 d8 1b e7 66 63  |....fwork.....fc|
00000ba0  74 72 3d 30 66 74 3d b3  28 39 39 39 39 29 3a f2  |tr=0ft=.(9999):.|
00000bb0  73 74 75 70 0d 04 e2 11  e7 66 63 74 72 3d 32 30  |stup.....fctr=20|
00000bc0  f2 73 74 75 70 0d 04 ec  83 ef 35 3a e3 41 3d 31  |.stup.....5:.A=1|
00000bd0  b8 34 3a 73 68 69 70 28  41 2c 30 29 3d 73 68 69  |.4:ship(A,0)=shi|
00000be0  70 28 41 2c 30 29 2b 73  68 69 70 28 41 2c 32 29  |p(A,0)+ship(A,2)|
00000bf0  3a 73 68 69 70 28 41 2c  31 29 3d 73 68 69 70 28  |:ship(A,1)=ship(|
00000c00  41 2c 31 29 2b 73 68 69  70 28 41 2c 33 29 3a 73  |A,1)+ship(A,3):s|
00000c10  68 69 70 28 41 2c 33 29  3d 73 68 69 70 28 41 2c  |hip(A,3)=ship(A,|
00000c20  33 29 2d 31 3a e6 33 2c  b3 28 33 29 3a ec 73 68  |3)-1:.3,.(3):.sh|
00000c30  69 70 28 41 2c 30 29 2c  73 68 69 70 28 41 2c 31  |ip(A,0),ship(A,1|
00000c40  29 3a ef 32 33 30 3a ed  0d 04 f6 1e 66 63 74 72  |):.230:.....fctr|
00000c50  3d 66 63 74 72 2b 31 3a  e7 66 63 74 72 3d 34 30  |=fctr+1:.fctr=40|
00000c60  66 63 74 72 3d 30 0d 05  00 05 e1 0d 05 0a 0a dd  |fctr=0..........|
00000c70  f2 73 74 75 70 0d 05 14  06 ef 35 0d 05 1e 0c 54  |.stup.....5....T|
00000c80  3d b3 28 2d 66 74 29 0d  05 28 11 ef 31 39 2c 31  |=.(-ft)..(..19,1|
00000c90  2c b3 28 37 29 3b 30 3b  0d 05 32 11 ef 31 39 2c  |,.(7);0;..2..19,|
00000ca0  32 2c b3 28 37 29 3b 30  3b 0d 05 3c 11 ef 31 39  |2,.(7);0;..<..19|
00000cb0  2c 33 2c b3 28 37 29 3b  30 3b 0d 05 46 1d 58 3d  |,3,.(7);0;..F.X=|
00000cc0  b3 28 36 34 30 29 2b 33  32 30 3a 59 3d b3 28 35  |.(640)+320:Y=.(5|
00000cd0  31 32 29 2b 32 35 36 0d  05 50 0a e3 41 3d 31 b8  |12)+256..P..A=1.|
00000ce0  34 0d 05 5a 1b 73 68 69  70 28 41 2c 30 29 3d 58  |4..Z.ship(A,0)=X|
00000cf0  3a 73 68 69 70 28 41 2c  31 29 3d 59 0d 05 64 26  |:ship(A,1)=Y..d&|
00000d00  73 68 69 70 28 41 2c 32  29 3d b3 28 33 32 29 2d  |ship(A,2)=.(32)-|
00000d10  31 36 3a 73 68 69 70 28  41 2c 33 29 3d b3 28 31  |16:ship(A,3)=.(1|
00000d20  36 29 0d 05 6e 05 ed 0d  05 78 2e e6 33 2c b3 28  |6)..n....x..3,.(|
00000d30  33 29 3a e3 41 3d 31 b8  34 3a ec 73 68 69 70 28  |3):.A=1.4:.ship(|
00000d40  41 2c 30 29 2c 73 68 69  70 28 41 2c 31 29 3a ef  |A,0),ship(A,1):.|
00000d50  32 33 30 3a ed 0d 05 82  08 ef 34 3a e1 0d 05 8c  |230:......4:....|
00000d60  0f dd f2 68 69 67 68 73  63 6f 72 65 0d 05 96 06  |...highscore....|
00000d70  ef 34 0d 05 a0 05 db 0d  05 aa 0b 2a 46 58 31 35  |.4.........*FX15|
00000d80  2c 30 0d 05 b4 22 f1 8a  39 2c 35 29 22 59 6f 75  |,0..."..9,5)"You|
00000d90  20 68 61 76 65 20 71 75  61 6c 69 66 69 65 64 20  | have qualified |
00000da0  66 6f 72 22 0d 05 be 2a  f1 8a 36 2c 37 29 22 74  |for"...*..6,7)"t|
00000db0  68 65 20 48 61 6c 6c 20  6f 66 20 46 61 6d 65 2e  |he Hall of Fame.|
00000dc0  20 50 6c 65 61 73 65 20  65 6e 74 65 72 22 0d 05  | Please enter"..|
00000dd0  c8 17 f1 8a 31 35 2c 39  29 22 79 6f 75 72 20 6e  |....15,9)"your n|
00000de0  61 6d 65 2e 22 0d 05 d2  09 6e 24 3d 22 22 0d 05  |ame."....n$=""..|
00000df0  dc 05 f5 0d 05 e6 0a f2  66 77 6f 72 6b 0d 05 f0  |........fwork...|
00000e00  06 ef 34 0d 05 fa 0a 47  3d a6 28 30 29 0d 06 04  |..4....G=.(0)...|
00000e10  22 e7 47 3e 33 31 80 47  3c 31 32 37 80 a9 28 6e  |".G>31.G<127..(n|
00000e20  24 29 3c 32 30 6e 24 3d  6e 24 2b bd 28 47 29 0d  |$)<20n$=n$+.(G).|
00000e30  06 0e 21 e7 47 3d 31 32  37 80 a9 28 6e 24 29 3e  |..!.G=127..(n$)>|
00000e40  30 6e 24 3d c0 6e 24 2c  a9 28 6e 24 29 2d 31 29  |0n$=.n$,.(n$)-1)|
00000e50  0d 06 22 16 f1 8a 35 2c  32 38 29 22 3a 2d 22 3b  |.."...5,28)":-";|
00000e60  6e 24 3b 22 20 22 0d 06  2c 09 fd 47 3d 31 33 0d  |n$;" "..,..G=13.|
00000e70  06 36 1a 68 73 28 36 29  3d 73 63 6f 72 65 25 3a  |.6.hs(6)=score%:|
00000e80  68 73 24 28 36 29 3d 6e  24 0d 06 40 0d e3 41 3d  |hs$(6)=n$..@..A=|
00000e90  35 b8 31 88 2d 31 0d 06  4a 57 e7 68 73 28 41 29  |5.1.-1..JW.hs(A)|
00000ea0  3c 68 73 28 41 2b 31 29  61 3d 68 73 28 41 29 3a  |<hs(A+1)a=hs(A):|
00000eb0  61 24 3d 68 73 24 28 41  29 3a 68 73 28 41 29 3d  |a$=hs$(A):hs(A)=|
00000ec0  68 73 28 41 2b 31 29 3a  68 73 24 28 41 29 3d 68  |hs(A+1):hs$(A)=h|
00000ed0  73 24 28 41 2b 31 29 3a  68 73 28 41 2b 31 29 3d  |s$(A+1):hs(A+1)=|
00000ee0  61 3a 68 73 24 28 41 2b  31 29 3d 61 24 0d 06 54  |a:hs$(A+1)=a$..T|
00000ef0  05 ed 0d 06 5e 05 e1 0d  06 68 0c dd f2 73 63 6f  |....^....h...sco|
00000f00  72 65 73 0d 06 72 0f 66  63 74 72 3d 30 3a 66 74  |res..r.fctr=0:ft|
00000f10  3d 30 0d 06 7c 1b e7 73  63 6f 72 65 25 3e 68 73  |=0..|..score%>hs|
00000f20  28 35 29 f2 68 69 67 68  73 63 6f 72 65 0d 06 86  |(5).highscore...|
00000f30  0f 66 63 74 72 3d 30 3a  66 74 3d 30 0d 06 90 05  |.fctr=0:ft=0....|
00000f40  db 0d 06 9a 06 ef 35 0d  06 a4 0a e3 41 3d 31 b8  |......5.....A=1.|
00000f50  33 0d 06 ae 08 e6 30 2c  41 0d 06 b8 20 ec 35 30  |3.....0,A... .50|
00000f60  38 2b 41 2a 34 2c 39 30  30 2d 41 2a 34 3a f1 22  |8+A*4,900-A*4:."|
00000f70  4d 59 52 49 41 50 4f 44  22 0d 06 c2 05 ed 0d 06  |MYRIAPOD".......|
00000f80  cc 06 ef 34 0d 06 d6 19  f1 8a 31 35 2c 37 29 22  |...4......15,7)"|
00000f90  48 61 6c 6c 20 6f 66 20  46 61 6d 65 22 0d 06 e0  |Hall of Fame"...|
00000fa0  0a e3 41 3d 31 b8 35 0d  06 ea 1e f1 8a 35 2c 38  |..A=1.5......5,8|
00000fb0  2b 41 2a 33 29 3b 41 3b  22 2e 2e 2e 2e 22 3b 68  |+A*3);A;"....";h|
00000fc0  73 24 28 41 29 0d 06 f4  15 f1 8a 33 30 2c 38 2b  |s$(A)......30,8+|
00000fd0  41 2a 33 29 3b 68 73 28  41 29 0d 06 fe 05 ed 0d  |A*3);hs(A)......|
00000fe0  07 08 1d f1 8a 31 30 2c  32 38 29 22 50 72 65 73  |.....10,28)"Pres|
00000ff0  73 20 53 50 41 43 45 20  62 61 72 22 0d 07 12 12  |s SPACE bar"....|
00001000  f5 3a f2 66 77 6f 72 6b  3a fd a6 2d 39 39 0d 07  |.:.fwork:..-99..|
00001010  1c 05 e1 0d 07 26 09 dd  f2 65 6e 64 0d 07 30 08  |.....&...end..0.|
00001020  ef 34 3a db 0d 07 3a 1e  f1 8a 35 2c 38 29 22 59  |.4:...:...5,8)"Y|
00001030  4f 55 20 48 41 56 45 20  43 4f 4d 50 4c 45 54 45  |OU HAVE COMPLETE|
00001040  44 22 0d 07 44 16 f1 8a  31 30 2c 31 31 29 22 4d  |D"..D...10,11)"M|
00001050  59 52 49 41 50 4f 44 22  0d 07 4e 21 f1 8a 35 2c  |YRIAPOD"..N!..5,|
00001060  31 35 29 22 53 43 4f 52  49 4e 47 20 22 3b 73 63  |15)"SCORING ";sc|
00001070  6f 72 65 25 3b 22 20 21  22 0d 07 58 1c f1 8a 35  |ore%;" !"..X...5|
00001080  2c 31 37 29 22 50 72 65  73 73 20 53 50 41 43 45  |,17)"Press SPACE|
00001090  20 62 61 72 22 0d 07 62  09 e5 8d 54 52 47 0d 07  | bar"..b...TRG..|
000010a0  6c 05 e1 0d 07 76 08 dd  f2 67 72 0d 07 80 0c f1  |l....v...gr.....|
000010b0  8a 31 30 2c 35 29 3b 0d  07 8a 1d e7 6c 63 74 72  |.10,5);.....lctr|
000010c0  3d 32 67 72 3d 30 2e 32  35 3a f1 22 47 52 41 56  |=2gr=0.25:."GRAV|
000010d0  49 54 59 22 0d 07 94 23  e7 6c 63 74 72 3d 33 67  |ITY"...#.lctr=3g|
000010e0  72 3d 30 2e 35 3a f1 22  53 54 52 4f 4e 47 20 47  |r=0.5:."STRONG G|
000010f0  52 41 56 49 54 59 22 0d  07 9e 25 e7 6c 63 74 72  |RAVITY"...%.lctr|
00001100  3d 34 67 72 3d 2d 30 2e  35 3a f1 22 52 45 56 45  |=4gr=-0.5:."REVE|
00001110  52 53 45 20 47 52 41 56  49 54 59 22 0d 07 a8 1e  |RSE GRAVITY"....|
00001120  e7 6c 63 74 72 3d 35 6c  63 74 72 3d 31 3a f1 22  |.lctr=5lctr=1:."|
00001130  49 4e 56 49 53 49 42 4c  45 22 0d 07 b2 0f e3 67  |INVISIBLE".....g|
00001140  3d 30 b8 31 39 39 39 3a  ed 0d 07 bc 13 f1 8a 31  |=0.1999:.......1|
00001150  30 2c 35 29 c4 33 30 2c  22 20 22 29 0d 07 c6 05  |0,5).30," ")....|
00001160  e1 0d ff                                          |...|
00001163