66 lines
4.3 KiB
ObjectPascal
66 lines
4.3 KiB
ObjectPascal
|
Procedure DrawMainMenu;
|
|||
|
|
const
|
|||
|
|
IMAGEDATA_WIDTH=80;
|
|||
|
|
IMAGEDATA_DEPTH=25;
|
|||
|
|
IMAGEDATA_LENGTH=903;
|
|||
|
|
IMAGEDATA : array [1..903] of Char = (
|
|||
|
|
#15,#16,#25,'<',#14,'<27>',#24, #3,'<27>','<27>',#25,#10, #8,'<27>','<27>',#25, #3,
|
|||
|
|
#7,'<27>', #0,#23,'<27>',#16,#25,#23,#11,#26, #4,'<27>',#25, #9,#14,'<27>','<27>',
|
|||
|
|
'<27>', #7,'<27>', #0,#23,'<27>',#16,#25, #8, #7,'<27>', #0,#23,'<27>', #8,#16,'g',
|
|||
|
|
'j','!',#24,' ',#11,#19,'<27>','<27>','<27>', #3,#16,'<27>',#25, #4, #8,'<27>',' ',
|
|||
|
|
'<27>',' ',' ','<27>',' ', #3,'<27>', #0,#19,'<27>',#11,#16,'<27>',#19,'<27>',#15,'<27>',
|
|||
|
|
'<27>',#11,'<27>','<27>',#16,#25, #5, #8,'<27>',#25, #5,#15,#23,'<27>',#11,#16,#26,
|
|||
|
|
#3,'<27>', #3,'<27>',#11,'<27>','<27>',#15,#23,'<27>','<27>',#11,#19,'<27>',#15,#23,'<27>',
|
|||
|
|
#11,#16,#26, #3,'<27>',#14,'<27>',' ','<27>','<27>','<27>',#15,'<27>','<27>',#14,'<27>','<27>',
|
|||
|
|
'<27>','<27>','<27>','<27>', #3,'<27>',#11,#26, #4,'<27>',#19,'<27>',#16,'<27>','<27>',#19,'<27>',
|
|||
|
|
#3,#16,'<27>',#24,' ',#11,'<27>',#19,'<27>',#15,'<27>','<27>',#11,'<27>', #3,#16,'<27>',
|
|||
|
|
#25, #5, #8,'<27>','<27>', #3,'<27>',#11,#19,'<27>','<27>','<27>','<27>','<27>','<27>','<27>','<27>',
|
|||
|
|
'<27>',#16,' ', #8,#23,'<27>',#16,'<27>','<27>',' ',' ','<27>',' ',' ', #3,'<27>',#11,
|
|||
|
|
#19,'<27>','<27>','<27>','<27>',#16,'<27>','<27>',#19,'<27>',#16,'<27>','<27>',#19,'<27>',#26, #4,
|
|||
|
|
'<27>',#26, #3,'<27>',#16,#25, #3,#14,'<27>',#26, #3,'<27>','<27>','<27>', #3,'<27>',#11,
|
|||
|
|
#19,'<27>','<27>',#15,#23,'<27>','<27>',#11,#19,'<27>',#15,#23,'<27>',#11,#19,#26, #4,
|
|||
|
|
'<27>',#16,'<27>', #8,'<27>',#24,#15,#23,'<27>',#16,' ',#11,'<27>',#19,#26, #3,'<27>',
|
|||
|
|
'<27>', #3,#16,'<27>', #8,'<27>','<27>',#23,'<27>',#16,'<27>', #3,'<27>',#11,#19,'<27>','<27>',
|
|||
|
|
#15,#23,'<27>',#11,#19,'<27>','<27>',#16,'<27>',#19,'<27>','<27>','<27>','<27>','<27>',#16,' ',
|
|||
|
|
#8,#19,'<27>',#16,' ',#11,#19,'<27>','<27>','<27>','<27>',#16,'<27>','<27>','<27>',#19,'<27>',
|
|||
|
|
'<27>','<27>','<27>', #3,#16,'<27>',' ',' ', #8,'<27>','<27>',' ',#11,'<27>',#19,'<27>','<27>',
|
|||
|
|
'<27>',#16,'<27>',' ', #8,'<27>',' ',#11,'<27>','<27>','<27>',' ',#14,'<27>','<27>',#11,#26,
|
|||
|
|
#4,'<27>',#14,'<27>','<27>', #3,'<27>',#11,#19,'<27>','<27>',#16,' ', #8,'<27>','<27>',' ',
|
|||
|
|
#3,'<27>',#11,#19,'<27>','<27>','<27>', #3,#16,'<27>', #8,'<27>',#24,#23,'<27>',#16,' ',
|
|||
|
|
#11,'<27>',#19,'<27>','<27>','<27>','<27>',#16,'<27>',#19,'<27>',#16,'<27>','<27>','<27>','<27>',#19,
|
|||
|
|
'<27>',#16,'<27>',#19,'<27>','<27>','<27>','<27>',#16,'<27>', #3,'<27>',#11,'<27>',#19,'<27>','<27>',
|
|||
|
|
'<27>', #3,#16,'<27>',' ',' ',#11,#19,'<27>','<27>','<27>',#16,'<27>','<27>',' ', #3,'<27>',
|
|||
|
|
#11,#19,'<27>','<27>','<27>','<27>','<27>','<27>','<27>', #3,#16,'<27>', #8,'<27>',' ',#11,#19,
|
|||
|
|
'<27>','<27>','<27>','<27>',#16,'<27>',' ', #8,#19,'<27>',#16,' ',#11,#19,'<27>','<27>','<27>',
|
|||
|
|
'<27>','<27>',#16,' ',#15,#23,'<27>','<27>',#11,#19,'<27>','<27>',#16,'<27>','<27>','<27>',#19,
|
|||
|
|
'<27>','<27>','<27>',#16,' ', #8,'<27>',' ', #3,'<27>',#11,'<27>',#19,'<27>','<27>','<27>',#16,
|
|||
|
|
' ', #8,#23,'<27>',#24,#16,'<27>',' ', #3,'<27>',#11,#19,'<27>','<27>','<27>', #3,#16,
|
|||
|
|
'<27>',' ',' ','<27>',#11,#19,'<27>','<27>', #3,#16,'<27>',' ',' ','<27>',#11,#19,'<27>',
|
|||
|
|
'<27>','<27>', #3,#16,'<27>',' ','<27>',#11,#19,#26, #3,'<27>', #3,#16,'<27>','<27>','<27>',
|
|||
|
|
#11,#19,'<27>','<27>','<27>', #3,#16,'<27>',' ', #8,'<27>',' ',' ', #3,'<27>','<27>',#11,
|
|||
|
|
#19,#26, #3,'<27>', #3,#16,'<27>',' ','<27>',#11,#19,'<27>','<27>','<27>', #3,#16,'<27>',
|
|||
|
|
'<27>', #8,'<27>',' ',#11,#19,#26, #3,'<27>', #3,#16,'<27>','<27>',#11,#19,#26, #3,
|
|||
|
|
'<27>',#16,'<27>', #3,'<27>',#11,'<27>',#19,'<27>','<27>','<27>', #3,#16,'<27>', #8,'<27>',' ',
|
|||
|
|
#11,#19,'<27>','<27>','<27>', #3,#16,'<27>',#11,'<27>',' ', #8,#19,'<27>',#24, #3,#16,
|
|||
|
|
'<27>', #0,#19,'<27>', #3,#16,'<27>','<27>','<27>',#19,' ',#16,'<27>',' ', #8,#19,'<27>',
|
|||
|
|
#16,#26, #3,'<27>','<27>',' ', #3,#26, #4,'<27>',' ', #8,'<27>','<27>',' ', #3,#26,
|
|||
|
|
#3,'<27>',#26,#14,'<27>', #0,#19,'<27>','<27>',#16,' ', #3,'<27>',#26, #3,'<27>','<27>',
|
|||
|
|
'<27>',#26, #4,'<27>',#11,'<27>',#19,#26, #4,'<27>',#16,' ', #3,'<27>',#26, #3,'<27>',
|
|||
|
|
#26, #4,'<27>',' ', #8,'<27>','<27>','<27>',#24,'<27>','<27>','<27>',' ', #3,'<27>','<27>','<27>',
|
|||
|
|
' ', #8,'<27>',' ',' ','<27>','<27>','<27>',#26, #6,'<27>','<27>',#26, #4,'<27>',' ', #3,
|
|||
|
|
'<27>','<27>','<27>','<27>','<27>','<27>', #0,#19,'<27>', #3,#16,'<27>','<27>','<27>','<27>','<27>',#26,
|
|||
|
|
#3,'<27>',' ', #8,'<27>','<27>','<27>',' ', #3,#26, #7,'<27>',' ',' ',#26, #4,'<27>',
|
|||
|
|
#25, #3,#26, #6,'<27>',' ', #8,'<27>','<27>','<27>',#24,#25, #7,'<27>',#25,#11,'<27>',
|
|||
|
|
#25, #5, #3,'<27>', #0,#19,'<27>',#16,#25,#10, #8,'<27>',#25, #3,'<27>',#26,#12,
|
|||
|
|
'<27>',' ','<27>',#25,#13,'<27>','<27>',#24,#25,#20,'<27>','<27>','<27>',#25,#17,'<27>',' ',
|
|||
|
|
'<27>','<27>','<27>',#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',
|
|||
|
|
'<27>',#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-2011 By James Coyle. All Rights Reserved.', 79, ' '));
|
|||
|
|
End;
|