BEGIN PGM PROTOCOLL_430 MM
;FCL lesen
;FN 18: SYSREAD Q0 = ID630 NR1
;FN 12: IF +Q0 LT +2 GOTO LBL 190
;Schnelles Antasten
;FN 18: SYSREAD Q189 = ID370 NR6
;FN 9: IF +Q189 EQU +1 GOTO LBL 192
;LBL 190
FN 9: IF +Q281 EQU +0 GOTO LBL 198
FN 9: IF +Q281 EQU +1 GOTO LBL 193
;FN 12: IF +Q0 LT +2 GOTO LBL 191
;FN 9: IF +Q189 EQU +0 GOTO LBL 193
;LBL 191
FN 10: IF +Q281 NE +2 GOTO LBL 198
LBL 192
;Screen-Ausgabe
FN 16: F-PRINT 430PROT_SCREEN.A / SCREEN:
FN 17: SYSWRITE ID 990 NR9 =+1
FN 16: F-PRINT 430PROT_SCREEN.A / SCLR:
FN 9: IF +0 EQU +0 GOTO LBL 198
LBL 193
;File-Ausgabe
FN 16: F-PRINT 430PROT.A / TCHPR430.TXT
LBL 198
END PGM PROTOCOLL_430 MM
