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 / stat5.out.bak < prev    next >
Text File  |  2005-10-24  |  144b  |  27 lines
  1. i
  2. integer
  3. 0
  4. VAR
  5. WRITE
  6. "a simple loop:"
  7. ENDWRITE
  8. LOOP
  9. WRITE
  10. "i = "
  11. i
  12. ENDWRITE
  13. i
  14. ASSIGN
  15. i
  16. 1
  17. PLUS
  18. ENDASSIGN
  19. IF
  20. i
  21. 5
  22. GREATER
  23. THEN
  24. EXIT
  25. ENDIF
  26. ENDLOOP
  27.