home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / COMMUNIC / CA24_1.ZIP / SCRIPTS.ZIP / GENIE.CMD < prev    next >
Encoding:
Text File  |  1988-11-21  |  1.1 KB  |  36 lines
  1. ;
  2. ;    COM-AND script file for GEnie.
  3. ;    .. may be used directly or from alt-d
  4. ;
  5.     LEGEND " Dialing GEnie direct"
  6.     DEFTIME "60"            ; Wait 60 seconds for an incoming string
  7.     IF NOT LINKED        ; If not from alt-d
  8.        RESET        ; Reset defaults only if not linked
  9.        DIAL "4"             ; Call dial dir entry number 4 (GEnie)
  10.        IF FAILED        ; IF esc out
  11.           EXIT        ; terminate script
  12.           ENDIF        ; Endif failed
  13.        ENDIF        ; End test if linked
  14.  
  15.     PAUSE "3"               ; Wait for the modem to settle down
  16.     TRANSMIT "hhh"          ; Transmit
  17.     WAITFOR "U#="           ; Wait for the 'USER ID' prompt
  18.  
  19.     SET BSUPPRESS ON    ; Turn on blank line suppression
  20.     SET MASK ON        ; Turn on high bit mask
  21.     SET CDISPLAY OFF    ; Ctl char display
  22.     SET DUPLEX HALF     ; Turn echo on
  23. ;
  24. ;    If we have a GENLOGON file, use it
  25. ;
  26.     SET TTHRU OFF        ; Let psw be typed
  27.     IF ISSCFILE "GENLOGON"
  28.        FCALL "GENLOGON"
  29.     ELSE
  30.        MESSAGE "^MEnter ID,password for GEnie:"
  31.        MGET S0        ; Get ID/psw
  32.        TRANSMIT S0        ; Transmit ID/psw
  33.        TRANSMIT "^M"        ; .. and a final c/r
  34.        Alarm        ; Sound alarm
  35.        ENDIF
  36.