0*FX15,0
10REM-------------------------------
20REM 'SUPREME' PROGRAM 2
30REM FOR THE 32K BBC MICRO
40REM FEBRUARY 1985
50REM BY LARS 0STERBALLE OF DENMARK
60REM THIS SHORT PROGRAM
70REM DEFINES CHRS AND ENVELOPES
80REM AND LOADS THE MAIN PROGRAM
90REM-------------------------------
100ENVELOPE2,1,-10,10,100,200,10,200,1
20,-90,-3,-2,110,127:ENVELOPE3,1,0,0,0,1
5,50,50,10,-1,-5,-1,126,60:ENVELOPE4,1,0
,0,0,1,50,50,0,-1,-10,-1,126,60
110VDU23,240,64,128,32,15,7,40,7,15,23
,241,1,2,208,240,128,150,208,209,23,242,
7,15,16,63,18,150,200,128,23,243,207,200
,128,1,2,64,128,1,23,244,&3C,&7A,&F1,&F1
,&F1,&F1,&7A,&3C
120ENVELOPE1,129,0,0,0,50,50,100,3,1,-
1,-22,126,0
130REM *TV255
140*FX220,2
150MODE4
160*FX4,1
170FORF=&B00TO&B0A:?F=F-&AF0:?(F+&11)=
&D:NEXT:?&B10=&1A
180VDU19,1,0,0,0,0,23,1,0;0;0;0;15
190DIMX(24),Y(24):I=0:FORF=0TO2*PI STE
P2*PI/24:X(I)=COSF:Y(I)=SINF:I=I+1:NEXT
200VDU29,930;700;:GCOL0,1:MOVE0,0:DRAW
0,350:DRAW308,350:DRAW308,0:PROCFILL(150
,0):MOVE0,0:GCOL0,0
210PRINTTAB(27,11);"Suspected for";TAB
(28,12);"making this";TAB(29,13);"progra
mme";TAB(27,15);"Reward: 100CR"
220REPEAT
230READA,B
240IFA=-255GOTO280
250IFA=-127GCOL0,1:VDU29,0;700;:GOTO23
0
260IFA=-1THENREADA:MOVEA,B:GOTO230
270DRAWA,B
280UNTILA=-255:GCOL0,1
290VDU29,96;224;:MOVE0,64:DRAW128,32:D
RAW608,0:MOVE0,64:DRAW96,192:DRAW256,288
:DRAW384,256:DRAW608,0
300PROCFILL(256,30):PROCFILL(584,2):GC
OL0,0:MOVE0,64:DRAW608,4:DRAW96,192:MOVE
588,8:DRAW256,288:GCOL0,1
310VDU29,0;0;:PROCCIRCLE(860,250,150):
PROCFILL(860,100):PROCCIRCLE(1100,400,25
):PROCFILL(1100,375):FORF%=0TO150:PLOT69
,RND(1279),RND(500):NEXT
320PRINTTAB(7,11);"Presented by";TAB(3
,13);"Lars 0sterballe 1985";TAB(7,0);"Ca
n you become"
330VDU19,1,7,0,0,0
340GOTO620
350DEFPROCFILL(X,Y):REPEAT:PLOT77,X,Y:
Y=Y+4:UNTILPOINT(X,Y):ENDPROC
360DATA0,0,30,10,40,0,30,10,84,64,80,2
0,100,0,80,20,80,76,80,80,110,50,130,40,
150,50,154,40,150,40,170,40,190,50,220,8
0,214,72,220,20,200,0,220,20,216,54,260,
10,250,0,260,10,308,0
370DATA260,10,216,54,214,72,220,80,230
,140,240,140,250,150,250,160,246,170,250
,180,250,210,240,220,240,200,230,180,230
,190,220,200
380DATA226,200,226,210,220,210,230,220
,230,250,220,260,206,260,210,250,200,260
,190,260,160,250
390DATA164,240,160,230,160,240,150,250
,140,230,146,250,120,256,110,260,80,260,
70,250,70,220,80,210
400DATA90,220,210,220,220,200,220,170,
210,160,190,160,170,170,160,190,154,204,
154,210,154,204,146,204,146,210,146,204,
130,170,110,160,90,160,80,170,80,200,74,
200,74,190,80,190
410DATA70,190,70,180,60,200,60,220,50,
210,50,180,54,170,50,160,50,150,60,140,7
0,140,80,80
420DATA74,120,60,140
430DATA-1,210,50,50,220,44,250,44,260,
56,300,70,310,130,315,150,310,170,315,22
6,310,240,300,254,260,250,220,250,210
440DATA-1,170,230,210,120,-1,170,70,90
,120,-1,0,140,140,20,130,30
450DATA-1,60,124,120,70,130,80,-1,86,1
36,170,86,-1,100,110,142,106,144,102,156
,102,158,106,190,100
460DATA-1,135,120,136,135,140,129,160,
129,164,135,180,135,-1,200,144,140,150
470DATA-1,200,96,120,210,130,200,120,2
10,120,186,106,186,106,206
480DATA-1,200,206,180,210,170,200,180,
210,180,186,196,186,192,206
490DATA-127,0,-1,0,0,128,0,248,192,200
,192,224,224,264,224,288,256,224,256,112
,128,176,128,144,80,72,80,0,0
500DATA-1,0,136,256,0,352,256,328,256,
248,80,216,80,312,256,296,256,136,0
510DATA-1,0,264,320,0,352,128,400,128,
416,256,360,256,264,0,-1,160,360,376,160
,392,240,376,240,360,160
520DATA-1,0,392,448,0,448,128,464,0,51
2,0,488,128,496,128,480,256,424,256,392,
0,-1,160,440,456,160,456,240,440,240,440
,160
530DATA-1,0,520,640,0,608,80,544,80,52
8,128,576,128,560,176,520,176,504,224,56
0,224,544,256,488,256,520,0
540DATA-1,0,648,688,0,616,160,640,128,
640,160,720,0,768,0,608,256,592,256,592,
224,568,256,552,256,648,0
550DATA-1,0,776,896,0,824,80,768,80,73
6,128,760,128,720,176,696,176,656,224,69
6,224,672,256,616,256,776,0
560DATA-255,0
570DEFPROCCIRCLE(X,Y,R):MOVEX+X(0)*R,Y
+Y(0)*R:FORF%=1TO24:DRAWX+X(F%)*R,Y+Y(F%
)*R:NEXT:ENDPROC
580DEFPROCDOWN(X):FORF%=0TOX:*FX19,0
590PRINTTAB(0,0);CHR$11:NEXT:ENDPROC
600DEFPROCUP(X):FORF%=0TOX:*FX19,0
610PRINTTAB(0,31):NEXT:ENDPROC
620REMINSTRUCTIONS
630*FX15,0
640A=GET:SOUND0,1,5,10:PROCDOWN(20)
650PRINTTAB(3,1);"THIS IS THE LEGEND O
F THE SUPREMES"
660PRINT'" A long time ago in deep spa
ce some few people fought for what they
called free-dom. During that time a smal
l group of these became 'Supremes', the
very best fighters in the universe."
670PRINT'" Your grandfather was one of
those rare people. Sadly, and surprisin
gly, he was one day shot dead by a untra
ined, but anyway dangerous pirate."
680PRINT'" As his grandchild your task
is to find this b****** and revenge you
r loved grandfather, not a very easy
task...."
690A=GET:SOUND0,1,5,10:PROCUP(20)
700PRINTTAB(0,11);" To solve this prob
lem, you yourself will have to become
a supreme, because that evil pirate pr
obably is by now!. To become so you
will have to do a lot of fighting and tr
ading in the three galaxies."
710PRINT'" You can buy several cargos
on the 105 planets in this game, and yo
u will also be able to buy usefull equip
ment for your hyperspace trading and
combatship there."
720PRINT'" You will certainly be glad
to know thatnobody, I said nobody, have
solved this puzzle!"
730A=GET:SOUND0,1,5,10:PROCDOWN(20)
740PRINTTAB(2,1);"You control the game
with these keys"
750PRINT'"f0 Hyperspace jump"'"f1
Buy cargo"'"f2 Sell cargo"'"f3 Equip
ship"'"f4 Intergalactic jump"'"f5 C
hart"'"f6 Data on system"'"f7 Market
price"'"f8 Status"'"f9 Inventory"'"
@ Save game"
760PRINT"; Sound on"'": Sound of
f"
770PRINT'"Press any key to see the rem
aining keys"
780A=GET:SOUND0,1,5,10:PROCUP(20)
790PRINTTAB(0,11);" Some other importa
nt keys to remember"
800PRINT'"A Fire laser"'"S
Dive"'"X Climb"'",
Anticlockwise roll"'". Clockwise
roll"'"/ Decrese speed"'"SPACE
Increse speed"'"C Toggle doc
king computer on/off";
810PRINT"Arrowkeys Move cursor on gala
xy chart";TAB(10);"then 'f6' to see the
data.";TAB(10);"Any other function key t
o exit"
820A=GET:SOUND0,1,5,10:PROCDOWN(20)
830PRINTTAB(1,2);"How to enter docking
tunnel on planet"'''" Use the action ke
ys to control your vehicle so that th
e opening is in the centre of your vie
w. The sides of the
square must be hori- sontal and vertica
l."
840PRINT'" If you have bought a dockin
g computer all you have to do is pressi
ng 'C'."
850PRINT'" Remember to think of a plan
ets needs when you are trading."'" Loo
k at the technology levels."''" On the l
ower levels the pirates will bemost dang
erous, so take care..."
860A=GET:SOUND0,1,4,10:PROCUP(20):SOUN
D0,1,5,5:PROCDOWN(20):SOUND0,1,6,5:PROCU
P(10)
870VDU28,0,31,39,26
871IFINKEY-256=&F5ORINKEY-256=&FDORINK
EY-256=&F4THENPAGE=&E00:CHAIN"SUPREM2"
880*KEY0*L.SUPREM2 1900|M*T.|MFORF%=0T
O&3CFF STEP4:F%!&E00=F%!&1900:N.|MPAGE=&
E00|MNEW|MO.|MRUN|M
888*FX15,0
890*FX138,0,128