vocabulary spread
only forth also  spread also  definitions
also windows also scrollers also

\ Portability definitions
\ Inputs special ibm keys.  Sets bit 7 if key is special.
: ibm_key  ( -- ascii | scan-code+128 )
   event-key  drop  event-scancode @   dup th ff and
   if  th 7f and  else  th 10 >> th 7f and  th 80 +  then
;

\ Portability: Terminal control
: at  ( column# row# -- )  swap  at  ;
: blot  ( column# -- )  drop kill-line  ;
: dark  ( -- )  erase-screen  ?reframe  ;
: erase-rest-of-screen  ( -- )  kill-screen  ;

\ Portability: 32-bit operators
: l/ / ;  : lmod mod ;

\ Screen size
: screen-width  ( -- #columns )  window-width ascii a character-width /  ;
: screen-height  ( -- #lines )  window-height  pixels/line /  ;

previous previous previous
