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