home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / historic / v941.tgz / icon.v941src.tar / icon.v941src / ipl / packs / idol / consttst.iol < prev    next >
Text File  |  2000-07-29  |  156b  |  13 lines
  1. const foo := 1
  2. global barfoo
  3. procedure baz()
  4.   barfoo := "OK"
  5. end
  6. procedure main()
  7.   baz()
  8.   bar1 := "gag!"
  9.   write(foo)
  10.   write(barfoo)
  11.   write("foo")
  12. end
  13.