/*
** $VER: empty.rexx 1.0 (23.2.95) written by Robert Brandner
**
** An empty script, which you may use to write your own scripts
** easy and safe!
*/

OPTIONS RESULTS

OPTIONS FAILAT 11                           /* ignore warnings          */
SIGNAL ON SYNTAX                            /* ensure clean exit        */
SIGNAL ON FAILURE
SIGNAL ON BREAK_C							/* no label->syntax->exit	*/

if (LEFT(ADDRESS(), 6) ~= "POLYED") then do
	if SHOW("Ports", "POLYED.1") then
	    address 'POLYED.1'
	else do
		say "PolyEd is not running!"
		exit
	end
end

'LOCKGUI'

/*----- begin of custom code area --------------------------------------*/

/*      ... insert your code here ...                                   */
/*      ... if you use EXIT within here, you _must_ call ...			*/
/*		... 'UNLOCKGUI' before, or PolyEd will stay locked ...			*/

/*----- end of custom code area ----------------------------------------*/

'UNLOCKGUI'
EXIT

SYNTAX:                                     /* ARexx error...           */

say "Error line" SIGL ":" ERRORTEXT(RC)     /* report it...             */
'UNLOCKGUI'                                 /* Unlock GUI!              */
EXIT                                        /* exit                     */

FAILURE:
'UNLOCKGUI'                                 /* Unlock GUI!              */
EXIT                                        /* exit                     */