/*
** $VER: OpenDOSShell.edge 1.2 (Sunday 08-Aug-93 02:49:57)
**
** Script to open a shell console on the Edge screen. The current directory
**	will be set to the current files path or if the path is zero to Edge's
**	current directory. The window position/size/title is expected in 
** _GE_User0, and the shell startup file in _GE_User1. 
** 
** Written by Thomas liljetoft
*/


options results

'getenvvar' _ge_screenname		/* get name of the screen we're running on */
screenname = result

'getenvvar' _fe_path				/* get path of the current file */
path = result

'getenvvar' _ge_user0			/* get window position/size/title */
window = result
if length(window) = 0 then window = "20/20/600/50/AmigaShell/close"

'getenvvar' _ge_user1			/* get shell startup file */
startup = result

/* cd the current path */
call pragma(d,path)

/* now open the shell console */

if length(startup) ~= 0 then
	address command newshell '"'"con:"window"/SCREEN "screenname'"' from startup
else
	address command newshell '"'"con:"window"/SCREEN "screenname'"'

exit(RC)