sprites.bas

DIM espada(15)AS UBYTE=>{_
  00000000b,_
  00000000b,_
  01010110b,_
  00001011b,_
  01111110b,_
  00000000b,_
  00000000b,_
  00000000b,_
  _
  00000000b,_
  00000000b,_
  01101010b,_
  11010000b,_
  01111110b,_
  00000000b,_
  00000000b,_
  00000000b}

DIM caballero(431)AS UBYTE=>{_
  00000000b,_
  00000000b,_
  00000000b,_
  00000000b,_
  00000000b,_
  00000000b,_
  00000000b,_
  00010110b,_
  _
  00000000b,_
  00111000b,_
  01011100b,_
  10111010b,_
  01011010b,_
  10111111b,_
  11000000b,_
  01110011b,_
  _
  00000000b,_
  00000000b,_
  00000000b,_
  00000000b,_
  00000000b,_
  00000000b,_
  00001100b,_
  00011010b,_
  _
  00001011b,_
  00100110b,_
  01110000b,_
  00000000b,_
  10111000b,_
  00000000b,_
  01010000b,_
  01000000b,_
  _
  00111110b,  01011100b,  00000001b,  11101110b,  01101100b,  00000010b,  00001100b,  00100100b,_
  00011010b,  11010000b,  01011010b,  00001010b,  00011010b,  00001010b,  00011010b,  00001110b,_
  01010000b,  01100001b,  01010011b,  01110010b,  00100101b,  00000011b,  00000001b,  00000000b,_
  01110001b,  00100010b,  11000001b,  00000100b,  00001011b,  00000100b,  11011011b,  00000110b,_
  00010110b,  00001110b,  00000100b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00010110b,_
  00000000b,  00111000b,  01011100b,  10111010b,  01011010b,  10111111b,  11000000b,  01110011b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00001100b,  00011010b,_
  00001011b,  00100110b,  01110000b,  00000000b,  10111000b,  00000000b,  01010000b,  01000000b,_
  00111110b,  01011100b,  00000001b,  11101110b,  01101100b,  00000000b,  01110010b,  01010111b,_
  00011010b,  11010000b,  01011010b,  00001010b,  00011010b,  00001010b,  00011010b,  00001110b,_
  01010000b,  01100000b,  01010000b,  01110000b,  00100001b,  00000010b,  00000001b,  00000000b,_
  00100010b,  00000000b,  00110001b,  00000001b,  01100000b,  00000000b,  01100000b,  11010000b,_
  00010110b,  00000010b,  11011000b,  10110000b,  11100000b,  01000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00111000b,  01011100b,  10111010b,  01011010b,  10111111b,  11000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00001100b,_
  00010110b,  00001011b,  00100110b,  01110000b,  00000000b,  10111000b,  00000000b,  01010000b,_
  01110011b,  00111110b,  01011100b,  00000001b,  11101110b,  01101100b,  00000000b,  01110010b,_
  00011010b,  00011010b,  11010000b,  01011010b,  00001010b,  00011010b,  00001010b,  00011010b,_
  01000010b,  01010101b,  01100010b,  01010000b,  01110000b,  00100000b,  00000000b,  00000000b,_
  01010111b,  00100010b,  00000000b,  00000011b,  00000011b,  00000010b,  00000001b,  00000011b,_
  00001110b,  00010110b,  00001110b,  00000100b,  00000000b,  00000000b,  11100000b,  11010000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00010110b,_
  00000000b,  00111000b,  01011100b,  10111010b,  01011010b,  10111111b,  11000000b,  01110011b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00001100b,  00011010b,_
  00001011b,  00100110b,  01110000b,  00000000b,  10111000b,  00000000b,  01010000b,  01000000b,_
  00111110b,  01011100b,  00000001b,  11101110b,  01101100b,  00000010b,  00001100b,  00100100b,_
  00011010b,  11010000b,  01011010b,  00001010b,  00011010b,  00001010b,  00011010b,  00001110b,_
  01010000b,  01100000b,  01010000b,  01110000b,  00100000b,  00000000b,  00000000b,  00000000b,_
  01110001b,  00100010b,  00001000b,  11100000b,  11100000b,  00000000b,  01111000b,  11110100b,_
  00010110b,  00001110b,  00000100b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00010110b,_
  00000000b,  00111000b,  01011100b,  10111010b,  01011010b,  10111111b,  11000000b,  01110011b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00001100b,  00011010b,_
  00001011b,  00100110b,  01110000b,  00000000b,  10111000b,  00000000b,  01010000b,  01000000b,_
  00111110b,  01011100b,  00000001b,  11101110b,  01101100b,  00000010b,  01111100b,  00010101b,_
  00011010b,  11010000b,  01011010b,  00001010b,  00011010b,  00001010b,  10011010b,  01001110b,_
  01010000b,  01100001b,  01010000b,  01110010b,  00100111b,  00001110b,  00000101b,  00000011b,_
  10001000b,  11000000b,  00000000b,  00000001b,  00000000b,  00000000b,  00000000b,  11000000b,_
  10010110b,  00000010b,  11011000b,  10110000b,  11100000b,  01000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00111000b,  01011100b,  10111010b,  01011010b,  10111111b,  11000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00001100b,_
  00010110b,  00001011b,  00100110b,  01110000b,  00000000b,  10111000b,  00010000b,  00111000b,_
  01110011b,  00111110b,  01011100b,  00000001b,  11101110b,  01101100b,  00000000b,  01111100b,_
  00011010b,  00011010b,  11010000b,  01011010b,  00001010b,  00011010b,  00001010b,  10011010b,_
  01101100b,  11011101b,  00001011b,  00000001b,  00000000b,  00000000b,  00000000b,  00000000b,_
  01010101b,  00101000b,  00000000b,  00000001b,  00000000b,  00000001b,  00000000b,  00000001b,_
  01001110b,  10010110b,  00001110b,  01000100b,  11000000b,  00000000b,  11110000b,  11101000b}
 
DIM caballero2(431) AS UBYTE=>{_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00110001b,  01011000b,_
  00000000b,  00011100b,  00111010b,  01011101b,  01011010b,  11111101b,  00000011b,  11001110b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  01101000b,_
  01011000b,  00001011b,  01011010b,  01010001b,  01011000b,  01010000b,  01011000b,  01110000b,_
  01111100b,  00111010b,  00000000b,  01110111b,  00110110b,  01000001b,  00110000b,  00100100b,_
  11010000b,  01100100b,  00001110b,  00000000b,  00011101b,  00000000b,  00001010b,  00000010b,_
  01101000b,  01110001b,  00100000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000001b,_
  10001110b,  01000100b,  00000011b,  00100001b,  11010000b,  00100001b,  11011011b,  01100000b,_
  00001010b,  00000110b,  11001010b,  01001110b,  10100100b,  11000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00110001b,  01011000b,_
  00000000b,  00011100b,  00111010b,  01011101b,  01011010b,  11111101b,  00000011b,  11001110b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  01101000b,_
  01011000b,  00001011b,  01011010b,  01010001b,  01011000b,  01010000b,  01011000b,  01110000b,_
  01111100b,  00111010b,  00000000b,  01110111b,  00110110b,  00000001b,  01001110b,  11101010b,_
  11010000b,  01100100b,  00001110b,  00000000b,  00011101b,  00000000b,  00001010b,  00000010b,_
  01101000b,  01000001b,  00011011b,  00001101b,  00000111b,  00000010b,  00000000b,  00000000b,_
  01000100b,  00000000b,  00001100b,  00000001b,  00000110b,  00000001b,  00000110b,  00001011b,_
  00001010b,  00000110b,  00001010b,  00001110b,  00000100b,  01000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00110001b,_
  00000000b,  00000000b,  00011100b,  00111010b,  01011101b,  01011010b,  11111101b,  00000011b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  01011000b,  01011000b,  00001011b,  01011010b,  01010001b,  01011000b,  01010000b,  01011000b,_
  11001110b,  01111100b,  00111010b,  00000000b,  01110111b,  00110110b,  00000001b,  01001110b,_
  01101000b,  11010000b,  01100100b,  00001110b,  00000000b,  00011101b,  00000000b,  00001010b,_
  01110000b,  01101000b,  01110000b,  00100001b,  00000001b,  00000000b,  00000111b,  00001011b,_
  11101010b,  01000100b,  00000000b,  11000000b,  11000000b,  01000000b,  00000000b,  11000000b,_
  01000010b,  10101010b,  01000110b,  00001010b,  00001110b,  00000100b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00110001b,  01011000b,_
  00000000b,  00011100b,  00111010b,  01011101b,  01011010b,  11111101b,  00000011b,  11001110b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  01101000b,_
  01011000b,  00001011b,  01011010b,  01010001b,  01011000b,  01010000b,  01011000b,  01110000b,_
  01111100b,  00111010b,  00000000b,  01110111b,  00110110b,  01000001b,  00110000b,  00100100b,_
  11010000b,  01100100b,  00001110b,  00000000b,  00011101b,  00000000b,  00001010b,  00000010b,_
  01101000b,  01110000b,  00100000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  10001110b,  01000100b,  00010000b,  00000111b,  00000111b,  00000001b,  00011110b,  00101111b,_
  00001010b,  00000110b,  00001010b,  00001110b,  00000100b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00110001b,  01011000b,_
  00000000b,  00011100b,  00111010b,  01011101b,  01011010b,  11111101b,  00000011b,  11001110b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  01101000b,_
  01011000b,  00001011b,  01011010b,  01010001b,  01011000b,  01010000b,  01011001b,  01110010b,_
  01111100b,  00111010b,  00000000b,  01110111b,  00110110b,  01000001b,  00111110b,  10101000b,_
  11010000b,  01100100b,  00001110b,  00000000b,  00011101b,  00000000b,  00001010b,  00000010b,_
  01101001b,  01000000b,  00011011b,  00001101b,  00000111b,  00000010b,  00000000b,  00000000b,_
  00010001b,  00000011b,  00000001b,  00000000b,  00000001b,  00000000b,  00000001b,  00000011b,_
  00001010b,  00000110b,  00001010b,  01001110b,  11100100b,  01110000b,  10100000b,  11000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00110001b,_
  00000000b,  00000000b,  00011100b,  00111010b,  01011101b,  01011010b,  11111101b,  00000011b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  01011000b,  01011000b,  00001011b,  01011010b,  01010001b,  01011000b,  01010000b,  01011001b,_
  11001110b,  01111100b,  00111010b,  00000000b,  01110111b,  00110110b,  00000001b,  00111110b,_
  01101000b,  11010000b,  01100100b,  00001110b,  00000000b,  00011101b,  00001000b,  00011100b,_
  01110010b,  01101001b,  01110000b,  00100010b,  00000011b,  00000000b,  00001111b,  00010111b,_
  10101010b,  00010100b,  00000001b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00110110b,  10111011b,  11010000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b}

DIM caballero3(143) AS UBYTE=>{_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00111000b,  01011100b,  10111010b,  01011010b,  10111111b,  11000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00010110b,  00001011b,  00100110b,  01110000b,  00000000b,  10111000b,  00000000b,  01010010b,_
  01110011b,  00111110b,  01011100b,  00000001b,  11101110b,  01101100b,  00000010b,  01111100b,_
  00001100b,  00011010b,  11011010b,  01010000b,  10011010b,  00001010b,  00011010b,  00001010b,_
  01000111b,  01010010b,  01100000b,  01010111b,  01110110b,  00100101b,  00000010b,  00000111b,_
  01010101b,  00101000b,  00000000b,  00000001b,  00000000b,  00000001b,  00000000b,  00000001b,_
  01011010b,  00001110b,  00010110b,  01001110b,  11000100b,  01000000b,  10110000b,  11111000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000001b,_
  00000000b,  00000000b,  00011100b,  00111010b,  01011101b,  01011010b,  11111101b,  00000011b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00110000b,  01011000b,  01011011b,  00001010b,  01011001b,  01010000b,  01011000b,  01010001b,_
  11001110b,  01111100b,  00111010b,  00000000b,  01110111b,  00110110b,  01000001b,  00111110b,_
  01101000b,  11010000b,  01100100b,  00001110b,  00000000b,  00011101b,  00000000b,  01001010b,_
  01011010b,  01110001b,  01101000b,  01110010b,  00100011b,  00000010b,  00001101b,  00011111b,_
  10101010b,  00010100b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  11100010b,  01001010b,  00000110b,  11101010b,  01101110b,  10100100b,  01000000b,  11100000b}

DIM caballeroatt(431) AS UBYTE=>{_ 
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00111000b,  01011100b,  10111010b,  01011010b,  10111111b,  11000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00010110b,  00001011b,  00100110b,  01110000b,  00000000b,  10111000b,  00000000b,  01010010b,_
  01110011b,  00111110b,  01011100b,  00000001b,  11101110b,  01101100b,  00000010b,  01111100b,_
  00001100b,  00011010b,  11011010b,  01010000b,  10011010b,  00001010b,  00011010b,  00001010b,_
  01000111b,  01010010b,  01100000b,  01010111b,  01110110b,  00100101b,  00000010b,  00000111b,_
  01010101b,  00101000b,  00000000b,  00000001b,  00000000b,  00000001b,  00000000b,  00000001b,_
  01011010b,  00001110b,  00010110b,  01001110b,  11000100b,  01000000b,  10110000b,  11111000b,_
  00000000b,  00000000b,  00000000b,  00000001b,  00000000b,  00000001b,  00000001b,  00000000b,_
  00000000b,  01110000b,  10111000b,  01110100b,  10110100b,  01111110b,  00000001b,  11100110b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00001100b,  00011010b,_
  00000000b,  00010110b,  00001010b,  00100110b,  01110000b,  00000000b,  10111000b,  00000000b,_
  01111100b,  10111001b,  00000000b,  11101110b,  01101100b,  00000000b,  00111101b,  10010100b,_
  11011010b,  01010000b,  10011010b,  00001010b,  00011010b,  00001010b,  01011010b,  00001110b,_
  01010001b,  01000000b,  01010000b,  01100001b,  01010001b,  01110001b,  00100000b,  00000001b,_
  11001000b,  00000001b,  00000000b,  11000001b,  00000000b,  01000001b,  00000000b,  11000000b,_
  00010110b,  01001110b,  11000100b,  01000000b,  10110000b,  11111000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00111000b,  01011100b,  10111010b,  01011010b,  10111111b,  11000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00001100b,_
  00000000b,  00010000b,  00000000b,  00100010b,  00100111b,  00010101b,  00000010b,  00000000b,_
  01110011b,  00111110b,  01011100b,  00000001b,  01101110b,  00001100b,  00100000b,  10101010b,_
  00011010b,  00011010b,  11010000b,  01011010b,  00001010b,  00011010b,  00001010b,  11001010b,_
  00000001b,  00000000b,  00000000b,  00000001b,  01000011b,  00011010b,  00000001b,  00000011b,_
  10100001b,  00001111b,  00100000b,  00000001b,  00000000b,  00000001b,  00001000b,  00000101b,_
  01101110b,  11000110b,  00001110b,  01000100b,  11000000b,  01000000b,  10110001b,  11111010b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000111b,  00001011b,  00010111b,  00001011b,  00010111b,  00011000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  01000000b,  01000000b,  11100000b,  00010000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  01000000b,_
  00001110b,  00000111b,  00010011b,  00101000b,  00110010b,  01111000b,  00000010b,  01111100b,_
  01100000b,  11000000b,  10110001b,  01001011b,  10110001b,  00000000b,  00001010b,  10011010b,_
  00001000b,  00000010b,  00100000b,  00000010b,  00001110b,  00011011b,  00010100b,  00001110b,_
  01010101b,  00101000b,  00000000b,  10100001b,  01110000b,  00100101b,  00000000b,  00000001b,_
  11001010b,  10011010b,  00001110b,  01010110b,  11001110b,  01000100b,  10110000b,  11111000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00001110b,  00010111b,  00101110b,  00010110b,  00101111b,  00110000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  11000000b,  00100000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00011100b,  00001111b,  00010111b,  00101000b,  00110010b,  01111000b,  00000010b,  01111100b,_
  11000000b,  00000000b,  00110001b,  01001011b,  10110001b,  00000000b,  00001010b,  10011010b,_
  00000000b,  00000000b,  00000000b,  00000010b,  00001110b,  00011011b,  00010100b,  00001110b,_
  01010101b,  00101000b,  00000000b,  10100001b,  01110000b,  00100001b,  00000000b,  00000001b,_
  11001010b,  10011010b,  00001110b,  01010110b,  11001110b,  01000100b,  10110000b,  11111000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00010110b,_
  00000000b,  00000000b,  00111000b,  01011100b,  10111010b,  01011010b,  10111111b,  11000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00001011b,  00100110b,  01110000b,  00000000b,  10111000b,  00000000b,  01010000b,  01000010b,_
  01110011b,  00111110b,  01011100b,  00000001b,  11101110b,  01101100b,  00000010b,  01111100b,_
  00000000b,  00001100b,  11011010b,  01011010b,  00010000b,  00011010b,  00001010b,  10011010b,_
  01010111b,  01100010b,  01010000b,  01110101b,  00100100b,  00001011b,  00000000b,  00000111b,_
  01010101b,  00101000b,  00000000b,  00000001b,  00000001b,  00000000b,  01110100b,  00000001b,_
  11001010b,  10011010b,  00000100b,  11000010b,  00010110b,  01000100b,  00010000b,  11111000b}

DIM caballeroatt2(431) AS UBYTE=>{_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000001b,_
  00000000b,  00000000b,  00011100b,  00111010b,  01011101b,  01011010b,  11111101b,  00000011b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00110000b,  01011000b,  01011011b,  00001010b,  01011001b,  01010000b,  01011000b,  01010001b,_
  11001110b,  01111100b,  00111010b,  00000000b,  01110111b,  00110110b,  01000001b,  00111110b,_
  01101000b,  11010000b,  01100100b,  00001110b,  00000000b,  00011101b,  00000000b,  01001010b,_
  01011010b,  01110001b,  01101000b,  01110010b,  00100011b,  00000010b,  00001101b,  00011111b,_
  10101010b,  00010100b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  11100010b,  01001010b,  00000110b,  11101010b,  01101110b,  10100100b,  01000000b,  11100000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00110000b,  01011000b,_
  00000000b,  00001110b,  00011101b,  00101110b,  00101101b,  01111110b,  00000001b,  01100111b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  01011011b,  00001010b,  01011001b,  01010000b,  01011000b,  01010001b,  01011010b,  01110001b,_
  00111110b,  10011101b,  00000000b,  01110111b,  00110110b,  00000001b,  10111100b,  00101001b,_
  00000000b,  01101000b,  01010000b,  01100100b,  00001110b,  00000000b,  00011101b,  00000000b,_
  01101000b,  01110010b,  00100011b,  00000010b,  00001101b,  00011111b,  00000000b,  00000000b,_
  00010011b,  00000001b,  00000000b,  00000011b,  00000001b,  00000010b,  00000001b,  00000011b,_
  10001010b,  00000010b,  00001010b,  00000110b,  00001010b,  00001110b,  00000100b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00110001b,_
  00000000b,  00000000b,  00011100b,  00111010b,  01011101b,  01011010b,  11111101b,  00000011b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  01011000b,  01011000b,  00001011b,  01011010b,  01010001b,  01011000b,  01010000b,  01010011b,_
  11001110b,  01111100b,  00111010b,  00000000b,  01110110b,  00110000b,  00000100b,  01010101b,_
  00000000b,  00001000b,  00000000b,  01000100b,  11100100b,  10101000b,  01000000b,  00000000b,_
  01110110b,  01100011b,  01110000b,  00100010b,  00000011b,  00000010b,  00001101b,  01011111b,_
  10000101b,  11110001b,  00000100b,  00000001b,  00000000b,  00000001b,  00010000b,  10100001b,_
  10000000b,  00000000b,  00000001b,  00000000b,  11000010b,  01011000b,  00000000b,  11000000b,_
  00000000b,  00000000b,  00000000b,  00000001b,  00000010b,  00000010b,  00000111b,  00001000b,_
  00000000b,  00000000b,  11100000b,  11010000b,  11101000b,  11010000b,  11101000b,  00011000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000110b,  00000011b,  00001101b,  11010010b,  00001101b,  00000000b,  01010000b,  01011001b,_
  01110000b,  11100000b,  11001000b,  00010100b,  01001100b,  00011110b,  01000000b,  00111110b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000010b,_
  01010011b,  01011001b,  01110000b,  01101010b,  01110011b,  00100010b,  00001101b,  00011111b,_
  10101010b,  00010100b,  00000000b,  00000101b,  00001110b,  10100100b,  00000000b,  00000000b,_
  00010000b,  01000000b,  00000100b,  01000000b,  01110000b,  11011000b,  00101000b,  01110000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000001b,  00000001b,  00000011b,  00000100b,_
  00000000b,  00000000b,  01110000b,  11101000b,  01110100b,  01101000b,  11110100b,  00001100b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000011b,  00000001b,  00001100b,  11010010b,  00001101b,  00000000b,  01010000b,  01011001b,_
  00111000b,  11110000b,  11101000b,  00010100b,  01001100b,  00011110b,  01000000b,  00111110b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  01010011b,  01011001b,  01110000b,  01101010b,  01110011b,  00100010b,  00001101b,  00011111b,_
  10101010b,  00010100b,  00000000b,  00000101b,  00001110b,  00000100b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  01000000b,  01110000b,  11011000b,  00101000b,  01110000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000001b,_
  00000000b,  00000000b,  00011100b,  00111010b,  01011101b,  01011010b,  11111101b,  00000011b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  01101000b,_
  00000000b,  00110000b,  01011011b,  01011010b,  00001001b,  01011000b,  01010000b,  01011001b,_
  11001110b,  01111100b,  00111010b,  00000000b,  01110111b,  00110110b,  01000001b,  00111110b,_
  11010000b,  01100100b,  00001110b,  00000000b,  00011101b,  00000000b,  00001010b,  01000010b,_
  01010011b,  01011001b,  00100000b,  01000011b,  01101000b,  00100010b,  00001000b,  00011111b,_
  10101010b,  00010100b,  00000000b,  00000000b,  00000000b,  00000000b,  00101110b,  00000000b,_
  11101010b,  01000110b,  00001010b,  10101110b,  00100100b,  11010000b,  00000000b,  11100000}

DIM caballerosube(143) AS UBYTE=>{_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00010110b,  00001011b,_
  00000000b,  00000000b,  00010100b,  00101110b,  01010111b,  00101111b,  01011111b,  01110101b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00001100b,  00010010b,  00000010b,_
  00000110b,  00000000b,  00000010b,  00000000b,  00000000b,  00000000b,  00000000b,  00000011b,_
  00100010b,  00000000b,  01101011b,  00110110b,  00001001b,  00000110b,  11101010b,  00000100b,_
  01101010b,  11010010b,  01100010b,  00000000b,  00000010b,  00000000b,  00000010b,  00000010b,_
  00000000b,  00000001b,  00000001b,  00000001b,  00000001b,  00000001b,  00000001b,  00000000b,_
  01000001b,  01000011b,  00000000b,  01000000b,  00000000b,  01000000b,  11000000b,  00000000b,_
  00010100b,  00001000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00101000b,  01011100b,  10101110b,  01011110b,  10111110b,  11101010b,_
  00000110b,  00001001b,  00000001b,  00000001b,  00000001b,  00000001b,  01101000b,  11010001b,_
  00010110b,  00001011b,  00000000b,  00000100b,  00000000b,  00000111b,  00011000b,  00000010b,_
  01000100b,  00000001b,  11010110b,  01101100b,  00010010b,  01101100b,  01010100b,  00101000b,_
  01100000b,  00000001b,  01000001b,  00001010b,  00000100b,  00000000b,  00000000b,  00000000b,_
  00001010b,  00001000b,  00001010b,  00001100b,  00001010b,  00001110b,  00000100b,  00000000b,_
  00000010b,  00000111b,  00000010b,  00000000b,  00000111b,  00000101b,  00000010b,  00000111b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b}
  
DIM caballeroescudo(143) AS UBYTE=>{_
  00000000b,  00000000b,  00000000b,  00000000b,  00000001b,  00000000b,  00000001b,  00000001b,_
  00000000b,  00000000b,  01110000b,  10111000b,  01110100b,  10110100b,  01111110b,  00000001b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00011000b,  00110100b,  00110100b,_
  00000000b,  00000000b,  00010110b,  00001011b,  00100110b,  01110000b,  00000000b,  10111000b,_
  11100110b,  01111101b,  10111010b,  00000001b,  11101110b,  01101100b,  00000010b,  01111100b,_
  00100000b,  10110100b,  10010100b,  00110100b,  00010100b,  00110100b,  00011100b,  10101100b,_
  00000010b,  01010111b,  01000010b,  01010000b,  01100111b,  01010101b,  01110010b,  00100111b,_
  01010101b,  00101000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  01011100b,  11001000b,  00000000b,  10100000b,  01100000b,  10100000b,  01010000b,  11111000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00011000b,  00101100b,  00101100b,_
  00000000b,  00000000b,  00001110b,  00011101b,  00101110b,  00101101b,  01111110b,  00000001b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000100b,  00101101b,  00101001b,  00101100b,  00101000b,  00101100b,  00111000b,  00110101b,_
  01100111b,  10111110b,  01011101b,  00000000b,  01110111b,  00110110b,  01000001b,  00111110b,_
  00000000b,  00000000b,  01101000b,  11010000b,  01100100b,  00001110b,  00000000b,  00011101b,_
  00111010b,  00010011b,  00000000b,  00000101b,  00000110b,  00000101b,  00001010b,  00011111b,_
  10101010b,  00010100b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  01000000b,  11101010b,  01000010b,  00001010b,  11100110b,  10101010b,  01001110b,  11100100b}

DIM esqizq(143)AS UBYTE=>{_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00001011b,  00010111b,  00101000b,  01001000b,  01001000b,  00101100b,  00111111b,_
  00000000b,  00000000b,  01000000b,  10100000b,  01000000b,  01100000b,  10100000b,  01000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00001101b,  00011010b,_
  00011110b,  00010100b,  00000001b,  00000001b,  00000010b,  00100000b,  00001001b,  00101100b,_
  00001000b,  10100000b,  00010100b,  00010000b,  00010100b,  00010000b,  00101000b,  00000000b,_
  00001101b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  10101000b,  00100001b,  00000010b,  00000000b,  00000010b,  00000001b,  00000001b,  00000110b,_
  10100000b,  00100000b,  00000000b,  00010000b,  00001000b,  00000100b,  00001000b,  01110000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000101b,  00001011b,  00010100b,  00100100b,  00100100b,  00010110b,  00011111b,  00001111b,_
  11000000b,  10100000b,  01010000b,  00100000b,  00110000b,  01010000b,  10100000b,  00001000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000110b,  00001101b,  00000110b,_
  00001010b,  00000000b,  00000000b,  00000000b,  00010000b,  00000100b,  00010110b,  11010100b,_
  00100000b,  00010100b,  01010000b,  00010100b,  01010000b,  10101000b,  00000000b,  01001100b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00010000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000011b,_
  01001000b,  00000100b,  10100000b,  10100000b,  10100000b,  01010000b,  01010000b,  00111100b}
 
 DIM esqdrch(143)AS UBYTE=>{_
  00000000b,  00000001b,  00000010b,  00000101b,  00000010b,  00000110b,  00000101b,  00000010b,_
  00000000b,  11010000b,  11101000b,  00010100b,  00010010b,  00010010b,  00110100b,  11111100b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00010000b,  00000101b,  00101000b,  00001000b,  00101000b,  00001001b,  00010100b,  00000000b,_
  01111000b,  00101000b,  00000000b,  00000000b,  01000000b,  00000100b,  00010000b,  00110100b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  10110000b,  01011000b,_
  00000101b,  00000100b,  00000000b,  00001000b,  00010000b,  00100000b,  00010000b,  00001110b,_
  00010101b,  00000100b,  01000000b,  00000000b,  01000000b,  00000000b,  00000000b,  01100000b,_
  10110000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000011b,  00000101b,  00001010b,  00000100b,  00001100b,  00001010b,  00000101b,  00010000b,_
  10100000b,  11010000b,  00101000b,  00100100b,  00100100b,  01101000b,  11111000b,  11110000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000100b,  00101000b,  00001010b,  00101000b,  00001010b,  00010101b,  00000000b,  00110010b,_
  01010000b,  00000000b,  00000000b,  00000000b,  00001000b,  00100001b,  01101000b,  00101011b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  01100000b,  10110000b,  01100000b,_
  00010010b,  00100000b,  00000101b,  00000101b,  00000101b,  00001010b,  00001010b,  00000101b,_
  00001000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  11000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b}
  
DIM esqattizq(359)AS UBYTE=>{_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00001011b,  00010111b,  00101000b,  01001000b,  01001000b,  00101100b,  00111111b,_
  00000000b,  00000000b,  01000000b,  10100000b,  01000000b,  01100000b,  10100000b,  01000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00001101b,  00011010b,_
  00011110b,  00010100b,  00000001b,  00000001b,  00000010b,  00100000b,  00001001b,  00101100b,_
  00001000b,  10100000b,  00010100b,  00010000b,  00010100b,  00010000b,  00101000b,  00000000b,_
  00001101b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  10101000b,  00100001b,  00000010b,  00000000b,  00000010b,  00000001b,  00000001b,  00000110b,_
  10100000b,  00100000b,  00000000b,  00010000b,  00001000b,  00000100b,  00001000b,  01110000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00010111b,  00101110b,  01010001b,  00010000b,  00010000b,  01011001b,  01111110b,_
  00000000b,  00000000b,  00000000b,  01000000b,  00000000b,  11000000b,  01000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000001b,  00000000b,  00000000b,  00000001b,_
  00111100b,  00101001b,  00000010b,  11111000b,  01000000b,  00000000b,  00000100b,  10100001b,_
  00010000b,  01000000b,  00101000b,  00100000b,  00101000b,  00000000b,  00010000b,  00100000b,_
  00000011b,  00000001b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  01000101b,  10110101b,  00000100b,  00000000b,  00000010b,  00000001b,  00000001b,  00000110b,_
  10000000b,  00100000b,  00100000b,  00010000b,  00001000b,  00000100b,  00001000b,  01110000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000001b,  00000001b,  00000000b,  00000000b,_
  00000000b,  00101110b,  01011101b,  10100010b,  00100001b,  00100001b,  10110010b,  11111101b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000111b,  00001010b,  00000000b,  00000000b,  00000000b,  00000000b,_
  01111000b,  01010010b,  00000000b,  00000000b,  00000000b,  00000110b,  00001101b,  00000110b,_
  00100000b,  00000000b,  01001000b,  00000100b,  00010000b,  00000100b,  00010110b,  11010100b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000001b,  00000010b,  00000000b,  00000010b,  00000001b,  00000001b,  00000110b,_
  00010000b,  00000000b,  00100000b,  00010000b,  00001000b,  00000100b,  00001000b,  01110000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000010b,  00000101b,  00001010b,  00010010b,  00010010b,  00001011b,  00001111b,_
  00000000b,  11100000b,  11010000b,  00101000b,  00010000b,  00011000b,  00101000b,  11010000b,_
  00000001b,  01101000b,  11010001b,  01101101b,  00000001b,  00000000b,  00000000b,  00000000b,_
  00000111b,  01000000b,  01101010b,  01000101b,  00010000b,  00000111b,  00001010b,  00000000b,_
  10001000b,  00100000b,  00010100b,  10100000b,  01010100b,  00000001b,  00101000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000001b,  00000010b,  00000000b,  00000010b,  00000001b,  00000001b,  00000110b,_
  10100000b,  00100000b,  00000000b,  00010000b,  00001000b,  00000100b,  00001000b,  01110000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000101b,  00001011b,  00010100b,  00100100b,  00100100b,  00010110b,  00011111b,_
  00000000b,  11000000b,  10100000b,  01010000b,  00100000b,  00110000b,  01010000b,  10100000b,_
  00000001b,  01101000b,  11010001b,  01101101b,  00000001b,  00000000b,  00000000b,  00000000b,_
  00001111b,  01000000b,  01101100b,  01000000b,  00000000b,  00000111b,  00001010b,  00000000b,_
  00001000b,  10100000b,  00010100b,  00010000b,  10010100b,  00010000b,  00101000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000001b,  00000010b,  00000000b,  00000010b,  00000001b,  00000001b,  00000110b,_
  10100000b,  00100000b,  00000000b,  00010000b,  00001000b,  00000100b,  00001000b,  00001100b}

DIM esqattdrch(359)AS UBYTE=>{_
  00000000b,  00000001b,  00000010b,  00000101b,  00000010b,  00000110b,  00000101b,  00000010b,_
  00000000b,  11010000b,  11101000b,  00010100b,  00010010b,  00010010b,  00110100b,  11111100b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00010000b,  00000101b,  00101000b,  00001000b,  00101000b,  00001001b,  00010100b,  00000000b,_
  01111000b,  00101000b,  00000000b,  00000000b,  01000000b,  00000100b,  00010000b,  00110100b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  10110000b,  01011000b,_
  00000101b,  00000100b,  00000000b,  00001000b,  00010000b,  00100000b,  00010000b,  00001110b,_
  00010101b,  00000100b,  01000000b,  00000000b,  01000000b,  00000000b,  00000000b,  01100000b,_
  10110000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000001b,  00000010b,  00000001b,  00000011b,  00000010b,  00000001b,_
  00000000b,  11101000b,  01110100b,  00001010b,  00001001b,  00001001b,  10011010b,  01111110b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00001000b,  00000010b,  00010100b,  00000100b,  00010100b,  00000000b,  00001000b,  00000100b,_
  00111100b,  10010100b,  01000000b,  00011111b,  00000010b,  00000000b,  00100000b,  00000101b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000001b,  00000100b,  00000100b,  00001000b,  00010000b,  00100000b,  00010000b,  00001110b,_
  10100010b,  10101101b,  00100000b,  00000000b,  01000000b,  00000000b,  00000000b,  01100000b,_
  11000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000001b,  00000000b,  00000001b,  00000001b,  00000000b,_
  00000000b,  01110100b,  10111010b,  01000101b,  00000100b,  00000100b,  01001101b,  10111111b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000100b,  00000001b,  00010010b,  00100000b,  00001000b,  00100001b,  01101000b,  00101011b,_
  00011110b,  01001010b,  00000000b,  00000000b,  00000000b,  01100000b,  10110000b,  01100000b,_
  00000000b,  00000000b,  11100000b,  01010000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00001000b,  00000000b,  00000100b,  00001000b,  00010000b,  00100000b,  00010000b,  00001110b,_
  00000000b,  00000000b,  01000000b,  00000000b,  01000000b,  00000000b,  00000000b,  01100000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000111b,  00001011b,  00010100b,  00001000b,  00011000b,  00010100b,  00001011b,_
  00000000b,  01000000b,  10100000b,  01010000b,  01001000b,  01001000b,  11010000b,  11110000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00010001b,  00000100b,  00101000b,  00000101b,  00101010b,  00000000b,  00010100b,  00000000b,_
  11100000b,  00000010b,  01010110b,  10100010b,  00001000b,  11100000b,  01010000b,  00000000b,_
  10000000b,  00010110b,  00001011b,  10110110b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000101b,  00000100b,  00000000b,  00001000b,  00010000b,  00100000b,  00010000b,  00001110b,_
  00000000b,  00000000b,  01000000b,  00000000b,  01000000b,  00000000b,  00000000b,  01100000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000011b,  00000101b,  00001010b,  00000100b,  00001100b,  00001010b,  00000101b,_
  00000000b,  10100000b,  11010000b,  00101000b,  00100100b,  00100100b,  01101000b,  11111000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00010000b,  00000101b,  00101000b,  00001000b,  00101001b,  00001000b,  00010100b,  00000000b,_
  11110000b,  00000010b,  00110110b,  00000010b,  00000000b,  11100000b,  01010000b,  00000000b,_
  10000000b,  00010110b,  00001011b,  10110110b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000101b,  00000100b,  00000000b,  00001000b,  00010000b,  00100000b,  00010000b,  00001110b,_
  00000000b,  00000000b,  01000000b,  00000000b,  01000000b,  00000000b,  00000000b,  01100000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b}
  
DIM calavera(23)AS UBYTE=>{_  
  00000000b,_
  00000000b,_
  00000000b,_
  00000000b,_
  00001001b,_
  00000000b,_
  00000000b,_
  00000000b,_
  _
  10000001b,_
  00000000b,_
  00100100b,_
  00011001b,_
  10011000b,_
  00100100b,_
  00000000b,_
  00000001b,_
  _
  00000000b,_
  00000000b,_
  00000000b,_
  10010001b,_
  00000000b,_
  00000000b,_
  00000000b,_
  00000000b}
  
DIM suelocentro(71)AS UBYTE=>{_
  00000000b,  10011110b,  01101101b,  10010010b,  11101111b,  11111111b,  10111111b,  11101111b,_
  01101100b,  11011110b,  00101001b,  11010110b,  11111111b,  11111111b,  11110101b,  11101010b,_
  00000000b,  10100110b,  01011011b,  10100101b,  11111111b,  11111111b,  11011110b,  01100101b,_
  11110111b,  10101010b,  01000101b,  10100010b,  01010000b,  10100010b,  11010100b,  01101001b,_
  01010000b,  10101010b,  00010100b,  10101001b,  00000000b,  00001001b,  10100100b,  01010011b,_
  10111000b,  00010101b,  10101010b,  01010000b,  10100101b,  01001010b,  00010000b,  00000010b,_
  00110000b,  00010000b,  00000000b,  00010000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  10100001b,  01000000b,  00000001b,  01000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00010000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b}
  
DIM techo(71)AS UBYTE=>{_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00010000b,  00000001b,  01000010b,  00001001b,  00011100b,_
  00000000b,  00000000b,  00000000b,  00010000b,  01000000b,  11100010b,  11100100b,  11001110b,_
  00000000b,  00000000b,  00000000b,  00010000b,  00000010b,  01000000b,  10110010b,  01111000b,_
  01001000b,  10100010b,  01010001b,  10101100b,  00011110b,  10111101b,  01011000b,  00000000b,_
  00100100b,  11010001b,  00100100b,  01001110b,  10110101b,  01111010b,  11111000b,  00110000b,_
  00110010b,  00000001b,  10100100b,  10011010b,  01100101b,  11110011b,  01100110b,  00000000b}
  
DIM paredizq(71)AS UBYTE=>{_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00010001b,  00000001b,  01000101b,  00010011b,  00000011b,  00000101b,  00000010b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  01001010b,  00000001b,  00000101b,  00000011b,  00000101b,  00010010b,  01000010b,  00000001b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000101b,  00010010b,  00000001b,  00000101b,  01000011b,  00000011b,  00000101b,  00010001b}
  
DIM pareddrch(71)AS UBYTE=>{_
  00000000b,  00001000b,  00000000b,  10100010b,  11001000b,  11000000b,  10100000b,  01000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  01010010b,  00000000b,  10100000b,  11000000b,  10100000b,  01001000b,  01000010b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  10100000b,  01001000b,  00000000b,  10100000b,  11000010b,  11000000b,  10100000b,  00001000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b}
  
DIM techotras(71)AS UBYTE={_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00010000b,  00000000b,  00000010b,  00000000b,  01001001b,  00110010b,  11111101b,_
  00000000b,  01000001b,  00000000b,  00100000b,  00000001b,  00010100b,  01101001b,  10011110b,_
  00000000b,  00001000b,  00000000b,  00010010b,  00000000b,  01001000b,  10110000b,  00011010b}
  
DIM techotras2(71)AS UBYTE=>{_
  11111101b,  00110010b,  01001001b,  00000000b,  00000010b,  00000000b,  00010000b,  00000000b,_
  10011110b,  01101001b,  00010100b,  00000001b,  00100000b,  00000000b,  01000001b,  00000000b,_
  01111110b,  10110000b,  01001000b,  00000000b,  00010010b,  00000000b,  00001000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b}

DIM paredizqfija(71)AS UBYTE=>{_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00001010b,  00000000b,  00000001b,  00010011b,  00000011b,  00000101b,  00010010b,_
  01001100b,  10010110b,  00101010b,  00010000b,  10010100b,  10101110b,  00001110b,  00110100b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000101b,  00000011b,  00000001b,  00010000b,  00000110b,  00001111b,  00010111b,_
  01001000b,  00010100b,  10111000b,  00010110b,  01001111b,  10101111b,  01010110b,  01001010b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00001010b,  00000100b,  00000001b,  00000011b,  00010001b,  00000000b,  00000100b,  00000000b,_
  00100100b,  01001000b,  00011100b,  10011110b,  00101110b,  01010100b,  10100010b,  01010100b}
  
DIM pareddrchfija(71)AS UBYTE=>{_  
  00110010b,  01101001b,  01010100b,  00001000b,  00101001b,  01110101b,  01110000b,  00101100b,_
  00000000b,  01010000b,  00000000b,  00000000b,  11001000b,  11000000b,  10100000b,  01001000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00010010b,  00101000b,  00011101b,  01101000b,  11110010b,  11110101b,  01101010b,  01010010b,_
  00000000b,  10100000b,  11000000b,  00000000b,  00001000b,  01100000b,  11110000b,  11101000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00100100b,  00010010b,  00111000b,  01111001b,  01110100b,  00101010b,  01000101b,  00101010b,_
  01010000b,  00100000b,  00000000b,  11000000b,  00001000b,  00000000b,  00100000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b}
 
DIM escaleraizq(143)AS UBYTE=>{_   
  00000111b,  00001000b,  01110100b,  00100001b,  00000001b,  00000000b,  00000001b,  00000000b,_
  00000111b,  00001000b,  10111100b,  00101001b,  00000001b,  10101010b,  01111111b,  00000000b,_
  00000000b,  00000000b,  10101110b,  00000100b,  00000000b,  00000000b,  11000000b,  00000000b,_
  00000001b,  00000000b,  00000001b,  00000000b,  00000001b,  00000000b,  00000001b,  00000000b,_
  00000001b,  10101010b,  01111111b,  00000000b,  00000001b,  10101010b,  01111111b,  00000000b,_
  00000000b,  00000000b,  11000000b,  00000000b,  00000000b,  00000000b,  11000000b,  00000000b,_
  00000001b,  00000000b,  00000001b,  00000000b,  00000001b,  00000000b,  00000001b,  00000000b,_
  00000001b,  10101010b,  01111111b,  00000000b,  00000001b,  10101010b,  01111111b,  00000000b,_
  00000000b,  00000000b,  11000000b,  00000000b,  00000000b,  00000000b,  11000000b,  00000000b,_
  00000001b,  00000000b,  00000001b,  00000000b,  00000001b,  00000000b,  00000001b,  00000000b,_
  00000001b,  10101010b,  01111111b,  00000000b,  00000001b,  10101010b,  01111111b,  00000000b,_
  01000000b,  00000000b,  11000000b,  00000000b,  00000000b,  00000000b,  11000000b,  00000000b,_
  00000001b,  00000000b,  00000001b,  00000000b,  00000001b,  00000000b,  00000001b,  00000000b,_
  00000001b,  10101010b,  01111111b,  00000000b,  00000001b,  10101010b,  01111111b,  00000000b,_
  00000000b,  00000000b,  11000000b,  00000000b,  00000000b,  00000000b,  11000000b,  00000000b,_
  00000001b,  00000000b,  00000001b,  00000000b,  00000001b,  00000000b,  00000001b,  00000000b,_
  00000001b,  10101010b,  01111111b,  00000000b,  00000001b,  10101010b,  01111111b,  00000000b,_
  00000000b,  00000000b,  11000000b,  00000000b,  00000000b,  00000000b,  11000000b,  00011100b}
  
DIM ladrillos(71)AS UBYTE=>{_
  11111111b,  11101111b,  11011111b,  11111111b,  11111111b,  01111111b,  10111110b,  00000000b,_
  11111010b,  11111100b,  11111110b,  11111100b,  11111010b,  11010100b,  10101010b,  00000000b,_
  11111011b,  11111111b,  11111111b,  11111111b,  11111111b,  11010101b,  10101010b,  00000000b,_
  11111010b,  11111100b,  11111110b,  11111100b,  11111010b,  01010100b,  10101010b,  00000000b,_
  11111110b,  11111101b,  11111010b,  11110101b,  11101111b,  01111101b,  10111111b,  00000000b,_
  10111011b,  01111101b,  11111111b,  11111111b,  11111111b,  01010101b,  10101010b,  00000000b,_
  11111111b,  11011111b,  11111111b,  11111111b,  11111111b,  01111111b,  10111110b,  00000000b,_
  11111010b,  11111100b,  11111110b,  11111100b,  11111010b,  11010100b,  10101010b,  00000000b,_
  11101011b,  11111111b,  11111111b,  11111111b,  11111111b,  01010101b,  11101011b,  00000000b}

DIM puerta(71)AS UBYTE=>{_
  00000101b,  00001011b,  00000100b,  00001001b,  00001001b,  01000000b,  01101111b,  00101010b,_
  01111111b,  11011011b,  00100100b,  00100100b,  00100100b,  00000000b,  11111111b,  10101010b,_
  11100000b,  11110000b,  00110000b,  00010000b,  00010000b,  00000000b,  11111000b,  10101000b,_
  01000000b,  00001001b,  00001001b,  00000001b,  00001001b,  01000000b,  01101111b,  00101010b,_
  00000000b,  00100100b,  00100100b,  00100100b,  00100100b,  00000000b,  11111111b,  10101010b,_
  00000000b,  00010000b,  00010000b,  00010000b,  00010000b,  00000000b,  11111000b,  10101000b,_
  01000000b,  00001001b,  00001001b,  00000001b,  00001001b,  00000110b,  00001011b,  00000000b,_
  00000000b,  00100100b,  00100100b,  00100100b,  00100100b,  11011011b,  11111111b,  00000000b,_
  00000000b,  00010000b,  00010000b,  00010000b,  00010000b,  01110000b,  11110000b,  00000000b}
  
DIM puertacerrada(71)AS UBYTE=>{_
  00000100b,  00001010b,  00001100b,  00000110b,  00001110b,  01000110b,  01101100b,  00100110b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  10000000b,  10000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  01001100b,  00000110b,  00001110b,  00000110b,  00001110b,  01000110b,  01101100b,  00100110b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  10000000b,  10000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  01001100b,  00000110b,  00001110b,  00000110b,  00001110b,  00000110b,  00001010b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b}
  
DIM puertaizq(71)AS UBYTE=>{_
  00000111b,  00001111b,  00001100b,  00001001b,  00001001b,  00000000b,  00011111b,  00010101b,_
  11111110b,  11011011b,  00100100b,  00100100b,  00100100b,  00000000b,  11111111b,  01010101b,_
  10100000b,  11010000b,  00100000b,  00010000b,  00010000b,  00000010b,  11110110b,  01010100b,_
  00000000b,  00001001b,  00001001b,  00001001b,  00001001b,  00000000b,  00011111b,  00010101b,_
  00000000b,  00100100b,  00100100b,  00100100b,  00100100b,  00000000b,  11111111b,  01010101b,_
  00000010b,  00010000b,  00010000b,  00000000b,  00010000b,  00000010b,  11110110b,  01010100b,_
  00000000b,  00001001b,  00001001b,  00001001b,  00001001b,  00001110b,  00001111b,  00000000b,_
  00000000b,  00100100b,  00100100b,  00100100b,  00100100b,  11011011b,  11111111b,  00000000b,_
  00000010b,  00010000b,  00010000b,  00000000b,  00010000b,  01100000b,  11010000b,  00000000b}

DIM puertacerradaizq(71)AS UBYTE={_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  _
  00000000b,_
  00000000b,_
  00000000b,_
  00000000b,_
  00000000b,_
  00000000b,_
  00000001b,_
  00000001b,_
  _
  00100000b,_
  01010000b,_
  00110000b,_
  01100000b,_
  01110000b,_
  01100010b,_
  00110110b,_
  01100100b,_
  _
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  _
  00000000b,_
  00000000b,_
  00000000b,_
  00000000b,_
  00000000b,_
  00000000b,_
  00000001b,_
  00000001b,_
  _
  00110010b,_
  01100000b,_
  01110000b,_
  01100000b,_
  01110000b,_
  01100010b,_
  00110110b,_
  01100100b,_
  _
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  _
  00110010b,_
  01100000b,_
  01110000b,_
  01100000b,_
  01110000b,_
  01100000b,_
  01010000b,_
  00000000b}
 
DIM puertacelda(71)AS UBYTE={_
  00001010b,  00010111b,  00001000b,  00010100b,  00010100b,  00000000b,  11011111b,  01001010b,_
  11111111b,  01101101b,  10010010b,  10010010b,  10010010b,  00000000b,  11111111b,  10101010b,_
  11110000b,  11111000b,  00011000b,  01001000b,  01001000b,  00000001b,  11111011b,  10101010b,_
  10000000b,  00010100b,  00010100b,  00000100b,  00010100b,  00000000b,  11011111b,  01001010b,_
  00000000b,  10010010b,  10010010b,  10010010b,  10010010b,  00000000b,  11111111b,  10101010b,_
  00000001b,  01001000b,  01001000b,  01001000b,  01001000b,  00000001b,  11111011b,  10101010b,_
  10000000b,  00010100b,  00010100b,  00000100b,  00010100b,  00001011b,  00010111b,  00000000b,_
  00000000b,  10010010b,  10010010b,  10010010b,  10010010b,  01101101b,  11111111b,  00000000b,_
  00000001b,  01001000b,  01001000b,  01001000b,  01001000b,  10111000b,  11111000b,  00000000b}
 
DIM barril(71)AS UBYTE={_
  00000000b,  00000000b,  00000000b,  00000101b,  00000000b,  00000101b,  00001010b,  00000001b,_
  00000000b,  00000000b,  00000000b,  01111010b,  00000000b,  01111011b,  10110100b,  01101011b,_
  00000000b,  00000000b,  00000000b,  00000000b,  11110000b,  00001000b,  11010000b,  11101000b,_
  00011100b,  00100011b,  01001000b,  00100010b,  00001001b,  00010010b,  00000100b,  01001001b,_
  01010111b,  00100000b,  01010110b,  00000010b,  00011000b,  00000110b,  10110001b,  10110110b,_
  11010000b,  00000100b,  11010000b,  11001000b,  11010000b,  00001000b,  00010000b,  01101000b,_
  00010000b,  00010111b,  00100000b,  00101010b,  00100101b,  00010000b,  01000110b,  00000000b,_
  00000000b,  11100001b,  00011110b,  10100001b,  01010110b,  00000000b,  10111101b,  00000000b,_
  00010000b,  11101000b,  01110100b,  10010010b,  01100010b,  00011100b,  01000011b,  00001000b}
 
DIM barrilroto(71)AS UBYTE={_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  01000001b,  00101000b,  00101010b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  01000001b,  00111100b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  10100000b,  01000000b,  00000101b,  11101010b,_
  00010000b,  00010111b,  00001000b,  00010000b,  01001111b,  00010000b,  00000110b,  00000000b,_
  00100011b,  01001100b,  00110001b,  11000000b,  00111110b,  00000001b,  10111100b,  00000000b,_
  00010100b,  01001000b,  00100100b,  01010010b,  00100010b,  00000000b,  01111101b,  00000000b}
 
DIM barrillave(71)AS UBYTE={_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000111b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00001111b,  00011100b,  00011000b,  00011000b,  00011100b,  00001111b,  00000100b,  00000000b,_
  11000000b,  11100000b,  01001111b,  01000101b,  10100000b,  01000000b,  00000001b,  00000001b,_
  00000000b,  00000000b,  11101000b,  01101000b,  00000000b,  00010000b,  10110000b,  01001100b}

DIM barrilmagia(71)AS UBYTE={_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  _
  00000000b,_
  00000000b,_
  00000000b,_
  00000000b,_
  00000000b,_
  00000000b,_
  00000000b,_
  00000001b,_
  _
  00011000b,_
  00000000b,_
  00111100b,_
  00011000b,_
  00011000b,_
  00100100b,_
  11000011b,_
  00100000b,_
  _
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  _
  00000010b,  00000010b,  00000010b,  00000010b,  00000010b,  00000001b,  00000000b,  00000000b,_
  01000000b,  00000000b,  11111111b,  11111111b,  01111110b,  00000000b,  11111111b,  00000000b,_
  01000000b,  01000000b,  01000000b,  01000000b,  01000000b,  00000000b,  00000000b,  00000000b}
  
DIM suelocastillo(71)AS UBYTE={_
  00000000b,  11110101b,  11011111b,  10101010b,  00000000b,  00000000b,  00000000b,  11010010b,_
  00000000b,  10111011b,  11011011b,  10101010b,  00001010b,  01011010b,  00101010b,  11011011b,_
  00000000b,  10111110b,  01110110b,  10101010b,  00000010b,  00000110b,  00001010b,  01000110b,_
  00000000b,  01000101b,  00101010b,  00000100b,  00100010b,  00000101b,  00000010b,  00000000b,_
  00000000b,  01001010b,  11110010b,  00100100b,  00011000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  10010100b,  01001000b,  10101000b,  01000000b,  00001000b,  01000000b,  00000000b,_
  00000010b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b}
  
DIM techocastillo(71)AS UBYTE=>{_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00001000b,  00100011b,  01010100b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  01000100b,  00010001b,  10101010b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00100000b,  00001000b,  01010100b,  00000000b,_
  11010010b,  00000000b,  00000000b,  00000000b,  10101010b,  11011111b,  11110101b,  00000000b,_
  11011011b,  00101010b,  01011010b,  00001010b,  10101010b,  11011011b,  10111011b,  00000000b,_
  01000110b,  00001010b,  00000110b,  00000010b,  10101010b,  01110110b,  10111110b,  00000000b}
  
DIM paredcastdrch(71)AS UBYTE={_
  01111111b,  01100001b,  01010000b,  01100001b,  00110000b,  01100000b,  00110001b,  01100000b,_
  00100000b,  01010110b,  00101011b,  01010110b,  00010000b,  01010000b,  00101000b,  00100110b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  01110001b,  00100101b,  01010010b,  01100101b,  01111111b,  00000000b,  01111111b,  01100001b,_
  01000000b,  00010000b,  01001000b,  00010100b,  01011100b,  00001000b,  01000000b,  00100000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  01010000b,  00100001b,  01110000b,  01100000b,  01010010b,  01100101b,  01111111b,  00000000b,_
  00101000b,  01100000b,  00010000b,  01001000b,  00100100b,  01000100b,  00001000b,  00010000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b}
  
DIM paredcastizq(71)AS UBYTE={_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000100b,  01101010b,  11010100b,  01101010b,  00001000b,  00001010b,  00010100b,  01100100b,_
  11111110b,  00000110b,  00001010b,  00000110b,  00001100b,  00000110b,  00001100b,  00000110b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000010b,  00001000b,  00010010b,  00101000b,  00111010b,  00010000b,  00000010b,  00000100b,_
  10001110b,  10100100b,  01001010b,  10100110b,  11111110b,  00000000b,  11111110b,  00000110b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00010100b,  00000110b,  00001000b,  00010010b,  00100100b,  00100010b,  00010000b,  00001000b,_
  00001010b,  00000100b,  00001110b,  00000110b,  01001010b,  10100110b,  11111110b,  00000000b}
  
DIM mesaizq(71)AS UBYTE={_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000001b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000001b,  00111100b,  00011000b,  00000000b,  11111111b,  01010101b,  00100000b,  00000000b,_
  00010000b,  00101000b,  10101001b,  00000000b,  11111111b,  01010101b,  00000000b,  00000000b,_
  00000000b,  00111100b,  10011000b,  00000000b,  11111111b,  01010101b,  00000000b,  00000000b,_
  00100000b,  00001111b,  00100101b,  00100000b,  00100011b,  00100000b,  00000011b,  01110101b,_
  00000000b,  11111111b,  01010101b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  11111111b,  01010101b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b}
  
DIM mesadrch(71)AS UBYTE={_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000001b,  00000001b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00111100b,  00011001b,  00000000b,  11111111b,  10101010b,  00000000b,  00000000b,_
  00001000b,  00010100b,  10010101b,  00000000b,  11111111b,  10101010b,  00000000b,  00000000b,_
  10000000b,  00111100b,  00011000b,  00000000b,  11111111b,  10101010b,  00000100b,  00000000b,_
  00000000b,  11111111b,  10101010b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  11111111b,  10101010b,  00000000b,  00000000b,  00000000b,  00000000b,  00000001b,_
  00000100b,  11110000b,  10100100b,  00000100b,  11000100b,  00000100b,  11000000b,  01001010b}
  
DIM suelobosque(71)AS UBYTE={_
  00000000b,  10010010b,  10100101b,  01011111b,  10101010b,  11111111b,  01011010b,  10100101b,_
  01010001b,  00101010b,  11010101b,  01111111b,  10101010b,  11110101b,  10011010b,  01100100b,_
  00000000b,  00100100b,  10101010b,  11111111b,  10110101b,  11111011b,  10100100b,  01011011b,_
  00101010b,  01001010b,  10100101b,  00100100b,  00010010b,  00010001b,  00100000b,  00001000b,_
  00010001b,  11000101b,  01100010b,  11001100b,  00000010b,  00000101b,  01000001b,  01000100b,_
  10000010b,  00011010b,  10110100b,  00011001b,  00000010b,  00010000b,  00001100b,  00100011b,_
  00100001b,  01010010b,  01110101b,  00100000b,  00000010b,  00000101b,  00000111b,  00000010b,_
  10001010b,  00001110b,  00000100b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00001010b,  00010100b,  00011100b,  00001000b,  00000000b,  00000000b,  00000000b,  00000000b}
  
DIM vacio(71)AS UBYTE={_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b}
  
DIM plataforma(71)AS UBYTE={_
  00000000b,  00000000b,  01110111b,  00100001b,  00000001b,  00000000b,  00000001b,  00000000b,_
  00000000b,  00000000b,  11111111b,  01010100b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  11101110b,  00000100b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b} 
  
DIM letrasvida(31)AS UBYTE=>{_
  00000000b,  00000000b,  00000000b,  00000011b,  00000011b,  00000011b,  00000001b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00101101b,  00101101b,  00101101b,  11001101b,  00001101b,_
  00000000b,  00000000b,  00000000b,  11100001b,  10010011b,  10010110b,  10010111b,  11100110b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  01000000b,  11000000b,  01000000b}

DIM letrasestamina(47)AS UBYTE=>{_
  00000000b,_
  00000000b,_
  00000000b,_
  00111110b,_
  00110000b,_
  00111000b,_
  00110000b,_
  00111110b,_
  _
  00000000b,_
  00000000b,_
  00000000b,_
  01111011b,_
  11000001b,_
  11111001b,_
  00011001b,_
  11110001b,_
  _
  00000000b,_
  00000000b,_
  00000000b,_
  11000100b,_
  00001110b,_
  10011001b,_
  10011111b,_
  10011001b,_
  _
  00000000b,_
  00000000b,_
  00000000b,_
  01100010b,_
  01110110b,_
  01101010b,_
  01100010b,_
  01100010b,_
  _
  00000000b,_
  00000000b,_
  00000000b,_
  11011000b,_
  11011100b,_
  11011010b,_
  11011001b,_
  11011000b,_
  _
  00000000b,_
  00000000b,_
  00000000b,_
  00001000b,_
  10011100b,_
  10110010b,_
  10111110b,_
  10110010b}
  
DIM letrasmagia(31)AS UBYTE=>{_
  00000000b,_
  00000000b,_
  00000000b,_
  00110001b,_
  00111011b,_
  00110101b,_
  00110001b,_
  00110001b,_
  _
  00000000b,_
  00000000b,_
  00000000b,_
  00010000b,_
  00111001b,_
  01100101b,_
  01111101b,_
  01100100b,_
  _
  00000000b,_
  00000000b,_
  00000000b,_
  11110011b,_
  00000011b,_
  10011011b,_
  00001011b,_
  11110011b,_
  _
  00000000b,_
  00000000b,_
  00000000b,_
  00010000b,_
  00111000b,_
  01100100b,_
  01111100b,_
  01100100b}
  
DIM letrasnivel(31)AS UBYTE=>{_ 
  00000000b,_
  00000000b,_
  01100010b,_
  01110010b,_
  01101010b,_
  01100110b,_
  01100010b,_
  00000000b,_
  _
  00000000b,_
  00000000b,_
  11011001b,_
  11011001b,_
  11011001b,_
  11001110b,_
  11000100b,_
  00000000b,_
  _
  00000000b,_
  00000000b,_
  01111101b,_
  01100001b,_
  01110001b,_
  01100001b,_
  01111101b,_
  00000000b,_
  _
  00000000b,_
  00000000b,_
  00000000b,_
  00000000b,_
  00000000b,_
  00000000b,_
  11110000b,_
  00000000b}

DIM letrassouls(39)AS UBYTE=>{_  
  00000000b,_
  00000000b,_
  01111001b,_
  11000011b,_
  11111011b,_
  00011011b,_
  11110011b,_
  00000000b,_
  _
  00000000b,_
  00000000b,_
  11101100b,_
  00101100b,_
  00101100b,_
  00101100b,_
  11000111b,_
  00000000b,_
  _
  00000000b,_
  00000000b,_
  10110000b,_
  10110000b,_
  10110000b,_
  10110000b,_
  00111110b,_
  00000000b,_
  _
  00000000b,_
  00000000b,_
  01111000b,_
  11000000b,_
  11111000b,_
  00011000b,_
  11110000b,_
  00000000b,_
  _
  00000000b,_
  00001000b,_
  00000100b,_
  00100110b,_
  11011011b,_
  00100110b,_
  00000100b,_
  00001000b}
 
DIM almas(15)AS UBYTE=>{_
  00100000b,_
  00000100b,_
  01100001b,_
  11010011b,_
  10010110b,_
  01100100b,_
  00000011b,_
  00001001b,_
  _
  00000100b,_
  00100000b,_
  00000110b,_
  11001011b,_
  11101001b,_
  10100110b,_
  11000001b,_
  00101100b}
  
DIM marco(15)AS UBYTE=>{_
  00000000b,_
  00000000b,_
  00000000b,_
  00110011b,_
  11111111b,_
  11001100b,_
  00000000b,_
  00000000b,_
  _
  00000000b,_
  00000000b,_
  00000000b,_
  00110011b,_
  11111111b,_
  11001100b,_
  00000000b,_
  00000000b}

  
DIM vidamagiaestamina(7)AS UBYTE=>{_
  00000000b,_
  00000000b,_
  01000100b,_
  11101110b,_
  01110111b,_
  01010101b,_
  10101010b,_
  01000100b}

DIM remaster(63)AS UBYTE=>{_
  00000000b,_
  11111100b,_
  01100010b,_
  01000010b,_
  00100010b,_
  01111100b,_
  01101000b,_
  11110110b,_
  _
  00000000b,  11111110b,  01100010b,  01001000b,  00111000b,  01101000b,  01100010b,  11111110b,_
  00000000b,  11000011b,  01100110b,  01011010b,  00100010b,  01100010b,  01100010b,  11110111b,_
  00000000b,  00011000b,  00011000b,  00110100b,  00110100b,  01011110b,  01100010b,  11110111b,_
  00000000b,  00111101b,  01100010b,  01010000b,  00111100b,  00001010b,  01000110b,  10111100b,_
  00000000b,  11111111b,  10011001b,  00010000b,  00001000b,  00011000b,  00011000b,  00111100b,_
  00000000b,  11111110b,  01100010b,  01001000b,  00111000b,  01101000b,  01100010b,  11111110b,_
  00000000b,  11111100b,  01100010b,  01000010b,  00100010b,  01111100b,  01101000b,  11110110b}

DIM hoguera(71)AS UBYTE=>{_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00001000b,  00000000b,  00001000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00001000b,  00011100b,  00000000b,  00101110b,  00000000b,  00010100b,  00010000b,  00010100b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000110b,  00001101b,  00001010b,  01010100b,  00000000b,_
  00000000b,  01111111b,  11010101b,  10101110b,  00011100b,  10100010b,  01010100b,  00000000b,_
  00000000b,  00000000b,  00000000b,  11000000b,  01100000b,  10101000b,  01010101b,  00000000b}
  
DIM ojojefe(71)AS UBYTE=>{_
  10001101b,  00001010b,  01001101b,  00001010b,  00100101b,  00100110b,  00010101b,  00000110b,_
  01011101b,  10111010b,  11111111b,  11111110b,  11111111b,  11111110b,  11111111b,  11111110b,_
  01100010b,  10100010b,  01000100b,  10100000b,  01001000b,  00001000b,  01010000b,  00000000b,_
  00000101b,  00000111b,  00000010b,  00000011b,  00000010b,  00000011b,  00000001b,  00000001b,_
  11111111b,  11111111b,  11111110b,  01111101b,  11111110b,  01111101b,  11111111b,  01111101b,_
  01000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000001b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  10111111b,  11111110b,  11101110b,  10111010b,  01010100b,  00111000b,  00101000b,  00010000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b}
  
DIM diente (7)AS UBYTE=>{_
  10011101b,_
  11011010b,_
  10101100b,_
  01001010b,_
  01001100b,_
  00001010b,_
  00000100b,_
  00000100b}

  
DIM bola(15)AS UBYTE=>{_
  00101000b,_
  01000010b,_
  00011001b,_
  10101100b,_
  00111101b,_
  10011000b,_
  01000010b,_
  00010100b,_
  _
  00000001b,_
  01000000b,_
  00000100b,_
  00011000b,_
  00011000b,_
  00100000b,_
  00000010b,_
  10000000b}

DIM garraizq(71)AS UBYTE=>{_
  10101000b,  01000101b,  11110010b,  10101000b,  11110100b,  11011001b,  11111100b,  11011001b,_
  10101000b,  01010101b,  10010010b,  01101000b,  10110101b,  01111001b,  11110100b,  11011001b,_
  10100000b,  01010000b,  00100000b,  11111000b,  11110100b,  01011100b,  11111010b,  01111110b,_
  11110101b,  10111010b,  00101001b,  11110010b,  01001011b,  11110010b,  11111011b,  00011011b,_
  11110100b,  11011001b,  11010100b,  11111001b,  10010110b,  11111010b,  11111100b,  00001110b,_
  10101101b,  01101110b,  10111111b,  01101110b,  10111111b,  10010010b,  01111101b,  11000011b,_
  00001010b,  00001010b,  10010010b,  00010010b,  00100001b,  00100001b,  01000000b,  00000000b,_
  01000100b,  00001000b,  00001000b,  00010000b,  00010000b,  00100000b,  11000000b,  00000000b,_
  10010001b,  10100010b,  10100010b,  00000100b,  01000100b,  01001000b,  00110000b,  00100000b}

DIM garradrch(71)AS UBYTE=>{_
  00000101b,  00001010b,  00000100b,  00011111b,  00101111b,  00111010b,  01011111b,  01111110b,_
  00010101b,  10101010b,  01001001b,  00010110b,  10101101b,  10011110b,  00101111b,  10011011b,_
  00010101b,  10100010b,  01001111b,  00010101b,  00101111b,  10011011b,  00111111b,  10011011b,_
  10110101b,  01110110b,  11111101b,  01110110b,  11111101b,  01001001b,  10111110b,  11000011b,_
  00101111b,  10011011b,  00101011b,  10011111b,  01101001b,  01011111b,  00111111b,  01110000b,_
  10101111b,  01011101b,  10010100b,  01001111b,  11010010b,  01001111b,  11011111b,  11011000b,_
  10001001b,  01000101b,  01000101b,  00100001b,  00100010b,  00010010b,  00001100b,  00000100b,_
  00100010b,  00010001b,  00010001b,  00001000b,  00001000b,  00000100b,  00000011b,  00000001b,_
  01010000b,  01010001b,  01001001b,  01001000b,  00000100b,  00000100b,  00000010b,  00000001b}
 
DIM sangre(23)AS UBYTE=>{_
  01000001b,_
  11100110b,_
  01000110b,_
  00110000b,_
  01111001b,_
  11111000b,_
  00110010b,_
  00001000b,_
  _
  00001011b,_
  01000011b,_
  00000000b,_
  11001000b,_
  11000000b,_
  00000100b,_
  00100000b,_
  00000001b,_
  _
  10000000b,_
  00000010b,_
  00000000b,_
  00010000b,_
  00001000b,_
  00000000b,_
  01000000b,_
  00000010b}

DIM arbolizq(431)AS UBYTE=>{_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  _
  00000000b,_
  00000000b,_
  00000001b,_
  00000110b,_
  00000101b,_
  00001011b,_
  00000100b,_
  00001010b,_
  _
  00000000b,_
  01010101b,_
  00101010b,_
  10000000b,_
  00010101b,_
  01101010b,_
  01011100b,_
  10110010b,_
  _
  00000000b,  00000000b,  00000000b,  00000000b,  01000000b,  10100000b,  00000000b,  11100000b,_
  00001100b,  00001010b,  00001100b,  00000110b,  00000011b,  00000001b,  00000000b,  00000000b,_
  00001101b,  11010011b,  10101010b,  01010000b,  01101010b,  10111001b,  01010110b,  00000000b,_
  10000000b,  01010000b,  00110000b,  10100000b,  01000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000101b,  00010010b,  00101000b,  01010001b,  00110110b,  01000101b,  00101011b,_
  00000000b,  01010000b,  10100000b,  00001000b,  01010100b,  10101010b,  11000000b,  00101110b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  01000000b,  00101101b,  01001010b,  01100101b,  00110110b,  00000000b,  00100110b,  00000010b,_
  11011000b,  00110101b,  10100011b,  00001010b,  10100100b,  10011001b,  01100010b,  00001101b,_
  01000000b,  00000000b,  00000000b,  00000000b,  00100000b,  00000100b,  00000000b,  01000000b,_
  00100000b,  00100100b,  00100100b,  00100000b,  00000000b,  00100100b,  00100000b,  00000100b,_
  10000000b,  01101001b,  10101100b,  11001000b,  00001101b,  11000100b,  00001101b,  11000100b,_
  10101000b,  01010000b,  01101000b,  00011100b,  11001000b,  11110100b,  00101100b,  00001010b,_
  00000000b,  00100000b,  00000000b,  00000100b,  00000001b,  00100001b,  00000110b,  00000000b,_
  10000101b,  00000101b,  00001000b,  00001100b,  00001000b,  00011100b,  10100010b,  00000000b,_
  00000000b,  00000010b,  11010000b,  01100000b,  00110100b,  00100100b,  01000000b,  00000000b,_
  00000000b,  00000000b,  00000001b,  00000010b,  00000101b,  00001011b,  00000100b,  00001010b,_
  00000000b,  01010101b,  00101010b,  00000000b,  00010101b,  01101010b,  01011100b,  10110010b,_
  00000000b,  00000000b,  00000000b,  00000000b,  01000000b,  10100000b,  00000000b,  11100000b,_
  00001100b,  00001010b,  00001100b,  00000000b,  00000001b,  00000001b,  00000000b,  00000000b,_
  00001101b,  11010011b,  10101010b,  00010000b,  00001010b,  00001001b,  00000110b,  00000000b,_
  10000000b,  01010000b,  00110000b,  10100000b,  01000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00010101b,  00001001b,  00010101b,  00001000b,  00001100b,  00001010b,  00010110b,  00001010b,_
  00000000b,  00000000b,  10100000b,  11000000b,  01100000b,  00101000b,  00110000b,  00010000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000001b,  00000010b,_
  00000100b,  00010110b,  00100010b,  10110110b,  01100100b,  11000010b,  00011011b,  00011010b,_
  00010000b,  10011000b,  00010000b,  00110000b,  00100000b,  00100000b,  01010000b,  01010000b,_
  00000101b,  00000101b,  00000000b,  00000000b,  00000000b,  00000010b,  00000001b,  00000001b,_
  00100011b,  00110010b,  01000011b,  01100101b,  00000001b,  11000001b,  00000001b,  00000000b,_
  01001000b,  00100000b,  00000000b,  00000000b,  00000000b,  01000000b,  00000000b,  00000000b,_
  00000011b,  00000001b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  10000001b,  10100001b,  01000000b,  11000000b,  00100000b,  01100000b,  11110001b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  11000000b,  00000000b,  11000000b,  00000000b}
  
DIM arboldrch(431)AS UBYTE=>{_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000001b,  00000010b,  00000101b,  00000000b,  00000111b,_
  00000000b,  10101010b,  01010100b,  00000001b,  10101000b,  01010110b,  00111010b,  01001101b,_
  00000000b,  00000000b,  00000000b,  01100000b,  10100000b,  11010000b,  00100000b,  01010000b,_
  00000001b,  00001010b,  00001100b,  00000101b,  00000010b,  00000001b,  00000000b,  00000000b,_
  10110000b,  11001011b,  01010101b,  00001010b,  01010110b,  10011101b,  01101010b,  00000000b,_
  00110000b,  01010000b,  00110000b,  01100000b,  11000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00001010b,  00000101b,  00010000b,  00101010b,  01010101b,  00000011b,  01110100b,_
  00000000b,  10100000b,  01001000b,  00010100b,  00001010b,  01101100b,  10100010b,  11010100b,_
  00000010b,  00000000b,  00000000b,  00000000b,  00000100b,  00100000b,  00000001b,  00000010b,_
  00011011b,  10101100b,  11000101b,  01010000b,  00100101b,  10011001b,  01000110b,  10110000b,_
  00000010b,  10110100b,  01010010b,  10100110b,  01101100b,  00000000b,  01100100b,  01000000b,_
  00010101b,  00001010b,  00010110b,  00111000b,  00010011b,  00101111b,  00110100b,  01010000b,_
  00000001b,  10010110b,  00110101b,  00010011b,  10110001b,  00100011b,  10110001b,  00100011b,_
  00000100b,  00100100b,  00100100b,  00000100b,  00000000b,  00100100b,  00000100b,  00100000b,_
  00000000b,  01000001b,  00001011b,  00000110b,  00101100b,  00100100b,  00000010b,  00000000b,_
  10100001b,  10100001b,  00010001b,  00110000b,  00010001b,  00111000b,  01000101b,  00000000b,_
  00000000b,  00000100b,  00000000b,  00100000b,  00000000b,  00000100b,  01100000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000001b,  00000010b,  00000101b,  00000000b,  00000111b,_
  00000000b,  10101010b,  01010100b,  00000001b,  10101000b,  01010110b,  00111010b,  01001101b,_
  00000000b,  00000000b,  00000000b,  01000000b,  10100000b,  11010000b,  00100000b,  01010000b,_
  00000001b,  00001010b,  00001100b,  00000101b,  00000010b,  00000001b,  00000000b,  00000000b,_
  10110000b,  11001011b,  01010101b,  00001000b,  01010001b,  00010000b,  01100000b,  00000000b,_
  00110000b,  01010000b,  00110000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000101b,  00000011b,  00000110b,  00010100b,  00001100b,  00001000b,_
  10101000b,  00010000b,  10101000b,  00010000b,  00110000b,  01010000b,  01101000b,  01010000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00001000b,  00011001b,  00001000b,  00001100b,  00000100b,  00000100b,  00001010b,  00001010b,_
  00100000b,  01101000b,  01000100b,  01101101b,  00100110b,  01000011b,  11011000b,  01011000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  01000000b,_
  00010010b,  00000100b,  00000000b,  00000000b,  00000000b,  00000010b,  00000001b,  00000001b,_
  11000100b,  01001100b,  11000010b,  10100110b,  00000001b,  00000011b,  00000001b,  00000000b,_
  10100000b,  10100000b,  00000000b,  00000000b,  00000000b,  01000000b,  00000000b,  00000000b,_
  00000000b,  00000001b,  00000001b,  00000001b,  00000011b,  00000001b,  00000011b,  00000000b,_
  10000001b,  00000101b,  00000010b,  00000011b,  00000100b,  00000110b,  00001111b,  00000000b,_
  11000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b}

DIM arbolattizq(431)AS UBYTE={_
  00000000b,  00000101b,  00010010b,  00101000b,  01010001b,  10110110b,  01000101b,  10101011b,_
  00000000b,  01010000b,  10100000b,  00001000b,  01010100b,  10101010b,  11000000b,  00101110b,_
  00000000b,  00001000b,  00010010b,  00010100b,  00010100b,  00001000b,  00001000b,  00001100b,_
  11000000b,  10101101b,  11001010b,  00000001b,  00011000b,  00010000b,  00000000b,  00000000b,_
  11011000b,  00110101b,  10100011b,  00001010b,  10100100b,  10011000b,  01100000b,  00000000b,_
  00000100b,  00100110b,  00001100b,  00001000b,  00011000b,  00100100b,  01100000b,  11000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00010101b,  00001001b,  00010101b,  00001000b,  00101100b,  00101010b,  01010110b,  01101010b,_
  10100000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000001b,  00000010b,  00001011b,  00000110b,  00001000b,  00010000b,_
  01000100b,  11000110b,  00000010b,  00000110b,  00000100b,  00010001b,  00111001b,  00110001b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00100000b,  01010000b,  01010000b,  00000000b,  00000001b,  00000001b,  00000011b,  00000010b,_
  01000001b,  01100001b,  00000001b,  11000010b,  00000000b,  00000000b,  00000000b,  00000000b,_
  10000000b,  00000000b,  00000000b,  00000000b,  00000000b,  10100000b,  11000000b,  01000000b,_
  00000111b,  00000011b,  00000000b,  00000001b,  00000000b,  00000000b,  00000001b,  00000000b,_
  00000000b,  01000000b,  00000000b,  00000000b,  01000000b,  11000000b,  11100000b,  00000000b,_
  10000000b,  11000000b,  01000000b,  01000000b,  01100000b,  01000000b,  11100000b,  00000000b,_
  00000000b,  00000001b,  00000100b,  00001010b,  00010100b,  00101101b,  00010001b,  00101010b,_
  00000000b,  01010100b,  10101000b,  00000010b,  01010101b,  10101010b,  01110000b,  11001011b,_
  00000000b,  00000001b,  00000000b,  00000100b,  00000000b,  00000000b,  00101000b,  00010000b,_
  00110000b,  00101011b,  00110010b,  00000000b,  00000110b,  00000100b,  00000000b,  00000000b,_
  00110110b,  01001000b,  10100010b,  01000001b,  00101001b,  00100101b,  00010010b,  00000010b,_
  00000000b,  10100010b,  01010000b,  00000000b,  00000000b,  00100000b,  00000000b,  01000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00001011b,  00000011b,  00001001b,  00000011b,  00011101b,  00001010b,  00010110b,  00001010b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000001b,_
  00000100b,  00010110b,  00100010b,  00110110b,  00100100b,  01000010b,  00001011b,  00001010b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000010b,  00000010b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  10001011b,  10011010b,  00011011b,  00001101b,  00001001b,  00011001b,  00001001b,  00011000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  01000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00001001b,  00001001b,  00000100b,  00000100b,  00001000b,  00001000b,  00011101b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  11000000b,  00000000b,  11000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000001b,  00000010b,  00000101b,  00001011b,_
  00000000b,  00000000b,  00000000b,  01010101b,  00101010b,  00000000b,  00010101b,  01101010b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  01000000b,  10100000b,_
  00000100b,  00001010b,  00001100b,  00001010b,  00001100b,  00000000b,  00000001b,  00000001b,_
  01011100b,  10110010b,  00001101b,  11010011b,  10101010b,  00010000b,  00001010b,  00001001b,_
  00000000b,  11100000b,  00000000b,  01010000b,  00110000b,  10100000b,  01000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000010b,  00001011b,_
  00000110b,  00001000b,  00010100b,  01101000b,  00110101b,  11001000b,  00001100b,  00001010b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  11000000b,  00101000b,  00110000b,_
  00000110b,  00001000b,  00010000b,  01100000b,  00010000b,  00000000b,  00000000b,  00000000b,_
  00000110b,  00001010b,  00000100b,  00000110b,  00000010b,  00000110b,  00000100b,  00011100b,_
  00110000b,  00100000b,  01000000b,  01100000b,  01000000b,  01010000b,  00100000b,  00011000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000001b,  00000001b,  00000011b,  00000010b,_
  00111000b,  00110001b,  01000001b,  11100001b,  00000000b,  00000000b,  00000000b,  00000000b,_
  10000000b,  00000000b,  00000000b,  00000000b,  00000000b,  10100000b,  11000000b,  01000000b,_
  00000111b,  00000011b,  00000000b,  00000001b,  00000000b,  00000000b,  00000001b,  00000000b,_
  00000000b,  01000000b,  00000000b,  00000000b,  01000000b,  11000000b,  11100000b,  00000000b,_
  00100000b,  00110000b,  00010000b,  00011000b,  00001110b,  00000100b,  00001000b,  00000000b}
 
DIM arbolattdrch(431)AS UBYTE=>{_
  00000000b,  00010000b,  01001000b,  00101000b,  00101000b,  00010000b,  00010000b,  00110000b,_
  00000000b,  00001010b,  00000101b,  00010000b,  00101010b,  01010101b,  00000011b,  01110100b,_
  00000000b,  10100000b,  01001000b,  00010100b,  00001010b,  01101101b,  10100010b,  11010101b,_
  00100000b,  01100100b,  00110000b,  00010000b,  00011000b,  00100100b,  00000110b,  00000011b,_
  00011011b,  10101100b,  11000101b,  01010000b,  00100101b,  00011001b,  00000110b,  00000000b,_
  00000011b,  10110101b,  01010011b,  00000000b,  00011000b,  00001000b,  00000000b,  00000000b,_
  00000101b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  10101000b,  00010000b,  10101000b,  00010000b,  00110100b,  01010100b,  01101010b,  01010110b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000001b,  00000000b,_
  00100010b,  01100011b,  01000000b,  01100001b,  00100000b,  00001000b,  10011100b,  00001100b,_
  00000000b,  00000000b,  00000000b,  01000000b,  11010000b,  01100000b,  00010000b,  00001000b,_
  00000001b,  00000000b,  00000001b,  00000001b,  00000001b,  00000101b,  00000011b,  00000010b,_
  10000010b,  00000110b,  00000001b,  01000011b,  00000000b,  00000001b,  00000000b,  00000000b,_
  00000100b,  00001010b,  00001010b,  00000000b,  00000000b,  00000000b,  11000000b,  01000000b,_
  00000001b,  00000011b,  00000010b,  00000010b,  00000110b,  00000010b,  00000111b,  00000000b,_
  00000000b,  00000010b,  00000001b,  00000001b,  00000010b,  00000011b,  00000111b,  00000000b,_
  11100000b,  11000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00100000b,  00000000b,  00000001b,  00010100b,  00001001b,_
  00000000b,  00101010b,  00010101b,  01000000b,  10101010b,  01010101b,  00001110b,  11010011b,_
  00000000b,  00000000b,  00100000b,  01010000b,  00101000b,  10110100b,  00001000b,  01010100b,_
  00000000b,  01000101b,  00001010b,  00000000b,  00000000b,  00000100b,  00000000b,  00000010b,_
  01101100b,  00010010b,  01000101b,  00000010b,  10010100b,  10100100b,  01001000b,  01000000b,_
  00001100b,  11010100b,  01001100b,  00000000b,  01100000b,  00100000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  11010000b,  11000000b,  00010000b,  11000000b,  10111000b,  01010000b,  01101000b,  01010000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00100000b,  01101000b,  01000100b,  01101100b,  00100100b,  01000010b,  11010001b,  01010000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000010b,  00000001b,  00000001b,_
  11010001b,  01011001b,  11011000b,  10110000b,  00010000b,  10011000b,  00010000b,  00011000b,_
  01000000b,  01000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000001b,  00000001b,  00000001b,  00000011b,  00000001b,  00000011b,  00000000b,_
  10010000b,  00010000b,  00100000b,  00100000b,  00010000b,  00010000b,  10111000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000001b,  00000010b,  00000101b,_
  00000000b,  00000000b,  00000000b,  10101010b,  01010100b,  00000001b,  10101000b,  01010110b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  01000000b,  10100000b,  11010000b,_
  00000000b,  00000111b,  00000001b,  00001010b,  00001100b,  00000101b,  00000010b,  00000001b,_
  00111010b,  01001101b,  10110000b,  11001011b,  01010101b,  00001000b,  01010001b,  00010000b,_
  00100000b,  01010000b,  00110000b,  01010000b,  00110000b,  00000000b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000001b,  00000011b,  00010100b,  00001100b,_
  01100000b,  00010000b,  00101000b,  00010110b,  10101100b,  00010011b,  00110001b,  01010000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  01000000b,  11010000b,_
  00001100b,  00000100b,  00000010b,  00000110b,  00000010b,  00001010b,  00000100b,  00011000b,_
  01100000b,  01010000b,  00100000b,  01100000b,  01000000b,  01100000b,  00100000b,  00111000b,_
  01100000b,  00010000b,  00001000b,  00000110b,  00001001b,  00000000b,  00000000b,  00000000b,_
  00000001b,  00000000b,  00000001b,  00000000b,  00000001b,  00000101b,  00000011b,  00000010b,_
  00011100b,  00001100b,  00000010b,  00000111b,  00000000b,  00000001b,  00000000b,  00000000b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  11000000b,  01000000b,_
  00000100b,  00001100b,  00001000b,  00011000b,  01110000b,  00100000b,  00010000b,  00000000b,_
  00000000b,  00000010b,  00000001b,  00000001b,  00000010b,  00000011b,  00000111b,  00000000b,_
  11100000b,  11000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b}

DIM ratadrch(95)AS UBYTE=>{_
  00000000b,  00000011b,  00001101b,  00010110b,  00101101b,  00111010b,  01010100b,  01101001b,_
  01111101b,  10101001b,  01010101b,  00001010b,  00100001b,  00000010b,  00000000b,  01000000b,_
  11000110b,  00101010b,  00100010b,  11011100b,  00000010b,  00011010b,  00011010b,  01000010b,_
  00110100b,  01101000b,  00110000b,  01101000b,  01110011b,  10010100b,  00001100b,  00000111b,_
  00100000b,  00100001b,  00010001b,  00001101b,  00000011b,  00000001b,  00000010b,  00000000b,_
  10100001b,  01010101b,  00001010b,  00001010b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00001111b,  00010110b,  00101101b,  00111010b,  01010100b,  01101001b,  00110100b,  01101000b,_
  11000000b,  10101000b,  01010101b,  10101001b,  00010101b,  00001010b,  00100001b,  01000010b,_
  00000000b,  00000000b,  11000110b,  00101010b,  00100010b,  11011100b,  00000010b,  00011010b,_
  00110000b,  01101000b,  01110011b,  10010100b,  00001100b,  00000100b,  00001000b,  00000000b,_
  00000000b,  00000000b,  00100000b,  00100001b,  00010001b,  00001101b,  00000010b,  00000001b,_
  00011010b,  01000010b,  10100001b,  01010101b,  00001010b,  00001010b,  00000000b,  10000000b}
 
DIM rataizq(95)AS UBYTE=>{_
  01100011b,  01010100b,  01000100b,  00111011b,  01000000b,  01011000b,  01011000b,  01000010b,_
  10111110b,  10010101b,  10101010b,  01010001b,  00000100b,  01000001b,  00000000b,  00000010b,_
  00000000b,  11000000b,  10110000b,  01101000b,  10110100b,  01011100b,  00101010b,  10010110b,_
  10000101b,  10101010b,  01010000b,  01010000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  00000100b,  00000100b,  00001000b,  10110001b,  11000000b,  00000000b,  01000000b,  00000000b,_
  00101100b,  00010110b,  00001100b,  00010110b,  11001110b,  00101001b,  00110000b,  11100000b,_
  00000000b,  00000000b,  01100011b,  01010100b,  01000100b,  00111011b,  01000000b,  01011000b,_
  00000011b,  00010101b,  10101010b,  10010101b,  10101000b,  01010000b,  00000100b,  01000010b,_
  11110000b,  01101000b,  10110100b,  01011100b,  00101010b,  10010110b,  00101100b,  00010110b,_
  01011000b,  01000010b,  00000101b,  10101010b,  01010000b,  01010000b,  00000000b,  00000001b,_
  00000000b,  00000001b,  00000100b,  00000100b,  00001000b,  10110000b,  01000000b,  00000000b,_
  00001100b,  00010110b,  11001110b,  00101001b,  00110000b,  00100000b,  00010000b,  00000000b}

DIM mago(71)AS UBYTE=>{_
  00000000b, _
  00000000b,_
  00001100b,_
  00011110b,_
  00010010b,_
  00000000b,_
  00000010b,_
  00000100b,_
  _
  00000000b,_
  00010100b,_
  00111010b,_
  01001101b,_
  00000111b,_
  00000110b,_
  10101011b,_
  00000010b,_
  _
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,_
  _
  00001000b,_
  00000000b,_
  00001000b,_
  00001000b,_
  00000001b,_
  00011011b,_
  00011011b,_
  00000010b,_
  _
  01000011b,_
  00100010b,_
  10100101b,_
  10011010b,_
  11100111b,_
  01011011b,_
  01111111b,_
  00111101b,_
  _
  10000000b,_
  01000000b,_
  10100000b,_
  11100000b,_
  11010000b,_
  10100000b,_
  11010000b,_
  10100000b,_
  _
  00001000b,_
  00001000b,_
  00001000b,_
  00001000b,_
  00001000b,_
  00001000b,_
  00000000b,_
  00001000b,_
  _
  01011111b,_
  00111111b,_
  01111111b,_
  00111111b,_
  01111111b,_
  01111111b,_
  01011110b,_
  10111111b,_
  _
  11010000b,_
  11100000b,_
  11111000b,_
  11000000b,_
  10100000b,_
  11000000b,_
  10100000b,_
  11010000b}

DIM puertarocaizq(71)AS UBYTE=>{_
  00000111b,_
  00001111b,_
  00011111b,_
  00011101b,_
  00011010b,_
  00011100b,_
  00011101b,_
  00010101b,_
  _
  01111011b,  11111101b,  01111111b,  11011111b,  00101111b,  11011110b,  11101110b,  11101111b,_
  10100000b,  11010000b,  11101000b,  11110000b,  11101000b,  11110000b,  11101000b,  11110000b,_
  00011100b,  00011010b,  00011101b,  00011111b,  00011010b,  00011111b,  00011001b,  00011111b,_
  11011110b,  00101111b,  11011111b,  11111111b,  01010011b,  11111111b,  01010110b,  11111111b,_
  11101000b,  11110000b,  11101000b,  11110000b,  11101000b,  11110000b,  11101000b,  11110000b,_
  00011010b,  00011111b,  00011001b,  00011111b,  00001010b,  00000000b,  00111110b,  00101001b,_
  10100110b,  11111111b,  01001010b,  11111110b,  10101010b,  00000000b,  11111011b,  10101100b,_
  11101000b,  11110000b,  11101000b,  11010000b,  10101000b,  00000000b,  11101100b,  01010000b}

DIM puertarocadrch(71)AS UBYTE=>{_
  00000101b,  00001011b,  00010111b,  00001111b,  00010111b,  00001111b,  00010111b,  00001111b,_
  11011110b,  10111111b,  11111110b,  11111011b,  11110100b,  01111011b,  01110111b,  11110111b,_
  11100000b,  11110000b,  11111000b,  10111000b,  01011000b,  00111000b,  10111000b,  10101000b,_
  00010111b,  00001111b,  00010111b,  00001111b,  00010111b,  00001111b,  00010111b,  00001111b,_
  01111011b,  11110100b,  11111011b,  11111111b,  11001010b,  11111111b,  01101010b,  11111111b,_
  00111000b,  01011000b,  10111000b,  11111000b,  01011000b,  11111000b,  10011000b,  11111000b,_
  00010111b,  00001111b,  00010111b,  00001011b,  00010101b,  00000000b,  00110111b,  00101101b,_
  01100101b,  11111111b,  01010010b,  01111111b,  01010101b,  00000000b,  11011111b,  00110101b,_
  01011000b,  11111000b,  10011000b,  11111000b,  01010000b,  00000000b,  01111100b,  00110000b}
 
DIM cielo(71)AS UBYTE=>{_
 11111111b,  11111111b,  11111111b,  11111111b,  11111111b,  11111111b,  11111111b,  11111111b,_
 11111111b,  11111111b,  11111111b,  11111111b,  11111111b,  11111111b,  11111111b,  11111111b,_
 11111111b,  11111111b,  11111111b,  11111111b,  11111111b,  11111111b,  11111111b,  11111111b,_
 11111111b,  11111111b,  11111111b,  11111111b,  11111111b,  11111111b,  11111111b,  11111111b,_
 11111111b,  11111111b,  11111111b,  11111111b,  11111111b,  11111111b,  11111111b,  11111111b,_
 11111111b,  11111111b,  11111111b,  11111111b,  11111111b,  11111111b,  11111111b,  11111111b,_
 11111111b,  11111111b,  11111111b,  11111111b,  11111111b,  11111111b,  11111111b,  11111111b,_
 11111111b,  11111111b,  11111111b,  11111111b,  11111111b,  11111111b,  11111111b,  11111111b,_
 11111111b,  11111111b,  11111111b,  11111111b,  11111111b,  11111111b,  11111111b,  11111111b}

DIM titulo(127)AS UBYTE=>{_
  00000000b,_
  00000001b,_
  00000011b,_
  00000110b,_
  00001110b,_
  00001111b,_
  00000111b,_
  10110111b,_
  _
  00000000b,_
  11100000b,_
  11110000b,_
  00111001b,_
  00010100b,_
  00000011b,_
  00000011b,_
  11100111b,_
  _
  00000000b,_
  00111110b,_
  11111111b,_
  11000011b,_
  11000001b,_
  00000000b,_
  00000000b,_
  10010110b,_
  _
  00000000b,  00000111b,  10011111b,  11001110b,  11100110b,  11100111b,  01100110b,  11111111b,_
  00000000b,  00000011b,  00001110b,  00000110b,  00000110b,  00000110b,  00000110b,  01100111b,_
  00000000b,  01111110b,  00111100b,  00111000b,  00111000b,  00111000b,  00111000b,  01111101b,_
  00000000b,  00000001b,  00000011b,  00000110b,  00001110b,  00001111b,  00000111b,  00010111b,_
  00000000b,  11100000b,  11110000b,  00111000b,  00010000b,  00000000b,  00000000b,  11101101b,_
  00000011b,  00000000b,  00000000b,  00000100b,  00001110b,  00000111b,  00000011b,  00000000b,_
  11110011b,  11110011b,  00111011b,  00111001b,  00110001b,  11100000b,  11000000b,  00000000b,_
  10000000b,  00000000b,  11000000b,  11000000b,  11100011b,  11111111b,  00111110b,  00000000b,_
  01100110b,  11100110b,  11100110b,  11000110b,  11000011b,  00000001b,  00000000b,  00000000b,_
  00000110b,  00000110b,  00000110b,  00000110b,  00001100b,  11111000b,  11110000b,  00000000b,_
  00111000b,  00111000b,  00111000b,  00111000b,  00111100b,  01111111b,  01100111b,  00000000b,_
  00000011b,  00000000b,  00000000b,  00100100b,  00111110b,  11110111b,  11100011b,  00000000b,_
  11110000b,  11110000b,  00111000b,  00111000b,  00110000b,  11100000b,  11000000b,  00000000b}
  
DIM logo(167)AS UBYTE=>{_
  00000000b,_
  00001111b,_
  00001111b,_
  00001100b,_
  00001111b,_
  00001111b,_
  00001100b,_
  00001100b,_
  _
  00000000b,_
  10011111b,_
  11011111b,_
  11011000b,_
  10011111b,_
  11011000b,_
  11011111b,_
  11101111b,_
  _
  00000000b,_
  11111111b,_
  11111111b,_
  00110110b,_
  00110111b,_
  00110111b,_
  10110110b,_
  10110110b,_
  _
  00000000b,  11000111b,  11101111b,  01101100b,  11001100b,  11101100b,  01101111b,  01110111b,_
  00000000b,  00000010b,  11000001b,  11000000b,  11000000b,  11001111b,  11011000b,  10010010b,_
  00010000b,  00100000b,  01000000b,  00000000b,  00000000b,  11111111b,  00011010b,  00001010b,_
  00000000b,  00000000b,  00000000b,  00000000b,  00000000b,  11110000b,  00001000b,  11101000b,_
  00000000b,  00001111b,  00001111b,  00001100b,  00001111b,  00001100b,  00001111b,  00001111b,_
  00000000b,  10011001b,  11011001b,  11011111b,  00001111b,  11000001b,  11011111b,  10011111b,_
  00110000b,  10110111b,  10110111b,  10110110b,  10110111b,  10110110b,  10110111b,  00110111b,_
  00000000b,  11100111b,  11101111b,  00001100b,  11000111b,  00000000b,  11101111b,  11101111b,_
  00010100b,  11010100b,  11010000b,  00010000b,  00010000b,  11011000b,  11011111b,  00001011b,_
  00001010b,  00001011b,  00001011b,  00001011b,  00001011b,  00011011b,  11111011b,  01010101b,_
  00001000b,  11110000b,  10111000b,  11110000b,  10111000b,  00010000b,  11111000b,  01110000b,_
  00000000b,  01110011b,  01101011b,  01101011b,  01101011b,  01110011b,  01100011b,  01100011b,_
  00000000b,  00001100b,  01011010b,  01011010b,  01011010b,  10011010b,  01011010b,  01001100b,_
  00000000b,  11100110b,  11010110b,  11010110b,  11010110b,  11010110b,  11010110b,  11100011b,_
  00000000b,  10011001b,  10110100b,  10110000b,  10110000b,  10110000b,  10110100b,  00011000b,_
  00000000b,  11101111b,  11000110b,  11000110b,  11000110b,  11000110b,  11000110b,  11001111b,_
  00000000b,  00110011b,  01101011b,  01101011b,  01101011b,  01101011b,  01101011b,  00110011b,_
  00000000b,  00001100b,  01011010b,  01011000b,  01001100b,  01000110b,  01010110b, 76}
  
DIM letrasfin(47)AS UBYTE=>{_
  00000000b,_
  00000000b,_
  00000111b,_
  00111111b,_
  00011001b,_
  00011000b,_
  00011010b,_
  10111110b,_
  _
  00000000b,_
  00000000b,_
  00011000b,_
  01110011b,_
  00110001b,_
  00110001b,_
  00110001b,_
  11111011b,_
  _
  00000000b,_
  00000000b,_
  11011100b,_
  10011000b,_
  10011000b,_
  11011000b,_
  11011000b,_
  10111101b,_
  _
  00011010b,_
  00011000b,_
  00011000b,_
  00011000b,_
  00011000b,_
  00111100b,_
  00000000b,_
  00000000b,_
  _
  00110001b,_
  00110001b,_
  00110001b,_
  00110001b,_
  00110001b,_
  01111011b,_
  00000000b,_
  00000000b,_
  _
  10111000b,_
  10011000b,_
  10011000b,_
  10011000b,_
  10011000b,_
  11011100b,_
  00000000b,_
  00000000b}