|
|
1.1 root 1: procedure main()
2: wlist := words()
3: while word := get(wlist) do
4: if any(&ucase,word) then write(word)
5: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.