create window 'Colors' at 2,5 to 21,70

for x = 0 to 15
  for y = 0 to 15
    set say video to x * 16 + y
    @ x,y * 4 say str((x * 16) + y,4) 
  next y  
next x

create button ' OK ' at 17,18 size 1,30

do while .t.
	MyEvent=chkevent()
	if MyEvent=6
		exit
	elseif MyEvent=1 .and. lastkey()=13		&& ENTER key
		exit
	endif
enddo