Compucolor.org – Virtual Media

Listing of file='12P2.BAS;01' on disk='vmedia/color_graphics_1_suits-sector.ccvf'

5 REM  PROGRAM 12.2
6 REM  PLOTTING A CIRCLE
9
10 PLOT 6,6,12:REM  SET UP
19
20 R= 2* 3.1415926:REM  NUMBER OF RADIANS IN A CIRCLE
30 S= .05:REM  STEP SIZE
40 C= 30:REM  CIRCLE RADIUS
49
50 PLOT 2:REM  GENERAL PLOT MODE
59
60 FOR J= 0TO RSTEP S
70   PLOT 63+ C* COS (J),63+ 40* SIN (J)
80 NEXT
89
90 PLOT 255