home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / ca24_1.zip / SCRIPTS.ZIP / CIS.CMD < prev    next >
OS/2 REXX Batch file  |  1988-11-21  |  1KB  |  37 lines
  1. ;
  2. ;    Dial CIS directly
  3. ;
  4.     LEGEND " Dialing CIS direct..."
  5.     IF NOT linked
  6.        RESET        ; Reset defaults only if not linked
  7.        DEFTIME "60"         ; Wait 60 seconds for an incoming string
  8.        DIAL "3"             ; Call dial dir entry number 2 (CIS)
  9.        IF failed        ; IF esc out
  10.           EXIT        ; terminate script
  11.           ENDIF
  12.        ENDIF
  13. ;
  14. ;    Set initial values
  15. ;
  16.     SET BSuppress off    ; Turn off blank line suppression
  17.     SET Mask on        ; Turn on high bit mask
  18.     SET CDisplay off    ; disable ctl char displau
  19.     EMULATE VIDTEX        ; Make up/downloads automatic
  20. ;
  21. ;    Now - wait for the user ID prompt
  22. ;
  23.     Pause "3"               ; Wait for the modem to settle down
  24.     Transmit "!"            ; Transmit Carriage return <CR>
  25.     Waitfor "Host"          ; Wait 1 sec
  26.     Transmit "CIS!"         ; Respond CIS
  27.     Waitfor "User ID:"      ; Wait for the 'USER ID' prompt
  28. ;
  29. ;    If we have a CISLOGON file, use it
  30. ;
  31.     SET TTHRU OFF        ; Let psw be typed
  32.     IF ISSCFILE "CISLOGON"
  33.        FCALL "CISLOGON"
  34.     ELSE
  35.        Alarm           ; Sound alarm
  36.        ENDIF
  37.