home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #20 / NN_1992_20.iso / spool / comp / sys / acorn / 8555 < prev    next >
Encoding:
Internet Message Format  |  1992-09-08  |  1.8 KB
  1. Path: sparky!uunet!pipex!demon!cix.compulink.co.uk!rhorne
  2. Newsgroups: comp.sys.acorn
  3. From: rhorne@cix.compulink.co.uk (Roger Horne)
  4. Subject: Re: ARcterm7 and KA9Q
  5. Reply-To: rhorne@cix.compulink.co.uk
  6. Date: Tue, 8 Sep 1992 14:33:36 +0000
  7. Message-ID: <memo.616032@cix.compulink.co.uk>
  8. Sender: usenet@gate.demon.co.uk
  9. Lines: 93
  10.  
  11.  
  12.  
  13.   > coexist peacefully ?? I'm trying to use Arcterm7 to dial my
  14.   > Internet gate, and then switch into KA9Q to run the SLIP
  15.   > session. It would appear at first glance that Arcterm7
  16.   > doesn't approve of other comms programs running alongside
  17.   > it. Can anyone comment on 
  18.  
  19. Paul Moore (gustav@morpheus.demon.co.uk) wrote a script which does this. Add
  20. login and password at the appropriate places and change the parameters if
  21. necessary.
  22.  
  23. BTW Anthony Frost's ReaderS now works with a modified KA9Q. It is a *vast*
  24. improvement on !BM. email vulch@kernow.demon.co.uk.
  25.  
  26. Roger Horne
  27. roger@number7.demon.co.uk
  28.  
  29. *********************************
  30.  
  31. main ()
  32. {
  33. integer online
  34.   online=port_dcd()
  35.     if(setup_and_dial()=0)
  36.     {
  37.       return(0)
  38.     }
  39.  
  40.   oscli("WimpTask Run <TCPIP$Dir>")
  41.   shutdown()
  42.  
  43. }
  44.   
  45. anykey ()
  46.   {
  47.     type cr
  48.   }
  49.  
  50.  
  51. setup_and_dial ()
  52.   {
  53.   set(terminal,vt102)
  54.   port_txspeed(9600)
  55.   port_rxspeed(9600)
  56.   $port_wordformat("8N1")
  57.   modem_standard("v22bis")
  58.   modem_errorcontrol("mnp5")
  59.     while(modem_dial("081 343 4848",1)<>0)
  60.     {
  61.       prints "ReDialling"+newline
  62.       waitfor("anything", 1000)
  63.     }
  64.     prints newline
  65.  
  66.  pause(200)
  67.   type cr+cr
  68.   pause(200)
  69.                                     
  70.   ; Wait for name prompt
  71.   if (waitfor("gin:",30000))
  72.     {
  73.     endlogon()
  74.     return
  75.     }
  76.  
  77.   type "My_Login"+cr
  78.  
  79.   if (waitfor("word:",6000))
  80.     {
  81.     endlogon()
  82.     return
  83.     }
  84.   type "My_Password"+cr
  85.  
  86. return(1)
  87.   }
  88.  
  89. anykey ()
  90.   {
  91.   type cr
  92.   }
  93.  
  94.  
  95. endlogon ()
  96.   {
  97.   modem_disconnect()
  98.  
  99.   }
  100.  
  101.  
  102.  
  103.  
  104.