|
|
Initial revision
procedure main()
local line
defs := table()
while line := read() do
(define | generate | diagnose)(line)
end
procedure diagnose(s)
write("**** erroneous input: ",s)
return
end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.