home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / parsomat.zip / exampl17.pom < prev    next >
Text File  |  2001-07-15  |  324b  |  10 lines
  1. BEGIN    $FLINE ^ "Tomato"
  2.   LOG      "Y" = "Y" "The word was found in the following line:"
  3.   TRIM     $FLINE "B" " "
  4.   LOG      "Y" = "Y" $FLINE
  5.   PARSE    inpfname $COMMAND "2* " "3* "
  6.   SET      message = "The file containing ""Tomato"" is: "
  7.   APPEND   message message inpfname
  8.   HALT     "Y" = "Y" message
  9. END
  10.