60 lines
3.3 KiB
ObjectPascal
60 lines
3.3 KiB
ObjectPascal
// ====================================================================
|
|
// 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;
|