Sub Process_Globals
Dim camera As AdvancedCamera
Sub Activity_Create(FirstTime As Boolean)
camera.Initialize(Activity,"camera")
Sub Activity_Pause (UserClosed As Boolean)
camera.Release
Sub ZaehlerstandEingabe
camera.FlashTorch()
Sub BTN00Startseite_beenden_click
camera.Release
Activity.Finish