10 CLS
11 HEIGHT%=SCREENHEIGHT(0)
12 WIDTH%=SCREENWIDTH(0)
15 W%=0
20 V%=0
30 X%=3
40 Y%=65
50 A%=1
60 V%=V%+A%
65 IF W%>0 THEN W%=W%-1
66 IF W%<0 THEN W%=W%+1
70 X%=X%+V%
80 Y%=Y%+W%
90 SX%=RX%/2
91 SY%=RY%/2
92 PX%=SX%/5
93 PY%=SY%/5
94 CLS
95 FOR I%=1 TO 5
96 X1%=X%-SX%+(PX%*I%)
97 Y1%=Y%-SY%+(PY%*I%)
98 COL%=250-(I%*50)
99 SETCOLOR 250,COL%,COL%
100 FILLARC Y1%,X1%,5,5,0,360
110 NEXT I%
120 SLEEP 50
121 RX%=X%-VX%
122 RY%=Y%-VY%
123 VX%=X%
124 VY%=Y%
130 IF X%>=(HEIGHT%-3) THEN V%=-(ABS(V%*0.8))-2
140 IF X%<=3 THEN V%=(ABS(V%*0.8))+2
150 IF Y%>=(WIDTH%-3) THEN W%=-(ABS(W%*0.8))-2
160 IF Y%<=3 THEN W%=(ABS(W%*0.8))+2
170 IF FIRE(5)<>0 THEN END
180 IF UP(2)<>0 THEN V%=V%-3
190 IF DOWN(8)<>0 THEN V%=V%+2
200 IF LEFT(4)<>0 THEN W%=W%-3
210 IF RIGHT(6)<>0 THEN W%=W%+3
240 GOTO 60