____________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________N_LCYC82_SPF_______________________________________________________________________________________00000___________________00000000739_00000000000_0003230______________________________________________________________________________________________________/_N_CST_DIR/___________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________;$PATH=/_N_CST_DIR

;V02.05.03 11.09.2003

;C02.04.02 22.03.2001

;Bohren, Plansenken

N10 R[260]=REP(0)

N12 IF $P_GG[6]<>1 GOTOF _MM0B

N14 R260=ISAXIS(3)

N16 IF R260==0 GOTOF _ERR2

N18 GOTOF _MM0

N20 _MM0B:IF $P_GG[6]<>2 GOTOF _MM0C

N22 R260=ISAXIS(2)

N24 IF R260==0 GOTOF _ERR2

N26 GOTOF _MM0

N28 _MM0C:R260=ISAXIS(1)

N30 IF R260==0 GOTOF _ERR2

N32 _MM0:_ZZ=$P_AXN3 R102=ABS(R102)

N34 IF R103==R104 GOTOF _ERR1 IF R101==R103 GOTOF _MM1 IF ((R101-R103)/ABS(R101-R103))<>((R103-R104)/ABS(R103-R104)) GOTOF _ERR1

N36 _MM1: G0 G64 G90 AX[_ZZ]=R103+R102*(R103-R104)/ABS(R103-R104)

N38 G1 AX[_ZZ]=R104

N40 G4 F=R105

N42 G0 G90 G40 G60 AX[_ZZ]=R101

N44 _MM2:M17

N46 _ERR1: STOPRE

N48 SETAL(61101)

N50 M17

N52 _ERR2: STOPRE

N54 SETAL(61003)