BEGIN PGM READ_RESULT MM 
FN 9: IF +Q109 EQU +0 GOTO LBL 1
FN 9: IF +Q109 EQU +6 GOTO LBL 1
FN 9: IF +Q109 EQU +1 GOTO LBL 2
FN 9: IF +Q109 EQU +7 GOTO LBL 2
FN 9: IF +Q109 EQU +2 GOTO LBL 3
FN 9: IF +Q109 EQU +8 GOTO LBL 3
LBL 1
FN 0: Q141 =+Q116
FN 0: Q142 =+Q117
FN 9: IF +0 EQU +0 GOTO LBL 4
LBL 2
FN 0: Q141 =+Q117
FN 0: Q142 =+Q115
FN 9: IF +0 EQU +0 GOTO LBL 4
LBL 3
FN 0: Q141 =+Q115
FN 0: Q142 =+Q116
LBL 4
END PGM READ_RESULT MM 
