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

092     IF(N)1T,1T,2T

093     2T)  L55=L/PARLEL,L5,XL,RD

094     JUMPTO/3T

095     1T)  L55=L/PARLEL, L5,XS, RD

096     3T)  P77=P/Y, INTOF, L55,CC2

097     V2=VECTOR/PD,P2

098     PH=P/P77, DELTA, RD, TIMES, UNIT, V2

099     CH=C/CE, PH, R, RO

100     IF(N)AS, AS, AD

101     AD)  PV=P/XL, INTOF, CH, CV

102     JUMPTO/AF

103     AS) PV=P/XS, INTOF, CH, CV

104     AF) LV=L/PV, P8

105     QV=P/YL, INTOF, LV, CCZ

106     DV=DISTF(PV,QV)-B

107     IF(DV-2*RD)IO,IO,IP

108     IP)  J=J+1

109     IF(J-I) IU, IO,IO

110     IO)  LOOPND

111     CV=C/CE,P0,R,(RQ+J-1)

112     QT=(D0-2*B-2)/2

113     V1=VECTOR/P3,P2