Sub INITBG
'API.Trace("INITBG", True)
If BG = Null Then LCAR.BGisInit = False
If Not(LCAR.BGisInit) Then
BG.Initialize(Activity)
LCAR.BGisInit=True
If LCAR.VolText.Length = 0 AND LCAR.VolTextList.Size>0 Then
LCAR.VolSeconds=0
LCAR.VolOpacity=0
LCAR.PullNextToast(BG)
End If
End If
End Sub
Sub DrawScreen(Interval As Int)
INITBG
If LCAR.NeedsClearing Then LCAR.ClearScreen(BG)
If NeedsShowFrame Then
ShowFrame(False,LCARSeffects.NeedsLeftBar)
NeedsShowFrame=False
LCAR.IsKeyboardVisible(BG,10,False )
End If
If Interval> 0 Then LCAR.IncrementLCARs(LCARSpeed , 1,Interval )
If LCAR.DrawLCARs(BG, 0) Then Activity.Invalidate
End Sub