home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
High Voltage Shareware
/
high1.zip
/
high1
/
DIR6
/
POM233B.ZIP
/
EXAMPLE3.POM
< prev
next >
Wrap
Text File
|
1993-10-08
|
1KB
|
49 lines
;
; 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}