if x = 0
				if ptstr = m1                   ' coming back in
					WORK_Menu()
				elseif ptstr=m2
					OFFICE_Menu()
				elseif ptstr=m3
	  				execute "altapptX.rf3" in-memory
				elseif ptstr=m3
					messboxwait(" Not yet in use ",0,0,1)
				elseif ptstr=m4
					messboxwait(" Not yet in use ",0,0,1)
				end if
			elseif x=-1
		 		ReturnToMenu()
			end if