Listing of file='CIR.BAS;01' on disk='vmedia/demos2-sector.ccvf'
10 PLOT 14 15 PLOT 29,17,30,16,12 17 C= 17 18 K= 0 20 RD= 3.14159265/ 180 30 P2= 3.14159265* 2 40 R= 50 50 X0= 64:Y0= 64 60 D1= 90:D2= 450 65 D3= 10 66 GOTO 71 70 INPUT "ASPECT RATIO:";A 71 A= 1 75 A0= A 79 GOTO 81 80 INPUT "ANGULAR VEL";V 81 V= 35 90 VR= V* RD 100 V0= VR 110 PLOT 12 120 PLOT 2 130 FOR D= D1TO D2STEP D3 140 R0= D* RD 150 PLOT X0+ A* R* COS (R0),Y0+ R* SIN (R0),242 160 NEXT 170 A= A0* COS (VR) 180 VR= VR+ V0 185 PLOT 255 190 C= C+ 1:IF C= 24THEN C= 17 200 PLOT 29,C 205 K= K+ 1 206 IF K= 20THEN GOTO 220 210 GOTO 120 220 LOAD "MENU":RUN 150