home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lifeos2.zip / LIFE-1.02 / TESTS / IN / SELF.IN < prev    next >
Text File  |  1996-06-04  |  174b  |  12 lines
  1. '=X,writeq(X),write(X)?'=X,writeq(X),write(X)?
  2. .
  3. "=X,writeq(X),write(X)?"=X,writeq(X),write(X)?
  4. .
  5. X: (writeq(X), write("?"))?
  6. .
  7. X:write(X)?
  8. .
  9. X: (write(X), put(63))?
  10. .
  11. self?
  12.