\ 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 ! ;