\ facility 98.6.20 12:56 am NAB

: KEY? ( -- flag )
  begin  ekey? dup while
    event @ 4 = if  exit  then
    ekey 2drop
  repeat ;

: AT-XY ( col row -- )
  FntCharHeight *
  swap FntAverageCharWidth *
  currentx !  currenty ! ;