10 CLV:CLT:CLS:Y=21:U=-4
20 LC 15,Y:?"@"
22 IF !RND(10) LC 30,21:?"*"
23 IF !RND(40) LC 30,11:?"$"
25 LC 30,22:?CHR$(1)
27 WAIT 3
28 LC 15,Y:?" "
30 IF J Y=Y+V:V=V+1
35 IF Y=21 J=0
40 IF BTN(32) && !J BEEP:J=1:V=U
45 SCROLL 28
47 LC 0,0:?TICK()/60
49 IF SCR(15,Y)=36 U=-6:GOTO 20
50 IF !SCR(15,Y) GOTO 20
60 BEEP 30,30:CLK