|
|
1.1 ! root 1: proc main ! 2: local 0,000000,write ! 3: con 0,010000,11,110,145,154,154,157,040,167,157,162,154,144 ! 4: con 1,010000,13,046,166,145,162,163,151,157,156,040,151,163,040,047 ! 5: con 2,010000,1,047 ! 6: con 3,010000,10,046,150,157,163,164,040,151,163,040,047 ! 7: con 4,010000,13,046,157,160,164,151,157,156,163,040,151,163,040,047 ! 8: con 5,010000,14,046,144,141,164,145,154,151,156,145,040,151,163,040,047 ! 9: con 6,010000,11,046,143,154,157,143,153,040,151,163,040,047 ! 10: declend ! 11: file hello.icn ! 12: line 8 ! 13: mark L1 ! 14: var 0 ! 15: str 0 ! 16: line 9 ! 17: invoke 1 ! 18: unmark 1 ! 19: lab L1 ! 20: mark L2 ! 21: var 0 ! 22: str 1 ! 23: line 10 ! 24: keywd 22 ! 25: str 2 ! 26: invoke 3 ! 27: unmark 1 ! 28: lab L2 ! 29: mark L3 ! 30: var 0 ! 31: str 3 ! 32: line 11 ! 33: keywd 8 ! 34: str 2 ! 35: invoke 3 ! 36: unmark 1 ! 37: lab L3 ! 38: mark L4 ! 39: var 0 ! 40: str 4 ! 41: line 12 ! 42: keywd 23 ! 43: str 2 ! 44: invoke 3 ! 45: unmark 1 ! 46: lab L4 ! 47: mark L5 ! 48: var 0 ! 49: str 5 ! 50: line 13 ! 51: keywd 5 ! 52: str 2 ! 53: invoke 3 ! 54: unmark 1 ! 55: lab L5 ! 56: mark L6 ! 57: var 0 ! 58: str 6 ! 59: line 14 ! 60: keywd 2 ! 61: str 2 ! 62: invoke 3 ! 63: unmark 1 ! 64: lab L6 ! 65: pnull ! 66: line 15 ! 67: pfail ! 68: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.