;
;       HOSTMODE.ASP (a part of the TSPFON23 or later package)
;                         by Timo Salmi
;                           27-Dec-88
;
; Makes Procomm Plus and the modem (a Worldport 2400) ready for the host mode.
; Important notice! Depending on your individual Procomm Plus settings and
; your modem's characteristics you may have to customize hostmode.asp!
;
; After running this script you should have the text "Waiting" in the
; lower left corner of the screen. If the logon procedure starts without
; anyone calling, check that the Host Mode Options menu item D (ALT-S)
; is set to modem, not direct.
;
; After exiting the Procomm Plus host mode, entering ATZ restores the
; default settings of the modem.

TRACE ON
SET BACKSPACE DEST
;If you don't want a translation, comment it away (and so on!)
SET TRANSLATE ON        
SET BAUDRATE 1200
EMULATE ANSI
TRACE OFF

PAUSE 1
TRANSMIT "AT^M"         ;Wake up the modem

PAUSE 1
TRANSMIT "ATZ^M"        ;Initialize the modem

;Increase the carrier singnal maximum wait
;In case of problems, adjust accordingly the wait for connection (F-option)
;in the Procomm Plus setup menu (ALT-S)
PAUSE 1
TRANSMIT "ATS7=40^M"    

;Set the autoanswer on and make it reply on the first ring
;You may want to increase ATS0 from 1 to be able to act before a connection
PAUSE 1
TRANSMIT "ATS0=1^M"     
WAITFOR "OK"  5
IF NOT WAITFOR
  ALARM 1
  MESSAGE "Failed to set autoanswer on"
  GOTO OUT
ENDIF

;Turn the modem's local echo off if necessasy
;I have commented it away, since it is not needed in my configuration
;TRANSMIT "ATE0^M"       

;Turn the modem's result codes off if necessary
;TRANSMIT "ATQ1^M"       

HOST                    ;Start the host mode

OUT: