10m=1 20MODE2:VDU23;8202;0;0;0; 30GCOL0,4:GCOL0,132:CLG 40 PROCOL(50,1025,"`````````````````` `",2) 50 PROCOL(50,975,"Z - LEFT",1) 60 PROCOL(50,925,"X - RIGHT",2) 70 PROCOL(50,875,"* - UP",3) 80 PROCOL(50,825,"? - DOWN",5) 90 PROCOL(50,775,"RETURN - FIRE",6) 100 PROCOL(50,725,"Q/S - SOUND ON/OFF" ,7) 110 PROCOL(50,700,"``````````````````` ",2) 120 PROCOL(50,650,"SATELLITE HAVOC II" ,1) 130 PROCOL(50,600,"BY",1):PROCOL(200,6 00,"A.S.SHAKOOR '92",3) 140 PROCOL(50,500,"STOP THE MAD",6) 150 PROCOL(50,450,"SATELLITES",6) 160 PROCOL(50,400,"FIRING ON THE",6) 170 PROCOL(50,350,"CITY BELOW !!",6) 180 PROCOL(50,300,"IF DAMAGE < 10",6) 190 PROCOL(50,250,"YOU DIE !!",6) 200 PROCOL(50,100,"PRESS ANY KEY",2) 201G$=GET$:CLG 202 PROCOL(50,900,"YOUR DAMAGE",6) 203 PROCOL(50,850,"GOES DOWN",6) 204 PROCOL(50,800,"IF YOUR SHIP",6) 205 PROCOL(50,750,"TOUCHES THE",6) 206 PROCOL(50,700,"SATELLITE !!",6) 207 PROCOL(50,600,"GOOD LUCK !!",9) 208 PROCOL(50,200,"PRESS ANY KEY",2) 210 G$=GET$:MODE2:VDU23;8202;0;0;0; 220*FX9,4 230*FX10,4 240GCOL0,6:MOVE 0,0:DRAW 1280,0:DRAW 1 280,100:DRAW 0,100:DRAW 0,0 250 PLOT85,1280,100:PLOT85,1280,0 260 e1=1 270y=100:FG=e1 280FOR n=1 TO 4 290 IF FG=2 FG=3 300FG=FG+1 310 IF FG=3 FG=1 320 IF FG=6 FG=1 330 y=y-25 340 FOR t=0 TO 1280 STEP RND(30)+30:f= 50 350v=RND(75) 360 GCOL0,FG 370 MOVE t,y:DRAW t+50,y:DRAW t+50,y+v :DRAW t,y+v:DRAW t,y 380PLOT85,t+50,y+v:PLOT85,t+50,y 390 FORd=1 TO 10:GCOL0,3:PLOT69,(t+20) +RND(20),y+RND(v):NEXT 400GCOL0,0:MOVE t,y:DRAW t+50,y:DRAW t +50,y+v:DRAW t,y+v:DRAW t,y 410NEXT 420NEXT 430 sw=6:ch6=0 440 GCOL0,sw 450 MOVE 0,750:DRAW 1279,750:DRAW 1279 ,775:DRAW0,775:DRAW 0,750 460 IF ch6=1 GOTO 480 470 PLOT85,1279,775:PLOT85,1279,750 480 MOVE 0,775:DRAW 0,1022:DRAW 25,102 2:DRAW 25,775:DRAW 0,775 490 IF ch6=1 GOTO 510 500 PLOT85,25,1022:PLOT85,0,1022 510 MOVE 25,1022:DRAW 1279,1022:DRAW 1 279,997:DRAW 25,997:DRAW 25,1022 520 IF ch6=1 GOTO 540 530 PLOT85,1279,997:PLOT85,1279,1022 540 MOVE 1279,997:DRAW 1279,775:DRAW 1 255,775:DRAW 1255,997:DRAW 1279,997 550 IF ch6=1 GOTO 570 560 PLOT85,1255,775:PLOT85,1279,775 570 IF ch6=0 ch6=1:sw=4:GOTO 440 580GCOL0,4:MOVE 25,775:DRAW 1254,775:D RAW 1254,997:DRAW 25,997:DRAW 25,775 590PLOT85,1254,997:PLOT85,1254,775 600 ENVELOPE 1,1,-26,-36,-45,255,255,2 55,127,0,0,-127,126,0 610 VDU 23,240,0,0,0,0,31,63,127,255 620 ENVELOPE4,8,1,-1,1,1,1,1,121,-10,- 5,-2,120,120 630 VDU 23,241,0,3,7,15,95,255,255,255 640 VDU 23,242,255,127,63,31,0,0,0,0 650 VDU 23,243,255,255,255,95,15,7,3,0 660 VDU 23,245,0,0,31,63,127,255,0,0 661 VDU 23,246,24,24,60,60,126,126,255 ,255 662 VDU 23,247,0,0,248,252,254,255,0,0 670 PROCOL(50,960,"SCORE : ",1) 680 PROCOL(50,895,"LEVEL : ",2) 690 PROCOL(50,830,"DAMAGE : ",3) 700 PROCbeep 710CHAIN"SHIP" 720 DEFPROCOL(X%,Y%,A$,C%) VDU5:MOVEX% -8,Y%-4:GCOL0,0:PRINTA$:MOVEX%+8,Y%+4:PR INTA$:MOVEX%-8,Y%+4:PRINTA$:MOVEX%+8,Y%- 4:PRINTA$:MOVEX%,Y%:GCOL0,C%:PRINTA$:VDU 4:ENDPROC 730 DEFPROCbeep 740 ENVELOPE 3,1,0,0,0,0,0,0,-126,-2,0 ,-1,126,80 750 *FX211,3 760 *FX212,0 770 *FX213,120 780 *FX214,1 790 ENDPROC