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 / arrays2.out.bak < prev    next >
Text File  |  2005-10-24  |  694b  |  137 lines
  1. T
  2. integer
  3. TYPE
  4. echo
  5. q
  6. integer
  7. FORMAL
  8. integer
  9. PROCEDURE
  10. WRITE
  11. q
  12. ENDWRITE
  13. RETURN
  14. q
  15. ENDRETURN
  16. report
  17. a
  18. T
  19. FORMAL
  20. PROCEDURE
  21. WRITE
  22. a
  23. 0
  24. " "
  25. a
  26. 10
  27. " "
  28. a
  29. 20
  30. ENDWRITE
  31. change
  32. a
  33. T
  34. FORMAL
  35. PROCEDURE
  36. a
  37. 0
  38. ASSIGN
  39. 888
  40. ENDASSIGN
  41. a
  42. 20
  43. ASSIGN
  44. 777
  45. ENDASSIGN
  46. report
  47. CALL
  48. a
  49. ENDCALL
  50. x
  51. y
  52. z
  53. w
  54. 10
  55. VAR
  56. a
  57. T
  58. 10
  59. 0
  60. 10
  61. 1
  62. 10
  63. 2
  64. VAR
  65. b
  66. T
  67. x
  68. 10
  69. 10
  70. y
  71. z
  72. w
  73. VAR
  74. c
  75. T
  76. echo
  77. FUNCTION
  78. 10
  79. ENDFUNCTION
  80. echo
  81. FUNCTION
  82. 0
  83. ENDFUNCTION
  84. echo
  85. FUNCTION
  86. 20
  87. ENDFUNCTION
  88. echo
  89. FUNCTION
  90. 1
  91. ENDFUNCTION
  92. echo
  93. FUNCTION
  94. 30
  95. ENDFUNCTION
  96. echo
  97. FUNCTION
  98. 2
  99. ENDFUNCTION
  100. VAR
  101. report
  102. CALL
  103. a
  104. ENDCALL
  105. report
  106. CALL
  107. b
  108. ENDCALL
  109. report
  110. CALL
  111. c
  112. ENDCALL
  113. change
  114. CALL
  115. a
  116. ENDCALL
  117. change
  118. CALL
  119. b
  120. ENDCALL
  121. change
  122. CALL
  123. c
  124. ENDCALL
  125. report
  126. CALL
  127. a
  128. ENDCALL
  129. report
  130. CALL
  131. b
  132. ENDCALL
  133. report
  134. CALL
  135. c
  136. ENDCALL
  137.