PROGRAM Sympathy_intro_C64;

{ -------------------------------------
  -                                   -
  -   Sympathy BBS TEXTMODE - Intro   -
  -                                   -
  - Thiz code is not optimized, but   -
  - we have other things to do!!      -
  - If ya like to use it please send  -
  - credits                           -
  -                                   -
  -------------------------------------}


USES crt;

CONST text : ARRAY [1..3,1..10] OF STRING [80] =
(
(


'*****************************************************************************  ',
'*                                                                           *  ',
'*              Sympathy presents you a fast production called               *  ',
'*                                                                           *  ',
'*                         Back to the Roots Intro                           *  ',
'*                      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^                        *  ',
'*                                                                           *  ',
'*                    Done in 1995 by Excess of Sympathy                     *  ',
'*                                                                           *  ',
'*****************************************************************************  '),

(
'*****************************************************************************',
'*                                                                           *',
'*                                   Call thiz                               *',
'*                                  ^^^^^^^^^^^                              *',
'*                                                                           *',
'*                Splatterpunk [Sympathy WHQ] +49 02378-2627 28.8KB          *',
'*                          Onine daily: 20:00 - 06:00 cet                   *',
'*                  For ya Pleasure cool PC - AMIGA - C-64 Board!            *',
'*                                                                           *',
'*****************************************************************************'),
(
'*****************************************************************************',
'*                                                                           *',
'*                              Sympathy Creditz                             *',
'*                           ^^^^^^^^^^^^^^^^^^^^^^                          *',
'*                            Introcode by Excess                            *',
'*                  Muzak and Player by Surprise!Productions                 *',
'*                                GFX by Teasy                               *',
'*                                                                           *',
'*                                                                           *',
'*****************************************************************************'));


const
  pic_WIDTH=80;
  pic_DEPTH=25;
  pic_LENGTH=4000;
  pic : array [1..4000] of Char = (
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, 'Û',  #8, 'ß',  #8, 'ß',  #8, 'ß',  #8, 'ß',  #8, 'ß',  #8,
     'ß',  #8, 'ß',  #8, 'ß',  #8, 'ß',  #8, 'ß',  #8, 'ß',  #8, 'ß',  #8,
     'ß',  #8, 'ß',  #8, 'ß',  #8, 'ß',  #8, 'ß',  #8, 'ß',  #8, 'ß',  #8,
     'ß',  #8, 'ß',  #8, 'ß',  #8, 'ß',  #8, 'ß',  #8, 'ß',  #8, 'ß',  #8,
     'ß',  #8, 'ß',  #8, 'ß',  #8, 'ß',  #8, 'ß',  #8, 'ß',  #8, 'ß',  #8,
     'ß',  #8, 'ß',  #8, 'ß',  #8, 'ß',  #8, 'ß',  #8, 'ß',  #8, 'ß',  #8,
     'ß',  #8, 'ß',  #8, 'ß',  #8, 'ß',  #8, 'ß',  #8, 'ß',  #8, 'ß',  #8,
     'ß',  #8, 'ß',  #8, 'ß',  #8, 'ß',  #8, 'ß',  #8, 'ß',  #8, 'ß',  #8,
     'ß',  #8, 'ß',  #8, 'ß',  #8, 'ß',  #8, 'ß',  #8, 'ß',  #8, 'ß',  #8,
     'ß',  #8, 'ß',  #8, 'Û',  #8, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, 'Û',  #8, ' ',  #8, '°', #21,
     'ß',  #1, 'ß',  #1, ' ', #17, ' ', #17, ' ', #15, 'Û',  #1, 'Û',  #1,
     '°', #21, ' ', #15, ' ', #15, 'Û',  #1, 'Û',  #1, ' ',  #1, '°', #21,
     'Û',  #1, 'Û',  #1, 'ß',  #1, '°', #21, 'Û',  #1, 'Û',  #1, 'ß',  #1,
     '°', #21, '°', #24, '²', #24, ' ', #15, '°', #21, 'Û',  #1, 'Û',  #1,
     'ß',  #1, 'ß',  #1, 'Û',  #1, ' ',  #1, '°', #21, 'Û',  #1, 'Û',  #1,
     'ß',  #1, 'ß',  #1, 'Û',  #1, ' ',  #1, '°', #21, 'ß',  #1, '°', #21,
     'Û',  #1, 'Û',  #1, 'ß',  #1, 'Û',  #1, ' ',  #1, '°', #21, 'Û',  #1,
     'Û',  #1, ' ',  #1, 'Û',  #1, ' ',  #1, 'Û',  #1, 'Û',  #1, '°', #21,
     ' ', #15, ' ', #15, '±', #24, '²', #24, ' ', #15, 'Û',  #8, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     'Û',  #8, ' ',  #8, 'ß',  #1, 'ß',  #1, 'Û',  #1, 'Ü',  #1, 'Ü',  #1,
     ' ',  #1, 'Û',  #1, '°', #21, '±', #21, '°', #21, 'Û',  #1, 'Û',  #1,
     'Û',  #1, ' ',  #1, '±', #21, '°', #21, 'Û',  #1, ' ',  #1, '±', #21,
     '°', #21, 'Û',  #1, ' ',  #1, '±', #21, '°', #21, '°', #24, ' ', #15,
     '±', #21, '°', #21, 'Û',  #1, 'Ü',  #1, 'Ü',  #1, 'Û',  #1, ' ',  #1,
     '±', #21, '°', #21, 'Û',  #1, 'Ü',  #1, 'Ü',  #1, 'Û',  #1, ' ',  #1,
     'Ü',  #8, ' ',  #8, '±', #21, '°', #21, 'Û',  #1, ' ',  #1, 'Ü',  #8,
     ' ',  #8, '±', #21, '°', #21, 'Û',  #1, 'Ü',  #1, 'Û',  #1, ' ',  #1,
     'Û',  #1, '°', #21, '±', #21, '°', #21, '°', #24, '°', #24, '±', #24,
     ' ', #15, 'Û',  #8, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, 'Û',  #8, ' ',  #8, '²', #21, '±', #21,
     'Ü',  #1, ' ', #17, ' ', #17, ' ', #15, 'Ü',  #8, ' ',  #8, '²', #21,
     '±', #21, '°', #21, ' ', #15, 'Ü',  #8, ' ',  #8, '²', #21, '±', #21,
     '°', #21, ' ', #15, '²', #21, '±', #21, '°', #21, ' ', #15, '²', #21,
     '±', #21, '°', #21, ' ', #15, '²', #21, '±', #21, '°', #21, ' ', #15,
     'Ü',  #8, 'Ü',  #8, ' ',  #8, '²', #21, '±', #21, '°', #21, ' ', #15,
     ' ', #15, 'Û',  #1, ' ',  #1, 'Û',  #8, ' ',  #8, '²', #21, '±', #21,
     '°', #21, ' ', #15, 'Û',  #8, ' ',  #8, '²', #21, '±', #21, '°', #21,
     ' ', #15, 'Û',  #1, ' ',  #1, 'Ü',  #8, ' ',  #8, '²', #21, '±', #21,
     '°', #21, ' ', #15, 'Ü',  #8, 'Ü',  #8, 'Û',  #8, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, 'Û',  #8,
     'Ü',  #8, 'Ü',  #8, 'Ü',  #8, 'Ü',  #8, 'Ü',  #8, 'Ü',  #8, 'Ü',  #8,
     'Û',  #8, 'Ü',  #8, 'Ü',  #8, 'Ü',  #8, 'Ü',  #8, 'Ü',  #8, 'Û',  #8,
     'Ü',  #8, 'Ü',  #8, 'Ü',  #8, 'Ü',  #8, 'Ü',  #8, 'Ü',  #8, 'Ü',  #8,
     'Ü',  #8, 'Ü',  #8, 'Ü',  #8, 'Ü',  #8, 'Ü',  #8, 'Ü',  #8, 'Ü',  #8,
     'Ü',  #8, 'Ü',  #8, 'Ü',  #8, 'Û',  #8, 'Û',  #8, 'Ü',  #8, 'Ü',  #8,
     'Ü',  #8, 'Ü',  #8, 'Ü',  #8, 'Ü',  #8, 'Ü',  #8, 'Ü',  #8, 'Û',  #8,
     'Ü',  #8, 'Ü',  #8, 'Ü',  #8, 'Ü',  #8, 'Ü',  #8, 'Û',  #8, 'Ü',  #8,
     'Ü',  #8, 'Ü',  #8, 'Ü',  #8, 'Ü',  #8, 'Ü',  #8, 'Ü',  #8, 'Û',  #8,
     'Ü',  #8, 'Ü',  #8, 'Ü',  #8, 'Ü',  #8, 'Ü',  #8, 'Û',  #8, 'Û',  #8,
     'Û',  #8, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15,
     ' ', #15, ' ', #15, ' ', #15, ' ', #15, ' ', #15);


     scroll :STRING =
     '            ^   Call this    ^   Sympathy-BBS   ^  Splatterpunk             Back to the roots, Guys !!'+
     '     Code by Excess                 ';
     farben :ARRAY [1..468] OF INTEGER
     =(
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       darkgray,darkgray,darkgray,
       lightgray,lightgray,lightgray,
       lightblue,lightblue,lightblue,
       white,white,white,
       lightblue,lightblue,lightblue,
       lightgray,lightgray,lightgray,
       darkgray,darkgray,darkgray,
       darkgray,darkgray,darkgray,
       lightgray,lightgray,lightgray,
       lightblue,lightblue,lightblue,
       white,white,white,
       lightblue,lightblue,lightblue,
       lightgray,lightgray,lightgray,
       darkgray,darkgray,darkgray,
       darkgray,darkgray,darkgray,
       lightgray,lightgray,lightgray,
       lightblue,lightblue,lightblue,
       white,white,white,
       lightblue,lightblue,lightblue,
       lightgray,lightgray,lightgray,
       darkgray,darkgray,darkgray,
       darkgray,darkgray,darkgray,
       lightgray,lightgray,lightgray,
       lightblue,lightblue,lightblue,
       white,white,white,
       lightblue,lightblue,lightblue,
       lightgray,lightgray,lightgray,
       darkgray,darkgray,darkgray,
       darkgray,darkgray,darkgray,
       lightgray,lightgray,lightgray,
       lightblue,lightblue,lightblue,
       white,white,white,
       lightblue,lightblue,lightblue,
       lightgray,lightgray,lightgray,
       darkgray,darkgray,darkgray,
       darkgray,darkgray,darkgray,
       lightgray,lightgray,lightgray,
       lightblue,lightblue,lightblue,
       white,white,white,
       lightblue,lightblue,lightblue,
       lightgray,lightgray,lightgray,
       darkgray,darkgray,darkgray,
       darkgray,darkgray,darkgray,
       lightgray,lightgray,lightgray,
       lightblue,lightblue,lightblue,
       white,white,white,
       lightblue,lightblue,lightblue,
       lightgray,lightgray,lightgray,
       darkgray,darkgray,darkgray,
       darkgray,darkgray,darkgray,
       lightgray,lightgray,lightgray,
       lightblue,lightblue,lightblue,
       darkgray,darkgray,darkgray,
       lightgray,lightgray,lightgray,
       lightblue,lightblue,lightblue,
       white,white,white,
       lightblue,lightblue,lightblue,
       lightgray,lightgray,lightgray,
       darkgray,darkgray,darkgray,
       darkgray,darkgray,darkgray,
       lightgray,lightgray,lightgray,
       lightblue,lightblue,lightblue,
       white,white,white,
       lightblue,lightblue,lightblue,
       lightgray,lightgray,lightgray,
       darkgray,darkgray,darkgray,
       darkgray,darkgray,darkgray,
       lightgray,lightgray,lightgray,
       lightblue,lightblue,lightblue,
       white,white,white,
       lightblue,lightblue,lightblue,
       lightgray,lightgray,lightgray,
       darkgray,darkgray,darkgray,
       darkgray,darkgray,darkgray,
       lightgray,lightgray,lightgray,
       lightblue,lightblue,lightblue,
       white,white,white,
       lightblue,lightblue,lightblue,
       lightgray,lightgray,lightgray,
       darkgray,darkgray,darkgray,
       darkgray,darkgray,darkgray,
       lightgray,lightgray,lightgray,
       lightblue,lightblue,lightblue,
       white,white,white,
       lightblue,lightblue,lightblue,
       lightgray,lightgray,lightgray,
       darkgray,darkgray,darkgray,
       darkgray,darkgray,darkgray,
       lightgray,lightgray,lightgray,
       lightblue,lightblue,lightblue,
       white,white,white,
       lightblue,lightblue,lightblue,
       lightgray,lightgray,lightgray,
       darkgray,darkgray,darkgray,
       darkgray,darkgray,darkgray,
       lightgray,lightgray,lightgray,
       lightblue,lightblue,lightblue,
       white,white,white,
       lightblue,lightblue,lightblue,
       lightgray,lightgray,lightgray,
       darkgray,darkgray,darkgray,
       darkgray,darkgray,darkgray,
       lightgray,lightgray,lightgray,
       lightblue,lightblue,lightblue,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black,
       black,black,black);

VAR feld1,feld2,feld3 :ARRAY [1..80,1..50] of INTEGER;
    t,r,l,i       :INTEGER;
    zp,sp         :INTEGER;
    side          :INTEGER;
    puffer        :ARRAY [1..80,1..11] OF CHAR;
    m :POINTER;
    screen        :ARRAY [1..160*80] of BYTE;
    sz            :INTEGER;
    wait          :INTEGER;
    sd            :INTEGER;
    sb            :INTEGER;
{$L qdplay.obj}

{$F+}
PROCEDURE start ; external;
PROCEDURE end_of_all ; external;
PROCEDURE get_file(n:word);external;
{$F-}

PROCEDURE muzak;ASSEMBLER;
  ASM
 db 83,65
 db 100, 84, 9, 9, 96, 32, 243, 116, 56, 53, 0, 3, 0, 8, 0, 0, 0, 0, 9, 96, 32, 243, 116, 56, 53,0
 db 3, 0, 8, 0, 0, 0, 0, 0, 97, 34, 82, 65, 2, 2, 3, 1, 0, 0, 0, 0, 0, 0, 0, 97, 34,82
 db 65, 2, 2, 3, 1, 0, 0, 0, 0, 0, 0, 0, 97, 34, 82, 65, 2, 2, 3, 1, 0, 0, 0, 0, 0,0
 db 11, 64, 0, 240, 246, 247, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 16, 34, 67, 111, 109, 105, 99, 32, 66, 97, 107, 101, 114, 121, 33, 34, 32, 16, 65, 32, 67, 54, 52, 32, 103,97
 db 109, 101, 33, 32, 32, 32, 32, 32, 16, 67, 111, 110, 118, 101, 114, 116, 101, 100, 32, 98, 121, 58, 32, 32, 32,16
 db 72, 121, 100, 114, 97, 47, 65, 110, 97, 114, 99, 104, 121, 32, 80, 99, 16, 105, 110, 32, 49, 57, 57, 51, 33,33
 db 33, 32, 32, 32, 32, 32, 32, 16, 70, 101, 101, 108, 32, 70, 114, 101, 101, 32, 116, 111, 32, 117, 115, 101, 16,116
 db 104, 105, 115, 32, 115, 111, 110, 103, 32, 97, 115, 32, 32, 32, 32, 16, 108, 111, 110, 103, 32, 97, 115, 32, 73,32
 db 97, 109, 32, 32, 32, 32, 16, 98, 101, 105, 110, 103, 32, 99, 114, 101, 100, 105, 116, 101, 100, 33, 32, 16, 32,32
 db 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 16, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32,32
 db 32, 32, 32, 32, 32, 16, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 16, 32, 32,32
 db 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 16, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32,32
 db 32, 32, 32, 32, 16, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 16, 32, 32, 32,32
 db 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 16, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32,32
 db 32, 32, 32, 16, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 16, 32, 32, 32, 32,32
 db 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 16, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32,32
 db 32, 32, 16, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 16, 32, 32, 32, 32, 32,32
 db 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 16, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32,32
 db 32, 16, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 16, 32, 32, 32, 32, 32, 32,32
 db 32, 32, 32, 32, 32, 32, 32, 32, 32, 16, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32,32
 db 16, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 16, 32, 32, 32, 32, 32, 32, 32,32
 db 32, 32, 32, 32, 32, 32, 32, 32, 16, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32,16
 db 32, 32, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 12, 10, 13, 25, 26, 27, 17, 18, 19, 20, 21, 22,23
 db 24, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 28, 0, 25, 0, 125, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1,1
 db 2, 0, 0, 0, 0, 0, 0, 1, 1, 3, 3, 0, 0, 0, 0, 0, 1, 1, 4, 5, 4, 5, 5, 0, 0,1
 db 1, 4, 6, 4, 6, 6, 0, 0, 1, 1, 7, 8, 7, 9, 9, 0, 0, 1, 1, 7, 10, 7, 10, 0, 0,0
 db 1, 1, 7, 11, 7, 11, 0, 0, 0, 1, 1, 7, 12, 7, 12, 0, 0, 0, 13, 13, 14, 15, 14, 15, 0,0
 db 0, 16, 16, 17, 18, 17, 18, 0, 0, 0, 13, 13, 14, 19, 14, 19, 19, 0, 0, 13, 13, 14, 20, 14, 20,9
 db 0, 0, 16, 16, 17, 21, 17, 21, 9, 0, 0, 16, 16, 17, 22, 17, 22, 22, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 17, 17, 0,0
 db 0, 0, 0, 0, 9, 9, 14, 23, 14, 23, 23, 0, 0, 9, 17, 17, 24, 24, 24, 9, 0, 0, 25, 25, 14,23
 db 14, 23, 23, 0, 0, 26, 26, 17, 27, 17, 27, 27, 0, 0, 25, 25, 14, 28, 14, 28, 9, 0, 0, 26, 26,17
 db 29, 17, 29, 9, 0, 0, 9, 30, 31, 32, 9, 9, 9, 0, 0, 13, 13, 14, 14, 25, 25, 9, 0, 0, 16,16
 db 17, 17, 33, 33, 9, 0, 0, 9, 14, 14, 9, 34, 34, 9, 0, 0, 48, 65, 48, 50, 32, 45, 45, 45, 48,48
 db 48, 48, 48, 32, 45, 45, 45, 48, 48, 65, 48, 50, 32, 250, 81, 154, 86, 182, 10, 8, 5, 0, 100, 123, 0,0
 db 1, 62, 5, 0, 0, 0, 161, 123, 250, 123, 113, 123, 242, 124, 78, 24, 194, 31, 157, 11, 153, 22, 2, 114, 225,10
 db 185, 4, 242, 10, 185, 4, 110, 5, 0, 176, 215, 128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 115, 97, 100, 116, 46, 99, 102, 103, 0, 91, 235, 111, 255, 118, 248, 255, 118, 250, 255, 118, 246, 14,232
 db 102, 0, 131, 196, 6, 137, 70, 254, 11, 192, 116, 88, 80, 184, 1, 0, 80, 154, 128, 183, 10, 8, 91, 235, 217,43
 db 88, 219, 32, 32, 32, 48, 3, 32, 32, 48, 51, 48, 3, 32, 53, 48, 3, 32, 53, 48, 48, 50, 65, 48, 3,32
 db 53, 48, 52, 48, 50, 65, 48, 50, 32, 70, 45, 51, 48, 49, 22, 67, 58, 92, 65, 78, 87, 69, 78, 68, 69,82
 db 92, 83, 65, 68, 84, 50, 92, 83, 65, 50, 92, 45, 52, 48, 50, 65, 48, 50, 32, 70, 45, 51, 48, 49, 48,48
 db 48, 32, 67, 45, 52, 48, 50, 65, 48, 50, 32, 117, 26, 131, 62, 228, 108, 0, 117, 19, 131, 62, 160, 91, 0,117
 db 12, 131, 62, 238, 0, 0, 0, 0, 0, 128, 204, 204, 1, 255, 126, 25, 255, 255, 255, 95, 2, 0, 0, 0, 0,0
 db 0, 0, 1, 0, 0, 23, 120, 124, 130, 23, 120, 124, 53, 48, 48, 48, 0, 48, 48, 48, 48, 48, 48, 48, 0,240
 db 1, 0, 128, 255, 64, 20, 130, 0, 0, 0, 64, 26, 5, 64, 42, 0, 84, 26, 0, 88, 42, 0, 64, 26, 0,64
 db 42, 0, 64, 20, 130, 0, 0, 0, 64, 26, 5, 64, 42, 0, 84, 26, 0, 88, 42, 0, 64, 26, 0, 64, 42,0
 db 70, 20, 130, 0, 0, 0, 70, 26, 5, 70, 42, 0, 90, 26, 0, 94, 42, 0, 70, 26, 0, 70, 42, 0, 60,20
 db 130, 0, 0, 0, 60, 26, 4, 60, 42, 0, 80, 26, 0, 84, 42, 0, 60, 26, 0, 60, 42, 0, 64, 20, 130,0
 db 0, 0, 64, 26, 5, 64, 42, 0, 84, 26, 0, 88, 42, 0, 64, 26, 0, 64, 42, 0, 64, 20, 130, 0, 0,0
 db 64, 26, 5, 64, 42, 0, 84, 26, 0, 88, 42, 0, 64, 26, 0, 64, 42, 0, 70, 20, 130, 0, 0, 0, 70,26
 db 5, 70, 42, 0, 90, 26, 0, 94, 42, 0, 70, 26, 0, 70, 42, 0, 74, 20, 130, 0, 0, 0, 74, 26, 5,74
 db 42, 0, 94, 26, 0, 98, 42, 0, 74, 26, 0, 74, 42, 0, 0, 15, 6, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 64,58
 db 3, 0, 10, 5, 88, 58, 5, 88, 58, 5, 64, 58, 5, 0, 10, 5, 88, 58, 5, 88, 58, 5, 64, 58, 5,0
 db 10, 5, 88, 58, 5, 88, 58, 5, 64, 58, 5, 0, 10, 5, 88, 58, 5, 88, 58, 5, 70, 58, 5, 0, 10,5
 db 94, 58, 5, 94, 58, 5, 70, 58, 5, 0, 10, 5, 94, 58, 5, 94, 58, 5, 60, 58, 5, 0, 10, 5, 84,58
 db 5, 84, 58, 5, 60, 58, 5, 0, 10, 5, 84, 58, 5, 84, 58, 5, 64, 58, 5, 0, 10, 5, 88, 58, 5,88
 db 58, 5, 64, 58, 5, 0, 10, 5, 88, 58, 5, 88, 58, 5, 64, 58, 5, 0, 10, 5, 88, 58, 5, 88, 58,5
 db 64, 58, 5, 0, 10, 5, 88, 58, 5, 88, 58, 5, 70, 58, 5, 0, 10, 5, 94, 58, 5, 94, 58, 5, 70,58
 db 5, 0, 10, 5, 94, 58, 5, 94, 58, 5, 74, 58, 5, 0, 10, 5, 98, 58, 5, 98, 58, 5, 74, 58, 5,0
 db 10, 5, 98, 58, 5, 98, 58, 5, 64, 58, 5, 0, 10, 5, 88, 58, 5, 88, 58, 5, 64, 58, 5, 0, 10,5
 db 88, 58, 5, 88, 58, 5, 64, 58, 5, 0, 10, 5, 88, 58, 5, 88, 58, 5, 64, 58, 5, 0, 10, 5, 88,58
 db 5, 88, 58, 5, 70, 58, 5, 0, 10, 5, 94, 58, 5, 94, 58, 5, 70, 58, 5, 0, 10, 5, 94, 58, 5,94
 db 58, 5, 60, 58, 5, 0, 10, 5, 84, 58, 5, 84, 58, 5, 60, 58, 5, 0, 10, 5, 84, 58, 5, 84, 58,5
 db 64, 58, 5, 0, 10, 5, 88, 58, 5, 88, 58, 5, 64, 58, 5, 0, 10, 5, 88, 58, 5, 88, 58, 5, 64,58
 db 5, 0, 10, 5, 88, 58, 5, 88, 58, 5, 64, 58, 5, 0, 10, 5, 88, 58, 5, 88, 58, 5, 70, 58, 5,0
 db 10, 5, 94, 58, 5, 94, 58, 5, 70, 58, 5, 0, 10, 5, 94, 58, 5, 94, 58, 5, 74, 58, 5, 0, 10,5
 db 98, 58, 5, 98, 58, 5, 74, 58, 5, 0, 10, 5, 98, 58, 5, 98, 58, 5, 88, 74, 3, 0, 10, 3, 88,74
 db 3, 0, 10, 3, 84, 74, 3, 0, 10, 3, 88, 68, 131, 0, 4, 131, 0, 10, 3, 0, 10, 3, 78, 74, 3,0
 db 10, 3, 88, 74, 3, 0, 10, 3, 92, 74, 3, 0, 10, 3, 94, 74, 3, 0, 10, 3, 98, 74, 3, 0, 10,3
 db 94, 74, 3, 0, 10, 3, 92, 74, 3, 0, 10, 3, 94, 74, 3, 0, 10, 3, 92, 74, 3, 0, 10, 3, 88,74
 db 3, 0, 10, 3, 84, 74, 3, 0, 10, 3, 88, 74, 3, 0, 10, 3, 88, 74, 3, 0, 10, 3, 84, 74, 3,0
 db 10, 3, 88, 68, 131, 0, 4, 131, 0, 10, 3, 0, 10, 3, 78, 74, 3, 0, 10, 3, 84, 74, 3, 0, 10,3
 db 88, 74, 3, 0, 10, 3, 84, 74, 3, 0, 10, 3, 84, 74, 3, 0, 10, 3, 88, 74, 3, 0, 10, 3, 84,74
 db 3, 0, 10, 3, 82, 74, 3, 0, 10, 3, 74, 74, 3, 0, 10, 3, 78, 74, 3, 82, 74, 3, 84, 74, 3,86
 db 74, 3, 88, 74, 3, 0, 10, 3, 88, 74, 3, 0, 10, 3, 84, 74, 3, 0, 10, 3, 88, 68, 131, 0, 4,131
 db 0, 10, 3, 0, 10, 3, 78, 74, 3, 0, 10, 3, 88, 74, 3, 0, 10, 3, 92, 74, 3, 0, 10, 3, 94,74
 db 3, 0, 10, 3, 98, 74, 3, 0, 10, 3, 94, 74, 3, 0, 10, 3, 92, 74, 3, 0, 10, 3, 94, 74, 3,0
 db 10, 3, 92, 74, 3, 0, 10, 3, 88, 74, 3, 0, 10, 3, 84, 74, 3, 0, 10, 3, 88, 74, 3, 0, 10,3
 db 88, 74, 3, 0, 10, 3, 84, 74, 3, 0, 10, 3, 88, 68, 131, 0, 4, 131, 0, 10, 3, 0, 10, 3, 78,74
 db 3, 0, 10, 3, 84, 74, 3, 0, 10, 3, 88, 74, 3, 0, 10, 3, 102, 74, 3, 0, 10, 3, 98, 74, 3,0
 db 10, 3, 94, 74, 3, 0, 10, 3, 88, 74, 3, 0, 10, 3, 84, 74, 3, 0, 10, 3, 78, 74, 3, 0, 10,3
 db 74, 74, 3, 78, 74, 3, 74, 74, 3, 70, 74, 3, 64, 80, 60, 0, 10, 8, 88, 80, 60, 88, 80, 60, 64,80
 db 60, 0, 10, 8, 88, 80, 60, 88, 80, 60, 64, 80, 60, 0, 10, 8, 88, 80, 60, 88, 80, 60, 64, 80, 60,0
 db 10, 8, 88, 80, 60, 88, 80, 60, 60, 80, 92, 0, 10, 8, 84, 80, 92, 84, 80, 92, 60, 80, 92, 0, 10,8
 db 84, 80, 92, 84, 80, 92, 60, 80, 76, 0, 10, 8, 84, 80, 76, 84, 80, 76, 60, 80, 76, 0, 10, 8, 84,80
 db 76, 84, 80, 76, 64, 80, 60, 0, 10, 8, 88, 80, 60, 88, 80, 60, 64, 80, 60, 0, 10, 8, 88, 80, 60,88
 db 80, 60, 64, 80, 60, 0, 10, 8, 88, 80, 60, 88, 80, 60, 64, 80, 60, 0, 10, 8, 88, 80, 60, 88, 80,60
 db 60, 80, 92, 0, 10, 8, 84, 80, 92, 84, 80, 92, 60, 80, 92, 0, 10, 8, 84, 80, 92, 84, 80, 92, 64,80
 db 92, 0, 10, 8, 88, 80, 92, 88, 80, 92, 64, 80, 92, 0, 10, 8, 88, 80, 92, 88, 80, 92, 64, 68, 129,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10, 1, 0, 0, 0, 0, 10, 1, 0, 0, 0, 0, 10, 1,0
 db 0, 0, 0, 10, 1, 0, 0, 0, 0, 10, 1, 0, 0, 0, 0, 10, 1, 0, 0, 0, 0, 10, 2, 0, 10,2
 db 0, 10, 2, 0, 10, 2, 0, 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 12, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 112, 76, 15, 0, 4, 129, 0, 12, 39, 0, 4, 0, 0, 12, 63, 0, 4, 0, 0, 12, 64, 0, 4,0
 db 112, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 2, 6, 0, 2, 6, 112, 64, 0, 0, 0, 0, 116, 64, 0, 0, 0, 0, 114, 65, 6, 0, 1, 3, 0,0
 db 0, 114, 65, 6, 0, 1, 3, 0, 0, 0, 114, 65, 6, 0, 1, 3, 114, 65, 6, 0, 1, 3, 0, 0, 0,114
 db 65, 6, 0, 1, 3, 0, 0, 0, 118, 64, 0, 116, 64, 0, 112, 64, 0, 0, 0, 0, 108, 64, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 102, 64, 0, 0, 0, 0, 108, 64, 0, 0, 2, 6, 102, 64, 0, 0, 0, 0, 108,64
 db 0, 0, 2, 6, 102, 64, 0, 0, 0, 0, 108, 65, 3, 112, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,2
 db 2, 0, 2, 2, 0, 2, 2, 0, 2, 2, 0, 2, 2, 0, 2, 2, 0, 2, 2, 0, 2, 2, 0, 2, 2,0
 db 2, 2, 0, 2, 2, 0, 2, 2, 0, 2, 2, 0, 2, 2, 0, 2, 2, 0, 2, 2, 0, 2, 2, 0, 2,2
 db 0, 2, 2, 0, 2, 2, 0, 2, 2, 0, 2, 2, 0, 2, 2, 0, 2, 2, 0, 2, 2, 0, 2, 2, 0,2
 db 2, 0, 10, 1, 0, 2, 2, 0, 10, 1, 0, 2, 2, 0, 10, 1, 0, 2, 2, 0, 10, 2, 0, 2, 2,0
 db 10, 2, 0, 2, 2, 0, 10, 2, 0, 2, 2, 0, 10, 2, 0, 2, 2, 0, 10, 2, 64, 20, 130, 0, 0,0
 db 64, 26, 5, 64, 42, 0, 84, 26, 0, 88, 42, 0, 64, 26, 0, 64, 42, 0, 64, 20, 130, 0, 0, 0, 64,26
 db 5, 64, 42, 0, 84, 26, 0, 88, 42, 0, 64, 26, 0, 64, 42, 0, 64, 20, 130, 0, 0, 0, 64, 26, 5,64
 db 42, 0, 84, 26, 0, 88, 42, 0, 64, 26, 0, 64, 42, 0, 64, 20, 130, 0, 0, 0, 64, 26, 4, 64, 42,0
 db 84, 26, 0, 88, 42, 0, 64, 26, 0, 64, 42, 0, 70, 20, 130, 0, 0, 0, 70, 26, 5, 70, 42, 0, 90,26
 db 0, 94, 42, 0, 70, 26, 0, 70, 42, 0, 70, 20, 130, 0, 0, 0, 70, 26, 5, 70, 42, 0, 90, 26, 0,94
 db 42, 0, 70, 26, 0, 70, 42, 0, 70, 20, 130, 0, 0, 0, 70, 26, 5, 70, 42, 0, 90, 26, 0, 94, 42,0
 db 70, 26, 0, 70, 42, 0, 70, 20, 130, 0, 0, 0, 70, 26, 5, 70, 42, 0, 90, 26, 0, 94, 42, 0, 70,26
 db 0, 70, 42, 0, 64, 80, 60, 0, 10, 8, 88, 80, 60, 88, 80, 60, 64, 80, 60, 0, 10, 8, 88, 80, 60,88
 db 80, 60, 64, 80, 60, 0, 10, 8, 88, 80, 60, 88, 80, 60, 64, 80, 60, 0, 10, 8, 88, 80, 60, 88, 80,60
 db 64, 80, 60, 0, 10, 8, 88, 80, 60, 88, 80, 60, 64, 80, 60, 0, 10, 8, 88, 80, 60, 88, 80, 60, 64,80
 db 60, 0, 10, 8, 88, 80, 60, 88, 80, 60, 64, 80, 60, 0, 10, 8, 88, 80, 60, 88, 80, 60, 60, 80, 92,0
 db 10, 8, 84, 80, 92, 84, 80, 92, 60, 80, 92, 0, 10, 8, 84, 80, 92, 84, 80, 92, 60, 80, 92, 0, 10,8
 db 84, 80, 92, 84, 80, 92, 60, 80, 92, 0, 10, 8, 84, 80, 92, 84, 80, 92, 60, 80, 92, 0, 10, 8, 84,80
 db 92, 84, 80, 92, 60, 80, 92, 0, 10, 8, 84, 80, 92, 84, 80, 92, 60, 80, 92, 0, 10, 8, 84, 80, 92,84
 db 80, 92, 60, 80, 92, 0, 10, 8, 84, 80, 92, 84, 80, 92, 64, 64, 60, 0, 10, 8, 88, 64, 60, 88, 64,60
 db 64, 64, 60, 0, 10, 8, 88, 64, 60, 88, 64, 60, 64, 64, 60, 0, 10, 8, 88, 64, 60, 88, 64, 60, 64,64
 db 60, 0, 10, 8, 88, 64, 60, 88, 64, 60, 64, 64, 60, 0, 10, 8, 88, 64, 60, 88, 64, 60, 64, 64, 60,0
 db 10, 8, 88, 64, 60, 88, 64, 60, 64, 64, 60, 0, 10, 8, 88, 64, 60, 88, 64, 60, 64, 64, 60, 0, 10,8
 db 88, 64, 60, 88, 64, 60, 60, 64, 92, 0, 10, 8, 84, 64, 92, 84, 64, 92, 60, 64, 92, 0, 10, 8, 84,64
 db 92, 84, 64, 92, 60, 64, 92, 0, 10, 8, 84, 64, 92, 84, 64, 92, 60, 64, 92, 0, 10, 8, 84, 64, 92,84
 db 64, 92, 60, 64, 92, 0, 10, 8, 84, 64, 92, 84, 64, 92, 60, 64, 92, 0, 10, 8, 84, 64, 92, 84, 64,92
 db 60, 64, 92, 0, 10, 8, 84, 64, 92, 84, 64, 92, 60, 64, 92, 0, 10, 8, 84, 64, 92, 84, 64, 92, 60,20
 db 130, 0, 0, 0, 60, 26, 5, 60, 42, 0, 80, 26, 0, 84, 42, 0, 60, 26, 0, 60, 42, 0, 60, 20, 130,0
 db 0, 0, 60, 26, 5, 60, 42, 0, 80, 26, 0, 84, 42, 0, 60, 26, 0, 60, 42, 0, 60, 20, 130, 0, 0,0
 db 60, 26, 5, 60, 42, 0, 80, 26, 0, 84, 42, 0, 60, 26, 0, 60, 42, 0, 60, 20, 130, 0, 0, 0, 60,26
 db 4, 60, 42, 0, 80, 26, 0, 84, 42, 0, 60, 26, 0, 60, 42, 0, 64, 20, 130, 0, 0, 0, 64, 26, 5,64
 db 42, 0, 84, 26, 0, 88, 42, 0, 64, 26, 0, 64, 42, 0, 64, 20, 130, 0, 0, 0, 64, 26, 5, 64, 42,0
 db 84, 26, 0, 88, 42, 0, 64, 26, 0, 64, 42, 0, 56, 20, 130, 0, 0, 0, 56, 26, 5, 56, 42, 0, 76,26
 db 0, 80, 42, 0, 56, 26, 0, 56, 42, 0, 54, 20, 130, 0, 0, 0, 54, 26, 5, 54, 42, 0, 74, 26, 0,78
 db 42, 0, 54, 26, 0, 54, 42, 0, 60, 80, 76, 0, 10, 8, 84, 80, 76, 84, 80, 76, 60, 80, 76, 0, 10,8
 db 84, 80, 76, 84, 80, 76, 60, 80, 76, 0, 10, 8, 84, 80, 76, 84, 80, 76, 60, 80, 76, 0, 10, 8, 84,80
 db 76, 84, 80, 76, 60, 80, 76, 0, 10, 8, 84, 80, 76, 84, 80, 76, 60, 80, 76, 0, 10, 8, 84, 80, 76,84
 db 80, 76, 60, 80, 76, 0, 10, 8, 84, 80, 76, 84, 80, 76, 60, 80, 76, 0, 10, 8, 84, 80, 76, 84, 80,76
 db 64, 80, 60, 0, 10, 8, 88, 80, 60, 88, 80, 60, 64, 80, 60, 0, 10, 8, 88, 80, 60, 88, 80, 60, 64,80
 db 60, 0, 10, 8, 88, 80, 60, 88, 80, 60, 64, 80, 60, 0, 10, 8, 88, 80, 60, 88, 80, 60, 56, 80, 76,0
 db 10, 8, 80, 80, 76, 80, 80, 76, 56, 80, 76, 0, 10, 8, 80, 80, 76, 80, 80, 76, 54, 80, 76, 0, 10,8
 db 78, 80, 76, 78, 80, 76, 54, 80, 76, 0, 10, 8, 78, 80, 76, 78, 80, 76, 60, 64, 76, 0, 10, 8, 84,64
 db 76, 84, 64, 76, 60, 64, 76, 0, 10, 8, 84, 64, 76, 84, 64, 76, 60, 64, 76, 0, 10, 8, 84, 64, 76,84
 db 64, 76, 60, 64, 76, 0, 10, 8, 84, 64, 76, 84, 64, 76, 60, 64, 76, 0, 10, 8, 84, 64, 76, 84, 64,76
 db 60, 64, 76, 0, 10, 8, 84, 64, 76, 84, 64, 76, 60, 64, 76, 0, 10, 8, 84, 64, 76, 84, 64, 76, 60,64
 db 76, 0, 10, 8, 84, 64, 76, 84, 64, 76, 64, 64, 60, 0, 10, 8, 88, 64, 60, 88, 64, 60, 64, 64, 60,0
 db 10, 8, 88, 64, 60, 88, 64, 60, 64, 64, 60, 0, 10, 8, 88, 64, 60, 88, 64, 60, 64, 64, 60, 0, 10,8
 db 88, 64, 60, 88, 64, 60, 56, 64, 76, 0, 10, 8, 80, 64, 76, 80, 64, 76, 56, 64, 76, 0, 10, 8, 80,64
 db 76, 80, 64, 76, 54, 64, 76, 0, 10, 8, 78, 64, 76, 78, 64, 76, 54, 64, 76, 0, 10, 8, 78, 64, 76,78
 db 64, 76, 64, 97, 3, 0, 1, 3, 0, 1, 3, 0, 1, 3, 0, 1, 3, 0, 1, 3, 0, 1, 2, 0, 1,2
 db 0, 1, 2, 0, 1, 2, 0, 1, 2, 0, 1, 2, 0, 1, 2, 0, 1, 2, 0, 1, 2, 0, 1, 1, 0,1
 db 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 88, 96, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 84, 96, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10, 1, 0, 10, 1, 0, 10, 1, 78, 96, 0, 0, 0,0
 db 84, 96, 0, 0, 0, 0, 88, 96, 0, 0, 0, 0, 64, 64, 60, 64, 64, 60, 88, 64, 60, 88, 64, 60, 64,64
 db 60, 64, 64, 60, 88, 64, 60, 88, 64, 60, 64, 64, 60, 64, 64, 60, 88, 64, 60, 88, 64, 60, 64, 64, 60,64
 db 64, 60, 88, 64, 60, 88, 64, 60, 64, 64, 60, 64, 64, 60, 88, 64, 60, 88, 64, 60, 64, 64, 60, 64, 64,60
 db 88, 64, 60, 88, 64, 60, 64, 64, 60, 64, 64, 60, 88, 64, 60, 88, 64, 60, 64, 64, 60, 64, 64, 60, 88,64
 db 60, 88, 64, 60, 60, 64, 92, 60, 64, 92, 84, 64, 92, 84, 64, 92, 60, 64, 92, 60, 64, 92, 84, 64, 92,84
 db 64, 92, 60, 64, 92, 60, 64, 92, 84, 64, 92, 84, 64, 92, 60, 64, 92, 60, 64, 92, 84, 64, 92, 84, 64,92
 db 60, 64, 92, 60, 64, 92, 84, 64, 92, 84, 64, 92, 60, 64, 92, 60, 64, 92, 84, 64, 92, 84, 64, 92, 60,64
 db 92, 60, 64, 92, 84, 64, 92, 84, 64, 92, 60, 64, 92, 60, 64, 92, 84, 64, 92, 84, 64, 92, 60, 64, 76,60
 db 64, 76, 84, 64, 76, 84, 64, 76, 60, 64, 76, 60, 64, 76, 84, 64, 76, 84, 64, 76, 60, 64, 76, 60, 64,76
 db 84, 64, 76, 84, 64, 76, 60, 64, 76, 60, 64, 76, 84, 64, 76, 84, 64, 76, 60, 64, 76, 60, 64, 76, 84,64
 db 76, 84, 64, 76, 60, 64, 76, 60, 64, 76, 84, 64, 76, 84, 64, 76, 60, 64, 76, 60, 64, 76, 84, 64, 76,84
 db 64, 76, 60, 64, 76, 60, 64, 76, 84, 64, 76, 84, 64, 76, 64, 64, 60, 64, 64, 60, 88, 64, 60, 88, 64,60
 db 64, 64, 60, 64, 64, 60, 88, 64, 60, 88, 64, 60, 64, 64, 60, 64, 64, 60, 88, 64, 60, 88, 64, 60, 64,64
 db 60, 64, 64, 60, 88, 64, 60, 88, 64, 60, 56, 64, 76, 56, 64, 76, 80, 64, 76, 80, 64, 76, 56, 64, 76,56
 db 64, 76, 80, 64, 76, 80, 64, 76, 54, 64, 76, 54, 64, 76, 78, 64, 76, 78, 64, 76, 54, 64, 76, 54, 64,76
 db 78, 64, 76, 78, 64, 76, 92, 96, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 12, 48, 0, 0, 0, 94, 100, 0, 0, 4,0
 db 98, 100, 0, 0, 4, 0, 94, 100, 0, 0, 4, 0, 92, 100, 0, 0, 4, 0, 94, 100, 0, 0, 4, 0, 88,100
 db 0, 0, 4, 0, 0, 4, 0, 0, 4, 0, 0, 4, 0, 0, 4, 0, 0, 4, 0, 0, 4, 0, 0, 4, 0,0
 db 4, 0, 0, 4, 0, 0, 4, 0, 0, 4, 0, 0, 4, 0, 0, 4, 0, 0, 4, 0, 0, 4, 0, 0, 4,0
 db 0, 4, 0, 0, 4, 0, 0, 4, 0, 0, 4, 0, 0, 4, 0, 0, 4, 0, 0, 10, 1, 0, 10, 1, 0,10
 db 1, 0, 10, 2, 0, 10, 2, 0, 10, 2, 0, 10, 3, 0, 10, 3, 64, 97, 3, 0, 1, 3, 0, 1, 3,0
 db 1, 3, 0, 1, 3, 0, 1, 3, 0, 1, 2, 0, 1, 2, 0, 1, 2, 0, 1, 2, 0, 1, 2, 0, 1,2
 db 0, 1, 2, 0, 1, 2, 0, 1, 2, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0,1
 db 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 88, 96, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 84, 96, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 10, 1, 0, 10, 1, 0, 10, 2, 78, 96, 0, 0, 0, 0, 84, 96, 0, 0, 0, 0, 88, 96, 0, 0, 0,0
 db 92, 96, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 10, 1, 0, 10, 1, 0, 10, 2, 94, 96, 0, 0, 0, 0, 98, 96, 0, 0, 0,0
 db 94, 96, 0, 0, 0, 0, 92, 96, 0, 0, 0, 0, 94, 96, 0, 0, 0, 0, 88, 96, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10, 1, 0, 10, 1, 0, 10, 1, 0, 10, 1, 0,10
 db 1, 0, 10, 2, 0, 10, 2, 0, 10, 2, 88, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 88, 80, 0, 0, 0, 0, 92, 80, 0, 0, 0, 0, 94, 80, 0, 0, 0, 0, 98, 80, 0,0
 db 0, 0, 98, 81, 4, 102, 80, 0, 0, 0, 0, 98, 80, 0, 0, 0, 0, 0, 0, 0, 94, 80, 0, 0, 0,0
 db 98, 81, 4, 102, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 102, 80, 0, 104, 80, 0, 102, 80, 0, 94, 80, 0, 98, 80, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 10, 1, 0, 10, 1, 0, 10, 2, 98, 80, 0, 102, 80, 0, 98, 80, 0, 0, 0, 0, 94, 80, 0, 0, 0,0
 db 92, 80, 0, 0, 0, 0, 84, 80, 0, 0, 0, 0, 88, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 92, 96, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10, 1, 0, 10, 1, 0, 10, 2, 94, 96, 0, 0, 0, 0, 98,96
 db 0, 0, 0, 0, 94, 96, 0, 0, 0, 0, 92, 96, 0, 0, 0, 0, 94, 96, 0, 0, 0, 0, 88, 96, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10, 1, 0, 10, 1, 0, 10, 1,0
 db 10, 1, 0, 10, 1, 0, 10, 1, 0, 10, 1, 0, 10, 1, 0, 12, 0, 88, 80, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 88, 80, 0, 0, 0, 0, 92, 80, 0, 0, 0, 0, 94, 80,0
 db 0, 0, 0, 98, 80, 0, 0, 0, 0, 98, 81, 4, 102, 80, 0, 0, 0, 0, 98, 80, 0, 0, 0, 0, 0,0
 db 0, 94, 80, 0, 0, 0, 0, 98, 81, 4, 102, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 102, 80, 0, 104, 80, 0, 102, 80, 0, 94,80
 db 0, 98, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 10, 1, 0, 10, 1, 0, 10, 2, 98, 80, 0, 102, 80, 0, 98, 80, 0, 0,0
 db 0, 94, 80, 0, 0, 0, 0, 92, 80, 0, 0, 0, 0, 84, 80, 0, 0, 0, 0, 88, 80, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 88, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 10, 1, 0, 10, 1, 0, 10, 1, 0, 10, 1, 0, 10, 1, 0, 10, 2, 0,10
 db 2, 0, 10, 2, 0, 10, 2, 0, 10, 3, 0, 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 64, 80, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10, 1, 0, 10, 1, 0, 10, 1,0
 db 10, 1, 0, 10, 1, 0, 10, 2, 0, 10, 2, 0, 10, 2, 0, 10, 2, 0, 10, 3, 0, 12, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 96, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 10, 1, 0, 10, 1, 0, 10, 1, 0, 10, 1, 0, 10, 1, 0, 10, 2, 0, 10, 2, 0, 10, 2, 0,10
 db 2, 0, 10, 3, 0, 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 98, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10, 1, 0, 10, 1, 0, 10,1
 db 98, 80, 0, 102, 80, 0, 98, 80, 0, 0, 0, 0, 94, 80, 0, 0, 0, 0, 92, 80, 0, 0, 0, 0, 84,80
 db 0, 0, 0, 0, 88, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10, 1,0
 db 0, 0, 0, 10, 1, 0, 0, 0, 0, 10, 1, 0, 0, 0, 0, 10, 1, 0, 0, 0, 0, 10, 1, 0, 0,0
 db 0, 10, 1, 0, 10, 1, 0, 10, 2, 0, 10, 2, 0, 10, 2, 0, 10, 2, 0, 10, 3, 0, 12, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0
 db 0, 0, 0, 0, 0, 0
 END;

PROCEDURE WaitRetrace; ASSEMBLER;
  asm
   mov dx,3dah
@wait1:
   in al,dx
   test al,08h
   jnz @wait1
@wait2:
   in al,dx
   test al,08h
   jz @wait2
  end;

PROCEDURE bild(x:INTEGER);
 BEGIN
  ASM
   mov ax,$b800
   mov es,ax
   mov si,1               {Achtung <-}
   mov di,x
   mov cx,160*10
@loop:
   mov al,BYTE PTR pic[di]
   cmp al,32
   je @nix
   cmp al,0
   je @nix
   mov BYTE PTR screen[si],al
@nix:
   inc di
   inc si
   dec cx
   jne @loop
  END;
 END;

FUNCTION zeichen (x,y:INTEGER):BYTE;
VAR z :BYTE;
 BEGIN
  ASM
   mov ax,$b800
   mov es,ax
   mov ax,x
   mov si,ax
   mov ax,y
   mov bx,80*2
   mul bx
   add si,ax
   mov al,es:[si]
   mov z,al
  END;
  zeichen := z;
 END;

PROCEDURE fire;
 BEGIN
  FOR t := 2 TO 49 DO
   FOR r := 2 TO 79 DO
    BEGIN
     feld2[r,t] :=(feld1[r-1,t]+feld1[r+1,t]+feld1[r,t-1]+feld1[r,t+1]+
                   feld1[r-1,t-1]+feld1[r-1,t+1]+feld1[r+1,t+1]+feld1[r+1,t-1]) div 8;
    END;
  feld3 := feld1;
  FOR t := 23 TO 49 DO
   FOR r := 2 TO 79 DO
    feld1[r,t-1] := feld2[r,t];
  FOR t := 1 TO 25 DO
   FOR r := 2 TO 79 DO
    feld1[r,t] := feld2[r,t];
  FOR t := 2 TO 49 DO
   FOR r := 2 TO 79 DO
    BEGIN
     CASE feld1[r,t] OF
      0 : IF feld3[r,t] >= 1 THEN BEGIN
            BEGIN
{             GOTOXY (r,t);TEXTCOLOR (BLACK);WRITE (' ');}
                screen[r*2+t*160] :=32;
                screen[r*2+1+t*160] :=BLACK;
            END;
          END;
      1 : BEGIN {GOTOXY (r,t);
                TEXTCOLOR (Lightblue);
                WRITE (CHR(46));
                }
                screen[r*2+t*160] :=46;
                screen[r*2+1+t*160] :=LIGHTBLUE;
          END;
      2 : BEGIN {GOTOXY (r,t);
                TEXTCOLOR (lightred);
                WRITE (CHR(9));
                }screen[r*2+t*160] :=9;
                screen[r*2+1+t*160] :=LIGHTRED;
          END;
      3 : BEGIN {GOTOXY (r,t);
                TEXTCOLOR (magenta);
                WRITE (CHR(42));
                }screen[r*2+t*160] :=42;
                screen[r*2+1+t*160] :=magenta;
          END;
      4 : BEGIN {GOTOXY (r,t);
                TEXTCOLOR (red);
                WRITE (CHR(15));
                }screen[r*2+t*160] :=15;
                screen[r*2+1+t*160] :=red;
          END;
      5 : BEGIN {GOTOXY (r,t);
                TEXTCOLOR (yellow);
                WRITE (CHR(220));
                }screen[r*2+t*160] :=220;
                screen[r*2+1+t*160] :=yellow;
          END;
      6 : BEGIN {GOTOXY (r,t);
                TEXTCOLOR (white);
                WRITE (CHR(219));
                }screen[r*2+t*160] :=219;
                screen[r*2+1+t*160] :=white;
          END;
     END;
    END;

  FOR r := 1 TO 10 DO
   feld1[RANDOM (78)+2,48] := 70;
 END;

PROCEDURE print;
CONST spalte = 13;
 BEGIN
  FOR t := 1 TO 15 DO
   BEGIN
    IF scroll[t+sz] = '^' THEN BEGIN wait := 20;inc(sz);END
                          ELSE BEGIN
                                screen[0+t*2+48*160] :=ORD(scroll[t+sz]);
                                screen[0+t*2+1+48*160] :=white;
                               END;
   END;
  IF wait = 0 THEN inc (sz)
              ELSE dec (wait);
  IF sz >= LENGTH(scroll) THEN sz := 1;



  inc (sp);
  IF sp = 468-80 THEN
   BEGIN
    sp :=0;
    sd := 1;
    inc (side);
    sb :=79;
   END;
 IF sd = 1 THEN
  BEGIN
   IF side > 3 THEN side := 1;
   FOR t := 1 TO 10 DO
    FOR r := 0 TO 79 DO
     BEGIN
      screen[4+r*2+(13+t)*160] :=ORD(text[side,t][r+1]);
     END;
   dec (sb);
   IF sb = 0 THEN sd :=0;
  END;
  FOR t := 0 TO 5 DO
   FOR r := 0 TO 79 DO
    BEGIN
     screen[1+r*2+(12+t*2)*160] :=farben[r+sp];
    END;
  FOR t := 1 TO 5 DO
   FOR r := 0 TO 79 DO
    BEGIN
     screen[1+r*2+(13+t*2)*160] :=farben[80+sp-r];
    END;
 END;

PROCEDURE putscreen;
 BEGIN
  ASM
   mov ax,$b800
   mov es,ax
   mov si,0
   mov di,1
   mov cx,160*49
@loop:
   mov al,BYTE PTR screen[di]
   mov es:[si],al
   inc di
   inc si
   dec cx
   jne @loop
  END;
 END;

VAR key :CHAR;
    p   :POINTER;
    pp1,pp2:WORD;
    ppp1,ppp2         :BYTE;
BEGIN
 WRITE ('Back to the roots...');
 GETMEM (p,60000);
 FOR t := 1 TO 100 DO
  WAITRETRACE;
 pp1 :=seg(muzak);
 pp2 :=ofs(muzak);

 ASM
  les di,p
  mov si,pp2
  mov cx,0
  push ds
  mov ax,pp1
  mov ds,ax
@loop:
  mov al,ds:[si]
  mov es:[di],al
  inc si
  inc di
  inc cx
  cmp cx,60000
  jne @loop
  pop ds
  LES di,p
  mov ax,es
  mov pp1,ax
  mov pp2,di
  mov ppp1,ah
  mov ppp2,al
 END;
 get_file(pp1);
 start;
 RANDOMIZE;
 sz :=0;
 sp := 1;
 side :=1;
 zp := 0;
 FOR t := 1 TO 50 DO
  FOR r := 1 TO 80 DO
   BEGIN
    feld1[r,t] := 0;
    feld2[r,t] := 0;
   END;
  FOR t := 1 TO 10 DO
   FOR r := 1 TO 79 DO
    BEGIN
     puffer [r,t] := ' ';
    END;
 TEXTMODE (c80+font8x8);
 CLRSCR;
 GOTOXY (1,49);
 sd :=1;
 sb :=79;
 FOR t := 15 DOWNTO 1 DO
  BEGIN
   FOR r := 0 TO 80*11 DO
    BEGIN
     screen[r] := 32;
     screen[(r+1)] := 0;
    END;
   bild (160*t);
   WAITRETRACE;
   WAITRETRACE;
   WAITRETRACE;
   putscreen;
  END;
 FOR t := 1 TO 80*50 DO
  BEGIN
   screen[t*2] :=32;
   screen[t*2+1] :=BLACK;
  END;

 REPEAT
  IF RANDOM(8) = 1 THEN feld1[random(70)+9,random(10)+1] := 50;
  fire;
  bild(0);
  print;
  WAITRETRACE;
  putscreen;
 UNTIL keypressed;
 FOR t := 1 TO 50 DO
  BEGIN
   WAITRETRACE;
   WRITELN;
  END;
 TEXTMODE (c80);
 key := readkey;
 writeln('See ya later, in another Product of Sympathy...');
 writeln('Call now Splatterpunk BBS +49 (0)2378-2627');
 end_of_all;
 freemem (p,60000);
END.
