;
;   NOTE:  A quick-reference summary of POM commands appears in EXAMPL04.POM
;
;-------------------------------------------------------------------------------
;
;   Output the line only if we're processing.  For the purposes of this demon-
;   stration, we'll put two X's at the end of each line so that when you look
;   at it with our file viewer, you can see how each line has been padded to
;   80 characters.
;
BEGIN process = "Y"
  PAD $FLINE "R" " " "78" 
  PAD $FLINE "R" "X" "80"
  OUT |{$FLINE}
END
;
;   See if we've reached the dashed line, yet.  Until a variable is set
;   (in this case, the variable is named "process"), it is null ("").
;   We do the test here at the end of the POM file, instead of at the
;   beginning, since we don't include the dashed line itself as a line
;   to be processed.
;
IF $FLINE[1 7] = "-------" THEN process = "Y"