C FOCAL15 V6A
01.05 A "AMP",A,"N",N,!!
01.10 F J=1,161;S X=((J-81)/40)*3.1415927;S Y=A*FCOS(N*X);D 1.2
01.15 GOTO 2.1
01.20 S A(J)=Y*FCOS(X)*9024; S B(J)=Y*FSIN(X)*9024
02.10 T "PLOT READY",!!
02.20 F J=1,161; S XX=FDPY(A(J),B(J))
02.40 GOTO 2.2