Graphics 640,480,2
SetBuffer BackBuffer()

LoadData()
WaitKey()
End

Function LoadData()
  Local pos#
  DrawBar(0.0)
 
  pos=LoadAudio(pos)
  pos=LoadGfx(pos)
  pos=CreateMap(pos)
  DrawBar(1.0)

End Function

Function LoadAudio#(pos#)
  For i = 0 To 5
   pos = pos + 0.10
     Delay 100
     DrawBar(pos)
  Next
  Return pos
End Function

Function LoadGfx#(pos#)
  For i = 0 To 5
   pos = pos + 0.01
     Delay 100
     DrawBar(pos)
  Next
  Return pos
End Function

Function CreateMap#(pos#)
  For i = 0 To 5
   pos = pos + 0.02
     Delay 100
     DrawBar(pos)
  Next
  Return pos
End Function


Function DrawBar(progress#)
  Color 60,60,60
  Rect GraphicsWidth()/2-201,GraphicsHeight()/2-21,402,22
  Color 0,0,255
  Rect GraphicsWidth()/2-200,GraphicsHeight()/2-20,400*progress,20,1
  Flip 0
  Cls
  Color 255,255,255
End Function