Category : Communication (modem) tools and utilities
Archive   : RBCOM341.ZIP
Filename : CIS.MAC

AutoDL MULTI
WHEN 0 "Please initiate YMODEM receive"
{
PAUSE 5
RECEIVE 'Y'
PAUSE 4
TEXT "\r"
}
; WHEN 0 "Please initiate XMODEM receive"
; {
; PAUSE 5
; RECEIVE 'X'
; PAUSE 4
; TEXT "\r"
; }
WHEN 0 "^E"
DVEXEC 0 "C:/DV/OZ-PIF.DVP"
END

@R {
TEXT "down/proto:qb"
WAITFOR 2 "qb"
TEXT "\r"
WAITFOR 10 "Bytes"
CUT 10 AFTER "File "
RTRIM CUTBUFFER ", 0123456789"
WAITFOR 5 "File name for your computer:"
PAUSE 2
PASTE
PAUSE 6
TEXT "\r"
DVEXEC 0 "C:/DV/OZ-PIF.DVP"
PAUSE 6
TEXT "\r"
}

OnLoad {
LOG "%VDSZLOG%" "-- connected to %N at %t on %d\r\n"
AVATAR OFF
RBCOMM_CMDS OFF
}

#defkey Login 199

Login {
WAITFOR 5 "User ID:"
TEXT "71762,603\r"
WAITFOR 5 "Password:"
PASSWORD
TEXT "\r"
}

Auto {
STRIP_PARITY ON ; needed if connecting at 8N1
PAUSE 3
TEXT "\r"
WAITFOR 3 "Host Name:"
TEXT "CIS\r"
STRIP_PARITY OFF
CALL Login
}

CleanUp {
IF CONNECTED

{
TEXT "bye\r"
WAITFOR 3 "Host Name:"
TEXT "bye\r"
}
LOG "%VDSZLOG%" "-- hung up %N at %t on %d\r\n"
SELECT_SCREEN 0
}

#include "rbcomm.mac"