Greetings, Eric...

procedure getcfg;                                    { Reads the config file }
var cfg        : text;
    pstr       : pathstr;
    l,lala     : string;
    numorigins,
    cfglines,
    la         : integer;
begin
     pstr := fsearch(pcfg,getenv('PATH'));
     if (pstr = '') and (fileexists(pcfg) = false) then
        error(3)
     else
        if pstr  '' then assign(cfg,fexpand(pstr))
           else assign(cfg,pcfg);
     reset(cfg);
     cfglines := 0;
     oc := 1;
     while not eof(cfg) do
     begin
          readln(cfg,l);
          if copy(l,1,7) = 'Origin ' then
          begin
               if length(l) > omlen then origins[oc] := copy(l,8,omlen)
                  else origins[oc] := copy(l,8,length(l));
               writeln(' Using origin: ',origins[oc]);
               inc(oc);
          end;
     end;
     close(cfg);
end;

procedure randorigin;
var
   infile,outfile : text;
   l,la : string;

begin
     assign(infile,paramstr(1));
     assign(outfile,paramstr(2));
     reset(infile);
     rewrite(outfile);
     while not eof(infile) do
     begin
          la := origins[random(oc)+1];
          readln(infile,l);
          if copy(l,1,4) = '--- ' then l := l + tearadd;
          writeln(outfile,l);
     end;
     writeln(' Chosen origin: ',la);
     close(infile);
     close(outfile);
end;

  -- Keith...
... All that glitters has a high refractive index.
--- timEd/2-B11, OrigRand