<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML xmlns="http://www.w3.org/TR/REC-html40" xmlns:v = 
"urn:schemas-microsoft-com:vml" xmlns:o = 
"urn:schemas-microsoft-com:office:office" xmlns:w = 
"urn:schemas-microsoft-com:office:word" xmlns:x = 
"urn:schemas-microsoft-com:office:excel" xmlns:p = 
"urn:schemas-microsoft-com:office:powerpoint" xmlns:a = 
"urn:schemas-microsoft-com:office:access" xmlns:dt = 
"uuid:C2F41010-65B3-11d1-A29F-00AA00C14882" xmlns:s = 
"uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882" xmlns:rs = 
"urn:schemas-microsoft-com:rowset" xmlns:z = "#RowsetSchema" xmlns:b = 
"urn:schemas-microsoft-com:office:publisher" xmlns:ss = 
"urn:schemas-microsoft-com:office:spreadsheet" xmlns:c = 
"urn:schemas-microsoft-com:office:component:spreadsheet" xmlns:oa = 
"urn:schemas-microsoft-com:office:activation" xmlns:html = 
"http://www.w3.org/TR/REC-html40" xmlns:q = 
"http://schemas.xmlsoap.org/soap/envelope/" XMLNS:D = "DAV:" xmlns:x2 = 
"http://schemas.microsoft.com/office/excel/2003/xml" xmlns:ois = 
"http://schemas.microsoft.com/sharepoint/soap/ois/" xmlns:dir = 
"http://schemas.microsoft.com/sharepoint/soap/directory/" xmlns:ds = 
"http://www.w3.org/2000/09/xmldsig#" xmlns:dsp = 
"http://schemas.microsoft.com/sharepoint/dsp" xmlns:udc = 
"http://schemas.microsoft.com/data/udc" xmlns:xsd = 
"http://www.w3.org/2001/XMLSchema" xmlns:sps = 
"http://schemas.microsoft.com/sharepoint/soap/" xmlns:xsi = 
"http://www.w3.org/2001/XMLSchema-instance" xmlns:udcxf = 
"http://schemas.microsoft.com/data/udc/xmlfile" xmlns:wf = 
"http://schemas.microsoft.com/sharepoint/soap/workflow/" xmlns:mver = 
"http://schemas.openxmlformats.org/markup-compatibility/2006" xmlns:m = 
"http://schemas.microsoft.com/office/2004/12/omml" xmlns:ex12t = 
"http://schemas.microsoft.com/exchange/services/2006/types"><HEAD>
<META http-equiv=Content-Type content="text/html; charset=us-ascii">
<META content="MSHTML 6.00.2900.3059" name=GENERATOR>
<STYLE>@font-face {
        font-family: Calibri;
}
@font-face {
        font-family: Tahoma;
}
@page Section1 {size: 612.0pt 792.0pt; margin: 72.0pt 72.0pt 72.0pt 72.0pt; }
P.MsoNormal {
        FONT-SIZE: 12pt; MARGIN: 0cm 0cm 0pt; FONT-FAMILY: "Times New Roman","serif"
}
LI.MsoNormal {
        FONT-SIZE: 12pt; MARGIN: 0cm 0cm 0pt; FONT-FAMILY: "Times New Roman","serif"
}
DIV.MsoNormal {
        FONT-SIZE: 12pt; MARGIN: 0cm 0cm 0pt; FONT-FAMILY: "Times New Roman","serif"
}
A:link {
        COLOR: blue; TEXT-DECORATION: underline; mso-style-priority: 99
}
SPAN.MsoHyperlink {
        COLOR: blue; TEXT-DECORATION: underline; mso-style-priority: 99
}
A:visited {
        COLOR: purple; TEXT-DECORATION: underline; mso-style-priority: 99
}
SPAN.MsoHyperlinkFollowed {
        COLOR: purple; TEXT-DECORATION: underline; mso-style-priority: 99
}
SPAN.EmailStyle17 {
        COLOR: #1f497d; FONT-FAMILY: "Calibri","sans-serif"; mso-style-type: personal
}
SPAN.EmailStyle18 {
        COLOR: #1f497d; FONT-FAMILY: "Calibri","sans-serif"; mso-style-type: personal
}
SPAN.EmailStyle19 {
        COLOR: #1f497d; FONT-FAMILY: "Calibri","sans-serif"; mso-style-type: personal
}
SPAN.EmailStyle20 {
        COLOR: #1f497d; FONT-FAMILY: "Calibri","sans-serif"; mso-style-type: personal
}
SPAN.EmailStyle21 {
        COLOR: #1f497d; FONT-FAMILY: "Calibri","sans-serif"; mso-style-type: personal-reply
}
.MsoChpDefault {
        FONT-SIZE: 10pt; mso-style-type: export-only
}
DIV.Section1 {
        page: Section1
}
</STYLE>
<!--[if gte mso 9]><xml>
 <o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
 <o:shapelayout v:ext="edit">
  <o:idmap v:ext="edit" data="1" />
 </o:shapelayout></xml><![endif]--></HEAD>
<BODY lang=EN-NZ vLink=purple link=blue>
<DIV><SPAN class=918500905-09052007><FONT face=Arial color=#0000ff size=2>Hello 
everyone,</FONT></SPAN></DIV>
<DIV><SPAN class=918500905-09052007><FONT face=Arial color=#0000ff 
size=2></FONT></SPAN>&nbsp;</DIV>
<DIV><SPAN class=918500905-09052007><FONT face=Arial color=#0000ff size=2>Does 
anyone know how what is data format IBM/Microsoft basic write floating value to 
a file.</FONT></SPAN></DIV>
<DIV><SPAN class=918500905-09052007><FONT face=Arial color=#0000ff 
size=2></FONT></SPAN>&nbsp;</DIV>
<DIV><SPAN class=918500905-09052007><FONT face=Arial color=#0000ff 
size=2>i.e.</FONT></SPAN></DIV>
<DIV><SPAN class=918500905-09052007><FONT face=Arial color=#0000ff 
size=2></FONT></SPAN>&nbsp;</DIV>
<DIV><SPAN class=918500905-09052007><FONT face=Arial color=#0000ff size=2>OPEN 
"TEST.DAT" FOR OUTPUT AS #1</FONT></SPAN></DIV>
<DIV><SPAN class=918500905-09052007><FONT face=Arial color=#0000ff 
size=2>Price=0.423</FONT></SPAN></DIV>
<DIV><SPAN class=918500905-09052007><FONT face=Arial color=#0000ff size=2>WRITE 
#1, <SPAN class=918500905-09052007><FONT face=Arial color=#0000ff 
size=2>Price</FONT></SPAN></FONT></SPAN></DIV>
<DIV><SPAN class=918500905-09052007><FONT face=Arial color=#0000ff size=2><SPAN 
class=918500905-09052007>PRINT #1, Price</SPAN></FONT></SPAN></DIV>
<DIV><SPAN class=918500905-09052007><FONT face=Arial color=#0000ff size=2><SPAN 
class=918500905-09052007>CLOSE #1</SPAN></FONT></SPAN></DIV>
<DIV><SPAN class=918500905-09052007><FONT face=Arial color=#0000ff size=2><SPAN 
class=918500905-09052007></SPAN></FONT></SPAN>&nbsp;</DIV>
<DIV><SPAN class=918500905-09052007><FONT face=Arial color=#0000ff size=2><SPAN 
class=918500905-09052007>How 0.423 represent as Delphi record? double? 
Integer?</SPAN></FONT></SPAN></DIV>
<DIV><SPAN class=918500905-09052007><FONT face=Arial color=#0000ff size=2><SPAN 
class=918500905-09052007></SPAN></FONT></SPAN>&nbsp;</DIV>
<DIV><SPAN class=918500905-09052007><FONT face=Arial color=#0000ff size=2><SPAN 
class=918500905-09052007>TIA</SPAN></FONT></SPAN></DIV>
<DIV><SPAN class=918500905-09052007><FONT face=Arial color=#0000ff size=2><SPAN 
class=918500905-09052007></SPAN></FONT></SPAN>&nbsp;</DIV>
<DIV><SPAN class=918500905-09052007><FONT face=Arial color=#0000ff size=2><SPAN 
class=918500905-09052007>Regards</SPAN></FONT></SPAN></DIV>
<DIV><SPAN class=918500905-09052007><FONT face=Arial color=#0000ff size=2><SPAN 
class=918500905-09052007>Leigh</SPAN></FONT></SPAN></DIV></BODY></HTML>