|
|
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.