; Open a dnet shell, choosing a system to log into
; open on a normal shell
; assume dnet: assigned where you have the dshrexx exe...

; hosts to rsh into... assume you have updated your rhost file so you don't have to
; send a password!! (otherwise these don't work)

set 1 LOCAL
set 2 mystra
set 3 frey
set 4 peach

lab top
reqask body "Choose a system to log onto" gad "$1|$2|$3|$4|CANCEL" title ShellTerm var host

if $host eq 1
dnet:dshrexx 8195 0 DNETREXX "console sphinx:0/0/640/200/$1 [port %r]" "stty -echo\n"
endif

if $host eq 2
dnet:dshrexx 8195 0 DNETREXX "send rsh $2\n" "console sphinx:0/0/640/200/$2 [port %r]" "x wait 3" "send stty -echo\n"
endif

if $host eq 3
dnet:dshrexx 8195 0 DNETREXX "send rsh $3\n" "console sphinx:0/0/640/200/$3 [port %r]" "x wait 3" "send stty -echo\n"
endif

if $host eq 4
dnet:dshrexx 8195 0 DNETREXX "send rsh $4\n" "console sphinx:0/0/640/200/$4 [port %r]" "x wait 3" "send stty -echo\n"
endif


