CP/M User
Veteran Member
---- PCIRC.BAS ---
---- End PCIRC.BAS ----
Some Notes:
Code:
10 CLS:SCREEN 2:FOR A=1 TO 360
20 X=50*COS(A):Y=50*SIN(A)
30 PSET(50+X,50+Y)
40 NEXT A
Some Notes:
Code:
Line 10: Clear Screen
Set Video Mode (2 : 640x200 mono)
Begin FOR loop
Line 20: Calculate X
(50 = size of Circle * COS of 1 to 360)
Calculate Y
(50 = size of Circle * SIN of 1 to 360)
Line 30: Plot Point
- Added 50 to draw complete Circle on Screen for X
- Added 50 to draw complete Circle on Screen for Y
Line 40: Go back & add one to FOR loop