/* Record to disk with ANR

   Usage: rx anr-record.rexx URL

   "stop" for URL will stop ANR from playing&saving
   "stopsaving" for URL does the same, but also toggles saving mode off
*/

/* CONFIG - EDIT THIS LINE */

anr_location = "Utils:Audio/AmiNetRadio/AmiNetRadio"

/* END OF CONFIG */


OPTIONS RESULTS
PARSE ARG source

IF ~SHOW( "P", "AMINETRADIO.1"  ) THEN DO
        ADDRESS COMMAND "run >NIL: " anr_location
        ADDRESS COMMAND "WaitForPort AMINETRADIO.1"
END

ADDRESS "AMINETRADIO.1"

IF source = "stop" THEN DO
	STOP
	EXIT
END
IF source = "stopsaving" THEN DO
	STOP
	SAVETODISK
	IF RESULT = 1 THEN SAVETODISK TOGGLE
	EXIT
END

PLAY source
SAVETODISK
IF RESULT = 0 THEN SAVETODISK TOGGLE
PLAY

EXIT