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

 
Output of file : GENIE.CMD contained in archive : CA29-3.ZIP
S0 = 4 ; The dialing directory entry # for GEnie
LEGEND " GEnie.CMD" ; Put script name on status bar...
;
; ----- GEnie: Dial GEnie by direct connect
; ----------------------------------------------------------------
; Note: You must edit the values above to reflect your call.
; Variable S0 determines the entry # being dialed
; ----------------------------------------------------------------
; Note: This script uses a LOGON file prepared by MKLOGON,
; if one is available.
; ----------------------------------------------------------------
; 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 no other script. It *does* require
; a dialing directory entry be prepared (if NOT LINKed (i.e. Alt-D).
; ----------------------------------------------------------------
; S0 is modified by this script.
; ----------------------------------------------------------------
;
; Don't allow this script to execute unmodified
;
IF STRCMP S1(0:3) "name"; It's unmodified
MESS "^L" ; Clear screen
MESS "You must edit your ID and password into GEnie.CMD"
MESS "before you execute it as a script... ^M^J"
EXIT
ENDIF
;
; Dial GEnie direct
;
LEGEND " Dialing GEnie direct"
IF NOT LINKED ; If not from alt-d
DIAL S0 ; Dial directory entry number set above
IF FAILED EXIT ; IF esc out
ENDIF ; End test if linked
;
; Set initial settings
;
SET BSUPPRESS ON ; Turn on blank line suppression
SET MASK ON ; Turn on high bit mask
SET CDISPLAY OFF ; Ctl char display
SET DUPLEX HALF ; Turn echo on
;
; Synchronize with their modem
;
PAUSE "3" ; Wait for the modem to settle down
TRANSMIT "hhh" ; Transmit
;
; Send name and password
;
WAITFOR "U#=" ; Wait for the 'USER ID' prompt
;
; If we have a GENLOGON file, use it
;
SET TTHRU OFF ; Let psw be typed
IF ISSCFILE "GENLOGON" FCALL "GENLOGON"
;
; Exit - this script may be fcalled
;
IF FCALLED FRETURN ; Return to caller if called
ALARM ; Otherwise, sound alarm - we're done


  3 Responses to “Category : Communication (modem) tools and utilities
Archive   : CA29-3.ZIP
Filename : GENIE.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/