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