content: sub ShowFirstScreen()
      m.ShowTextScreen=CreateObject("roSGNode","FirstScreen")
      ?"FirePlace Logic ------------..."
      ' m.ShowTextScreen.ObserveField("btnbackSelected","onBtnBackSelected")
   
      ShowScreen(m.ShowTextScreen)
  
  
  end sub