Continued from the previous message...

   procedure settoname(s : string);virtual;
   procedure setfromname(s: string);virtual;
   procedure setsubject(s : string);virtual;
   procedure setdate( d : string);virtual;
   procedure settime (t : string);virtual;
   procedure setsize(l : longint);virtual;
   procedure setnumber(l : longint);virtual;
   procedure setrefer( l : longint);virtual;
   procedure settoaddr(t : addrtype);virtual;
   procedure setfromaddr(t : addrtype);virtual;
   procedure setprivate(b : boolean);virtual;
   procedure setconference(c : longint);virtual;
   procedure setlogical(r : longint);virtual;
   procedure setrecord( r : longint);virtual;
   procedure closemsg;virtual;
   procedure writeheader;virtual;
   procedure addline(s : string);virtual;
   procedure writetext;virtual;
   function nextrecord : longint;virtual;
   function logical : longint;virtual;
end;
 
type
   qwk_control = object(control_object)
   qwkinfo : qwk_controltext;
   constructor init;
   destructor done; virtual;
   procedure setname(n : string);virtual;
   procedure setalias(a : string);virtual;
   procedure setcity(c : string);virtual;
   procedure setstate(s : string);virtual;
   procedure setphone(p : string);virtual;
   procedure setzip (s : string);virtual;
   procedure setregnum(s : string);virtual;
   procedure setpassword(p : string);virtual;
   procedure setsysop(s : string);virtual;
   procedure setbbs( s : string);virtual;
   procedure setpacket(s : string);virtual;
   procedure setversion(s : string);virtual;
   procedure setfido(zone,net,node,point: word);virtual;
   procedure setdate(m,d,y : word);virtual;
   procedure settime(h,m,s : word);virtual;
   procedure setnumbermsgs(l : longint);virtual;
   procedure setnumberconf(l : longint);virtual;
   procedure writecontrol;virtual;
end;
type
   qwk_reply = object(reply_object)
   qwkinfo : ^qwk_layout;
   repfile : file;
   reader,
   conf    : longint;
   constructor init;
   destructor done; virtual;
   function gettoname : string;virtual;
   function getfromname: string;virtual;
   function getsubject : string;virtual;
   function getdate : string;virtual;
   function gettime : string;virtual;
   function getsize : longint;virtual;
   function getrefer : longint;virtual;
   function getprivate : boolean;virtual;
   function getconference : longint;virtual;
   procedure closemsg;virtual;
   procedure readheader;virtual;
   function getline(l : longint) : string;virtual;
   function eom(l : longint): boolean;virtual;
   procedure readtext;virtual;
   function eop : boolean; virtual;
end;
type
   qwkptr_control    = ^qwk_control;
   qwkptr_conference = ^qwk_conf;
   qwkptr_mail       = ^qwk_mail;
   replyptr_mail     = ^qwk_reply;
implementation
 
procedure real_to_msb (preal : real; var b : bsingle);
var
     r : array [0 .. 5] of byte absolute preal;
begin
     b[3] := r[0];
     move (r [3], b [0], 3);
end; { procedure real_to_msb }
 
{ converts Microsoft 4 bytes single to TP real }

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