� MARSLANDER
$� Electron Introductory Cassette
� Author J.M.
( 
2�
<��M%=1234��DF@��M%=5678��DP@��5:�19,3,4;0;:�2:�0,5)"Does your cassette"''"recorder have motor"''"control (Y/N)?";:�(��&DF)=�"Y"�M%=5678:�DP@�M%=1234
F��1,-15,121,60:�5:�19,3,4;0;:�1:�8,9)"STOP";:�3:�6,13)"the tape":�2:�4,25)"Press SPACE"�4,27)"to continue":���=32:�&11,0,0,0
P
��:�DZ@
Z� MAP 255,BLOCK 8
dosword=&FFF1
n�INITDBL
x(�4:�OFF:�DBL("Mars Lander",12):�WAIT
��4:�OFF:�instructions
��
�� 1
��define
�� All definitions
�� � � �DbG
�	�mars
�� Draw surface of Mars
��
�� airbourne% � �rotate
�%� Check the rotate keys (Z and X)
��spaceship(X%,Y,Z%)
�%� Plot new position of spacecraft

;� airbourne% � � �X%+8,Y-30)=1 � �X%+24,Y-30)=1 � �land

*� Touchdown on Mars (when feet go red)

� �(-99) � �rocket(Z%)

"1� Fire rocket-motor when space-bar is pressed

,
�position

6&� Calculate position of spacecraft

@� X%<0 � X%>1270

J.� Prevent spacecraft from going off screen

T� X%<0 � X%=1270 � X%=0

^
� �dR@

h 

r
� �define

|I� Turn off auto-repeat. Define text window, characters, and variables

�*FX11,0

��28,0,18,36,6

�!�23,224,8,20,62,34,34,62,8,20

�"�23,225,0,0,60,166,69,166,60,0

�!�23,226,20,8,62,34,34,62,20,8

�#�23,227,0,0,60,101,162,101,60,0

�+�23,228,255,255,255,255,255,255,255,255

� �23,229,0,0,0,0,0,66,102,255

��5

�X%=�(1100)+90:Y=�(500)+460:Z%=�(4):VY%=�(100)-50:VX%=(�(33)-17)*15:fuel%=100:score%=0:site%=0:newsite%=0:airbourne%=�:roll%=�

��

� 

�� �mars
#� Draw a random Martian surface
�0,1
� x%,y%
&�
0x%=x%+�(100):y%=�(300)
:�85,x%,y%:�85,x%,0
Dx%=x%+�(60)
N�85,x%,y%:�85,x%,0
X
� x%>1280
b�
l 
v� �position
�*� Calculate new position of spacecraft
�N� airbourne% � VY%=VY%+2 � � �X%+8,Y-30)=0 � �X%+24,Y-30)=0 � airbourne%=�
�X%=X%+VX%/5:Y=Y-VY%/5
�'� Y<25 � �spaceship(X%,30,Z%):�land
��
� 
�
� �rotate
�:� If X has been pressed then turn 90 degrees clockwise
�?� If Z has been pressed then turn 90 degrees anti-clockwise
�left_right$=�(&DF � �0)
�K� left_right$="X" � Z%=Z% � 4 +1 � � left_right$="Z" � Z%=(Z%+2) � 4 +1
�� roll% � Z%=�(4)
��
 
*� �spaceship(range%,height,direction%)
>� Delete spacecraft at old position and plot it at new one
 �2,1
*
�8,228
4� range%,height
>�1,2
H�(223+direction%)
R�
\ 
f� �rocket(direction%)
p@� If there is any fuel then fire rocket-motor and make sound
z� fuel% � fuel%=fuel%-1 � �
�*� fuel%=29 � � 1,-1,60,10 � � 0,-1,4,6
�&� direction% � �tXC,�tbC,�tlC,�tvC
�VY%=VY%-10:�
�VX%=VX%+15:�
�VY%=VY%+20:�
�VX%=VX%-15:�
� 
�� �land
�;� Test for flat surface, attitude, and speed on landing
�@� If these are all good then set a distance for next landing
�speed%=�(VX%^2+VY%^2)
�*� �X%+8,Y-30) � �X%+24,Y-30) � �roll:�
��4
"� roll% � Z%>1 � Y<25 � �crash
q� speed%<10 � �"PERFECT LANDING"''� � speed%<30 � �"SAFE LANDING"''� � speed%<50 � �"BUMPY LANDING"''� �crash
s� �(X%-site%)<newsite% � X%-site%+1280<newsite% � site%-X%+1280<newsite% � �"but not far enough !!!!!!"':� �TnD
$Hfuel%=fuel%+30:newsite%=�(400)+50:score%=score%+�(50/(speed%+.1))*10
.Y� fuel% � VX%=0:VY%=0:site%=X%:airbourne%=� � �"and you ran out of fuel"':�WAIT:�tL@
8G�"You must now fly to another"'"landing site at least"'"this far ";
B� �newsite%/30,"_");
LA�" away"''"Your fuel load is ";fuel%;'"Your score is ";score%
V"� �(-99) � � �DVD � � � �(-99)
`�:�5
j�
t 
~� �roll
�*� Topple the spacecraft and make sound
�'� � roll% � roll%=�:fuel%=0:*FX21,4
�� 0,-1,5,3
�N� �X%+8,Y-30) � Z%=Z% � 4 +1:VX%=speed%/2 � Z%=(Z%+2) � 4 +1:VX%=-speed%/2
��
� 
�� �crash
�F� Print score and details of  crash; make sound and re-run program
�*FX21,4
��0,-10,6,20
��5,127,229,4
�A�"You score ";score%''"You hit the ground at ";speed%;"m/s"''
	�WAIT

	�tL@
�
 
(� �instructions
2-�''''�3"The  object  of  this game is to"
<)�3"land your spaceship successfully"
F)�3"on a flat section  of the planet"
P�3"Mars."'
Z%�3"To control your ship, use:-"'
d�10"Z - Rotate left"
n�10"X - Rotate right"
x�6"SPACE - Thrust"'
�)�3"Your  speed  on  landing must be"
�)�3"below  50m/s  to avoid  a crash,"
�#�3"and your fuel is limited."'
�)�3"A  note  will sound when you are"
��3"about to run out."'
�)�3"If  you  land  successfully, you"
�)�3"will  be  asked  to take off and"
�)�3"land  again,  a certain distance"
��3"away."'
�
�SPACE
��
� 
�
��WAIT
*FX15,1
	NOW=�
�
"	A%=�0
,#�(A%<>-1 � A%<>�" ")� �-NOW>500
6�
@ 
J��SPACE
T*�CEN("Press SPACE BAR to continue",30)
^*FX15,1
h
���=32
r�
| 
�$��CEN(A$,y%) �19-�A$/2,y%)A$;:�
� 
���OFF �23,1,0;0;0;0;:�
� 
�ݤYN
�Y%=�
�X%=�
�#X%=X%�&DF:� �"YN",�X%)=0 � �dBF
�ANS%=(X%=�"Y")
�Y%=�
�
� X%,8
�	=ANS%
� 
3��INITDBL $MAP=�255,�0):MAP?255=0:CHARPTR=224:�
 
b��DBL(A$,y%)B$="":C$="":�CH%=1��A$:K%=�CHAR(��A$,CH%,1)):B$=B$+�K%:C$=C$+�(K%+1):�:K%=19-�A$/2
&3DBL$=�31+�K%+�y%+B$+�31+�K%+�(y%+1)+C$:�DBL$;:�
0 
:kݤCHAR(C%)�MAP?C%�=MAP?C%��CHARPTR>=256� �MAP?C%=CHARPTR:?BLOCK=C%:A%=10:X%=BLOCK:Y%=BLOCK �256:�osword
DR�J%=0�1:�23,CHARPTR+J%:�I%=2�9:�BLOCK?(J%*4+I%�2):�,:CHARPTR=CHARPTR+2:=MAP?C%
N 
X� Error Handler
b!� �<>17 �7:�:�" at line ";�:�
lL�4:�CEN("Do you want to go on to",12):�CEN("the next program (Y/N)?",13)
v� ��YN �:�DZ@
��'"Play tape"'
�	*FX12
��""
�

00000000  0d 00 0a 10 f4 20 4d 41  52 53 4c 41 4e 44 45 52  |..... MARSLANDER|
00000010  0d 00 14 24 f4 20 45 6c  65 63 74 72 6f 6e 20 49  |...$. Electron I|
00000020  6e 74 72 6f 64 75 63 74  6f 72 79 20 43 61 73 73  |ntroductory Cass|
00000030  65 74 74 65 0d 00 1e 11  f4 20 41 75 74 68 6f 72  |ette..... Author|
00000040  20 4a 2e 4d 2e 0d 00 28  05 20 0d 00 32 07 ee 85  | J.M...(. ..2...|
00000050  f9 0d 00 3c 99 e7 4d 25  3d 31 32 33 34 8c 8d 44  |...<..M%=1234..D|
00000060  46 40 8b e7 4d 25 3d 35  36 37 38 8c 8d 44 50 40  |F@..M%=5678..DP@|
00000070  8b eb 35 3a ef 31 39 2c  33 2c 34 3b 30 3b 3a fb  |..5:.19,3,4;0;:.|
00000080  32 3a f1 8a 30 2c 35 29  22 44 6f 65 73 20 79 6f  |2:..0,5)"Does yo|
00000090  75 72 20 63 61 73 73 65  74 74 65 22 27 27 22 72  |ur cassette"''"r|
000000a0  65 63 6f 72 64 65 72 20  68 61 76 65 20 6d 6f 74  |ecorder have mot|
000000b0  6f 72 22 27 27 22 63 6f  6e 74 72 6f 6c 20 28 59  |or"''"control (Y|
000000c0  2f 4e 29 3f 22 3b 3a e7  28 a5 80 26 44 46 29 3d  |/N)?";:.(..&DF)=|
000000d0  97 22 59 22 8c 4d 25 3d  35 36 37 38 3a e5 8d 44  |."Y".M%=5678:..D|
000000e0  50 40 8b 4d 25 3d 31 32  33 34 0d 00 46 82 d4 31  |P@.M%=1234..F..1|
000000f0  2c 2d 31 35 2c 31 32 31  2c 36 30 3a eb 35 3a ef  |,-15,121,60:.5:.|
00000100  31 39 2c 33 2c 34 3b 30  3b 3a fb 31 3a f1 8a 38  |19,3,4;0;:.1:..8|
00000110  2c 39 29 22 53 54 4f 50  22 3b 3a fb 33 3a f1 8a  |,9)"STOP";:.3:..|
00000120  36 2c 31 33 29 22 74 68  65 20 74 61 70 65 22 3a  |6,13)"the tape":|
00000130  fb 32 3a f1 8a 34 2c 32  35 29 22 50 72 65 73 73  |.2:..4,25)"Press|
00000140  20 53 50 41 43 45 22 8a  34 2c 32 37 29 22 74 6f  | SPACE".4,27)"to|
00000150  20 63 6f 6e 74 69 6e 75  65 22 3a f5 fd a5 3d 33  | continue":...=3|
00000160  32 3a d4 26 31 31 2c 30  2c 30 2c 30 0d 00 50 0d  |2:.&11,0,0,0..P.|
00000170  ee 85 d8 3a e5 8d 44 5a  40 0d 00 5a 15 de 20 4d  |...:..DZ@..Z.. M|
00000180  41 50 20 32 35 35 2c 42  4c 4f 43 4b 20 38 0d 00  |AP 255,BLOCK 8..|
00000190  64 10 6f 73 77 6f 72 64  3d 26 46 46 46 31 0d 00  |d.osword=&FFF1..|
000001a0  6e 0c f2 49 4e 49 54 44  42 4c 0d 00 78 28 eb 34  |n..INITDBL..x(.4|
000001b0  3a f2 4f 46 46 3a f2 44  42 4c 28 22 4d 61 72 73  |:.OFF:.DBL("Mars|
000001c0  20 4c 61 6e 64 65 72 22  2c 31 32 29 3a f2 57 41  | Lander",12):.WA|
000001d0  49 54 0d 00 82 19 eb 34  3a f2 4f 46 46 3a f2 69  |IT.....4:.OFF:.i|
000001e0  6e 73 74 72 75 63 74 69  6f 6e 73 0d 00 8c 05 d8  |nstructions.....|
000001f0  0d 00 96 07 eb 20 31 0d  00 a0 0b f2 64 65 66 69  |..... 1.....defi|
00000200  6e 65 0d 00 aa 15 f4 20  41 6c 6c 20 64 65 66 69  |ne..... All defi|
00000210  6e 69 74 69 6f 6e 73 0d  00 b4 0e ee 20 85 20 e5  |nitions..... . .|
00000220  20 8d 44 62 47 0d 00 be  09 f2 6d 61 72 73 0d 00  | .DbG.....mars..|
00000230  c8 1a f4 20 44 72 61 77  20 73 75 72 66 61 63 65  |... Draw surface|
00000240  20 6f 66 20 4d 61 72 73  0d 00 d2 05 f5 0d 00 dc  | of Mars........|
00000250  1a e7 20 61 69 72 62 6f  75 72 6e 65 25 20 8c 20  |.. airbourne% . |
00000260  f2 72 6f 74 61 74 65 0d  00 e6 25 f4 20 43 68 65  |.rotate...%. Che|
00000270  63 6b 20 74 68 65 20 72  6f 74 61 74 65 20 6b 65  |ck the rotate ke|
00000280  79 73 20 28 5a 20 61 6e  64 20 58 29 0d 00 f0 17  |ys (Z and X)....|
00000290  f2 73 70 61 63 65 73 68  69 70 28 58 25 2c 59 2c  |.spaceship(X%,Y,|
000002a0  5a 25 29 0d 00 fa 25 f4  20 50 6c 6f 74 20 6e 65  |Z%)...%. Plot ne|
000002b0  77 20 70 6f 73 69 74 69  6f 6e 20 6f 66 20 73 70  |w position of sp|
000002c0  61 63 65 63 72 61 66 74  0d 01 04 3b e7 20 61 69  |acecraft...;. ai|
000002d0  72 62 6f 75 72 6e 65 25  20 8c 20 e7 20 b0 58 25  |rbourne% . . .X%|
000002e0  2b 38 2c 59 2d 33 30 29  3d 31 20 84 20 b0 58 25  |+8,Y-30)=1 . .X%|
000002f0  2b 32 34 2c 59 2d 33 30  29 3d 31 20 8c 20 f2 6c  |+24,Y-30)=1 . .l|
00000300  61 6e 64 0d 01 0e 2a f4  20 54 6f 75 63 68 64 6f  |and...*. Touchdo|
00000310  77 6e 20 6f 6e 20 4d 61  72 73 20 28 77 68 65 6e  |wn on Mars (when|
00000320  20 66 65 65 74 20 67 6f  20 72 65 64 29 0d 01 18  | feet go red)...|
00000330  1a e7 20 a6 28 2d 39 39  29 20 8c 20 f2 72 6f 63  |.. .(-99) . .roc|
00000340  6b 65 74 28 5a 25 29 0d  01 22 31 f4 20 46 69 72  |ket(Z%).."1. Fir|
00000350  65 20 72 6f 63 6b 65 74  2d 6d 6f 74 6f 72 20 77  |e rocket-motor w|
00000360  68 65 6e 20 73 70 61 63  65 2d 62 61 72 20 69 73  |hen space-bar is|
00000370  20 70 72 65 73 73 65 64  0d 01 2c 0d f2 70 6f 73  | pressed..,..pos|
00000380  69 74 69 6f 6e 0d 01 36  26 f4 20 43 61 6c 63 75  |ition..6&. Calcu|
00000390  6c 61 74 65 20 70 6f 73  69 74 69 6f 6e 20 6f 66  |late position of|
000003a0  20 73 70 61 63 65 63 72  61 66 74 0d 01 40 14 fd  | spacecraft..@..|
000003b0  20 58 25 3c 30 20 84 20  58 25 3e 31 32 37 30 0d  | X%<0 . X%>1270.|
000003c0  01 4a 2e f4 20 50 72 65  76 65 6e 74 20 73 70 61  |.J.. Prevent spa|
000003d0  63 65 63 72 61 66 74 20  66 72 6f 6d 20 67 6f 69  |cecraft from goi|
000003e0  6e 67 20 6f 66 66 20 73  63 72 65 65 6e 0d 01 54  |ng off screen..T|
000003f0  1b e7 20 58 25 3c 30 20  8c 20 58 25 3d 31 32 37  |.. X%<0 . X%=127|
00000400  30 20 8b 20 58 25 3d 30  0d 01 5e 0a e5 20 8d 64  |0 . X%=0..^.. .d|
00000410  52 40 0d 01 68 05 20 0d  01 72 0d dd 20 f2 64 65  |R@..h. ..r.. .de|
00000420  66 69 6e 65 0d 01 7c 49  f4 20 54 75 72 6e 20 6f  |fine..|I. Turn o|
00000430  66 66 20 61 75 74 6f 2d  72 65 70 65 61 74 2e 20  |ff auto-repeat. |
00000440  44 65 66 69 6e 65 20 74  65 78 74 20 77 69 6e 64  |Define text wind|
00000450  6f 77 2c 20 63 68 61 72  61 63 74 65 72 73 2c 20  |ow, characters, |
00000460  61 6e 64 20 76 61 72 69  61 62 6c 65 73 0d 01 86  |and variables...|
00000470  0b 2a 46 58 31 31 2c 30  0d 01 90 11 ef 32 38 2c  |.*FX11,0.....28,|
00000480  30 2c 31 38 2c 33 36 2c  36 0d 01 9a 21 ef 32 33  |0,18,36,6...!.23|
00000490  2c 32 32 34 2c 38 2c 32  30 2c 36 32 2c 33 34 2c  |,224,8,20,62,34,|
000004a0  33 34 2c 36 32 2c 38 2c  32 30 0d 01 a4 22 ef 32  |34,62,8,20...".2|
000004b0  33 2c 32 32 35 2c 30 2c  30 2c 36 30 2c 31 36 36  |3,225,0,0,60,166|
000004c0  2c 36 39 2c 31 36 36 2c  36 30 2c 30 0d 01 ae 21  |,69,166,60,0...!|
000004d0  ef 32 33 2c 32 32 36 2c  32 30 2c 38 2c 36 32 2c  |.23,226,20,8,62,|
000004e0  33 34 2c 33 34 2c 36 32  2c 32 30 2c 38 0d 01 b8  |34,34,62,20,8...|
000004f0  23 ef 32 33 2c 32 32 37  2c 30 2c 30 2c 36 30 2c  |#.23,227,0,0,60,|
00000500  31 30 31 2c 31 36 32 2c  31 30 31 2c 36 30 2c 30  |101,162,101,60,0|
00000510  0d 01 c2 2b ef 32 33 2c  32 32 38 2c 32 35 35 2c  |...+.23,228,255,|
00000520  32 35 35 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |255,255,255,255,|
00000530  32 35 35 2c 32 35 35 2c  32 35 35 0d 01 cc 20 ef  |255,255,255... .|
00000540  32 33 2c 32 32 39 2c 30  2c 30 2c 30 2c 30 2c 30  |23,229,0,0,0,0,0|
00000550  2c 36 36 2c 31 30 32 2c  32 35 35 0d 01 d6 06 ef  |,66,102,255.....|
00000560  35 0d 01 e0 81 58 25 3d  b3 28 31 31 30 30 29 2b  |5....X%=.(1100)+|
00000570  39 30 3a 59 3d b3 28 35  30 30 29 2b 34 36 30 3a  |90:Y=.(500)+460:|
00000580  5a 25 3d b3 28 34 29 3a  56 59 25 3d b3 28 31 30  |Z%=.(4):VY%=.(10|
00000590  30 29 2d 35 30 3a 56 58  25 3d 28 b3 28 33 33 29  |0)-50:VX%=(.(33)|
000005a0  2d 31 37 29 2a 31 35 3a  66 75 65 6c 25 3d 31 30  |-17)*15:fuel%=10|
000005b0  30 3a 73 63 6f 72 65 25  3d 30 3a 73 69 74 65 25  |0:score%=0:site%|
000005c0  3d 30 3a 6e 65 77 73 69  74 65 25 3d 30 3a 61 69  |=0:newsite%=0:ai|
000005d0  72 62 6f 75 72 6e 65 25  3d b9 3a 72 6f 6c 6c 25  |rbourne%=.:roll%|
000005e0  3d a3 0d 01 ea 05 e1 0d  01 f4 05 20 0d 01 fe 0b  |=.......... ....|
000005f0  dd 20 f2 6d 61 72 73 0d  02 08 23 f4 20 44 72 61  |. .mars...#. Dra|
00000600  77 20 61 20 72 61 6e 64  6f 6d 20 4d 61 72 74 69  |w a random Marti|
00000610  61 6e 20 73 75 72 66 61  63 65 0d 02 12 08 e6 30  |an surface.....0|
00000620  2c 31 0d 02 1c 0b ea 20  78 25 2c 79 25 0d 02 26  |,1..... x%,y%..&|
00000630  05 f5 0d 02 30 1a 78 25  3d 78 25 2b b3 28 31 30  |....0.x%=x%+.(10|
00000640  30 29 3a 79 25 3d b3 28  33 30 30 29 0d 02 3a 16  |0):y%=.(300)..:.|
00000650  f0 38 35 2c 78 25 2c 79  25 3a f0 38 35 2c 78 25  |.85,x%,y%:.85,x%|
00000660  2c 30 0d 02 44 0f 78 25  3d 78 25 2b b3 28 36 30  |,0..D.x%=x%+.(60|
00000670  29 0d 02 4e 16 f0 38 35  2c 78 25 2c 79 25 3a f0  |)..N..85,x%,y%:.|
00000680  38 35 2c 78 25 2c 30 0d  02 58 0d fd 20 78 25 3e  |85,x%,0..X.. x%>|
00000690  31 32 38 30 0d 02 62 05  e1 0d 02 6c 05 20 0d 02  |1280..b....l. ..|
000006a0  76 0f dd 20 f2 70 6f 73  69 74 69 6f 6e 0d 02 80  |v.. .position...|
000006b0  2a f4 20 43 61 6c 63 75  6c 61 74 65 20 6e 65 77  |*. Calculate new|
000006c0  20 70 6f 73 69 74 69 6f  6e 20 6f 66 20 73 70 61  | position of spa|
000006d0  63 65 63 72 61 66 74 0d  02 8a 4e e7 20 61 69 72  |cecraft...N. air|
000006e0  62 6f 75 72 6e 65 25 20  8c 20 56 59 25 3d 56 59  |bourne% . VY%=VY|
000006f0  25 2b 32 20 8b 20 e7 20  b0 58 25 2b 38 2c 59 2d  |%+2 . . .X%+8,Y-|
00000700  33 30 29 3d 30 20 80 20  b0 58 25 2b 32 34 2c 59  |30)=0 . .X%+24,Y|
00000710  2d 33 30 29 3d 30 20 8c  20 61 69 72 62 6f 75 72  |-30)=0 . airbour|
00000720  6e 65 25 3d b9 0d 02 94  19 58 25 3d 58 25 2b 56  |ne%=.....X%=X%+V|
00000730  58 25 2f 35 3a 59 3d 59  2d 56 59 25 2f 35 0d 02  |X%/5:Y=Y-VY%/5..|
00000740  9e 27 e7 20 59 3c 32 35  20 8c 20 f2 73 70 61 63  |.'. Y<25 . .spac|
00000750  65 73 68 69 70 28 58 25  2c 33 30 2c 5a 25 29 3a  |eship(X%,30,Z%):|
00000760  f2 6c 61 6e 64 0d 02 a8  05 e1 0d 02 b2 05 20 0d  |.land......... .|
00000770  02 bc 0d dd 20 f2 72 6f  74 61 74 65 0d 02 c6 3a  |.... .rotate...:|
00000780  f4 20 49 66 20 58 20 68  61 73 20 62 65 65 6e 20  |. If X has been |
00000790  70 72 65 73 73 65 64 20  74 68 65 6e 20 74 75 72  |pressed then tur|
000007a0  6e 20 39 30 20 64 65 67  72 65 65 73 20 63 6c 6f  |n 90 degrees clo|
000007b0  63 6b 77 69 73 65 0d 02  d0 3f f4 20 49 66 20 5a  |ckwise...?. If Z|
000007c0  20 68 61 73 20 62 65 65  6e 20 70 72 65 73 73 65  | has been presse|
000007d0  64 20 74 68 65 6e 20 74  75 72 6e 20 39 30 20 64  |d then turn 90 d|
000007e0  65 67 72 65 65 73 20 61  6e 74 69 2d 63 6c 6f 63  |egrees anti-cloc|
000007f0  6b 77 69 73 65 0d 02 da  1b 6c 65 66 74 5f 72 69  |kwise....left_ri|
00000800  67 68 74 24 3d bd 28 26  44 46 20 80 20 a6 30 29  |ght$=.(&DF . .0)|
00000810  0d 02 e4 4b e7 20 6c 65  66 74 5f 72 69 67 68 74  |...K. left_right|
00000820  24 3d 22 58 22 20 8c 20  5a 25 3d 5a 25 20 83 20  |$="X" . Z%=Z% . |
00000830  34 20 2b 31 20 8b 20 e7  20 6c 65 66 74 5f 72 69  |4 +1 . . left_ri|
00000840  67 68 74 24 3d 22 5a 22  20 8c 20 5a 25 3d 28 5a  |ght$="Z" . Z%=(Z|
00000850  25 2b 32 29 20 83 20 34  20 2b 31 0d 02 ee 15 e7  |%+2) . 4 +1.....|
00000860  20 72 6f 6c 6c 25 20 8c  20 5a 25 3d b3 28 34 29  | roll% . Z%=.(4)|
00000870  0d 02 f8 05 e1 0d 03 02  05 20 0d 03 0c 2a dd 20  |......... ...*. |
00000880  f2 73 70 61 63 65 73 68  69 70 28 72 61 6e 67 65  |.spaceship(range|
00000890  25 2c 68 65 69 67 68 74  2c 64 69 72 65 63 74 69  |%,height,directi|
000008a0  6f 6e 25 29 0d 03 16 3e  f4 20 44 65 6c 65 74 65  |on%)...>. Delete|
000008b0  20 73 70 61 63 65 63 72  61 66 74 20 61 74 20 6f  | spacecraft at o|
000008c0  6c 64 20 70 6f 73 69 74  69 6f 6e 20 61 6e 64 20  |ld position and |
000008d0  70 6c 6f 74 20 69 74 20  61 74 20 6e 65 77 20 6f  |plot it at new o|
000008e0  6e 65 0d 03 20 08 e6 32  2c 31 0d 03 2a 0a ef 38  |ne.. ..2,1..*..8|
000008f0  2c 32 32 38 0d 03 34 13  ec 20 72 61 6e 67 65 25  |,228..4.. range%|
00000900  2c 68 65 69 67 68 74 0d  03 3e 08 e6 31 2c 32 0d  |,height..>..1,2.|
00000910  03 48 15 ef 28 32 32 33  2b 64 69 72 65 63 74 69  |.H..(223+directi|
00000920  6f 6e 25 29 0d 03 52 05  e1 0d 03 5c 05 20 0d 03  |on%)..R....\. ..|
00000930  66 19 dd 20 f2 72 6f 63  6b 65 74 28 64 69 72 65  |f.. .rocket(dire|
00000940  63 74 69 6f 6e 25 29 0d  03 70 40 f4 20 49 66 20  |ction%)..p@. If |
00000950  74 68 65 72 65 20 69 73  20 61 6e 79 20 66 75 65  |there is any fue|
00000960  6c 20 74 68 65 6e 20 66  69 72 65 20 72 6f 63 6b  |l then fire rock|
00000970  65 74 2d 6d 6f 74 6f 72  20 61 6e 64 20 6d 61 6b  |et-motor and mak|
00000980  65 20 73 6f 75 6e 64 0d  03 7a 1f e7 20 66 75 65  |e sound..z.. fue|
00000990  6c 25 20 8c 20 66 75 65  6c 25 3d 66 75 65 6c 25  |l% . fuel%=fuel%|
000009a0  2d 31 20 8b 20 e1 0d 03  84 2a e7 20 66 75 65 6c  |-1 . ....*. fuel|
000009b0  25 3d 32 39 20 8c 20 d4  20 31 2c 2d 31 2c 36 30  |%=29 . . 1,-1,60|
000009c0  2c 31 30 20 8b 20 d4 20  30 2c 2d 31 2c 34 2c 36  |,10 . . 0,-1,4,6|
000009d0  0d 03 8e 26 ee 20 64 69  72 65 63 74 69 6f 6e 25  |...&. direction%|
000009e0  20 e5 20 8d 74 58 43 2c  8d 74 62 43 2c 8d 74 6c  | . .tXC,.tbC,.tl|
000009f0  43 2c 8d 74 76 43 0d 03  98 10 56 59 25 3d 56 59  |C,.tvC....VY%=VY|
00000a00  25 2d 31 30 3a e1 0d 03  a2 10 56 58 25 3d 56 58  |%-10:.....VX%=VX|
00000a10  25 2b 31 35 3a e1 0d 03  ac 10 56 59 25 3d 56 59  |%+15:.....VY%=VY|
00000a20  25 2b 32 30 3a e1 0d 03  b6 10 56 58 25 3d 56 58  |%+20:.....VX%=VX|
00000a30  25 2d 31 35 3a e1 0d 03  c0 05 20 0d 03 ca 0b dd  |%-15:..... .....|
00000a40  20 f2 6c 61 6e 64 0d 03  d4 3b f4 20 54 65 73 74  | .land...;. Test|
00000a50  20 66 6f 72 20 66 6c 61  74 20 73 75 72 66 61 63  | for flat surfac|
00000a60  65 2c 20 61 74 74 69 74  75 64 65 2c 20 61 6e 64  |e, attitude, and|
00000a70  20 73 70 65 65 64 20 6f  6e 20 6c 61 6e 64 69 6e  | speed on landin|
00000a80  67 0d 03 de 40 f4 20 49  66 20 74 68 65 73 65 20  |g...@. If these |
00000a90  61 72 65 20 61 6c 6c 20  67 6f 6f 64 20 74 68 65  |are all good the|
00000aa0  6e 20 73 65 74 20 61 20  64 69 73 74 61 6e 63 65  |n set a distance|
00000ab0  20 66 6f 72 20 6e 65 78  74 20 6c 61 6e 64 69 6e  | for next landin|
00000ac0  67 0d 03 e8 19 73 70 65  65 64 25 3d b6 28 56 58  |g....speed%=.(VX|
00000ad0  25 5e 32 2b 56 59 25 5e  32 29 0d 03 f2 2a e7 20  |%^2+VY%^2)...*. |
00000ae0  b0 58 25 2b 38 2c 59 2d  33 30 29 20 82 20 b0 58  |.X%+8,Y-30) . .X|
00000af0  25 2b 32 34 2c 59 2d 33  30 29 20 8c 20 f2 72 6f  |%+24,Y-30) . .ro|
00000b00  6c 6c 3a e1 0d 03 fc 06  ef 34 0d 04 06 22 e7 20  |ll:......4...". |
00000b10  72 6f 6c 6c 25 20 84 20  5a 25 3e 31 20 84 20 59  |roll% . Z%>1 . Y|
00000b20  3c 32 35 20 8c 20 f2 63  72 61 73 68 0d 04 10 71  |<25 . .crash...q|
00000b30  e7 20 73 70 65 65 64 25  3c 31 30 20 8c 20 f1 22  |. speed%<10 . ."|
00000b40  50 45 52 46 45 43 54 20  4c 41 4e 44 49 4e 47 22  |PERFECT LANDING"|
00000b50  27 27 8b 20 e7 20 73 70  65 65 64 25 3c 33 30 20  |''. . speed%<30 |
00000b60  8c 20 f1 22 53 41 46 45  20 4c 41 4e 44 49 4e 47  |. ."SAFE LANDING|
00000b70  22 27 27 8b 20 e7 20 73  70 65 65 64 25 3c 35 30  |"''. . speed%<50|
00000b80  20 8c 20 f1 22 42 55 4d  50 59 20 4c 41 4e 44 49  | . ."BUMPY LANDI|
00000b90  4e 47 22 27 27 8b 20 f2  63 72 61 73 68 0d 04 1a  |NG"''. .crash...|
00000ba0  73 e7 20 94 28 58 25 2d  73 69 74 65 25 29 3c 6e  |s. .(X%-site%)<n|
00000bb0  65 77 73 69 74 65 25 20  84 20 58 25 2d 73 69 74  |ewsite% . X%-sit|
00000bc0  65 25 2b 31 32 38 30 3c  6e 65 77 73 69 74 65 25  |e%+1280<newsite%|
00000bd0  20 84 20 73 69 74 65 25  2d 58 25 2b 31 32 38 30  | . site%-X%+1280|
00000be0  3c 6e 65 77 73 69 74 65  25 20 8c 20 f1 22 62 75  |<newsite% . ."bu|
00000bf0  74 20 6e 6f 74 20 66 61  72 20 65 6e 6f 75 67 68  |t not far enough|
00000c00  20 21 21 21 21 21 21 22  27 3a e5 20 8d 54 6e 44  | !!!!!!"':. .TnD|
00000c10  0d 04 24 48 66 75 65 6c  25 3d 66 75 65 6c 25 2b  |..$Hfuel%=fuel%+|
00000c20  33 30 3a 6e 65 77 73 69  74 65 25 3d b3 28 34 30  |30:newsite%=.(40|
00000c30  30 29 2b 35 30 3a 73 63  6f 72 65 25 3d 73 63 6f  |0)+50:score%=sco|
00000c40  72 65 25 2b a8 28 35 30  2f 28 73 70 65 65 64 25  |re%+.(50/(speed%|
00000c50  2b 2e 31 29 29 2a 31 30  0d 04 2e 59 e7 20 66 75  |+.1))*10...Y. fu|
00000c60  65 6c 25 20 8c 20 56 58  25 3d 30 3a 56 59 25 3d  |el% . VX%=0:VY%=|
00000c70  30 3a 73 69 74 65 25 3d  58 25 3a 61 69 72 62 6f  |0:site%=X%:airbo|
00000c80  75 72 6e 65 25 3d a3 20  8b 20 f1 22 61 6e 64 20  |urne%=. . ."and |
00000c90  79 6f 75 20 72 61 6e 20  6f 75 74 20 6f 66 20 66  |you ran out of f|
00000ca0  75 65 6c 22 27 3a f2 57  41 49 54 3a e5 8d 74 4c  |uel"':.WAIT:..tL|
00000cb0  40 0d 04 38 47 f1 22 59  6f 75 20 6d 75 73 74 20  |@..8G."You must |
00000cc0  6e 6f 77 20 66 6c 79 20  74 6f 20 61 6e 6f 74 68  |now fly to anoth|
00000cd0  65 72 22 27 22 6c 61 6e  64 69 6e 67 20 73 69 74  |er"'"landing sit|
00000ce0  65 20 61 74 20 6c 65 61  73 74 22 27 22 74 68 69  |e at least"'"thi|
00000cf0  73 20 66 61 72 20 22 3b  0d 04 42 18 f1 20 c4 6e  |s far ";..B.. .n|
00000d00  65 77 73 69 74 65 25 2f  33 30 2c 22 5f 22 29 3b  |ewsite%/30,"_");|
00000d10  0d 04 4c 41 f1 22 20 61  77 61 79 22 27 27 22 59  |..LA." away"''"Y|
00000d20  6f 75 72 20 66 75 65 6c  20 6c 6f 61 64 20 69 73  |our fuel load is|
00000d30  20 22 3b 66 75 65 6c 25  3b 27 22 59 6f 75 72 20  | ";fuel%;'"Your |
00000d40  73 63 6f 72 65 20 69 73  20 22 3b 73 63 6f 72 65  |score is ";score|
00000d50  25 0d 04 56 22 e7 20 a6  28 2d 39 39 29 20 8c 20  |%..V". .(-99) . |
00000d60  e5 20 8d 44 56 44 20 8b  20 f5 20 fd 20 a6 28 2d  |. .DVD . . . .(-|
00000d70  39 39 29 0d 04 60 08 db  3a ef 35 0d 04 6a 05 e1  |99)..`..:.5..j..|
00000d80  0d 04 74 05 20 0d 04 7e  0b dd 20 f2 72 6f 6c 6c  |..t. ..~.. .roll|
00000d90  0d 04 88 2a f4 20 54 6f  70 70 6c 65 20 74 68 65  |...*. Topple the|
00000da0  20 73 70 61 63 65 63 72  61 66 74 20 61 6e 64 20  | spacecraft and |
00000db0  6d 61 6b 65 20 73 6f 75  6e 64 0d 04 92 27 e7 20  |make sound...'. |
00000dc0  ac 20 72 6f 6c 6c 25 20  8c 20 72 6f 6c 6c 25 3d  |. roll% . roll%=|
00000dd0  b9 3a 66 75 65 6c 25 3d  30 3a 2a 46 58 32 31 2c  |.:fuel%=0:*FX21,|
00000de0  34 0d 04 9c 0e d4 20 30  2c 2d 31 2c 35 2c 33 0d  |4..... 0,-1,5,3.|
00000df0  04 a6 4e e7 20 b0 58 25  2b 38 2c 59 2d 33 30 29  |..N. .X%+8,Y-30)|
00000e00  20 8c 20 5a 25 3d 5a 25  20 83 20 34 20 2b 31 3a  | . Z%=Z% . 4 +1:|
00000e10  56 58 25 3d 73 70 65 65  64 25 2f 32 20 8b 20 5a  |VX%=speed%/2 . Z|
00000e20  25 3d 28 5a 25 2b 32 29  20 83 20 34 20 2b 31 3a  |%=(Z%+2) . 4 +1:|
00000e30  56 58 25 3d 2d 73 70 65  65 64 25 2f 32 0d 04 b0  |VX%=-speed%/2...|
00000e40  05 e1 0d 04 ba 05 20 0d  04 c4 0c dd 20 f2 63 72  |...... ..... .cr|
00000e50  61 73 68 0d 04 ce 46 f4  20 50 72 69 6e 74 20 73  |ash...F. Print s|
00000e60  63 6f 72 65 20 61 6e 64  20 64 65 74 61 69 6c 73  |core and details|
00000e70  20 6f 66 20 20 63 72 61  73 68 3b 20 6d 61 6b 65  | of  crash; make|
00000e80  20 73 6f 75 6e 64 20 61  6e 64 20 72 65 2d 72 75  | sound and re-ru|
00000e90  6e 20 70 72 6f 67 72 61  6d 0d 04 d8 0b 2a 46 58  |n program....*FX|
00000ea0  32 31 2c 34 0d 04 e2 0f  d4 30 2c 2d 31 30 2c 36  |21,4.....0,-10,6|
00000eb0  2c 32 30 0d 04 ec 10 ef  35 2c 31 32 37 2c 32 32  |,20.....5,127,22|
00000ec0  39 2c 34 0d 04 f6 41 f1  22 59 6f 75 20 73 63 6f  |9,4...A."You sco|
00000ed0  72 65 20 22 3b 73 63 6f  72 65 25 27 27 22 59 6f  |re ";score%''"Yo|
00000ee0  75 20 68 69 74 20 74 68  65 20 67 72 6f 75 6e 64  |u hit the ground|
00000ef0  20 61 74 20 22 3b 73 70  65 65 64 25 3b 22 6d 2f  | at ";speed%;"m/|
00000f00  73 22 27 27 0d 05 00 09  f2 57 41 49 54 0d 05 0a  |s"''.....WAIT...|
00000f10  09 e5 8d 74 4c 40 0d 05  14 05 e1 0d 05 1e 05 20  |...tL@......... |
00000f20  0d 05 28 13 dd 20 f2 69  6e 73 74 72 75 63 74 69  |..(.. .instructi|
00000f30  6f 6e 73 0d 05 32 2d f1  27 27 27 27 89 33 22 54  |ons..2-.''''.3"T|
00000f40  68 65 20 20 6f 62 6a 65  63 74 20 20 6f 66 20 20  |he  object  of  |
00000f50  74 68 69 73 20 67 61 6d  65 20 69 73 20 74 6f 22  |this game is to"|
00000f60  0d 05 3c 29 f1 89 33 22  6c 61 6e 64 20 79 6f 75  |..<)..3"land you|
00000f70  72 20 73 70 61 63 65 73  68 69 70 20 73 75 63 63  |r spaceship succ|
00000f80  65 73 73 66 75 6c 6c 79  22 0d 05 46 29 f1 89 33  |essfully"..F)..3|
00000f90  22 6f 6e 20 61 20 66 6c  61 74 20 73 65 63 74 69  |"on a flat secti|
00000fa0  6f 6e 20 20 6f 66 20 74  68 65 20 70 6c 61 6e 65  |on  of the plane|
00000fb0  74 22 0d 05 50 0f f1 89  33 22 4d 61 72 73 2e 22  |t"..P...3"Mars."|
00000fc0  27 0d 05 5a 25 f1 89 33  22 54 6f 20 63 6f 6e 74  |'..Z%..3"To cont|
00000fd0  72 6f 6c 20 79 6f 75 72  20 73 68 69 70 2c 20 75  |rol your ship, u|
00000fe0  73 65 3a 2d 22 27 0d 05  64 19 f1 89 31 30 22 5a  |se:-"'..d...10"Z|
00000ff0  20 2d 20 52 6f 74 61 74  65 20 6c 65 66 74 22 0d  | - Rotate left".|
00001000  05 6e 1a f1 89 31 30 22  58 20 2d 20 52 6f 74 61  |.n...10"X - Rota|
00001010  74 65 20 72 69 67 68 74  22 0d 05 78 18 f1 89 36  |te right"..x...6|
00001020  22 53 50 41 43 45 20 2d  20 54 68 72 75 73 74 22  |"SPACE - Thrust"|
00001030  27 0d 05 82 29 f1 89 33  22 59 6f 75 72 20 20 73  |'...)..3"Your  s|
00001040  70 65 65 64 20 20 6f 6e  20 20 6c 61 6e 64 69 6e  |peed  on  landin|
00001050  67 20 6d 75 73 74 20 62  65 22 0d 05 8c 29 f1 89  |g must be"...)..|
00001060  33 22 62 65 6c 6f 77 20  20 35 30 6d 2f 73 20 20  |3"below  50m/s  |
00001070  74 6f 20 61 76 6f 69 64  20 20 61 20 63 72 61 73  |to avoid  a cras|
00001080  68 2c 22 0d 05 96 23 f1  89 33 22 61 6e 64 20 79  |h,"...#..3"and y|
00001090  6f 75 72 20 66 75 65 6c  20 69 73 20 6c 69 6d 69  |our fuel is limi|
000010a0  74 65 64 2e 22 27 0d 05  a0 29 f1 89 33 22 41 20  |ted."'...)..3"A |
000010b0  20 6e 6f 74 65 20 20 77  69 6c 6c 20 73 6f 75 6e  | note  will soun|
000010c0  64 20 77 68 65 6e 20 79  6f 75 20 61 72 65 22 0d  |d when you are".|
000010d0  05 aa 1b f1 89 33 22 61  62 6f 75 74 20 74 6f 20  |.....3"about to |
000010e0  72 75 6e 20 6f 75 74 2e  22 27 0d 05 b4 29 f1 89  |run out."'...)..|
000010f0  33 22 49 66 20 20 79 6f  75 20 20 6c 61 6e 64 20  |3"If  you  land |
00001100  20 73 75 63 63 65 73 73  66 75 6c 6c 79 2c 20 79  | successfully, y|
00001110  6f 75 22 0d 05 be 29 f1  89 33 22 77 69 6c 6c 20  |ou"...)..3"will |
00001120  20 62 65 20 20 61 73 6b  65 64 20 20 74 6f 20 74  | be  asked  to t|
00001130  61 6b 65 20 6f 66 66 20  61 6e 64 22 0d 05 c8 29  |ake off and"...)|
00001140  f1 89 33 22 6c 61 6e 64  20 20 61 67 61 69 6e 2c  |..3"land  again,|
00001150  20 20 61 20 63 65 72 74  61 69 6e 20 64 69 73 74  |  a certain dist|
00001160  61 6e 63 65 22 0d 05 d2  0f f1 89 33 22 61 77 61  |ance"......3"awa|
00001170  79 2e 22 27 0d 05 dc 0a  f2 53 50 41 43 45 0d 05  |y."'.....SPACE..|
00001180  e6 05 e1 0d 05 f0 05 20  0d 05 fa 0a dd f2 57 41  |....... ......WA|
00001190  49 54 0d 06 04 0b 2a 46  58 31 35 2c 31 0d 06 0e  |IT....*FX15,1...|
000011a0  09 4e 4f 57 3d 91 0d 06  18 05 f5 0d 06 22 09 41  |.NOW=........".A|
000011b0  25 3d a6 30 0d 06 2c 23  fd 28 41 25 3c 3e 2d 31  |%=.0..,#.(A%<>-1|
000011c0  20 80 20 41 25 3c 3e 97  22 20 22 29 84 20 91 2d  | . A%<>." "). .-|
000011d0  4e 4f 57 3e 35 30 30 0d  06 36 05 e1 0d 06 40 05  |NOW>500..6....@.|
000011e0  20 0d 06 4a 0b dd f2 53  50 41 43 45 0d 06 54 2a  | ..J...SPACE..T*|
000011f0  f2 43 45 4e 28 22 50 72  65 73 73 20 53 50 41 43  |.CEN("Press SPAC|
00001200  45 20 42 41 52 20 74 6f  20 63 6f 6e 74 69 6e 75  |E BAR to continu|
00001210  65 22 2c 33 30 29 0d 06  5e 0b 2a 46 58 31 35 2c  |e",30)..^.*FX15,|
00001220  31 0d 06 68 0a f5 fd a5  3d 33 32 0d 06 72 05 e1  |1..h....=32..r..|
00001230  0d 06 7c 05 20 0d 06 86  24 dd f2 43 45 4e 28 41  |..|. ...$..CEN(A|
00001240  24 2c 79 25 29 20 f1 8a  31 39 2d a9 41 24 2f 32  |$,y%) ..19-.A$/2|
00001250  2c 79 25 29 41 24 3b 3a  e1 0d 06 90 05 20 0d 06  |,y%)A$;:..... ..|
00001260  9a 1a dd f2 4f 46 46 20  ef 32 33 2c 31 2c 30 3b  |....OFF .23,1,0;|
00001270  30 3b 30 3b 30 3b 3a e1  0d 06 a4 05 20 0d 06 ae  |0;0;0;:..... ...|
00001280  08 dd a4 59 4e 0d 06 b8  08 59 25 3d a3 0d 06 c2  |...YN....Y%=....|
00001290  08 58 25 3d a5 0d 06 cc  23 58 25 3d 58 25 80 26  |.X%=....#X%=X%.&|
000012a0  44 46 3a e7 20 a7 22 59  4e 22 2c bd 58 25 29 3d  |DF:. ."YN",.X%)=|
000012b0  30 20 8c 20 8d 64 42 46  0d 06 d6 12 41 4e 53 25  |0 . .dBF....ANS%|
000012c0  3d 28 58 25 3d 97 22 59  22 29 0d 06 e0 08 59 25  |=(X%=."Y")....Y%|
000012d0  3d b9 0d 06 ea 0a ef 20  58 25 2c 38 0d 06 f4 09  |=...... X%,8....|
000012e0  3d 41 4e 53 25 0d 06 fe  05 20 0d 07 08 33 dd f2  |=ANS%.... ...3..|
000012f0  49 4e 49 54 44 42 4c 20  24 4d 41 50 3d c4 32 35  |INITDBL $MAP=.25|
00001300  35 2c bd 30 29 3a 4d 41  50 3f 32 35 35 3d 30 3a  |5,.0):MAP?255=0:|
00001310  43 48 41 52 50 54 52 3d  32 32 34 3a e1 0d 07 12  |CHARPTR=224:....|
00001320  05 20 0d 07 1c 62 dd f2  44 42 4c 28 41 24 2c 79  |. ...b..DBL(A$,y|
00001330  25 29 42 24 3d 22 22 3a  43 24 3d 22 22 3a e3 43  |%)B$="":C$="":.C|
00001340  48 25 3d 31 b8 a9 41 24  3a 4b 25 3d a4 43 48 41  |H%=1..A$:K%=.CHA|
00001350  52 28 97 c1 41 24 2c 43  48 25 2c 31 29 29 3a 42  |R(..A$,CH%,1)):B|
00001360  24 3d 42 24 2b bd 4b 25  3a 43 24 3d 43 24 2b bd  |$=B$+.K%:C$=C$+.|
00001370  28 4b 25 2b 31 29 3a ed  3a 4b 25 3d 31 39 2d a9  |(K%+1):.:K%=19-.|
00001380  41 24 2f 32 0d 07 26 33  44 42 4c 24 3d bd 33 31  |A$/2..&3DBL$=.31|
00001390  2b bd 4b 25 2b bd 79 25  2b 42 24 2b bd 33 31 2b  |+.K%+.y%+B$+.31+|
000013a0  bd 4b 25 2b bd 28 79 25  2b 31 29 2b 43 24 3a f1  |.K%+.(y%+1)+C$:.|
000013b0  44 42 4c 24 3b 3a e1 0d  07 30 05 20 0d 07 3a 6b  |DBL$;:...0. ..:k|
000013c0  dd a4 43 48 41 52 28 43  25 29 e7 4d 41 50 3f 43  |..CHAR(C%).MAP?C|
000013d0  25 8c 3d 4d 41 50 3f 43  25 8b e7 43 48 41 52 50  |%.=MAP?C%..CHARP|
000013e0  54 52 3e 3d 32 35 36 fa  20 8b 4d 41 50 3f 43 25  |TR>=256. .MAP?C%|
000013f0  3d 43 48 41 52 50 54 52  3a 3f 42 4c 4f 43 4b 3d  |=CHARPTR:?BLOCK=|
00001400  43 25 3a 41 25 3d 31 30  3a 58 25 3d 42 4c 4f 43  |C%:A%=10:X%=BLOC|
00001410  4b 3a 59 25 3d 42 4c 4f  43 4b 20 81 32 35 36 3a  |K:Y%=BLOCK .256:|
00001420  d6 6f 73 77 6f 72 64 0d  07 44 52 e3 4a 25 3d 30  |.osword..DR.J%=0|
00001430  b8 31 3a ef 32 33 2c 43  48 41 52 50 54 52 2b 4a  |.1:.23,CHARPTR+J|
00001440  25 3a e3 49 25 3d 32 b8  39 3a ef 42 4c 4f 43 4b  |%:.I%=2.9:.BLOCK|
00001450  3f 28 4a 25 2a 34 2b 49  25 81 32 29 3a ed 2c 3a  |?(J%*4+I%.2):.,:|
00001460  43 48 41 52 50 54 52 3d  43 48 41 52 50 54 52 2b  |CHARPTR=CHARPTR+|
00001470  32 3a 3d 4d 41 50 3f 43  25 0d 07 4e 05 20 0d 07  |2:=MAP?C%..N. ..|
00001480  58 13 f4 20 45 72 72 6f  72 20 48 61 6e 64 6c 65  |X.. Error Handle|
00001490  72 0d 07 62 21 e7 20 9f  3c 3e 31 37 20 eb 37 3a  |r..b!. .<>17 .7:|
000014a0  f6 3a f1 22 20 61 74 20  6c 69 6e 65 20 22 3b 9e  |.:." at line ";.|
000014b0  3a e0 0d 07 6c 4c eb 34  3a f2 43 45 4e 28 22 44  |:...lL.4:.CEN("D|
000014c0  6f 20 79 6f 75 20 77 61  6e 74 20 74 6f 20 67 6f  |o you want to go|
000014d0  20 6f 6e 20 74 6f 22 2c  31 32 29 3a f2 43 45 4e  | on to",12):.CEN|
000014e0  28 22 74 68 65 20 6e 65  78 74 20 70 72 6f 67 72  |("the next progr|
000014f0  61 6d 20 28 59 2f 4e 29  3f 22 2c 31 33 29 0d 07  |am (Y/N)?",13)..|
00001500  76 12 e7 20 ac a4 59 4e  20 d8 3a e5 8d 44 5a 40  |v.. ..YN .:..DZ@|
00001510  0d 07 80 12 f1 27 22 50  6c 61 79 20 74 61 70 65  |.....'"Play tape|
00001520  22 27 0d 07 8a 09 2a 46  58 31 32 0d 07 94 07 d7  |"'....*FX12.....|
00001530  22 22 0d ff                                       |""..|
00001534