Continued from the previous message...

                 writeln(t,qwkinfo.bbsname);
                 writeln(t,qwkinfo.city);
                 writeln(t,qwkinfo.phone);
                 writeln(t,qwkinfo.sysop);
                 writeln(t,qwkinfo.reg_num,',',qwkinfo.packet);
                 writeln(t,qwkinfo.datetime);
                 writeln(t,qwkinfo.username);
                 writeln(t);
                 writeln(t,qwkinfo.zero);
                 writeln(t,qwkinfo.messages);
                 writeln(t,qwkinfo.conferences);
                 close(t);
end;
procedure qwk_control.setfido(zone,net,node,point : word);
begin
end;
 
(**************************************************************
   TriRec - Object for Generic Msg
 ***************************************************************)
constructor qwk_mail.init;
var
  copyright : array[0..127] of char;
  s : string;
begin
 tptr    := 0;
 nextrec := 0;
                  assign(qwkfile,workdir+'MESSAGES.DAT');
                  rewrite(qwkfile,1);
                  fillchar(copyright,sizeof(copyright),#32);
                  s := 'MultiMail Copyright 1996 ProSoft Productions';
                  strpcopy(copyright,s);
                  blockwrite(qwkfile,copyright,sizeof(copyright));
                  new(qwkinfo);
                  fillchar(qwkinfo^,sizeof(qwkinfo^),#32);
 
end;{Procedure}
destructor qwk_mail.done;
begin
 dispose(qwkinfo);
end;
procedure qwk_mail.settoname(s : string);
begin
 arraystr(qwkinfo^.towho,s);
end;{Procedure}
procedure qwk_mail.setfromname(s: string);
begin
     arraystr(qwkinfo^.fromwho,s);
end;{Procedure}
procedure qwk_mail.setsubject(s : string);
begin
    arraystr(qwkinfo^.subject,s);
end;{Procedure}
procedure qwk_mail.setdate( d : string);
var
 dated : string[8];
begin
  dated := formatdate('MM/DD/YY','MM/DD/YY',d);
   arraystr(qwkinfo^.dated,dated);
end;{Procedure}
procedure qwk_mail.settime (t : string);
var timed: string[5];
begin
 timed := formattime('XX/XX/XX HH:MM','HH:MM',t);
 arraystr(qwkinfo^.timed,timed);
end;{Procedure}
procedure qwk_mail.setsize(l : longint);
var
 qblk : longint;
begin
                   qblk := l div 128;
                   if l mod 128 > 0 then inc(qblk);
                   inc(qblk);{Include Header}
                   arraystr(qwkinfo^.blocks,long2str(qblk));
end;{Procedure}
procedure qwk_mail.settoaddr(t : addrtype);
begin
end;
procedure qwk_mail.setfromaddr(t : addrtype);
begin
addline('->'+long2str(t.zone)+':'+long2str(t.net)+'/'+long2str(t.node)+'.'+lon
g2str(t.point));
end;
procedure qwk_mail.closemsg;
begin
close(qwkfile);
end;{Procedure}

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