REM Start of BASIC! Program
gr.open 0, 0, 0, 255
gr.orientation 1
gr.screen w,h
gr.set.stroke 2
gr.bitmap.create bm,480,800
gr.bitmap.drawinto.start bm
gr.color 255,0,0,0,1
gr.rect vbn,0,0,480,800
gr.bitmap.drawinto.end
gr.bitmap.draw bmp,bm,0,0
x=240
y=50
e=2
s=2
do

if x>480-rad then
e=1+rnd()*10/5
e=e*-1
fl=1
end if
if x<1 then
e=1+rnd()*10/5
fl=1
end if
if y>800-rad then
s=1+rnd()*10/5
s=s*-1
fl=1
end if
if y<1 then
s=1+rnd()*10/5
fl=1
end if
xm=xm+e
ym=ym+s
gr.bitmap.drawinto.start bm
if fl=1 then
gr.color 10,0,0,0
gr.rect rct,0,0,480,800
fl=0
end if
x=240+xm
y=400+ym
rad=20+(40-y/20)
for pipe=0 to 180 step 10
pc=190*sin(toradians(pipe))
gr.color 255,pc,pc,255-y/4
gr.arc bub,x,y,x+rad,y+rad,pipe*2+90,36,1
gr.color 255,0,0,0
gr.arc hole,x+5,y+5,x+rad-5,y+rad-5,0,360,1
next pipe
gr.bitmap.drawinto.end
gr.modify bmp,"bitmap",bm
gr.render


until 0