![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to recogn.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 recogn.u1 CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / icon / samples |
1.1 root 1: proc main
2: local 0,000020,line
3: local 1,000000,read
4: local 2,000000,recogn
5: local 3,000000,s
6: local 4,000000,write
7: con 0,010000,8,141,143,143,145,160,164,145,144
8: con 1,010000,8,162,145,152,145,143,164,145,144
9: declend
10: file recogn.icn
11: line 8
12: mark L1
13: lab L2
14: line 10
15: mark L0
16: pnull
17: var 0
18: var 1
19: pnull
20: invoke 1
21: asgn
22: unmark 1
23: mark L2
24: mark L5
25: var 2
26: var 3
27: var 0
28: line 11
29: invoke 2
30: unmark 1
31: var 4
32: str 0
33: invoke 1
34: goto L6
35: lab L5
36: var 4
37: str 1
38: invoke 1
39: lab L6
40: lab L3
41: unmark 1
42: goto L2
43: lab L4
44: unmark 1
45: lab L1
46: pnull
47: line 12
48: pfail
49: end
50: proc recogn
51: local 0,001000,goal
52: local 1,001000,text
53: local 2,000000,pos
54: con 0,002000,0
55: declend
56: file recogn.icn
57: line 14
58: mark L1
59: mark L2
60: var 1
61: line 15
62: bscan
63: var 0
64: pnull
65: invoke 1
66: pop
67: var 2
68: int 0
69: invoke 1
70: escan
71: pret
72: lab L2
73: line 15
74: pfail
75: unmark 1
76: lab L1
77: pnull
78: line 16
79: pfail
80: end
81: proc s
82: local 0,000000,s
83: local 1,000000,t
84: con 0,010000,1,141
85: con 1,010000,1,142
86: con 2,010000,1,143
87: declend
88: file recogn.icn
89: line 20
90: mark L1
91: mark L0
92: mark L2
93: pnull
94: pnull
95: str 0
96: line 21
97: tabmat
98: var 0
99: pnull
100: invoke 1
101: cat
102: esusp
103: goto L3
104: lab L2
105: mark L4
106: pnull
107: var 1
108: pnull
109: invoke 1
110: pnull
111: str 1
112: tabmat
113: cat
114: esusp
115: goto L5
116: lab L4
117: pnull
118: str 2
119: tabmat
120: lab L5
121: lab L3
122: psusp
123: efail
124: unmark 1
125: lab L1
126: pnull
127: line 22
128: pfail
129: end
130: proc t
131: local 0,000000,s
132: con 0,010000,1,144
133: con 1,010000,1,145
134: con 2,010000,1,146
135: declend
136: file recogn.icn
137: line 26
138: mark L1
139: mark L0
140: mark L2
141: pnull
142: pnull
143: pnull
144: str 0
145: line 27
146: tabmat
147: var 0
148: pnull
149: invoke 1
150: cat
151: pnull
152: str 0
153: tabmat
154: cat
155: esusp
156: goto L3
157: lab L2
158: mark L4
159: pnull
160: str 1
161: tabmat
162: esusp
163: goto L5
164: lab L4
165: pnull
166: str 2
167: tabmat
168: lab L5
169: lab L3
170: psusp
171: efail
172: unmark 1
173: lab L1
174: pnull
175: line 28
176: pfail
177: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.