40 lines
2.3 KiB
ObjectPascal
40 lines
2.3 KiB
ObjectPascal
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;
|