/* REXX ***************************************************************/
/* -------------------------------------------------------------------*/
/* Name:       INTER (Interpret)                                      */
/* Type:       REXX-Exec                                              */
/* Author:     Norbert Haas                                           */
/* Function:   Yes                                                    */
/* Syntax:     TSO INTER [application]                                */
/* Parameter:  application                                            */
/* Remark:     litte test-interpreter                                 */
/*                                                                    */
/* Version Author        Date       Why                               */
/* ------- ------------- ---------- --------------------------------- */
/* V01.00  N.Haas        08.03.1996 Creation                          */
/**********************************************************************/
PARSE UPPER ARG parm
IF parm <> '' THEN DO
  "ISPEXEC SELECT CMD(%INTER) NEWAPPL("parm")"
   EXIT
END

Start:
"ISPEXEC CONTROL ERRORS RETURN"
SAY "### COMMODORE BASIC V2 ###"
SAY "     32768 BYTES FREE     "
SAY "Type EXIT to exit.        "
SAY "READY"

Loop:
var  = ''
rc   = 0
PARSE UPPER EXTERNAL befehl

/* This is the very heart of the procedure ;-) */
SIGNAL ON Error
SIGNAL ON Syntax
INTERPRET befehl

SAY 'RC =' rc '(Type EXIT to exit)'
SIGNAL Loop

Error:
Syntax:
SAY 'Is this REXX? Try again.'
SIGNAL Loop