home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
cu.tar.gz
/
cu.tar
/
rolm.scr
< prev
next >
Wrap
Text File
|
1991-09-07
|
3KB
|
84 lines
; FILE ROLM.SCR
;
; To be used with MS-DOS Kermit 3.11 or later.
;
; An MS-DOS Kermit script program for dialing from a data-equipped ROLMphone.
;
; Stored in Kermit Distribution as MSIROL.SCR; rename to ROLM.SCR if necessary
; so the DIAL macro can find it. Place this file in your current directory,
; or any directory in your DOS PATH.
;
; Expects variable \%1 to contain the phone number or data group name. This
; is done by the DIAL macro defined in MSKERMIT.INI. To make the DIAL macro
; use this file instead of HAYES.SCR, change the definition of "_modem" in
; MSKERMIT.INI from "hayes" to "rolm".
;
; If you lack the DIAL macro definition, use this simple substitute:
; DEFINE DIAL TAKE ROLM.SCR
; To use, just type "DIAL nnnnnnn" at the MS-Kermit> prompt, where "nnnnnnn"
; is the desired phone number or Rolm data group name.
;
; Sets SUCCESS flag if dialing succeeds, sets FAILURE flag
; if it fails, for use with IF SUCCESS, IF FAILURE, \v(status).
;
; Author: Christine M. Gianone, September 1991.
; Fatal error macro.
;
def errfail if not def \%1 def \%1 Failed - try again later.,-
echo \%1, hangup, goto fail
; Macro to check error messages.
;
def chkmsg reinput 0 \%1, if success errfail
if < VERSION 311 errfail {MS-DOS Kermit 3.11 or later required.}
set input timeout proceed ; Allow IF SUCCESS, IF FAILURE
set input echo on ; Let's watch what happens
clear ; Clear out old stuff from INPUT buffer
set count 3 ; Try up to 3 times to get Rolm prompt
:LOOP
output \13 ; Send carriage return
input 3 MODIFY\63\13\10 ; ROLMphone says "CALL, DISPLAY OR MODIFY?"
if success goto dial ; Got it.
if count goto loop ; Didn't get it, try again.
echo ROLMphone not responding on port \v(port) at speed=\v(speed).
errfail {Please check your connection and try again.}
:DIAL
pause 1 ; Wait a second
output CALL \%1\13 ; Dial the number
set count 12 ; Try up to 12 times to read a known response
:GETMSG
input 40 \13 ; Look for a carriage return.
if fail errfail {No response to CALL command}
reinput 0 CALL COMPLETE ; The response we wanted.
if success goto gotit
chkmsg {NOT A DATALINE} ; Check for error messages.
chkmsg {FAILED} ; This lets us fail right away, rather
chkmsg {BUSY} ; than waiting forever for CALL COMPLETE
chkmsg {LACKS PERMISSION} ; not to show up...
chkmsg {DOES NOT ANSWER}
chkmsg {ABANDONED}
reinput 0 NOT AVAILABLE ; This one needs a hint
if fail goto again
echo Failed - Most likely cause: \v(speed) bps can't be used with \%1.
errfail {Please change your speed and try again.}
:AGAIN
if count goto getmsg ; None of these, wait for another message.
errfail {Sorry - I don't understand these reponses.} ; Too many tries.
:GOTIT
echo \7 ; Succeeded, beep
define errfail ; Erase ERRFAIL definition
define chkmsg ; CHKMSG definition too
end 0 ; Finished, return success code.
:FAIL ; Dialing failed.
define errfail ; Erase ERRFAIL definition
define chkmsg ; CHKMSG definition too
end 1 ; Return failure code.