home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / parsomat.zip / exampl13.pom < prev    next >
Text File  |  2001-07-15  |  722b  |  20 lines
  1. ;
  2. ;   Output the line only if we're processing.  For the purposes of this demon-
  3. ;   stration, we'll put two X's at the end of each line so that when you look
  4. ;   at it with our file viewer, you can see how each line has been padded to
  5. ;   80 characters.
  6. ;
  7. BEGIN process = "Y"
  8.   PAD $FLINE "R" " " "78"
  9.   PAD $FLINE "R" "X" "80"
  10.   OUT |{$FLINE}
  11. END
  12. ;
  13. ;   See if we've reached the dashed line, yet.  Until a variable is set
  14. ;   (in this case, the variable is named "process"), it is null ("").
  15. ;   We do the test here at the end of the POM file, instead of at the
  16. ;   beginning, since we don't include the dashed line itself as a line
  17. ;   to be processed.
  18. ;
  19. IF $FLINE[1 7] = "-------" THEN process = "Y"
  20.