home *** CD-ROM | disk | FTP | other *** search
- LEGEND " BIX.CMD" ; Put script name on status bar...
- ;
- ; ----- BIX: Connect to BIX through TymNet
- ; ----------------------------------------------------------------
- ; Note: You must create a logon file with MKLOGON in order to
- ; have this script automatically log you on... Please see the
- ; file SCRIPTS.DOC
- ; ----------------------------------------------------------------
- ; Note: This script is written to be FCALLed, executed directly (F2)
- ; or attached to a dialing directory entry (for manual execution).
- ; ----------------------------------------------------------------
- ; Note: This script requires the script TYMNET.CMD. TYMNET.CMD
- ; requires that a dialing directory entry number be prepared.
- ; Unless you modify TYMNET.CMD, the entry number defaults to 9.
- ; ----------------------------------------------------------------
- ; S0 is modified by this script.
- ; ----------------------------------------------------------------
- ;
- ; Call Tymnet (if not already dialed)
- ;
- IF NOT ISSC "TYMNET" ; If script not available
- MESS "TYMNET.CMD script not found"
- EXIT ; terminate script
- ENDIF
- FCALL "Tymnet" ; Dial Tymnet
- LEGEND " Connecting to BIX..."
- ;
- ; Connect to BIX
- ;
- TRANSMIT "bix!" ; Tell Tymnet to connect to BIX
- ;
- ; Wait for ID prompt
- ;
- WAITFOR "Name? " ; Wait for BIX name prompt
- ;
- ; If we have a BIXLOGON file, use it
- ;
- SET TTHRU OFF ; Let psw be typed
- IF ISSCFILE "BIXLOGON" FCALL "BIXLOGON"
- ;
- ; Exit - this script may be fcalled
- ;
- IF FCALLED FRETURN ; Return to caller if called
- ALARM ; Otherwise, sound alarm - we're done