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