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