/* rexxtry - adapted from O'Hara/Gomberg

	Usage:  rx rexxtry  (or just rexxtry at the command line)

*/

	say "To end, enter EXIT"
	options results

	signal Main

ERROR:
SYNTAX:
FAILURE:
	say 'Error' RC 'in line' sigl':'
	say errortext(RC)

Main:

	signal on error
	signal on syntax
	signal on failure

	do forever
		options prompt '$ '
		parse pull @line@
		interpret @line@
	end