6 lines
440 B
Text
6 lines
440 B
Text
%dcl z;%z="put edit";w:proc options(main);q="'";put list(m)do i=1,2,3;z
|
|
(q)(a)skip;do j=1to 71;c=substr(m(i),j)if c=q then z(c)(a)z(c)(a)end;if
|
|
i<3then z(q,",")(a)else z(q,";")(a)end;dcl(c,q)char,m(3)char(99)init(
|
|
'%dcl z;%z="put edit";w:proc options(main);q="''";put list(m)do i=1,2,3;z',
|
|
'(q)(a)skip;do j=1to 71;c=substr(m(i),j)if c=q then z(c)(a)z(c)(a)end;if',
|
|
'i<3then z(q,",")(a)else z(q,";")(a)end;dcl(c,q)char,m(3)char(99)init( ';
|