10REM----------
20REM SUPREME
30REM PROGRAM 1
40REM 'LOADING'
50REM----------
60MODE7:FORF=129TO135
70REM *TV255
80VDU141,F:PRINT"Can you become one o
f the SUPREMES?"
90VDU141,F:PRINT"Can you become one o
f the SUPREMES?"
100NEXT:PRINT'"Presented by Lars 0ster
balle of Denmark"
110VDU145:PRINTSTRING$(15,",")CHR$135;
"1985"CHR$145;STRING$(16,",")
120VDU28,0,23,39,17
121VDU23;8202;0;0;0;
122A$=INKEY$(200)
130CHAIN"SUPREM1"
140REM-------------------------------
150REM
160REM
170REM MAKE THE FOLLOWING CHANGES FOR
180REM THE ACORN ELECTRON MICRO:
190REM
200REM
210REM-------------------------------
220REM
230REM CHANGES IN PROGRAM 1:
240REM
250REM LEAVE IT OUT...
260REM-------------------------------
270REM CHANGES IN PROGRAM 2:
280REM
290REM 750PRINT'"1 Hyperspace jump"'
"2 Buy cargo"'"3 Sell cargo"'"4 Eq
uip ship"'"5 Intergalactic jump"'"6
Chart"'"7 Data on system"'"8 Market
price"'"9 Status"'"0 Inventory"'"-
Save game"
300REM-------------------------------
310REM CHANGES IN PROGRAM 3
320REM
325REM 110DEFPROCtast:IFINKEY-39PROCst
atus:A=GET:PROCfront
330REM 790IFINKEY-50PROCbuy ELSEIFINKE
Y-18PROCsell ELSEIFINKEY-19PROCequip ELS
EIFINKEY-53PROCshort ELSEIFINKEY-37PROCs
ystem ELSEIFINKEY-22PROCprice ELSEIFINKE
Y-39PROCstatus ELSEIFINKEY-40PROCinv ELS
EIFINKEY-24PROCsave
340REM 800IFINKEY-49GOTO1040ELSEIFINKE
Y-20GOTO1080ELSE790
350REM 950IFNOT(INKEY-49OR INKEY-50OR
INKEY-18OR INKEY-19OR INKEY-20OR INKEY-5
3OR INKEY-37OR INKEY-22OR INKEY-39OR INK
EY-40)GOTO940
360REM 960IFINKEY-37G$=DSYS$:GOTO970EL
SEVDU29,640;512;:PROCstatus:ENDPROC
370REM--------------------------------
-
380END