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 ''