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