/* Allow commands to return results */

options results

/* On error, goto ERROR:. Comment out this line if you wish to */
/* perform your own error checking. */

signal on error

'PROJECT_LOCK'

/* BEGIN PROGRAM *************************************************/

/*
PROGRAM: 	Triangle.dsdr
DESCRIPTION: 	Draws a triangle and place it into the clipboard.
		You may then place the triangle by dragging it
		onto the page.
DATE:		29/10/96
AUTHOR:		Andy Dean
*/

REDRAW_OFF

CREATE_BEZIER CLOSED 0.5in 0.0in L 1.0in 1.0in L 0.0in 1.0in

CUT

REDRAW_ON

PASTE

/* END PROGRAM ***************************************************/

'PROJECT_UNLOCK'

exit

/* On ERROR */

ERROR:

'PROJECT_UNLOCK'

/* If we get here, either an error occurred with the command's */
/* execution or there was an error with the command itself. */
/* In the former case, rc2 contains the error message and in */
/* the latter, rc2 contains an error number. SIGL contains */
/* the line number of the command which caused the jump */
/* to ERROR: */

if datatype(rc2,'NUMERIC') == 1 then do
	/* See if we can describe the error with a string */

	select
		when rc2 == 103 then
			err_string = "ERROR 103, "||,
				"out of memory at line "||SIGL
		when rc2 == 114 then
			err_string = "ERROR 114, "||,
				"bad command template at line "||SIGL
		when rc2 == 115 then
			err_string = "ERROR 115, "||,
				"bad number for /N argument at line "||SIGL
		when rc2 == 116 then
			err_string = "ERROR 116, "||,
				"required argument missing at line "||SIGL
		when rc2 == 117 then
			err_string = "ERROR 117, "||,
				"value after keywork missing at line "||SIGL
		when rc2 == 118 then
			err_string = "ERROR 118, "||,
				"wrong number of arguments at line "||SIGL
		when rc2 == 119 then
			err_string = "ERROR 119, "||,
				"unmatched quotes at line "||SIGL
		when rc2 == 120 then
			err_string = "ERROR 120, "||,
				"line too long at line "||SIGL
		when rc2 == 236 then
			err_string = "ERROR 236, "||,
				"unknown command at line "||SIGL
		otherwise
			err_string = "ERROR "||rc2||", at line "||SIGL
		end
	end
else if rc2 == 'RC2' then do
	err_string = "ERROR in command at line "||SIGL
	end
else do
	err_string = rc2||", line "||SIGL
	end

req_message TEXT '"'err_string'"'

exit