( tools 07/5/01 12:15 )
\ makes array

needs .s contools

: array ( cells <name> -- )
  create cells here over 0 fill allot
  does> swap cells + ;

\ creates array of characters
: carray ( chars <name> -- )
  create chars here over 0 fill  allot
  does>  +  ;

\ realization of NOT operation
\ with stack checking
: not ( bool -- bool ) 
depth 1 < if -4 throw else 0= then ;

\ makes symbol small or capital
: >upper ( c -- C ) 223 and ;
: >lower ( C -- c ) 32 or ;

\ shows stack in format
\ <depth> elN ... el1 
: ms. ( -- ) Space
depth s>d <# [char] > hold
#s [char] < hold #> type space .s ;
