Category : Communication (modem) tools and utilities
Archive   : PROTIME.ZIP
Filename : HOST.CMD

START:
Clear
SET BAUDRATE 1200
SET PARITY NONE
SET DATABITS 8
SET STOPBITS 1
SET PORT COM1
SET FLOWCONTROL OFF
DOS "ProTime"

Beginning:
Set Duplex Full
Transmit "AT S0=1!" ; Set modem to answer on first ring.
Clear
Set Duplex Half
Locate 1,0
Message "Modem set for autoanswer."
Message "Ring will trigger prompt for Host Mode password."
WaitFor "RING" 600 ; Wait 10 min. for ring.
If WaitFor
Goto Ready ; Phone rang, so get ready for Host mode.
Else
Goto Check ; No ring. Go check ProTime.
Endif

Ready:
Assign S1 "????????" ; Substitute your own password
Pause 6 ; Wait 6 seconds for connection.
Transmit "Enter the password: "
Rget S1 8 45
If Failed
Transmit "Time's up. Goodbye.^M^J^J"
Goto Check ; 45 seconds up. Go check ProTime.
EndIf
WaitFor "NO CARRIER" 1
If WaitFor
Message "Caller hung up."
Goto Check ; Caller hung up
EndIf
Find S1 "????????" ; Substitute your own password
If not found
Transmit "Sorry, you are not authorized.^M^J^J"
Goto Check ; Unauthorized user. Go check ProTime.
EndIf

Mode:
Transmit "Accepted.^M^J"
Transmit "Host Mode is ready. Now place your second call.^M^J"
Transmit "P.S. Don't forget to sign off from Host Mode with Ctrl-Z.^M^J^J"
HangUp

SET HOSTPSWD "????????" ; Substitute your own password
SET SHELLPSWD "????????" ' Substitute your own password
HOST ; Made it to Host Mode!

If Not Connected ; Host mode was disabled remotely.
Goto Check ; Go check ProTime.
Endif

Check:
Set Duplex Full
Clear
HangUp
Transmit "AT S0=0!" ; Disable autoanswer.
DOS "ProTime" ; Run ProTime
Goto Beginning ; Loop back and resume waiting