++pragma ERROR_IF_NOT_MAPPED "ON"
    define MX_DEFTABXYZ   = 154        ! [131] define TAB(X,Y,Z) attributes
map1 PARAMS
    map2 ZIDX,b,1,6
    map2 FGC,f,6,-2
    map2 BGC,f,6,-2
    map2 PTYPE,s,2,"EL"
    map2 FATTR,b,4
    map2 FSCALE,b,2
    map2 FFACE,s,32
    map2 STS,f

map1 MCHAR,f
map1 CHAR,s,1
map1 mx,f
map1 my,f
map1 lcli,b,1
	xcall NOECHO
	print tab(-1,0);
	print tab(-1,158);"C";chr$(34);chr$(27);chr$(30);tab(-1,122);
	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";
	xcall MIAMEX,MX_DEFTABXYZ,STS,ZIDX,FGC,BGC,PTYPE,FATTR, &
              FSCALE,FFACE
	print tab(13,20,6);"Here using 3D tab";
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
	xcall ACCEPN, MCHAR
	if MCHAR <> 30 then &
	    end
	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