|
|
1.1 root 1: # GENER(2)
2: #
3: # Generators
4: #
5: # Ralph E. Griswold
6: #
7: # Last modified 7/27/83
8: #
9:
10: procedure star(s)
11: suspend "" | (star(s) || !s)
12: end
13:
14: procedure octal()
15: suspend (0 to 3) || (0 to 7) || (0 to 7)
16: end
17:
18: procedure hex()
19: suspend !"0123456789abcdef" || !"0123456789abcdef"
20: end
21:
22: procedure label(s,i)
23: suspend s || i
24: suspend s || (i +:= |1)
25: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.