Sub Globals
Type tRec(Name As String, Value As Int)
End Sub
Sub TestRead
Dim tList As List
tList.Initialize
tList=File.ReadList(File.DirInternal,"TestRec")
Dim nPos As Int
nPos=tList.Size-1
Do Until nPos<0
Log("Reading line: " & nPos)
Dim Temp As tRec 'Type tRec
Temp.Initialize
Temp=tList.Get(nPos)
Log(Temp.Name & " : " & Temp.Value & CRLF)
nPos=nPos-1
Loop
End Sub