home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
OL.LZH
/
IDOL.LZH
/
MULTITST.IOL
< prev
next >
Wrap
Text File
|
1991-07-18
|
562b
|
28 lines
class multitst( a, b, c, d, e,
f, g, h
, i, j, k)
method writemsg(x,y,z)
write(x,y,z)
end
method write( plus,
other
,stuff)
every write(image(!self))
write(plus,other,stuff)
end
initially
self$writemsg(
"this ",
"is ","not the")
self$writemsg
("this is a","classical Icon-style bug","and it isn't printed")
self$writemsg("this ",
"is ","almost the")
self$writemsg()
self$write("end","of","test")
end
procedure main()
multitst("hi","there","this",,"is",1,"test")
end