NetNews Usenet Archive 1992 #20/NN_1992_20.iso/spool/comp/lang/pascal/5210

Internet Message Format | 1992-09-07 | 1.6 KB

Path: sparky!uunet!usc!rpi!scott.skidmore.edu!psinntp!psinntp!bepcp!jnicholson
From: [e-mail] (Jim Nicholson)
Newsgroups: comp.lang.pascal
Subject: Re: xxx.ndx reading
Message-ID: <[e-mail]>
Date: Thu, 03 Sep 92 16:17:03 EDT
References: <1992Sep1.1009.8464@dosgate>
Organization: Bowker Electronic Publishing, New Providence NJ
Lines: 40

[e-mail] (andrew makiejewski) writes:

>
> Well trying to further my education and get into other TP programming areas
> for myself I decided I would like to try and write my own QWK packet mail
> utilities. Sure there are all sorts out there, but I want to make my own
> and learn in the process.

Good idea.  If you get stuck, I can post source to a TP program that reads
.QWK packets.

>
> Well I started with trying to read in the index files for a conference
> and used the program examples that are all around for converting the
> microsoft basic format to Turbo Pascal Real format. Well I am not sure
> if it is working correctly, but the values I get are in an increasing
> order.

Here's a fragment from that program.  I've not tested this yet . . .

function MStoIEEE (MS : MSSingle) : real;

{ Converts a 4 byte Microsoft format single precision real variable as    }
{ used in earlier versions of QuickBASIC and GW-BASIC to IEEE 6 byte real }

var
    r      : real;
    ieee   : array[0..5] of byte absolute r;

begin
    FillChar(r,sizeof(r),0);
    ieee[0] := MS[3];
    ieee[3] := MS[0];
    ieee[4] := MS[1];
    ieee[5] := MS[2];
    MStoIEEE  := r;
end;  { MStoIEEE }


[e-mail]