function primeCheck(x)
   for num = x to 0 step -1
        if num > 1 then
		if x/num = int(x/num) then
			primecheck = 0
			exit for
		end if
	else
		primecheck = 1
		exit for
	end if




   next num

end function