Anonymous user
Sort a list of object identifiers: Difference between revisions
m
→{{header|REXX}}: fixed a comment.
m (→{{header|REXX}}: split a THEN/ELSE line, added whitespace, changed some comments.) |
m (→{{header|REXX}}: fixed a comment.) |
||
Line 998:
do k=1 for words(x); _=word(x, k) /*get a number in X. */
if LZ then y= y right(_, 90, 0) /*(prepend) leading 0's*/
else y= y _ + 0 /*
end /*k*/ /*adjust number, append*/
@.j = translate( space(y), ., ' ') /*reconstitute number. */
| |||