home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: DFÜ und Kommunikation / SOS-DFUE.ISO / programm / dos / terminal / ca_29 / delphisn.cmd < prev    next >
Encoding:
Text File  |  1992-10-26  |  1.8 KB  |  51 lines
  1. LEGEND " Delphi.cmd"            ; Put script name on status bar...
  2. ;
  3. ; ----- Delphi: Dial Delphi through Sprintnet
  4. ; ----------------------------------------------------------------
  5. ;    Note: You must create a logon file with MKLOGON in order to
  6. ;    have this script automatically log you on... Please see the
  7. ;    file SCRIPTS.DOC
  8. ; ----------------------------------------------------------------
  9. ;    Note: This script is written to be FCALLed, executed directly (F2)
  10. ;    or attached to a dialing directory entry (for manual execution).
  11. ; ----------------------------------------------------------------
  12. ;    Note: This script requires the script SPRINT.CMD.  SPRINT.CMD
  13. ;    requires that a dialing directory entry number be prepared.
  14. ;    Unless you modify SPRINT.CMD, the entry number defaults to 10.
  15. ; ----------------------------------------------------------------
  16. ;    S0 is modified by this script.
  17. ; ----------------------------------------------------------------
  18. ;
  19. ;    Call Tymnet (if not already dialed)
  20. ;
  21.     IF NOT ISSC "SPRINT"    ; If script not available
  22.        MESS "SPRINT.CMD script not found"
  23.        EXIT         ; terminate script
  24.        ENDIF
  25.     FCALL "Sprint"          ; Dial SPRINTNet
  26.     LEGEND " Connecting to Delphi"
  27. ;
  28. ;    Connect to Delphi
  29. ;
  30.     TRANSMIT "c delphi!"    ; give telenet the host name identifier
  31. ;
  32. ;    Set states
  33. ;
  34.     SET BSUPPRESS OFF    ; Turn off blank line suppression
  35.     SET MASK ON        ; Turn on high bit mask
  36.     SET CDISPLAY OFF    ; Delphi command set
  37. ;
  38. ;    Send name and password
  39. ;
  40.     WAITFOR "Username"      ; Wait for "Username" to be received
  41. ;
  42. ;    If we have a DELLOGON file, use it
  43. ;
  44.     SET TTHRU OFF        ; Let psw be typed
  45.     IF ISSCFILE "DELLOGON" FCALL "DELLOGON"
  46. ;
  47. ;    Exit - this script may be fcalled
  48. ;
  49.     IF FCALLED FRETURN    ; Return to caller if called
  50.     ALARM            ; Otherwise, sound alarm - we're done
  51.