proc Anchor con 0,010000,0 filen [-.source]patterns.icn declend line 12 mark L1 mark0 str 0 line 13 psusp efail unmark lab L1 pnull line 14 pfail end proc Any local 0,001000,s local 1,000000,tab local 2,000000,any filen [-.source]patterns.icn declend line 16 mark L1 mark0 var 1 var 2 var 0 line 17 invoke 1 invoke 1 psusp efail unmark lab L1 pnull line 18 pfail end proc Apply local 0,001000,s local 1,001000,p local 2,000020,tsubject local 3,000020,tpos local 4,000020,value local 5,000000,Float local 6,000000,Arb local 7,000000,Mode con 0,002000,1 filen [-.source]patterns.icn declend line 20 init L1 mark L1 mark L2 pnull var 5 var 6 line 23 asgn unmark lab L2 pnull pnull var 7 line 24 null var 5 asgn unmark lab L1 mark L3 mark0 pnull var 2 line 27 keywd 18 asgn pop pnull var 3 line 28 keywd 15 asgn pop pnull line 29 keywd 18 var 0 rasgn pop pnull line 30 keywd 15 int 0 rasgn pop var 7 pnull line 31 invoke 1 pop pnull var 4 var 1 pnull invoke 1 asgn pop pnull line 32 keywd 15 var 3 rasgn pop pnull line 33 keywd 18 var 2 rasgn pop pnull line 34 keywd 15 var 3 rasgn pop var 4 line 26 psusp efail unmark lab L3 pnull line 37 pfail end proc Arb local 0,000000,tab con 0,002000,1 filen [-.source]patterns.icn declend line 39 mark L1 mark0 var 0 pnull line 40 keywd 15 pnull pnull keywd 18 size int 0 plus push1 toby invoke 1 psusp efail unmark lab L1 pnull line 41 pfail end proc Arbno local 0,001000,p local 1,000000,Arbno con 0,010000,0 filen [-.source]patterns.icn declend line 43 mark L1 mark0 mark L2 str 0 esusp goto L3 lab L2 pnull var 0 pnull line 44 invoke 1 var 1 var 0 invoke 1 cat lab L3 psusp efail unmark lab L1 pnull line 45 pfail end proc Arbx local 0,001000,i local 1,000000,tab con 0,002000,1 filen [-.source]patterns.icn declend line 47 mark L1 mark0 var 1 pnull line 48 keywd 15 pnull pnull keywd 18 size int 0 plus var 0 toby invoke 1 psusp efail unmark lab L1 pnull line 49 pfail end proc Bal local 0,000000,Bbal local 1,000000,Arbno filen [-.source]patterns.icn declend line 51 mark L1 mark0 pnull var 0 pnull line 52 invoke 1 var 1 var 0 invoke 1 cat psusp efail unmark lab L1 pnull line 53 pfail end proc Bbal local 0,000000,Arbno local 1,000000,Bbal local 2,000000,Notany con 0,010000,1,050 con 1,010000,1,051 con 2,010000,2,050,051 filen [-.source]patterns.icn declend line 55 mark L1 mark0 mark L2 pnull pnull pnull str 0 line 56 tabmat var 0 var 1 invoke 1 cat pnull str 1 tabmat cat esusp goto L3 lab L2 var 2 str 2 invoke 1 lab L3 psusp efail unmark lab L1 pnull line 57 pfail end proc Break local 0,001000,s local 1,000000,tab local 2,000000,upto con 0,002000,1 filen [-.source]patterns.icn declend line 59 mark L1 mark0 var 1 int 0 line 60 limit var 2 var 0 invoke 1 lsusp invoke 1 psusp efail unmark lab L1 pnull line 61 pfail end proc Breakx local 0,001000,s local 1,000000,tab local 2,000000,upto filen [-.source]patterns.icn declend line 63 mark L1 mark0 var 1 var 2 var 0 line 64 invoke 1 invoke 1 psusp efail unmark lab L1 pnull line 65 pfail end proc Cat local 0,001000,p1 local 1,001000,p2 filen [-.source]patterns.icn declend line 67 mark L1 mark0 pnull var 0 pnull line 68 invoke 1 var 1 pnull invoke 1 cat psusp efail unmark lab L1 pnull line 69 pfail end proc Discard local 0,001000,p con 0,010000,0 filen [-.source]patterns.icn declend line 71 mark L1 mark0 var 0 pnull line 72 invoke 1 pop str 0 psusp efail unmark lab L1 pnull line 73 pfail end proc Exog local 0,001000,s filen [-.source]patterns.icn declend line 75 mark L1 mark0 var 0 line 76 psusp efail unmark lab L1 pnull line 77 pfail end proc Find local 0,001000,s local 1,000000,tab local 2,000000,find con 0,002000,1 filen [-.source]patterns.icn declend line 79 mark L1 mark0 var 1 pnull var 2 var 0 line 80 invoke 1 int 0 plus invoke 1 psusp efail unmark lab L1 pnull line 81 pfail end proc Len local 0,001000,i local 1,000000,move filen [-.source]patterns.icn declend line 83 mark L1 mark0 var 1 var 0 line 84 invoke 1 psusp efail unmark lab L1 pnull line 85 pfail end proc Limit local 0,001000,p local 1,001000,i local 2,000020,j filen [-.source]patterns.icn declend line 87 mark L1 pnull var 2 line 89 keywd 15 asgn unmark lab L1 mark L2 mark0 var 1 line 90 limit var 0 pnull invoke 1 lsusp psusp efail unmark lab L2 mark L3 pnull line 91 keywd 15 var 2 asgn unmark lab L3 pnull line 92 pfail end proc Locate local 0,001000,p local 1,000000,tab con 0,002000,1 filen [-.source]patterns.icn declend line 94 mark L1 mark0 var 1 pnull line 95 keywd 15 pnull pnull keywd 18 size int 0 plus push1 toby invoke 1 pop var 0 pnull invoke 1 psusp efail unmark lab L1 pnull line 96 pfail end proc Marb local 0,000000,tab con 0,002000,1 filen [-.source]patterns.icn declend line 98 mark L1 mark0 var 0 pnull pnull pnull line 99 keywd 18 size int 0 plus keywd 15 pnull int 0 neg toby invoke 1 psusp efail unmark lab L1 pnull line 100 pfail end proc Notany local 0,001000,s local 1,000000,tab local 2,000000,any filen [-.source]patterns.icn declend line 102 mark L1 mark0 var 1 var 2 pnull var 0 line 103 compl invoke 1 invoke 1 psusp efail unmark lab L1 pnull line 104 pfail end proc Pos local 0,001000,i local 1,000000,pos con 0,002000,1 con 1,010000,0 filen [-.source]patterns.icn declend line 106 mark L1 mark0 var 1 pnull var 0 int 0 line 107 plus invoke 1 pop str 1 psusp efail unmark lab L1 pnull line 108 pfail end proc Replace local 0,001000,p local 1,001000,s filen [-.source]patterns.icn declend line 110 mark L1 mark0 var 0 pnull line 111 invoke 1 pop var 1 psusp efail unmark lab L1 pnull line 112 pfail end proc Rpos local 0,001000,i local 1,000000,pos con 0,010000,0 filen [-.source]patterns.icn declend line 114 mark L1 mark0 var 1 pnull var 0 line 115 neg invoke 1 pop str 0 psusp efail unmark lab L1 pnull line 116 pfail end proc Rtab local 0,001000,i local 1,000000,tab filen [-.source]patterns.icn declend line 118 mark L1 mark0 var 1 pnull var 0 line 119 neg invoke 1 psusp efail unmark lab L1 pnull line 120 pfail end proc Span local 0,001000,s local 1,000000,tab local 2,000000,many filen [-.source]patterns.icn declend line 122 mark L1 mark0 var 1 var 2 var 0 line 123 invoke 1 invoke 1 psusp efail unmark lab L1 pnull line 124 pfail end proc String local 0,001000,s filen [-.source]patterns.icn declend line 126 mark L1 mark0 pnull var 0 line 127 tabmat psusp efail unmark lab L1 pnull line 128 pfail end proc Succeed con 0,010000,0 filen [-.source]patterns.icn declend line 130 mark L1 mark0 lab L2 mark0 str 0 chfail L2 esusp line 131 psusp efail unmark lab L1 pnull line 132 pfail end proc Tab local 0,001000,i local 1,000000,tab con 0,002000,1 filen [-.source]patterns.icn declend line 134 mark L1 mark0 var 1 pnull var 0 int 0 line 135 plus invoke 1 psusp efail unmark lab L1 pnull line 136 pfail end proc Xform local 0,001000,f local 1,001000,p filen [-.source]patterns.icn declend line 138 mark L1 mark0 var 0 var 1 pnull line 139 invoke 1 invoke 1 psusp efail unmark lab L1 pnull line 140 pfail end