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