; Minimum line length

;
; Minimum line length
;
MINLEN = "1"
;
; Determine where we are. (HDRCNTR is null until first match)
;
IF $FLINE[ 1 11] = "-----------" THEN HDRCNTR = HDRCNTR+
;
; Ignore start of input
;
IGNORE HDRCNTR = ""
;
; Wait until fourth line of dashes, then start ignoring
;
IGNORE FINISHED = "Y"
IF HDRCNTR = "4" THEN FINISHED = "Y"
;
; Accept header lines and IBM boards only
; Note the use of "clustered ACCEPTs" here
;
SET TEST = $FLINE[ 46 47]
ACCEPT TEST = "IB"
ACCEPT TEST = "--"
ACCEPT $FLINE[ 40 47] = "BR BD MA"
;
; Skip slow baud rates
;
IGNORE $FLINE[ 43 44] = "30"
IGNORE $FLINE[ 43 44] = "12"
;
; Skip pay boards
;
IGNORE $FLINE[ 49 ] = "Y"
;
; Skip boards without file transfer
;
IGNORE $FLINE[ 50 ] = "N"
;
; Replace baud rates for modems we can't handshake with, using our v32 modem
;
CHANGE $FLINE " 9H " = " 24 "
CHANGE $FLINE " 9P " = " 24 "
CHANGE $FLINE " 9V " = " 24 "
;
; Output
;
OUTEND "" "" |{$FLINE}