2*KEY0 "OLD|MRUN|M"
<OS=&FFEE:� X=0�2�2:P%=&D20
F	[OPTX
P.ST
Z3LDA#23:STA&D10:LDA#0:STA&D11:LDA#1:STA&D12:JSRS
d7 LDA#0:STA&D10:LDA#39:STA&D11:LDA#255:STA&D12:JSRI 
n7LDA#255:STA&D10:LDA#22:STA&D11:LDA#255:STA&D12:JSRS
x3LDA#39:STA&D10:LDA#1:STA&D11:LDA#1:STA&D12:JMPI
�.S LDX&D11:LDY#0
�.U
�4LDA#31:JSROS:LDA#0:JSROS:TXA:JSROS:LDA&DFE:JSROS
�$LDA#31:JSROS:TYA:JSROS:TXA:JSROS
�LDA#53:JSROS:LDA#32:JSROS
�INY:INY:TYA:CMP#40:BNEU
�%LDY#0:CLC:TXA:ADC&D12:TAX:CMP&D10
�BNEU:RTS
�.I LDX&D11:LDY#0
�.K
�4LDA#31:JSROS:LDA#0:JSROS:TYA:JSROS:LDA&DFE:JSROS
�$LDA#31:JSROS:TXA:JSROS:TYA:JSROS
�LDA#96:JSROS

INY:TYA:CMP#24:BNEK

%LDY#0:CLC:TXA:ADC&D12:TAX:CMP&D10

BNEK:RTS

"]:�

, FX=&FFF4:P%=&71:�P 100:[OPT0

6%.O LDA#15:LDX#0:LDY#0:JSR FX:RTS 

@$.I LDA#15:LDX#1:LDY#0:JSR FX:RTS

J]

TX=�(-�):A%=0:Z%=0:F%=0:�O

^n�&17,&E0,&C,&32,&61,&C1,&C1,&61,&32,&C,&17,&E1,&80,&C0,&F8,&E7,&F8,&C0,&80,&80,&17,&E2,0,0,&FF,0,0,&FF,0,0

h��&17,&E4,&F8,&20,&1D,&1D,&20,&F8,&A8,0,&17,&E5,&8C,&20,&38,0,0,&38,&20,&8C,&17,&E6,&C0,&60,&32,&3F,&32,&60,&C0,0,&17,&E2,0,0,&FF,0,0,&FF,0,0 

r��&17,&FA,0,0,0,&2A,&EA,&2A,0,0,&17,&FB,0,3,&F,&AA,&AA,&AA,&F,3,&17,&E3,&FF,0,0,0,0,0,0,&FF,&17,&E9,&91,&4A,&34,&5A,&BD,&34,&4A,&2D,&17,&EB,3,&18,&60,&C0,&C0,&60,&18,3 

|-�1,1,20,-15,-15,6,3,3,127,0,-1,-1,126,126

�*�2,1,1,2,4,30,70,20,127,0,0,-127,126,0

�.�3,1,3,-3,3,20,20,20,127,0,-127,-127,126,0

�#�4,0,1,3,1,2,2,3,0,-1,0,0,120,5

���6:�12,20)"STOP THE TAPE";�12,21)"STOP THE TAPE";:� � X=1 � 1E3:�&11,-10,X,1:�:�8,24)"Press any key to start.";:D=�(400):� � D

��0:�19,7,2;0;23;8202;0;0;0;

��31,0,11,29,140;0; 

�� X=0�1000 � 20

�C� X<=500 �25,4,X;4;25,5,500;X+4;25,4,X;1000;25,5,500;1000-X;:�X

�<�25,4,500;(1000-X)+4;25,5,X;4;25,4,500;X;25,5,X;1000;:�X

�A$="WARP":� X=1�8

�$� X<5 �40-X);�A$,X);�40);�A$,X)

�2� X>4 A$="HOLE":�31+X);�A$,9-X);�40);�A$,9-X)

��X:�28,52,18,76,15:�D(50)
0�1,1,100,255:�X=5�499:�19,1,(X �7)+1;0;:�:�O
�"Please wait while the"
�'"Main Program is loaded"
&&�D(400):� IV%=&404�&468�4:?IV%=0:�
0f�129:�0:�:�"  ARROW keys - Movement"'"  f1 & f2 - Cannons"'"  f3 - Torpedo"'"  f4  Laser";:�1:�128
:�28,0,20,52,11,12
DA$="WARP":�:�X=1�8
N$� X<5 �30);�A$,X);�49-X);�A$,X)
X2� X>4 A$="HOLE":�30);�A$,9-X);�X+40);�A$,9-X)
b�X:�28,0,21,28,6,12
lF�25,4,340;672;25,5,644;672;25,5,644;358;25,5,340;358;25,5,340;672;
v9�25,4,646;672;25,5,646;358;25,4,338;358;25,5,338;672;
�F�25,5,400;690;25,5,478;690;25,4,528;690;25,5,675;690;25,5,645;672;
�9�25,4,675;690;25,5,675;690;25,5,675;380;25,5,645;358;
�0�25,4,677;690;25,5,677;380;28,35,19,43,12,12
�
�D(86)
�A$="PROGRAMMING BY......"
�A=+1:C=0:� X=1 � �(A$)
��19,1,6;0;:�D(13)
�� C+A>7 � C+A<0 A=-A
�� &11,4,100,20:C=C+A
��C,7);�A$,X,1)
��19,1,2;0;
�
�D(13)
��X:A$="RICHARD SNOWDON"
� X=1 � �(A$)
�19,1,6;0;:�D(13)
�X � 8,7);�A$,X,1)
 #�&11,4,200,20:�19,1,2;0;:�D(13)
*�X:�
4�D(296)
>�1,0,0,0
Hg�28,52,19,79,15,12:�"  ARROW keys - Movement"'"  f1 & f2 - Cannons"'"  f3 - Torpedo"'"  f4 - Laser"
R�129:�0:�28,35,19,43,12
\!�0,2)"Start the"�2,3)"tape."
f�=&E00:�"WARPDATA"
p��D(A):�B:B=�:� � �>B+A:�
�

00000000  0d 00 32 16 2a 4b 45 59  30 20 22 4f 4c 44 7c 4d  |..2.*KEY0 "OLD|M|
00000010  52 55 4e 7c 4d 22 0d 00  3c 1e 4f 53 3d 26 46 46  |RUN|M"..<.OS=&FF|
00000020  45 45 3a e3 20 58 3d 30  b8 32 88 32 3a 50 25 3d  |EE:. X=0.2.2:P%=|
00000030  26 44 32 30 0d 00 46 09  5b 4f 50 54 58 0d 00 50  |&D20..F.[OPTX..P|
00000040  07 2e 53 54 0d 00 5a 33  4c 44 41 23 32 33 3a 53  |..ST..Z3LDA#23:S|
00000050  54 41 26 44 31 30 3a 4c  44 41 23 30 3a 53 54 41  |TA&D10:LDA#0:STA|
00000060  26 44 31 31 3a 4c 44 41  23 31 3a 53 54 41 26 44  |&D11:LDA#1:STA&D|
00000070  31 32 3a 4a 53 52 53 0d  00 64 37 20 4c 44 41 23  |12:JSRS..d7 LDA#|
00000080  30 3a 53 54 41 26 44 31  30 3a 4c 44 41 23 33 39  |0:STA&D10:LDA#39|
00000090  3a 53 54 41 26 44 31 31  3a 4c 44 41 23 32 35 35  |:STA&D11:LDA#255|
000000a0  3a 53 54 41 26 44 31 32  3a 4a 53 52 49 20 0d 00  |:STA&D12:JSRI ..|
000000b0  6e 37 4c 44 41 23 32 35  35 3a 53 54 41 26 44 31  |n7LDA#255:STA&D1|
000000c0  30 3a 4c 44 41 23 32 32  3a 53 54 41 26 44 31 31  |0:LDA#22:STA&D11|
000000d0  3a 4c 44 41 23 32 35 35  3a 53 54 41 26 44 31 32  |:LDA#255:STA&D12|
000000e0  3a 4a 53 52 53 0d 00 78  33 4c 44 41 23 33 39 3a  |:JSRS..x3LDA#39:|
000000f0  53 54 41 26 44 31 30 3a  4c 44 41 23 31 3a 53 54  |STA&D10:LDA#1:ST|
00000100  41 26 44 31 31 3a 4c 44  41 23 31 3a 53 54 41 26  |A&D11:LDA#1:STA&|
00000110  44 31 32 3a 4a 4d 50 49  0d 00 82 14 2e 53 20 4c  |D12:JMPI.....S L|
00000120  44 58 26 44 31 31 3a 4c  44 59 23 30 0d 00 8c 06  |DX&D11:LDY#0....|
00000130  2e 55 0d 00 96 34 4c 44  41 23 33 31 3a 4a 53 52  |.U...4LDA#31:JSR|
00000140  4f 53 3a 4c 44 41 23 30  3a 4a 53 52 4f 53 3a 54  |OS:LDA#0:JSROS:T|
00000150  58 41 3a 4a 53 52 4f 53  3a 4c 44 41 26 44 46 45  |XA:JSROS:LDA&DFE|
00000160  3a 4a 53 52 4f 53 0d 00  a0 24 4c 44 41 23 33 31  |:JSROS...$LDA#31|
00000170  3a 4a 53 52 4f 53 3a 54  59 41 3a 4a 53 52 4f 53  |:JSROS:TYA:JSROS|
00000180  3a 54 58 41 3a 4a 53 52  4f 53 0d 00 aa 1d 4c 44  |:TXA:JSROS....LD|
00000190  41 23 35 33 3a 4a 53 52  4f 53 3a 4c 44 41 23 33  |A#53:JSROS:LDA#3|
000001a0  32 3a 4a 53 52 4f 53 0d  00 b4 1b 49 4e 59 3a 49  |2:JSROS....INY:I|
000001b0  4e 59 3a 54 59 41 3a 43  4d 50 23 34 30 3a 42 4e  |NY:TYA:CMP#40:BN|
000001c0  45 55 0d 00 be 25 4c 44  59 23 30 3a 43 4c 43 3a  |EU...%LDY#0:CLC:|
000001d0  54 58 41 3a 41 44 43 26  44 31 32 3a 54 41 58 3a  |TXA:ADC&D12:TAX:|
000001e0  43 4d 50 26 44 31 30 0d  00 c8 0c 42 4e 45 55 3a  |CMP&D10....BNEU:|
000001f0  52 54 53 0d 00 d2 14 2e  49 20 4c 44 58 26 44 31  |RTS.....I LDX&D1|
00000200  31 3a 4c 44 59 23 30 0d  00 dc 06 2e 4b 0d 00 e6  |1:LDY#0.....K...|
00000210  34 4c 44 41 23 33 31 3a  4a 53 52 4f 53 3a 4c 44  |4LDA#31:JSROS:LD|
00000220  41 23 30 3a 4a 53 52 4f  53 3a 54 59 41 3a 4a 53  |A#0:JSROS:TYA:JS|
00000230  52 4f 53 3a 4c 44 41 26  44 46 45 3a 4a 53 52 4f  |ROS:LDA&DFE:JSRO|
00000240  53 0d 00 f0 24 4c 44 41  23 33 31 3a 4a 53 52 4f  |S...$LDA#31:JSRO|
00000250  53 3a 54 58 41 3a 4a 53  52 4f 53 3a 54 59 41 3a  |S:TXA:JSROS:TYA:|
00000260  4a 53 52 4f 53 0d 00 fa  10 4c 44 41 23 39 36 3a  |JSROS....LDA#96:|
00000270  4a 53 52 4f 53 0d 01 04  17 49 4e 59 3a 54 59 41  |JSROS....INY:TYA|
00000280  3a 43 4d 50 23 32 34 3a  42 4e 45 4b 0d 01 0e 25  |:CMP#24:BNEK...%|
00000290  4c 44 59 23 30 3a 43 4c  43 3a 54 58 41 3a 41 44  |LDY#0:CLC:TXA:AD|
000002a0  43 26 44 31 32 3a 54 41  58 3a 43 4d 50 26 44 31  |C&D12:TAX:CMP&D1|
000002b0  30 0d 01 18 0c 42 4e 45  4b 3a 52 54 53 0d 01 22  |0....BNEK:RTS.."|
000002c0  07 5d 3a ed 0d 01 2c 20  46 58 3d 26 46 46 46 34  |.]:..., FX=&FFF4|
000002d0  3a 50 25 3d 26 37 31 3a  de 50 20 31 30 30 3a 5b  |:P%=&71:.P 100:[|
000002e0  4f 50 54 30 0d 01 36 25  2e 4f 20 4c 44 41 23 31  |OPT0..6%.O LDA#1|
000002f0  35 3a 4c 44 58 23 30 3a  4c 44 59 23 30 3a 4a 53  |5:LDX#0:LDY#0:JS|
00000300  52 20 46 58 3a 52 54 53  20 0d 01 40 24 2e 49 20  |R FX:RTS ..@$.I |
00000310  4c 44 41 23 31 35 3a 4c  44 58 23 31 3a 4c 44 59  |LDA#15:LDX#1:LDY|
00000320  23 30 3a 4a 53 52 20 46  58 3a 52 54 53 0d 01 4a  |#0:JSR FX:RTS..J|
00000330  05 5d 0d 01 54 1d 58 3d  b3 28 2d 91 29 3a 41 25  |.]..T.X=.(-.):A%|
00000340  3d 30 3a 5a 25 3d 30 3a  46 25 3d 30 3a d6 4f 0d  |=0:Z%=0:F%=0:.O.|
00000350  01 5e 6e ef 26 31 37 2c  26 45 30 2c 26 43 2c 26  |.^n.&17,&E0,&C,&|
00000360  33 32 2c 26 36 31 2c 26  43 31 2c 26 43 31 2c 26  |32,&61,&C1,&C1,&|
00000370  36 31 2c 26 33 32 2c 26  43 2c 26 31 37 2c 26 45  |61,&32,&C,&17,&E|
00000380  31 2c 26 38 30 2c 26 43  30 2c 26 46 38 2c 26 45  |1,&80,&C0,&F8,&E|
00000390  37 2c 26 46 38 2c 26 43  30 2c 26 38 30 2c 26 38  |7,&F8,&C0,&80,&8|
000003a0  30 2c 26 31 37 2c 26 45  32 2c 30 2c 30 2c 26 46  |0,&17,&E2,0,0,&F|
000003b0  46 2c 30 2c 30 2c 26 46  46 2c 30 2c 30 0d 01 68  |F,0,0,&FF,0,0..h|
000003c0  91 ef 26 31 37 2c 26 45  34 2c 26 46 38 2c 26 32  |..&17,&E4,&F8,&2|
000003d0  30 2c 26 31 44 2c 26 31  44 2c 26 32 30 2c 26 46  |0,&1D,&1D,&20,&F|
000003e0  38 2c 26 41 38 2c 30 2c  26 31 37 2c 26 45 35 2c  |8,&A8,0,&17,&E5,|
000003f0  26 38 43 2c 26 32 30 2c  26 33 38 2c 30 2c 30 2c  |&8C,&20,&38,0,0,|
00000400  26 33 38 2c 26 32 30 2c  26 38 43 2c 26 31 37 2c  |&38,&20,&8C,&17,|
00000410  26 45 36 2c 26 43 30 2c  26 36 30 2c 26 33 32 2c  |&E6,&C0,&60,&32,|
00000420  26 33 46 2c 26 33 32 2c  26 36 30 2c 26 43 30 2c  |&3F,&32,&60,&C0,|
00000430  30 2c 26 31 37 2c 26 45  32 2c 30 2c 30 2c 26 46  |0,&17,&E2,0,0,&F|
00000440  46 2c 30 2c 30 2c 26 46  46 2c 30 2c 30 20 0d 01  |F,0,0,&FF,0,0 ..|
00000450  72 ab ef 26 31 37 2c 26  46 41 2c 30 2c 30 2c 30  |r..&17,&FA,0,0,0|
00000460  2c 26 32 41 2c 26 45 41  2c 26 32 41 2c 30 2c 30  |,&2A,&EA,&2A,0,0|
00000470  2c 26 31 37 2c 26 46 42  2c 30 2c 33 2c 26 46 2c  |,&17,&FB,0,3,&F,|
00000480  26 41 41 2c 26 41 41 2c  26 41 41 2c 26 46 2c 33  |&AA,&AA,&AA,&F,3|
00000490  2c 26 31 37 2c 26 45 33  2c 26 46 46 2c 30 2c 30  |,&17,&E3,&FF,0,0|
000004a0  2c 30 2c 30 2c 30 2c 30  2c 26 46 46 2c 26 31 37  |,0,0,0,0,&FF,&17|
000004b0  2c 26 45 39 2c 26 39 31  2c 26 34 41 2c 26 33 34  |,&E9,&91,&4A,&34|
000004c0  2c 26 35 41 2c 26 42 44  2c 26 33 34 2c 26 34 41  |,&5A,&BD,&34,&4A|
000004d0  2c 26 32 44 2c 26 31 37  2c 26 45 42 2c 33 2c 26  |,&2D,&17,&EB,3,&|
000004e0  31 38 2c 26 36 30 2c 26  43 30 2c 26 43 30 2c 26  |18,&60,&C0,&C0,&|
000004f0  36 30 2c 26 31 38 2c 33  20 0d 01 7c 2d e2 31 2c  |60,&18,3 ..|-.1,|
00000500  31 2c 32 30 2c 2d 31 35  2c 2d 31 35 2c 36 2c 33  |1,20,-15,-15,6,3|
00000510  2c 33 2c 31 32 37 2c 30  2c 2d 31 2c 2d 31 2c 31  |,3,127,0,-1,-1,1|
00000520  32 36 2c 31 32 36 0d 01  86 2a e2 32 2c 31 2c 31  |26,126...*.2,1,1|
00000530  2c 32 2c 34 2c 33 30 2c  37 30 2c 32 30 2c 31 32  |,2,4,30,70,20,12|
00000540  37 2c 30 2c 30 2c 2d 31  32 37 2c 31 32 36 2c 30  |7,0,0,-127,126,0|
00000550  0d 01 90 2e e2 33 2c 31  2c 33 2c 2d 33 2c 33 2c  |.....3,1,3,-3,3,|
00000560  32 30 2c 32 30 2c 32 30  2c 31 32 37 2c 30 2c 2d  |20,20,20,127,0,-|
00000570  31 32 37 2c 2d 31 32 37  2c 31 32 36 2c 30 0d 01  |127,-127,126,0..|
00000580  9a 23 e2 34 2c 30 2c 31  2c 33 2c 31 2c 32 2c 32  |.#.4,0,1,3,1,2,2|
00000590  2c 33 2c 30 2c 2d 31 2c  30 2c 30 2c 31 32 30 2c  |,3,0,-1,0,0,120,|
000005a0  35 0d 01 a4 84 eb 36 3a  f1 8a 31 32 2c 32 30 29  |5.....6:..12,20)|
000005b0  22 53 54 4f 50 20 54 48  45 20 54 41 50 45 22 3b  |"STOP THE TAPE";|
000005c0  8a 31 32 2c 32 31 29 22  53 54 4f 50 20 54 48 45  |.12,21)"STOP THE|
000005d0  20 54 41 50 45 22 3b 3a  f5 20 e3 20 58 3d 31 20  | TAPE";:. . X=1 |
000005e0  b8 20 31 45 33 3a d4 26  31 31 2c 2d 31 30 2c 58  |. 1E3:.&11,-10,X|
000005f0  2c 31 3a ed 3a f1 8a 38  2c 32 34 29 22 50 72 65  |,1:.:..8,24)"Pre|
00000600  73 73 20 61 6e 79 20 6b  65 79 20 74 6f 20 73 74  |ss any key to st|
00000610  61 72 74 2e 22 3b 3a 44  3d a6 28 34 30 30 29 3a  |art.";:D=.(400):|
00000620  fd 20 ac 20 44 0d 01 ae  1f eb 30 3a ef 31 39 2c  |. . D.....0:.19,|
00000630  37 2c 32 3b 30 3b 32 33  3b 38 32 30 32 3b 30 3b  |7,2;0;23;8202;0;|
00000640  30 3b 30 3b 0d 01 b8 17  ef 33 31 2c 30 2c 31 31  |0;0;.....31,0,11|
00000650  2c 32 39 2c 31 34 30 3b  30 3b 20 0d 01 c2 13 e3  |,29,140;0; .....|
00000660  20 58 3d 30 b8 31 30 30  30 20 88 20 32 30 0d 01  | X=0.1000 . 20..|
00000670  cc 43 e7 20 58 3c 3d 35  30 30 20 ef 32 35 2c 34  |.C. X<=500 .25,4|
00000680  2c 58 3b 34 3b 32 35 2c  35 2c 35 30 30 3b 58 2b  |,X;4;25,5,500;X+|
00000690  34 3b 32 35 2c 34 2c 58  3b 31 30 30 30 3b 32 35  |4;25,4,X;1000;25|
000006a0  2c 35 2c 35 30 30 3b 31  30 30 30 2d 58 3b 3a ed  |,5,500;1000-X;:.|
000006b0  58 0d 01 d6 3c ef 32 35  2c 34 2c 35 30 30 3b 28  |X...<.25,4,500;(|
000006c0  31 30 30 30 2d 58 29 2b  34 3b 32 35 2c 35 2c 58  |1000-X)+4;25,5,X|
000006d0  3b 34 3b 32 35 2c 34 2c  35 30 30 3b 58 3b 32 35  |;4;25,4,500;X;25|
000006e0  2c 35 2c 58 3b 31 30 30  30 3b 3a ed 58 0d 01 e0  |,5,X;1000;:.X...|
000006f0  15 41 24 3d 22 57 41 52  50 22 3a e3 20 58 3d 31  |.A$="WARP":. X=1|
00000700  b8 38 0d 01 ea 24 e7 20  58 3c 35 20 f1 8a 34 30  |.8...$. X<5 ..40|
00000710  2d 58 29 3b c2 41 24 2c  58 29 3b 8a 34 30 29 3b  |-X);.A$,X);.40);|
00000720  c0 41 24 2c 58 29 0d 01  f4 32 e7 20 58 3e 34 20  |.A$,X)...2. X>4 |
00000730  41 24 3d 22 48 4f 4c 45  22 3a f1 8a 33 31 2b 58  |A$="HOLE":..31+X|
00000740  29 3b c2 41 24 2c 39 2d  58 29 3b 8a 34 30 29 3b  |);.A$,9-X);.40);|
00000750  c0 41 24 2c 39 2d 58 29  0d 01 fe 1d ed 58 3a ef  |.A$,9-X).....X:.|
00000760  32 38 2c 35 32 2c 31 38  2c 37 36 2c 31 35 3a f2  |28,52,18,76,15:.|
00000770  44 28 35 30 29 0d 02 08  30 d4 31 2c 31 2c 31 30  |D(50)...0.1,1,10|
00000780  30 2c 32 35 35 3a e3 58  3d 35 b8 34 39 39 3a ef  |0,255:.X=5.499:.|
00000790  31 39 2c 31 2c 28 58 20  83 37 29 2b 31 3b 30 3b  |19,1,(X .7)+1;0;|
000007a0  3a ed 3a d6 4f 0d 02 12  1c f1 22 50 6c 65 61 73  |:.:.O....."Pleas|
000007b0  65 20 77 61 69 74 20 77  68 69 6c 65 20 74 68 65  |e wait while the|
000007c0  22 0d 02 1c 1e f1 27 22  4d 61 69 6e 20 50 72 6f  |".....'"Main Pro|
000007d0  67 72 61 6d 20 69 73 20  6c 6f 61 64 65 64 22 0d  |gram is loaded".|
000007e0  02 26 26 f2 44 28 34 30  30 29 3a e3 20 49 56 25  |.&&.D(400):. IV%|
000007f0  3d 26 34 30 34 b8 26 34  36 38 88 34 3a 3f 49 56  |=&404.&468.4:?IV|
00000800  25 3d 30 3a ed 0d 02 30  66 fb 31 32 39 3a fb 30  |%=0:...0f.129:.0|
00000810  3a db 3a f1 22 20 20 41  52 52 4f 57 20 6b 65 79  |:.:."  ARROW key|
00000820  73 20 2d 20 4d 6f 76 65  6d 65 6e 74 22 27 22 20  |s - Movement"'" |
00000830  20 66 31 20 26 20 66 32  20 2d 20 43 61 6e 6e 6f  | f1 & f2 - Canno|
00000840  6e 73 22 27 22 20 20 66  33 20 2d 20 54 6f 72 70  |ns"'"  f3 - Torp|
00000850  65 64 6f 22 27 22 20 20  66 34 20 20 4c 61 73 65  |edo"'"  f4  Lase|
00000860  72 22 3b 3a fb 31 3a fb  31 32 38 0d 02 3a 15 ef  |r";:.1:.128..:..|
00000870  32 38 2c 30 2c 32 30 2c  35 32 2c 31 31 2c 31 32  |28,0,20,52,11,12|
00000880  0d 02 44 16 41 24 3d 22  57 41 52 50 22 3a f1 3a  |..D.A$="WARP":.:|
00000890  e3 58 3d 31 b8 38 0d 02  4e 24 e7 20 58 3c 35 20  |.X=1.8..N$. X<5 |
000008a0  f1 8a 33 30 29 3b c0 41  24 2c 58 29 3b 8a 34 39  |..30);.A$,X);.49|
000008b0  2d 58 29 3b c2 41 24 2c  58 29 0d 02 58 32 e7 20  |-X);.A$,X)..X2. |
000008c0  58 3e 34 20 41 24 3d 22  48 4f 4c 45 22 3a f1 8a  |X>4 A$="HOLE":..|
000008d0  33 30 29 3b c0 41 24 2c  39 2d 58 29 3b 8a 58 2b  |30);.A$,9-X);.X+|
000008e0  34 30 29 3b c2 41 24 2c  39 2d 58 29 0d 02 62 17  |40);.A$,9-X)..b.|
000008f0  ed 58 3a ef 32 38 2c 30  2c 32 31 2c 32 38 2c 36  |.X:.28,0,21,28,6|
00000900  2c 31 32 0d 02 6c 46 ef  32 35 2c 34 2c 33 34 30  |,12..lF.25,4,340|
00000910  3b 36 37 32 3b 32 35 2c  35 2c 36 34 34 3b 36 37  |;672;25,5,644;67|
00000920  32 3b 32 35 2c 35 2c 36  34 34 3b 33 35 38 3b 32  |2;25,5,644;358;2|
00000930  35 2c 35 2c 33 34 30 3b  33 35 38 3b 32 35 2c 35  |5,5,340;358;25,5|
00000940  2c 33 34 30 3b 36 37 32  3b 0d 02 76 39 ef 32 35  |,340;672;..v9.25|
00000950  2c 34 2c 36 34 36 3b 36  37 32 3b 32 35 2c 35 2c  |,4,646;672;25,5,|
00000960  36 34 36 3b 33 35 38 3b  32 35 2c 34 2c 33 33 38  |646;358;25,4,338|
00000970  3b 33 35 38 3b 32 35 2c  35 2c 33 33 38 3b 36 37  |;358;25,5,338;67|
00000980  32 3b 0d 02 80 46 ef 32  35 2c 35 2c 34 30 30 3b  |2;...F.25,5,400;|
00000990  36 39 30 3b 32 35 2c 35  2c 34 37 38 3b 36 39 30  |690;25,5,478;690|
000009a0  3b 32 35 2c 34 2c 35 32  38 3b 36 39 30 3b 32 35  |;25,4,528;690;25|
000009b0  2c 35 2c 36 37 35 3b 36  39 30 3b 32 35 2c 35 2c  |,5,675;690;25,5,|
000009c0  36 34 35 3b 36 37 32 3b  0d 02 8a 39 ef 32 35 2c  |645;672;...9.25,|
000009d0  34 2c 36 37 35 3b 36 39  30 3b 32 35 2c 35 2c 36  |4,675;690;25,5,6|
000009e0  37 35 3b 36 39 30 3b 32  35 2c 35 2c 36 37 35 3b  |75;690;25,5,675;|
000009f0  33 38 30 3b 32 35 2c 35  2c 36 34 35 3b 33 35 38  |380;25,5,645;358|
00000a00  3b 0d 02 94 30 ef 32 35  2c 34 2c 36 37 37 3b 36  |;...0.25,4,677;6|
00000a10  39 30 3b 32 35 2c 35 2c  36 37 37 3b 33 38 30 3b  |90;25,5,677;380;|
00000a20  32 38 2c 33 35 2c 31 39  2c 34 33 2c 31 32 2c 31  |28,35,19,43,12,1|
00000a30  32 0d 02 9e 0a f2 44 28  38 36 29 0d 02 a8 1d 41  |2.....D(86)....A|
00000a40  24 3d 22 50 52 4f 47 52  41 4d 4d 49 4e 47 20 42  |$="PROGRAMMING B|
00000a50  59 2e 2e 2e 2e 2e 2e 22  0d 02 b2 1a 41 3d 2b 31  |Y......"....A=+1|
00000a60  3a 43 3d 30 3a e3 20 58  3d 31 20 b8 20 a9 28 41  |:C=0:. X=1 . .(A|
00000a70  24 29 0d 02 bc 15 ef 31  39 2c 31 2c 36 3b 30 3b  |$).....19,1,6;0;|
00000a80  3a f2 44 28 31 33 29 0d  02 c6 18 e7 20 43 2b 41  |:.D(13)..... C+A|
00000a90  3e 37 20 84 20 43 2b 41  3c 30 20 41 3d 2d 41 0d  |>7 . C+A<0 A=-A.|
00000aa0  02 d0 18 d4 20 26 31 31  2c 34 2c 31 30 30 2c 32  |.... &11,4,100,2|
00000ab0  30 3a 43 3d 43 2b 41 0d  02 da 13 f1 8a 43 2c 37  |0:C=C+A......C,7|
00000ac0  29 3b c1 41 24 2c 58 2c  31 29 0d 02 e4 0e ef 31  |);.A$,X,1).....1|
00000ad0  39 2c 31 2c 32 3b 30 3b  0d 02 ee 0a f2 44 28 31  |9,1,2;0;.....D(1|
00000ae0  33 29 0d 02 f8 1b ed 58  3a 41 24 3d 22 52 49 43  |3).....X:A$="RIC|
00000af0  48 41 52 44 20 53 4e 4f  57 44 4f 4e 22 0d 03 02  |HARD SNOWDON"...|
00000b00  11 e3 20 58 3d 31 20 b8  20 a9 28 41 24 29 0d 03  |.. X=1 . .(A$)..|
00000b10  0c 15 ef 31 39 2c 31 2c  36 3b 30 3b 3a f2 44 28  |...19,1,6;0;:.D(|
00000b20  31 33 29 0d 03 16 17 f1  8a 58 20 83 20 38 2c 37  |13)......X . 8,7|
00000b30  29 3b c1 41 24 2c 58 2c  31 29 0d 03 20 23 d4 26  |);.A$,X,1).. #.&|
00000b40  31 31 2c 34 2c 32 30 30  2c 32 30 3a ef 31 39 2c  |11,4,200,20:.19,|
00000b50  31 2c 32 3b 30 3b 3a f2  44 28 31 33 29 0d 03 2a  |1,2;0;:.D(13)..*|
00000b60  08 ed 58 3a db 0d 03 34  0b f2 44 28 32 39 36 29  |..X:...4..D(296)|
00000b70  0d 03 3e 0c d4 31 2c 30  2c 30 2c 30 0d 03 48 67  |..>..1,0,0,0..Hg|
00000b80  ef 32 38 2c 35 32 2c 31  39 2c 37 39 2c 31 35 2c  |.28,52,19,79,15,|
00000b90  31 32 3a f1 22 20 20 41  52 52 4f 57 20 6b 65 79  |12:."  ARROW key|
00000ba0  73 20 2d 20 4d 6f 76 65  6d 65 6e 74 22 27 22 20  |s - Movement"'" |
00000bb0  20 66 31 20 26 20 66 32  20 2d 20 43 61 6e 6e 6f  | f1 & f2 - Canno|
00000bc0  6e 73 22 27 22 20 20 66  33 20 2d 20 54 6f 72 70  |ns"'"  f3 - Torp|
00000bd0  65 64 6f 22 27 22 20 20  66 34 20 2d 20 4c 61 73  |edo"'"  f4 - Las|
00000be0  65 72 22 0d 03 52 1b fb  31 32 39 3a fb 30 3a ef  |er"..R..129:.0:.|
00000bf0  32 38 2c 33 35 2c 31 39  2c 34 33 2c 31 32 0d 03  |28,35,19,43,12..|
00000c00  5c 21 f1 8a 30 2c 32 29  22 53 74 61 72 74 20 74  |\!..0,2)"Start t|
00000c10  68 65 22 8a 32 2c 33 29  22 74 61 70 65 2e 22 0d  |he".2,3)"tape.".|
00000c20  03 66 16 d0 3d 26 45 30  30 3a d7 22 57 41 52 50  |.f..=&E00:."WARP|
00000c30  44 41 54 41 22 0d 03 70  1d dd f2 44 28 41 29 3a  |DATA"..p...D(A):|
00000c40  ea 42 3a 42 3d 91 3a f5  20 fd 20 91 3e 42 2b 41  |.B:B=.:. . .>B+A|
00000c50  3a e1 0d ff                                       |:...|
00000c54