C FOCAL15 V6A
01.10 S X=FINT(3)
01.20 F J=1,50; S X=FPLT(240,3)
01.30 F J=1,2,50; S X=FPLT(118-J,3); S X=FPLT(118+J,3)
01.40 F J=1,15; S X=FPLT(118,2)
01.50 F J=1,2,50; S X=FPLT(118-J,7); S X=FPLT(J+118,7)
01.55 F J=1,2,50; S X=FPLT(68+J,4); S X=FPLT(168-J,4)
01.60 F J=1,125; S X=FPLT(118,2)
01.70 S X=FCLS(0)