Structure myFontData
  x.l
  y.l
  Width.l
  Height.l
EndStructure

Structure BitmapFont
  Array FontData.myFontData(90)
EndStructure

Global NewList BitmapFont.BitmapFont()

Procedure LoadBitmapFont()
  AddElement(BitmapFont())
  If OpenFile(0,"FontsCompress.dat")
    ReadData(0,@BitmapFont()\FontData(),SizeOf(myFontData)*ArraySize(BitmapFont()\FontData()))
    CloseFile(0)
  EndIf
  For z=0 To 90
    Debug "Width="+Str(BitmapFont()\FontData(z)\Width)
  Next
EndProcedure


; IDE Options = PureBasic 6.00 Beta 5 (Windows - x64)
; CursorPosition = 24
; Folding = -
; EnableXP