IchigoBoy _Shooting Game by PCN Ueda

10 '*SHOOTING mobile
15 SWITCH1
16 out2,-1:out3,-1:out5,-1
20 CLS:CLV
30 LOCATE 0,0
40 PRINT S
50 X=7:Y=7
60 LOCATE X,Y
70 PRINT "A";
72 U=RND(15):V=0
74 LOCATE U,V
76 PRINT CHR$(241);
80 '*GAMELOOP
90 LOCATE X,Y
100 PRINT " ";
110 IF IN(7) AND X>0 THEN X=X-1
120 IF IN(6) AND X<14 THEN X=X+1
130 LOCATE X,Y
140 PRINT "A";
142 IF IN(10) GOSUB 240
145 GOSUB 160
148 WAIT 10
150 IF V<7 THEN GOTO 80
152 BEEP 30,30
153 LOCATE 0,0:PRINT S
154 LOCATE 3,3
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>14 THEN U=14
200 V=V+RND(3)-1
202 IF V<0 THEN V=0
204 IF V>7 THEN V=7
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(15):V=0
400 RETURN