home *** CD-ROM | disk | FTP | other *** search
/ The Devil's Doorknob BBS Capture (1996-2003) / devilsdoorknobbbscapture1996-2003.iso / Dloads / SYSOP / KERMIT.ZIP / SUPRA.SCR < prev    next >
Text File  |  1994-10-12  |  6KB  |  125 lines
  1. ; File SUPRV32B.SCR -- minor modification of Christine's HAYES.SCR.
  2. ; To be used with MS-DOS Kermit 3.11 or later.
  3. ; 
  4. ; Stored in Kermit Distribution as MSMSUPRA.SCR; rename to SUPRA SCR if
  5. ; necessary so the DIAL macro can find it.  Place this file in your current
  6. ; directory or in any directory in your DOS PATH, and then set the DOS
  7. ; environment variable, MODEM, to be SUPRA.  Give the following command at the
  8. ; DOS prompt before starting Kermit, or add it to your AUTOEXEC.BAT file:
  9. ;
  10. ;   SET MODEM=SUPRA
  11. ; An MS-DOS Kermit script program for dialing a SupraFAXmodem V.32bis modem
  12. ; and compatibles.  Will probably work with the non-fax and V.32 versions of
  13. ; this modem, but this has not been tested.  The Supra, like most V.32/V.32bis
  14. ; modems, is Hayes-compatible up to the point that one starts dealing with
  15. ; buffering, error-correction, and compression modes.
  16. ; 
  17. ; The modem setup specified below provides for "error correction call
  18. ; progress" reporting.  This may be useful in making other session decisions,
  19. ; e.g., max packet sizes/windows, and should be displayed to the user.  Also,
  20. ; modem is set up for RTS/CTS, buffering, local flow control, etc. and Kermit
  21. ; is placed into the corresponding modes.  One should not attempt to use one
  22. ; of these things without an adequate shielded cable.  See also the speed
  23. ; discussion below.
  24. ;
  25. ; Lines containing *** may require local editing.
  26. ; Expects variable %\1 to contain the phone number; this is done
  27. ; by the DIAL macro defined in MSKERMIT.INI.
  28. ;
  29. ; Uses ATD (modem's default dialing method) to dial the number.  Force tone
  30. ; dialing by including T as first character of phone number, or pulse dialing
  31. ; by including P as first character.
  32. ;
  33. ; Sets SUCCESS flag if dialing succeeds, sets FAILURE flag 
  34. ; if it fails.
  35. ;
  36. ;  Author: John C. Klensin, August 1992 (modified from HAYES.SCR by
  37. ;     Christine M. Gianone (July 1991).  Requires MS-DOS Kermit 3.11 or later.
  38. ;
  39. ; The normal DTE <-> DCE speed of this modem is 57.6 Kbps, regardless of the
  40. ; line or character speed.  Set that number here, regardless of what the
  41. ; DIALUPS file says.  However, this may exceed the speed at which may MSDOS
  42. ; computers can deal with characters and should be reduced if necessary.
  43. ;
  44. echo  Using SupraFaxModem V.32bis\13  ; Comforting in multimodem environment.
  45. set speed 57600                  ;****
  46. ;
  47. set flow rts                          ; Nothing else works at these speeds
  48.                       ; and modem is initialized to it.
  49. def errfail echo \%1,hangup,goto fail ; Macro to handle failures.
  50.  
  51. set input timeout proceed       ; Allow IF SUCCESS, IF FAILURE
  52. set input echo off              ; Don't echo the modem test
  53. output AT&F2W1\13               ; Send AT, use word result codes. &F2 is
  54.                                 ; special init for MSDOS. Report ECC progress.
  55. input 2 OK                      ; Modem should say "OK"
  56. if fail errfail {Turn on or connect your modem!}
  57. clear                ; Clear input buffer
  58. ;
  59. if not equ \%1 = goto dialnow   ; This provides for initialization only.
  60. echo Modem initialization completed, no number to dial
  61. end 0
  62. :dialnow
  63. set count 5                     ; Set up dialing retry counter
  64. set input echo on               ; From now on, show what happens
  65. echo Dialing \%1, wait...
  66. pause 1
  67. goto dial                       ; 1st time, skip Redialing message
  68. :REDIAL
  69. set alarm 30
  70. pause 30            ; Wait 30 seconds before redialing.
  71. if not alarm errfail {Dialing canceled.}
  72. echo Redialing...               ; Message for redialing.
  73. pause 1
  74. :DIAL
  75. output ATD\%1\13                ; Dial the number (ATDT or ATDP)
  76. :GETMSG
  77. set alarm 60            ; Detect keyboard interruptions.
  78. input 40 \10                    ; Wait for the linefeeds...
  79. input 20 \10            ; that surround response message.
  80. if success goto gotmsg        ; Got a message.
  81. if alarm errfail {No response from modem.} ; No response in 60 secs.
  82. hangup                ; User interrupted from keyboard,
  83. if count goto redial        ; so try again right away.
  84.  
  85. :GOTMSG
  86. reinput 0 CONNECT               ; Got message, was it CONNECT?
  87. if success goto speed           ; DTE-DCE rate.  Successful, continue
  88. reinput 0 ERROR            ; No, check for command error.
  89. if success errfail {Modem command error.}
  90. reinput 0 CARRIER        ; Connection rate (DCE-DCE)
  91. if success goto getmsg        ; no action
  92. reinput 0 PROTOCOL        ; Error correction type (NONE/LAPM/ALT)
  93. if success goto getmsg        ; no action (=/V.42/MNP)
  94. reinput COMPRESSION        ; Compression type (CLASS 5/V.42BIS/NONE)
  95. if success goto getmsg        ; no action (=MNP5/V.42bis/)
  96. reinput 0 RING            ; Ring signal detected.  Not a Hayes
  97. if success goto getmsg        ; Look for something useful.
  98. reinput 0 NO CARRIER        ; NO CARRIER?
  99. if success goto busy        ; Treat like BUSY.
  100. reinput 0 BUSY                  ; BUSY?
  101. if success goto busy         ; Go wait a bit, then dial again.
  102. errfail {No dialtone or no answer.  Try again later.}
  103.  
  104. :BUSY
  105. if < \v(count) 2 goto quit    ; Don't wait 60 seconds if tries used up.
  106. Echo Busy or No Carrier, will dial again in 30 seconds...
  107. echo Press any key to cancel...
  108. hangup                          ; Hang up.
  109. :AGAIN
  110. if count goto redial            ; Then go redial.
  111. :QUIT
  112. errfail {It never answers!  I give up.} ; Too many tries.
  113.  
  114. ; The following block is retained for compatibility for HAYES.SCR.  Since
  115. ; this modem buffers (always retains the same DCE<->DTE speed), the computer
  116. ; should not speed-match and the next section is a no-op.
  117. :SPEED                          ; Connected!
  118. echo \7                         ; Celebrate with a beep.
  119. define errfail            ; Erase ERRFAIL definition
  120. end 0                ; Finished, return success code.
  121.  
  122. :FAIL                ; Failed, return failure code.
  123. define errfail            ; Erase ERRFAIL definition
  124. end 1
  125.