home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Merciful 3
/
Merciful_Release_3.bin
/
software
/
d
/
draw_studio
/
drawstudiov1.0.2a.dms
/
drawstudiov1.0.2a.adf
/
DSdir1.lha
/
Rexx
/
Star5.dsrx
< prev
next >
Wrap
Text File
|
1996-10-29
|
2KB
|
105 lines
/* 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: Star5.dsdr
DESCRIPTION: Draws a 5 pointed start and places it into the clipboard.
You may then place the start by dragging it
onto the page.
DATE: 29/10/96
AUTHOR: Andy Dean
*/
REDRAW_OFF
CREATE_BEZIER CLOSED '0.9755in' '0.3455in' L,
'0.6176in' '0.3382in' L,
'0.5in' '0.0in' L,
'0.3824in' '0.3382in' L,
'0.0245in' '0.3455in' L,
'0.3098in' '0.5618in' L,
'0.2061in' '0.9045in' L,
'0.5in' '0.7in' L,
'0.7939in' '0.9045in' L,
'0.6902in' '0.5618in'
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