proc Image local 0,001000,x local 1,001000,done local 2,000000,table local 3,000000,match local 4,000000,image local 5,000000,rimage local 6,000000,type local 7,000000,limage local 8,000000,timage local 9,000000,simage con 0,010000,7,162,145,143,157,162,144,040 con 1,010000,4,154,151,163,164 con 2,010000,5,164,141,142,154,145 con 3,010000,3,163,145,164 filen [-.source]image.icn declend line 10 mark L1 pnull pnull var 1 line 11 null var 2 pnull invoke 1 asgn unmark lab L1 mark L2 mark L3 var 3 str 0 var 4 var 0 line 12 invoke 1 invoke 2 unmark mark L5 var 5 var 0 var 1 invoke 2 pret lab L5 line 12 pfail goto L4 lab L3 mark L6 mark0 var 6 var 0 line 13 invoke 1 eret mark L8 ccase str 1 line 14 eqv unmark pop var 7 var 0 var 1 invoke 2 goto L7 lab L8 mark L9 ccase str 2 line 15 eqv unmark pop var 8 var 0 var 1 invoke 2 goto L7 lab L9 mark L10 ccase str 3 line 16 eqv unmark pop var 9 var 0 var 1 invoke 2 goto L7 lab L10 pop var 4 var 0 line 17 invoke 1 lab L7 line 13 pret lab L6 line 13 pfail lab L4 unmark lab L2 pnull line 19 pfail end proc limage local 0,001000,a local 1,001000,done local 2,000040,i local 3,000020,s local 4,000020,tag local 5,000000,Image con 0,002000,0 con 1,010000,1,114 con 2,002000,1 con 3,010000,3,072,133,135 con 4,010000,2,072,133 con 5,010000,1,054 con 6,010000,1,135 filen [-.source]image.icn declend line 23 init L1 mark L1 pnull var 2 int 0 line 26 asgn unmark lab L1 mark L2 mark0 pnull pnull var 1 var 0 line 27 subsc nonnull unmark mark L3 pnull var 1 var 0 subsc pret lab L3 line 27 pfail unmark lab L2 mark L4 pnull pnull var 1 var 0 line 28 subsc pnull var 4 pnull str 1 pnull var 2 dup int 2 plus asgn cat asgn asgn unmark lab L4 mark L5 mark L6 pnull pnull var 0 line 29 size int 0 numeq unmark pnull var 3 pnull var 4 str 3 cat asgn goto L7 lab L6 mark L8 pnull var 3 pnull var 4 str 4 line 30 cat asgn unmark lab L8 mark L9 mark0 pnull var 3 dup pnull var 5 pnull var 0 line 31 bang var 1 invoke 2 str 5 cat cat asgn pop lab L10 efail lab L11 unmark lab L9 pnull pnull var 3 pnull int 2 line 32 neg subsc str 6 asgn lab L7 unmark lab L5 mark L12 mark L13 var 3 line 34 pret lab L13 line 34 pfail unmark lab L12 pnull line 35 pfail end proc rimage local 0,001000,x local 1,001000,done local 2,000040,i local 3,000020,s local 4,000020,tag local 5,000000,image local 6,000000,match local 7,000000,tab local 8,000000,upto local 9,000000,Image con 0,002000,0 con 1,010000,19,162,145,143,157,162,144,040,143,157,156,163,164,162,165,143,164,157,162,040 con 2,010000,1,122 con 3,002000,1 con 4,010000,7,162,145,143,157,162,144,040 con 5,010000,1,072 con 6,020000,1,050 con 7,010000,1,051 con 8,010000,1,054 filen [-.source]image.icn declend line 39 init L1 mark L1 pnull var 2 int 0 line 42 asgn unmark lab L1 mark L2 pnull var 3 var 5 var 0 line 43 invoke 1 asgn unmark lab L2 mark L3 mark0 var 6 str 1 var 3 line 45 invoke 2 unmark mark L4 var 3 pret lab L4 line 45 pfail unmark lab L3 mark L5 mark0 pnull pnull var 1 var 0 line 46 subsc nonnull unmark mark L6 pnull var 1 var 0 subsc pret lab L6 line 46 pfail unmark lab L5 mark L7 pnull pnull var 1 var 0 line 47 subsc pnull var 4 pnull str 2 pnull var 2 dup int 3 plus asgn cat asgn asgn unmark lab L7 mark L8 pnull var 3 sdup line 48 bscan pnull str 4 tabmat pop pnull str 5 var 7 pnull var 8 cset 6 invoke 1 int 3 plus invoke 1 cat escan asgn unmark lab L8 mark L9 mark L10 pnull pnull var 0 line 49 size int 0 numeq unmark pnull var 3 pnull pnull var 4 var 3 cat str 7 cat asgn goto L11 lab L10 mark L12 pnull var 3 pnull var 4 var 3 line 50 cat asgn unmark lab L12 mark L13 mark0 pnull var 3 dup pnull var 9 pnull var 0 line 51 bang var 1 invoke 2 str 8 cat cat asgn pop lab L14 efail lab L15 unmark lab L13 pnull pnull var 3 pnull int 3 line 52 neg subsc str 7 asgn lab L11 unmark lab L9 mark L16 mark L17 var 3 line 54 pret lab L17 line 54 pfail unmark lab L16 pnull line 55 pfail end proc simage local 0,001000,S local 1,001000,done local 2,000040,i local 3,000020,s local 4,000020,tag local 5,000000,Image con 0,002000,0 con 1,010000,1,123 con 2,002000,1 con 3,010000,3,072,133,135 con 4,010000,2,072,133 con 5,010000,1,054 con 6,010000,1,135 filen [-.source]image.icn declend line 59 init L1 mark L1 pnull var 2 int 0 line 62 asgn unmark lab L1 mark L2 mark0 pnull pnull var 1 var 0 line 63 subsc nonnull unmark mark L3 pnull var 1 var 0 subsc pret lab L3 line 63 pfail unmark lab L2 mark L4 pnull pnull var 1 var 0 line 64 subsc pnull var 4 pnull str 1 pnull var 2 dup int 2 plus asgn cat asgn asgn unmark lab L4 mark L5 mark L6 pnull pnull var 0 line 65 size int 0 numeq unmark pnull var 3 pnull var 4 str 3 cat asgn goto L7 lab L6 mark L8 pnull var 3 pnull var 4 str 4 line 66 cat asgn unmark lab L8 mark L9 mark0 pnull var 3 dup pnull var 5 pnull var 0 line 67 bang var 1 invoke 2 str 5 cat cat asgn pop lab L10 efail lab L11 unmark lab L9 pnull pnull var 3 pnull int 2 line 68 neg subsc str 6 asgn lab L7 unmark lab L5 mark L12 mark L13 var 3 line 70 pret lab L13 line 70 pfail unmark lab L12 pnull line 71 pfail end proc timage local 0,001000,t local 1,001000,done local 2,000040,i local 3,000020,s local 4,000020,tag local 5,000020,a local 6,000020,a1 local 7,000000,sort local 8,000000,Image local 9,000000,get con 0,002000,0 con 1,010000,1,124 con 2,002000,1 con 3,010000,3,072,133,135 con 4,002000,3 con 5,010000,2,072,133 con 6,010000,2,055,076 con 7,010000,1,054 con 8,010000,1,135 filen [-.source]image.icn declend line 75 init L1 mark L1 pnull var 2 int 0 line 78 asgn unmark lab L1 mark L2 mark0 pnull pnull var 1 var 0 line 79 subsc nonnull unmark mark L3 pnull var 1 var 0 subsc pret lab L3 line 79 pfail unmark lab L2 mark L4 pnull pnull var 1 var 0 line 80 subsc pnull var 4 pnull str 1 pnull var 2 dup int 2 plus asgn cat asgn asgn unmark lab L4 mark L5 mark L6 pnull pnull var 0 line 81 size int 0 numeq unmark pnull var 3 pnull var 4 str 3 cat asgn goto L7 lab L6 mark L8 pnull var 5 var 7 var 0 int 4 line 82 invoke 2 asgn unmark lab L8 mark L9 pnull var 3 pnull var 4 str 5 line 83 cat asgn unmark lab L9 mark L10 lab L11 line 84 mark0 pnull var 3 dup pnull pnull pnull var 8 var 9 var 5 invoke 1 var 1 invoke 2 str 6 cat var 8 var 9 var 5 invoke 1 var 1 invoke 2 cat str 7 cat cat asgn lab L12 unmark goto L11 lab L13 unmark lab L10 pnull pnull var 3 pnull int 2 line 85 neg subsc str 8 asgn lab L7 unmark lab L5 mark L14 mark L15 var 3 line 87 pret lab L15 line 87 pfail unmark lab L14 pnull line 88 pfail end