� #################
� #  ELITE CHEAT  #
� #################
(� #      By       #
2� # Stuart Menefy #
<� #      (C)      #
F� #   The Micro   #
P� #     User      #
Z� #################
d� 7
n
�_screen 
x
�_init
��_assemble
�
�_load
�� � � �dBF
��
�>� �_MENU(1) � �DpC,�tvC,�DtD,�tHD,�dDD,�dbD,�T@E,�tVE,�tFF
�� �
�� �_screen
�E� A%=0 � 1:� 31,0,A%,134,157,129,141,31,15,A%:�"Elite Cheat":� A%
�� 28,0,24,39,2
�� 23,1;0;0;0;0
��
�� �_init
�@%=0


*FX4 1

&� memory% 40,file% &100,check% 100

a� entries%(8),menu$(8,9),details$(8,9),laser%(6),rating%(9),status%(3),mission%(5),cargo$(17)

"TX%=&70:Y%=0:A%=0:file_system%=�(&FFDA) � &F:� Read which filing system is in use

,#� Set file to commander Jameson

6$� A%=0 � &FF � 4:A%!file%=0:� A%

@E!&70=1E3:file%!&B=&446E803:file%?&10=&F:file%?&16=&16:file%?&33=3

J'file%!1=&5A4AAD14:file%!5=&B7530248

Tlock%=�

^� Read in data

h � A%=1 � 6:� laser%(A%):� A%

r� 0,&F,&8F,&32,&97,&FF

|!� A%=1 � 9:� rating%(A%):� A%

�)� 0,8,&10,&20,&40,&80,&200,&A00,&1900

�!� A%=1 � 3:� status%(A%):� A%

�� 0,1,50

�"� A%=1 � 5:� mission%(A%):� A%

�� 0,1,2,&A,&E

�� A%=1 � 8

�� entries%(A%),details$

�� B%=0 � entries%(A%)

�� menu$(A%,B%)

�k� details$="I" � B% � details$(A%,B%) � � details$="N" � details$(A%,B%)="N" � details$(A%,B%)=details$

�� B%,A%

�%� file_system%<>4 � entries%(1)=7

�0� A%=1 � 17:� cargo$(A%),file%?(A%+&34):� A%
�
�� 9,I,Main Menu,Set Money,!&70/10,Alter Equipment,N,Alter Lasers,N,Set Number of Missiles,file%?&33,Set Rating,FN_RATING,Set Status,FN_STATUS,Set Galaxy,file%?&F+1,Alter Cargo,N,Set Mission,FN_MISSION
�� 9,I,Alter Equipment,Fuel,(file%?&D)/10,Cargo Bay Size,(file%?&16)-2,ECM System,FN_GOT(file%?&28),Fuel Scoops,FN_GOT(file%?&29),Escape Capsule,FN_GOT(file%?&2E),Energy Bomb,FN_GOT(file%?&2A),Energy Unit,FN_ENERGY
&O � Docking Computer,FN_GOT(file%?&2C),Galactic Hyperspace,FN_GOT(file%?&2D)
04� 4,N,Energy Unit,Not Present,Normal,Naval,Cheat
::� 6,N,Laser Type,None,Pulse,Beam,Mining,Military,Cheat
D5� 4,FN_LASER,Laser Position,Front,Rear,Left,Right
Np� 9,N,Combat Rating,Harmless,Mostly Harmless,Poor,Average,Above Average,Competent,Dangerous,Deadly,E L I T E
X.� 3,N,Legal Status,Clean,Offender,Fugitive
bi� 5,N,Mission Menu,Before Mission 1,During mission 1,After mission 1,During mission 2,After mission 2
l�� Food,&10,Textiles,&F,Radioactives,&11,Slaves,0,Liquor/Wines,3,Luxuries,&1C,Narcotics,&E,Computers,0,Machinery,0,Alloys,&A,Firearms,0,Furs,&11,Minerals,&3A,Gold,7,Platinum,9,Gem-Stones,8,Alien Items,0
v� �_assemble
�� PASS%=0 � 2 � 2
�
P%=check%
�[OPT PASS%
�LDX #&49
�LDA #&49
�CLC
�.check_loop
�ADC file%-1,X
�
� file%,X
�DEX
�BNE check_loop
�*STA file%+&4B:� #&A9:STA file%+&4A:RTS
�]
� PASS%
�
� �_load
 !�9,9)"Do you want to load a"
* �7,12)"previous commander";
4� �(�_YES_NO) �
>-�_oscli("LOAD "+�_FILENAME+" "+�~(file%))
H(� A%=0 � 3:A%?&70=file%?(&C-A%):� A%
R/� ?file%=1 � ?file%=6 � ?file%=&A � lock%=�
\�
f� Alter Money
p�
z!�9,9)"Enter how much money" 
��13,12)"you require."
�(!&70=�_INPUT(14,15,10,&CCCCCCC,�)*10
�(� A%=0 � 3:file%?(&C-A%)=A%?&70:� A%
��
�� Alter Equipment
��
�>� �_MENU(2) � �dTC,�d|C,�TdD,�TnD,�TxD,�DBD,�DLD,�DVD,�D`D
�� �
�'�:�7,9)"Enter how much hyperspace"
��13,12)"fuel you want."
�'file%?&D=�_INPUT(17,15,4,25.5,�)*10
��
�#�:�10,9)"Enter cargo bay size"
&file%?&16=�_INPUT(18,11,3,253,�)+2
�
1� Toggle various bytes, and items of eqipment
$file%?&28=� file%?&28:�
.file%?&29=� file%?&29:�
8file%?&2E=� file%?&2E:�
Bfile%?&2A=file%?&2A � &7F:�
Lfile%?&2B=�_MENU(3)-1:�
Vfile%?&2C=� file%?&2C:�
`file%?&2D=� file%?&2D:�
j� Alter Lasers
t0� file%?(�_MENU(5)+&F)=laser%(�_MENU(4)):� �
~� Number of missiles
��
�#�8,9)"Enter how many missiles"
��13,12)"you require."
�$file%?&33=�_INPUT(19,15,3,255,�)
��
�� Alter combat rating
�:file%!&47=rating%(�_MENU(6)) � (file%!&74 � &FFFF0000)
��
�� Alter legal status
� file%?&34=status%(�_MENU(7))
��
�� Set Galaxy
�


� �T|E
!�10,8)"Enter Galaxy Number."
#file%?&F=�_INPUT(19,11,1,8,�)-1
(.� A%=1 � file%?&F+1:� file%!1,file%!5:� A%
2�
<� &5A4AAD14,&B7530248
F� &B4945F60,&6FA60490
P� &69296F5A,&DE4D0821
Z� &D2526763,&BD9A1042
d� &A5A45D69,&7B352084
n� &4B496663,&F66A4009
x� &96925F6A,&EDD48012
�� &2D25605E,&DBA90124
�� Set up Cargo
��
��22)"Quantity Quantity"
�.�" No.   Product   Unit as Cargo for Sale"
�� A%=1 � 17
�V�1);A%;".";�5);cargo$(A%);�18);�_UNIT;�24);(file%?(A%+&16));�33);(file%?(A%+&34))
��
�5� &86,&9D,&81:�"   ESCAPE to return to main menu"
��
�-�1,20)"Enter number of product to alter"
�!number%=�_INPUT(34,20,2,17,�)
�P�1,20)"Enter quantity of ";cargo$(number%);�(13);�1,21)"in cargo bay";�(19)
+�23,number%+1);�&88;�28,number%+1)�&89
.file%?(number%+&16)=�_INPUT(14,21,3,255,�)
2�23,number%+1);" ";(file%?(number%+&16));"  "
"� number%=17 � �DTF
,+�32,number%+1);�&88;�36,number%+1)�&89
6�1,21)"for sale at planet"
@.file%?(number%+&34)=�_INPUT(20,21,3,255,�)
J2�32,number%+1);" ";(file%?(number%+&34));"  "
T�0,20);�(119);
^� 0
h� �_UNIT
r<� A%<14 � ="t" � � A%<16 � ="kg" � � A%=16 � ="g" � ="t"
|� Set Up Mission
�?file%=mission%(�_MENU(8))
�?� ?file%=1 � file%!1=&B4942190:file%!5=&6FA60490:file%?&F=1
�@� ?file%=&A � file%!1=&692954D7:file%!5=&DE4D0821:file%?&F=2
� lock%=(?file%=1 � ?file%=&A)
��
�%� Re-save file, and error control
�+� �(-1) � �<>17 �:�" at line ";�:� �THG
�� main_menu%=� � �t`@
��
�main_menu%=�
�'�5,5)"ESCAPE to re-edit commander"
�4� A%=10 � 11:�11,A%)�&8D;"Save commander.":� A%
�B� check%:�_oscli("SAVE "+�_FILENAME+" "+�~(file%)+" +100 0 0")
*FX4
�
� �_YES_NO
&�"? (Y/N)";�&88;
0(� get%=� � &DF:� get%=&59 � get%=&4E
:
� get%
D6� get2%=� � &DF:� get2%=&59 � get2%=&4E � get2%=&D
N)� get2%<>&D � get%=get2%:� &7F:� �TzG
X� 8,8,32
b
=get%=&59
l� �_FILENAME
v$�4,15)"Please enter filename ";
�� 23,1,1;0;0;0;
�
input$=""
��
�.� get%=�:� (get%>&1F � get%<&80) � get%=&D
�� get%<>&7F � �dFG
�1� �(input$) input$=�input$,�(input$)-1):� &7F
�
� �dPG
�U� (�(input$)<10+(3*(file_system%=4))) � (get%<>&D) � input$=input$+�(get%):� get%
�� get%=&D � input$<>""
�� 23,1;0;0;0;0
�]� file_system%=4 � �9,19)"Enter drive number ":=":"+�(�_INPUT(28,19,1,3,�))+".E."+input$
�=input$
�� �_oscli($memory%)
�
X%=memory% � &100
Y%=memory% � &100
 � &FFF7
*�
4� �_MENU(number%)
>� 23,1;0;0;0;0
H�
RJ� A%=0 � 1:�(39-�(menu$(number%,0)))� 2,A%)�&8D;menu$(number%,0):� A%
\� A%=1 � entries%(number%)
f5�3,(A%*2)+1);�129;A%;".";�134;menu$(number%,A%);
pF� details$(number%,A%)<>"N"  �&82;"(";�(details$(number%,A%));")"
z� A%
�G�0,21)"Enter which function you require (1-";entries%(number%);")"
��3,22)"or ESCAPE to ";
�L� number%=1 �"re-save commander";:main_menu%=� � �"return to main menu";
�Z� get%=�-&30:� get%>0 � get%<(entries%(number%)+1) � �((get%=7) � (number%=1) � lock%)
��0,(get%*2)+1);�&88
�o� get2%=�:� (get2%>&30 � get2%<(entries%(number%)+&31) � �((get2%=&37) � (number%=1) � lock%)) � (get2%=&D)
�;� get2%<>&D � �0,(get%*2)+1);" ":get%=get2%-&30:� �tlH
�main_menu%=�
�	=get%
�/� FN's to display status next to menu entry
�� �_STATUS
�Z%=4
�&� Z%=Z%-1:� file%?&34>=status%(Z%)
	=menu$(7,Z%)
	� �_RATING
		Z%=10
	$0� Z%=Z%-1:� (file%!&47 � &FFFF)>=rating%(Z%)
	.=menu$(6,Z%)
	8� �_MISSION
	B� ?file%=6 � =menu$(8,4)
	LZ%=0
	V#� Z%=Z%+1:� ?file%=mission%(Z%)
	`=menu$(8,Z%)
	j� �_ENERGY
	tZ%=file%?&2B
	~� Z%>3 � Z%=3
	�,� Z%=0 � ="Not Present" � =menu$(3,Z%+1)
	�
� �_LASER
	�Z%=0
	�(� Z%=Z%+1:� file%?(A%+&F)=laser%(Z%)
	�=menu$(4,Z%)
	�� �_GOT(A%)
	�&� A% � ="Present" � ="Not Present"
	�"� �_INPUT(X%,Y%,L%,max,point%)
	�� input$
	�� 23,1,1;0;0;0;
	��X%,Y%);�(L%);�X%,Y%);
	�
input$=""
`� get%=�:� (get%>&2F � get%<&3A) � (get%=&2E � point%) � (get%=&7F) � (get%=&D) � (get%=&15)

� get%=&15 � �dlI
� get%<>&7F � �TrJ
2� input$<>"" input$=�input$,�(input$)-1):� &7F
(
� �T@J
2(� �(input$) � P%=�input$,".") � P%=0
<� get%=&2E � P% � �T@J
F+� P% � (P%<�(input$)) � get%<>&D � �T@J
P<� get%<>&D � �(input$)<L% � input$=input$+�(get%):� get%
Z � get%<>&D � input$=""� �T@J
d.� �(input$)<=max � 23,1;0;0;0;0:=�(input$)
n)�'"  Maximum possible value is ";max;
xget%=�(100)
�
� �dlI
�

00000000  0d 00 0a 17 f4 20 23 23  23 23 23 23 23 23 23 23  |..... ##########|
00000010  23 23 23 23 23 23 23 0d  00 14 17 f4 20 23 20 20  |#######..... #  |
00000020  45 4c 49 54 45 20 43 48  45 41 54 20 20 23 0d 00  |ELITE CHEAT  #..|
00000030  1e 17 f4 20 23 23 23 23  23 23 23 23 23 23 23 23  |... ############|
00000040  23 23 23 23 23 0d 00 28  17 f4 20 23 20 20 20 20  |#####..(.. #    |
00000050  20 20 42 79 20 20 20 20  20 20 20 23 0d 00 32 17  |  By       #..2.|
00000060  f4 20 23 20 53 74 75 61  72 74 20 4d 65 6e 65 66  |. # Stuart Menef|
00000070  79 20 23 0d 00 3c 17 f4  20 23 20 20 20 20 20 20  |y #..<.. #      |
00000080  28 43 29 20 20 20 20 20  20 23 0d 00 46 17 f4 20  |(C)      #..F.. |
00000090  23 20 20 20 54 68 65 20  4d 69 63 72 6f 20 20 20  |#   The Micro   |
000000a0  23 0d 00 50 17 f4 20 23  20 20 20 20 20 55 73 65  |#..P.. #     Use|
000000b0  72 20 20 20 20 20 20 23  0d 00 5a 17 f4 20 23 23  |r      #..Z.. ##|
000000c0  23 23 23 23 23 23 23 23  23 23 23 23 23 23 23 0d  |###############.|
000000d0  00 64 07 eb 20 37 0d 00  6e 0d f2 5f 73 63 72 65  |.d.. 7..n.._scre|
000000e0  65 6e 20 0d 00 78 0a f2  5f 69 6e 69 74 0d 00 82  |en ..x.._init...|
000000f0  0e f2 5f 61 73 73 65 6d  62 6c 65 0d 00 8c 0a f2  |.._assemble.....|
00000100  5f 6c 6f 61 64 0d 00 96  0e ee 20 85 20 e5 20 8d  |_load..... . . .|
00000110  64 42 46 0d 00 a0 05 f5  0d 00 aa 3e ee 20 a4 5f  |dBF........>. ._|
00000120  4d 45 4e 55 28 31 29 20  e4 20 8d 44 70 43 2c 8d  |MENU(1) . .DpC,.|
00000130  74 76 43 2c 8d 44 74 44  2c 8d 74 48 44 2c 8d 64  |tvC,.DtD,.tHD,.d|
00000140  44 44 2c 8d 64 62 44 2c  8d 54 40 45 2c 8d 74 56  |DD,.dbD,.T@E,.tV|
00000150  45 2c 8d 74 46 46 0d 00  b4 07 fd 20 a3 0d 00 be  |E,.tFF..... ....|
00000160  0e dd 20 f2 5f 73 63 72  65 65 6e 0d 00 c8 45 e3  |.. ._screen...E.|
00000170  20 41 25 3d 30 20 b8 20  31 3a ef 20 33 31 2c 30  | A%=0 . 1:. 31,0|
00000180  2c 41 25 2c 31 33 34 2c  31 35 37 2c 31 32 39 2c  |,A%,134,157,129,|
00000190  31 34 31 2c 33 31 2c 31  35 2c 41 25 3a f1 22 45  |141,31,15,A%:."E|
000001a0  6c 69 74 65 20 43 68 65  61 74 22 3a ed 20 41 25  |lite Cheat":. A%|
000001b0  0d 00 d2 12 ef 20 32 38  2c 30 2c 32 34 2c 33 39  |..... 28,0,24,39|
000001c0  2c 32 0d 00 dc 12 ef 20  32 33 2c 31 3b 30 3b 30  |,2..... 23,1;0;0|
000001d0  3b 30 3b 30 0d 00 e6 05  e1 0d 00 f0 0c dd 20 f2  |;0;0.......... .|
000001e0  5f 69 6e 69 74 0d 00 fa  08 40 25 3d 30 0d 01 04  |_init....@%=0...|
000001f0  0a 2a 46 58 34 20 31 0d  01 0e 26 de 20 6d 65 6d  |.*FX4 1...&. mem|
00000200  6f 72 79 25 20 34 30 2c  66 69 6c 65 25 20 26 31  |ory% 40,file% &1|
00000210  30 30 2c 63 68 65 63 6b  25 20 31 30 30 0d 01 18  |00,check% 100...|
00000220  61 de 20 65 6e 74 72 69  65 73 25 28 38 29 2c 6d  |a. entries%(8),m|
00000230  65 6e 75 24 28 38 2c 39  29 2c 64 65 74 61 69 6c  |enu$(8,9),detail|
00000240  73 24 28 38 2c 39 29 2c  6c 61 73 65 72 25 28 36  |s$(8,9),laser%(6|
00000250  29 2c 72 61 74 69 6e 67  25 28 39 29 2c 73 74 61  |),rating%(9),sta|
00000260  74 75 73 25 28 33 29 2c  6d 69 73 73 69 6f 6e 25  |tus%(3),mission%|
00000270  28 35 29 2c 63 61 72 67  6f 24 28 31 37 29 0d 01  |(5),cargo$(17)..|
00000280  22 54 58 25 3d 26 37 30  3a 59 25 3d 30 3a 41 25  |"TX%=&70:Y%=0:A%|
00000290  3d 30 3a 66 69 6c 65 5f  73 79 73 74 65 6d 25 3d  |=0:file_system%=|
000002a0  ba 28 26 46 46 44 41 29  20 80 20 26 46 3a f4 20  |.(&FFDA) . &F:. |
000002b0  52 65 61 64 20 77 68 69  63 68 20 66 69 6c 69 6e  |Read which filin|
000002c0  67 20 73 79 73 74 65 6d  20 69 73 20 69 6e 20 75  |g system is in u|
000002d0  73 65 0d 01 2c 23 f4 20  53 65 74 20 66 69 6c 65  |se..,#. Set file|
000002e0  20 74 6f 20 63 6f 6d 6d  61 6e 64 65 72 20 4a 61  | to commander Ja|
000002f0  6d 65 73 6f 6e 0d 01 36  24 e3 20 41 25 3d 30 20  |meson..6$. A%=0 |
00000300  b8 20 26 46 46 20 88 20  34 3a 41 25 21 66 69 6c  |. &FF . 4:A%!fil|
00000310  65 25 3d 30 3a ed 20 41  25 0d 01 40 45 21 26 37  |e%=0:. A%..@E!&7|
00000320  30 3d 31 45 33 3a 66 69  6c 65 25 21 26 42 3d 26  |0=1E3:file%!&B=&|
00000330  34 34 36 45 38 30 33 3a  66 69 6c 65 25 3f 26 31  |446E803:file%?&1|
00000340  30 3d 26 46 3a 66 69 6c  65 25 3f 26 31 36 3d 26  |0=&F:file%?&16=&|
00000350  31 36 3a 66 69 6c 65 25  3f 26 33 33 3d 33 0d 01  |16:file%?&33=3..|
00000360  4a 27 66 69 6c 65 25 21  31 3d 26 35 41 34 41 41  |J'file%!1=&5A4AA|
00000370  44 31 34 3a 66 69 6c 65  25 21 35 3d 26 42 37 35  |D14:file%!5=&B75|
00000380  33 30 32 34 38 0d 01 54  0b 6c 6f 63 6b 25 3d a3  |30248..T.lock%=.|
00000390  0d 01 5e 12 f4 20 52 65  61 64 20 69 6e 20 64 61  |..^.. Read in da|
000003a0  74 61 0d 01 68 20 e3 20  41 25 3d 31 20 b8 20 36  |ta..h . A%=1 . 6|
000003b0  3a f3 20 6c 61 73 65 72  25 28 41 25 29 3a ed 20  |:. laser%(A%):. |
000003c0  41 25 0d 01 72 1a dc 20  30 2c 26 46 2c 26 38 46  |A%..r.. 0,&F,&8F|
000003d0  2c 26 33 32 2c 26 39 37  2c 26 46 46 0d 01 7c 21  |,&32,&97,&FF..|!|
000003e0  e3 20 41 25 3d 31 20 b8  20 39 3a f3 20 72 61 74  |. A%=1 . 9:. rat|
000003f0  69 6e 67 25 28 41 25 29  3a ed 20 41 25 0d 01 86  |ing%(A%):. A%...|
00000400  29 dc 20 30 2c 38 2c 26  31 30 2c 26 32 30 2c 26  |). 0,8,&10,&20,&|
00000410  34 30 2c 26 38 30 2c 26  32 30 30 2c 26 41 30 30  |40,&80,&200,&A00|
00000420  2c 26 31 39 30 30 0d 01  90 21 e3 20 41 25 3d 31  |,&1900...!. A%=1|
00000430  20 b8 20 33 3a f3 20 73  74 61 74 75 73 25 28 41  | . 3:. status%(A|
00000440  25 29 3a ed 20 41 25 0d  01 9a 0c dc 20 30 2c 31  |%):. A%..... 0,1|
00000450  2c 35 30 0d 01 a4 22 e3  20 41 25 3d 31 20 b8 20  |,50...". A%=1 . |
00000460  35 3a f3 20 6d 69 73 73  69 6f 6e 25 28 41 25 29  |5:. mission%(A%)|
00000470  3a ed 20 41 25 0d 01 ae  11 dc 20 30 2c 31 2c 32  |:. A%..... 0,1,2|
00000480  2c 26 41 2c 26 45 0d 01  b8 0e e3 20 41 25 3d 31  |,&A,&E..... A%=1|
00000490  20 b8 20 38 0d 01 c2 1b  f3 20 65 6e 74 72 69 65  | . 8..... entrie|
000004a0  73 25 28 41 25 29 2c 64  65 74 61 69 6c 73 24 0d  |s%(A%),details$.|
000004b0  01 cc 19 e3 20 42 25 3d  30 20 b8 20 65 6e 74 72  |.... B%=0 . entr|
000004c0  69 65 73 25 28 41 25 29  0d 01 d6 12 f3 20 6d 65  |ies%(A%)..... me|
000004d0  6e 75 24 28 41 25 2c 42  25 29 0d 01 e0 6b e7 20  |nu$(A%,B%)...k. |
000004e0  64 65 74 61 69 6c 73 24  3d 22 49 22 20 80 20 42  |details$="I" . B|
000004f0  25 20 f3 20 64 65 74 61  69 6c 73 24 28 41 25 2c  |% . details$(A%,|
00000500  42 25 29 20 8b 20 e7 20  64 65 74 61 69 6c 73 24  |B%) . . details$|
00000510  3d 22 4e 22 20 8c 20 64  65 74 61 69 6c 73 24 28  |="N" . details$(|
00000520  41 25 2c 42 25 29 3d 22  4e 22 20 8b 20 64 65 74  |A%,B%)="N" . det|
00000530  61 69 6c 73 24 28 41 25  2c 42 25 29 3d 64 65 74  |ails$(A%,B%)=det|
00000540  61 69 6c 73 24 0d 01 ea  0b ed 20 42 25 2c 41 25  |ails$..... B%,A%|
00000550  0d 01 f4 25 e7 20 66 69  6c 65 5f 73 79 73 74 65  |...%. file_syste|
00000560  6d 25 3c 3e 34 20 8c 20  65 6e 74 72 69 65 73 25  |m%<>4 . entries%|
00000570  28 31 29 3d 37 0d 01 fe  30 e3 20 41 25 3d 31 20  |(1)=7...0. A%=1 |
00000580  b8 20 31 37 3a f3 20 63  61 72 67 6f 24 28 41 25  |. 17:. cargo$(A%|
00000590  29 2c 66 69 6c 65 25 3f  28 41 25 2b 26 33 34 29  |),file%?(A%+&34)|
000005a0  3a ed 20 41 25 0d 02 08  05 e1 0d 02 12 cc dc 20  |:. A%.......... |
000005b0  39 2c 49 2c 4d 61 69 6e  20 4d 65 6e 75 2c 53 65  |9,I,Main Menu,Se|
000005c0  74 20 4d 6f 6e 65 79 2c  21 26 37 30 2f 31 30 2c  |t Money,!&70/10,|
000005d0  41 6c 74 65 72 20 45 71  75 69 70 6d 65 6e 74 2c  |Alter Equipment,|
000005e0  4e 2c 41 6c 74 65 72 20  4c 61 73 65 72 73 2c 4e  |N,Alter Lasers,N|
000005f0  2c 53 65 74 20 4e 75 6d  62 65 72 20 6f 66 20 4d  |,Set Number of M|
00000600  69 73 73 69 6c 65 73 2c  66 69 6c 65 25 3f 26 33  |issiles,file%?&3|
00000610  33 2c 53 65 74 20 52 61  74 69 6e 67 2c 46 4e 5f  |3,Set Rating,FN_|
00000620  52 41 54 49 4e 47 2c 53  65 74 20 53 74 61 74 75  |RATING,Set Statu|
00000630  73 2c 46 4e 5f 53 54 41  54 55 53 2c 53 65 74 20  |s,FN_STATUS,Set |
00000640  47 61 6c 61 78 79 2c 66  69 6c 65 25 3f 26 46 2b  |Galaxy,file%?&F+|
00000650  31 2c 41 6c 74 65 72 20  43 61 72 67 6f 2c 4e 2c  |1,Alter Cargo,N,|
00000660  53 65 74 20 4d 69 73 73  69 6f 6e 2c 46 4e 5f 4d  |Set Mission,FN_M|
00000670  49 53 53 49 4f 4e 0d 02  1c d9 dc 20 39 2c 49 2c  |ISSION..... 9,I,|
00000680  41 6c 74 65 72 20 45 71  75 69 70 6d 65 6e 74 2c  |Alter Equipment,|
00000690  46 75 65 6c 2c 28 66 69  6c 65 25 3f 26 44 29 2f  |Fuel,(file%?&D)/|
000006a0  31 30 2c 43 61 72 67 6f  20 42 61 79 20 53 69 7a  |10,Cargo Bay Siz|
000006b0  65 2c 28 66 69 6c 65 25  3f 26 31 36 29 2d 32 2c  |e,(file%?&16)-2,|
000006c0  45 43 4d 20 53 79 73 74  65 6d 2c 46 4e 5f 47 4f  |ECM System,FN_GO|
000006d0  54 28 66 69 6c 65 25 3f  26 32 38 29 2c 46 75 65  |T(file%?&28),Fue|
000006e0  6c 20 53 63 6f 6f 70 73  2c 46 4e 5f 47 4f 54 28  |l Scoops,FN_GOT(|
000006f0  66 69 6c 65 25 3f 26 32  39 29 2c 45 73 63 61 70  |file%?&29),Escap|
00000700  65 20 43 61 70 73 75 6c  65 2c 46 4e 5f 47 4f 54  |e Capsule,FN_GOT|
00000710  28 66 69 6c 65 25 3f 26  32 45 29 2c 45 6e 65 72  |(file%?&2E),Ener|
00000720  67 79 20 42 6f 6d 62 2c  46 4e 5f 47 4f 54 28 66  |gy Bomb,FN_GOT(f|
00000730  69 6c 65 25 3f 26 32 41  29 2c 45 6e 65 72 67 79  |ile%?&2A),Energy|
00000740  20 55 6e 69 74 2c 46 4e  5f 45 4e 45 52 47 59 0d  | Unit,FN_ENERGY.|
00000750  02 26 4f 20 dc 20 44 6f  63 6b 69 6e 67 20 43 6f  |.&O . Docking Co|
00000760  6d 70 75 74 65 72 2c 46  4e 5f 47 4f 54 28 66 69  |mputer,FN_GOT(fi|
00000770  6c 65 25 3f 26 32 43 29  2c 47 61 6c 61 63 74 69  |le%?&2C),Galacti|
00000780  63 20 48 79 70 65 72 73  70 61 63 65 2c 46 4e 5f  |c Hyperspace,FN_|
00000790  47 4f 54 28 66 69 6c 65  25 3f 26 32 44 29 0d 02  |GOT(file%?&2D)..|
000007a0  30 34 dc 20 34 2c 4e 2c  45 6e 65 72 67 79 20 55  |04. 4,N,Energy U|
000007b0  6e 69 74 2c 4e 6f 74 20  50 72 65 73 65 6e 74 2c  |nit,Not Present,|
000007c0  4e 6f 72 6d 61 6c 2c 4e  61 76 61 6c 2c 43 68 65  |Normal,Naval,Che|
000007d0  61 74 0d 02 3a 3a dc 20  36 2c 4e 2c 4c 61 73 65  |at..::. 6,N,Lase|
000007e0  72 20 54 79 70 65 2c 4e  6f 6e 65 2c 50 75 6c 73  |r Type,None,Puls|
000007f0  65 2c 42 65 61 6d 2c 4d  69 6e 69 6e 67 2c 4d 69  |e,Beam,Mining,Mi|
00000800  6c 69 74 61 72 79 2c 43  68 65 61 74 0d 02 44 35  |litary,Cheat..D5|
00000810  dc 20 34 2c 46 4e 5f 4c  41 53 45 52 2c 4c 61 73  |. 4,FN_LASER,Las|
00000820  65 72 20 50 6f 73 69 74  69 6f 6e 2c 46 72 6f 6e  |er Position,Fron|
00000830  74 2c 52 65 61 72 2c 4c  65 66 74 2c 52 69 67 68  |t,Rear,Left,Righ|
00000840  74 0d 02 4e 70 dc 20 39  2c 4e 2c 43 6f 6d 62 61  |t..Np. 9,N,Comba|
00000850  74 20 52 61 74 69 6e 67  2c 48 61 72 6d 6c 65 73  |t Rating,Harmles|
00000860  73 2c 4d 6f 73 74 6c 79  20 48 61 72 6d 6c 65 73  |s,Mostly Harmles|
00000870  73 2c 50 6f 6f 72 2c 41  76 65 72 61 67 65 2c 41  |s,Poor,Average,A|
00000880  62 6f 76 65 20 41 76 65  72 61 67 65 2c 43 6f 6d  |bove Average,Com|
00000890  70 65 74 65 6e 74 2c 44  61 6e 67 65 72 6f 75 73  |petent,Dangerous|
000008a0  2c 44 65 61 64 6c 79 2c  45 20 4c 20 49 20 54 20  |,Deadly,E L I T |
000008b0  45 0d 02 58 2e dc 20 33  2c 4e 2c 4c 65 67 61 6c  |E..X.. 3,N,Legal|
000008c0  20 53 74 61 74 75 73 2c  43 6c 65 61 6e 2c 4f 66  | Status,Clean,Of|
000008d0  66 65 6e 64 65 72 2c 46  75 67 69 74 69 76 65 0d  |fender,Fugitive.|
000008e0  02 62 69 dc 20 35 2c 4e  2c 4d 69 73 73 69 6f 6e  |.bi. 5,N,Mission|
000008f0  20 4d 65 6e 75 2c 42 65  66 6f 72 65 20 4d 69 73  | Menu,Before Mis|
00000900  73 69 6f 6e 20 31 2c 44  75 72 69 6e 67 20 6d 69  |sion 1,During mi|
00000910  73 73 69 6f 6e 20 31 2c  41 66 74 65 72 20 6d 69  |ssion 1,After mi|
00000920  73 73 69 6f 6e 20 31 2c  44 75 72 69 6e 67 20 6d  |ssion 1,During m|
00000930  69 73 73 69 6f 6e 20 32  2c 41 66 74 65 72 20 6d  |ission 2,After m|
00000940  69 73 73 69 6f 6e 20 32  0d 02 6c cd dc 20 46 6f  |ission 2..l.. Fo|
00000950  6f 64 2c 26 31 30 2c 54  65 78 74 69 6c 65 73 2c  |od,&10,Textiles,|
00000960  26 46 2c 52 61 64 69 6f  61 63 74 69 76 65 73 2c  |&F,Radioactives,|
00000970  26 31 31 2c 53 6c 61 76  65 73 2c 30 2c 4c 69 71  |&11,Slaves,0,Liq|
00000980  75 6f 72 2f 57 69 6e 65  73 2c 33 2c 4c 75 78 75  |uor/Wines,3,Luxu|
00000990  72 69 65 73 2c 26 31 43  2c 4e 61 72 63 6f 74 69  |ries,&1C,Narcoti|
000009a0  63 73 2c 26 45 2c 43 6f  6d 70 75 74 65 72 73 2c  |cs,&E,Computers,|
000009b0  30 2c 4d 61 63 68 69 6e  65 72 79 2c 30 2c 41 6c  |0,Machinery,0,Al|
000009c0  6c 6f 79 73 2c 26 41 2c  46 69 72 65 61 72 6d 73  |loys,&A,Firearms|
000009d0  2c 30 2c 46 75 72 73 2c  26 31 31 2c 4d 69 6e 65  |,0,Furs,&11,Mine|
000009e0  72 61 6c 73 2c 26 33 41  2c 47 6f 6c 64 2c 37 2c  |rals,&3A,Gold,7,|
000009f0  50 6c 61 74 69 6e 75 6d  2c 39 2c 47 65 6d 2d 53  |Platinum,9,Gem-S|
00000a00  74 6f 6e 65 73 2c 38 2c  41 6c 69 65 6e 20 49 74  |tones,8,Alien It|
00000a10  65 6d 73 2c 30 0d 02 76  10 dd 20 f2 5f 61 73 73  |ems,0..v.. ._ass|
00000a20  65 6d 62 6c 65 0d 02 80  15 e3 20 50 41 53 53 25  |emble..... PASS%|
00000a30  3d 30 20 b8 20 32 20 88  20 32 0d 02 8a 0d 50 25  |=0 . 2 . 2....P%|
00000a40  3d 63 68 65 63 6b 25 0d  02 94 0e 5b 4f 50 54 20  |=check%....[OPT |
00000a50  50 41 53 53 25 0d 02 9e  0c 4c 44 58 20 23 26 34  |PASS%....LDX #&4|
00000a60  39 0d 02 a8 0c 4c 44 41  20 23 26 34 39 0d 02 b2  |9....LDA #&49...|
00000a70  07 43 4c 43 0d 02 bc 0f  2e 63 68 65 63 6b 5f 6c  |.CLC.....check_l|
00000a80  6f 6f 70 0d 02 c6 11 41  44 43 20 66 69 6c 65 25  |oop....ADC file%|
00000a90  2d 31 2c 58 0d 02 d0 0d  82 20 66 69 6c 65 25 2c  |-1,X..... file%,|
00000aa0  58 0d 02 da 07 44 45 58  0d 02 e4 12 42 4e 45 20  |X....DEX....BNE |
00000ab0  63 68 65 63 6b 5f 6c 6f  6f 70 0d 02 ee 2a 53 54  |check_loop...*ST|
00000ac0  41 20 66 69 6c 65 25 2b  26 34 42 3a 82 20 23 26  |A file%+&4B:. #&|
00000ad0  41 39 3a 53 54 41 20 66  69 6c 65 25 2b 26 34 41  |A9:STA file%+&4A|
00000ae0  3a 52 54 53 0d 02 f8 05  5d 0d 03 02 0b ed 20 50  |:RTS....]..... P|
00000af0  41 53 53 25 0d 03 0c 05  e1 0d 03 16 0c dd 20 f2  |ASS%.......... .|
00000b00  5f 6c 6f 61 64 0d 03 20  21 f1 8a 39 2c 39 29 22  |_load.. !..9,9)"|
00000b10  44 6f 20 79 6f 75 20 77  61 6e 74 20 74 6f 20 6c  |Do you want to l|
00000b20  6f 61 64 20 61 22 0d 03  2a 20 f1 8a 37 2c 31 32  |oad a"..* ..7,12|
00000b30  29 22 70 72 65 76 69 6f  75 73 20 63 6f 6d 6d 61  |)"previous comma|
00000b40  6e 64 65 72 22 3b 0d 03  34 13 e7 20 ac 28 a4 5f  |nder";..4.. .(._|
00000b50  59 45 53 5f 4e 4f 29 20  e1 0d 03 3e 2d f2 5f 6f  |YES_NO) ...>-._o|
00000b60  73 63 6c 69 28 22 4c 4f  41 44 20 22 2b a4 5f 46  |scli("LOAD "+._F|
00000b70  49 4c 45 4e 41 4d 45 2b  22 20 22 2b c3 7e 28 66  |ILENAME+" "+.~(f|
00000b80  69 6c 65 25 29 29 0d 03  48 28 e3 20 41 25 3d 30  |ile%))..H(. A%=0|
00000b90  20 b8 20 33 3a 41 25 3f  26 37 30 3d 66 69 6c 65  | . 3:A%?&70=file|
00000ba0  25 3f 28 26 43 2d 41 25  29 3a ed 20 41 25 0d 03  |%?(&C-A%):. A%..|
00000bb0  52 2f e7 20 3f 66 69 6c  65 25 3d 31 20 84 20 3f  |R/. ?file%=1 . ?|
00000bc0  66 69 6c 65 25 3d 36 20  84 20 3f 66 69 6c 65 25  |file%=6 . ?file%|
00000bd0  3d 26 41 20 8c 20 6c 6f  63 6b 25 3d b9 0d 03 5c  |=&A . lock%=...\|
00000be0  05 e1 0d 03 66 11 f4 20  41 6c 74 65 72 20 4d 6f  |....f.. Alter Mo|
00000bf0  6e 65 79 0d 03 70 05 db  0d 03 7a 21 f1 8a 39 2c  |ney..p....z!..9,|
00000c00  39 29 22 45 6e 74 65 72  20 68 6f 77 20 6d 75 63  |9)"Enter how muc|
00000c10  68 20 6d 6f 6e 65 79 22  20 0d 03 84 1a f1 8a 31  |h money" ......1|
00000c20  33 2c 31 32 29 22 79 6f  75 20 72 65 71 75 69 72  |3,12)"you requir|
00000c30  65 2e 22 0d 03 8e 28 21  26 37 30 3d a4 5f 49 4e  |e."...(!&70=._IN|
00000c40  50 55 54 28 31 34 2c 31  35 2c 31 30 2c 26 43 43  |PUT(14,15,10,&CC|
00000c50  43 43 43 43 43 2c b9 29  2a 31 30 0d 03 98 28 e3  |CCCCC,.)*10...(.|
00000c60  20 41 25 3d 30 20 b8 20  33 3a 66 69 6c 65 25 3f  | A%=0 . 3:file%?|
00000c70  28 26 43 2d 41 25 29 3d  41 25 3f 26 37 30 3a ed  |(&C-A%)=A%?&70:.|
00000c80  20 41 25 0d 03 a2 05 f8  0d 03 ac 15 f4 20 41 6c  | A%.......... Al|
00000c90  74 65 72 20 45 71 75 69  70 6d 65 6e 74 0d 03 b6  |ter Equipment...|
00000ca0  05 f5 0d 03 c0 3e ee 20  a4 5f 4d 45 4e 55 28 32  |.....>. ._MENU(2|
00000cb0  29 20 e4 20 8d 64 54 43  2c 8d 64 7c 43 2c 8d 54  |) . .dTC,.d|C,.T|
00000cc0  64 44 2c 8d 54 6e 44 2c  8d 54 78 44 2c 8d 44 42  |dD,.TnD,.TxD,.DB|
00000cd0  44 2c 8d 44 4c 44 2c 8d  44 56 44 2c 8d 44 60 44  |D,.DLD,.DVD,.D`D|
00000ce0  0d 03 ca 07 fd 20 a3 0d  03 d4 27 db 3a f1 8a 37  |..... ....'.:..7|
00000cf0  2c 39 29 22 45 6e 74 65  72 20 68 6f 77 20 6d 75  |,9)"Enter how mu|
00000d00  63 68 20 68 79 70 65 72  73 70 61 63 65 22 0d 03  |ch hyperspace"..|
00000d10  de 1c f1 8a 31 33 2c 31  32 29 22 66 75 65 6c 20  |....13,12)"fuel |
00000d20  79 6f 75 20 77 61 6e 74  2e 22 0d 03 e8 27 66 69  |you want."...'fi|
00000d30  6c 65 25 3f 26 44 3d a4  5f 49 4e 50 55 54 28 31  |le%?&D=._INPUT(1|
00000d40  37 2c 31 35 2c 34 2c 32  35 2e 35 2c b9 29 2a 31  |7,15,4,25.5,.)*1|
00000d50  30 0d 03 f2 05 f8 0d 03  fc 23 db 3a f1 8a 31 30  |0........#.:..10|
00000d60  2c 39 29 22 45 6e 74 65  72 20 63 61 72 67 6f 20  |,9)"Enter cargo |
00000d70  62 61 79 20 73 69 7a 65  22 0d 04 06 26 66 69 6c  |bay size"...&fil|
00000d80  65 25 3f 26 31 36 3d a4  5f 49 4e 50 55 54 28 31  |e%?&16=._INPUT(1|
00000d90  38 2c 31 31 2c 33 2c 32  35 33 2c a3 29 2b 32 0d  |8,11,3,253,.)+2.|
00000da0  04 10 05 f8 0d 04 1a 31  f4 20 54 6f 67 67 6c 65  |.......1. Toggle|
00000db0  20 76 61 72 69 6f 75 73  20 62 79 74 65 73 2c 20  | various bytes, |
00000dc0  61 6e 64 20 69 74 65 6d  73 20 6f 66 20 65 71 69  |and items of eqi|
00000dd0  70 6d 65 6e 74 0d 04 24  1b 66 69 6c 65 25 3f 26  |pment..$.file%?&|
00000de0  32 38 3d ac 20 66 69 6c  65 25 3f 26 32 38 3a f8  |28=. file%?&28:.|
00000df0  0d 04 2e 1b 66 69 6c 65  25 3f 26 32 39 3d ac 20  |....file%?&29=. |
00000e00  66 69 6c 65 25 3f 26 32  39 3a f8 0d 04 38 1b 66  |file%?&29:...8.f|
00000e10  69 6c 65 25 3f 26 32 45  3d ac 20 66 69 6c 65 25  |ile%?&2E=. file%|
00000e20  3f 26 32 45 3a f8 0d 04  42 1f 66 69 6c 65 25 3f  |?&2E:...B.file%?|
00000e30  26 32 41 3d 66 69 6c 65  25 3f 26 32 41 20 82 20  |&2A=file%?&2A . |
00000e40  26 37 46 3a f8 0d 04 4c  1b 66 69 6c 65 25 3f 26  |&7F:...L.file%?&|
00000e50  32 42 3d a4 5f 4d 45 4e  55 28 33 29 2d 31 3a f8  |2B=._MENU(3)-1:.|
00000e60  0d 04 56 1b 66 69 6c 65  25 3f 26 32 43 3d ac 20  |..V.file%?&2C=. |
00000e70  66 69 6c 65 25 3f 26 32  43 3a f8 0d 04 60 1b 66  |file%?&2C:...`.f|
00000e80  69 6c 65 25 3f 26 32 44  3d ac 20 66 69 6c 65 25  |ile%?&2D=. file%|
00000e90  3f 26 32 44 3a f8 0d 04  6a 12 f4 20 41 6c 74 65  |?&2D:...j.. Alte|
00000ea0  72 20 4c 61 73 65 72 73  0d 04 74 30 f5 20 66 69  |r Lasers..t0. fi|
00000eb0  6c 65 25 3f 28 a4 5f 4d  45 4e 55 28 35 29 2b 26  |le%?(._MENU(5)+&|
00000ec0  46 29 3d 6c 61 73 65 72  25 28 a4 5f 4d 45 4e 55  |F)=laser%(._MENU|
00000ed0  28 34 29 29 3a fd 20 a3  0d 04 7e 18 f4 20 4e 75  |(4)):. ...~.. Nu|
00000ee0  6d 62 65 72 20 6f 66 20  6d 69 73 73 69 6c 65 73  |mber of missiles|
00000ef0  0d 04 88 05 db 0d 04 92  23 f1 8a 38 2c 39 29 22  |........#..8,9)"|
00000f00  45 6e 74 65 72 20 68 6f  77 20 6d 61 6e 79 20 6d  |Enter how many m|
00000f10  69 73 73 69 6c 65 73 22  0d 04 9c 1a f1 8a 31 33  |issiles"......13|
00000f20  2c 31 32 29 22 79 6f 75  20 72 65 71 75 69 72 65  |,12)"you require|
00000f30  2e 22 0d 04 a6 24 66 69  6c 65 25 3f 26 33 33 3d  |."...$file%?&33=|
00000f40  a4 5f 49 4e 50 55 54 28  31 39 2c 31 35 2c 33 2c  |._INPUT(19,15,3,|
00000f50  32 35 35 2c a3 29 0d 04  b0 05 f8 0d 04 ba 19 f4  |255,.)..........|
00000f60  20 41 6c 74 65 72 20 63  6f 6d 62 61 74 20 72 61  | Alter combat ra|
00000f70  74 69 6e 67 0d 04 c4 3a  66 69 6c 65 25 21 26 34  |ting...:file%!&4|
00000f80  37 3d 72 61 74 69 6e 67  25 28 a4 5f 4d 45 4e 55  |7=rating%(._MENU|
00000f90  28 36 29 29 20 84 20 28  66 69 6c 65 25 21 26 37  |(6)) . (file%!&7|
00000fa0  34 20 80 20 26 46 46 46  46 30 30 30 30 29 0d 04  |4 . &FFFF0000)..|
00000fb0  ce 05 f8 0d 04 d8 18 f4  20 41 6c 74 65 72 20 6c  |........ Alter l|
00000fc0  65 67 61 6c 20 73 74 61  74 75 73 0d 04 e2 20 66  |egal status... f|
00000fd0  69 6c 65 25 3f 26 33 34  3d 73 74 61 74 75 73 25  |ile%?&34=status%|
00000fe0  28 a4 5f 4d 45 4e 55 28  37 29 29 0d 04 ec 05 f8  |(._MENU(7)).....|
00000ff0  0d 04 f6 10 f4 20 53 65  74 20 47 61 6c 61 78 79  |..... Set Galaxy|
00001000  0d 05 00 05 db 0d 05 0a  0a f7 20 8d 54 7c 45 0d  |.......... .T|E.|
00001010  05 14 21 f1 8a 31 30 2c  38 29 22 45 6e 74 65 72  |..!..10,8)"Enter|
00001020  20 47 61 6c 61 78 79 20  4e 75 6d 62 65 72 2e 22  | Galaxy Number."|
00001030  0d 05 1e 23 66 69 6c 65  25 3f 26 46 3d a4 5f 49  |...#file%?&F=._I|
00001040  4e 50 55 54 28 31 39 2c  31 31 2c 31 2c 38 2c a3  |NPUT(19,11,1,8,.|
00001050  29 2d 31 0d 05 28 2e e3  20 41 25 3d 31 20 b8 20  |)-1..(.. A%=1 . |
00001060  66 69 6c 65 25 3f 26 46  2b 31 3a f3 20 66 69 6c  |file%?&F+1:. fil|
00001070  65 25 21 31 2c 66 69 6c  65 25 21 35 3a ed 20 41  |e%!1,file%!5:. A|
00001080  25 0d 05 32 05 f8 0d 05  3c 19 dc 20 26 35 41 34  |%..2....<.. &5A4|
00001090  41 41 44 31 34 2c 26 42  37 35 33 30 32 34 38 0d  |AAD14,&B7530248.|
000010a0  05 46 19 dc 20 26 42 34  39 34 35 46 36 30 2c 26  |.F.. &B4945F60,&|
000010b0  36 46 41 36 30 34 39 30  0d 05 50 19 dc 20 26 36  |6FA60490..P.. &6|
000010c0  39 32 39 36 46 35 41 2c  26 44 45 34 44 30 38 32  |9296F5A,&DE4D082|
000010d0  31 0d 05 5a 19 dc 20 26  44 32 35 32 36 37 36 33  |1..Z.. &D2526763|
000010e0  2c 26 42 44 39 41 31 30  34 32 0d 05 64 19 dc 20  |,&BD9A1042..d.. |
000010f0  26 41 35 41 34 35 44 36  39 2c 26 37 42 33 35 32  |&A5A45D69,&7B352|
00001100  30 38 34 0d 05 6e 19 dc  20 26 34 42 34 39 36 36  |084..n.. &4B4966|
00001110  36 33 2c 26 46 36 36 41  34 30 30 39 0d 05 78 19  |63,&F66A4009..x.|
00001120  dc 20 26 39 36 39 32 35  46 36 41 2c 26 45 44 44  |. &96925F6A,&EDD|
00001130  34 38 30 31 32 0d 05 82  19 dc 20 26 32 44 32 35  |48012..... &2D25|
00001140  36 30 35 45 2c 26 44 42  41 39 30 31 32 34 0d 05  |605E,&DBA90124..|
00001150  8c 12 f4 20 53 65 74 20  75 70 20 43 61 72 67 6f  |... Set up Cargo|
00001160  0d 05 96 05 db 0d 05 a0  1c f1 8a 32 32 29 22 51  |...........22)"Q|
00001170  75 61 6e 74 69 74 79 20  51 75 61 6e 74 69 74 79  |uantity Quantity|
00001180  22 0d 05 aa 2e f1 22 20  4e 6f 2e 20 20 20 50 72  |"....." No.   Pr|
00001190  6f 64 75 63 74 20 20 20  55 6e 69 74 20 61 73 20  |oduct   Unit as |
000011a0  43 61 72 67 6f 20 66 6f  72 20 53 61 6c 65 22 0d  |Cargo for Sale".|
000011b0  05 b4 0f e3 20 41 25 3d  31 20 b8 20 31 37 0d 05  |.... A%=1 . 17..|
000011c0  be 56 f1 8a 31 29 3b 41  25 3b 22 2e 22 3b 8a 35  |.V..1);A%;".";.5|
000011d0  29 3b 63 61 72 67 6f 24  28 41 25 29 3b 8a 31 38  |);cargo$(A%);.18|
000011e0  29 3b a4 5f 55 4e 49 54  3b 8a 32 34 29 3b 28 66  |);._UNIT;.24);(f|
000011f0  69 6c 65 25 3f 28 41 25  2b 26 31 36 29 29 3b 8a  |ile%?(A%+&16));.|
00001200  33 33 29 3b 28 66 69 6c  65 25 3f 28 41 25 2b 26  |33);(file%?(A%+&|
00001210  33 34 29 29 0d 05 c8 05  ed 0d 05 d2 35 ef 20 26  |34))........5. &|
00001220  38 36 2c 26 39 44 2c 26  38 31 3a f1 22 20 20 20  |86,&9D,&81:."   |
00001230  45 53 43 41 50 45 20 74  6f 20 72 65 74 75 72 6e  |ESCAPE to return|
00001240  20 74 6f 20 6d 61 69 6e  20 6d 65 6e 75 22 0d 05  | to main menu"..|
00001250  dc 05 f5 0d 05 e6 2d f1  8a 31 2c 32 30 29 22 45  |......-..1,20)"E|
00001260  6e 74 65 72 20 6e 75 6d  62 65 72 20 6f 66 20 70  |nter number of p|
00001270  72 6f 64 75 63 74 20 74  6f 20 61 6c 74 65 72 22  |roduct to alter"|
00001280  0d 05 f0 21 6e 75 6d 62  65 72 25 3d a4 5f 49 4e  |...!number%=._IN|
00001290  50 55 54 28 33 34 2c 32  30 2c 32 2c 31 37 2c a3  |PUT(34,20,2,17,.|
000012a0  29 0d 05 fa 50 f1 8a 31  2c 32 30 29 22 45 6e 74  |)...P..1,20)"Ent|
000012b0  65 72 20 71 75 61 6e 74  69 74 79 20 6f 66 20 22  |er quantity of "|
000012c0  3b 63 61 72 67 6f 24 28  6e 75 6d 62 65 72 25 29  |;cargo$(number%)|
000012d0  3b 89 28 31 33 29 3b 8a  31 2c 32 31 29 22 69 6e  |;.(13);.1,21)"in|
000012e0  20 63 61 72 67 6f 20 62  61 79 22 3b 89 28 31 39  | cargo bay";.(19|
000012f0  29 0d 06 04 2b f1 8a 32  33 2c 6e 75 6d 62 65 72  |)...+..23,number|
00001300  25 2b 31 29 3b bd 26 38  38 3b 8a 32 38 2c 6e 75  |%+1);.&88;.28,nu|
00001310  6d 62 65 72 25 2b 31 29  bd 26 38 39 0d 06 0e 2e  |mber%+1).&89....|
00001320  66 69 6c 65 25 3f 28 6e  75 6d 62 65 72 25 2b 26  |file%?(number%+&|
00001330  31 36 29 3d a4 5f 49 4e  50 55 54 28 31 34 2c 32  |16)=._INPUT(14,2|
00001340  31 2c 33 2c 32 35 35 2c  a3 29 0d 06 18 32 f1 8a  |1,3,255,.)...2..|
00001350  32 33 2c 6e 75 6d 62 65  72 25 2b 31 29 3b 22 20  |23,number%+1);" |
00001360  22 3b 28 66 69 6c 65 25  3f 28 6e 75 6d 62 65 72  |";(file%?(number|
00001370  25 2b 26 31 36 29 29 3b  22 20 20 22 0d 06 22 17  |%+&16));"  "..".|
00001380  e7 20 6e 75 6d 62 65 72  25 3d 31 37 20 8c 20 8d  |. number%=17 . .|
00001390  44 54 46 0d 06 2c 2b f1  8a 33 32 2c 6e 75 6d 62  |DTF..,+..32,numb|
000013a0  65 72 25 2b 31 29 3b bd  26 38 38 3b 8a 33 36 2c  |er%+1);.&88;.36,|
000013b0  6e 75 6d 62 65 72 25 2b  31 29 bd 26 38 39 0d 06  |number%+1).&89..|
000013c0  36 1f f1 8a 31 2c 32 31  29 22 66 6f 72 20 73 61  |6...1,21)"for sa|
000013d0  6c 65 20 61 74 20 70 6c  61 6e 65 74 22 0d 06 40  |le at planet"..@|
000013e0  2e 66 69 6c 65 25 3f 28  6e 75 6d 62 65 72 25 2b  |.file%?(number%+|
000013f0  26 33 34 29 3d a4 5f 49  4e 50 55 54 28 32 30 2c  |&34)=._INPUT(20,|
00001400  32 31 2c 33 2c 32 35 35  2c a3 29 0d 06 4a 32 f1  |21,3,255,.)..J2.|
00001410  8a 33 32 2c 6e 75 6d 62  65 72 25 2b 31 29 3b 22  |.32,number%+1);"|
00001420  20 22 3b 28 66 69 6c 65  25 3f 28 6e 75 6d 62 65  | ";(file%?(numbe|
00001430  72 25 2b 26 33 34 29 29  3b 22 20 20 22 0d 06 54  |r%+&34));"  "..T|
00001440  13 f1 8a 30 2c 32 30 29  3b 89 28 31 31 39 29 3b  |...0,20);.(119);|
00001450  0d 06 5e 07 fd 20 30 0d  06 68 0c dd 20 a4 5f 55  |..^.. 0..h.. ._U|
00001460  4e 49 54 0d 06 72 3c e7  20 41 25 3c 31 34 20 8c  |NIT..r<. A%<14 .|
00001470  20 3d 22 74 22 20 8b 20  e7 20 41 25 3c 31 36 20  | ="t" . . A%<16 |
00001480  8c 20 3d 22 6b 67 22 20  8b 20 e7 20 41 25 3d 31  |. ="kg" . . A%=1|
00001490  36 20 8c 20 3d 22 67 22  20 8b 20 3d 22 74 22 0d  |6 . ="g" . ="t".|
000014a0  06 7c 14 f4 20 53 65 74  20 55 70 20 4d 69 73 73  |.|.. Set Up Miss|
000014b0  69 6f 6e 0d 06 86 1e 3f  66 69 6c 65 25 3d 6d 69  |ion....?file%=mi|
000014c0  73 73 69 6f 6e 25 28 a4  5f 4d 45 4e 55 28 38 29  |ssion%(._MENU(8)|
000014d0  29 0d 06 90 3f e7 20 3f  66 69 6c 65 25 3d 31 20  |)...?. ?file%=1 |
000014e0  8c 20 66 69 6c 65 25 21  31 3d 26 42 34 39 34 32  |. file%!1=&B4942|
000014f0  31 39 30 3a 66 69 6c 65  25 21 35 3d 26 36 46 41  |190:file%!5=&6FA|
00001500  36 30 34 39 30 3a 66 69  6c 65 25 3f 26 46 3d 31  |60490:file%?&F=1|
00001510  0d 06 9a 40 e7 20 3f 66  69 6c 65 25 3d 26 41 20  |...@. ?file%=&A |
00001520  8c 20 66 69 6c 65 25 21  31 3d 26 36 39 32 39 35  |. file%!1=&69295|
00001530  34 44 37 3a 66 69 6c 65  25 21 35 3d 26 44 45 34  |4D7:file%!5=&DE4|
00001540  44 30 38 32 31 3a 66 69  6c 65 25 3f 26 46 3d 32  |D0821:file%?&F=2|
00001550  0d 06 a4 20 6c 6f 63 6b  25 3d 28 3f 66 69 6c 65  |... lock%=(?file|
00001560  25 3d 31 20 84 20 3f 66  69 6c 65 25 3d 26 41 29  |%=1 . ?file%=&A)|
00001570  0d 06 ae 05 f8 0d 06 b8  25 f4 20 52 65 2d 73 61  |........%. Re-sa|
00001580  76 65 20 66 69 6c 65 2c  20 61 6e 64 20 65 72 72  |ve file, and err|
00001590  6f 72 20 63 6f 6e 74 72  6f 6c 0d 06 c2 2b e7 20  |or control...+. |
000015a0  a6 28 2d 31 29 20 84 20  9f 3c 3e 31 37 20 f6 3a  |.(-1) . .<>17 .:|
000015b0  f1 22 20 61 74 20 6c 69  6e 65 20 22 3b 9e 3a e5  |." at line ";.:.|
000015c0  20 8d 54 48 47 0d 06 cc  19 e7 20 6d 61 69 6e 5f  | .THG..... main_|
000015d0  6d 65 6e 75 25 3d a3 20  8c 20 8d 74 60 40 0d 06  |menu%=. . .t`@..|
000015e0  d6 05 db 0d 06 e0 10 6d  61 69 6e 5f 6d 65 6e 75  |.......main_menu|
000015f0  25 3d a3 0d 06 ea 27 f1  8a 35 2c 35 29 22 45 53  |%=....'..5,5)"ES|
00001600  43 41 50 45 20 74 6f 20  72 65 2d 65 64 69 74 20  |CAPE to re-edit |
00001610  63 6f 6d 6d 61 6e 64 65  72 22 0d 06 f4 34 e3 20  |commander"...4. |
00001620  41 25 3d 31 30 20 b8 20  31 31 3a f1 8a 31 31 2c  |A%=10 . 11:..11,|
00001630  41 25 29 bd 26 38 44 3b  22 53 61 76 65 20 63 6f  |A%).&8D;"Save co|
00001640  6d 6d 61 6e 64 65 72 2e  22 3a ed 20 41 25 0d 06  |mmander.":. A%..|
00001650  fe 42 d6 20 63 68 65 63  6b 25 3a f2 5f 6f 73 63  |.B. check%:._osc|
00001660  6c 69 28 22 53 41 56 45  20 22 2b a4 5f 46 49 4c  |li("SAVE "+._FIL|
00001670  45 4e 41 4d 45 2b 22 20  22 2b c3 7e 28 66 69 6c  |ENAME+" "+.~(fil|
00001680  65 25 29 2b 22 20 2b 31  30 30 20 30 20 30 22 29  |e%)+" +100 0 0")|
00001690  0d 07 08 08 2a 46 58 34  0d 07 12 05 e0 0d 07 1c  |....*FX4........|
000016a0  0e dd 20 a4 5f 59 45 53  5f 4e 4f 0d 07 26 14 f1  |.. ._YES_NO..&..|
000016b0  22 3f 20 28 59 2f 4e 29  22 3b bd 26 38 38 3b 0d  |"? (Y/N)";.&88;.|
000016c0  07 30 28 f5 20 67 65 74  25 3d a5 20 80 20 26 44  |.0(. get%=. . &D|
000016d0  46 3a fd 20 67 65 74 25  3d 26 35 39 20 84 20 67  |F:. get%=&59 . g|
000016e0  65 74 25 3d 26 34 45 0d  07 3a 0a ef 20 67 65 74  |et%=&4E..:.. get|
000016f0  25 0d 07 44 36 f5 20 67  65 74 32 25 3d a5 20 80  |%..D6. get2%=. .|
00001700  20 26 44 46 3a fd 20 67  65 74 32 25 3d 26 35 39  | &DF:. get2%=&59|
00001710  20 84 20 67 65 74 32 25  3d 26 34 45 20 84 20 67  | . get2%=&4E . g|
00001720  65 74 32 25 3d 26 44 0d  07 4e 29 e7 20 67 65 74  |et2%=&D..N). get|
00001730  32 25 3c 3e 26 44 20 8c  20 67 65 74 25 3d 67 65  |2%<>&D . get%=ge|
00001740  74 32 25 3a ef 20 26 37  46 3a e5 20 8d 54 7a 47  |t2%:. &7F:. .TzG|
00001750  0d 07 58 0c ef 20 38 2c  38 2c 33 32 0d 07 62 0d  |..X.. 8,8,32..b.|
00001760  3d 67 65 74 25 3d 26 35  39 0d 07 6c 10 dd 20 a4  |=get%=&59..l.. .|
00001770  5f 46 49 4c 45 4e 41 4d  45 0d 07 76 24 f1 8a 34  |_FILENAME..v$..4|
00001780  2c 31 35 29 22 50 6c 65  61 73 65 20 65 6e 74 65  |,15)"Please ente|
00001790  72 20 66 69 6c 65 6e 61  6d 65 20 22 3b 0d 07 80  |r filename ";...|
000017a0  13 ef 20 32 33 2c 31 2c  31 3b 30 3b 30 3b 30 3b  |.. 23,1,1;0;0;0;|
000017b0  0d 07 8a 0d 69 6e 70 75  74 24 3d 22 22 0d 07 94  |....input$=""...|
000017c0  05 f5 0d 07 9e 2e f5 20  67 65 74 25 3d a5 3a fd  |....... get%=.:.|
000017d0  20 28 67 65 74 25 3e 26  31 46 20 80 20 67 65 74  | (get%>&1F . get|
000017e0  25 3c 26 38 30 29 20 84  20 67 65 74 25 3d 26 44  |%<&80) . get%=&D|
000017f0  0d 07 a8 16 e7 20 67 65  74 25 3c 3e 26 37 46 20  |..... get%<>&7F |
00001800  8c 20 8d 64 46 47 0d 07  b2 31 e7 20 a9 28 69 6e  |. .dFG...1. .(in|
00001810  70 75 74 24 29 20 69 6e  70 75 74 24 3d c0 69 6e  |put$) input$=.in|
00001820  70 75 74 24 2c a9 28 69  6e 70 75 74 24 29 2d 31  |put$,.(input$)-1|
00001830  29 3a ef 20 26 37 46 0d  07 bc 0a e5 20 8d 64 50  |):. &7F..... .dP|
00001840  47 0d 07 c6 55 e7 20 28  a9 28 69 6e 70 75 74 24  |G...U. (.(input$|
00001850  29 3c 31 30 2b 28 33 2a  28 66 69 6c 65 5f 73 79  |)<10+(3*(file_sy|
00001860  73 74 65 6d 25 3d 34 29  29 29 20 80 20 28 67 65  |stem%=4))) . (ge|
00001870  74 25 3c 3e 26 44 29 20  8c 20 69 6e 70 75 74 24  |t%<>&D) . input$|
00001880  3d 69 6e 70 75 74 24 2b  bd 28 67 65 74 25 29 3a  |=input$+.(get%):|
00001890  ef 20 67 65 74 25 0d 07  d0 1a fd 20 67 65 74 25  |. get%..... get%|
000018a0  3d 26 44 20 80 20 69 6e  70 75 74 24 3c 3e 22 22  |=&D . input$<>""|
000018b0  0d 07 da 12 ef 20 32 33  2c 31 3b 30 3b 30 3b 30  |..... 23,1;0;0;0|
000018c0  3b 30 0d 07 e4 5d e7 20  66 69 6c 65 5f 73 79 73  |;0...]. file_sys|
000018d0  74 65 6d 25 3d 34 20 8c  20 f1 8a 39 2c 31 39 29  |tem%=4 . ..9,19)|
000018e0  22 45 6e 74 65 72 20 64  72 69 76 65 20 6e 75 6d  |"Enter drive num|
000018f0  62 65 72 20 22 3a 3d 22  3a 22 2b c3 28 a4 5f 49  |ber ":=":"+.(._I|
00001900  4e 50 55 54 28 32 38 2c  31 39 2c 31 2c 33 2c a3  |NPUT(28,19,1,3,.|
00001910  29 29 2b 22 2e 45 2e 22  2b 69 6e 70 75 74 24 0d  |))+".E."+input$.|
00001920  07 ee 0b 3d 69 6e 70 75  74 24 0d 07 f8 17 dd 20  |...=input$..... |
00001930  f2 5f 6f 73 63 6c 69 28  24 6d 65 6d 6f 72 79 25  |._oscli($memory%|
00001940  29 0d 08 02 05 f1 0d 08  0c 15 58 25 3d 6d 65 6d  |).........X%=mem|
00001950  6f 72 79 25 20 83 20 26  31 30 30 0d 08 16 15 59  |ory% . &100....Y|
00001960  25 3d 6d 65 6d 6f 72 79  25 20 81 20 26 31 30 30  |%=memory% . &100|
00001970  0d 08 20 0b d6 20 26 46  46 46 37 0d 08 2a 05 e1  |.. .. &FFF7..*..|
00001980  0d 08 34 15 dd 20 a4 5f  4d 45 4e 55 28 6e 75 6d  |..4.. ._MENU(num|
00001990  62 65 72 25 29 0d 08 3e  12 ef 20 32 33 2c 31 3b  |ber%)..>.. 23,1;|
000019a0  30 3b 30 3b 30 3b 30 0d  08 48 05 db 0d 08 52 4a  |0;0;0;0..H....RJ|
000019b0  e3 20 41 25 3d 30 20 b8  20 31 3a f1 8a 28 33 39  |. A%=0 . 1:..(39|
000019c0  2d a9 28 6d 65 6e 75 24  28 6e 75 6d 62 65 72 25  |-.(menu$(number%|
000019d0  2c 30 29 29 29 81 20 32  2c 41 25 29 bd 26 38 44  |,0))). 2,A%).&8D|
000019e0  3b 6d 65 6e 75 24 28 6e  75 6d 62 65 72 25 2c 30  |;menu$(number%,0|
000019f0  29 3a ed 20 41 25 0d 08  5c 1e e3 20 41 25 3d 31  |):. A%..\.. A%=1|
00001a00  20 b8 20 65 6e 74 72 69  65 73 25 28 6e 75 6d 62  | . entries%(numb|
00001a10  65 72 25 29 0d 08 66 35  f1 8a 33 2c 28 41 25 2a  |er%)..f5..3,(A%*|
00001a20  32 29 2b 31 29 3b bd 31  32 39 3b 41 25 3b 22 2e  |2)+1);.129;A%;".|
00001a30  22 3b bd 31 33 34 3b 6d  65 6e 75 24 28 6e 75 6d  |";.134;menu$(num|
00001a40  62 65 72 25 2c 41 25 29  3b 0d 08 70 46 e7 20 64  |ber%,A%);..pF. d|
00001a50  65 74 61 69 6c 73 24 28  6e 75 6d 62 65 72 25 2c  |etails$(number%,|
00001a60  41 25 29 3c 3e 22 4e 22  20 20 f1 bd 26 38 32 3b  |A%)<>"N"  ..&82;|
00001a70  22 28 22 3b a0 28 64 65  74 61 69 6c 73 24 28 6e  |"(";.(details$(n|
00001a80  75 6d 62 65 72 25 2c 41  25 29 29 3b 22 29 22 0d  |umber%,A%));")".|
00001a90  08 7a 08 ed 20 41 25 0d  08 84 47 f1 8a 30 2c 32  |.z.. A%...G..0,2|
00001aa0  31 29 22 45 6e 74 65 72  20 77 68 69 63 68 20 66  |1)"Enter which f|
00001ab0  75 6e 63 74 69 6f 6e 20  79 6f 75 20 72 65 71 75  |unction you requ|
00001ac0  69 72 65 20 28 31 2d 22  3b 65 6e 74 72 69 65 73  |ire (1-";entries|
00001ad0  25 28 6e 75 6d 62 65 72  25 29 3b 22 29 22 0d 08  |%(number%);")"..|
00001ae0  8e 1b f1 8a 33 2c 32 32  29 22 6f 72 20 45 53 43  |....3,22)"or ESC|
00001af0  41 50 45 20 74 6f 20 22  3b 0d 08 98 4c e7 20 6e  |APE to ";...L. n|
00001b00  75 6d 62 65 72 25 3d 31  20 f1 22 72 65 2d 73 61  |umber%=1 ."re-sa|
00001b10  76 65 20 63 6f 6d 6d 61  6e 64 65 72 22 3b 3a 6d  |ve commander";:m|
00001b20  61 69 6e 5f 6d 65 6e 75  25 3d b9 20 8b 20 f1 22  |ain_menu%=. . ."|
00001b30  72 65 74 75 72 6e 20 74  6f 20 6d 61 69 6e 20 6d  |return to main m|
00001b40  65 6e 75 22 3b 0d 08 a2  5a f5 20 67 65 74 25 3d  |enu";...Z. get%=|
00001b50  a5 2d 26 33 30 3a fd 20  67 65 74 25 3e 30 20 80  |.-&30:. get%>0 .|
00001b60  20 67 65 74 25 3c 28 65  6e 74 72 69 65 73 25 28  | get%<(entries%(|
00001b70  6e 75 6d 62 65 72 25 29  2b 31 29 20 80 20 ac 28  |number%)+1) . .(|
00001b80  28 67 65 74 25 3d 37 29  20 80 20 28 6e 75 6d 62  |(get%=7) . (numb|
00001b90  65 72 25 3d 31 29 20 80  20 6c 6f 63 6b 25 29 0d  |er%=1) . lock%).|
00001ba0  08 ac 18 f1 8a 30 2c 28  67 65 74 25 2a 32 29 2b  |.....0,(get%*2)+|
00001bb0  31 29 3b bd 26 38 38 0d  08 b6 6f f5 20 67 65 74  |1);.&88...o. get|
00001bc0  32 25 3d a5 3a fd 20 28  67 65 74 32 25 3e 26 33  |2%=.:. (get2%>&3|
00001bd0  30 20 80 20 67 65 74 32  25 3c 28 65 6e 74 72 69  |0 . get2%<(entri|
00001be0  65 73 25 28 6e 75 6d 62  65 72 25 29 2b 26 33 31  |es%(number%)+&31|
00001bf0  29 20 80 20 ac 28 28 67  65 74 32 25 3d 26 33 37  |) . .((get2%=&37|
00001c00  29 20 80 20 28 6e 75 6d  62 65 72 25 3d 31 29 20  |) . (number%=1) |
00001c10  80 20 6c 6f 63 6b 25 29  29 20 84 20 28 67 65 74  |. lock%)) . (get|
00001c20  32 25 3d 26 44 29 0d 08  c0 3b e7 20 67 65 74 32  |2%=&D)...;. get2|
00001c30  25 3c 3e 26 44 20 8c 20  f1 8a 30 2c 28 67 65 74  |%<>&D . ..0,(get|
00001c40  25 2a 32 29 2b 31 29 3b  22 20 22 3a 67 65 74 25  |%*2)+1);" ":get%|
00001c50  3d 67 65 74 32 25 2d 26  33 30 3a e5 20 8d 74 6c  |=get2%-&30:. .tl|
00001c60  48 0d 08 ca 10 6d 61 69  6e 5f 6d 65 6e 75 25 3d  |H....main_menu%=|
00001c70  a3 0d 08 d4 09 3d 67 65  74 25 0d 08 de 2f f4 20  |.....=get%.../. |
00001c80  46 4e 27 73 20 74 6f 20  64 69 73 70 6c 61 79 20  |FN's to display |
00001c90  73 74 61 74 75 73 20 6e  65 78 74 20 74 6f 20 6d  |status next to m|
00001ca0  65 6e 75 20 65 6e 74 72  79 0d 08 e8 0e dd 20 a4  |enu entry..... .|
00001cb0  5f 53 54 41 54 55 53 0d  08 f2 08 5a 25 3d 34 0d  |_STATUS....Z%=4.|
00001cc0  08 fc 26 f5 20 5a 25 3d  5a 25 2d 31 3a fd 20 66  |..&. Z%=Z%-1:. f|
00001cd0  69 6c 65 25 3f 26 33 34  3e 3d 73 74 61 74 75 73  |ile%?&34>=status|
00001ce0  25 28 5a 25 29 0d 09 06  10 3d 6d 65 6e 75 24 28  |%(Z%)....=menu$(|
00001cf0  37 2c 5a 25 29 0d 09 10  0e dd 20 a4 5f 52 41 54  |7,Z%)..... ._RAT|
00001d00  49 4e 47 0d 09 1a 09 5a  25 3d 31 30 0d 09 24 30  |ING....Z%=10..$0|
00001d10  f5 20 5a 25 3d 5a 25 2d  31 3a fd 20 28 66 69 6c  |. Z%=Z%-1:. (fil|
00001d20  65 25 21 26 34 37 20 80  20 26 46 46 46 46 29 3e  |e%!&47 . &FFFF)>|
00001d30  3d 72 61 74 69 6e 67 25  28 5a 25 29 0d 09 2e 10  |=rating%(Z%)....|
00001d40  3d 6d 65 6e 75 24 28 36  2c 5a 25 29 0d 09 38 0f  |=menu$(6,Z%)..8.|
00001d50  dd 20 a4 5f 4d 49 53 53  49 4f 4e 0d 09 42 1c e7  |. ._MISSION..B..|
00001d60  20 3f 66 69 6c 65 25 3d  36 20 8c 20 3d 6d 65 6e  | ?file%=6 . =men|
00001d70  75 24 28 38 2c 34 29 0d  09 4c 08 5a 25 3d 30 0d  |u$(8,4)..L.Z%=0.|
00001d80  09 56 23 f5 20 5a 25 3d  5a 25 2b 31 3a fd 20 3f  |.V#. Z%=Z%+1:. ?|
00001d90  66 69 6c 65 25 3d 6d 69  73 73 69 6f 6e 25 28 5a  |file%=mission%(Z|
00001da0  25 29 0d 09 60 10 3d 6d  65 6e 75 24 28 38 2c 5a  |%)..`.=menu$(8,Z|
00001db0  25 29 0d 09 6a 0e dd 20  a4 5f 45 4e 45 52 47 59  |%)..j.. ._ENERGY|
00001dc0  0d 09 74 10 5a 25 3d 66  69 6c 65 25 3f 26 32 42  |..t.Z%=file%?&2B|
00001dd0  0d 09 7e 11 e7 20 5a 25  3e 33 20 8c 20 5a 25 3d  |..~.. Z%>3 . Z%=|
00001de0  33 0d 09 88 2c e7 20 5a  25 3d 30 20 8c 20 3d 22  |3...,. Z%=0 . ="|
00001df0  4e 6f 74 20 50 72 65 73  65 6e 74 22 20 8b 20 3d  |Not Present" . =|
00001e00  6d 65 6e 75 24 28 33 2c  5a 25 2b 31 29 0d 09 92  |menu$(3,Z%+1)...|
00001e10  0d dd 20 a4 5f 4c 41 53  45 52 0d 09 9c 08 5a 25  |.. ._LASER....Z%|
00001e20  3d 30 0d 09 a6 28 f5 20  5a 25 3d 5a 25 2b 31 3a  |=0...(. Z%=Z%+1:|
00001e30  fd 20 66 69 6c 65 25 3f  28 41 25 2b 26 46 29 3d  |. file%?(A%+&F)=|
00001e40  6c 61 73 65 72 25 28 5a  25 29 0d 09 b0 10 3d 6d  |laser%(Z%)....=m|
00001e50  65 6e 75 24 28 34 2c 5a  25 29 0d 09 ba 0f dd 20  |enu$(4,Z%)..... |
00001e60  a4 5f 47 4f 54 28 41 25  29 0d 09 c4 26 e7 20 41  |._GOT(A%)...&. A|
00001e70  25 20 8c 20 3d 22 50 72  65 73 65 6e 74 22 20 8b  |% . ="Present" .|
00001e80  20 3d 22 4e 6f 74 20 50  72 65 73 65 6e 74 22 0d  | ="Not Present".|
00001e90  09 ce 22 dd 20 a4 5f 49  4e 50 55 54 28 58 25 2c  |..". ._INPUT(X%,|
00001ea0  59 25 2c 4c 25 2c 6d 61  78 2c 70 6f 69 6e 74 25  |Y%,L%,max,point%|
00001eb0  29 0d 09 d8 0c ea 20 69  6e 70 75 74 24 0d 09 e2  |)..... input$...|
00001ec0  13 ef 20 32 33 2c 31 2c  31 3b 30 3b 30 3b 30 3b  |.. 23,1,1;0;0;0;|
00001ed0  0d 09 ec 1b f1 8a 58 25  2c 59 25 29 3b 89 28 4c  |......X%,Y%);.(L|
00001ee0  25 29 3b 8a 58 25 2c 59  25 29 3b 0d 09 f6 0d 69  |%);.X%,Y%);....i|
00001ef0  6e 70 75 74 24 3d 22 22  0d 0a 00 60 f5 20 67 65  |nput$=""...`. ge|
00001f00  74 25 3d a5 3a fd 20 28  67 65 74 25 3e 26 32 46  |t%=.:. (get%>&2F|
00001f10  20 80 20 67 65 74 25 3c  26 33 41 29 20 84 20 28  | . get%<&3A) . (|
00001f20  67 65 74 25 3d 26 32 45  20 80 20 70 6f 69 6e 74  |get%=&2E . point|
00001f30  25 29 20 84 20 28 67 65  74 25 3d 26 37 46 29 20  |%) . (get%=&7F) |
00001f40  84 20 28 67 65 74 25 3d  26 44 29 20 84 20 28 67  |. (get%=&D) . (g|
00001f50  65 74 25 3d 26 31 35 29  0d 0a 0a 15 e7 20 67 65  |et%=&15)..... ge|
00001f60  74 25 3d 26 31 35 20 8c  20 8d 64 6c 49 0d 0a 14  |t%=&15 . .dlI...|
00001f70  16 e7 20 67 65 74 25 3c  3e 26 37 46 20 8c 20 8d  |.. get%<>&7F . .|
00001f80  54 72 4a 0d 0a 1e 32 e7  20 69 6e 70 75 74 24 3c  |TrJ...2. input$<|
00001f90  3e 22 22 20 69 6e 70 75  74 24 3d c0 69 6e 70 75  |>"" input$=.inpu|
00001fa0  74 24 2c a9 28 69 6e 70  75 74 24 29 2d 31 29 3a  |t$,.(input$)-1):|
00001fb0  ef 20 26 37 46 0d 0a 28  0a e5 20 8d 54 40 4a 0d  |. &7F..(.. .T@J.|
00001fc0  0a 32 28 e7 20 a9 28 69  6e 70 75 74 24 29 20 8c  |.2(. .(input$) .|
00001fd0  20 50 25 3d a7 69 6e 70  75 74 24 2c 22 2e 22 29  | P%=.input$,".")|
00001fe0  20 8b 20 50 25 3d 30 0d  0a 3c 1a e7 20 67 65 74  | . P%=0..<.. get|
00001ff0  25 3d 26 32 45 20 80 20  50 25 20 8c 20 8d 54 40  |%=&2E . P% . .T@|
00002000  4a 0d 0a 46 2b e7 20 50  25 20 80 20 28 50 25 3c  |J..F+. P% . (P%<|
00002010  a9 28 69 6e 70 75 74 24  29 29 20 80 20 67 65 74  |.(input$)) . get|
00002020  25 3c 3e 26 44 20 8c 20  8d 54 40 4a 0d 0a 50 3c  |%<>&D . .T@J..P<|
00002030  e7 20 67 65 74 25 3c 3e  26 44 20 80 20 a9 28 69  |. get%<>&D . .(i|
00002040  6e 70 75 74 24 29 3c 4c  25 20 8c 20 69 6e 70 75  |nput$)<L% . inpu|
00002050  74 24 3d 69 6e 70 75 74  24 2b bd 28 67 65 74 25  |t$=input$+.(get%|
00002060  29 3a ef 20 67 65 74 25  0d 0a 5a 20 e7 20 67 65  |):. get%..Z . ge|
00002070  74 25 3c 3e 26 44 20 84  20 69 6e 70 75 74 24 3d  |t%<>&D . input$=|
00002080  22 22 8c 20 8d 54 40 4a  0d 0a 64 2e e7 20 bb 28  |"". .T@J..d.. .(|
00002090  69 6e 70 75 74 24 29 3c  3d 6d 61 78 20 ef 20 32  |input$)<=max . 2|
000020a0  33 2c 31 3b 30 3b 30 3b  30 3b 30 3a 3d bb 28 69  |3,1;0;0;0;0:=.(i|
000020b0  6e 70 75 74 24 29 0d 0a  6e 29 f1 27 22 20 20 4d  |nput$)..n).'"  M|
000020c0  61 78 69 6d 75 6d 20 70  6f 73 73 69 62 6c 65 20  |aximum possible |
000020d0  76 61 6c 75 65 20 69 73  20 22 3b 6d 61 78 3b 0d  |value is ";max;.|
000020e0  0a 78 0f 67 65 74 25 3d  a6 28 31 30 30 29 0d 0a  |.x.get%=.(100)..|
000020f0  82 0a e5 20 8d 64 6c 49  0d ff                    |... .dlI..|
000020fa