; 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