Listing of file='LISAJO.BAS;01' on disk='vmedia/taylor_2-sector.ccvf'
20 PI= 3.14159 30 FG= 18:BG= 16 40 PLOT 12 50 Z = 360 60 GO= 1 70 SS = 10 500 INPUT "FREQUENCY RATIO (0.1-10) : ";E 510 INPUT "STARTING PHASE ANGLE (0-360) : ";PS 520 INPUT "ENDING PHASE ANGLE (0-360) : ";PE 530 INPUT "INCREMENT : ";IC 535 IC = ABS (IC) 540 PH = PS 1000 IF E> 10THEN E= 10 1010 IF E< 0.1THEN E= 0.1 1015 IF E< 1THEN Z= 360/ E 1030 IF PH< 0THEN PH= - PH 1040 IF PH> 360THEN PH= PH- 360 1050 A= PH* PI/ 180 1060 PLOT 12,29,FG,30,BG 1070 ST= 64+ 60* SIN (A) 1080 PLOT 2,253,64,ST,242 2000 FOR I= SSTO ZSTEP SS 2010 T= I* PI/ 180 2020 X= SIN (T) 2030 Y= SIN (E* T+ A) 2040 X= 64+ 40* X 2050 Y= 64+ 60* Y 2060 PLOT X,Y 2070 NEXT I 2080 PLOT 255 2085 IF IC= 0GOTO 2500 2087 IF GO< > 0GOTO 2100 2090 IF PH= PEGOTO 2500 2100 PH = PH+ IC 2110 FOR I= 1TO 50:NEXT I 2120 GO = 0 2130 GOTO 1000 2500 END