screen 19,,2         '2 Bildschirmseiten werden bereit gestellt
screenset 0,1        'aktive Seite ist 0,  sichtbare Seite ist 1
x=100                'Startpunkt x
y=150                'Startpunkt y
r=10                 'Radius
dx=10
dy=1
circle (x,y),r,14    'Mittelpunkt  -  Radius  -  Randfarbe
paint (x,y),3,14     'Punkt in der Fläche  -  Füllfarbe  -  Randfarbe

do      'Beginn der Schleife

dy=dy+1
x=x+dx
y=y+dy
cls                  'Lösche den Bildschirm (clearscreen=cls)
circle (x,y),r,14    'Mittelpunkt  -  Radius  -  Randfarbe
paint (x,y),3,14     'Punkt in der Fläche  -  Füllfarbe  -  Randfarbe
screencopy 0,1       'kopiere Bildschirmseite 0 nach 1

if (y>=600-r) then 'unterer Rand erreicht?
dy=-dy
y=600-r
end if

if (y<=r) then 'oberer Rand erreicht?
dy=-dy
end if

if (x>=800-r) or (x<=r) then 'rechter Rand erreicht oder linker Rand erreicht?
dx=-dx
end if


sleep 9

loop until inkey$=" "                'Ende der Schleife