BEGIN PGM 252 MM 
FN 9: IF +Q201 EQU +0 GOTO LBL 254
Q194 = 52
CALL PGM INIT25X.CYC
CALL PGM PSRD25X.CYC
CALL PGM CIRCLEMILL.CYC
LBL 254
END PGM 252 MM 
