\ 4tH library - Constants - Copyright 2006,2007 J.L. Bezemer
\ You can redistribute this file and/or modify it under
\ the terms of the GNU General Public License

[UNDEFINED] 10K [IF]
10000 CONSTANT 10K                      ( scaling constant )
[THEN]

[UNDEFINED] UNIT-BITS [IF]
8 CONSTANT UNIT-BITS                    ( bits per unit )
[THEN]

[UNDEFINED] CHAR-BITS [IF]
UNIT-BITS /CHAR [*] CONSTANT CHAR-BITS  ( bits per char )
[THEN]

[UNDEFINED] CELL-BITS [IF]
UNIT-BITS /CELL [*] CONSTANT CELL-BITS  ( bits per cell )
[THEN]