Android Question [Solved] Save ASCII file stopped by Standby mode?

Sub Process_Globals
    Dim P1 As PhoneWakeState
End Sub

Sub Service_Create
    'This is the program entry point.
    'This is a good place to load resources that are not specific to a single activity.
    P1.PartialLock
End Sub

#Region  Service Attributes
    #StartAtBoot: False
    #ExcludeFromLibrary: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Dim P1 As PhoneWakeState
End Sub

Sub Service_Create
    'This is the program entry point.
    'This is a good place to load resources that are not specific to a single activity.
    P1.PartialLock
    Log("Aquiring partial lock")
End Sub

Sub Service_Start (StartingIntent As Intent)

End Sub

Sub Service_Destroy

End Sub

Sub Process_Globals
       Dim P1 As PhoneWakeState
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Layout1")
    P1.KeepAlive(False)
....

Sub btn_Quit_Click
    P1.ReleaseKeepAlive
    Activity.Finish
End Sub
....

#Region  Service Attributes
    #StartAtBoot: False
    #ExcludeFromLibrary: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Dim P1 As PhoneWakeState
    Dim n As Notification
End Sub

Sub Service_Create
    'This is the program entry point.
    'This is a good place to load resources that are not specific to a single activity.
    n.Initialize
    n.Icon="icon"
   
    P1.KeepAlive(False)
   
   
End Sub

Sub Service_Start (StartingIntent As Intent)
    Log("Aquiring partial lock")
    Service.StartForeground( 1,n)
End Sub

Sub Service_Destroy
    P1.ReleaseKeepAlive
End Sub

StartService(Starter)

#Region  Service Attributes
    #StartAtBoot: False
    #ExcludeFromLibrary: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
     Dim P1 As PhoneWakeState
End Sub

Sub Service_Create
    'This is the program entry point.
    'This is a good place to load resources that are not specific to a single activity.
     P1.KeepAlive(False)
End Sub

Sub Service_Start (StartingIntent As Intent)
     Log("Aquiring partial lock")
     Service.StartForeground(0,Null)
End Sub

Sub Service_Destroy
     P1.ReleaseKeepAlive
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Layout1")
    StartService(Starter)

Sub btn_Quit_Click
Dim result As Int
    result=Msgbox2( "Do you really want to exit?","Confirmation required.","Yes","","No",Null)
    If result=DialogResponse.NEGATIVE Then
        Return
    End If
    If astream.IsInitialized Then astream.Close
    If serial1.IsInitialized Then serial1.Disconnect
    StopService(Starter)
    Activity.Finish
End Sub