vocabulary spread
only forth also  spread also  definitions
\ Portability definitions
\ Inputs special ibm keys.  Sets bit 7 if key is special.
: ibm_key  ( -- ascii | scan-code+128 )
   cursor-on
   [ system ] c_rawcin  ( scan-code|ascii )   dup th ff and
   if    th 7f and  else  th 10 >> th 7f and  th 80 +  then
   cursor-off
;

\ Portability: Terminal control

: blot  ( column# -- )  drop kill-line  ;
alias dark erase-screen
: erase-rest-of-screen  ( -- )  kill-screen  ;

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

\ Screen size
\ 80 constant screen-width
\ 25 constant screen-height
alias screen-width #columns
alias screen-height #lines
