|
|
1.1 root 1: procedure main()
2: if not (intext := open("shaw.txt"))
3: then stop("cannot open input file")
4: while write(read(intext))
5: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.