![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to diffwords.u1 CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / contrib / icon / samples|
Return to diffwords.u1 CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / icon / samples |
1.1 root 1: proc main
2: local 0,000000,letter
3: local 1,000000,words
4: local 2,000000,set
5: local 3,000000,text
6: local 4,000000,read
7: local 5,000000,tab
8: local 6,000000,upto
9: local 7,000000,insert
10: local 8,000000,many
11: local 9,000000,write
12: local 10,000000,sort
13: declend
14: file diffwords.icn
15: line 8
16: mark L1
17: pnull
18: var 0
19: pnull
20: line 9
21: keywd 10
22: keywd 21
23: unioncs
24: asgn
25: unmark 1
26: lab L1
27: mark L2
28: pnull
29: var 1
30: var 2
31: pnull
32: line 10
33: llist 0
34: invoke 1
35: asgn
36: unmark 1
37: lab L2
38: mark L3
39: lab L4
40: line 11
41: mark L0
42: pnull
43: var 3
44: var 4
45: pnull
46: invoke 1
47: asgn
48: unmark 1
49: mark L4
50: var 3
51: line 12
52: bscan
53: lab L7
54: line 12
55: mark L0
56: var 5
57: var 6
58: var 0
59: invoke 1
60: invoke 1
61: unmark 1
62: mark L7
63: var 7
64: var 1
65: var 5
66: var 8
67: var 0
68: line 13
69: invoke 1
70: invoke 1
71: invoke 2
72: lab L8
73: unmark 1
74: goto L7
75: lab L9
76: line 12
77: escan
78: lab L5
79: unmark 1
80: goto L4
81: lab L6
82: unmark 1
83: lab L3
84: mark L10
85: mark L0
86: var 9
87: pnull
88: var 10
89: var 1
90: line 14
91: invoke 1
92: bang
93: invoke 1
94: pop
95: lab L11
96: efail
97: lab L12
98: unmark 1
99: lab L10
100: pnull
101: line 15
102: pfail
103: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.