Anonymous user
$MORSE.REX: Difference between revisions
added links to auxiliary REXX programs. -- ~~~~
(added the $MORSE.REX (REXX) program. -- ~~~~) |
(added links to auxiliary REXX programs. -- ~~~~) |
||
Line 1:
The following is the '''$MORSE.REX''' (REXX) program.
<br>The help for the '''$MORSE.REX''' REXX program is included here ──► [[$MORSE.HEL]].
<lang rexx>/**/trace o; parse arg !; if !all(arg()) then exit▼
<br><br>This program supports the ''International Morse code'' as well as the ''USA Morse code'' (the later being primarily used by the North American Railroads).
<br>Some translation is done for unsupported characters such as braces '''{''' '''}''', brackets '''[''' ''']''' and the like.
<br>This REXX program normally shows Morse code words one word to a line before sounding.
<br><br>This REXX programs only works for Regina and PC/REXX, but other REXXes (specifically R4) will only display the Morse code, but not sound it.
<br><br>The '''$MORSE''' REXX program makes use of '''$T.REX''' REXX program which is used to display text and/or write the text to a file.
<br>The '''$T.REX''' REXX program is included here ──► [[$T.REX]].
<br><br>The '''$MORSE.REX''' REXX program makes use of '''$ERR''' REXX program which is used to display error messages (via '''$T''').
<br>The '''$ERR.REX ''' REXX program is included here ──► [[$ERR.REX]].
<br><br>The '''$MORSE.REX''' REXX program makes use of '''SOUND''' REXX program which is used to express sound (via the internal speaker).
<br>The '''SOUND.REX''' REXX program is included here ──► [[SOUND.REX]].
<br><br>Some older REXXes don't have a '''changestr''' BIF, so one is included here ──► [[CHANGESTR.REX]].
if !cms then address ''
signal on halt; signal on novalue; signal on syntax
| |||