home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / mskscripts / compaq.kds < prev    next >
Text File  |  2020-01-01  |  5KB  |  133 lines
  1. ; FILE COMPAQ.SCR
  2. ; 
  3. ; An MS-DOS Kermit script program for dialing the Compaq Internal Data+Fax
  4. ; 14400, 28800, or compatible modem, to be used with MS-DOS Kermit 3.15 or
  5. ; later.  The modem is set for RTS/CTS flow control, fixed interface speed,
  6. ; and to negotiate highest modulation, error correction, compression, and all
  7. ; types of fallback.
  8. ;
  9. ; Note: the manual contains no specific reference to error correction, data
  10. ; compression, speed buffering, hardware flow control, or BREAK transparency,
  11. ; so this is a just a best guess.
  12. ;
  13. ; Authors: C. Gianone & F. da Cruz, Columbia U, December 1996
  14. ;
  15. ; To use: SET MODEM=COMPAQ (in DOS, before starting Kermit or in AUTOEXEC.BAT)
  16. ; or:     SET MODEM COMPAQ (in Kermit, or in MSCUSTOM.INI)
  17. ; and:    Make sure Kermit has executed the standard MSKERMIT.INI file,
  18. ;         and then DIAL the desired number.
  19. ;
  20. ; Variables - define these prior to dialing if desired; they can be either
  21. ; Kermit variables or DOS environment variables:
  22. ; 
  23. ;   DIALPORT    - COM port to use for dialing (COM1, COM2, etc)
  24. ;   DIALSPEED   - Speed for dialing (57600 by default)
  25. ;   DIALMETHOD  - TONE or PULSE (modem's default method is used by default)
  26. ;   DIALRETRIES - Maximum times to redial the call (default 5)
  27. ;   DIALTIMEOUT - How long to wait for result from modem (default 90 seconds)
  28. ;
  29. if < VERSION 315 stop 1 MS-DOS Kermit 3.15 or later required.
  30. def ERRFAIL echo \%1, forward FAIL
  31. def CHKOK input 3 OK, if fail stop 1 \%1
  32.  
  33. local __dm __parity        ; Local variables
  34. set carrier off                 ; Don't require carrier during dialing.
  35. set input echo on        ; So we can watch what happens.
  36. set input timeout proceed       ; Allow IF SUCCESS, IF FAILURE.
  37. set input case ignore        ; Use caseless string comparisons
  38.  
  39. :PORT
  40. if not def DIALPORT asg DIALPORT \$(DIALPORT)
  41. if not def DIALPORT forward SPEED
  42. set port \m(DIALPORT)
  43. if success forward SPEED
  44. echo SET PORT \m(DIALPORT) failed 
  45. end 1
  46.  
  47. :SPEED
  48. asg __parity \v(parity)        ; Save parity setting
  49. set parity none            ; Switch to none while dialing
  50. set flow none            ; Avoid flow control deadlocks
  51. hangup                ; Begin by dropping DTR
  52.  
  53. if not def DIALSPEED asg DIALSPEED \$(DIALSPEED)
  54. if not def DIALSPEED asg DIALSPEED 57600
  55. set speed \m(DIALSPEED)
  56. if fail end 1 \m(DIALSPEED) - Speed not supported
  57.  
  58. ; Dial method, retry limit, and timeout...
  59.  
  60. xif numeric \fsubstr(\%1,1,1) {
  61.     if eq "\m(DIALMETHOD)" "TONE" asg __dm T
  62.     if eq "\m(DIALMETHOD)" "PULSE" asg __dm P
  63. }
  64. if not def DIALRETRIES asg DIALRETRIES \$(DIALRETRIES)
  65. if not def DIALRETRIES asg DIALRETRIES 5
  66.  
  67. if not def DIALTIMEOUT asg DIALTIMEOUT \$(DIALTIMEOUT)
  68. if not def DIALTIMEOUT asg DIALTIMEOUT 90
  69.  
  70. ; Begin the modem dialog...
  71.  
  72. echo Configuring Compaq Data+Fax Modem on \v(line)...
  73. output ATQ0V1\13        ; Enable word result codes
  74. chkok {Can't get modem's attention}
  75. output ATE1X4&C1&D2\13        ; Set echoing, result codes, etc.
  76. chkok {Can't initialize modem}
  77. output AT \\Q3\13        ; RTS/CTS hardware flow control
  78. chkok {Can't enable RTS/CTS}    ; On modem
  79. wait 5 cts
  80. if fail errfail {Configuration failed - no CTS from modem}
  81. set flow rts/cts        ; And in Kermit too, but only now
  82. output AT \\N3\13        ; Compression and EC enabled
  83. Chkok {Can't enable compression and EC}
  84. mpause 500
  85. clear input            ; Clear INPUT buffer.
  86. clear device            ; Clear device buffer.
  87.  
  88. echo Dialing \%1 on \v(line) at \v(speed) bps, wait...
  89. echo
  90.  
  91. for \%i 1 \m(DIALRETRIES) 1 {    ; Redial loop
  92.     xif > \%i 1 {
  93.         echo Redialing...       ; Message for redialing
  94.         hangup            ; Hang up first
  95.     }
  96.     pause 1            ; Wait a sec for modem to settle
  97.     output ATD\m(__dm)\%1\13    ; Dial the number.
  98.     minput \m(DIALTIMEOUT) -
  99.       CONNECT BUSY ERROR {NO CARRIER} {NO ANSWER} {NO DIALTONE} RING
  100.     xif fail { echo Call timed out, hangup, out \13, continue }
  101.     switch \v(minput) {
  102.       :1, forward done
  103.       :2, Echo Line is busy - will dial again in 30 seconds.
  104.           echo Press any key to cancel...
  105.           output \13
  106.           pause 30
  107.           if fail errfail Canceled
  108.           break
  109.       :3, errfail {Dialing command error}
  110.       :4, errfail {Call failed - no carrier}
  111.       :5, errfail {No answer - try again later}
  112.       :6, errfail {No dialtone - is your modem connected to the phone line?}
  113.       :7, errfail {Call failed - your phone is ringing}
  114.       :default, break
  115.     }    
  116. }
  117. errfail {It never answers!  I give up.} ; Too many tries.
  118.  
  119. :DONE                           ; Connected.
  120. echo \7                         ; Celebrate with a beep.
  121. set carrier on            ; Require carrier from now on.
  122. set parity \m(__parity)        ; Restore host parity setting
  123. undef errfail            ; Erase local macro definitions...
  124. end 0                ; Finished, return success code.
  125.  
  126. :FAIL
  127. undef errfail            ; Erase local macro definitions...
  128. set carrier off            ; Let them reconnect to see what's up.
  129. hangup
  130. end 1                ; Return failure code.
  131.  
  132. ; End of COMPAQ.SCR
  133.