home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / COMMUNIC / CA24_1.ZIP / SCRIPTS.ZIP / SOURCE.CMD < prev    next >
Encoding:
Text File  |  1988-11-21  |  1.2 KB  |  35 lines
  1. ;
  2. ;    Dial the SOURCE through Telenet at 1200
  3. ;
  4.     LEGEND " Dialing SOURCE through Telenet"
  5.     IF NOT LINKED        ; If not invoked through Alt-D
  6.        RESET        ; Reset defaults only if not linked
  7.        DIAL "6"             ; Call dial dir entry number 6 (Telenet)
  8.        IF FAILED        ; IF esc out
  9.           EXIT        ; terminate script
  10.           ENDIF        ; End if failed
  11.        ENDIF        ; End if not linked
  12.  
  13.     PAUSE "3"               ; Wait for the modem to settle down
  14.     TRANSMIT "!D"           ; Transmit Carriage return <CR> D (8 bit)
  15.     TRANSMIT "!"            ; Transmit Carriage return <CR>
  16.     WAITFOR "TERMINAL="     ; Wait for "TERMINAL=" to be received
  17.     TRANSMIT "D1!"          ; give telenet the terminal identifier
  18.     WAITFOR "@"             ; Wait for "@" to be received
  19.     TRANSMIT "C S15!"       ; Send request to telenet for PLINK
  20.     WAITFOR ">"             ; Wait for logon prompt
  21.     TRANSMIT "ID "          ; Start logon (Send "ID ")
  22.  
  23.     SET BSUPPRESS OFF    ; Turn off blank line suppression
  24.     SET MASK ON        ; Turn on high bit mask
  25.     SET CDISPLAY ON     ; Display ctl chars
  26. ;
  27. ;    If we have a STCLOGON file, use it
  28. ;
  29.     SET TTHRU OFF        ; Let psw be typed
  30.     IF ISSCFILE "STCLOGON"
  31.        FCALL "STCLOGON"
  32.     ELSE
  33.        Alarm        ; Sound alarm
  34.        ENDIF
  35.