10 '*SHOOTING* 20 CLS:CLV 30 LOCATE 0,0 40 PRINT S 50 X=15:Y=22 60 LOCATE X,Y 70 PRINT "A"; 72 U=RND(31):V=0 74 LOCATE U,V 76 PRINT CHR$(241); 80 '*GAMELOOP 90 LOCATE X,Y 100 PRINT " "; 110 IF BTN(LEFT)=1 AND X>0 THEN X=X-1 120 IF BTN(RIGHT)=1 AND X<31 THEN X=X+1 130 LOCATE X,Y 140 PRINT "A"; 142 IF BTN(SPACE)=1 THEN GOSUB 240 145 GOSUB 160 150 IF V<22 THEN GOTO 80 152 BEEP 30,30 154 LOCATE 12,12 156 PRINT "GAME OVER" 158 END 160 '*UFO 170 LOCATE U,V 180 PRINT " "; 190 U=U+RND(3)-1 192 IF U<0 THEN U=0 194 IF U>31 THEN U=31 200 V=V+RND(7)/2-1 202 IF V<0 THEN V=0 204 IF V>22 THEN V=22 210 LOCATE U,V 220 PRINT CHR$(241); 230 RETURN 240 '*BEAM 250 B=X 260 FOR C=Y-1 TO V STEP -1 270 LOCATE B,C 280 PRINT "|"; 285 WAIT 2 290 LOCATE B,C 300 PRINT " "; 310 NEXT 320 IF B<>U THEN RETURN 330 '*HIT 340 BEEP 350 LOCATE U,V 360 PRINT "*"; 362 S=S+10 364 LOCATE 0,0 366 PRINT S 370 WAIT 20 380 LOCATE U,V 390 PRINT " "; 395 U=RND(20):V=0 400 RETURN