$MORSE.REX: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: added/changed comments and whitespace, changed indentations, simplified some code.) |
Thundergnat (talk | contribs) (Move to REXX library routines category) |
||
| Line 316: | Line 316: | ||
unpsu: return translate(arg(1), , _b1 || _b2 || _b3) |
unpsu: return translate(arg(1), , _b1 || _b2 || _b3) |
||
verchar:procedure; parse arg y,w; _=length(y); if _==1 then return y; if _==2 then do; if \ishex(y) then call er 40,y w; return x2c(y); end; if _==3 then do; if \int(y) then call er 92,y ',' w; return d2c(y); end; call er 55,y w</lang> |
verchar:procedure; parse arg y,w; _=length(y); if _==1 then return y; if _==2 then do; if \ishex(y) then call er 40,y w; return x2c(y); end; if _==3 then do; if \int(y) then call er 92,y ',' w; return d2c(y); end; call er 55,y w</lang> |
||
[[Category:REXX library routines]] |
|||