: cls 0 emit ;
: beep 7 emit ms drop ;
: at 2 emit emit emit ;
: j_pick 1- pick ;
: j_roll 1- roll ;
: inkey
  bufserrdindex @ bufserwrindex @ -
  if key else 0 then
;