Continued from the previous message...

 
function msb_to_real (b : bsingle) : real;
var
     preal : real;
     r : array [0..5] of byte absolute preal;
begin
     r [0] := b [3];
     r [1] := 0;
     r [2] := 0;
     move (b [0], r [3], 3);
     msb_to_real := preal;
end; { function msb_to_real }
 
 
constructor qwk_control.init;
begin
 fillchar(qwkinfo,sizeof(qwkinfo),#0);
end;
destructor qwk_control.done;
begin
end;
procedure qwk_control.setname(n : string);
begin
    qwkinfo.username := n;
end;
procedure qwk_control.setalias(a : string);
begin
end;
procedure qwk_control.setcity(c : string);
begin
 qwkinfo.city := c;
end;
procedure qwk_control.setstate(s : string);
begin
    qwkinfo.city := qwkinfo.city + ', '+s;
end;
procedure qwk_control.setregnum(s : string);
begin
    qwkinfo.reg_num := s;
end;
procedure qwk_control.setphone(p : string);
begin
   qwkinfo.phone := p;
end;
procedure qwk_control.setzip (s : string);
begin
end;
procedure qwk_control.setpassword(p : string);
begin
end;
procedure qwk_control.setsysop(s : string);
begin
 qwkinfo.sysop := s;
end;
procedure qwk_control.setbbs( s : string);
begin
   qwkinfo.bbsname := s;
end;
procedure qwk_control.setversion( s : string);
begin
end;
procedure qwk_control.setnumbermsgs(l : longint);
begin
    qwkinfo.messages := l;
end;
procedure qwk_control.setnumberconf(l : longint);
begin
  qwkinfo.conferences := l - 1;
end;
procedure qwk_control.setpacket(s : string);
begin
  qwkinfo.packet := s;
end;
procedure qwk_control.setdate(m,d,y : word);
begin
    qwkinfo.datetime := lz(m)+'-'+lz(d)+'-'+long2str(y);
end;
procedure qwk_control.settime(h,m,s : word);
begin
 qwkinfo.datetime := qwkinfo.datetime + ','+lz(h)+':'+lz(m)+':'+lz(s);
end;
procedure qwk_control.writecontrol;
var t : text;
begin
                 assign(t,workdir+'CONTROL.DAT');
                 rewrite(t);

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