--------------------------------------------------------------------
local appName="ModellAnsage"
local playedFile
local playedType = 1
local prevVal = 1

local typeOptions={"Play in background", "Play immediately", "Add to queue"}
local typeValues={AUDIO_BACKGROUND, AUDIO_IMMEDIATE, AUDIO_QUEUE} 
 
local function fileChanged(value)
  playedFile=value
  system.pSave("file",value)   
end

local function typeChanged(value)
  playedType=value
  system.pSave("type",value) 
end

local function initForm(formID)
  form.addRow(2)
  form.addLabel({label="Select file"})
  form.addAudioFilebox(playedFile or "", fileChanged)
  
  form.addRow(2)
  form.addLabel({label="Playback type",width=120})
  form.addSelectbox(typeOptions,playedType or 1,false,typeChanged,{width=190})
end  

local function init()
  system.registerForm(1,MENU_MAIN,appName,initForm,keyPressed); 
  playedFile = system.pLoad("file","")
  playedType = system.pLoad("type",1) 
  system.playFile(playedFile,typeValues[playedType])
end
--------------------------------------------------------------------

return { init=init, loop=loop, author="Günter", version="1.00",name=appName}