/*rx*/
cfgfile = 'Env:AppServer.cfg'
If ~Open(cfg_file,cfgfile,'R') Then
  Exit 5

Do Until EOF(cfg_file)
  line=Strip(Readln(cfg_file))
  If line ~= '' & Left(line,1) ~= '#' Then
  Do
    Address Command 'Run > NIL: XWB:Etc/AppIcon 'line
  End
End
Call Close(cfg_file)

