Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape24a_acorn_eu_1991_june.wav » EliteCH

EliteCH

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape24a_acorn_eu_1991_june.wav
Filename: EliteCH
Read OK:
File size: 20FA bytes
Load address: FFFF1A00
Exec address: FFFF8023
Duplicates

There are 4 duplicate copies of this file in the archive:

File contents
   10REM #################
   20REM #  ELITE CHEAT  #
   30REM #################
   40REM #      By       #
   50REM # Stuart Menefy #
   60REM #      (C)      #
   70REM #   The Micro   #
   80REM #     User      #
   90REM #################
  100MODE 7
  110PROC_screen 
  120PROC_init
  130PROC_assemble
  140PROC_load
  150ON ERROR GOTO 1730
  160REPEAT
  170ON FN_MENU(1) GOSUB 880,950,1140,1160,1220,1250,1280,1430,1670
  180UNTIL FALSE
  190DEF PROC_screen
  200FOR A%=0 TO 1:VDU 31,0,A%,134,157,129,141,31,15,A%:PRINT"Elite Cheat":NEXT A%
  210VDU 28,0,24,39,2
  220VDU 23,1;0;0;0;0
  230ENDPROC
  240DEF PROC_init
  250@%=0
  260*FX4 1
  270DIM memory% 40,file% &100,check% 100
  280DIM entries%(8),menu$(8,9),details$(8,9),laser%(6),rating%(9),status%(3),mission%(5),cargo$(17)
  290X%=&70:Y%=0:A%=0:file_system%=USR(&FFDA) AND &F:REM Read which filing system is in use
  300REM Set file to commander Jameson
  310FOR A%=0 TO &FF STEP 4:A%!file%=0:NEXT A%
  320!&70=1E3:file%!&B=&446E803:file%?&10=&F:file%?&16=&16:file%?&33=3
  330file%!1=&5A4AAD14:file%!5=&B7530248
  340lock%=FALSE
  350REM Read in data
  360FOR A%=1 TO 6:READ laser%(A%):NEXT A%
  370DATA 0,&F,&8F,&32,&97,&FF
  380FOR A%=1 TO 9:READ rating%(A%):NEXT A%
  390DATA 0,8,&10,&20,&40,&80,&200,&A00,&1900
  400FOR A%=1 TO 3:READ status%(A%):NEXT A%
  410DATA 0,1,50
  420FOR A%=1 TO 5:READ mission%(A%):NEXT A%
  430DATA 0,1,2,&A,&E
  440FOR A%=1 TO 8
  450READ entries%(A%),details$
  460FOR B%=0 TO entries%(A%)
  470READ menu$(A%,B%)
  480IF details$="I" AND B% READ details$(A%,B%) ELSE IF details$="N" THEN details$(A%,B%)="N" ELSE details$(A%,B%)=details$
  490NEXT B%,A%
  500IF file_system%<>4 THEN entries%(1)=7
  510FOR A%=1 TO 17:READ cargo$(A%),file%?(A%+&34):NEXT A%
  520ENDPROC
  530DATA 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
  540DATA 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
  550 DATA Docking Computer,FN_GOT(file%?&2C),Galactic Hyperspace,FN_GOT(file%?&2D)
  560DATA 4,N,Energy Unit,Not Present,Normal,Naval,Cheat
  570DATA 6,N,Laser Type,None,Pulse,Beam,Mining,Military,Cheat
  580DATA 4,FN_LASER,Laser Position,Front,Rear,Left,Right
  590DATA 9,N,Combat Rating,Harmless,Mostly Harmless,Poor,Average,Above Average,Competent,Dangerous,Deadly,E L I T E
  600DATA 3,N,Legal Status,Clean,Offender,Fugitive
  610DATA 5,N,Mission Menu,Before Mission 1,During mission 1,After mission 1,During mission 2,After mission 2
  620DATA 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
  630DEF PROC_assemble
  640FOR PASS%=0 TO 2 STEP 2
  650P%=check%
  660[OPT PASS%
  670LDX #&49
  680LDA #&49
  690CLC
  700.check_loop
  710ADC file%-1,X
  720EOR file%,X
  730DEX
  740BNE check_loop
  750STA file%+&4B:EOR #&A9:STA file%+&4A:RTS
  760]
  770NEXT PASS%
  780ENDPROC
  790DEF PROC_load
  800PRINTTAB(9,9)"Do you want to load a"
  810PRINTTAB(7,12)"previous commander";
  820IF NOT(FN_YES_NO) ENDPROC
  830PROC_oscli("LOAD "+FN_FILENAME+" "+STR$~(file%))
  840FOR A%=0 TO 3:A%?&70=file%?(&C-A%):NEXT A%
  850IF ?file%=1 OR ?file%=6 OR ?file%=&A THEN lock%=TRUE
  860ENDPROC
  870REM Alter Money
  880CLS
  890PRINTTAB(9,9)"Enter how much money" 
  900PRINTTAB(13,12)"you require."
  910!&70=FN_INPUT(14,15,10,&CCCCCCC,TRUE)*10
  920FOR A%=0 TO 3:file%?(&C-A%)=A%?&70:NEXT A%
  930RETURN
  940REM Alter Equipment
  950REPEAT
  960ON FN_MENU(2) GOSUB 980,1020,1060,1070,1080,1090,1100,1110,1120
  970UNTIL FALSE
  980CLS:PRINTTAB(7,9)"Enter how much hyperspace"
  990PRINTTAB(13,12)"fuel you want."
 1000file%?&D=FN_INPUT(17,15,4,25.5,TRUE)*10
 1010RETURN
 1020CLS:PRINTTAB(10,9)"Enter cargo bay size"
 1030file%?&16=FN_INPUT(18,11,3,253,FALSE)+2
 1040RETURN
 1050REM Toggle various bytes, and items of eqipment
 1060file%?&28=NOT file%?&28:RETURN
 1070file%?&29=NOT file%?&29:RETURN
 1080file%?&2E=NOT file%?&2E:RETURN
 1090file%?&2A=file%?&2A EOR &7F:RETURN
 1100file%?&2B=FN_MENU(3)-1:RETURN
 1110file%?&2C=NOT file%?&2C:RETURN
 1120file%?&2D=NOT file%?&2D:RETURN
 1130REM Alter Lasers
 1140REPEAT file%?(FN_MENU(5)+&F)=laser%(FN_MENU(4)):UNTIL FALSE
 1150REM Number of missiles
 1160CLS
 1170PRINTTAB(8,9)"Enter how many missiles"
 1180PRINTTAB(13,12)"you require."
 1190file%?&33=FN_INPUT(19,15,3,255,FALSE)
 1200RETURN
 1210REM Alter combat rating
 1220file%!&47=rating%(FN_MENU(6)) OR (file%!&74 AND &FFFF0000)
 1230RETURN
 1240REM Alter legal status
 1250file%?&34=status%(FN_MENU(7))
 1260RETURN
 1270REM Set Galaxy
 1280CLS
 1290RESTORE 1340
 1300PRINTTAB(10,8)"Enter Galaxy Number."
 1310file%?&F=FN_INPUT(19,11,1,8,FALSE)-1
 1320FOR A%=1 TO file%?&F+1:READ file%!1,file%!5:NEXT A%
 1330RETURN
 1340DATA &5A4AAD14,&B7530248
 1350DATA &B4945F60,&6FA60490
 1360DATA &69296F5A,&DE4D0821
 1370DATA &D2526763,&BD9A1042
 1380DATA &A5A45D69,&7B352084
 1390DATA &4B496663,&F66A4009
 1400DATA &96925F6A,&EDD48012
 1410DATA &2D25605E,&DBA90124
 1420REM Set up Cargo
 1430CLS
 1440PRINTTAB(22)"Quantity Quantity"
 1450PRINT" No.   Product   Unit as Cargo for Sale"
 1460FOR A%=1 TO 17
 1470PRINTTAB(1);A%;".";TAB(5);cargo$(A%);TAB(18);FN_UNIT;TAB(24);(file%?(A%+&16));TAB(33);(file%?(A%+&34))
 1480NEXT
 1490VDU &86,&9D,&81:PRINT"   ESCAPE to return to main menu"
 1500REPEAT
 1510PRINTTAB(1,20)"Enter number of product to alter"
 1520number%=FN_INPUT(34,20,2,17,FALSE)
 1530PRINTTAB(1,20)"Enter quantity of ";cargo$(number%);SPC(13);TAB(1,21)"in cargo bay";SPC(19)
 1540PRINTTAB(23,number%+1);CHR$&88;TAB(28,number%+1)CHR$&89
 1550file%?(number%+&16)=FN_INPUT(14,21,3,255,FALSE)
 1560PRINTTAB(23,number%+1);" ";(file%?(number%+&16));"  "
 1570IF number%=17 THEN 1620
 1580PRINTTAB(32,number%+1);CHR$&88;TAB(36,number%+1)CHR$&89
 1590PRINTTAB(1,21)"for sale at planet"
 1600file%?(number%+&34)=FN_INPUT(20,21,3,255,FALSE)
 1610PRINTTAB(32,number%+1);" ";(file%?(number%+&34));"  "
 1620PRINTTAB(0,20);SPC(119);
 1630UNTIL 0
 1640DEF FN_UNIT
 1650IF A%<14 THEN ="t" ELSE IF A%<16 THEN ="kg" ELSE IF A%=16 THEN ="g" ELSE ="t"
 1660REM Set Up Mission
 1670?file%=mission%(FN_MENU(8))
 1680IF ?file%=1 THEN file%!1=&B4942190:file%!5=&6FA60490:file%?&F=1
 1690IF ?file%=&A THEN file%!1=&692954D7:file%!5=&DE4D0821:file%?&F=2
 1700lock%=(?file%=1 OR ?file%=&A)
 1710RETURN
 1720REM Re-save file, and error control
 1730IF INKEY(-1) OR ERR<>17 REPORT:PRINT" at line ";ERL:GOTO 1800
 1740IF main_menu%=FALSE THEN 160
 1750CLS
 1760main_menu%=FALSE
 1770PRINTTAB(5,5)"ESCAPE to re-edit commander"
 1780FOR A%=10 TO 11:PRINTTAB(11,A%)CHR$&8D;"Save commander.":NEXT A%
 1790CALL check%:PROC_oscli("SAVE "+FN_FILENAME+" "+STR$~(file%)+" +100 0 0")
 1800*FX4
 1810END
 1820DEF FN_YES_NO
 1830PRINT"? (Y/N)";CHR$&88;
 1840REPEAT get%=GET AND &DF:UNTIL get%=&59 OR get%=&4E
 1850VDU get%
 1860REPEAT get2%=GET AND &DF:UNTIL get2%=&59 OR get2%=&4E OR get2%=&D
 1870IF get2%<>&D THEN get%=get2%:VDU &7F:GOTO 1850
 1880VDU 8,8,32
 1890=get%=&59
 1900DEF FN_FILENAME
 1910PRINTTAB(4,15)"Please enter filename ";
 1920VDU 23,1,1;0;0;0;
 1930input$=""
 1940REPEAT
 1950REPEAT get%=GET:UNTIL (get%>&1F AND get%<&80) OR get%=&D
 1960IF get%<>&7F THEN 1990
 1970IF LEN(input$) input$=LEFT$(input$,LEN(input$)-1):VDU &7F
 1980GOTO 2000
 1990IF (LEN(input$)<10+(3*(file_system%=4))) AND (get%<>&D) THEN input$=input$+CHR$(get%):VDU get%
 2000UNTIL get%=&D AND input$<>""
 2010VDU 23,1;0;0;0;0
 2020IF file_system%=4 THEN PRINTTAB(9,19)"Enter drive number ":=":"+STR$(FN_INPUT(28,19,1,3,FALSE))+".E."+input$
 2030=input$
 2040DEF PROC_oscli($memory%)
 2050PRINT
 2060X%=memory% MOD &100
 2070Y%=memory% DIV &100
 2080CALL &FFF7
 2090ENDPROC
 2100DEF FN_MENU(number%)
 2110VDU 23,1;0;0;0;0
 2120CLS
 2130FOR A%=0 TO 1:PRINTTAB((39-LEN(menu$(number%,0)))DIV 2,A%)CHR$&8D;menu$(number%,0):NEXT A%
 2140FOR A%=1 TO entries%(number%)
 2150PRINTTAB(3,(A%*2)+1);CHR$129;A%;".";CHR$134;menu$(number%,A%);
 2160IF details$(number%,A%)<>"N"  PRINTCHR$&82;"(";EVAL(details$(number%,A%));")"
 2170NEXT A%
 2180PRINTTAB(0,21)"Enter which function you require (1-";entries%(number%);")"
 2190PRINTTAB(3,22)"or ESCAPE to ";
 2200IF number%=1 PRINT"re-save commander";:main_menu%=TRUE ELSE PRINT"return to main menu";
 2210REPEAT get%=GET-&30:UNTIL get%>0 AND get%<(entries%(number%)+1) AND NOT((get%=7) AND (number%=1) AND lock%)
 2220PRINTTAB(0,(get%*2)+1);CHR$&88
 2230REPEAT get2%=GET:UNTIL (get2%>&30 AND get2%<(entries%(number%)+&31) AND NOT((get2%=&37) AND (number%=1) AND lock%)) OR (get2%=&D)
 2240IF get2%<>&D THEN PRINTTAB(0,(get%*2)+1);" ":get%=get2%-&30:GOTO 2220
 2250main_menu%=FALSE
 2260=get%
 2270REM FN's to display status next to menu entry
 2280DEF FN_STATUS
 2290Z%=4
 2300REPEAT Z%=Z%-1:UNTIL file%?&34>=status%(Z%)
 2310=menu$(7,Z%)
 2320DEF FN_RATING
 2330Z%=10
 2340REPEAT Z%=Z%-1:UNTIL (file%!&47 AND &FFFF)>=rating%(Z%)
 2350=menu$(6,Z%)
 2360DEF FN_MISSION
 2370IF ?file%=6 THEN =menu$(8,4)
 2380Z%=0
 2390REPEAT Z%=Z%+1:UNTIL ?file%=mission%(Z%)
 2400=menu$(8,Z%)
 2410DEF FN_ENERGY
 2420Z%=file%?&2B
 2430IF Z%>3 THEN Z%=3
 2440IF Z%=0 THEN ="Not Present" ELSE =menu$(3,Z%+1)
 2450DEF FN_LASER
 2460Z%=0
 2470REPEAT Z%=Z%+1:UNTIL file%?(A%+&F)=laser%(Z%)
 2480=menu$(4,Z%)
 2490DEF FN_GOT(A%)
 2500IF A% THEN ="Present" ELSE ="Not Present"
 2510DEF FN_INPUT(X%,Y%,L%,max,point%)
 2520LOCAL input$
 2530VDU 23,1,1;0;0;0;
 2540PRINTTAB(X%,Y%);SPC(L%);TAB(X%,Y%);
 2550input$=""
 2560REPEAT get%=GET:UNTIL (get%>&2F AND get%<&3A) OR (get%=&2E AND point%) OR (get%=&7F) OR (get%=&D) OR (get%=&15)
 2570IF get%=&15 THEN 2540
 2580IF get%<>&7F THEN 2610
 2590IF input$<>"" input$=LEFT$(input$,LEN(input$)-1):VDU &7F
 2600GOTO 2560
 2610IF LEN(input$) THEN P%=INSTR(input$,".") ELSE P%=0
 2620IF get%=&2E AND P% THEN 2560
 2630IF P% AND (P%<LEN(input$)) AND get%<>&D THEN 2560
 2640IF get%<>&D AND LEN(input$)<L% THEN input$=input$+CHR$(get%):VDU get%
 2650IF get%<>&D OR input$=""THEN 2560
 2660IF VAL(input$)<=max VDU 23,1;0;0;0;0:=VAL(input$)
 2670PRINT'"  Maximum possible value is ";max;
 2680get%=INKEY(100)
 2690GOTO 2540

� #################
� #  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
EliteCH.m0
EliteCH.m1
EliteCH.m2
EliteCH.m4
EliteCH.m5