home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / archives / msr313src.zip / msmc144p.scr < prev    next >
Text File  |  1994-01-10  |  6KB  |  141 lines
  1. ; FILE CONN144P.SCR (MSMC144P.SCR)
  2. ; 
  3. ; An MS-DOS Kermit script program for dialing the Digicom Connection 144+
  4. ; (previously known as the Connection 96+; there is no functional difference)
  5. ; 14400 modem, to be used with MS-DOS Kermit 3.12 or later.  The modem is set
  6. ; for V.32bis, compression, error correction (if appropriate software loaded),
  7. ; RTS/CTS flow control, fixed interface speed of 115200, 57600, or 38400.
  8. ; NOTE: Compression is enabled only if DATA144B software is loaded in the 
  9. ; modem.  Do not use %C1 to enable compression, because the modem will
  10. ; malfunction if this command is given but DATA144B is not loaded (if it is
  11. ; loaded, compression will be enabled automatically anyway).
  12. ;
  13. ; Rename this file to CONN144P.SCR if necessary.
  14. ;
  15. ; To use: SET MODEM=CONN144P (in DOS, before starting Kermit)
  16. ; or:     DEFINE _MODEM CONN144P (in Kermit, before dialing)
  17. ; and:    Make sure Kermit executes the standard MSKERMIT.INI file.
  18. ;
  19. ; Authors: Christine M. Gianone, Frank da Cruz; Columbia U, September 1993
  20. ; Adapted from DATAPORT.SCR by Mike Long; January 1994
  21. ;
  22. def errfail echo \%1, hangup, goto fail ; Macro to handle failures.
  23. if < VERSION 312 errfail {MS-DOS Kermit 3.12 or later required.}
  24. if eq "\v(system)" "UNIX" if = \v(local) 0 stop 1 You must SET LINE first
  25.  
  26. define chkerr if fail stop 1 \%1
  27. define chkok input 3 OK, if fail stop 1 \%1
  28.  
  29. set input echo on               ; So we can watch what happens.
  30. set input timeout proceed       ; Allow IF SUCCESS, IF FAILURE.
  31. set input case ignore           ; Use caseless string comparisons
  32.  
  33. set parity none                 ; Avoid parity foulups
  34. set flow none                   ; Avoid flow control deadlocks
  35. hangup                          ; Begin by dropping DTR
  36. pause 1                         ; for one second
  37.  
  38. ; Speed.  Don't worry about modem, it autobauds up to 115200 bps.
  39. ;
  40. set speed 57600                 ; If computer can be set to 57600 bps, use it.
  41. if fail set speed 38400         ; If not, use 38400.
  42.  
  43. wait 0 DSR                      ; Check modem signals that should be on
  44. chkerr {No DSR signal - check your modem}
  45. wait 0 CTS
  46. chkerr {No CTS signal - check your modem}
  47.  
  48. echo Configuring Digicom Connection 144+ on \v(line).\13\10
  49.  
  50. :INIT
  51. output ATQ0V1\13                ; Enable word result codes
  52. chkok {Can't get modem's attention}
  53. ; E1 = Echo commands
  54. ; W0 = Don't show error correction & compression status
  55. ; X4 = Verbose result codes, show modulation speed
  56. ; &C1 = CD follows RS232
  57. ; &D2 = DTR follows RS232
  58. output ATE1W1X4&C1&D2\13
  59. chkok {Can't initialize modem}
  60. output AT&K3\13                 ; RTS/CTS hardware flow control
  61. chkok {Can't enable RTS/CTS}    ; On modem
  62. set flow rts/cts                ; And in Kermit too, but only now
  63. output AT\92N5\13               ; Auto-reliable V.42, and V.42bis enabled
  64. chkok {Can't enable compression or error correction}
  65. output AT&V\13                  ; Show modem configuration
  66. chkok {Can't display configuration}
  67. echo Firmware version:\13\10
  68. output ATI3\13                  ; Show modem software version
  69. chkok {Can't determine modem software version}
  70.  
  71. if def \%1 if not equal "\%1" "=" goto BEGIN
  72. echo Modem initialization complete, no number to dial
  73. end 0
  74.  
  75. :BEGIN                          ; Now DIAL.
  76. clear                           ; Clear INPUT buffer.
  77. set count 5                     ; Dialing retry counter, 5 tries allowed.
  78. echo Dialing \%1 on \v(line) at \v(speed) bps, wait...
  79. echo
  80. pause 1
  81. goto dial                       ; 1st time, skip pause and Redialing message
  82.  
  83. :REDIAL
  84. set alarm 30
  85. pause 30                        ; Wait 30 seconds before redialing.
  86. if not alarm errfail {Dialing canceled.}
  87. echo Redialing...               ; Message for redialing.
  88. pause 1
  89.  
  90. :DIAL
  91. output ATD\%1\13                ; Dial the number.
  92. set alarm 90                    ; (For detecting keyboard interruptions.)
  93. if > VERSION 312 clear input    ; Clear echo from INPUT buffer.
  94. if < VERSION 313 clear
  95. input 30 \10                    ; Wait for the linefeeds...
  96.  
  97. :GETMSG
  98. input 60 \10                    ; ...that surround the response message.
  99. if success goto gotmsg          ; Got a message.
  100. if alarm errfail {No response from modem.} ; No response in 90 seconds.
  101. hangup                          ; User interrupted from keyboard,
  102. output \13                      ; cancel dialing by sending carriage return,
  103. goto again                      ; and go try again right away.
  104.  
  105. :GOTMSG
  106. reinput 1 CONNECT               ; Got a message, was it CONNECT?
  107. if success goto done            ; If so, we're done.
  108. reinput 1 BUSY                  ; Line is busy.
  109. if success goto busy            ; Go wait a while and then dial again.
  110. reinput 1 ERROR                 ; Command syntax error.
  111. if success errfail {Dialing command error}
  112. reinput 1 NO CARRIER            ; Phone didn't answer or no carrier.
  113. if success errfail {No answer or no carrier}
  114. reinput 1 NO ANSWER             ; No answer
  115. if success errfail {No answer - try again later}
  116. reinput 1 NO DIALTONE           ; No dialtone when phone taken off hook.
  117. if success errfail {No dialtone - Is your modem connected to the phone line\63}
  118. goto getmsg                     ; None of the above, get another message.
  119.  
  120. :BUSY
  121. if < \v(count) 2 goto quit      ; Don't wait 30 seconds if tries are used up.
  122. Echo Line is busy, will dial again in 30 seconds.
  123. echo Press any key to cancel...
  124. output \13                      ; CR cancels dialing
  125. hangup                          ; Hang up.
  126. :AGAIN
  127. if count goto redial            ; Then go redial.
  128. :QUIT
  129. errfail {It never answers!  I give up.} ; Too many tries.
  130.  
  131. :DONE                           ; Connected.
  132. echo \7                         ; Celebrate with a beep.
  133. define errfail                  ; Erase local macro definitions...
  134. end 0                           ; Finished, return success code.
  135.  
  136. :FAIL                           ; Dialing failed, no beep.
  137. define errfail                  ; Erase local macro definitions...
  138. end 1                           ; Return failure code.
  139.  
  140. ; End of CONN144P.SCR
  141.