APT自动编程举例源程序（4）

069     LOOPST;

070     3Y）L3) CV=C/CE, PD, R, (RQ+I);

071     PD=P/YL,INTOF, CV,CC2;

072     L5=L/P2, PD;

073     IF(N)11, 11,22;

074     22) L55=L/PARLEL,L5 ,XL, RD;

075     JUMPTO/33;

076     11) L55=L/PARLEL, L5, XS, RD;

077     33) PC1=P/YL, INTOF,L55,CC0;

078     PC2=P/YL, INTOF, L55, CCZ;

079     P77=P/YL, INTOF, L55, CC2;

080     D00=DISTF(PC1, PC2);

081     DDRR=(D00-D0);

082     IF(DDRR)L1,L1,L2;

083     L2) I=I+1;

084     JUMPTO/L3;

085     4A)  L1) LOOPND;

086     I=I-1;

087     5A)  J=1;

088     6A)  LOOPST;

089     IU) CV=C/CE, PO, R,(RQ+J);

090     PD=P/YL,INTOF,CV,CC2;

091     L5=L/P2,PD;