ask \%u { username: }
askq \%p { \%u's password: }
set window 2
set retry 3
set line /dev/ttyh6
set speed 9600
set input time quit
set input echo on
set file type binary
set count 5
goto nomsg
:LOOP
echo Connection broken.
echo Reestablishing connection, wait...
:NOMSG
hangup
output \13
input 8 login:
output \%u\13
input 8 Password:
output \%p\13
input 60 {$ }
cd ~/new
output cd temp\13
input 8 {$ }
out ww -r\13
input 10 KERMIT READY
pause 1
resend msvibm.zip
if success goto done
if count goto loop
echo Too many tries, giving up.
stop 1
:DONE
echo File transferred successfully
output exit\13
pause 5
hangup
stop 0