0  BEGIN PGM 404 MM 
1  FN 18: SYSREAD Q0 = ID210 NR6
2  FN 10: IF +Q0 NE -1 GOTO LBL "3D-ROT_OK"
3  FN 14: ERROR= 1006
4  LBL "3D-ROT_OK"
5  FN 18: SYSREAD Q1 = ID20 NR3 ; WZ-Achse
6  FN 18: SYSREAD Q2 = ID530 NR1 ; active Preset
7  FN 11: IF +Q2 GT -1 GOTO LBL "MAN_PRESET_INACTIVE"
8  Q2 = 0
9  LBL "MAN_PRESET_INACTIVE"
10 FN 12: IF +Q305 LT +0 GOTO LBL "ACTIVE_PRESET"
11 FN 9: IF +Q305 EQU +Q2 GOTO LBL "ACTIVE_PRESET"
12 FN 9: IF +Q305 EQU +0 GOTO LBL "MAN_PRESET"
13 LBL "OTHER_PRESET"
14 FN 17: SYSWRITE ID 504 NRQ305 =+Q307
15 FN 9: IF +0 EQU +0 GOTO LBL "END"
16 LBL "MAN_PRESET"
17 FN 18: SYSREAD QL1 = ID503 NRQ2 IDX1 ; X
18 FN 18: SYSREAD QL2 = ID503 NRQ2 IDX2 ; Y
19 FN 18: SYSREAD QL3 = ID503 NRQ2 IDX3 ; Z
20 FN 18: SYSREAD QL4 = ID503 NRQ2 IDX4 ; A
21 FN 18: SYSREAD QL5 = ID503 NRQ2 IDX5 ; B
22 FN 18: SYSREAD QL6 = ID503 NRQ2 IDX6 ; C
23 FN 18: SYSREAD QL7 = ID503 NRQ2 IDX7 ; U
24 FN 18: SYSREAD QL8 = ID503 NRQ2 IDX8 ; V
25 FN 18: SYSREAD QL9 = ID503 NRQ2 IDX9 ; W
26 FN 17: SYSWRITE ID 503 NR0 IDX1 =+QL1 ; X
27 FN 17: SYSWRITE ID 503 NR0 IDX2 =+QL2 ; Y
28 FN 17: SYSWRITE ID 503 NR0 IDX3 =+QL3 ; Z
29 FN 17: SYSWRITE ID 503 NR0 IDX4 =+QL4 ; A
30 FN 17: SYSWRITE ID 503 NR0 IDX5 =+QL5 ; B
31 FN 17: SYSWRITE ID 503 NR0 IDX6 =+QL6 ; C
32 FN 17: SYSWRITE ID 503 NR0 IDX7 =+QL7 ; U
33 FN 17: SYSWRITE ID 503 NR0 IDX8 =+QL8 ; V
34 FN 17: SYSWRITE ID 503 NR0 IDX9 =+QL9 ; W
35 FN 17: SYSWRITE ID 530 NR1 =+0 ; activate line 0
36 LBL "ACTIVE_PRESET"
37 QL20 = Q305
38 FN 11: IF +QL20 GT -1 GOTO LBL "WRITE_BASROT"
39 QL20 = Q2
40 LBL "WRITE_BASROT"
41 FN 17: SYSWRITE ID 504 NRQL20 =+Q307
42 FN 11: IF +Q305 GT +0 GOTO LBL "END"
43 FN 17: SYSWRITE ID 530 NR1 =+QL20 ; activate preset
44 FN 9: IF +0 EQU +0 GOTO LBL "END"
45 LBL "END"
46 END PGM 404 MM 
