Category : Recently Uploaded Files
Archive   : MSVIBM.ZIP
Filename : VIVA.SCR

; File VIVA.SCR -- minor modification of Christine's HAYES.SCR.
; To be used with MS-DOS Kermit 3.11 or later.
;
; Gregory L. Forster [[email protected]]
; The Career Connection BBS 8/N/1 2400 (414)258-0164
;
; Place this file in your
; current directory or in any directory in your DOS PATH, and then set the
; DOS environment variable, MODEM, to be VIVA. Give the following command
; at the DOS prompt before starting Kermit, or add it to your AUTOEXEC.BAT
; file:
;
; SET MODEM=VIVA or
; DEFINE _MODEM VIVA at the MS-DOS Kermit prompt, or
; DEFINE _MODEM VIVA to your MSCUSTOM.INI file.
;
; Uses ATD (modem's default dialing method) to dial the number.
; Force tone dialing by including T as first character of phone
; number, or pulse dialing by including P as first character.
;
; Puts the VIVA 2442ef in the following modes, which this script depends upon
; for following operation:
; V1 Selects Long-Form verbal result codes.
; E1 Echoes back characters to host typed in command mode
; M0 Speaker always off
; N1 Permits handshaking to occur at any speed supported by both
; modems. Enables automode detection.
; Q0 Result codes are sent.
; X4 BUSY detect, NO DIALTONE detect, CONNECT (speed) messages displayed
; &C1 DCD On indicates presence of data carrier.
; &D2 DTR On-To-Off transition causes the modem to hangup,
; enter the command state, and disable auto-answer
; &S0 Modem maintains DSR on at all times
; %C3 Enable both MNP5 and V.42bis Data Compression
; %D2 Sets the V.42bis dictionary size at 2048
; %M3 Enables two-way compression
; These are set by the statement:
; output ATV1E1M0X4&C1&D2&S0%C3%D2%M3\13
;
; Sets SUCCESS flag if dialing succeeds, sets FAILURE flag
; if it fails.
;
echo Using VIVA 2442ef V.42bis/MNP5 FAX/MODEM\13
set speed 19200 ; Set interface speed to 19,200

def errfail echo \%1,hangup,goto fail ; Macro to handle failures.

set input timeout proceed ; Allow IF SUCCESS, IF FAILURE

set input echo off ; Don't echo the modem test
output ATV1E1M0N1Q0X4&C1&D2&S0%C3%D2%M3\13 ; Send AT, initialization
input 2 OK ; Modem should say "OK"
if fail errfail {Turn on or connect your modem!}
set flow rts ; Hardware flow control
clear ; Clear input buffer
;
if not equ \%1 = goto dialnow ; This provides for initialization only.
echo Modem initialization completed, no number to dial
end 0
:dialnow
set count 15 ; Set up dialing retry counter (15 times)
set input echo on ; From now on, show what happens
echo Dialing \%1, wait... ; Dial inputted phone number
pause 1 ; Pause 1 second
goto dial ; 1st time, skip Redialing message
:REDIAL
set alarm 30
pause 5 ; Wait 5 seconds before redialing.
if not alarm errfail {Dialing canceled.}
echo Redialing... ; Message for redialing.
pause 1 ; Pause 1 second
:DIAL
output ATD\%1\13 ; Dial the number (ATDT or ATDP)
:GETMSG
set alarm 60 ; Detect keyboard interruptions.
input 40 \10 ; Wait for the linefeeds...
input 20 \10 ; that surround response message.
if success goto gotmsg ; Got a message.
if alarm errfail {No response from modem.} ; No response in 60 secs.
hangup ; User interrupted from keyboard,
if count goto redial ; so try again right away.

:GOTMSG
reinput 0 CONNECT ; Got message, was it CONNECT?
if success goto speed ; DTE-DCE rate. Successful, continue
reinput 0 ERROR ; No, check for command error.
if success errfail {Modem command error.}
reinput 0 CARRIER ; Connection rate (DCE-DCE)
if success goto getmsg ; no action
reinput 0 PROTOCOL ; Error correction type (NONE/LAPM/ALT)
if success goto getmsg ; no action (=/V.42/MNP)
reinput COMPRESSION ; Compression type (CLASS 5/V.42BIS/NONE)
if success goto getmsg ; no action (=MNP5/V.42bis/)
reinput 0 RING ; Ring signal detected. Not a Hayes
if success goto getmsg ; Look for something useful.
reinput 0 NO CARRIER ; NO CARRIER?
if success goto busy ; Treat like BUSY.
reinput 0 BUSY ; BUSY?
if success goto busy ; Go wait a bit, then dial again.
errfail {No dialtone or no answer. Try again later.}

:BUSY
if < \v(count) 2 goto quit ; Don't wait 60 seconds if tries used up.
Echo Busy or No Carrier, will dial again in 5 seconds...
hangup ; Hang up.
:AGAIN
if count goto redial ; Then go redial.
:QUIT
errfail {Not answering now... Try later.} ; Too many tries.

; The following block is retained for compatibility for HAYES.SCR. Since
; this modem buffers (always retains the same DCE<->DTE speed), the computer
; should not speed-match and the next section is a no-op.
:SPEED ; Connected!
echo \7 ; Celebrate with a beep.
define errfail ; Erase ERRFAIL definition
end 0 ; Finished, return success code.

:FAIL ; Failed, return failure code.
define errfail ; Erase ERRFAIL definition
end 1