BEGIN PGM AXISCOMP MM
L  Z+Q260 R0 FQ59
CALL LBL 60
; Ausrichten A (WZ-Achse X)
FN 10: IF +Q109 NE +0 GOTO LBL 30
L IA+Q50 R0 FQ59
FN 9: IF +Q337 EQU +0 GOTO LBL 199
FN 18: SYSREAD Q6 = ID270 NR1 IDX4
FN 17: SYSWRITE ID 502 NR0 IDX4 = +Q6
FN 17: SYSWRITE ID 530 NR1 =+0
FN 9: IF +0 EQU +0 GOTO LBL 199
LBL 30
; Ausrichten B (WZ-Achse Y)
FN 10: IF +Q109 NE +1 GOTO LBL 31
L IB+Q50 R0 FQ59
FN 9: IF +Q337 EQU +0 GOTO LBL 199
FN 18: SYSREAD Q6 = ID270 NR1 IDX5
FN 17: SYSWRITE ID 502 NR0 IDX5 = +Q6
FN 17: SYSWRITE ID 530 NR1 =+0
FN 9: IF +0 EQU +0 GOTO LBL 199
LBL 31
; Ausrichten C (WZ-Achse Z)
FN 10: IF +Q109 NE +2 GOTO LBL 32
L IC+Q50 R0 FQ59
FN 9: IF +Q337 EQU +0 GOTO LBL 199
FN 18: SYSREAD Q6 = ID270 NR1 IDX6
FN 17: SYSWRITE ID 502 NR0 IDX6 = +Q6
FN 17: SYSWRITE ID 530 NR1 =+0
FN 9: IF +0 EQU +0 GOTO LBL 199
LBL 32
FN 14: ERROR= 1019
;** COPY ACTIVE LINE INTO LINE 0
LBL 60
;ALLE PRESETWERTE LESEN
FN 18: SYSREAD Q0 = ID530 NR1
FN 10: IF +Q0 NE -1 GOTO LBL 61
Q0 = 0
LBL 61
FN 18: SYSREAD QL1 = ID503 NRQ0 IDX1
FN 18: SYSREAD QL2 = ID503 NRQ0 IDX2
FN 18: SYSREAD QL3 = ID503 NRQ0 IDX3
FN 18: SYSREAD QL4 = ID503 NRQ0 IDX4
FN 18: SYSREAD QL5 = ID503 NRQ0 IDX5
FN 18: SYSREAD QL6 = ID503 NRQ0 IDX6
FN 18: SYSREAD QL7 = ID503 NRQ0 IDX7
FN 18: SYSREAD QL8 = ID503 NRQ0 IDX8
FN 18: SYSREAD QL9 = ID503 NRQ0 IDX9
FN 18: SYSREAD QL10 = ID504 NRQ0
FN 17: SYSWRITE ID 503 NR0 IDX1 =+QL1
FN 17: SYSWRITE ID 503 NR0 IDX2 =+QL2
FN 17: SYSWRITE ID 503 NR0 IDX3 =+QL3
FN 17: SYSWRITE ID 503 NR0 IDX4 =+QL4
FN 17: SYSWRITE ID 503 NR0 IDX5 =+QL5
FN 17: SYSWRITE ID 503 NR0 IDX6 =+QL6
FN 17: SYSWRITE ID 503 NR0 IDX7 =+QL7
FN 17: SYSWRITE ID 503 NR0 IDX8 =+QL8
FN 17: SYSWRITE ID 503 NR0 IDX9 =+QL9
FN 17: SYSWRITE ID 504 NR0 =+QL10
LBL 0
LBL 199
END PGM AXISCOMP MM
