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