// ====================================================================
// 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 DrawStatusScreen;
Const
  IMAGEDATA_WIDTH=80;
  IMAGEDATA_DEPTH=23;
  IMAGEDATA_LENGTH=475;
  IMAGEDATA : array [1..475] of Char = (
     #1,#16,'Ü','Ü',#25,#10, #8,'Ü','Ü',#25, #3, #7,'°', #0,#23,'²',#16,
    ' ',' ', #8,'Ü',#25, #7,'Ü',#25,#11,'²','Ü','Ü',#25,#16,'Ü','²',' ',
    '°','±','²','Ü','Ü','Ü',#25, #2,'°','Ü',#24,' ', #9,#17,'Þ',#16,'Û',
    #17,'Ü', #1,#16,'Ü',#25, #4, #8,'þ',' ','ß',' ',' ','Ý',' ', #1,'°',
    '°', #9,'°',#17,'Þ',#16,' ', #8,'²',#26, #8,'ß',' ',#26,#10,'ß',#25,
     #3,#26,#17,'ß',#25, #6,#26, #3,'ß','Û','²',#24,' ', #9,'°','Û',#11,
    'Û','Û', #9,#17,'Ü', #1,#16,'Ü',#25, #5, #8,'Ü','ß', #1,'Ü', #9,#17,
    'Ü','Û','Û','Û','Þ', #8,#16,'°','Ý',#25,'2','%',' ',' ','°','±',#24,
    #11,#23,'ß',#16,' ', #9,'²',#26, #3,'Û',#17,'Ü', #1,#16,'Ü', #8,'ß',
    'Û',#23,'²',#16,'ß', #1,'Ü', #9,#17,'Û','Û',#11,#16,'Û', #9,#17,'Û',
    'Û',#16,'²',#17,'Þ',#16,#25,'8', #8,'²',#24,#23,'²',#16,' ', #9,'±',
    #17,'²','²','²',#16,'Û','ß',#17,'ß','Û',#16,'Ü','Ü',#17,'Û','ß',#16,
    'ß',#17,'Û','²','²','²',#16,'±', #1,'Þ', #8,'°','þ','ú',#26,',','Ä',
    ' ','Ä','ú',#25, #3,'°','²','Û',#24,'ß',' ', #1,'Û', #9,#17,'°','°',
    '°', #1,#16,'Û',' ',' ','ß', #9,#17,'ß','ß', #1,#16,'ß',' ',' ','Û',
     #9,#17,'°','°','°', #1,#16,'Û',#25,'5', #8,'%',' ',' ','°','²',#24,
     #1,'°','°','²',#26, #3,'Û',' ', #8,#17,'²',#16,#26, #3,'Ü','²',' ',
     #1,#26, #4,'Û',' ', #8,'±','Ý',#25,'6','²',#24,'Ü','Ü','þ',' ', #1,
    'ß','ß','²',' ', #8,'±',' ',' ','°','°','²',#26, #6,'Ü','²',#26,#10,
    'Ü','²',' ',#26,#17,'Ü',' ',' ',#26, #7,'Ü',' ',' ','Ü',' ',' ',#26,
     #6,'Ü',' ','Ü','²','Û',#24,#25, #7,'°',' ','m', #7,'U','T','I','L',
    ' ','v',#25, #4, #8,'Ü','ß',#25,#10,'ß',#25,#16,'ß','ß',#25, #8,'°',
    ' ',' ','ß',#25, #9,'°',#24,' ',' ', #1,'°',#25,#14, #8,'ß',' ','Ü',
    'Ü','ß',#24,#24,' ',' ','Þ',' ',#15,'P','r','o','c','e','s','s',' ',
     #8,#26,#16,'Ä',' ','Ä',' ',#15,'S','t','a','t','u','s',' ', #8,#26,
    #24,'Ä',' ',#15,'R','e','s','u','l','t',' ', #8,#26, #3,'Ä','ú',#24,
    ' ',' ','Ú',#26,#26,'Ä','³',#26,#31,'Ä','³',#26,#11,'Ä','¿',#24,#24,
    #24,#24,#24,#24,#24,#24,' ',' ','À',#26,'H','Ä','Ù',#24,#24,#24);

Begin
  Console.LoadScreenImage(ImageData, ImageData_Length, ImageData_Width, 1, 1);
  Console.WriteXY (18, 9, 15, Copy(mysVersion, 1, 4));
End;