2013-11-10 12:08:54 -08:00
|
|
|
|
// ====================================================================
|
|
|
|
|
|
// 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/>.
|
|
|
|
|
|
//
|
|
|
|
|
|
// ====================================================================
|
2012-02-29 17:45:16 -08:00
|
|
|
|
Procedure DrawStatusScreen;
|
|
|
|
|
|
Const
|
|
|
|
|
|
IMAGEDATA_WIDTH=80;
|
|
|
|
|
|
IMAGEDATA_DEPTH=23;
|
|
|
|
|
|
IMAGEDATA_LENGTH=475;
|
|
|
|
|
|
IMAGEDATA : array [1..475] of Char = (
|
|
|
|
|
|
#1,#16,'<27>','<27>',#25,#10, #8,'<27>','<27>',#25, #3, #7,'<27>', #0,#23,'<27>',#16,
|
|
|
|
|
|
' ',' ', #8,'<27>',#25, #7,'<27>',#25,#11,'<27>','<27>','<27>',#25,#16,'<27>','<27>',' ',
|
|
|
|
|
|
'<27>','<27>','<27>','<27>','<27>','<27>',#25, #2,'<27>','<27>',#24,' ', #9,#17,'<27>',#16,'<27>',
|
|
|
|
|
|
#17,'<27>', #1,#16,'<27>',#25, #4, #8,'<27>',' ','<27>',' ',' ','<27>',' ', #1,'<27>',
|
|
|
|
|
|
'<27>', #9,'<27>',#17,'<27>',#16,' ', #8,'<27>',#26, #8,'<27>',' ',#26,#10,'<27>',#25,
|
|
|
|
|
|
#3,#26,#17,'<27>',#25, #6,#26, #3,'<27>','<27>','<27>',#24,' ', #9,'<27>','<27>',#11,
|
|
|
|
|
|
'<27>','<27>', #9,#17,'<27>', #1,#16,'<27>',#25, #5, #8,'<27>','<27>', #1,'<27>', #9,#17,
|
|
|
|
|
|
'<27>','<27>','<27>','<27>','<27>', #8,#16,'<27>','<27>',#25,'2','%',' ',' ','<27>','<27>',#24,
|
|
|
|
|
|
#11,#23,'<27>',#16,' ', #9,'<27>',#26, #3,'<27>',#17,'<27>', #1,#16,'<27>', #8,'<27>',
|
|
|
|
|
|
'<27>',#23,'<27>',#16,'<27>', #1,'<27>', #9,#17,'<27>','<27>',#11,#16,'<27>', #9,#17,'<27>',
|
|
|
|
|
|
'<27>',#16,'<27>',#17,'<27>',#16,#25,'8', #8,'<27>',#24,#23,'<27>',#16,' ', #9,'<27>',
|
|
|
|
|
|
#17,'<27>','<27>','<27>',#16,'<27>','<27>',#17,'<27>','<27>',#16,'<27>','<27>',#17,'<27>','<27>',#16,
|
|
|
|
|
|
'<27>',#17,'<27>','<27>','<27>','<27>',#16,'<27>', #1,'<27>', #8,'<27>','<27>','<27>',#26,',','<27>',
|
|
|
|
|
|
' ','<27>','<27>',#25, #3,'<27>','<27>','<27>',#24,'<27>',' ', #1,'<27>', #9,#17,'<27>','<27>',
|
|
|
|
|
|
'<27>', #1,#16,'<27>',' ',' ','<27>', #9,#17,'<27>','<27>', #1,#16,'<27>',' ',' ','<27>',
|
|
|
|
|
|
#9,#17,'<27>','<27>','<27>', #1,#16,'<27>',#25,'5', #8,'%',' ',' ','<27>','<27>',#24,
|
|
|
|
|
|
#1,'<27>','<27>','<27>',#26, #3,'<27>',' ', #8,#17,'<27>',#16,#26, #3,'<27>','<27>',' ',
|
|
|
|
|
|
#1,#26, #4,'<27>',' ', #8,'<27>','<27>',#25,'6','<27>',#24,'<27>','<27>','<27>',' ', #1,
|
|
|
|
|
|
'<27>','<27>','<27>',' ', #8,'<27>',' ',' ','<27>','<27>','<27>',#26, #6,'<27>','<27>',#26,#10,
|
|
|
|
|
|
'<27>','<27>',' ',#26,#17,'<27>',' ',' ',#26, #7,'<27>',' ',' ','<27>',' ',' ',#26,
|
|
|
|
|
|
#6,'<27>',' ','<27>','<27>','<27>',#24,#25, #7,'<27>',' ','m', #7,'U','T','I','L',
|
|
|
|
|
|
' ','v',#25, #4, #8,'<27>','<27>',#25,#10,'<27>',#25,#16,'<27>','<27>',#25, #8,'<27>',
|
|
|
|
|
|
' ',' ','<27>',#25, #9,'<27>',#24,' ',' ', #1,'<27>',#25,#14, #8,'<27>',' ','<27>',
|
|
|
|
|
|
'<27>','<27>',#24,#24,' ',' ','<27>',' ',#15,'P','r','o','c','e','s','s',' ',
|
|
|
|
|
|
#8,#26,#16,'<27>',' ','<27>',' ',#15,'S','t','a','t','u','s',' ', #8,#26,
|
|
|
|
|
|
#24,'<27>',' ',#15,'R','e','s','u','l','t',' ', #8,#26, #3,'<27>','<27>',#24,
|
|
|
|
|
|
' ',' ','<27>',#26,#26,'<27>','<27>',#26,#31,'<27>','<27>',#26,#11,'<27>','<27>',#24,#24,
|
|
|
|
|
|
#24,#24,#24,#24,#24,#24,' ',' ','<27>',#26,'H','<27>','<27>',#24,#24,#24);
|
|
|
|
|
|
|
|
|
|
|
|
Begin
|
|
|
|
|
|
Console.LoadScreenImage(ImageData, ImageData_Length, ImageData_Width, 1, 1);
|
|
|
|
|
|
Console.WriteXY (18, 9, 15, Copy(mysVersion, 1, 4));
|
|
|
|
|
|
End;
|
