| 5 REM MARK ANGLIN
10 MODE 1 20 GOSUB 1490 30 INK 0,0:BORDER 0:PAPER 0 40 GOSUB 2690 50 INK 0,0:INK 1,6:INK 2,24:INK 3,18:PAPER 0:BORDER 0 60 GOSUB 1700 70 PLOT SX,SL:PRINT" "; 80 PLOT 0,16,2:PRINT C$;:C$=MID$(C$,2)+LEFT$(C$,1) 90 PLOT SX,SY-16:PRINT" ";:PLOT SX,SY,2:PRINT CHR$(251);CHR$(252);:PLOT SX,SY+16:PRINT" "; 100 IF INKEY(47)=0 OR INKEY(76)=0 THEN FS=FS-1:GOSUB 220:GOSUB 1760 110 IF PE<>1 THEN GOSUB 470 120 IF INKEY(2)=0 AND SY>64 THEN SY=SY-16 130 IF WE<>2 THEN GOSUB 570 140 IF INKEY(73)=0 AND SY>64 THEN SY=SY-16 150 IF LE<>1 THEN GOSUB 340 160 IF INKEY(0)=0 AND SY<320 THEN SY=SY+16 170 IF L2E<>1 THEN GOSUB 690 180 IF INKEY(72)=0 AND SY<320 THEN SY=SY+16 190 IF L3E<>1 THEN GOSUB 820 200 SL=SY 210 GOTO 80 220 MX=80:MY=SY 230 PLOT MX-16,MY:PRINT" ";:PLOT MX,MY,2:PRINT CHR$(243); 240 IF MX=624 THEN PLOT MX,MY:PRINT" ":RETURN 250 T=TEST(MX+20,MY-10) 260 IF T=1 THEN PLOT MX,MY:PRINT" ";:SOUND 1,0,15,15,0,0,7:PLOT MX+16,MY:PRINT CHR$(238);:SC=SC+200:PE=PE+1:GOSUB 1760:PLOT PDX,PDY:PRINT" ";:PX=38*16:RETURN 270 IF T=2 AND C=247 THEN PLOT MX,MY:PRINT" ";:SOUND 2,0,15,15,0,0,7:PLOT MX+16,MY:PRINT CHR$(238);:SC=SC+150:WE=WE+1:GOSUB 1760:PLOT EX,EY:PRINT" ";:WX=39*16:RETURN 280 IF T=2 AND C=254 THEN PLOT MX,MY:PRINT" ";:SOUND 2,0,15,15,0,0,7:PLOT MX+16,MY:PRINT CHR$(238);:SC=SC+250:WE=WE+1:GOSUB 1760:PLOT EX,EY:PRINT" ";:WX=39*16:RETURN 290 IF T=3 AND LY=MY THEN PLOT MX,MY:PRINT" ";:SOUND 4,0,15,15,0,0,7:PLOT MX+16,MY:PRINT CHR$(238);:SC=SC+75:LE=LE+1:GOSUB 1760:PLOT CX,CY:PRINT" ";:LX=37*16:RETURN 300 IF T=3 AND L2Y=MY THEN PLOT MX,MY:PRINT" ";:SOUND 4,0,15,15,0,0,7:PLOT MX+16,MY:PRINT CHR$(238);:SC=SC+110:L2E=L2E+1:L2X=37*16:GOSUB 1760:PLOT C2X,C2Y:PRINT" ";:RETURN 310 IF T=3 AND L3Y=MY THEN PLOT MX,MY:PRINT" ";:SOUND 4,0,15,15,0,0,7:PLOT MX+16,MY:PRINT CHR$(238);:SC=SC+100:L3E=L3E+1:L3X=37*16:GOSUB 1760:PLOT C3X,C3Y:PRINT" ";:RETURN 320 MX=MX+16 330 GOTO 230 340 LY=INT(RND*25)*16 350 IF LY<64 OR LY>320 OR LY=L2Y OR LY=L3Y THEN GOTO 340 360 LMX=LX-32:LMY=LY 370 X=INT(RND*10) 380 PLOT CX,CY:PRINT" "; 390 CX=LX:CY=LY 400 TF=TEST(LX-4,LY-12):TT=TEST(LX+8,LY+4) 410 PLOT LX,LY,3:PRINT CHR$(244); 420 LX=LX-16 430 IF LX=0 THEN PLOT LX,LY:PRINT" ";:LX=37*16:RETURN 440 IF X=5 AND LX>48 THEN GOSUB 950 450 IF TF=2 OR TT=2 OR LX<48 AND LY=SL THEN PLOT SX,SL:PRINT CHR$(238);CHR$(238);:PLOT LX,LY:PRINT" ";:LX=37*16:FOR N=7 TO 1 STEP -1:SOUND 7,0,15,N,0,0,7:NEXT:SH=SH-1:PLOT SX,SL:PRINT" ";:GOSUB 1170:GOSUB 1740:GOTO 70 460 RETURN 470 PY=INT(RND*25)*16 480 IF PY<64 OR PY>320 THEN GOTO 470 490 PLOT PDX,PDY:PRINT" "; 500 PDX=PX:PDY=PY 510 PF=TEST(PX-4,PY-12):PT=TEST(PX+8,PY+4):PB=TEST(PX+8,PY-8) 520 PLOT PX,PY,1:PRINT CHR$(245); 530 PX=PX-16 540 IF PX=0 THEN PLOT PX,PY:PRINT" ";:PX=38*16:RETURN 550 IF PF=2 OR PT=2 OR PB=2 AND PX<64 THEN PLOT SX,SL:PRINT CHR$(238);CHR$(238);:PLOT PX,PY:PRINT" ";:PX=38*16:FOR N=7 TO 1 STEP -1:SOUND 7,0,15,N,0,0,7:NEXT:SH=SH-1:PLOT SX,SL:PRINT" ";:GOSUB 1170:GOSUB 1740:GOTO 70 560 RETURN 570 IF WE=1 THEN C=254 580 IF WE=0 THEN C=247 590 WY=INT(RND*25)*16 600 IF WY<64 OR WY>320 THEN GOTO 590 610 PLOT EX,EY:PRINT" "; 620 EX=WX:EY=WY 630 WF=TEST(WX-4,WY-12):WT=TEST(WX+8,WY+4):WB=TEST(WX+8,WY-8) 640 PLOT WX,WY,2:PRINT CHR$(C); 650 WX=WX-16 660 IF WX=0 THEN PLOT WX,WY:PRINT" ";:WX=39*16:RETURN 670 IF WF=2 OR WT=2 OR WB=2 AND WX<=64 THEN PLOT SX,SL:PRINT CHR$(238);CHR$(238);:PLOT WX,WY:PRINT" ";:WX=39*16:FOR N=7 TO 1 STEP -1:SOUND 7,0,15,N,0,0,7:NEXT:SH=SH-1:PLOT SX,SL:PRINT" ";:GOSUB 1170:GOSUB 1740:GOTO 70 680 RETURN 690 L2Y=INT(RND*25)*16 700 IF L2Y<64 OR L2Y>320 OR L2Y=LY OR L2Y=L3Y THEN GOTO 690 710 L2MX=L2X-32:L2MY=L2Y 720 X=INT(RND*15) 730 PLOT C2X,C2Y:PRINT" "; 740 C2X=L2X:C2Y=L2Y 750 T2F=TEST(L2X-4,L2Y-12):T2B=TEST(L2X+8,L2Y-8) 760 PLOT L2X,L2Y,3:PRINT CHR$(246); 770 L2X=L2X-16 780 IF L2X=0 THEN PLOT L2X,L2Y:PRINT" ";:L2X=37*16:RETURN 790 IF X=5 AND L2X>48 THEN GOSUB 1020 800 IF T2F=2 OR T2B=2 OR L2X<48 AND L2Y=SL THEN PLOT SX,SL:PRINT CHR$(238);CHR$(238);:PLOT L2X,L2Y:PRINT" ";:L2X=37*16:FOR N=7 TO 1 STEP -1:SOUND 7,0,15,N,0,0,15:NEXT:SH=SH-1:PLOT SX,SL:PRINT" ";:GOSUB 1170:GOSUB 1740:GOTO 70 810 RETURN 820 L3Y=INT(RND*25)*16 830 IF L3Y<64 OR L3Y>320 OR L3Y=LY OR L3Y=L2Y THEN GOTO 820 840 L3MX=L3X-32:L3MY=L3Y 850 X=INT(RND*20) 860 PLOT C3X,C3Y:PRINT" "; 870 C3X=L3X:C3Y=L3Y 880 T3F=TEST(L3X-4,L3Y-12):T3B=TEST(L3X+8,L3Y-8) 890 PLOT L3X,L3Y,3:PRINT CHR$(248); 900 L3X=L3X-16 910 IF L3X=0 THEN PLOT L3X,L3Y:PRINT" ";:L3X=37*16:RETURN 920 IF X=5 AND L3X>48 THEN GOSUB 1090 930 IF T3F=2 OR T3B=2 OR L3X<48 AND L3Y=SL THEN PLOT SX,SL:PRINT CHR$(238);CHR$(238);:PLOT L3X,L3Y:PRINT" ";:L3X=37*16:FOR N=7 TO 1 STEP -1:SOUND 7,0,15,N,0,0,15:NEXT:SH=SH-1:PLOT SX,SL:PRINT" ";:GOSUB 1170:GOSUB 1740:GOTO 70 940 RETURN 950 IF LMY=PY OR LMY=L2Y OR LMY=L3Y OR LMY=WY THEN RETURN 960 PLOT LMX+16,LMY:PRINT" ";:PLOT LMX,LMY:PRINT CHR$(144); 970 TM=TEST(LMX-4,LMY-10) 980 IF TM=2 AND LMY=SL THEN PLOT SX,SL:PRINT CHR$(238);CHR$(238);:PLOT LMX,LMY:PRINT" ";:LMX=LX-32:FOR N=7 TO 1 STEP -1:SOUND 7,0,15,N,0,0,15:NEXT:SH=SH-1:PLOT SX,SL:PRINT" ";:GOSUB 1170:GOSUB 1740:GOTO 70 990 IF LMX=0 THEN PLOT LMX,LMY:PRINT" ";:RETURN 1000 LMX=LMX-16 1010 GOTO 950 1020 IF L2MY=LY OR L2MY=PY OR L2MY=L3Y OR L2MY=WY THEN RETURN 1030 PLOT L2MX+16,L2MY:PRINT" ";:PLOT L2MX,L2MY:PRINT CHR$(144); 1040 T2M=TEST(L2MX-4,L2MY-10) 1050 IF T2M=2 AND L2MY=SL THEN PLOT SX,SL:PRINT CHR$(238);CHR$(238);:PLOT L2MX,L2MY:PRINT" ";:L2MX=L2X-32:FOR N=7 TO 1 STEP -1:SOUND 7,0,15,N,0,0,15:NEXT:SH=SH-1:PLOT SX,SL:PRINT" ";:GOSUB 1170:GOSUB 1740:GOTO 70 1060 IF L2MX=0 THEN PLOT L2MX,L2MY:PRINT" ";:RETURN 1070 L2MX=L2MX-16 1080 GOTO 1020 1090 IF L3MY=LY OR L3MY=L2Y OR L3MY=PY OR L3MY=WY THEN RETURN 1100 PLOT L3MX+16,L3MY:PRINT" ";:PLOT L3MX,L3MY:PRINT CHR$(144); 1110 T3M=TEST(L3MX-4,L3MY-10) 1120 IF T3M=2 AND L3MY=SL THEN PLOT SX,SL:PRINT CHR$(238);CHR$(238);:PLOT L3MX,L3MY:PRINT" ";:L3MX=L3X-32:FOR N=7 TO 1 STEP -1:SOUND 7,0,15,N,0,0,15:NEXT:SH=SH-1:PLOT SX,SL:PRINT" ";:GOSUB 1170:GOSUB 1740:GOTO 70 1130 IF L3MX=0 THEN PLOT L3MX,L3MY:PRINT" ";:RETURN 1140 L3MX=L3MX-16 1150 GOTO 1090 1160 BX=SX:GOTO 1180 1170 BY=SL+16:DY=SL-16:BX=0 1180 BY=SL+16:DY=SL-16 1190 IF DY>32 THEN PLOT BX,DY,2:PRINT" ..."; 1200 IF BY<348 THEN PLOT BX,BY,2:PRINT" ..."; 1210 DY=DY-16:BY=BY+16 1220 IF DY>32 THEN PLOT BX,DY,2:PRINT". . . ."; 1230 IF BY<348 THEN PLOT BX,BY,2:PRINT". . . ."; 1240 DY=DY-16:BY=BY+16 1250 IF DY>32 THEN PLOT BX,DY,2:PRINT" . ."; 1260 IF BY<348 THEN PLOT BX,BY,2:PRINT" . ."; 1270 DY=DY-16:BY=BY+16 1280 IF DY>32 THEN PLOT BX,DY,2:PRINT". . . ."; 1290 IF BY<348 THEN PLOT BX,BY,2:PRINT". . . ."; 1300 DY=DY-16:BY=BY+16 1310 IF DY>32 THEN PLOT BX,DY,2:PRINT" . . ."; 1320 IF BY<348 THEN PLOT BX,BY,2:PRINT" . . ."; 1330 BY=SL+16:DY=SL-16:BX=0 1340 IF DY>32 THEN PLOT BX,DY,2:PRINT" "; 1350 IF BY<348 THEN PLOT BX,BY,2:PRINT" "; 1360 DY=DY-16:BY=BY+16 1370 IF DY>32 THEN PLOT BX,DY,2:PRINT" "; 1380 IF BY<348 THEN PLOT BX,BY,2:PRINT" "; 1390 DY=DY-16:BY=BY+16 1400 IF DY>32 THEN PLOT BX,DY,2:PRINT" "; 1410 IF BY<348 THEN PLOT BX,BY,2:PRINT" "; 1420 DY=DY-16:BY=BY+16 1430 IF DY>32 THEN PLOT BX,DY,2:PRINT" "; 1440 IF BY<348 THEN PLOT BX,BY,2:PRINT" "; 1450 DY=DY-16:BY=BY+16 1460 IF DY>32 THEN PLOT BX,DY,2:PRINT" "; 1470 IF BY<348 THEN PLOT BX,BY,2:PRINT" "; 1480 RETURN 1490 SYMBOL AFTER 101 1500 SYMBOL 103,16,24,60,126,255,255,255,255 1510 SYMBOL 102,0,0,0,0,255,255,255,255 1520 SYMBOL 104,0,0,0,0,129,195,231,255 1530 SYMBOL 208,255,0,0,0,0,0,0,0 1540 SYMBOL 241,0,96,120,127,127,127,127,32 1550 SYMBOL 251,0,96,120,127,127,127,127,0 1560 SYMBOL 242,0,0,0,240,204,255,248,16 1570 SYMBOL 252,0,0,0,240,204,255,248,0 1580 SYMBOL 243,0,0,0,0,0,255,0,0 1590 SYMBOL 244,0,24,60,102,126,126,126,82 1600 SYMBOL 245,137,74,60,255,28,42,74,137 1610 SYMBOL 246,0,24,36,66,129,255,255,36 1620 SYMBOL 247,28,62,107,62,73,34,73,34 1630 SYMBOL 248,24,36,66,153,153,253,66,60 1640 SYMBOL 250,255,255,255,255,255,255,255,255 1650 SYMBOL 249,255,255,85,170,85,170,85,170 1660 SYMBOL 122,255,255,255,255,255,255,255,255 1670 SYMBOL 254,249,43,29,15,252,170,201,143 1680 SYMBOL 238,0,102,102,0,24,24,198,0 1690 RETURN 1700 CLS 1710 HI=0 1720 SH=4:SC=0:PE=0:LE=0:L2E=0:L3E=0:WE=0:EM=5000:BONUS=100:SHE=0:RF=5:FS=150 1730 C$="fgfgfghgghfgfgffggfhfgfgfghhgfghfhgfggfg" 1740 SX=2*16:SY=12*16:LX=37*16:L2X=37*16:L3X=37*16:PX=38*16:WX=39*16 1750 INK 1,6:INK 2,24:INK 3,18 1760 SC2=SC:HI2=HI 1770 IF SC>HI THEN HI=SC 1780 IF SC>=EM THEN FOR N=70 TO 5 STEP -5:SOUND 7,N,2,7:NEXT:EM=EM+10000:SH=SH+1 1790 TAGOFF 1800 IF (PE+WE+LE+L2E+L3E)=6 THEN SHE=SHE+1:GOTO 1990 1810 IF SHE=RF THEN RF=RF+5:GOTO 2080 1820 IF FS=0 THEN SH=SH-1:FS=FS+100 1830 PEN 2:LOCATE 12,2:PRINT"SHIPS":LOCATE 13,3:PRINT;SH:LOCATE 3,2:PRINT"SCORE":LOCATE 2,3:PRINT;SC:LOCATE 29,2:PRINT"HI SCORE":LOCATE 28,3:PRINT;HI 1840 LOCATE 21,2:PEN 2:PRINT"FUEL":LOCATE 20,3:PRINT;FS 1850 IF SH=0 THEN GOTO 1890 1860 TAG 1870 MOVE 0,348:DRAW 639,348,1:DRAW 639,399:DRAW 0,399:DRAW 0,348 1880 RETURN 1890 MODE 0 1900 LOCATE 5,12:PEN 2:PRINT"GAME OVER" 1910 FOR T=1 TO 3000:NEXT 1920 MODE 1 1930 LOCATE 1,12:PRINT"DO YOU WANT ANTHER GAME ?(Y,N)" 1940 D$=INKEY$ 1950 IF D$="Y" OR D$="y" THEN CLS:GOSUB 1720:GOTO 70 1960 IF D$="N" OR D$="n" THEN GOTO 1980 1970 GOTO 1930 1980 END 1990 CLS 2000 LOCATE 13,9:PRINT"ATTACK WAVE";SHE 2010 LOCATE 14,10:PRINT"COMPLETED" 2020 LOCATE 12,12:PRINT"BONUS";SHE;"X 100=";SHE*BONUS 2030 FOR N=125 TO 100 STEP -1:SOUND 4,N,5,7:NEXT:FOR T=1 TO 5:FOR S=10 TO 100 STEP 10:SOUND 4,S,2,7:NEXT:NEXT 2040 SC=SC+(SHE*BONUS) 2050 PE=0:WE=0:LE=0:L2E=0:L3E=0 2060 INK 0,0:INK 1,6:INK 2,24:INK 3,18:PAPER 0:BORDER 0 2070 CLS:GOSUB 1740:GOTO 70 2080 MODE 0 2090 LOCATE 3,12:INK 1,6,26:PEN 1:PRINT"REFEULING STAGE" 2100 FOR T=1 TO 3000:NEXT 2110 INK 1,6 2120 MODE 1 2130 TAG 2140 PLOT 288,48,3:PRINT STRING$(4,249); 2150 PLOT 288,32,2:PRINT STRING$(4,203); 2160 PLOT 0,16,2:PRINT STRING$(40,206); 2170 INK 1,15:PLOT 560,80,3:PRINT CHR$(150);CHR$(158);CHR$(158);CHR$(158);CHR$(158); 2180 PLOT 560,32,2:PRINT STRING$(5,250); 2190 PLOT 560,48,2:PRINT CHR$(143);CHR$(207);CHR$(207);CHR$(207);CHR$(143); 2200 PLOT 560,64,2:PRINT CHR$(143);CHR$(212);CHR$(208);CHR$(213);CHR$(143); 2210 PLOT 544,32,2:PRINT CHR$(150); 2220 TAG:SX=2*16:SY=25*16 2230 PLOT SX,SY,2:PRINT CHR$(241);CHR$(242); 2240 TBA=TEST(SX,SY-18):TBA2=TEST(SX+30,SY-18) 2250 IF INKEY(1)=0 AND SX<608 THEN SX=SX+16:PLOT SX-16,SY:PRINT" "; 2260 IF INKEY(75)=0 AND SX<608 THEN SX=SX+16:PLOT SX-16,SY:PRINT" "; 2270 IF INKEY(8)=0 AND SX>0 THEN SX=SX-16:PLOT SX+16,SY:PRINT" "; 2280 IF INKEY(74)=0 AND SX>0 THEN SX=SX-16:PLOT SX+16,SY:PRINT" "; 2290 SL=SY 2300 X=INT(RND*8) 2310 S=INT(RND*8) 2320 R=INT(RND*8) 2330 IF TBA=3 AND TBA2=3 THEN PLOT SX,64,2:PRINT CHR$(241);CHR$(242);:SOUND 7,45,10,7:SC=SC+1000:GOSUB 2410:CLG:GOSUB 1740:GOTO 70 2340 IF TBA=3 OR TBA2=3 THEN PLOT SX,SY:PRINT CHR$(238);CHR$(238);:FOR N=7 TO 1 STEP -1:SOUND 7,0,15,N,0,0,7:NEXT:SH=SH-1:PLOT SX,SY:PRINT" ";:GOSUB 1160:CLG:GOSUB 1740:GOTO 70 2350 IF TBA=2 OR TBA2=2 THEN PLOT SX,SY:PRINT CHR$(238);CHR$(238);:FOR N=7 TO 1 STEP -1:SOUND 7,0,15,N,0,0,7:NEXT:SH=SH-1:PLOT SX,SY:PRINT" ";:GOSUB 1160:CLG:GOSUB 1740:GOTO 70 2360 IF S=6 AND SX>0 THEN SX=SX-16:PLOT SX+16,SY:PRINT" "; 2370 IF R=6 AND SX<608 THEN SX=SX+16:PLOT SX-16,SY:PRINT" "; 2380 IF X=5 THEN SY=SY-16:PLOT SX,SY+16:PRINT" "; 2390 IF SH=0 THEN GOTO 1890 2400 GOTO 2230 2410 TAGOFF 2420 LOCATE 11,14:PEN 1:PRINT"BONUS 1000 POINTS" 2430 LOCATE 8,12:PEN 1:PRINT"YOU LANDED SUCESSFULLY !" 2440 FOR T=1 TO 3000:NEXT 2450 LOCATE 8,12:PRINT" ":LOCATE 11,14:PRINT" " 2460 INK 1,16,26 2470 LOCATE 16,12:PEN 1:PRINT"REFEULING !" 2480 FOR F=558 TO 200 STEP-1:PLOT F,54,1 2490 TF=TEST(F-2,54) 2500 IF TF=2 THEN SOUND 7,45,10,7 ELSE NEXT 2510 INK 1,26 2520 TAGOFF 2530 FS=0 2540 LOCATE 18,2:PEN 2:PRINT"FEUL":LOCATE 17,3:PRINT;FS 2550 SOUND 4,300,1,7 2560 IF FS=150 THEN GOTO 2580 ELSE FS=FS+3 2570 GOTO 2540 2580 LOCATE 16,12:PRINT" " 2590 LOCATE 16,12:PEN 1:PRINT"REFEULING" 2600 LOCATE 16,13:PEN 1:PRINT"COMPLETED" 2610 INK 1,6,26 2620 FOR R=F TO 556:PLOT R,54,0 2630 FOR T=1 TO 8:NEXT T 2640 NEXT 2650 INK 1,6 2660 FOR T=1 TO 2000:NEXT 2670 TAG 2680 RETURN 2690 CLS:C$="fgfgfghgghfgfgffggfhfgfgfghhgfghfhgfggfg" 2700 INK 1,0:INK 2,0:INK 3,0 2710 SPEED INK 10,10 2720 LOCATE 1,9:PEN 1:PRINT"zzzzzzzzzzzzzzzzzzzzzzzzzzzzzz" 2730 LOCATE 1,10:PEN 2:PRINT"z z" 2740 LOCATE 1,11:PEN 3:PRINT"z z z" 2750 LOCATE 1,12:PEN 1:PRINT"z z" 2760 LOCATE 1,13:PEN 2:PRINT"zzzzzzzzzzzzzzzzzzz zzzzzzzzzzzz zz" 2770 LOCATE 1,14:PEN 3:PRINT"z z z z z z z z z z" 2780 LOCATE 1,15:PEN 1:PRINT"z z zzzz zzz z z z z" 2790 LOCATE 1,16:PEN 2:PRINT"z z z z z z z z z z" 2800 LOCATE 1,17:PEN 3:PRINT"z z z z zzzz z z zz zz" 2810 LOCATE 5,24:PRINT"** (C) MARK.A.ANGLIN 4.2.85 **" 2820 FOR C=0 TO 26:INK 1,C:INK 2,C:INK 3,C:SOUND 7,C*10,3,7:NEXT 2830 FOR T=1 TO 26:FOR N=1 TO 200:NEXT:INK 1,26,T:INK 2,6,T:INK 3,15,T:NEXT 2840 FOR C=26 TO 0 STEP -1:INK 1,C:INK 2,C:INK 3,C:SOUND 7,C*10,3,7:NEXT 2850 CLS 2860 INK 0,0:INK 1,6:INK 2,24:INK 3,18:BORDER 0:PAPER 0 2870 LOCATE 16,1:PEN 2:PRINT"SCORING" 2880 TAG 2890 PLOT 32,320,2:PRINT CHR$(251);CHR$(252); 2900 PLOT 0,16,2:PRINT C$; 2910 U=48 2920 PLOT 624,U,3:PRINT CHR$(248);:GOTO 3090 2930 PLOT 128,224,3:PRINT CHR$(248);:PLOT 80,208,2:PRINT"MAGNUM";:PLOT 48,176,2:PRINT"100 POINTS";:U=48 2940 PLOT 624,U,3:PRINT CHR$(246);:GOTO 3100 2950 PLOT 320,224,3:PRINT CHR$(246);:PLOT 288,208,2:PRINT"BETA";:PLOT 256,176,2:PRINT"110 POINTS";:U=48 2960 PLOT 624,U,3:PRINT CHR$(244);:GOTO 3110 2970 PLOT 512,224,3:PRINT CHR$(244);:PLOT 480,208,2:PRINT"CLONE";:PLOT 464,176,2:PRINT"75 POINTS";:U=48 2980 PLOT 624,U,1:PRINT CHR$(245);:GOTO 3120 2990 PLOT 128,144,1:PRINT CHR$(245);:PLOT 112,128,2:PRINT"POD";:PLOT 48,96,2:PRINT"200 POINTS";:U=48 3000 PLOT 624,U,2:PRINT CHR$(254);:GOTO 3130 3010 PLOT 320,144,2:PRINT CHR$(254);:PLOT 288,128,2:PRINT"COSMA";:PLOT 256,96,2:PRINT"250 POINTS";:U=48 3020 PLOT 624,U,2:PRINT CHR$(247);:GOTO 3140 3030 PLOT 512,144,2:PRINT CHR$(247);:PLOT 480,128,3:PRINT"MUTANT";:PLOT 448,96,2:PRINT"150 POINTS";:U=48 3040 FOR T=1 TO 10 3050 FOR N=1 TO 26 3060 INK 1,N:INK 2,N:INK 3,N:FOR S=1 TO 20:NEXT:NEXT 3070 NEXT 3080 GOTO 3240 3090 IF U=320 THEN PLOT 624,U-16:PRINT" ";:GOSUB 3150:GOTO 2930 ELSE U=U+16:PLOT 624,U-32:PRINT" ";:FOR T=1 TO 50:NEXT:GOTO 2920 3100 IF U=320 THEN PLOT 624,U-16:PRINT" ";:GOSUB 3150:GOTO 2950 ELSE U=U+16:PLOT 624,U-32:PRINT" ";:FOR T=1 TO 50:NEXT:GOTO 2940 3110 IF U=320 THEN PLOT 624,U-16:PRINT" ";:GOSUB 3150:GOTO 2970 ELSE U=U+16:PLOT 624,U-32:PRINT" ";:FOR T=1 TO 50:NEXT:GOTO 2960 3120 IF U=320 THEN PLOT 624,U-16:PRINT" ";:GOSUB 3150:GOTO 2990 ELSE U=U+16:PLOT 624,U-32:PRINT" ";:FOR T=1 TO 50:NEXT:GOTO 2980 3130 IF U=320 THEN PLOT 624,U-16:PRINT" ";:GOSUB 3150:GOTO 3010 ELSE U=U+16:PLOT 624,U-32:PRINT" ";:FOR T=1 TO 50:NEXT:GOTO 3000 3140 IF U=320 THEN PLOT 624,U-16:PRINT" ";:GOSUB 3150:GOTO 3030 ELSE U=U+16:PLOT 624,U-32:PRINT" ";:FOR T=1 TO 50:NEXT:GOTO 3020 3150 MX=80:MY=20*16 3160 PLOT MX-16,MY:PRINT" ";:PLOT MX,MY,2:PRINT CHR$(243); 3170 IF MX=639 THEN PLOT MX,MY:PRINT" ";:RETURN 3180 T=TEST(MX+20,MY-10) 3190 IF T=1 THEN PLOT MX,MY:PRINT" ";:SOUND 1,0,15,15,0,0,7:PLOT MX+16,MY:PRINT CHR$(238);:PLOT MX+16,MY:PRINT" ";:RETURN 3200 IF T=3 THEN PLOT MX,MY:PRINT" ";:SOUND 2,0,15,15,0,0,7:PLOT MX+16,MY:PRINT CHR$(238);:PLOT MX+16,MY::PRINT" ";:RETURN 3210 IF T=2 THEN PLOT MX,MY:PRINT" ";:SOUND 4,0,15,15,0,0,7:PLOT MX+16,MY:PRINT CHR$(238);:PLOT MX+16,MY:PRINT" ";:RETURN 3220 MX=MX+16 3230 GOTO 3160 3240 CLG:TAGOFF 3250 INK 1,14:INK 2,14,26 3260 PEN 1:PRINT"YOUR HERE TO DEFEND THE EARTH FROM " 3270 PRINT"DESTRUCTION !.YOU HAVE TO FIGHT ALIENS " 3280 PRINT"WHO HAVE NO MERCY." 3290 PRINT 3300 PRINT"THE MAGNUMS & BETA MAY BECOME RESISTANT" 3310 PRINT"TO YOUR MISSILES AND HAVE TO BE HIT " 3320 PRINT"2 OR 3 TIMES TO DESTROY THEM." 3330 PRINT 3340 PRINT" BE CAREFUL HOW YOU USE YOUR MISSILES" 3350 PRINT"BECAUSE YOU HAVE A LIMITED AMOUNT." 3360 PRINT 3370 PRINT" EVERY FIFTH SHEET YOU GET A " 3380 PRINT"CHANCE TO REFUEL YOUR SHIP BUT BEWARE !" 3390 PRINT"YOU HAVE VERY LIMITED CONTROL OVER YOUR" 3400 PRINT"SHIP.SO YOU NEED TO BE VERY SKILLFUL.IF " 3410 PRINT"YOU MANAGE TO DOCK YOU GET A BONUS OF" 3420 PRINT"1000 POINTS.WHEN YOU REACH 5000 POINTS" 3430 PRINT"YOU GET AN EXTRA SHIP BUT AFTER THAT" 3440 PRINT"IT IS EVERY 10000 POINTS." 3450 PRINT" GOOD LUCK !" 3460 PRINT 3470 PRINT 3480 TAGOFF 3490 LOCATE 10,24:PEN 2:PRINT" PRESS C FOR CONTROLS" 3500 B$=INKEY$ 3510 IF B$="C" OR B$="c" THEN GOTO 3530 3520 GOTO 3500 3530 CLS:INK 2,14:PEN 2 3540 PRINT"1. USE CUSOR KEYS FOR UP AND DOWN." 3550 PRINT"2. USE THE SPACE BAR FOR FIRE." 3560 PRINT"YOU CAN ALSO USE A JOYSTICK TO CONTROL" 3570 PRINT"THE SHIP." 3580 LOCATE 12,24:INK 1,14,26:PEN 1:PRINT" PRESS S TO START" 3590 B$=INKEY$ 3600 IF B$="S" OR B$="s" THEN RETURN 3610 GOTO 3590 |