Listing of file='ORBIT.BAS;01' on disk='vmedia/demos-sector.ccvf'
10 PLOT 12 20 FOR C= 17TO 23:PLOT C 30 PI= 3.14159 40 PLOT 2,64,64,242 50 P= P+ PI/ 20:IF P> 2THEN P= P- 2 60 FOR X= OTO 30STEP 0.3 70 PLOT 64+ 2* X* SIN (X* P),64+ 2* X* COS (X+ P) 80 NEXT X 100 PLOT 255 110 NEXT C 120 GOTO 10 130 END 140 NEXT J 150 NEXT N 160 NEXT I 170 END