0 *KEY0
   10 DIMX%(24),Y%(24),S1%(4),S2%(4),D1%(4),D2%(4),V(24),W(24),V$(14),PR(14),QTY(14),V%(14,9),CAR$(14),CAR(14),CQT(14),ST$(7),CON$(2),E$(4),PE%(4),EQUIP%(5),MP$(15):ENVELOPE1,1,-10,10,100,200,10,200,120,-100,-4,-1,120,127
   20 I=0:FORF=0TO PI/2STEP PI/48:X%(I)=10*COSF:Y%(I)=10*SINF:I=I+1:NEXT:I=0:FORF=0TO2*PI STEP2*PI/24:V(I)=COSF:W(I)=SINF:I=I+1:NEXT
   30 MODE4:VDU29,640;512;:PROCsetup:VDU24,-636;-352;634;506;:GOTO1200
   40 GOSUB1250:ACT%=6:OBJ%=1:A%=RND(600)-RND(600):B%=RND(400)-RND(400):S%=23:GEM%=0:G%=1
   50 F%=0:PROCvi:Q%=Q%DIV15:REPEAT:X1%=X%(F%)*G%:Y1%=Y%(F%)*G%
   60 MOVEA%+X1%,B%+Y1%:DRAWA%+Y1%,B%-X1%:DRAWA%-X1%,B%-Y1%:DRAWA%-Y1%,B%+X1%:DRAWA%+X1%,B%+Y1%:PROCskud:MOVEA%+X1%,B%+Y1%:DRAWA%+Y1%,B%-X1%:DRAWA%-X1%,B%-Y1%:DRAWA%-Y1%,B%+X1%:DRAWA%+X1%,B%+Y1%
   70 PROCcom:PROCtast:IFF%/S%=INT(F%/S%)G%=G%+1
   80 IFG%>40GEM%=F%+1:F%=25
   90 F%=F%+1:UNTIL(F%>24OR G%>40):IFGEM%GOTO380
  100 G%=G%+1:GOTO50
  110 DEFPROCtast:IFINKEY-119PROCstatus:A=GET:PROCfront
  120 IFINKEY-99AND S%>1AND OBJ%=1S%=S%-1
  130 IFINKEY-83C%=C%EOR1:IFC%AND EQUIP%(3)PRINTTAB(33,30);"ON "ELSEIFC%=0AND EQUIP%(3)PRINTTAB(33,30);"OFF"
  140 IFINKEY-105AND S%<23S%=S%+1
  150 IFINKEY-88THEN*FX210,0
  160 IFINKEY-73THEN*FX210,1
  170 PRINTTAB(14,29);24-S%;" ";TAB(14,30);(73+33*(OBJ%=1))-G%;" "
  180 IFINKEY-82B%=B%+32
  190 IFINKEY-67B%=B%-32
  200 IFINKEY-104AND F%<23F%=F%+2 
  210 IFINKEY-103AND F%>1F%=F%-2ELSEIFINKEY-103AND F%<=1F%=23    
  220 IFINKEY-103PROCanti 
  230 IFINKEY-104PROCclock  
  240 IFB%>1000B%=-1000ELSEIFB%<-1000B%=1000
  250 IFEN%<500:EN%=EN%+2
  260 PRINTTAB(33,29);EN%;"  ":ENDPROC
  270 DEFPROCsetup:RESTORE1730:FORF%=0TO14:READV$(F%):NEXT
  280 FORF%=0TO14:FORG%=0TO9:READV%(F%,G%):NEXT,:FORF%=0TO7:READST$(F%):NEXT:FORF%=0TO4:READE$(F%),PE%(F%):NEXT:FORF%=1TO15:READMP$(F%):NEXT:CON$(0)="In space":CON$(1)="On planet":CON$(2)="Alert"
  290 GCOL4,1:VDU23,1,0;0;0;0;:PROCfront
  300 MOVE-640,-356:DRAW639,-356:DRAW639,511:DRAW-640,511:DRAW-640,-356:MOVE-640,-512:DRAW639,-512:DRAW639,-364:DRAW-640,-364:DRAW-640,-512
  310 PRINTTAB(1,29);"ACTUAL SPEED:    MIPS    ENERGY:      ";TAB(1,30);"DISTANCE YET:    CHPS    CMPTR: ":ENDPROC
  320 DEFPROCskud:IFNOTINKEY-66ENDPROC 
  330 *FX15,0
  340 MOVE-636,-360:DRAW0,0:MOVE636,-360:DRAW0,0:SOUND1,1,1,10:SOUND2,1,50,10:MOVE-636,-360:DRAW0,0:MOVE636,-360:DRAW0,0:IFOBJ%=1L%=G%*10ELSEL%=G%*3
  350 IFNOT(A%<L%AND A%>-L%AND B%>-L%AND B%<L%)GOTO370
  360 PROCex:IFOBJ%=1ACT%=2:PRINTTAB(4,25);"PLANETS DEFENCESHIELDS ACTIVATED!"ELSEIFOBJ%=2:E%=E%-9-4*EQUIP%(4)
  370 ENDPROC
  380 IFACT%=2GOSUB540:GOTO1200ELSEIF(A%<(100+C%*EQUIP%(3)*100)AND A%>(-100-C%*EQUIP%(3)*100)AND B%>(-100-C%*EQUIP%(3)*100)AND B%<(100+C%*EQUIP%(3)*100)AND GEM%>=10AND GEM%<=14)PROCdocking:CON=1ELSEGOSUB540:GOTO1200
  390 GOTO780
  400 CLS:VDU29,0;0;24,0;0;1279;1023;:GOTO50 
  410 DEFPROCvi:L%=SQR(A%*A%+B%*B%):IF(A%=0AND B%>0)Q%=90:ENDPROC ELSEIF(B%<=0 AND A%=0)Q%=270:ENDPROC
  420 Q%=DEG ATN(B%/A%):IF(A%<0 AND B%>=0)Q%=180+Q%ELSEIF(A%<0AND B%<0)Q%=180+Q%ELSEIF(A%>0AND B%<0)Q%=360+Q%
  430 ENDPROC
  440 DEFPROCclock:PROCvi:Q%=(Q%DIV15)+1:IFQ%>23Q%=0
  450 A%=L%*V(Q%):B%=L%*W(Q%):ENDPROC   
  460 DEFPROCanti:PROCvi:Q%=(Q%DIV15)-1:IFQ%<0Q%=23
  470 A%=L%*V(Q%):B%=L%*W(Q%):ENDPROC
  480 DEFPROCdocking:CLG:SOUND0,3,5,10
  490 FORF%=0TO800STEP64:MOVEF%DIV2,100+F%DIV2:PLOT1,0,-F%:PLOT1,-F%,0:PLOT1,0,F%:PLOT1,F%,0:NEXT:FORF%=0TO760STEP64:MOVEF%,100+F%DIV2:PLOT1,0,-F%:PLOT1,-F%*2,0:PLOT1,0,F%:PLOT1,F%*2,0:NEXT:EN%=500
  500 FORF%=0TO14:PR(F%)=V%(F%,TECH):QTY(F%)=INT(.1*V%(F%,TECH)):PR(F%)=INT(PR(F%)+RND(QTY(F%))-RND(QTY(F%))):IFPR(F%)<=0PR(F%)=RND(10)
  510 NEXT:IFCST=7PROCmission
  520 CLG:ENDPROC
  530 DEFPROCex:VDU5:MOVE-32,32:PRINTCHR$240;CHR$241:MOVE-32,0:PRINTCHR$242;CHR$243;:SOUND0,4,ACT%,10:MOVE-32,32:PRINTCHR$240;CHR$241:MOVE-32,0:PRINTCHR$242;CHR$243;:VDU4,23,1,0;0;0;0;:ENDPROC
  540 RESTORE1940:FORF%=1TO5:READA$:Q=(40-LENA$)DIV2-1:VDU19,1,1;0;:PRINTTAB(1,25);SPCQ;A$;SPCQ:SOUND0,4,6,3:TIME=0:REPEATUNTILTIME>50:VDU19,1,7;0;:NEXT:RETURN
  550 DEFPROChyper:FORG%=1TO640STEP50:MOVEG%*V(0),G%*W(0):FORF%=0TO24STEP4:DRAWG%*V(F%),G%*W(F%):NEXT:NEXT:ENDPROC  
  560 DEFPROCbuy:CLG:PRINTTAB(15,1);"BUY CARGO":MOVE-640,440:PLOT1,1280,0:PRINTTAB(1,4);"Item for sale    Price    Qty for sale":*FX15,0
  570 FORF%=0TO14:PRINTTAB(1,6+F%);V$(F%);TAB(18,6+F%);PR(F%);" CR";TAB(27,6+F%);QTY(F%);"t":IFQTY(F%)=0GOTO620
  580 PRINTTAB(1,25);"Quantity of ";V$(F%);" ";:INPUTQT%:PRINTTAB(1,25);SPC38:IFQT%>QTY(F%)OR QT%<0SOUND1,-10,1,3:PRINTTAB(1,25);"Too large quantity!":PROCwait:PRINTTAB(1,25);SPC38:GOTO580
  590 IFCASH<QT%*PR(F%)SOUND1,-10,10,3:PRINTTAB(1,25);"Sorry, no cash!":PROCwait:PRINTTAB(1,25);SPC38:GOTO580
  600 IFCARGO%+QT%>10PRINTTAB(1,25);"No room for cargo!":SOUND1,-10,1,3:TIME=0:REPEATUNTILTIME>50:PRINTTAB(1,25);SPC38:GOTO580
  610 IFQT%CASH=CASH-QT%*PR(F%):CARGO%=CARGO%+QT%:CAR$(F%)=V$(F%):CAR(F%)=F%:CQT(F%)=CQT(F%)+QT%:QTY(F%)=QTY(F%)-QT%:SOUND1,-10,200,3:PRINTTAB(1,25);"Cash: ";CASH;" CR":PROCwait:PRINTTAB(1,25);SPC38
  620 NEXT:PROCstatus:ENDPROC
  630 DEFPROCsell:CLG:PRINTTAB(15,1);"SELL CARGO":MOVE-640,440:PLOT1,1280,0:LIN=6:*FX15,0
  640 *FX202,32
  650 FORF%=0TO14:IFCAR$(F%)=""GOTO670ELSEPRINTTAB(7,LIN);"Sell ";V$(F%)"?";:LIN=LIN+1:A=GET:IFA<>ASC"Y"PRINT"n":GOTO670
  660 CAR$(F%)="":CARGO%=CARGO%-CQT(F%):CASH=CASH+PR(F%)*CQT(F%):QTY(F%)=QTY(F%)+CQT(F%)
  670 NEXT:SOUND1,-10,200,3:PRINTTAB(7,LIN+1);"Cash: ";CASH;" CR":PROCwait:PROCstatus:ENDPROC
  680 DEFPROCprice:CLG:PRINTTAB(15,1);"MARKETPRICE":MOVE-640,440:PLOT1,1280,0:*FX15,0
  690 PRINTTAB(1,4);"Item for sale    Price    Qty for sale":FORF%=0TO14:PRINTTAB(1,6+F%);V$(F%);TAB(18,6+F%);PR(F%);" CR";TAB(27,6+F%);QTY(F%);"t":NEXT:ENDPROC
  700 DEFPROCinv:CLG:PRINTTAB(15,1);"INVENTORY":MOVE-640,440:PLOT1,1280,0:*FX15,0
  710 LIN=6:PRINTTAB(7,4);"Cargo:":FORF%=0TO14:IFCAR$(F%)<>""PRINTTAB(7,LIN);V$(F%);TAB(30,LIN);CQT(F%);"t":LIN=LIN+1
  720 NEXT:PRINTTAB(7,LIN+1);"Cash: ";CASH;" CR";TAB(7,LIN+3);"Equipment:":A=1:LIN=LIN+4:FORF%=1TO5:IFEQUIP%(F%)PRINTTAB(7,LIN+A);E$(F%-1):A=A+1
  730 CQT(F%)=0:NEXT:ENDPROC
  740 DEFPROCcom:IFEQUIP%(3)=0ORC%=0ENDPROC ELSEIFF%<=10F%=F%+4ELSEIFF%>=14F%=F%-4
  750 IFA%>0A%=A%-16ELSEIFA%<0A%=A%+16
  760 IFB%>0B%=B%-16ELSEIFB%<0B%=B%+16
  770 S%=1:ENDPROC
  780 CLG:PROCstatus:*FX15,0
  790 IFINKEY-114PROCbuy ELSEIFINKEY-115PROCsell ELSEIFINKEY-116PROCequip ELSEIFINKEY-117PROCshort ELSEIFINKEY-118PROCsystem ELSEIFINKEY-23PROCprice ELSEIFINKEY-119PROCstatus ELSEIFINKEY-120PROCinv ELSEIFINKEY-72PROCsave
  800 IFINKEY-33GOTO1040ELSEIFINKEY-21GOTO1080ELSE790
  810 DEFPROCstatus:CLG:PRINTTAB(11,1);"COMMANDER ";N$:MOVE-640,440:PLOT1,1280,0:*FX15,0
  820 PRINTTAB(1,6);"Condition: ";CON$(CON);TAB(1,8);"Combatstatus: ";ST$(CST);TAB(1,10);"Cash: ";CASH;" CR";TAB(1,12);"Present system: ";SYS$;TAB(1,14);"Hyperspacesystem: ";DSYS$:ENDPROC
  830 DEFPROCfront:CLG:PRINTTAB(15,1);"FRONT VIEW":MOVE0,30:DRAW0,80:MOVE30,0:DRAW80,0:MOVE0,-30:DRAW0,-80:MOVE-30,0:DRAW-80,0:ENDPROC
  840 DEFPROCwait:TIME=0:REPEATUNTILTIME>75:ENDPROC
  850 DEFPROCequip:CLG:PRINTTAB(15,1);"EQUIP SHIP":MOVE-640,440:PLOT1,1280,0:*FX15,0
  860 RANGE%=(TECH DIV2)+1:FORF%=0TORANGE%-1:PRINTTAB(7,F%+8);F%+1;" ";E$(F%);TAB(30,F%+8);PE%(F%);" CR":NEXT
  870 PRINTTAB(1,25);:INPUT"Which item";A:PRINTTAB(1,25);SPC38:IFA<0OR A>RANGE%GOTO870ELSEIFA=0PROCstatus:ENDPROC
  880 IFEQUIP%(A)SOUND1,-10,1,3:PRINTTAB(1,25);"Already present!":PROCwait:PRINTTAB(1,25);SPC38:GOTO870
  890 IFCASH-PE%(A-1)<0SOUND1,-10,1,3:PRINTTAB(1,25);"No cash!":PROCwait:PRINTTAB(1,25);SPC38:GOTO870
  900 EQUIP%(A)=1:SOUND1,-10,200,3:CASH=CASH-PE%(A-1):IFEQUIP%(4)ENVELOPE1,1,-50,10,100,20,10,20,120,-10,-4,-1,120,127:GOTO870ELSE870
  910 DEFPROCshort
  920 CLG:RESTOREGALAX:FORF%=01TO35:READA$,X,Y,DW:PRINTTAB(X,Y);CHR$244;A$:IFA$=SYS$CX=X*32+14:CY=1010-Y*32
  930 NEXT:VDU29,0;0;:PROCcircle(CX,CY,192):*FX15,0
  940 MOVECX,CY-20:DRAWCX,CY+20:MOVECX-20,CY:DRAWCX+20,CY:MOVECX,CY-20:DRAWCX,CY+20:MOVECX-20,CY:DRAWCX+20,CY:IFINKEY-58CY=CY+8ELSEIFINKEY-42CY=CY-8ELSEIFINKEY-26CX=CX-8ELSEIFINKEY-122CX=CX+8
  950 IFNOT(INKEY-33OR INKEY-114OR INKEY-115OR INKEY-116OR INKEY-21OR INKEY-117OR INKEY-118OR INKEY-23OR INKEY-119OR INKEY-120)GOTO940
  960 IFINKEY-118G$=DSYS$:GOTO970ELSEVDU29,640;512;:PROCstatus:ENDPROC
  970 X1=(CX-14)DIV32:Y1=(1024-CY)DIV32:RESTOREGALAX:FORF%=1TO35:READA$,X,Y,SW:IF(X1>X-2AND X1<X+2ANDY1>Y-2AND Y1<Y+2)DSYSX=X:DSYSY=Y:DSYSWORD=SW:DSYS$=A$:NEXTELSENEXT:IFDSYS$=G$GOTO950
  980 VDU29,640;512;:PROCsystem:A=GET:GOTO920
  990 DEFPROCsystem:CLG:RESTORE1800:PRINTTAB(13,1);"DATA ON SYSTEM":MOVE-640,440:PLOT1,1280,0:*FX15,0
 1000 B$="Government: ":DSYSL=(DSYSWORD AND1)+(DSYSWORD AND2)+(DSYSWORD AND4)+(DSYSWORD AND8):PRINTTAB(7,6);"System name: ";DSYS$;TAB(7,8);"Tech level: ";DSYSL
 1010 LIN=10:FORF%=4TO15:B=DSYSWORD AND(2^F%):READA$:IF(2^F%)=B PRINTTAB(7,LIN);B$;A$;:LIN=LIN+2:IFLIN=12B$="Lifeform: "ELSEIFLIN=14B$="National living: "
 1020 NEXT:DIST=INTSQR((DSYSX-SYSX)^2+(DSYSY-SYSY)^2):PRINTTAB(7,LIN);"Distance to system: ";DIST;" LY":ENDPROC
 1030 DEFPROCcircle(X,Y,R):VDU29,0;0;:MOVEV(0)*R+X,W(0)*R+Y:FORF%=1TO24:DRAWV(F%)*R+X,W(F%)*R+Y:NEXT:ENDPROC
 1040 IFEQUIP%(1)=0PRINTTAB(1,25);SPC38;TAB(1,25);"You can't go anywhere without fuel!":SOUND1,-10,1,3:PROCwait:PRINTTAB(1,25);SPC38:GOTO790
 1050 IFSYS$=DSYS$PRINTTAB(1,25);SPC38;TAB(1,25);"Already there!":SOUND1,-10,1,3:PROCwait:PRINTTAB(1,25);SPC38:GOTO790
 1060 IFDIST>6PRINTTAB(1,25);SPC38;TAB(1,25);"System out of range!":SOUND1,-10,1,3:PROCwait:PRINTTAB(1,25);SPC38:GOTO790
 1070 CLG:SOUND0,3,4,10:PROChyper:PROChyper:PROCfront:C%=0:CON=0:SYS$=DSYS$:SYSX=DSYSX:SYSY=DSYSY:SYSWORD=DSYSWORD:SYSL=DSYSL:TECH=SYSL:EQUIP%(1)=0:GOTO40
 1080 IFEQUIP%(5)=0PRINTTAB(1,25);SPC38;TAB(1,25);"You can't go anywhere without a drive!":SOUND1,-10,1,3:PROCwait:PRINTTAB(1,25);SPC38:GOTO790
 1090 IFGALAX=1810GALAX=1850ELSEIFGALAX=1850GALAX=1880ELSEIFGALAX=1880GALAX=1810
 1100 CLG:SOUND0,3,6,10:PROChyper:PROChyper:PROCfront:C%=0:CON=0:RESTOREGALAX:FORF%=1TORND(35):READDSYS$,DSYSX,DSYSY,DSYSL:NEXT:SYS$=DSYS$:SYSX=DSYSX:SYSY=DSYSY:SYSWORD=DSYSL:TECH=(DSYSL AND1)+(DSYSL AND2)+(DSYSL AND4)+(DSYSL AND8):SYSL=TECH
 1110 DSYSWORD=SYSWORD:DSYSL=TECH:EQUIP%(5)=0:GOTO40
 1120 DEFPROCsave:CLG:*FX15,0
 1130 CLG:PRINTTAB(16,1);"SAVE GAME";:MOVE-640,440:PLOT1,1280,0:INPUTTAB(1,6);"COMMANDERS NAME";N$:IFN$=""N$="Johnson"
 1140 PRINTTAB(1,8);:A=OPENOUTN$:PRINTTAB(1,10);"SAVING ";N$:PRINT#A,CASH,TECH,CARGO%,CST,SYS$,SYSWORD,SYSX,SYSY,SYSL,GALAX,HITOP%,HIT%,MC,MIS%:FORF%=1TO5:PRINT#A,EQUIP%(F%):NEXT:FORF%=0TO14:PRINT#A,V$(F%),PR(F%),QTY(F%),CAR(F%),CQT(F%)
 1141 PRINT#A,CAR$(F%):NEXT
 1150 CLOSE#A:PROCstatus:ENDPROC
 1160 DEFPROCload:*FX15,0
 1170 CLG:PRINTTAB(16,1);"LOAD GAME":MOVE-640,440:PLOT1,1280,0:INPUTTAB(1,6);"COMMANDERS NAME";N$:IFN$=""N$="Johnson"
 1180 PRINTTAB(1,8);:A=OPENINN$:PRINTTAB(1,10);"LOADING ";N$:INPUT#A,CASH,TECH,CARGO%,CST,SYS$,SYSWORD,SYSX,SYSY,SYSL,GALAX,HITOP%,HIT%,MC,MIS%:FORF%=1TO5:INPUT#A,EQUIP%(F%):NEXT:FORF%=0TO14:INPUT#A,V$(F%),PR(F%),QTY(F%),CAR(F%),CQT(F%),CAR$(F%):NEXT
 1190 CON=1:DSYSWORD=SYSWORD:DSYS$=SYS$:DSYSX=SYSX:DSYSY=SYSY:DSYSL=SYSL:CLOSE#A:PROCstatus:ENDPROC
 1200 *FX15,1
 1210 FORF%=1TO5:EQUIP%(F%)=0:NEXT:HIT%=0:HITOP%=20:FORF%=0TO14:CAR$(F%)="":CQT(F%)=0:NEXT
 1220 N$="Johnson":C%=0:CASH=100:TECH=6:CARGO%=0:CON=1:CST=0:SYS$="Etile":SYSWORD=8470:SYSX=8:SYSY=12:SYSL=6:DSYS$=SYS$:DSYSWORD=SYSWORD:DSYSX=SYSX:DSYSY=SYSY:DSYSL=SYSL:GALAX=1810:EN%=500:MIS%=1:MC=1
 1230 *FX202,32
 1240 PRINTTAB(1,25);SPC38:PRINTTAB(1,25);"Load new commander (Y/N)?";:A$=GET$:PRINTA$:IFA$="Y"PROCload:GOTO790ELSEA%=0:B%=0:G%=70:SOUND0,4,4,10:PROCskudt:PROCdocking:GOTO780
 1250 S%=23:CON=2:FORAT%=1TORND(10-TECH)*MIS%+1
 1260 ACT%=6:OBJ%=2:A%=RND(600)-RND(600):B%=RND(500)-RND(500):RET%=1:E%=50-50*(MIS%=0):HX%=0:HY%=0:HZ%=1:G%=0
 1270 ONRET%GOSUB1330,1370:PROCtast:PROCcontrol:IFG%<=0GOTO1260ELSEIFE%<=0PROCskudt:HIT%=HIT%+1:GOTO1310
 1280 IFEN%<100PRINTTAB(15,25);"ENERGY LOW!":SOUND3,-15,200,1ELSEIFEN%>100AND EN%<120PRINTTAB(1,25);SPC38
 1290 IFEN%<10A%=0:B%=0:G%=70:PROCskudt:GOSUB540:GOTO1200
 1300 GOTO1270
 1310 NEXT:CON=0:IFHIT%>HITOP%HITOP%=HITOP%*1.2:HIT%=0:IFCST<7CST=CST+1
 1320 C%=0:RETURN
 1330 G%=G%+HZ%+(24-S%):A%=A%+HX%:B%=B%+HY%
 1340 MOVEA%+4*G%,B%:DRAWA%,B%+2*G%:DRAWA%-4*G%,B%:DRAWA%,B%-2*G%:DRAWA%+4*G%,B%:PLOT69,A%,B%
 1350 PROCskud:PROCdefence
 1360 MOVEA%+4*G%,B%:DRAWA%,B%+2*G%:DRAWA%-4*G%,B%:DRAWA%,B%-2*G%:DRAWA%+4*G%,B%:PLOT69,A%,B%:RETURN
 1370 G%=G%-RET%*2*HZ%+(24-S%):A%=A%-HX%:B%=B%+HY%
 1380 MOVEA%+4*G%,B%:DRAWA%,B%+2*G%:DRAWA%-4*G%,B%:DRAWA%,B%-2*G%:DRAWA%+4*G%,B%:MOVEA%+G%,B%:DRAWA%,B%+G%DIV2:DRAWA%-G%,B%:DRAWA%,B%-G%DIV2:DRAWA%+G%,B%
 1390 PROCskud:PROCdefence
 1400 MOVEA%+4*G%,B%:DRAWA%,B%+2*G%:DRAWA%-4*G%,B%:DRAWA%,B%-2*G%:DRAWA%+4*G%,B%:MOVEA%+G%,B%:DRAWA%,B%+G%DIV2:DRAWA%-G%,B%:DRAWA%,B%-G%DIV2:DRAWA%+G%,B%:RETURN
 1410 DEFPROCdefence:IFRND(100)>30-(MIS%=0)*30OR RET%<>1ENDPROC ELSEDA%=SGN(RND(1)-RND(1))*640:DB%=RND(500)-RND(360):MOVEA%,B%:DRAWDA%,DB%:SOUND3,2,40,2:DRAWA%,B%
 1420 IFRND(100)>30+(MIS%=0)*20SOUND0,3,6,2:EN%=EN%-30+10*EQUIP%(2)
 1430 ENDPROC
 1440 DEFPROCcontrol:IFRET%=1AND(G%>70OR E%<20)RET%=2:PROCturn ELSEIFG%<=0RET%=1:E%=50:ENDPROC
 1450 IFA%<G%A%=A%-7*RET%ELSEIFA%>-G%A%=A%+7*RET%
 1460 IFB%<G%B%=B%-7*RET%ELSEIFB%>-G%B%=B%+7*RET%
 1470 E%=E%+1:ENDPROC
 1480 DEFPROCturn:FORF%=G%DIV2TOG%STEP10
 1490 MOVEA%+4*G%,B%:DRAWA%+2*G%,B%+4*F%:DRAWA%-2*G%,B%+4*F%:DRAWA%-4*G%,B%:DRAWA%,B%-9*F%:DRAWA%+4*G%,B%
 1500 PROCskud:MOVEA%+4*G%,B%:DRAWA%+2*G%,B%+4*F%:DRAWA%-2*G%,B%+4*F%:DRAWA%-4*G%,B%:DRAWA%,B%-9*F%:DRAWA%+4*G%,B%
 1510 NEXT:FORF%=G%TOG%DIV2STEP-10
 1520 MOVEA%+4*G%,B%:DRAWA%+2*G%,B%+4*F%:DRAWA%-2*G%,B%+4*F%:DRAWA%-4*G%,B%:DRAWA%,B%-9*F%:DRAWA%+4*G%,B%
 1530 PROCskud:MOVEA%+4*G%,B%:DRAWA%+2*G%,B%+4*F%:DRAWA%-2*G%,B%+4*F%:DRAWA%-4*G%,B%:DRAWA%,B%-9*F%:DRAWA%+4*G%,B%:NEXT:ENDPROC
 1540 DEFPROCskudt:*FX15,0
 1550 F%=G%:SOUND0,4,6,10:FORG%=F%TO0STEP-15
 1560 MOVEA%+5*G%,B%+G%:DRAWA%+G%,B%+G%:DRAWA%,B%+4.5*G%:DRAWA%-G%,B%+G%:DRAWA%-5*G%,B%+G%:DRAWA%-2*G%,B%-G%:DRAWA%-3*G%,B%-5*G%:DRAWA%,B%-2*G%:DRAWA%+3*G%,B%-5*G%:DRAWA%+2*G%,B%-G%:DRAWA%+5*G%,B%+G%
 1570 MOVEA%+5*G%,B%+G%:DRAWA%+G%,B%+G%:DRAWA%,B%+4.5*G%:DRAWA%-G%,B%+G%:DRAWA%-5*G%,B%+G%:DRAWA%-2*G%,B%-G%:DRAWA%-3*G%,B%-5*G%:DRAWA%,B%-2*G%:DRAWA%+3*G%,B%-5*G%:DRAWA%+2*G%,B%-G%:DRAWA%+5*G%,B%+G%
 1580 NEXT:ENDPROC
 1590 DEFPROCmission:IFMIS%=0GOTO1690ELSEIFSYS$=MP$(MC)MC=MC+1
 1600 CLG:PRINTTAB(11,1);"THE GREAT MISSION":MOVE-640,440:PLOT1,1280,0:VDU28,1,31,38,0:IFMC=16GOTO1660
 1610 PRINTTAB(0,4);:IFMC=1PRINT"Congratulations, you have earned the  order of the Supremes. All you will   have to do now is to find the evil    pirate and do him in...."''
 1620 PRINT"The Great Mission has begon.          In your search for your grandfathers  murderer your next target will be a   planet named ";MP$(MC);"."
 1630 PRINT''"A good deal of skill will be needed   for this last task of the game...":GOTO1640
 1640 *FX15,0
 1650 A=GET:VDU28,0,31,39,0:ENDPROC
 1660 PRINTTAB(0,3);"  The mission is about to terminate.  The pirate named Xoolog the Lizard is here! You will have to meet him in a  dogfight, a fight for your grand dads freedom."
 1670 PRINT'"  To do that you must travel to a new planet. On this travel you will meet  the lizard himself. It will be a toughfight, nobody has made it..."
 1680 MIS%=0:A=GET:VDU28,0,31,39,0:ENDPROC
 1690 CLEAR:ENVELOPE1,129,0,0,0,2,3,4,75,-50,-50,-50,96,0:CLG:VDU28,1,31,38;23,1,1;0;0;0;
 1700 RESTORE1910:PRINTTAB(0,3);:REPEAT:READA$
 1710 FORF%=1TOLENA$:SOUND0,1,4,1:PRINTCHR$(ASC(MID$(A$,F%,1))-1);:TIME=0:REPEATUNTILTIME>RND(100):NEXT:PRINT:UNTILASC(MID$(A$,LENA$,1))=44
 1720 VDU28,0,31,39,0
 1730 DATAComputers,Food,Wears,Software,Hardware,Jam,Pearls,Soap,ELITE-game,Coffee,Tools,Luxuries,Diamonds,Plastic,Engines
 1740 DATA200,180,160,120,100,80,70,60,55,50,30,40,50,60,70,80,90,120,130,150,40,50,70,80,90,100,120,130,140,145,60,60,70,70,80,90,100,110,120,130,150,140,130,120,110,100,90,80,70,30,10,15,20,25,30,40,50,60,70,80
 1750 DATA50,60,70,80,90,100,120,140,160,180,5,10,15,20,30,40,50,60,70,80,10,10,20,20,30,30,40,40,50,50,10,15,20,25,30,40,50,55,65,80,20,20,10,10,30,30,40,50,60,90,50,60,70,80,90,100,120,140,160,200
 1760 DATA70,80,90,100,100,100,130,130,150,170,100,90,80,70,60,50,40,30,20,10,100,100,90,80,70,30,30,40,50,50
 1770 DATAHarmless,Bad,No good,All right,Tough,Dangerous,Deadly,Supreme
 1780 DATAFuel,20,Shield generator,900,Docking computer,3000,Military laser,4500,Hyperspace drive,6750
 1790 DATAPryk,Uoh,Orez,Onio,Pukc,Knup,Nawonknu,Epacse,Malick,Loup,Fuq,Mov,Lah,Qiirk,Chop
 1800 DATADemocracy,Technocracy,Feudalism,Socialism,Humans,Computerfreaks,Ghost Busters,Insects,Agriculture,Industry,Software,Hardware
 1810 DATAMalick,22,1,4373,Loup,34,1,17444,Nawonknu,3,2,4743,Epacse,13,3,10374,Nroca,29,3,8743,Integral,21,4,33064,Hifch,2,5,5157,Sral,15,5,33095,Zaxx,21,6,10372,Resu,30,6,34949
 1820 DATAKcufi,6,7,33832,Ypoc,26,8,8486,Kaerb,13,9,18499,Bokaj,32,9,8773,Arboc,1,10,5189,Niok,19,10,17027,Eteled,28,11,4483,Etile,8,12,8470
 1830 DATANarjal,18,13,17429,Ynneb,27,13,33813,Klinco,5,14,17477,Quak,34,14,10375,Jeh,17,15,8471,Retupmoc,27,16,9256,Nebrot,3,17,4742,Leahcim,14,17,33065,Grobiv,23,18,8729,Paccu,2,19,6211,Xzt,18,19,16918,Atad,33,20,9254
 1840 DATATrams,9,21,4677,Nruter,24,21,4631,Ecafretni,1,23,17539,Nebsnot,29,23,16706,Endoterm,20,24,5252
 1850 DATASetre,13,1,17476,Kuun,2,2,8473,Ogne,29,3,34839,Gorf,6,4,10376,Tingo,20,4,4677,Mbi,35,4,8744,Killco,14,5,33047,Carb,3,7,8581,Tchin,19,7,4743,Rol,34,7,33321,Alqa,10,9,10260,Decre,24,9,33096,Kramnad,31,9,5254
 1860 DATABratch,6,10,6211,Incre,28,11,16935,Nortcele,17,12,33094,Orea,3,13,5186,Oerets,32,13,8517,Dichin,20,14,4373,Hcnuh,13,15,8725,Qiirk,28,15,8580,Saxet,5,16,6180,Lah,32,17,17475
 1870 DATAJereh,3,18,6166,Kiin,18,19,8725,Pcim,11,19,17446,Trik,24,19,18564,Mov,34,19,17474,Dna,6,20,34952,Nortisop,14,21,33159,Fuq,30,21,17428,Spilihp,3,22,33065,Abmam,24,23,16963,Vomisa,32,23,6272,Kirneh,7,24,8472 
 1880 DATAKellan,1,1,8472,Knup,16,2,33833,Koin,33,2,10377,Pukc,7,4,4679,Exalag,22,5,4375,Tuls,32,5,33928,Lino,3,6,10262,Mimbo,14,6,8520,Onio,5,8,6213,Ruof,19,8,6166,Nit,34,8,18567,Qyz,10,9,16771,Chop,24,9,4373,Opal,16,11,16965
 1890 DATAHal,29,11,16934,Nok,34,11,16933,Orez,6,12,9348,Nama,22,13,5139,Inq,1,13,10373,Eerth,31,13,16964,Eno,14,14,6164,Zinac,30,15,17475,Uoh,8,16,4371,Ybab,24,16,17444,Ohlala,16,17,17442,Eidert,3,19,4483,Pryk,15,19,4419
 1900 DATAEmerpus,27,19,17426,Evif,1,21,8739,Owt,23,21,6273,Fith,14,22,6272,Oik,30,22,6274,Ypno,7,23,4737,Xis,20,24,4368,Enin,34,24,17472
 1910 DATA"!!!!!!!!!!!!!UFMFY!NPOJUPS","!",Uif!tqbdf!dpnnjuff!ibt!efdjefe!up,sfwfbm!uif!tfdsfut!pg!zpvs!hsboegbuifsbu!uijt!nptu!dpowfojfou!npnfou/,"!",Zpvs!hsboegbuifs!xbt!opu!efbe!bu!bmm,cvu!mjwfe!tfdsfumz!jo!uif!dbwft!pg,Dipq/
 1920 DATA"!",Xifo!zpv!ljmmfe!Yppmph!uif!Mj{bse!bmm,xf!ibe!up!ep!xbt!up!dpmmfdu!uif!qjfdftpg!ijt!tijq/!Jo!uiftf!xf!gpvoe!uif!pmenbot!besftt/Gps!nboz!zfbst!if!ibt!cffodiffujoh!uif!ubybujpo!bvuipsjujft/,"!"
 1930 DATATp!xf!ublf!uif!mjcfsuz!up!jogpsn!zpv,uibu!bu!3!qn!upebz!uijt!ijhimz,dsjnjobm!tubsgjhiufs!xjmm!cf!fyfdvufe/,"!","!!!!!!!!!!!!!FOE!PG!HBNF,"
 1940 DATASTRONG ENERGYFIELD APPROACHING,SHIELDS DAMAGED,MAINCOMPUTER CONFUSED,SERIOUS ENGINE BREAKDOWN,ZXZ343ZXZ &(##$ZXZA%