# Install script 
maxwait=0
do
  pop_server=$entry x_tcp.cfg,"pop_server:"
  pop_server=$inkey"Name or IP of Popserver ("+pop_server+"): ;"
  keepMail=$entry x_tcp.cfg,"keepMail:"
  if keepmail=1
     keepmail=y
  else
     keepmail=n
  end if
  keepMail=$inkey"Leave mail on Server ("+keepMail+"): ;"
  if keepmail = y or keepmail=1 or keepmail=true then
     keepmail = 1
  else
    keepmail = 0
  end if
  smtp_server=$entry x_tcp.cfg,"smtp_server:"
  smtp_server=$inkey"Name or IP of mailgate ("+smtp_server+"): ;"
  news_server=$entry x_tcp.cfg,"news_server:"
  news_server=$inkey"Name or IP of newsserver ("+news_server+"): ;"
  newgroups=$entry x_tcp.cfg,"newgroups:"
  newgroups=$inkey"List of new groups since ("+newgroups+"): ;"
  time_server=$entry x_tcp.cfg,"time_server:"
  time_server=$inkey"Name or IP of timeserver ("+time_server+"): ;"
  nameserver=$entry wattcp.cfg,"nameserver=" 
  nameserver=$inkey"IP number of your nameserver ("+nameserver+"): ;"
  domainslist=$entry wattcp.cfg,"domainslist="
  domainslist=$inkey"Domainname ("+domainslist+"): ;"
  my_ip=$entry wattcp.cfg,"my_ip="
  my_ip=$inkey"Local IP ("+my_ip+"): ;"
  user=$entry x_tcp.cfg,"user:"
  user=$inkey"Popuser Login ("+user+"): ;"
  pass=$entry x_tcp.cfg,"pass:"
  pass=$inkey"Popuser Password ("+pass+"): ;"
  comport=$entry x_tcp.cfg,"$PORT:"
  comport=$inkey"Address or number of COMPort ("+comport+"): ;"
  comirq=$entry x_tcp.cfg,"$IRQ:"
  comirq=$inkey"COM IRQ ("+comirq+"): ;
  packetdriver=$entry x_tcp.cfg,"packetdriver:"
  if packetdriver=cslipper
     pd=y
  else
     pd=n
  end if
  pd=$inkey"Slip with header compression? ("+pd+"): ;" 
  if pd=y or pd=j or pd=1
     packetdriver=cslipper
  else
     packetdriver=slipper   
  end if
  initstring=$entry,x_tcp.cfg,"initstring:"
  initstring=$inkey"Initstring for your modem ("+initstring+"): ;"
  dialstring=$entry x_tcp.cfg,"dialstring:"
  dialstring=$inkey"Dialstring ("+dialstring+"): ;"
  do
    print "{7};"
    ok=""
    ok=$inkey"All entrys OK? (y/n/q): ;"
  while ok<>y and ok<>n and ok<>q
while ok=n
if ok=y
  modify x_tcp.cfg, "user:",user
  modify x_tcp.cfg, "pass:",pass
  modify x_tcp.cfg, "pop_server:",pop_server 
  modify x_tcp.cfg, "$PORT:",comport
  modify x_tcp.cfg, "$IRQ:",comirq
  modify x_tcp.cfg, "dialstring:",dialstring
  modify x_tcp.cfg, "initstring:",initstring
  modify wattcp.cfg, "nameserver=",nameserver
  modify x_tcp.cfg, "smtp_server:",smtp_server
  modify x_tcp.cfg, "time_server:",time_server
  modify x_tcp.cfg, "news_server:",news_server
  modify wattcp.cfg, "domainslist=",domainslist
  modify x_tcp.cfg, "keepMail:",keepMail
  modify x_tcp.cfg, "newgroups:", newgroups
  modify x_tcp.cfg, "packetdriver:",packetdriver
  modify wattcp.cfg, "my_ip=",my_ip
  print "slip_it! installed. Edit x_news.rc."
  print "Start 'slip_it.bat' from the slip_it dir."
  yarncfg="..\home\yarn\config"
  if $file=yarncfg
     modify yarncfg,"user=",user
     modify yarncfg,"host=",pop_server    
     modify yarncfg,"reply=","slip_it\outfile"
     full_name=$entry yarncfg,"name="
     full_name=$inkey "Your full name ("+full_name+"): ;"
     modify yarncfg,"name=",full_name
     print "YARN installed. Edit x_news.rc."
     print "Start 'slip_it.bat' from the YARN-dir."
  end if
end if