|
|
1.1 root 1: procedure main()
2: local line
3: defs := table()
4: while line := read() do
5: (define | generate | diagnose)(line)
6: end
7:
8: procedure diagnose(s)
9: write("**** erroneous input: ",s)
10: return
11: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.