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 / stat1.out.bak < prev    next >
Text File  |  2005-10-24  |  244b  |  45 lines
  1. echo
  2. x
  3. integer
  4. FORMAL
  5. integer
  6. PROCEDURE
  7. WRITE
  8. x
  9. ENDWRITE
  10. RETURN
  11. x
  12. ENDRETURN
  13. T
  14. integer
  15. TYPE
  16. a
  17. T
  18. 10
  19. 0
  20. VAR
  21. b
  22. 99
  23. VAR
  24. a
  25. 9
  26. ASSIGN
  27. b
  28. ENDASSIGN
  29. a
  30. echo
  31. FUNCTION
  32. 1
  33. ENDFUNCTION
  34. ASSIGN
  35. echo
  36. FUNCTION
  37. b
  38. ENDFUNCTION
  39. echo
  40. FUNCTION
  41. 3
  42. ENDFUNCTION
  43. PLUS
  44. ENDASSIGN
  45.