Continued from the previous message...

getsize := str2long(strarray(qwkinfo^.blocks,6));
end;{function}
procedure qwk_reply.closemsg;
begin
close(repfile);
end;{function}
procedure qwk_reply.readheader;
begin
                   fillchar(qwkinfo^,sizeof(qwkinfo^),#32);
                   blockread(repfile,qwkinfo^,sizeof(qwkinfo^));
end;{function}
procedure qwk_reply.readtext;
var
 num : longint;
begin
  reader := 1;
  repptr := 1;
  new(reptxt);
  fillchar(reptxt^,64000,#32);
  repptr := (getsize-1) * 128;
  {$I-}blockread(repfile,reptxt^,repptr);{$I+}
end;{function}
 
function qwk_reply.getrefer: longint;
begin
 getrefer:= str2long(strarray(qwkinfo^.reference,8));
end;{function}
function qwk_reply.getprivate : boolean;
begin
 getprivate := (qwkinfo^.status = '*') or (qwkinfo^.status = '+');
end;{function}
 
function qwk_reply.getconference: longint;
begin
 getconference := str2long(strarray(qwkinfo^.number,7))+1;
end;
 
function qwk_reply.getline (l : longint): string;
var temp : string;
begin
temp := '';
  repeat
   temp := temp + reptxt^[reader];
   inc(reader);
  until (reptxt^[reader] = #227) or ( reader >= l);
  inc(reader);
  if temp = #227 then temp := '';
  getline := temp;
end;
function qwk_reply.eom(l : longint) : boolean;
begin
  eom := reader >= l;
end;
function qwk_reply.eop : boolean;
begin
 eop := eof(repfile);
end;
begin
end.
 
***
 þ RM 1.31 3193 þ RoboMail -- The ultimate QWK compatible message manager.
--- TriToss (tm) Professional 10.0 - #132
---------------