home *** CD-ROM | disk | FTP | other *** search
/ Share Gallery 1 / share_gal_1.zip / share_gal_1 / CO / CO029B.ZIP / CA28-3.ZIP / TYMNET.CMD < prev    next >
OS/2 REXX Batch file  |  1989-07-17  |  927b  |  34 lines
  1. ;
  2. ;    Make connection to TYMNET.  The dialing directory (or current
  3. ;    .. setting) define parity and speed.
  4. ;
  5.     LEGEND " Dialing TYMNET... "
  6.     DEFTIME "60"            ; Wait 60 seconds for an incoming string
  7.     IF NOT LINKED        ; If script not invoked from Alt-D
  8.        DIAL "9"             ; Call dial dir entry number 9 (TYMNET)
  9.        IF FAILED        ; IF esc out
  10.           EXIT        ; terminate script
  11.           ENDIF        ; End if failed
  12.        ENDIF        ; End if not linked
  13. ;
  14. ;    Make connection and let TYMNET sync with our parity/speed
  15. ;
  16.     WAITFOR "^M"            ; Wait for modem to clear
  17.     RGET S0 1        ; Wait for any char (60 sec default)
  18.     TRANSMIT "a"            ; Transmit char for synchronization
  19. ;
  20. ;    Set a few parms
  21. ;
  22.     SET MASK ON        ; Turn on high bit mask
  23.     SET CDISPLAY ON     ; Display ctl chars
  24. ;
  25. ;    Exit - this script may be called
  26. ;
  27.     IF FCALLED
  28.        FRETURN
  29.        ENDIF
  30. ;
  31. ;    And we're done
  32. ;
  33.     ALARM            ; Sound alarm - we're done
  34.