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 / proc2.out.bak < prev    next >
Text File  |  2005-10-24  |  261b  |  53 lines
  1. f
  2. x
  3. integer
  4. FORMAL
  5. PROCEDURE
  6. WRITE
  7. "f "
  8. x
  9. ENDWRITE
  10. IF
  11. x
  12. 0
  13. EQUAL
  14. THEN
  15. RETURN
  16. ENDRETURN
  17. ELSE
  18. g
  19. CALL
  20. x
  21. 1
  22. MINUS
  23. ENDCALL
  24. ENDIF
  25. g
  26. x
  27. integer
  28. FORMAL
  29. PROCEDURE
  30. WRITE
  31. "g "
  32. x
  33. ENDWRITE
  34. IF
  35. x
  36. 0
  37. EQUAL
  38. THEN
  39. RETURN
  40. ENDRETURN
  41. ELSE
  42. f
  43. CALL
  44. x
  45. 1
  46. MINUS
  47. ENDCALL
  48. ENDIF
  49. f
  50. CALL
  51. 5
  52. ENDCALL
  53.