home *** CD-ROM | disk | FTP | other *** search
/ ftp.ee.pdx.edu / 2014.02.ftp.ee.pdx.edu.tar / ftp.ee.pdx.edu / pub / users / Harry / compilers / p3 / tst / stat9.out.bak < prev    next >
Text File  |  2005-10-24  |  195b  |  39 lines
  1. T
  2. integer
  3. TYPE
  4. a
  5. T
  6. 2
  7. 0
  8. VAR
  9. echo
  10. x
  11. integer
  12. FORMAL
  13. PROCEDURE
  14. WRITE
  15. x
  16. ENDWRITE
  17. RETURN
  18. x
  19. ENDRETURN
  20. READ
  21. a
  22. echo
  23. FUNCTION
  24. 0
  25. ENDFUNCTION
  26. a
  27. echo
  28. FUNCTION
  29. 1
  30. ENDFUNCTION
  31. ENDREAD
  32. WRITE
  33. a
  34. 0
  35. " "
  36. a
  37. 1
  38. ENDWRITE
  39.