home *** CD-ROM | disk | FTP | other *** search
- /*
- ** Run (rx) me from any DOS stream (including a FIFO via RemCLI or
- ** sercli).
- **
- ** Note how ARexx is a little funky about `subordinate' programs
- ** inheriting the same STDIN/STDOUT streams (thus the `>* <*' business); I
- ** _think_ this has been fixed in v2.1 of AmigaDOS or in ARexx v1.15...I
- ** haven't noticed the need for this in my refuse_callers.rexx script...
- **
- */
- parse arg params
-
- address command "set_raw >* <*"
- say "Being called!"
- parse pull input
- if '' ~= input then say "Got some input? {"input"}"
- address command "set_con >* <*"
-
- if ~open( io, "*" ) then do
- say "Couldn't open {*}"
- exit( 10 )
- end
-
- writech( io, "Nest? ")
- answer = readln( io )
- if ('y' = answer) | ('Y' = answer) then do
- address command "rx >* <* test"
- end
-
- say "Exiting..."
- exit( 0 )
-