____________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________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)