/*--------------------------------------------------------------*/
/*reading serial settings and writing them into some vars*/


  call open('cservcfg', 'avm:servers.cfg', 'r')

 do forever
    csersetl = readln('cservcfg')
    equpos = index(csersetl,'=')
    if equpos > 0 then cserseth = left(csersetl, (equpos - 1))
    clength = length(csersetl)
    clength = clength - equpos
    cserset = right(csersetl, clength)

   if eof('cservcfg') then break

    if cserseth = 'serialname' then
     do
      address command 'c:setenv AVMSerDev '|| cserset
     end
    else
    if cserseth = 'unitnumber' then
     do
      address command 'c:setenv AVMSerUnit '|| cserset
     end
 end

  call close('cservcfg')

/*--------------------------------------------------------------*/