home *** CD-ROM | disk | FTP | other *** search
- ;
- ; Make connection to TYMNET. The dialing directory (or current
- ; .. setting) define parity and speed.
- ;
- LEGEND " Dialing TYMNET... "
- DEFTIME "60" ; Wait 60 seconds for an incoming string
- IF NOT LINKED ; If script not invoked from Alt-D
- DIAL "9" ; Call dial dir entry number 9 (TYMNET)
- IF FAILED ; IF esc out
- EXIT ; terminate script
- ENDIF ; End if failed
- ENDIF ; End if not linked
- ;
- ; Make connection and let TYMNET sync with our parity/speed
- ;
- WAITFOR "^M" ; Wait for modem to clear
- RGET S0 1 ; Wait for any char (60 sec default)
- TRANSMIT "a" ; Transmit char for synchronization
- ;
- ; Set a few parms
- ;
- SET MASK ON ; Turn on high bit mask
- SET CDISPLAY ON ; Display ctl chars
- ;
- ; Exit - this script may be called
- ;
- IF FCALLED
- FRETURN
- ENDIF
- ;
- ; And we're done
- ;
- ALARM ; Sound alarm - we're done