home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / k95 / 1120 / hostcom.ksc < prev    next >
Text File  |  2020-01-01  |  1KB  |  44 lines
  1. ; Kermit 95 host mode for direct serial connections.
  2. ;
  3. asg _configfile \freplace(\v(exedir)scripts/host.cfg,/,\\)
  4.  
  5. def MAKEVAR2 if def \%2 _assign \%1 \%2, else _assign \%1
  6.  
  7. def MAKEVAR -
  8.   if = \findex(=,\%1,1) 0 end, -
  9.   asg \%9 _\freplace(\%1,=,\32), -
  10.   makevar2 \%9
  11.  
  12. open read \m(_configfile)
  13. if fail forward noconfig
  14. while true { read \%a, if fail break, makevar \%a }
  15.  
  16. :NOCONFIG
  17.  
  18. set modem type none
  19. xif def _commport { -
  20.   set port \m(_commport),-
  21.   if fail stop 1 "\m(_commport)" - Invalid port -
  22. }
  23. xif def _comspeed { -
  24.   set speed \m(_comspeed), -
  25.   if fail stop 1 "\m(_comspeed)" - Invalid speed -
  26. }
  27. if not eq "\v(connection)" "serial" -
  28.   fail stop 1 -
  29.   "\v(line)" - Inappropriate connection type: "\v(connection)"
  30.  
  31. set carrier off
  32. set flow rts/cts
  33. take host.ksc
  34. ;
  35. ; There's no point in looping on direct connections, since you are probably
  36. ; in the same room with both computers and can set up the connection any
  37. ; time you want it.  Since we don't wait on carrier, issuing the prompt when
  38. ; there is nothing on the other end results in lost data, "getty babble", or
  39. ; worse.
  40. ;
  41. ;; goto loop
  42.  
  43. end
  44.