;
; 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}