while true
			Background_1()
				$title=""
			    $text ="Click on selection and then click on `Enter'"
			    $options="Jobs;Office;Diary;Restart;EXIT"
			    #mode   =0
			    #sepchar=59
			    #GEMS_fontsize=14
			    #GEMS_ctrl_fontsize=12
			$choice=_GEMS_ListBox($title,$text,$options,#mode,#sepchar) 'message "$choice is:"&str($choice)
		    _GEMS_ResetCtrlParam()
			if $choice = "1"                   ' coming back in
				WORK_Menu()
			elseif $choice="2"
				OFFICE_Menu()
			elseif $choice="3"
				execute "altapptX.rf3" in-memory
			elseif $choice="4"
				messboxwait(" Not yet in use ",0,0,1)
			elseif $choice="5"
				stop
				messboxwait(" Not yet in use ",0,0,1)
			end if
' 			elseif x=-1
' 		 		ReturnToMenu()
' 			end if
		end while