'CIRCLE-Demo

'Variablen
MPunktX = 320
MPunktY = 200
Radius = 100

'Hauptprogramm
SCREEN 9                                           'EGA-Grafikmodus 640x350

CIRCLE (MPunktX, MPunktY), Radius, 15              'Kreis zeichnen

'Beweis, da� die von Hand errechneten Koordinaten nicht mit den
'tats�chlichen �bereinstimmen:
LINE (MPunktX - Radius, MPunktY)-(MPunktX + Radius, MPunktY), 14
LINE (MPunktX, MPunktY - Radius)-(MPunktX, MPunktY + Radius), 14