Continued from the previous message...

begin
       if nextrec = 0 then nextrec := 1;
       logical := nextrec;
       inc(nextrec);
end;
 
(****************************************************************
    Conference Routines
******************************************************************   ***)
 
constructor qwk_conf.init;
begin
   assign(qwktxt,workdir+'CONTROL.DAT');
   {$I-}append(qwktxt);{$I+}
   if ioresult = 2 then rewrite(qwktxt);
   fillchar(qwkinfo,sizeof(qwkinfo),#0);
end;{procedure}
destructor qwk_conf.done;
begin
end;
procedure qwk_conf.setconf ( n : string);
begin
 qwkinfo.conf := n;
end;{Procedure}
procedure qwk_conf.setnum  ( l : longint);
begin
  qwkinfo.number := l-1 ;
end;{Procedure}
procedure qwk_conf.writeconf;
begin
   writeln(qwktxt,qwkinfo.number);
   writeln(qwktxt,qwkinfo.conf);
end;{Procedure}
procedure qwk_conf.closeconf;
begin
  close(qwktxt);
end;
 
(* **********************************************************************
   Reply Routines
********************************************************************* *)
 
 
 
constructor qwk_reply.init;
var
  copyright : array[0..127] of char;
  s : string;
begin
 repptr    := 0;
 writeln(workdir+packetname+'.MSG');
                  assign(repfile,workdir+packetname+'.MSG');
                  filemode := 2;
                  reset(repfile,1);
                  fillchar(copyright,sizeof(copyright),#32);
                  blockread(repfile,copyright,sizeof(copyright));
                  new(qwkinfo);
                  fillchar(qwkinfo^,sizeof(qwkinfo^),#32);
 
end;{Procedure}
destructor qwk_reply.done;
begin
 dispose(qwkinfo);
end;
function qwk_reply.gettoname : string;
begin
gettoname := strarray(qwkinfo^.towho,25);
end;{function}
function qwk_reply.getfromname: string;
begin
getfromname := strarray(qwkinfo^.fromwho,25);
end;{function}
function qwk_reply.getsubject: string;
begin
getsubject := strarray(qwkinfo^.subject,25);
end;{function}
function qwk_reply.getdate : string;
begin
getdate := strarray(qwkinfo^.dated,8);
end;{function}
function qwk_reply.gettime : string;
begin
gettime := strarray(qwkinfo^.timed,5);
end;{function}
function qwk_reply.getsize: longint;
begin

Continued in the next message...
--- TriToss (tm) Professional 10.0 - #132
---------------