;
;   NOTE:  A quick-reference summary of POM commands appears in EXAMPL04.POM
;
;-------------------------------------------------------------------------------
;
;   This file is similar to EXAMPL03.POM, but it uses the LOOKUP command.
;
;-------------------------------------------------------------------------------
;
MINLEN   "1"
;
;   Remove everything before and after the headings
;
IF       $FLINE[  1  11] = "-----------" THEN HdrCntr = HdrCntr+
IGNORE   HdrCntr         = ""
IGNORE   HdrCntr         = "3"
IGNORE   HdrCntr         = "4"
IGNORE   $FLINE[ 34  41] = "PHONUMBR"
IGNORE   $FLINE[  1  11] = "-----------"
IGNORE   Finished        = "Y"
IF       HdrCntr         = "4" THEN Finished = "Y"
;
;   Set page headings, with a top margin of one line
;
PAGELEN  "55" "Y"
OUTHDG   ""
OUTHDG   "-------------------------------- -------- -------------"
OUTHDG   "NAME OF BBS                      PHONENUM TYPE OF MODEM"
OUTHDG   "-------------------------------- -------- -------------"
;
;   Get modem type
;
SET      Type = $FLINE[43 44]
;
;   Ignore the slow ones
;
IGNORE   Type = "30"
IGNORE   Type = "12"
;
;   Set up look-up file
;
LOOKFILE "EXAMPL08.TBL"
LOOKSPEC "Y" "Y" "Y"
LOOKCOLS "7" "8" "20" "255"
;
;   Look up modem speed description
;
LOOKUP   Speed = Type
;
;   Output
;
SET      Data = $FLINE[1 41]
OUTEND   |{Data} {Speed}