Listing of file='STAR.BAS;01' on disk='vmedia/ncc_6_real-sector.ccvf'
1 REM ROTATING INCR./DEINCR. STAR PLOT 10 PLOT 6,7,12 20 RD= 3.14159265/ 180 30 P2= 3.14159265* 2 35 N= - 1 40 R= 63:C= 2 50 X0= 64:Y0= 64 60 D1= 0:D2= 720:D3= 144:A= .8:GOTO 90 70 D1= D1+ 9:D2= D2+ 9 75 R= R+ 4* N:IF R> 63THEN R= 61:N= - N 76 IF R< 11THEN R= 13:N= - N 80 IF D1> 720AND D2> 720THEN D1= D1- 720:D2= D2- 720 85 C= C+ 1:IF C> 7THEN C= 2 90 PLOT 6,C,2 100 FOR D= D1TO D2STEP D3 110 R0= D* RD 120 R0= R0- P2* INT (R0/ P2) 130 PLOT X0+ A* R* COS (R0),Y0+ R* SIN (R0),242 140 NEXT D 150 PLOT 255 160 K= K+ 1:IF K> 25THEN 180 170 GOTO 70 180 FOR T= 1TO 1200:NEXT :PLOT 1