Anonymous user
Rosetta Code/Rank languages by popularity: Difference between revisions
Rosetta Code/Rank languages by popularity (view source)
Revision as of 10:10, 16 May 2020
, 4 years ago→REXX program: changed a ^ glyph to ¬.
m (→REXX program: changed quoting style.) |
m (→REXX program: changed a ^ glyph to ¬.) |
||
Line 4,803:
if igAst then do; igAst= pos(' * ',$)==0; if igAst then iterate; end
if pos('RETRIEVED FROM', translate($$))\==0 then leave /*pseudo End─Of─Data?.*/
if which=='L' then do; if left($$, 1)\=="*" then iterate /*lang
parse upper var $$ '*' $$ "<"; $$= space($$)
if $$=='' then iterate /*recs*/; L.$$= 1
| |||