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 / stat3.out.bak < prev    next >
Text File  |  2005-10-24  |  788b  |  158 lines
  1. x
  2. y
  3. integer
  4. 0
  5. VAR
  6. echo
  7. x
  8. integer
  9. FORMAL
  10. integer
  11. PROCEDURE
  12. WRITE
  13. x
  14. ENDWRITE
  15. RETURN
  16. x
  17. ENDRETURN
  18. FOR
  19. x
  20. 1
  21. TO
  22. 10
  23. DO
  24. WRITE
  25. x
  26. ENDWRITE
  27. ENDFOR
  28. WRITE
  29. "after:"
  30. x
  31. ENDWRITE
  32. FOR
  33. x
  34. 1
  35. TO
  36. 9
  37. BY
  38. 3
  39. DO
  40. WRITE
  41. x
  42. ENDWRITE
  43. ENDFOR
  44. WRITE
  45. "after:"
  46. x
  47. ENDWRITE
  48. FOR
  49. x
  50. 3
  51. TO
  52. 2
  53. DO
  54. WRITE
  55. x
  56. ENDWRITE
  57. ENDFOR
  58. WRITE
  59. "after:"
  60. x
  61. ENDWRITE
  62. FOR
  63. x
  64. 3
  65. TO
  66. 2
  67. BY
  68. 1
  69. unary-MINUS
  70. DO
  71. WRITE
  72. x
  73. ENDWRITE
  74. ENDFOR
  75. WRITE
  76. "after:"
  77. x
  78. ENDWRITE
  79. FOR
  80. x
  81. 3
  82. TO
  83. 3
  84. DO
  85. WRITE
  86. x
  87. ENDWRITE
  88. ENDFOR
  89. WRITE
  90. "after:"
  91. x
  92. ENDWRITE
  93. FOR
  94. x
  95. 1
  96. TO
  97. 10
  98. DO
  99. WRITE
  100. x
  101. ENDWRITE
  102. x
  103. ASSIGN
  104. 10
  105. ENDASSIGN
  106. ENDFOR
  107. WRITE
  108. "after:"
  109. x
  110. ENDWRITE
  111. x
  112. ASSIGN
  113. 5
  114. ENDASSIGN
  115. y
  116. ASSIGN
  117. 7
  118. ENDASSIGN
  119. FOR
  120. x
  121. x
  122. TO
  123. y
  124. DO
  125. WRITE
  126. x
  127. ENDWRITE
  128. y
  129. ASSIGN
  130. 3
  131. ENDASSIGN
  132. ENDFOR
  133. WRITE
  134. "after:"
  135. x
  136. ENDWRITE
  137. FOR
  138. x
  139. echo
  140. FUNCTION
  141. 1
  142. ENDFUNCTION
  143. TO
  144. echo
  145. FUNCTION
  146. 2
  147. ENDFUNCTION
  148. BY
  149. echo
  150. FUNCTION
  151. 3
  152. ENDFUNCTION
  153. DO
  154. WRITE
  155. x
  156. ENDWRITE
  157. ENDFOR
  158.