home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
icon
/
dos
/
src
/
tests
/
gc1.icn
< prev
next >
Wrap
Text File
|
1992-02-09
|
300b
|
16 lines
procedure main()
every 1 to 100 do {
write(&collections)
every 1 to 100 do
list(1000)
}
write("collecting ...")
collect()
every s := repl("x",1 to 1000) do {
cset(string(&lcase))
t := table()
set([s])
s[2 : 5]
}
end