![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to seqimage.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 seqimage.u1 CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / icon / samples |
1.1 root 1: proc main
2: local 0,000000,write
3: local 1,000000,Seqimage
4: local 2,000000,main
5: local 3,000000,read
6: con 0,002000,1
7: con 1,002000,10
8: con 2,002000,2
9: con 3,010000,3,141,142,143
10: con 4,010000,2,170,171
11: declend
12: file seqimage.icn
13: line 8
14: mark L1
15: var 0
16: var 1
17: goto L4
18: lab L2
19: pop
20: mark L3
21: pnull
22: int 0
23: int 1
24: push1
25: line 9
26: toby
27: incres
28: coret
29: efail
30: lab L3
31: line 9
32: cofail
33: goto L3
34: lab L4
35: line 9
36: create L2
37: invoke 1
38: invoke 1
39: unmark 1
40: lab L1
41: mark L5
42: var 0
43: var 1
44: goto L8
45: lab L6
46: pop
47: mark L7
48: line 10
49: keywd 7
50: incres
51: coret
52: efail
53: lab L7
54: line 10
55: cofail
56: goto L7
57: lab L8
58: line 10
59: create L6
60: invoke 1
61: invoke 1
62: unmark 1
63: lab L5
64: mark L9
65: var 0
66: var 1
67: goto L12
68: lab L10
69: pop
70: mark L11
71: mark L13
72: pnull
73: int 0
74: int 1
75: int 2
76: line 11
77: toby
78: esusp
79: goto L14
80: lab L13
81: pnull
82: int 1
83: int 0
84: pnull
85: int 2
86: neg
87: toby
88: lab L14
89: incres
90: coret
91: efail
92: lab L11
93: line 11
94: cofail
95: goto L11
96: lab L12
97: line 11
98: create L10
99: invoke 1
100: invoke 1
101: unmark 1
102: lab L9
103: mark L15
104: var 0
105: var 1
106: goto L18
107: lab L16
108: pop
109: mark L17
110: pnull
111: pnull
112: str 3
113: line 12
114: bang
115: pnull
116: str 4
117: bang
118: cat
119: incres
120: coret
121: efail
122: lab L17
123: line 12
124: cofail
125: goto L17
126: lab L18
127: line 12
128: create L16
129: invoke 1
130: invoke 1
131: unmark 1
132: lab L15
133: mark L19
134: var 0
135: var 1
136: goto L22
137: lab L20
138: pop
139: mark L21
140: mark L23
141: var 1
142: esusp
143: goto L24
144: lab L23
145: var 2
146: lab L24
147: incres
148: line 13
149: coret
150: efail
151: lab L21
152: line 13
153: cofail
154: goto L21
155: lab L22
156: line 13
157: create L20
158: invoke 1
159: invoke 1
160: unmark 1
161: lab L19
162: mark L25
163: var 0
164: var 1
165: goto L28
166: lab L26
167: pop
168: mark L27
169: lab L29
170: mark L0
171: var 3
172: pnull
173: line 14
174: invoke 1
175: chfail L29
176: esusp
177: incres
178: coret
179: efail
180: lab L27
181: line 14
182: cofail
183: goto L27
184: lab L28
185: line 14
186: create L26
187: invoke 1
188: invoke 1
189: unmark 1
190: lab L25
191: pnull
192: line 15
193: pfail
194: end
195: proc Seqimage
196: local 0,001000,e
197: local 1,000020,s
198: local 2,000000,image
199: con 0,010000,0
200: con 1,010000,2,054,040
201: con 2,010000,1,173
202: con 3,002000,3
203: con 4,002000,0
204: con 5,010000,1,175
205: con 6,010000,2,173,175
206: declend
207: file seqimage.icn
208: line 17
209: mark L1
210: pnull
211: var 1
212: str 0
213: line 19
214: asgn
215: unmark 1
216: lab L1
217: mark L2
218: lab L3
219: line 20
220: mark L0
221: pnull
222: var 1
223: dup
224: pnull
225: str 1
226: var 2
227: pnull
228: var 0
229: coact
230: invoke 1
231: cat
232: cat
233: asgn
234: lab L4
235: unmark 1
236: goto L3
237: lab L5
238: unmark 1
239: lab L2
240: mark L6
241: mark L7
242: mark L8
243: pnull
244: pnull
245: str 2
246: pnull
247: var 1
248: int 3
249: int 4
250: line 21
251: sect
252: cat
253: str 5
254: cat
255: esusp
256: goto L9
257: lab L8
258: str 6
259: lab L9
260: pret
261: lab L7
262: line 21
263: pfail
264: unmark 1
265: lab L6
266: pnull
267: line 22
268: pfail
269: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.