Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim txtFilename As EditText
Dim txtDistMult As EditText
Dim txtdecimal As EditText
Dim spinner1 As Spinner
Dim chkAzimuth As CheckBox
Dim chkFile As CheckBox
Dim btnOK As Button
Dim btnMenu As Button
Dim btnExit As Button
Dim writer As TextWriter
dim btnok2 As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
activity.LoadLayout ("start")
txtfilename.RequestFocus
End Sub
Sub btnOK_click
strfilename=txtFileName.text & ".txt"
If chkFile.Checked =True Then
File.OpenOutput (File.DirRootExternal ,strfilename,True)
Else
writer.initialize(File.OpenOutput (File.DirInternal ,strfilename,True))
End If
If chkazimuth.Checked =True Then
intaz=1
Else
intaz=0
End If
dm=txtDistMult.Text
spinner1.Add (txtfilename.Text ) <<<<<<this is where I add the jobs
End Sub