// ====================================================================
// Mystic BBS Software               Copyright 1997-2013 By James Coyle
// ====================================================================
//
// This file is part of Mystic BBS.
//
// Mystic BBS is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// Mystic BBS is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with Mystic BBS.  If not, see <http://www.gnu.org/licenses/>.
//
// ====================================================================

Procedure DrawMainMenu;
const
  IMAGEDATA_WIDTH=80;
  IMAGEDATA_DEPTH=25;
  IMAGEDATA_LENGTH=903;
  IMAGEDATA : array [1..903] of Char = (
    #15,#16,#25,'<',#14,'²',#24, #3,'Ü','Ü',#25,#10, #8,'Ü','Ü',#25, #3,
     #7,'°', #0,#23,'²',#16,#25,#23,#11,#26, #4,'Ü',#25, #9,#14,'±','Û',
    '±', #7,'°', #0,#23,'²',#16,#25, #8, #7,'°', #0,#23,'²', #8,#16,'g',
    'j','!',#24,' ',#11,#19,'Þ','Û','Ü', #3,#16,'Ü',#25, #4, #8,'þ',' ',
    'ß',' ',' ','Ý',' ', #3,'°', #0,#19,'²',#11,#16,'°',#19,'Þ',#15,'Û',
    'Û',#11,'Û','Ý',#16,#25, #5, #8,'Ý',#25, #5,#15,#23,'Ü',#11,#16,#26,
     #3,'Ü', #3,'Ü',#11,'Ü','Û',#15,#23,'Û','Û',#11,#19,'Û',#15,#23,'Û',
    #11,#16,#26, #3,'Ü',#14,'ß',' ','ß','ß','Û',#15,'Û','Û',#14,'Û','Û',
    'Û','²','ß','ß', #3,'Ü',#11,#26, #4,'Ü',#19,'Ü',#16,'Û','Û',#19,'Ü',
     #3,#16,'Ü',#24,' ',#11,'°',#19,'Û',#15,'Û','Û',#11,'Ü', #3,#16,'Ü',
    #25, #5, #8,'Ü','ß', #3,'Ü',#11,#19,'Ü','Û','Û','Û','Þ','Û','Û','Û',
    'Ý',#16,' ', #8,#23,'²',#16,'ß','ß',' ',' ','ß',' ',' ', #3,'Ü',#11,
    #19,'Ü','Û','Û','Û',#16,'Û','Û',#19,'Û',#16,'²','°',#19,'ß',#26, #4,
    'Û',#26, #3,'ß',#16,#25, #3,#14,'Ü',#26, #3,'Û','²','Ü', #3,'ß',#11,
    #19,'Û','Û',#15,#23,'Û','Û',#11,#19,'Û',#15,#23,'Û',#11,#19,#26, #4,
    'Û',#16,'±', #8,'þ',#24,#15,#23,'ß',#16,' ',#11,'²',#19,#26, #3,'Û',
    'Ü', #3,#16,'Ü', #8,'ß','Û',#23,'²',#16,'ß', #3,'Ü',#11,#19,'Ü','Û',
    #15,#23,'Û',#11,#19,'Û','Û',#16,'²',#19,'Þ','Û','Û','Û','Ý',#16,' ',
     #8,#19,'²',#16,' ',#11,#19,'Þ','Û','Û','Û',#16,'²','±','²',#19,'Û',
    'Û','Û','Ü', #3,#16,'Ü',' ',' ', #8,'Ü','Ü',' ',#11,'²',#19,'Û','Û',
    'Û',#16,'²',' ', #8,'Ü',' ',#11,'Ü','Ü','Ü',' ',#14,'ß','ß',#11,#26,
     #4,'Ü',#14,'ß','ß', #3,'Þ',#11,#19,'Û','²',#16,' ', #8,'Ü','Ü',' ',
     #3,'Ü',#11,#19,'Û','Û','Û', #3,#16,'Ý', #8,'Þ',#24,#23,'²',#16,' ',
    #11,'±',#19,'²','²','²','Û',#16,'ß',#19,'ß',#16,'Û','Ü','Ü','Û',#19,
    'ß',#16,'ß',#19,'Û','²','²','²',#16,'±', #3,'Þ',#11,'²',#19,'²','²',
    '²', #3,#16,'Ü',' ',' ',#11,#19,'Þ','²','²',#16,'²','±',' ', #3,'ß',
    #11,#19,'ß','Û','Û','²','²','±','°', #3,#16,'Ü', #8,'ß',' ',#11,#19,
    '°','²','²','²',#16,'±',' ', #8,#19,'²',#16,' ',#11,#19,'²','²','Ü',
    '±','°',#16,' ',#15,#23,'Û','Û',#11,#19,'Û','Û',#16,'²','°','²',#19,
    '²','²','±',#16,' ', #8,'²',' ', #3,'Þ',#11,'²',#19,'²','²','°',#16,
    ' ', #8,#23,'²',#24,#16,'ß',' ', #3,'Û',#11,#19,'°','°','°', #3,#16,
    'Û',' ',' ','ß',#11,#19,'ß','ß', #3,#16,'ß',' ',' ','Û',#11,#19,'°',
    '°','°', #3,#16,'Û',' ','ß',#11,#19,#26, #3,'°', #3,#16,'Û','Ü','Û',
    #11,#19,'°','°','°', #3,#16,'Û',' ', #8,'ß',' ',' ', #3,'ß','ß',#11,
    #19,#26, #3,'°', #3,#16,'Û',' ','Û',#11,#19,'°','°','°', #3,#16,'Û',
    'Ý', #8,'±',' ',#11,#19,#26, #3,'°', #3,#16,'Û','°',#11,#19,#26, #3,
    '²',#16,'²', #3,'Û',#11,'±',#19,'°','°','°', #3,#16,'Ý', #8,'ß',' ',
    #11,#19,'°','°','°', #3,#16,'Û',#11,'°',' ', #8,#19,'²',#24, #3,#16,
    '°', #0,#19,'²', #3,#16,'²','Û','Û',#19,' ',#16,'Û',' ', #8,#19,'²',
    #16,#26, #3,'Ü','²',' ', #3,#26, #4,'Û',' ', #8,'±','Ü',' ', #3,#26,
     #3,'ß',#26,#14,'Û', #0,#19,'°','±',#16,' ', #3,'ß',#26, #3,'Û','Ü',
    'Ü',#26, #4,'Û',#11,'±',#19,#26, #4,'°',#16,' ', #3,'ß',#26, #3,'Û',
    #26, #4,'Ü',' ', #8,'Ü','Ü','Û',#24,'Ü','Ü','þ',' ', #3,'ß','ß','²',
    ' ', #8,'±',' ',' ','°','°','²',#26, #6,'Ü','²',#26, #4,'ß',' ', #3,
    '²','Û','Û','Û','Ý','²', #0,#19,'°', #3,#16,'²','Û','Û','Û','²',#26,
     #3,'ß',' ', #8,'Þ','Ü','Ü',' ', #3,#26, #7,'ß',' ',' ',#26, #4,'ß',
    #25, #3,#26, #6,'ß',' ', #8,'Ý','°','°',#24,#25, #7,'°',#25,#11,'Ý',
    #25, #5, #3,'°', #0,#19,'²',#16,#25,#10, #8,'þ',#25, #3,'Þ',#26,#12,
    'ß',' ','ß',#25,#13,'ß','Ü',#24,#25,#20,'ß','Ü','Ü',#25,#17,'ß',' ',
    'Ü','Ü','ß',#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#25,#17,
     #7,'V','i','s','i','t',' ',#15,'w','w','w','.','m','y','s','t','i',
    'c','b','b','s','.','c','o','m',' ', #7,'f','o','r',' ','l','a','t',
    'e','s','t',' ','u','p','d','a','t','e','s','!',#24,#24, #8,#26,'N',
    'Ä',#24);
Begin
  Screen.LoadScreenImage(ImageData, ImageData_Length, ImageData_Width, 1, 1);
  Screen.WriteXY (1, 13, 7, strPadC('Mystic BBS Installation Utility Version ' + mysVersion, 79, ' '));
  Screen.WriteXY (1, 14, 7, strPadC('Copyright (C) 1997-2012 By James Coyle.  All Rights Reserved.', 79, ' '));
End;