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