proc Alt local 0,001000,a local 1,000020,x con 0,002000,1 con 1,002000,2 filen [-.source]pdco.icn declend line 10 mark L1 lab L2 line 12 mark0 pnull var 1 pnull pnull var 0 int 0 subsc coact asgn unmark mark L2 mark0 var 1 psusp efail lab L3 unmark goto L2 lab L4 unmark lab L1 mark L5 lab L6 line 13 mark0 pnull var 1 pnull pnull var 0 int 1 subsc coact asgn unmark mark L6 mark0 var 1 psusp efail lab L7 unmark goto L6 lab L8 unmark lab L5 pnull line 14 pfail end proc Colseq local 0,001000,a filen [-.source]pdco.icn declend line 16 mark L1 mark0 lab L2 mark0 pnull pnull var 0 line 17 bang coact chfail L2 esusp psusp efail unmark lab L1 pnull line 18 pfail end proc Comseq local 0,001000,a local 1,000020,x1 local 2,000020,x2 con 0,002000,1 con 1,002000,2 filen [-.source]pdco.icn declend line 20 mark L1 lab L2 line 22 mark0 pnull var 1 pnull pnull var 0 int 0 subsc coact asgn unmark mark L2 mark L5 pnull var 1 pnull pnull var 0 int 1 line 23 subsc coact eqv esusp goto L6 lab L5 line 23 pfail lab L6 lab L3 unmark goto L2 lab L4 unmark lab L1 mark L7 mark L8 pnull pnull var 0 int 1 line 24 subsc coact unmark line 24 pfail goto L9 lab L8 mark L10 pnull pnull var 0 int 0 subsc size pret lab L10 line 24 pfail lab L9 unmark lab L7 pnull line 25 pfail end proc Cond local 0,001000,a local 1,000020,i local 2,000020,x con 0,002000,1 filen [-.source]pdco.icn declend line 27 mark L1 mark0 pnull var 1 pnull int 0 pnull var 0 line 29 size push1 toby asgn pop mark0 mark0 pnull var 2 pnull pnull var 0 var 1 line 30 subsc coact asgn unmark mark L4 mark0 var 2 line 31 psusp efail unmark lab L4 mark L5 mark0 lab L6 mark0 pnull pnull var 0 var 1 line 32 subsc coact chfail L6 esusp psusp efail unmark lab L5 line 33 pfail unmark lab L2 efail lab L3 unmark lab L1 pnull line 35 pfail end proc Every local 0,001000,a con 0,002000,1 con 1,002000,2 filen [-.source]pdco.icn declend line 37 mark L1 lab L2 line 38 mark0 pnull pnull var 0 int 0 subsc coact unmark mark L2 pnull pnull pnull var 0 int 1 subsc refresh coact lab L3 unmark goto L2 lab L4 unmark lab L1 pnull line 39 pfail end proc Galt local 0,001000,a local 1,000020,e filen [-.source]pdco.icn declend line 41 mark L1 mark0 pnull var 1 pnull var 0 line 43 bang asgn pop mark0 mark0 lab L4 mark0 pnull var 1 coact chfail L4 esusp psusp efail unmark lab L2 efail lab L3 unmark lab L1 pnull line 44 pfail end proc Lcond local 0,001000,a local 1,000020,i con 0,002000,1 con 1,002000,2 filen [-.source]pdco.icn declend line 46 mark L1 mark0 pnull var 1 pnull int 0 pnull var 0 line 48 size int 1 toby asgn pop mark0 mark0 pnull pnull var 0 var 1 line 49 subsc coact unmark mark L4 mark0 lab L5 mark0 pnull pnull var 0 pnull var 1 int 0 line 50 plus subsc coact chfail L5 esusp psusp efail unmark lab L4 line 51 pfail unmark lab L2 efail lab L3 unmark lab L1 pnull line 53 pfail end proc Limit local 0,001000,a local 1,000020,i local 2,000020,x con 0,002000,2 con 1,002000,1 filen [-.source]pdco.icn declend line 55 mark L1 lab L2 line 57 mark0 pnull var 1 pnull pnull var 0 int 0 subsc coact asgn unmark mark L2 mark L5 pnull pnull var 0 int 1 line 58 subsc pnull pnull var 0 int 1 subsc refresh asgn unmark lab L5 mark0 pnull int 1 var 1 push1 line 59 toby pop mark0 mark L8 pnull var 2 pnull pnull var 0 int 1 line 60 subsc coact asgn unmark mark0 var 2 psusp efail goto L9 lab L8 unmark unmark pnull goto L7 lab L9 unmark lab L6 efail lab L7 lab L3 unmark goto L2 lab L4 unmark lab L1 pnull line 63 pfail end proc Ranseq local 0,001000,a local 1,000020,x filen [-.source]pdco.icn declend line 65 mark L1 lab L2 line 67 mark0 pnull var 1 pnull pnull var 0 random coact asgn unmark mark L2 mark0 var 1 psusp efail lab L3 unmark goto L2 lab L4 unmark lab L1 pnull line 68 pfail end proc Repalt local 0,001000,a local 1,000020,x con 0,002000,1 con 1,002000,0 filen [-.source]pdco.icn declend line 70 mark L1 lab L2 line 72 mark L2 mark L5 lab L6 line 73 mark0 pnull var 1 pnull pnull var 0 int 0 subsc coact asgn unmark mark L6 mark0 var 1 psusp efail lab L7 unmark goto L6 lab L8 unmark lab L5 mark L9 pnull pnull pnull var 0 int 0 line 74 subsc size int 1 numeq unmark line 74 pfail goto L10 lab L9 pnull pnull var 0 int 0 line 75 subsc pnull pnull var 0 int 0 subsc refresh asgn lab L10 lab L3 unmark goto L2 lab L4 unmark lab L1 pnull line 77 pfail end proc Resume local 0,001000,a local 1,000020,i con 0,002000,2 con 1,002000,1 con 2,002000,3 filen [-.source]pdco.icn declend line 79 mark L1 lab L2 line 81 mark0 pnull var 1 pnull pnull var 0 int 0 subsc coact asgn unmark mark L2 mark L5 pnull pnull var 0 int 1 line 82 subsc pnull pnull var 0 int 1 subsc refresh asgn unmark lab L5 mark0 pnull int 1 var 1 push1 line 83 toby pop mark0 mark L8 pnull pnull var 0 int 1 subsc coact unmark pnull pnull pnull var 0 int 2 subsc refresh coact goto L9 lab L8 unmark unmark pnull goto L7 lab L9 unmark lab L6 efail lab L7 lab L3 unmark goto L2 lab L4 unmark lab L1 pnull line 85 pfail end proc Select local 0,001000,a local 1,000020,i local 2,000020,j local 3,000020,x local 4,000000,stop con 0,002000,0 con 1,002000,2 con 2,002000,1 con 3,010000,24,163,145,154,145,143,164,151,157,156,040,163,145,161,165,145,156,143,145,040,145,162,162,157,162 filen [-.source]pdco.icn declend line 87 mark L1 pnull var 2 int 0 line 89 asgn unmark lab L1 mark L2 lab L3 line 90 mark0 pnull var 1 pnull pnull var 0 int 1 subsc coact asgn unmark mark L3 mark L6 lab L7 line 91 mark0 pnull var 2 var 1 numlt unmark mark L7 mark L10 pnull var 3 pnull pnull var 0 int 2 line 92 subsc coact asgn unmark pnull var 2 dup int 2 plus asgn goto L11 lab L10 line 93 pfail lab L11 lab L8 unmark goto L7 lab L9 unmark lab L6 mark L12 pnull var 1 var 2 line 94 numeq unmark mark0 var 3 psusp efail goto L13 lab L12 var 4 str 3 line 95 invoke 1 lab L13 lab L4 unmark goto L3 lab L5 unmark lab L2 pnull line 97 pfail end