home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / parsomat.zip / exampl03.pom < prev    next >
Text File  |  2001-07-15  |  1KB  |  45 lines
  1. ;
  2. ;   Determine where we are.  (HdrCntr is null until first match)
  3. ;
  4. IF       $FLINE[  1  11] = "-----------" THEN HdrCntr = HdrCntr+
  5. ;
  6. ;  Ignore start of input
  7. ;
  8. IGNORE   HdrCntr         = ""
  9. ;
  10. ;   Wait until fourth line of dashes, then start ignoring
  11. ;
  12. IGNORE   Finished        = "Y"
  13. IF       HdrCntr         = "4" THEN Finished = "Y"
  14. ;
  15. ;   Accept header lines and IBM boards only
  16. ;   Note the use of "clustered ACCEPTs" here
  17. ;
  18. SET      Test            = $FLINE[ 46  47]
  19. ACCEPT   Test            = "IB"
  20. ACCEPT   Test            = "--"
  21. ACCEPT   $FLINE[ 40  47] = "BR BD MA"
  22. ;
  23. ;   Skip slow baud rates
  24. ;                                        
  25. IGNORE   $FLINE[ 43  44] = "30"
  26. IGNORE   $FLINE[ 43  44] = "12"
  27. ;
  28. ;   Skip pay boards
  29. ;                                        
  30. IGNORE   $FLINE[ 49    ] = "Y"
  31. ;
  32. ;   Skip boards without file transfer
  33. ;                                        
  34. IGNORE   $FLINE[ 50    ] = "N"
  35. ;
  36. ;   Replace baud rates for modems we can't handshake with, using our v32 modem
  37. ;              
  38. CHANGE   $FLINE  " 9H "   =   " 24 "
  39. CHANGE   $FLINE  " 9P "   =   " 24 "
  40. CHANGE   $FLINE  " 9V "   =   " 24 "
  41. ;
  42. ;   Output
  43. ;
  44. OUTEND   |{$FLINE}
  45.