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 / records1.out.bak < prev    next >
Text File  |  2005-10-24  |  176b  |  39 lines
  1. Pair
  2. i
  3. integer
  4. r
  5. real
  6. TYPE
  7. c
  8. Pair
  9. Pair
  10. r
  11. 0.0
  12. i
  13. 0
  14. VAR
  15. print
  16. PROCEDURE
  17. WRITE
  18. "    ("
  19. c
  20. r
  21. ", "
  22. c
  23. i
  24. ")"
  25. ENDWRITE
  26. c
  27. r
  28. ASSIGN
  29. 2.3
  30. ENDASSIGN
  31. c
  32. i
  33. ASSIGN
  34. 1
  35. ENDASSIGN
  36. print
  37. CALL
  38. ENDCALL
  39.