TOR init.d style script for OS/2 (eComStation)

/* TOR runner */
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call 'SysLoadFuncs'

PARSE UPPER ARG param
curdir = directory()
newdir = directory('C:\tcpip\services\TOR\bin')
PIDFile = 'D:\var\pid\tor.pid'

SELECT
 WHEN param = 'START' | param = 'STOP' | param = 'RESTART' THEN
      DO
         param = 'result = '||param||'()'
         interpret param
      END
 OTHERWISE
 result = 'Valid parameters is: START STOP RESTART'
END
say result
call directory curdir
exit

START: PROCEDURE EXPOSE PIDFile
IF STREAM(PIDFile, 'C', 'query exists') \= PIDFile THEN
   DO
      '@detach tor.exe -f /tcpip/services/TOR/etc/tor/torrc > nul 2>&1'
      call SysSleep 3
      res = 'TOR succesfull running as PID: '||linein(PIDFile)
   END
ELSE
     DO
        res = 'TOR already running! PID: '||linein(PIDFile)
     END
call stream PIDFile, 'C', 'close'
return res

STOP: PROCEDURE EXPOSE PIDFile
IF STREAM(PIDFile, 'C', 'query exists') = PIDFile THEN
   DO
      call stream PIDFile, 'C', 'close'
      '@so kill 'linein(PIDFile)' > nul 2>&1'
      call SysSleep 3
      rc = SysFileDelete(PIDFile)
      res ='TOR stopping result is: 'rc
   END
ELSE res = 'TOR is not running!'
return res

RESTART: PROCEDURE EXPOSE PIDFile
res = STOP()
res = res||X2C('0D 0A')||START()
return res