home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / BIPL.ZIP / IDOL.ZIP / MULTITST.IOL < prev    next >
Encoding:
Text File  |  1991-12-30  |  562 b   |  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.