BEGIN PGM PROTOCOLL_420 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 102
FN 9: IF +Q281 EQU +1 GOTO LBL 172
;FN 12: IF +Q0 LT +2 GOTO LBL 171
;FN 9: IF +Q189 EQU +0 GOTO LBL 172
;LBL 171
FN 10: IF +Q281 NE +2 GOTO LBL 102
LBL 182
;Screen-Ausgabe
FN 10: IF +Q272 NE +1 GOTO LBL 183
FN 16: F-PRINT 420PROT1_SCREEN.A / SCREEN:
FN 17: SYSWRITE ID 990 NR9 =+1
FN 16: F-PRINT 420PROT1_SCREEN.A / SCLR:
FN 9: IF +0 EQU +0 GOTO LBL 102
LBL 183
FN 10: IF +Q272 NE +2 GOTO LBL 184
FN 16: F-PRINT 420PROT2_SCREEN.A / SCREEN:
FN 17: SYSWRITE ID 990 NR9 =+1
FN 16: F-PRINT 420PROT2_SCREEN.A / SCLR:
FN 9: IF +0 EQU +0 GOTO LBL 102
LBL 184
FN 16: F-PRINT 420PROT3_SCREEN.A / SCREEN:
FN 17: SYSWRITE ID 990 NR9 =+1
FN 16: F-PRINT 420PROT3_SCREEN.A / SCLR:
FN 9: IF +0 EQU +0 GOTO LBL 102
LBL 172
;File-Ausgabe
FN 10: IF +Q272 NE +1 GOTO LBL 100
FN 16: F-PRINT 420PROT1.A / TCHPR420.TXT
FN 9: IF +0 EQU +0 GOTO LBL 102
LBL 100
FN 10: IF +Q272 NE +2 GOTO LBL 101
FN 16: F-PRINT 420PROT2.A / TCHPR420.TXT
FN 9: IF +0 EQU +0 GOTO LBL 102
LBL 101
FN 16: F-PRINT 420PROT3.A / TCHPR420.TXT
LBL 102
END PGM PROTOCOLL_420 MM
