12 lines
257 B
Text
12 lines
257 B
Text
Public Sub Main()
|
|
Dim byCount As Byte
|
|
Dim sToSave As String
|
|
|
|
For byCount = 0 To 50
|
|
sToSave &= Format(Str(byCount), "00") & " - Charlie was here!" & gb.NewLine
|
|
Next
|
|
|
|
File.Save(User.Home &/ "TestFile", sToSave)
|
|
Print File.Load(User.Home &/ "TestFile")
|
|
|
|
End
|