Sub LoadRoster(filename As String, side As String)
Dim PI As PlayerInfo
PI.Initialize
Dim I As Int
If side = "home" Then
HomeRoster = File.ReadList(File.DirInternal, "/rosterv2/" & side & "/" & filename)
For I = 0 To HomeRoster.Size - 1 'Remove Player points, Fouls, and On Court status.
PI = HomeRoster.Get(I)
Log(PI)
PI.Fouls = 0
PI.Points = 0
PI.OnCourt = False
HomeRoster.Set(I, PI)
Next
Else
GuestRoster = File.ReadList(File.DirInternal, "/rosterv2/" & side & "/" & filename)
For I = 0 To GuestRoster.Size - 1 'Remove Player points, Fouls, and On Court status.
PI = GuestRoster.Get(I)
PI.Fouls = 0
PI.Points = 0
PI.OnCourt = False
GuestRoster.Set(I, PI)
Next
End If
LoadPlayers
End Sub