|
|
1.1 root 1: # This program tests the "basis" of the Icon system: iconx/start.s,
2: # rt/setbound.s, lib/invoke.s, iconx/interp.s, lib/efail.s, and
3: # lib/pfail.s
4:
5: procedure main()
6: case "b" of {
7: default: write("no choice")
8: }
9: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.