.key baud/a,device/a,unit/a,user/a,name/a
.bra [
.ket ]
Cd DOORS:Hack
Rx "exit show('p','HSserver')"
if ${RC} EQ 0
    Echo "Loading HSserver"
    run <>nil: DOORS:hack/HSserver
endif
Echo "Loading HSclient"
doors:hack/HSclient <>${AUXDEV}[device]/[unit]/raw/shared/checkcd/speed[baud] -x -t 10 [user] [name]
