0  BEGIN PGM M329 MM 
1  ****************
2  * - Description
3  ****************
4  * Positionning of 3D-head Sempuco KFU-D3
5  * after Cycle PLANE
6  ****************
7  ;
8  FN 17: SYSWRITE ID 2000 NR70 IDX7098 =+329 ; NUMBER NC MACRO ON
9  FN 18: SYSREAD Q0 = ID240 NR8 IDX4
10 FN 9: IF +Q0 EQU +Q120 GOTO LBL "B-POSIT"
11 L  B+0 FMAX
12 L  A+Q120 FMAX
13 LBL "B-POSIT"
14 L  B+Q121 FMAX
15 FN 17: SYSWRITE ID 2000 NR70 IDX7098 =-1 ; NC MACRO OFF
16 END PGM M329 MM