Plot coordinate pairs/REXX: Difference between revisions
Content added Content deleted
m ("header" template isn't necessary on this page) |
m (→$PLOT.REX (REXX) program: elided an unneeded subroutine.) |
||
Line 433: | Line 433: | ||
abbl: return verify(arg(1)'a',@abc,'M')-1 |
abbl: return verify(arg(1)'a',@abc,'M')-1 |
||
abbn: parse arg abbn; return abb(abbn) | abb('NO'abbn) |
abbn: parse arg abbn; return abb(abbn) | abb('NO'abbn) |
||
comma: procedure;parse arg _,c,p,t;arg ,cu;c=word(c ",",1);if cu=='BLANK' then c=' ';o=word(p 3,1);p=abs(o);t=word(t 999999999,1);if \datatype(p,'W')|\datatype(t,'W')|p==0|arg()>4 then return _;n=_'.9';#=123456789;k=0;return comma_() |
|||
comma_: if o<0 then do;b=verify(_,' ');if b==0 then return _;e=length(_)-verify(reverse(_),' ')+1;end;else do;b=verify(n,#,"M");e=verify(n,#'0',,verify(n,#"0.",'M'))-p-1;end;do j=e to b by -p while k<t;_=insert(c,_,j);k=k+1;end;return _ |
|||
err: call er '-'arg(1),arg(2); return '' |
err: call er '-'arg(1),arg(2); return '' |
||
erx: call er '-'arg(1),arg(2); exit '' |
erx: call er '-'arg(1),arg(2); exit '' |