home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lifeos2.zip / LIFE-1.02 / TESTS / IN / PARSE.IN < prev    next >
Text File  |  1996-06-04  |  355b  |  29 lines
  1.  
  2. A=parse("W+E."),write(aa)?
  3. W=34?
  4. E=45?
  5. B=eval(A),write(bb)?
  6. .
  7. X=34?
  8. Y=parse("X+X."),write(cc)?
  9. Z=eval(Y),write(dd)?
  10. .
  11. W=1?
  12. Q=parse("(1+",Flag),Flag:\==error,write("WRONG 1!")?
  13. R=parse("1+2",Flag),Flag:\==error,write("WRONG 2!")?
  14. .
  15. A=parse?
  16. X=A(Q)?
  17. Q="1+2."?
  18. B=eval(X)?
  19. .
  20. A=parse("""1+2."".")?
  21. B=parse(A)?
  22. C=eval(B)?
  23. .
  24. A=parse(S)?
  25. S="1+2."?
  26. C=eval(A)?
  27. .
  28.  
  29.