![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to std49.icn CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / contrib / icon / test|
Return to std49.icn CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / icon / test |
1.1 root 1: record array(a,b,c,d,e,f,g)
2:
3: procedure dummy(u,v,x,y,z)
4: suspend u | v
5: return x
6: end
7:
8: procedure main()
9: write("e := create 1 to 10 ----> ",image(e := create 1 to 10) | "none")
10: write("@e ----> ",image(@e) | "none")
11: write("@e ----> ",image(@e) | "none")
12: write("@e ----> ",image(@e) | "none")
13: write("e := ^e ----> ",image(e := ^e) | "none")
14: write("@e ----> ",image(@e) | "none")
15: write("@e ----> ",image(@e) | "none")
16: write("@e ----> ",image(@e) | "none")
17: write("@e ----> ",image(@e) | "none")
18: write("@e ----> ",image(@e) | "none")
19: write("@e ----> ",image(@e) | "none")
20: write("@e ----> ",image(@e) | "none")
21: write("@e ----> ",image(@e) | "none")
22: write("@e ----> ",image(@e) | "none")
23: write("@e ----> ",image(@e) | "none")
24: write("@e ----> ",image(@e) | "none")
25: write("@e ----> ",image(@e) | "none")
26: write("@e ----> ",image(@e) | "none")
27: write("@e ----> ",image(@e) | "none")
28: write("*e ----> ",image(*e) | "none")
29: write("*e ----> ",image(*e) | "none")
30: write("image(e) ----> ",image(image(e)) | "none")
31: write("e || e ----> ",image(e || e) | "none")
32: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.