Listing of file='GRAPH.BAS;01' on disk='vmedia/ncc_15-sector.ccvf'
1 REM DIVIDE C BY TWO FOR DENSER GRAPHICS 5 C= .05:F= 2* 3.1415 10 PLOT 12 15 PLOT 2,64,64,255 20 Z= 40:T= 5 25 K= 1 30 GOTO 200 35 PLOT 3,0,0,11,3,0,0 40 INPUT "ENTER A,B......";A,B 45 GOSUB 320 50 FOR T1= 0TO FSTEP C 60 R= Z* SIN (T1* T) 70 X= INT (K* R* COS (A* T1)) 80 Y= INT (R* SIN (B* T1)) 100 PLOT 2,242,X+ 64,Y+ 64,255 110 NEXT T1 120 FOR D= 0TO 500:NEXT D 130 IF M= 5THEN 150 140 GOTO 35 150 GOSUB 300 160 GOTO 50 200 PRINT "DO YOU WANT TO HAVE THE PROGRAM RUN AUTOMATICALLY "; 210 INPUT V$ 220 IF LEFT$ (V$,1)= "Y"THEN M= 5:GOTO 150 225 PLOT 12 230 GOTO 35 300 A= INT (RND (1)* 13) 310 B= INT (RND (1)* 13) 312 IF A= 0THEN 300 314 IF B= 0THEN 310 320 PLOT 12 330 PLOT 3,0,0:PRINT A,B:RETURN