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