Anonymous user
File size distribution: Difference between revisions
m
→{{header|REXX}}: allowed for another character for period separators.
m (→{{header|REXX}}: added/changed some comments, added boilerplate to suppress some superfluous errors.) |
m (→{{header|REXX}}: allowed for another character for period separators.) |
||
Line 430:
_=linein(dirOUT); if left(_, 1)==' ' then iterate /*process data. */
parse upper var _ dat tim sz . /*uppercase suffix*/
if pos(',', sz) \==0 then sz=space(
if \datatype(sz,'W') then do; #=left(sz, length(sz) - 1) /*SZ has a suffix?*/
if \datatype(#,'N') then iterate /*Meat ¬ numeric? */
| |||