home *** CD-ROM | disk | FTP | other *** search
- /* 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: BurstLarge.dsdr
- DESCRIPTION: Draws a large "burst" shape and places it into the
- clipboard.
- You may then place the shape by dragging it
- onto the page.
- DATE: 29/10/96
- AUTHOR: Andy Dean
- */
-
- REDRAW_OFF
-
- CREATE_BEZIER CLOSED 0.042in 0.238in L,
- 0.230in 0.241in L,
- 0.173in 0.038in L,
- 0.327in 0.215in L,
- 0.376in 0.032in L,
- 0.476in 0.207in L,
- 0.556in 0.072in L,
- 0.616in 0.212in L,
- 0.699in 0.044in L,
- 0.736in 0.210in L,
- 0.868in 0.087in L,
- 0.825in 0.244in L,
- 0.994in 0.278in L,
- 0.856in 0.335in L,
- 0.913in 0.530in L,
- 0.779in 0.413in L,
- 0.711in 0.567in L,
- 0.639in 0.421in L,
- 0.568in 0.593in L,
- 0.510in 0.441in L,
- 0.416in 0.561in L,
- 0.347in 0.424in L,
- 0.250in 0.561in L,
- 0.222in 0.407in L,
- 0.067in 0.450in L,
- 0.176in 0.330in
-
- 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
-