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