|
|
1.1 root 1: procedure gensubstr(s)
2: local i
3: suspend s[(i := 1 to *s):((i + 1) to (*s + 1))]
4: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.