Category : Communication (modem) tools and utilities
Archive   : CA29-3.ZIP
Filename : CONNECT.CMD

 
Output of file : CONNECT.CMD contained in archive : CA29-3.ZIP
; ----- CONNECT: Autoanswer script
; ----------------------------------------------------------------
; Note: This script waits for a received call. It auto-bauds
; according to the modem's CONNECT response. It initializes
; COM-AND to chat mode, CR -> CRLF, and CLOGs the fact.
; ----------------------------------------------------------------
; Note: The hard coded autoanswer command here may need
; recoding according to your modem.
; ----------------------------------------------------------------
;
; Initialize
;
ON ESCAPE GOSUB EXIT ; Escape pressed
SET PARITY NONE ; Turn off parity
SET DATA 8 ; Set 8 databits
SET MASK ON ; Mask received text to 7 bits
;
; Go into auto answer (echo off, answer on 2nd)
; .. Also: Return result codes, word form, with CONNECT 1200
;
Restart:
LEGEND " Waiting for call"
Pause 3 ; Wait 3 seconds
HANGUP ; HANGUP and leave modem in cmd mode
PAUSE 3 ; Wait 3 secs
MESSAGE "^MWaiting..."
TRANSMIT "ATE0Q0V1X1S0=2 S7=30 S9=10^M"
;
; -----------------------------------------------------------------------
; ----- Wait for a connect
; -----------------------------------------------------------------------
;
Wait_Connect:
RGET S9 80 180 ; Wait for a line
IF NOT SUCCESS ; If nothing was read
GOTO Wait_Connect
ENDIF

FIND S9 "NO CARRIER" ; Look for a disconn
IF FOUND
GOTO Restart
ENDIF

FIND S9 "CONNECT" ; Anything else BUT CONNECT
IF NOT FOUND ; .. waits
GOTO Wait_Connect
ENDIF

;*** IF NOT CONNECTED ; SOme modems aren't fast enough
;*** GOTO Wait_Connect ; .. to set this right away
;*** ENDIF
;
; -----------------------------------------------------------------------
; ----- Change baud rate according to connect
; -----------------------------------------------------------------------
;
FIND S9 "1200" ; Test for 1200 baud
IF FOUND ; IF found
SET BAUD 1200 ; Set to 1200 baud
GOTO Finish ; We're done.
ENDIF

FIND S9 "2400" ; Test for 1400 baud
IF FOUND ; IF found
SET BAUD 2400 ; Set to 1400 baud
GOTO Finish ; We're done.
ENDIF
;
; None of the above... set to 300
;
SET BAUD 300 ; Set to 1200 baud
;
; Exit - set-up for conversational mode
;
Finish:
SET CHAT ON ; Set chat mode
SET CR CR_LF ; Incoming Cr's as CRLF
CLOG "* Auto-answer" ; Log it
ALARM ; Sound alarm
;
; The exit is separately labelled to allow ESC to terminate quickly
;
Exit:
EXIT


  3 Responses to “Category : Communication (modem) tools and utilities
Archive   : CA29-3.ZIP
Filename : CONNECT.CMD

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/