proc main local 0,000000,write local 1,000000,Galt local 2,000000,Seqimage local 3,000000,star local 4,000000,Limit local 5,000000,Ranseq con 0,002000,1 con 1,002000,10 con 2,010000,4,141,142,143,144 con 3,010000,3,141,142,143 con 4,002000,1000 con 5,002000,5 con 6,010000,3,055,055,055 con 7,002000,100 con 8,002000,3 con 9,010000,4,010,055,055,055 declend file pdco.icn line 9 mark L1 mark L0 var 0 var 1 pnull goto L6 lab L4 pop mark L5 pnull int 0 int 1 push1 line 10 toby incres coret efail lab L5 line 10 cofail goto L5 lab L6 line 10 create L4 goto L9 lab L7 pop mark L8 pnull str 2 bang incres coret efail lab L8 line 10 cofail goto L8 lab L9 line 10 create L7 goto L12 lab L10 pop mark L11 pnull int 0 int 1 push1 toby incres coret efail lab L11 line 10 cofail goto L11 lab L12 line 10 create L10 llist 3 invoke 1 invoke 1 pop lab L2 efail lab L3 unmark 1 lab L1 mark L13 var 0 var 2 pnull goto L16 lab L14 pop mark L15 int 1 line 11 limit mark L0 var 3 str 3 invoke 1 lsusp incres coret efail lab L15 line 11 cofail goto L15 lab L16 line 11 create L14 llist 1 invoke 1 invoke 1 unmark 1 lab L13 mark L17 var 0 var 2 pnull goto L20 lab L18 pop mark L19 pnull int 0 int 4 push1 line 12 toby incres coret efail lab L19 line 12 cofail goto L19 lab L20 line 12 create L18 goto L23 lab L21 pop mark L22 int 5 incres coret efail lab L22 line 12 cofail goto L22 lab L23 line 12 create L21 llist 2 invoke 1 invoke 1 unmark 1 lab L17 mark L24 var 0 str 6 line 13 invoke 1 unmark 1 lab L24 mark L25 mark L0 var 0 var 4 pnull goto L30 lab L28 pop mark L29 pnull int 0 int 7 push1 line 14 toby incres coret efail lab L29 line 14 cofail goto L29 lab L30 line 14 create L28 goto L33 lab L31 pop mark L32 int 8 incres coret efail lab L32 line 14 cofail goto L32 lab L33 line 14 create L31 llist 2 invoke 1 invoke 1 pop lab L26 efail lab L27 unmark 1 lab L25 mark L34 var 0 str 9 line 15 invoke 1 unmark 1 lab L34 mark L35 mark L0 var 0 var 5 pnull goto L40 lab L38 pop mark L39 pnull str 2 line 16 bang incres coret efail lab L39 line 16 cofail goto L39 lab L40 line 16 create L38 goto L43 lab L41 pop mark L42 pnull int 0 int 1 push1 toby incres coret efail lab L42 line 16 cofail goto L42 lab L43 line 16 create L41 llist 2 invoke 1 invoke 1 pop lab L36 efail lab L37 unmark 1 lab L35 pnull line 17 pfail end proc star local 0,001000,s local 1,000000,star con 0,010000,0 declend file pdco.icn line 19 mark L1 mark L0 mark L2 str 0 esusp goto L3 lab L2 pnull var 1 var 0 line 20 invoke 1 pnull var 0 bang cat lab L3 psusp efail unmark 1 lab L1 pnull line 21 pfail end proc Galt local 0,001000,a local 1,000020,e declend file pdco.icn line 23 mark L1 mark L0 pnull var 1 pnull var 0 line 25 bang asgn pop mark L0 mark L0 lab L4 mark L0 pnull var 1 coact chfail L4 esusp psusp efail unmark 1 lab L2 efail lab L3 unmark 1 lab L1 pnull line 26 pfail end proc Limit local 0,001000,a local 1,000020,i local 2,000020,x con 0,002000,2 con 1,002000,1 declend file pdco.icn line 28 mark L1 lab L2 line 30 mark L0 pnull var 1 pnull pnull var 0 int 0 subsc coact asgn unmark 1 mark L2 mark L5 pnull pnull var 0 int 1 line 31 subsc pnull pnull var 0 int 1 subsc refresh asgn unmark 1 lab L5 mark L0 pnull int 1 var 1 push1 line 32 toby pop mark L0 mark L8 pnull var 2 pnull pnull var 0 int 1 line 33 subsc coact asgn unmark 1 mark L0 var 2 psusp efail goto L9 lab L8 unmark 2 pnull goto L7 lab L9 unmark 1 lab L6 efail lab L7 lab L3 unmark 1 goto L2 lab L4 unmark 1 lab L1 pnull line 36 pfail end proc Ranseq local 0,001000,a local 1,000020,x declend file pdco.icn line 38 mark L1 lab L2 line 40 mark L0 pnull var 1 pnull pnull var 0 random coact asgn unmark 1 mark L2 mark L0 var 1 psusp efail lab L3 unmark 1 goto L2 lab L4 unmark 1 lab L1 pnull line 41 pfail end proc Seqimage local 0,001000,a local 1,000020,seq local 2,000020,result local 3,000020,i local 4,000000,image con 0,010000,0 con 1,002000,2 con 2,002000,1 con 3,010000,5,054,040,056,056,056 con 4,010000,2,054,040 con 5,010000,1,173 con 6,002000,3 con 7,002000,0 con 8,010000,1,175 con 9,010000,2,173,175 declend file pdco.icn line 43 mark L1 pnull var 1 str 0 line 45 asgn unmark 1 lab L1 mark L2 pnull var 3 pnull pnull var 0 int 1 line 46 subsc coact asgn unmark 1 lab L2 mark L3 lab L4 line 47 mark L0 pnull var 2 var 4 pnull pnull var 0 int 2 subsc coact invoke 1 asgn unmark 1 mark L4 mark L7 pnull pnull pnull var 0 int 2 line 48 subsc size pnull var 3 nonnull numgt unmark 1 mark L9 pnull var 1 dup str 3 line 49 cat asgn unmark 1 lab L9 unmark 1 pnull goto L6 goto L8 lab L7 pnull var 1 dup pnull str 4 var 2 line 52 cat cat asgn lab L8 lab L5 unmark 1 goto L4 lab L6 unmark 1 lab L3 mark L10 mark L11 mark L12 pnull pnull str 5 pnull var 1 int 6 int 7 line 53 sect cat str 8 cat esusp goto L13 lab L12 str 9 lab L13 pret lab L11 line 53 pfail unmark 1 lab L10 pnull line 54 pfail end