Listing of file='GRAPH.BAS;01' on disk='vmedia/demos-sector.ccvf'
5 REM DRAWS CIRCULAR SPIRAL 10 PI= 3.141593 20 C1= 63 30 C2= 63 40 C= 1 50 PLOT 12,27,24 150 D= 5 160 D= .2 220 T0= 10 230 P= R0:T= 0:T1= P1/ 180* T0 240 X= R0+ C1:Y= C2:GOSUB 9100 250 FOR I= 0TO 3100/ T0 260 T= T+ T1:P= P+ D 270 Q= INT (P* SIN (T)):P1= INT (P* COS (T)) 280 X= P1+ C1:Y= Q+ C2:GOSUB 9000 282 PLOT 6,C:C= C+ 1 284 IF C= 8THEN C= 1 290 NEXT I 1000 PLOT 8:GOTO 9999 8900 REM PLOTTING SUBROUTINES 9000 PLOT 2,X,Y,255:RETURN 9100 PLOT 2,X,Y,255:RETURN 9999 END