10 CLV:M=36 15 H=RND(20)+10 20 CLS:X=0:Y=47*M 22 S=S+1:LC 0,0:?S 25 LC H,23:?CHR$(252); 30 DRAW X/M,Y/M 40 T=0 42 IF !BTN(32) CONT 44 T=T+1:LC 0,1:?T 46 WAIT 6 48 IF BTN(32) GOTO 44 49 BEEP 50 V=-SIN(T) 55 U=COS(T) 60 Y=Y+V:V=V+M 65 X=X+U 70 DRAW X/M,Y/M 80 WAIT 3 90 IF Y/M<47 GOTO 60 100 IF X/MH*2+1 GOTO 20 110 DRAW X/M,47 120 BEEP 10,30:CLK