|
|
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.