home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
icon
/
dos
/
src
/
tests
/
transmit.icn
< prev
next >
Wrap
Text File
|
1992-02-09
|
576b
|
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