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
/
tests
/
general
/
transmit.icn
< prev
next >
Wrap
Text File
|
2000-07-29
|
547b
|
30 lines
global words, lines, writer
procedure main()
if not(&features == "co-expressions") then
stop("co-expressions not supported")
&trace := -1
words := create word()
lines := create reader()
writer := create output()
@writer
end
procedure word()
static letters
initial letters := &lcase ++ &ucase
while line := @lines do
line ? while tab(upto(letters)) do
tab(many(letters)) @ writer
end
procedure reader()
while read() @ words
end
procedure output()
while write(&errout,@words)
@&main
end