home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / parsomat.zip / exampl08.pom < prev    next >
Text File  |  2001-07-15  |  1KB  |  50 lines
  1. ;
  2. ;   This file is similar to EXAMPL03.POM, but it uses the LOOKUP command.
  3. ;
  4. ;-------------------------------------------------------------------------------
  5. ;
  6. MINLEN   "1"
  7. ;
  8. ;   Remove everything before and after the headings
  9. ;
  10. IF       $FLINE[  1  11] = "-----------" THEN HdrCntr = HdrCntr+
  11. IGNORE   HdrCntr         = ""
  12. IGNORE   HdrCntr         = "3"
  13. IGNORE   HdrCntr         = "4"
  14. IGNORE   $FLINE[ 34  41] = "PHONUMBR"
  15. IGNORE   $FLINE[  1  11] = "-----------"
  16. IGNORE   Finished        = "Y"
  17. IF       HdrCntr         = "4" THEN Finished = "Y"
  18. ;
  19. ;   Set page headings, with a top margin of one line
  20. ;
  21. PAGELEN  "55" "Y"
  22. OUTHDG   ""
  23. OUTHDG   "-------------------------------- -------- -------------"
  24. OUTHDG   "NAME OF BBS                      PHONENUM TYPE OF MODEM"
  25. OUTHDG   "-------------------------------- -------- -------------"
  26. ;
  27. ;   Get modem type
  28. ;
  29. SET      Type = $FLINE[43 44]
  30. ;
  31. ;   Ignore the slow ones
  32. ;
  33. IGNORE   Type = "30"
  34. IGNORE   Type = "12"
  35. ;
  36. ;   Set up look-up file
  37. ;
  38. LOOKFILE "EXAMPL08.TBL"
  39. LOOKSPEC "Y" "Y" "Y"
  40. LOOKCOLS "4" "5" "10" "50"
  41. ;
  42. ;   Look up modem speed description
  43. ;
  44. LOOKUP   Speed = Type
  45. ;
  46. ;   Output
  47. ;
  48. SET      Data = $FLINE[1 41]
  49. OUTEND   |{Data} {Speed}
  50.