      *>****************************************************************
      *> Author: Erik Eriksen
      *> Create Date: 2021-05-07
      *> Last Updated: 2021-06-02
      *> Purpose: Shared copy book with working storage definition of
      *>          variable constants.
      *> Tectonics:
      *>     ./build_editor.sh 
      *>     ./build_game.sh
      *>****************************************************************

      *> Color constants:    
       01  black                          constant as 0.
       01  blue                           constant as 1.
       01  green                          constant as 2.
       01  cyan                           constant as 3.
       01  red                            constant as 4.
       01  magenta                        constant as 5.
       01  yellow                         constant as 6.  
       01  white                          constant as 7.

      *> Tile effect ids       
       78  ws-no-tile-effect-id           value 0.    
       78  ws-teleport-effect-id          value 1.
       78  ws-conveyor-right-effect-id    value 2.
       78  ws-conveyor-down-effect-id     value 3.
       78  ws-conveyor-left-effect-id     value 4.
       78  ws-conveyor-up-effect-id       value 5.
       78  ws-conveyor-reverse-effect-id  value 6.
       78  ws-player-start-effect-id      value 98.

       78  ws-load-map-tele-return-code   value 1.

       78  ws-max-view-height             value 20.
       78  ws-max-view-width              value 50.
       
       78  ws-max-map-height              value 25.
       78  ws-max-map-width               value 80.

       78  ws-max-num-enemies             value 99.      

       78  ws-max-num-teleports           value 999.

       78  ws-max-num-items               value 999.

       78  ws-file-status-ok              value "00".
       78  ws-file-status-eof             value "10".

       78  ws-load-status-fail            value 9.
       78  ws-load-status-read-fail       value 8.
       78  ws-load-status-bad-data        value 7.
       78  ws-load-status-success         value 0.       

       78  ws-save-status-fail            value 9.
       78  ws-save-status-success         value 0.

       78  ws-data-file-ext               value ".DAT".
       78  ws-teleport-file-ext           value ".TEL".
       78  ws-enemy-file-ext              value ".BGS".
       78  ws-item-file-ext               value ".ITM".

