10 BPS 19200
20 ?:? "INIT 1000,750,#000000"
25 ? "FONT 1,1,1,80"
30 ? "DRAWRECT 0,1,1000,748,#FFFFFF, 10"
40 FOR I=0 TO 29:? I;":DRAWRECT ";(I%10)*97+16;",";(I/10)*50+150;",94,47,#008080,FILL":NEXT
45 WAIT 50
50 CLV:X=500:Y=340:H=10:V=10:P=500:C=30
60 ? "RKT: DRAWRECT ";P-100;",650,200,50,#33FF00,FILL"
70 ? "BAL: DRAWCIRCLE ";X;",";Y;",30,#FF0000,FILL"
80 IF V>0 AND Y=620 AND X>P-130 AND X<P+130 V=-V:H=H/ABS(H)*(ABS(X-P)/10+2)
90 IF Y<120 OR Y>330 GOTO 150
100 I=(X-16)/97+((Y-120)/50)*10
110 GSB 300
120 I=(X-16)/97+((Y-181)/50)*10
140 GSB 300
150 IF X<30 H=10 ELSE IF X>970 H=-10
160 IF Y<30 V=10
170 X=X+H:Y=Y+V
180 K=INKEY()
190 IF K=28 AND P>130 P=P-30:GOTO 60
200 IF K=29 AND P<870 P=P+30:GOTO 60
210 IF Y<=720 AND C<>0 GOTO 70
220 IF Y>720 ? "DRAWTEXT YOU LOSE,500,375,4,1,#FF0000"
230 IF C=0 ? "DRAWTEXT YOU WIN, 500,375,4,1,#FF0000" 
240 ? "DRAWTEXT RETRY(Y/N),500,500,4,1,#0000FF"
250 K=INKEY():IF K=89 GOTO 20 ELSE IF K=78 END ELSE GOTO 250
300 IF I>=0 AND I<30 IF [I]=0 V=-V:[I]=1:C=C-1:? "REMOVE ";I
310 RTN