WM Basic™ User's Manual - Classes

318 Working Model Basic User's Manual
Example
'This example creates a test file, writes ten records into it,
'then finds the length of the file and displays it in a message box.
Const crlf = Chr$(13) + Chr$(10)
Sub Main()
a$ = "This is record number: "
See Also
Platform(s)
Log (function)
Syntax
Description
Open "test.dat" For Random Access Write Shared As #1
For x = 1 To 10
rec$ = a$ & x
put #1,,rec$
msg = msg & rec$ & crlf
Next x
Close
Open "test.dat" For Random Access Read Write Shared As #1
r% = Lof(1)
Close
MsgBox "The length of test.dat is: " & r%
End Sub
Loc (function); Open (statement); FileLen (function).
Windows and Macintosh.
Log(number)
Returns a Double representing the natural logarithm of a given number.
Comments The value of number must be a Double greater than 0.
Example
See Also
Platform(s)
The value of e is 2.71828.
'This example calculates the natural log of 100 and displays it in
'a message box.
Sub Main()
x# = Log(100)
MsgBox "The natural logarithm of 100 is: " & x#
End Sub
Exp (function).
Long (data type)
Syntax
Windows and Macintosh.
Long