0  BEGIN PGM BS_INIT MM 
1  ;Axis limit range
2  FN 17: SYSWRITE ID 2000 NR70 IDX7098 =+1000 ; NUMBER NC MACRO ON
3  FN 18: SYSREAD Q1 = ID2000 NR10 IDX211
4  FN 18: SYSREAD Q2 = ID2000 NR10 IDX212
5  FN 18: SYSREAD Q3 = ID2000 NR10 IDX213
6  FN 9: IF +Q3 EQU +0 GOTO LBL 2
7  FN 31: RANGE:2
8  FN 9: IF +0 EQU +0 GOTO LBL 10
9  LBL 2
10 FN 9: IF +Q2 EQU +0 GOTO LBL 3
11 FN 31: RANGE:1
12 FN 9: IF +0 EQU +0 GOTO LBL 10
13 LBL 3
14 FN 31: RANGE:0
15 LBL 10
16 ;PLC preset
17 FN 20: WAIT FOR  SYNC
18 FN 18: SYSREAD Q10 = ID2000 NR10 IDX8425
19 FN 9: IF +Q10 EQU +0 GOTO LBL 99
20 FN 18: SYSREAD Q20 = ID2000 NR60 IDX9
21 FN 26: TABOPEN TNC:\DATUM\PRESET.TAB
22 FN 9: IF +Q20 EQU +0 GOTO LBL 20
23 FN 28: TABREAD Q21 =Q20 /"DATUM_X,DATUM_Y,DATUM_Z"
24 FN 27: TABWRITE 0 /"ACTIVE,DATUM_X,DATUM_Y,DATUM_Z" = Q20
25 FN 9: IF +0 EQU +0 GOTO LBL 30
26 LBL 20
27 Q20 = 0
28 Q21 = 0
29 Q22 = 0
30 Q23 = 0
31 FN 27: TABWRITE 0 /"ACTIVE,DATUM_X,DATUM_Y,DATUM_Z" = Q20
32 LBL 30
33 FN 32: AXIS0:+Q21 AXIS1:+Q22 AXIS2:+Q23
34 LBL 99
35 FN 17: SYSWRITE ID 2000 NR70 IDX7098 =-1 ; NC MACRO OFF
36 END PGM BS_INIT MM