;	kermit.hup

set line /dev/sl0		; line such as /dev/sl0 --> /dev/cua01
set speed 57600			; computer to modem speed
set file type binary		; full 8 bit file xfer
set win 8			; ???
set rec pack 1024
set send pack 1024
set block 3			; ???
set term bytesize 8
set command bytesize 8
set flow none
set modem hayes
set dial hangup off		; ???
set carrier auto		; Then SET CARRIER if necessary,
set dial display on		; Then SET DIAL if necessary,
set input echo off
set input timeout proceed
set input case ignore

:slcmd				; put the modem in command mode
echo Puting modem in command mode with +++.
clear				; Clear unread characters from input buffer
pause 2
output +++
; hayes escape sequence
pause 2
clear
output AT\13
input 1 OK\13\10		; wait for OK  The 13 10 are decimal for cr nl
if success goto slhup
goto slcmd		; if modem doesn't answer OK, try again

:slhup                          ; hang up the phone
echo Disconnecting line
clear                           ; Clear unread characters from input buffer
; echo Disconnecting line
output \13 
output ath\13                   ; hayes command for on hook
input 2 OK\13\10
if fail goto slhup
echo Reseting Modem.
output atz\13
echo slhup finished
quit