10 CLS:CLV:X=15:Y=21
20 LC 0,22
30 FOR I=0 TO 31:?CHR$(1);:NEXT
40 @LOOP
50 IF BTN(32) && J=0 J=1:V=-3
60 LC X,Y:?" "
70 Y=Y+V:V=V+J
80 LC 31,22:?CHR$(RND(10)>0);
90 SCROLL 3
100 LC X,Y:?"@"
110 S=S+1:LC 0,0:?S
120 IF Y=21 V=0:J=0
130 WAIT 3
140 IF J || SCR(X,22) GOTO @LOOP
150 BEEP 30,30