; FILE IPP14400.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 Practical Peripherals and
; compatibles.
; 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 19200                 ; It's only a 1.44K 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 ATM0\13                  ; Shut the speaker off.  ( Hush Puppy Mode )
input 2 OK
output ATS0=3\13                ; Answer on 3rd ring.
input 2 OK
output ATL0\13                  ; Low Volume on speaker
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 AT&K2\13                 ; Use Xon/Xoff Flow 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.

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