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 >
Wrap
Text File
|
2000-07-29
|
535b
|
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