map1 CHAR,s,1
	xcall NOECHO
	print tab(-1,0);
	tprint tab(1,1);"Click anywhere but here";
	print tab(2,1);"Here when done";
	dprint tab(11,20);"or here";
	eprint tab(12,20);"or here";
AGN:
	call GET
	if mx = 2 and my < 15 then &
	    print tab(24,1);tab(-1,9);tab(3,1);"}:" : &
	    end
	?tab(mx,my);"x";
	goto AGN
GET:
	xcall ACCEPN, MCHAR
	CHAR = chr(MCHAR)
	if MCHAR <> 27 then &
	    end
	WASMCHAR = MCHAR
	xcall ACCEPN, MCHAR
	if MCHAR <> 30 then &
	    end
	MOUSE = 1
	CHAR2 = chr(30)
	lcli = 2
PCMSELOOP:
	lcli = lcli + 1
	xcall ACCEPN, MCHAR
	if lcli = 3 then &
	    mx = MCHAR - 31
	if lcli = 4 then &
	    my = MCHAR - 31
	if lcli < 10 then &
	    goto PCMSELOOP
	?tab(24,1);tab(-1,9);mx;my;
	return