CLS
NEW
' ------- 01 Simple Shoot
10 CLS:CLP:X=14:Y=17:F=0:T=100:H=1
20 LOCATE X, Y:PRINT CHR$(32,240,32)
30 K=INKEY()
40 IF K=28 AND X>0 THEN X=X-1
50 IF K=29 AND X<30 THEN X=X+1
60 IF K=32 AND F=0 THEN F=1:C=X+1:B=Y-1
70 IF F=0 THEN GOTO 120
80 LOCATE C,B:PRINT CHR$(242)
90 LOCATE C,B+1:PRINT " "
100 B=B-1
110 IF B<-1 THEN F=0
120 LOCATE T/10, 2:PRINT CHR$(32,241,32)
130 IF F=1 AND B=1 AND (C=(T/10)+1) THEN LOCATE C,2:PRINT CHR$(15,13):PRINT "Clear!!":END
140 T=T+H
150 IF T>290 OR T<10 THEN H=-H
160 GOTO 20