home *** CD-ROM | disk | FTP | other *** search
/ Tools en Utilities / CDASS_5.ISO / shell / util / parse260.arj / EXAMPLE8.POM < prev    next >
Encoding:
Text File  |  1995-01-01  |  1.1 KB  |  45 lines
  1. ;
  2. ; NOTE:  A quick-reference summary of POM commands appears in EXAMPLE4.POM
  3. ;
  4. ;-----------------------------------------------------------------------------
  5. ;
  6. ; This file is similar to EXAMPLE3.POM, but it uses the LOOKUP command.
  7. ; For an explanation of the first 9 lines, see EXAMPLE3.POM.
  8. ;
  9. ;-----------------------------------------------------------------------------
  10. ;
  11. MINLEN = "1"
  12. IF       $FLINE[  1  11] = "-----------" THEN HDRCNTR = HDRCNTR+
  13. IGNORE   HDRCNTR         = ""
  14. IGNORE   FINISHED        = "Y"
  15. IF       HDRCNTR         = "4" THEN FINISHED = "Y"
  16. SET      TEST            = $FLINE[ 46  47]
  17. ACCEPT   TEST            = "IB"
  18. ACCEPT   TEST            = "--"
  19. ACCEPT   $FLINE[ 40  47] = "BR BD MA"
  20. ;
  21. ; Get modem type
  22. ;
  23. SET      type            = $FLINE[43 44]
  24. ;
  25. ; Ignore the slow ones
  26. ;
  27. IGNORE   type            = "30"
  28. IGNORE   type            = "12"
  29. IGNORE   type            = "24"
  30. ;
  31. ; Set up look-up file
  32. ;
  33. LOOKFILE "EXAMPLE8.TBL"
  34. LOOKSPEC "Y" "Y" "Y"
  35. LOOKCOLS "7" "8" "20" "255"
  36. ;
  37. ; Look up modem description
  38. ;
  39. LOOKUP   mdesc = type
  40. ;
  41. ; Output
  42. ;
  43. SET     data = $FLINE[1 50]
  44. OUTEND  |{data} {mdesc}
  45.