BEGIN PGM PROTOCOLL_425 MM
;FCL lesen
;FN 18: SYSREAD Q0 = ID630 NR1
;FN 12: IF +Q0 LT +2 GOTO LBL 180
;Schnelles Antasten
;FN 18: SYSREAD Q189 = ID370 NR6
;FN 9: IF +Q189 EQU +1 GOTO LBL 182
;LBL 180
FN 9: IF +Q281 EQU +0 GOTO LBL 198
FN 9: IF +Q281 EQU +1 GOTO LBL 183
;FN 12: IF +Q0 LT +2 GOTO LBL 181
;FN 9: IF +Q189 EQU +0 GOTO LBL 183
;LBL 181
FN 10: IF +Q281 NE +2 GOTO LBL 198
LBL 182
;Screen-Ausgabe
FN 16: F-PRINT 425PROT_SCREEN.A / SCREEN:
FN 17: SYSWRITE ID 990 NR9 =+1
FN 16: F-PRINT 425PROT_SCREEN.A / SCLR:
FN 9: IF +0 EQU +0 GOTO LBL 198
LBL 183
;File-Ausgabe
FN 16: F-PRINT 425PROT.A / TCHPR425.TXT
LBL 198
END PGM PROTOCOLL_425 MM
