/* REXX *** */ PARSE ARG cmd /* cheapie interactive REXX interpreter */ /* if an argument is provided, execute it */ /* otherwise execute input as provided */ /* until an EXIT is entered */ /* exits on bad syntax */ Signal on syntax IF cmd ^= '' THEN , INTERPRET cmd else , DO WHILE cmd ^= 'EXIT' PARSE PULL cmd INTERPRET cmd UPPER cmd END IF DATATYPE(RC) = 'NUM' then EXIT RC else EXIT 0 Syntax: Say 'Error 'RC' -- 'errortext(RC) Say '** 'cmd' **' EXIT 12