home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
k95
/
1120
/
hostcom.ksc
< prev
next >
Wrap
Text File
|
2020-01-01
|
1KB
|
44 lines
; Kermit 95 host mode for direct serial connections.
;
asg _configfile \freplace(\v(exedir)scripts/host.cfg,/,\\)
def MAKEVAR2 if def \%2 _assign \%1 \%2, else _assign \%1
def MAKEVAR -
if = \findex(=,\%1,1) 0 end, -
asg \%9 _\freplace(\%1,=,\32), -
makevar2 \%9
open read \m(_configfile)
if fail forward noconfig
while true { read \%a, if fail break, makevar \%a }
:NOCONFIG
set modem type none
xif def _commport { -
set port \m(_commport),-
if fail stop 1 "\m(_commport)" - Invalid port -
}
xif def _comspeed { -
set speed \m(_comspeed), -
if fail stop 1 "\m(_comspeed)" - Invalid speed -
}
if not eq "\v(connection)" "serial" -
fail stop 1 -
"\v(line)" - Inappropriate connection type: "\v(connection)"
set carrier off
set flow rts/cts
take host.ksc
;
; There's no point in looping on direct connections, since you are probably
; in the same room with both computers and can set up the connection any
; time you want it. Since we don't wait on carrier, issuing the prompt when
; there is nothing on the other end results in lost data, "getty babble", or
; worse.
;
;; goto loop
end