RosettaCodeData/Task/Draw-a-sphere/Run-BASIC/draw-a-sphere-2.basic

6 lines
192 B
Plaintext

'This is a simple Circle
graphic #g, 300, 300 'create a graphic object
#g place(100,100) 'place the drawing pen at 100,100
#g circle(75) 'make a circle with radius 75
render #g 'show it