Anonymous user
First class environments: Difference between revisions
m
→{{header|REXX}}: changed indentation, added whitespace. -- ~~~~
m (→{{header|REXX}}: changed comments and indentations and outout glyphs. -- ~~~~) |
m (→{{header|REXX}}: changed indentation, added whitespace. -- ~~~~) |
||
Line 426:
/*═════════════════════════════════════process environments until done. */
do forever until env_.0;
do k=1 for #envs
env_.k=env_.k hailstone(k) /*where the rubber meets the road*/
Line 433:
/*═════════════════════════════════════show results in tabular form. */
count=0; do lines=-1 until _==''; _=
do j=1 for #envs
select
when count== 1 then _=_ right(words(env_.j)-1,3)
Line 443:
end /*j*/
if count==1 then count=2
_=strip(_,'T')
if _=='' then count=count+1
if count==1 then _=copies(' ═══',#envs)
if _\=='' then say substr(_,2)
end
exit /*stick a fork in it, we're done.*/
| |||