home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / pc / termprog / ca28_3.zoo / unison.cmd < prev    next >
Encoding:
Text File  |  1991-06-22  |  1.9 KB  |  68 lines
  1. ; ----- Dial UNISON through TELENET and logon
  2. ;    R.McG; 7/89, Chicago
  3. ; ----------------------------------------------------------------
  4. ;    Note: This script expects dialing directory entry #10 to
  5. ;    be set to dial TELENET.
  6. ; ----------------------------------------------------------------
  7. ;    Note: This script uses a LOGON file prepared by MKLOGON,
  8. ;    if one is available.
  9. ; ----------------------------------------------------------------
  10. ; Usages:
  11. ;      S0 ------> Destroyed
  12. ;
  13. ; Requires:
  14. ;      TELENET.CMD
  15. ;      UNILOGON.CMD
  16. ;
  17. ; This script may be FCALLED
  18. ; ----------------------------------------------------------------
  19. ;    Dial the UNISON through Telenet at 1200
  20. ;
  21.     LEGEND " Dialing UNISON through Telenet"
  22.     IF NOT LINKED        ; If not invoked through Alt-D
  23.        RESET        ; Reset defaults only if not linked
  24.        DIAL 7        ; Call dial dir entry number 7 (Telenet)
  25.        IF FAILED        ; IF esc out
  26.           EXIT        ; terminate script
  27.           ENDIF        ; End if failed
  28.        ENDIF        ; End if not linked
  29. ;
  30. ;    Invoke the Telenet script
  31. ;
  32.     SET LINKED ON
  33.     FCALL "Telenet"         ; Invoke sister scrtip
  34.     SET TTHRU OFF        ; Let psw be typed
  35. ;
  36. ;    Connect to UNISON
  37. ;
  38.     LEGEND "Connecting to UNISON"
  39.     TRANSMIT "!"            ; Send a c/r to get another prompt
  40.     WAITFOR "@"             ; Wait for "@" to be received
  41.     TRANSMIT "C UNISON!"    ; Send request to telenet for SOURCE
  42.     WAITFOR "Username:"     ; Wait for logon prompt
  43. ;
  44. ;    Set a few parms
  45. ;
  46.     SET BSUPPRESS OFF    ; Turn off blank line suppression
  47.     SET MASK ON        ; Turn on high bit mask
  48.     SET CDISPLAY ON     ; Display ctl chars
  49.     SET BACKSP OUT DELETE    ; Nondestructive BS
  50. ;
  51. ;    If we have a UNILOGON file, use it
  52. ;
  53.     IF ISSCFILE "UNILOGON"
  54.        FCALL "UNILOGON"
  55.        SET SUCCESS ON
  56.     ELSE
  57.        SET SUCCESS OFF
  58.        ENDIF
  59.     SET TTHRU ON        ; Allow typethrough again
  60. ;
  61. ;    If invoked via FCALL, return.  Else signal completion
  62. ;
  63.     IF FCALLED
  64.        FRETURN        ; W/ SUCCESS set according to logon logoff
  65.     ELSE
  66.        Alarm        ; Sound alarm
  67.        ENDIF
  68.