local j r i n
	$email=""
	while true
		x = fentrybox(" Enter email address (max 50 characters) ",50,$email,"")
		if x = -1
			continue while
		end if
		$email = ptstr
		if left($email,1)="@"
			messboxwait(" Invalid email address - 1st char is @ ",0,0,1)
			continue while
		end if
		if right($email,1)="."
			messboxwait(" Invalid email address - last char is .  ",0,0,1)
			continue while
		end if

		if right($email,1)="@"
			messboxwait(" Invalid email address - last char is @  ",0,0,1)
			continue while
		end if

		for j=1 to len($email)
			r = mid($email,j,1)			' message "r is:"&str(r)
			if r=chr(64)
				exit while
			end if
		end for
		messboxwait(" Invalid email address format - no @ sign ",0,0,1)

	end while