BEGIN PGM 254 MM 
FN 9: IF +Q201 EQU +0 GOTO LBL 252
Q194 = 54
Q370 = 1
CALL PGM INIT25X.CYC
Q70 = 0
Q71 = Q376
LBL 1
Q70 = Q70 + 1
FN 18: SYSREAD Q31 = ID270 NR1 IDX1
FN 18: SYSREAD Q32 = ID270 NR1 IDX2
CALL LBL 10
CALL PGM CSLOTMILL.CYC
FN 9: IF +Q70 EQU +Q377 GOTO LBL 254
Q376 = Q376 + Q378
FN 9: IF +0 EQU +0 GOTO LBL 1
LBL 10
Q59 = Q367 + 20
FN 9: IF +0 EQU +0 GOTO LBL Q59
LBL 20 ; Nutlage 0
Q33 = Q216 ; Mitte X
Q34 = Q217 ; Mitte Y
Q35 = Q376 ; Startwinkel
FN 9: IF +0 EQU +0 GOTO LBL 253
LBL 21 ; Nutlage 1
FN 11: IF +Q70 GT +1 GOTO LBL 211
Q33 = Q31 - ( ( Q375 / 2 ) * COS Q376 ) ; Mitte X
Q34 = Q32 - ( ( Q375 / 2 ) * SIN Q376 ) ; Mitte Y
LBL 211
Q35 = Q376 - Q248 ; Startwinkel
FN 9: IF +0 EQU +0 GOTO LBL 253
LBL 22 ; Nutlage 2
FN 11: IF +Q70 GT +1 GOTO LBL 212
Q33 = Q31 - ( ( Q375 / 2 ) * COS Q376 ) ; Mitte X
Q34 = Q32 - ( ( Q375 / 2 ) * SIN Q376 ) ; Mitte Y
LBL 212
Q35 = Q376 - ( Q248 / 2 ) ; Startwinkel
FN 9: IF +0 EQU +0 GOTO LBL 253
LBL 23 ; Nutlage 3
FN 11: IF +Q70 GT +1 GOTO LBL 213
Q33 = Q31 - ( ( Q375 / 2 ) * COS Q376 ) ; Mitte X
Q34 = Q32 - ( ( Q375 / 2 ) * SIN Q376 ) ; Mitte Y
LBL 213
Q35 = Q376 ; Startwinkel
LBL 253
LBL 0
LBL 254
Q376 = Q71
LBL 252
END PGM 254 MM 
