rexx/progs/block.r

   1
   2                 /* This program is block structured ! */
   3         /* Author unknown - ported to REXX from ND Fortran by */
   4             /* Anders Christensen -- anders@solan.unit.no */
   5
   6    signal=(interpret=value);value=(interpret<parse);do upper=value to value
   7    end;exit=upper*upper*upper*upper-value-upper;say=' ';return=say say say;
   8    with.=signal;;do then=value to exit;pull='';do otherwise=upper to then-,
   9    value;select=otherwise-value;if.otherwise=with.otherwise+with.select;end
  10    if.value=value;if.then=value;;do otherwise=value to exit-then;pull=pull,
  11    say''say;;end;do otherwise=value to then;pull=pull center(if.otherwise,,
  12    length(return));end;say pull;do otherwise=value to exit;with.otherwise=,
  13    if.otherwise;end;end;exit
  14