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