home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lifeos2.zip / LIFE-1.02 / TESTS / IN / PARSER.IN < prev    next >
Text File  |  1996-06-04  |  282b  |  10 lines
  1. expand_load(true)?
  2. import("parser")?
  3. syntax("FILES/parser.1", "FILES/parser.2")?
  4. syntax("FILES/parser.2", "FILES/parser.3")?
  5. global(teststream)?
  6. p :- open_in("FILES/parser.3",S), teststream=S.
  7. p,read(X1),read(X2),read(X3),read(X4),read(X5),read(X6),read(X7)?
  8. close(S:teststream)?
  9. .
  10.