.key FROM/K,SCREEN,DEPTH,WINDOW,XPOS/K,YPOS/K,XSIZE/K,YSIZE/K,FONT,SIZE,KEYMAP,PORT
.bra [
.ket ]

;$VER: ShellTerm_Script 1.07 (13.12.94) (C)opyright Tomi Blinnikka 1994

;This version currently REQUIRES the following programs:
;
;WatchPort by Klaus Seistrup
;PSX by Steve Tibbett
;
;PSX opens a public screen for ShellTerm
;WatchPort waits for ShellTerm to quit

;====================================================
;Default settings.
;====================================================

;Default prefs-file
set FROM S:ShellTerm.PREFS

;Default screen name
set SCREEN ShellTerm

;Default screen depth
set DEPTH 1

;Default window name
set WINDOW "ShellTerm Window"

;Default window dimensions
set XPOS 0
set YPOS 11
set XSIZE 724
set YSIZE 271

;Default font name
set FONT topaz.font

;Default font size
set SIZE 8

;Default keymap
set KEYMAP usa0

;Default port name
set PORT ShellTerm_Port

;====================================================
;Override defaults with user options.
;====================================================

if not "[FROM]" eq ""
 set FROM "[FROM]"
endif

if not "[SCREEN]" eq ""
 set SCREEN "[SCREEN]"
endif

if not "[DEPTH]" eq ""
 set DEPTH "[DEPTH]"
endif

if not "[WINDOW]" eq ""
 set WINDOW "[WINDOW]"
endif

if not "[XPOS]" eq ""
 set XPOS "[XPOS]"
endif

if not "[YPOS]" eq ""
 set YPOS "[YPOS]"
endif

if not "[XSIZE]" eq ""
 set XSIZE "[XSIZE]"
endif

if not "[YSIZE]" eq ""
 set YSIZE "[YSIZE]"
endif

if not "[FONT]" eq ""
 set FONT "[FONT]"
endif

if not "[SIZE]" eq ""
 set SIZE "[SIZE]"
endif

if not "[KEYMAP]" eq ""
 set KEYMAP "[KEYMAP]"
endif

if not "[PORT]" eq ""
 set PORT "[PORT]"
endif

;====================================================
;Quit other programs using serial device.
;====================================================

;FailAt 21
;Break >NIL: `Status COM=RingDetect`	;Quit RingDetect
;FailAt 10

;====================================================
;Open Screen & Shell window, start ShellTerm.
;Wait for ShellTerm to quit and clean up.
;====================================================

PSX OPEN "$SCREEN" HIRES DEPTH "$DEPTH"
NewShell FROM S:ShellTerm-StartUp "CON:$XPOS/$YPOS/$XSIZE/$YSIZE/$WINDOW/NOCLOSE/SCREEN $SCREEN"
WatchPort "$PORT"
PSX CLOSE "$SCREEN" HIRES DEPTH 1

;====================================================
;Start programs that we stopped.
;====================================================

;RUN >NIL: RingDetect ICONIFY DEV=serial.device UNIT=0	;Restart RingDetect