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 / multitst.iol < prev    next >
Text File  |  2000-07-29  |  535b  |  28 lines
  1. class multitst( a, b, c, d, e,
  2.         f, g, h
  3.         , i, j, k)
  4.   method writemsg(x,y,z)
  5.     write(x,y,z)
  6.   end
  7.   method write( plus,
  8.            other
  9.            ,stuff)
  10.     every write(image(!self))
  11.     write(plus,other,stuff)
  12.   end
  13. initially
  14.   self$writemsg(
  15.          "this ",
  16.          "is ","not the")
  17.   self$writemsg
  18.     ("this is a","classical Icon-style bug","and it isn't printed")
  19.   self$writemsg("this ",
  20.          "is ","almost the")
  21.   self$writemsg()
  22.   self$write("end","of","test")
  23. end
  24.  
  25. procedure main()
  26.   multitst("hi","there","this",,"is",1,"test")
  27. end
  28.