|
|
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: write(1) ! 7: write("abc") ! 8: write('abc') ! 9: write(image("abc")) ! 10: write(image('abc')) ! 11: write(type([])) ! 12: write("abc"[2]) ! 13: write("abc"[1:2]) ! 14: x := [1,2,3] ! 15: write(x[2]) ! 16: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.