Word wrap: Difference between revisions
Content added Content deleted
(→version 1: used a stemmed array instead of a long character string, faster, but more complex and harder to follow than version 0. -- ~~~~) |
m (→version 1: removed a vestigual REXX statement. -- ~~~~) |
||
| Line 1,583: | Line 1,583: | ||
end /*DO words(_)*/ |
end /*DO words(_)*/ |
||
end /*j*/ |
end /*j*/ |
||
call time 'R' |
|||
if j==0 then call err 'file' iFID "not found." |
if j==0 then call err 'file' iFID "not found." |
||
if n==0 then call err 'file' iFID "is empty (or has no words)" |
if n==0 then call err 'file' iFID "is empty (or has no words)" |
||