: FILE IIE24CARD.IN, By Jim Agnew, Medical College of Virginia, Neurosurgery Dept.
; To be used with MS-DOS Kermit 3.11 or later.
; An MS-DOS Kermit script program for setting up Evercom 24E+ 2400
; modems and compatibles for Cardiac Surgery's VAXstation 4000 mdl 60
; Author: Christine M. Gianone, January 1990
; Updated for MS-DOS Kermit version 3.11, July 1991
; Used for modem blasting by Jim Agnew, February 1994
;
def errfail echo \%1,hangup,goto fail ; Macro to handle failures.

if < VERSION 311 errfail {MS-DOS Kermit 3.11 or later required.}
set speed 2400                  ; It's only a 2400 baud, give it a break.
set input timeout proceed       ; Allow IF SUCCESS, IF FAILURE
set input echo on               ; From now on, show what happens
output AT\13                    ; Slap the modem.
input 2 OK                      ; Modem should say "OK"
output AT\13                    ; Slap it again to make sure, to see it.
input 2 OK
output AT&F\13                  ; Reset the modem to factory profile.
input 2 OK
output AT&W\13                  ; Save the default profile.
input 2 OK
output ATB1\13                  ; At 1200, use Bell mode insead of CCITT.
input 2 OK
output ATM0\13                  ; Shut the speaker off.  ( Hush Puppy Mode )
input 2 OK
output ATS0=10\13               ; Answer on 10th ring.
input 2 OK
output AT&C1\13                 ; Shut off Result codes so DECserver no freak.
input 2 OK
output AT&S1\13                 ; Set it to use DSR.
input 2 OK
output AT&D3\13                 ; Use DTR modem control.
input 2 OK
output ATE0\13                  ; Shut off Command Echo.
input 2 OK
output ATQ1\13                  ; Shut off Result Codes some more.
input 2 OK
output AT&W\13                  ; And save it all.
input 2 OK
if fail errfail {Turn on or connect your modem!}
clear                           ; Clear input buffer

define errfail			; Erase ERRFAIL definition
end 0				; Finished, return success code.

:FAIL				; Dialing failed.
define errfail			; Erase ERRFAIL definition
end 1				; Return failure code.

<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>