home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / historic / v92.tgz / v92.tar / v92 / src / runtime / foobar.icn < prev    next >
Text File  |  1996-03-22  |  101b  |  7 lines
  1. procedure main()
  2.    &window := open("foo","g")
  3.    Bg("blue")
  4.    EraseArea(10,10,100,100)
  5. Event()
  6. end
  7.