87 lines
5.3 KiB
ObjectPascal
87 lines
5.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 DrawMainMenu;
|
|
const
|
|
IMAGEDATA_WIDTH=80;
|
|
IMAGEDATA_DEPTH=25;
|
|
IMAGEDATA_LENGTH=903;
|
|
IMAGEDATA : array [1..903] of Char = (
|
|
#15,#16,#25,'<',#14,'²',#24, #3,'Ü','Ü',#25,#10, #8,'Ü','Ü',#25, #3,
|
|
#7,'°', #0,#23,'²',#16,#25,#23,#11,#26, #4,'Ü',#25, #9,#14,'±','Û',
|
|
'±', #7,'°', #0,#23,'²',#16,#25, #8, #7,'°', #0,#23,'²', #8,#16,'g',
|
|
'j','!',#24,' ',#11,#19,'Þ','Û','Ü', #3,#16,'Ü',#25, #4, #8,'þ',' ',
|
|
'ß',' ',' ','Ý',' ', #3,'°', #0,#19,'²',#11,#16,'°',#19,'Þ',#15,'Û',
|
|
'Û',#11,'Û','Ý',#16,#25, #5, #8,'Ý',#25, #5,#15,#23,'Ü',#11,#16,#26,
|
|
#3,'Ü', #3,'Ü',#11,'Ü','Û',#15,#23,'Û','Û',#11,#19,'Û',#15,#23,'Û',
|
|
#11,#16,#26, #3,'Ü',#14,'ß',' ','ß','ß','Û',#15,'Û','Û',#14,'Û','Û',
|
|
'Û','²','ß','ß', #3,'Ü',#11,#26, #4,'Ü',#19,'Ü',#16,'Û','Û',#19,'Ü',
|
|
#3,#16,'Ü',#24,' ',#11,'°',#19,'Û',#15,'Û','Û',#11,'Ü', #3,#16,'Ü',
|
|
#25, #5, #8,'Ü','ß', #3,'Ü',#11,#19,'Ü','Û','Û','Û','Þ','Û','Û','Û',
|
|
'Ý',#16,' ', #8,#23,'²',#16,'ß','ß',' ',' ','ß',' ',' ', #3,'Ü',#11,
|
|
#19,'Ü','Û','Û','Û',#16,'Û','Û',#19,'Û',#16,'²','°',#19,'ß',#26, #4,
|
|
'Û',#26, #3,'ß',#16,#25, #3,#14,'Ü',#26, #3,'Û','²','Ü', #3,'ß',#11,
|
|
#19,'Û','Û',#15,#23,'Û','Û',#11,#19,'Û',#15,#23,'Û',#11,#19,#26, #4,
|
|
'Û',#16,'±', #8,'þ',#24,#15,#23,'ß',#16,' ',#11,'²',#19,#26, #3,'Û',
|
|
'Ü', #3,#16,'Ü', #8,'ß','Û',#23,'²',#16,'ß', #3,'Ü',#11,#19,'Ü','Û',
|
|
#15,#23,'Û',#11,#19,'Û','Û',#16,'²',#19,'Þ','Û','Û','Û','Ý',#16,' ',
|
|
#8,#19,'²',#16,' ',#11,#19,'Þ','Û','Û','Û',#16,'²','±','²',#19,'Û',
|
|
'Û','Û','Ü', #3,#16,'Ü',' ',' ', #8,'Ü','Ü',' ',#11,'²',#19,'Û','Û',
|
|
'Û',#16,'²',' ', #8,'Ü',' ',#11,'Ü','Ü','Ü',' ',#14,'ß','ß',#11,#26,
|
|
#4,'Ü',#14,'ß','ß', #3,'Þ',#11,#19,'Û','²',#16,' ', #8,'Ü','Ü',' ',
|
|
#3,'Ü',#11,#19,'Û','Û','Û', #3,#16,'Ý', #8,'Þ',#24,#23,'²',#16,' ',
|
|
#11,'±',#19,'²','²','²','Û',#16,'ß',#19,'ß',#16,'Û','Ü','Ü','Û',#19,
|
|
'ß',#16,'ß',#19,'Û','²','²','²',#16,'±', #3,'Þ',#11,'²',#19,'²','²',
|
|
'²', #3,#16,'Ü',' ',' ',#11,#19,'Þ','²','²',#16,'²','±',' ', #3,'ß',
|
|
#11,#19,'ß','Û','Û','²','²','±','°', #3,#16,'Ü', #8,'ß',' ',#11,#19,
|
|
'°','²','²','²',#16,'±',' ', #8,#19,'²',#16,' ',#11,#19,'²','²','Ü',
|
|
'±','°',#16,' ',#15,#23,'Û','Û',#11,#19,'Û','Û',#16,'²','°','²',#19,
|
|
'²','²','±',#16,' ', #8,'²',' ', #3,'Þ',#11,'²',#19,'²','²','°',#16,
|
|
' ', #8,#23,'²',#24,#16,'ß',' ', #3,'Û',#11,#19,'°','°','°', #3,#16,
|
|
'Û',' ',' ','ß',#11,#19,'ß','ß', #3,#16,'ß',' ',' ','Û',#11,#19,'°',
|
|
'°','°', #3,#16,'Û',' ','ß',#11,#19,#26, #3,'°', #3,#16,'Û','Ü','Û',
|
|
#11,#19,'°','°','°', #3,#16,'Û',' ', #8,'ß',' ',' ', #3,'ß','ß',#11,
|
|
#19,#26, #3,'°', #3,#16,'Û',' ','Û',#11,#19,'°','°','°', #3,#16,'Û',
|
|
'Ý', #8,'±',' ',#11,#19,#26, #3,'°', #3,#16,'Û','°',#11,#19,#26, #3,
|
|
'²',#16,'²', #3,'Û',#11,'±',#19,'°','°','°', #3,#16,'Ý', #8,'ß',' ',
|
|
#11,#19,'°','°','°', #3,#16,'Û',#11,'°',' ', #8,#19,'²',#24, #3,#16,
|
|
'°', #0,#19,'²', #3,#16,'²','Û','Û',#19,' ',#16,'Û',' ', #8,#19,'²',
|
|
#16,#26, #3,'Ü','²',' ', #3,#26, #4,'Û',' ', #8,'±','Ü',' ', #3,#26,
|
|
#3,'ß',#26,#14,'Û', #0,#19,'°','±',#16,' ', #3,'ß',#26, #3,'Û','Ü',
|
|
'Ü',#26, #4,'Û',#11,'±',#19,#26, #4,'°',#16,' ', #3,'ß',#26, #3,'Û',
|
|
#26, #4,'Ü',' ', #8,'Ü','Ü','Û',#24,'Ü','Ü','þ',' ', #3,'ß','ß','²',
|
|
' ', #8,'±',' ',' ','°','°','²',#26, #6,'Ü','²',#26, #4,'ß',' ', #3,
|
|
'²','Û','Û','Û','Ý','²', #0,#19,'°', #3,#16,'²','Û','Û','Û','²',#26,
|
|
#3,'ß',' ', #8,'Þ','Ü','Ü',' ', #3,#26, #7,'ß',' ',' ',#26, #4,'ß',
|
|
#25, #3,#26, #6,'ß',' ', #8,'Ý','°','°',#24,#25, #7,'°',#25,#11,'Ý',
|
|
#25, #5, #3,'°', #0,#19,'²',#16,#25,#10, #8,'þ',#25, #3,'Þ',#26,#12,
|
|
'ß',' ','ß',#25,#13,'ß','Ü',#24,#25,#20,'ß','Ü','Ü',#25,#17,'ß',' ',
|
|
'Ü','Ü','ß',#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',
|
|
'Ä',#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-2012 By James Coyle. All Rights Reserved.', 79, ' '));
|
|
End;
|