final REXX interface version,

fixed some header checking,
added the scripts directory ( makefile and friends later )
added the README.REXX.V2
when the whole thing has been reasonably tested I will cleanup
enjoy

scripts/hbasic1.rexx

@@ -0,0 +1,36 @@
+#! /bin/cat
+
+Trace "O"
+
+parse arg args
+args = space(args)
+argc = words(args)
+
+parse   version _ver
+parse   source  _src
+_env    = Address()
+
+parse   var     _src . . _cmd
+_who    = filespec("n",_cmd)
+parse	var _who  _who "." .
+
+
+say _who " started  "
+say _who " version  " _ver
+say _who " source   " _src
+say _who " HOSTENV  " _env
+say _who " date     " date()
+say _who " time     " time()
+if  args = "" then do
+    say _who "          " "No arguments given "
+    _ret = 0
+end
+else do
+    say _who " args     " ">>>"args"<<<"
+    _ret = args
+end
+say _who " ended    "
+
+exit _ret
+
+

scripts/hbasic2.rex

@@ -0,0 +1,36 @@
+#! /bin/cat
+
+Trace "O"
+
+parse arg args
+args = space(args)
+argc = words(args)
+
+parse   version _ver
+parse   source  _src
+_env    = Address()
+
+parse   var     _src . . _cmd
+_who    = filespec("n",_cmd)
+parse	var _who  _who "." .
+
+
+say _who " started  "
+say _who " version  " _ver
+say _who " source   " _src
+say _who " HOSTENV  " _env
+say _who " date     " date()
+say _who " time     " time()
+if  args = "" then do
+    say _who "          " "No arguments given "
+    _ret = 0
+end
+else do
+    say _who " args     " ">>>"args"<<<"
+    _ret = args
+end
+say _who " ended    "
+
+exit _ret
+
+

scripts/hbasic3.cmd

@@ -0,0 +1,36 @@
+#! /bin/cat
+
+Trace "O"
+
+parse arg args
+args = space(args)
+argc = words(args)
+
+parse   version _ver
+parse   source  _src
+_env    = Address()
+
+parse   var     _src . . _cmd
+_who    = filespec("n",_cmd)
+parse	var _who  _who "." .
+
+
+say _who " started  "
+say _who " version  " _ver
+say _who " source   " _src
+say _who " HOSTENV  " _env
+say _who " date     " date()
+say _who " time     " time()
+if  args = "" then do
+    say _who "          " "No arguments given "
+    _ret = 0
+end
+else do
+    say _who " args     " ">>>"args"<<<"
+    _ret = args
+end
+say _who " ended    "
+
+exit _ret
+
+

scripts/hbasic4.rx

@@ -0,0 +1,36 @@
+#! /bin/cat
+
+Trace "O"
+
+parse arg args
+args = space(args)
+argc = words(args)
+
+parse   version _ver
+parse   source  _src
+_env    = Address()
+
+parse   var     _src . . _cmd
+_who    = filespec("n",_cmd)
+parse	var _who  _who "." .
+
+
+say _who " started  "
+say _who " version  " _ver
+say _who " source   " _src
+say _who " HOSTENV  " _env
+say _who " date     " date()
+say _who " time     " time()
+if  args = "" then do
+    say _who "          " "No arguments given "
+    _ret = 0
+end
+else do
+    say _who " args     " ">>>"args"<<<"
+    _ret = args
+end
+say _who " ended    "
+
+exit _ret
+
+

scripts/hbasic5.ext1

@@ -0,0 +1,36 @@
+#! /bin/cat
+
+Trace "O"
+
+parse arg args
+args = space(args)
+argc = words(args)
+
+parse   version _ver
+parse   source  _src
+_env    = Address()
+
+parse   var     _src . . _cmd
+_who    = filespec("n",_cmd)
+parse	var _who  _who "." .
+
+
+say _who " started  "
+say _who " version  " _ver
+say _who " source   " _src
+say _who " HOSTENV  " _env
+say _who " date     " date()
+say _who " time     " time()
+if  args = "" then do
+    say _who "          " "No arguments given "
+    _ret = 0
+end
+else do
+    say _who " args     " ">>>"args"<<<"
+    _ret = args
+end
+say _who " ended    "
+
+exit _ret
+
+

scripts/hbasics

@@ -0,0 +1,36 @@
+#! /bin/cat
+
+Trace "O"
+
+parse arg args
+args = space(args)
+argc = words(args)
+
+parse   version _ver
+parse   source  _src
+_env    = Address()
+
+parse   var     _src . . _cmd
+_who    = filespec("n",_cmd)
+parse	var _who  _who "." .
+
+
+say _who " started  "
+say _who " version  " _ver
+say _who " source   " _src
+say _who " HOSTENV  " _env
+say _who " date     " date()
+say _who " time     " time()
+if  args = "" then do
+    say _who "          " "No arguments given "
+    _ret = 0
+end
+else do
+    say _who " args     " ">>>"args"<<<"
+    _ret = args
+end
+say _who " ended    "
+
+exit _ret
+
+

scripts/hcommand.rexx

@@ -0,0 +1,68 @@
+#! /bin/cat
+
+Trace "O"
+
+parse arg args
+args = space(args)
+argc = words(args)
+
+parse   version _ver
+parse   source  _src
+_env    = Address()
+
+parse   var     _src . . _cmd
+_who    = filespec("n",_cmd)
+parse	var _who  _who "." .
+
+
+say _who "started  "
+say _who "version  " _ver
+say _who "source   " _src
+say _who "HOSTENV  " _env
+say _who "date     " date()
+say _who "time     " time()
+if  args = "" then do
+    say _who "No command entered "
+    exit 4
+end
+
+--signal on failure name hfailure
+--signal on error   name herror
+
+Address HERCULES args
+
+say _who "RC = " RC
+
+parse lower var args . "(" opts
+
+if  strip(opts) = "" then do
+    say _who "No output requested "
+    exit 0
+end
+
+parse lower var opts z stem
+stem = strip(stem,,".") || "."
+
+coun = value(stem || 0)
+if  coun = 0 then ,
+    say _who "No output returned"
+else ,
+    do  i = 1 to coun
+        say value(stem || i )
+    end
+say _who "ended  "
+
+exit 0
+
+
+herror:
+say _who "signal on error   trapped"
+say _who "ended  "
+exit 0
+
+hfailure:
+say _who "signal on failure trapped"
+say _who "ended  "
+exit 0
+
+

scripts/hexecio.rexx

@@ -0,0 +1,39 @@
+#! /bin/cat
+
+Trace "O"
+
+parse arg args
+args = space(args)
+argc = words(args)
+
+parse   version _ver
+parse   source  _src
+_env    = Address()
+
+parse   var _src . . _cmd
+_who    = filespec("n",_cmd)
+parse	var _who  _who "." .
+
+
+say _who "started  "
+say _who "version  " _ver
+say _who "source   " _src
+say _who "HOSTENV  " _env
+say _who "date     " date()
+say _who "time     " time()
+
+Address HOSTEMU "EXECIO * DISKR '"_cmd"' ( stem stmt. finis "
+if RC \= 0 then ,
+    say _who " EXECIO RC("RC") "
+else ,
+    do  i = 1 to stmt.0
+        if strip(stmt.i) = "" then ,
+            iterate
+        say _who "("right(i,4)") : "stmt.i
+    end
+
+say _who " ended"
+
+exit 0
+
+::requires hostemu LIBRARY

scripts/hlinein.rexx

@@ -0,0 +1,33 @@
+#! /bin/cat
+
+Trace "O"
+
+parse arg args
+args = space(args)
+argc = words(args)
+
+parse   version _ver
+parse   source  _src
+_env    = Address()
+
+parse   var _src . . _cmd
+_who    = filespec("n",_cmd)
+parse	var _who  _who "." .
+
+say _who "started  "
+say _who "version  " _ver
+say _who "source   " _src
+say _who "HOSTENV  " _env
+say _who "date     " date()
+say _who "time     " time()
+
+do  i = 1 while ( lines(_cmd) > 0 )
+	stmt = linein(_cmd)
+    if strip(stmt) = "" then ,
+       iterate
+    say _who "("right(i,4)") : "stmt
+end
+
+say _who "ended"
+
+exit 0

scripts/hrecurs.rexx

@@ -0,0 +1,31 @@
+#! /bin/cat
+
+Trace "O"
+
+parse arg args
+args = space(args)
+argc = words(args)
+
+parse   version _ver
+parse   source  _src
+_env    = Address()
+
+parse   var     _src . . _cmd
+_who    = filespec("n",_cmd)
+parse	var _who  _who "." .
+
+if  ( args = "" ) then ,
+    coun = 1
+else ,
+    coun = args
+
+say _who " started  " coun
+if  ( coun > 0 ) then do
+    "exec " _who coun-1
+end
+say _who " ended    " coun
+
+exit 0
+
+
+