/* HTML-Helper Arexx script for Textra 1.10 (or later)
 * Ver      : 1.1 (8th January 1996)
 * Creator  : Ron Charlton (InterNet: charlton@cs.utk.edu)
 * Function : Pass on the HTML commands from HTML-Helper to Textra.
 * Input    : HTMLCMD - The HTML command to be inserted.
 */

OPTIONS RESULTS                                /* enable return codes      */
PARSE ARG MYCMD HTMLCMD
HTMLCMD = SUBSTR(HTMLCMD,2, LENGTH(HTMLCMD)-1) /* strip leading space      */

HTMLCMD = SUBSTR(HTMLCMD,2, LENGTH(HTMLCMD)-2) /* strip leading/trailing " */

ADDRESS 'TEXTRA'                               /* ARexx port name          */ 

TEXT HTMLCMD                                   /* Insert at current pos.   */

EXIT                                           /* And exit the script.     */