UNIT GLOBAL;

interface

const

{$I meshsize.inc}

type
  PU  = ^TU;
  TU  = array[0..1,0..NX-1,0..NY-1] of integer;

  PB  = ^TB;
  TB  = array[0..199-NY,0..319] of byte;

 CRGB = array [0..2] of byte;
  PAL = array[0..255] of CRGB;

var
  U     : PU;
  B     : PB;
  CT    : word;
  Count : word;
  Damp  : byte;

  TOPS  : array[0..NX-1] of word;

  RGB   : PAL;

  LEAVING : boolean;


implementation


END.

