10 CLV:FOR T=1 TO 10:CLS:?S
20 LC 27,21:?CHR$(159,143,158);
30 LC 28,22:?CHR$(143);
40 LC 26,23:?CHR$(232,159,143,158);
50 X=RND(20)+4:Y=23:LC X,Y:?CHR$(233);:V=0
60 V=(V+1)*(V<5):LC X+2,22-V:?"+":L=0
70 IF BTN(SPACE) GOTO 100
80 L=L+1:IF L<150 GOTO 70
90 LC X+2,22-V:?CHR$(0):GOTO 60
100 LC X+2,22-V:?CHR$(0):V=-V-1:BEEP
110 LC X,Y:?" ";
120 X=X+2:Y=Y+V:V=V+1:H=SCR(X,Y)
130 LC X,Y:?CHR$(233);:WAIT 10
140 IF Y<23 AND X<30 AND !H GOTO 110
150 IF H BEEP:LC X,Y:?"*";:S=S+1
160 LC 0,0:?S:WAIT 60:NEXT:END