BEGIN PGM 253 MM 
FN 9: IF +Q201 EQU +0 GOTO LBL 254
Q194 = 53
CALL PGM INIT25X.CYC
CALL PGM PSRD25X.CYC
CALL LBL 100
CALL PGM SLOTMILL.CYC
FN 9: IF +0 EQU +0 GOTO LBL 254
LBL 100 ;UP STARTPUNKT
Q38 = ABS ( Q218 / 2 )
Q39 = ABS ( Q219 / 2 )
Q40 = ABS ( Q218 / 2 ) - Q39
CYCL DEF 10.0 DREHUNG
CYCL DEF 10.1 IROT+Q374
FN 10: IF +Q367 NE +0 GOTO LBL Q367
;LAGE=ZENTRUM
FN 9: IF +0 EQU +0 GOTO LBL 9
LBL 1 ;LAGE 1
L IX+Q38 R0 FMAX
FN 9: IF +0 EQU +0 GOTO LBL 9
LBL 2 ;LAGE 2
L IX+Q40 R0 FMAX
FN 9: IF +0 EQU +0 GOTO LBL 9
LBL 3 ;LAGE 3
L IX-Q40 R0 FMAX
FN 9: IF +0 EQU +0 GOTO LBL 9
LBL 4 ;LAGE 4
L IX-Q38 R0 FMAX
LBL 9
LBL 0
LBL 254
END PGM 253 MM 
