96 lines
5.9 KiB
ObjectPascal
96 lines
5.9 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 DrawTerminalAnsi;
|
|
Const
|
|
IMAGEDATA_WIDTH=80;
|
|
IMAGEDATA_DEPTH=25;
|
|
IMAGEDATA_LENGTH=1112;
|
|
IMAGEDATA : array [1..1112] of Char = (
|
|
#1,#16,'Ü','Ü',#25,#10, #8,'Ü','Ü',#25, #3, #7,'°', #0,#23,'²',#16,
|
|
#25,#23, #9,#26, #4,'Ü',#25, #9,#14,'±','Û','±', #7,'°', #0,#23,'²',
|
|
#16,#25, #8, #7,'°', #0,#23,'²', #8,#16,'g','j','!',#24,' ', #9,#17,
|
|
'Þ',#16,'Û',#17,'Ü', #1,#16,'Ü',#25, #4, #8,'þ',' ','ß',' ',' ','Ý',
|
|
' ', #1,'°','°', #9,'°',#17,'Þ',#11,#16,'Û','Û', #9,#17,'Û','Ý',#16,
|
|
#25, #5, #8,'Ý',#25, #5,#11,#17,'Ü', #9,#16,#26, #3,'Ü', #1,'Ü', #9,
|
|
'Ü','Û',#11,'Û','Û', #9,'Û',#11,'Û', #9,#26, #3,'Ü',#14,'ß',' ','ß',
|
|
'ß','Û',#15,'Û','Û',#14,'Û','Û','Û','²','ß','ß', #1,'Ü', #9,#26, #4,
|
|
'Ü',#17,'Ü','Û','Û','Ü', #1,#16,'Ü',#24,' ', #9,'°','Û',#11,'Û','Û',
|
|
#9,#17,'Ü', #1,#16,'Ü',#25, #5, #8,'Ü','ß', #1,'Ü', #9,#17,'Ü','Û',
|
|
'Û','Û','Þ','Û','Û','Û','Ý',#16,' ', #8,#23,'²',#16,'ß','ß',' ',' ',
|
|
'ß',' ',' ', #1,'Ü', #9,#17,'Ü',#16,#26, #5,'Û','²','°',#17,'ß',#16,
|
|
#26, #4,'Û',#17,#26, #3,'ß',#16,#25, #3,#14,'Ü',#26, #3,'Û','²','Ü',
|
|
#1,'ß', #9,'Û','Û',#11,'Û','Û', #9,'Û',#11,'Û', #9,#26, #4,'Û','±',
|
|
#8,'þ',#24,#11,#23,'ß',#16,' ', #9,'²',#26, #3,'Û',#17,'Ü', #1,#16,
|
|
'Ü', #8,'ß','Û',#23,'²',#16,'ß', #1,'Ü', #9,#17,'Û','Û',#11,#16,'Û',
|
|
#9,#17,'Û','Û',#16,'²',#17,'Þ','Û','Û','Û','Ý',#16,' ', #8,#17,'²',
|
|
#16,' ', #9,#17,'Þ','Û','Û','Û','²','±','²',#16,'Û','Û','Û',#17,'Ü',
|
|
#1,#16,'Ü',' ',' ', #8,'Ü','Ü',' ', #9,'²','Û','Û','Û','²',' ', #8,
|
|
'Ü',' ', #9,'Ü','Ü','Ü',' ',#14,'ß','ß', #9,#26, #4,'Ü',#14,'ß','ß',
|
|
#1,'Þ', #9,'Û',#17,'²',#16,' ', #8,'Ü','Ü',' ', #1,'Ü', #9,'Û','Û',
|
|
'Û', #1,'Ý', #8,'Þ',#24,#23,'²',#16,' ', #9,'±',#17,'²','²','²',#16,
|
|
'Û','ß',#17,'ß','Û',#16,'Ü','Ü',#17,'Û','ß',#16,'ß',#17,'Û','²','²',
|
|
'²',#16,'±', #1,'Þ', #9,'²',#17,'²','²','²', #1,#16,'Ü',' ',' ', #9,
|
|
#17,'Þ','²','²','²','±',#16,' ', #1,'ß', #9,#17,'ß',#16,'Û','Û',#17,
|
|
'²','²','±','°', #1,#16,'Ü', #8,'ß',' ', #9,#17,'°','²','²','²','°',
|
|
#16,' ', #8,#17,'²',#16,' ', #9,#17,'²','²','Ü','±','°',#16,' ',#11,
|
|
'Û','Û', #9,'Û','Û','²','°','²',#17,'²','²','±',#16,' ', #8,'²',' ',
|
|
#1,'Þ', #9,'²',#17,'²','²','°',#16,' ', #8,#23,'²',#24,#16,'ß',' ',
|
|
#1,'Û', #9,#17,'°','°','°', #1,#16,'Û',' ',' ','ß', #9,#17,'ß','ß',
|
|
#1,#16,'ß',' ',' ','Û', #9,#17,'°','°','°', #1,#16,'Û',' ','ß', #9,
|
|
#17,#26, #3,'°', #1,#16,'Û','Ü','Û', #9,#17,'°','°','°', #1,#16,'Û',
|
|
' ', #8,'ß',' ',' ', #1,'ß','ß', #9,#17,#26, #3,'°', #1,#16,'Û',' ',
|
|
'Û', #9,#17,'°','°','°', #1,#16,'Û','Ý', #8,'±',' ', #9,#17,#26, #3,
|
|
'°', #1,#16,'Û', #9,'°',#17,#26, #3,'²',#16,'²', #1,'Û', #9,'±',#17,
|
|
'°','°','°', #1,#16,'Ý', #8,'ß',' ', #9,#17,'°','°','°', #1,#16,'Û',
|
|
#9,'°',' ', #8,#17,'²',#24, #1,#16,'°','°','²',#26, #3,'Û',' ', #8,
|
|
#17,'²',#16,#26, #3,'Ü','²',' ', #1,#26, #4,'Û',' ', #8,'±','Ü',' ',
|
|
#1,#26, #3,'ß',#26, #3,'Û','²',#26, #9,'Û','²','±',' ','ß',#26, #3,
|
|
'Û','Ü','Ü',#26, #4,'Û', #9,'±',#17,#26, #4,'°',#16,' ', #1,'ß',#26,
|
|
#3,'Û',#26, #4,'Ü',' ', #8,'Ü','Ü','Û',#24,'Ü','Ü','þ',' ', #1,'ß',
|
|
'ß','²',' ', #8,'±',' ',' ','°','°','²',#26, #6,'Ü','²',#26, #4,'ß',
|
|
' ', #1,'²','Û','Û','Û',' ','²','²','²','Û','Û','Û','²',#26, #3,'ß',
|
|
' ', #8,'Þ','Ü','Ü',' ', #1,#26, #7,'ß',' ',' ',#26, #4,'ß',#25, #3,
|
|
#26, #6,'ß',' ', #8,'Ý','°','°',#24,#25, #7,'°',#25,#11,'Ý',#25, #5,
|
|
#1,'°','°',#25,#10, #8,'þ',#25, #3,'Þ',#26,#12,'ß',' ','ß',#25, #2,
|
|
#15,'N', #7,'o','d','e',' ',#15,'S', #7,'p','y',#25, #2, #8,'ß','Ü',
|
|
#24, #7,'Ü',#15,#26,#25,'Ü', #7,'Ü',' ','Ü',#15,#26,#25,'Ü', #7,'Ü',
|
|
' ','Ü',#15,#26, #9,'Ü', #7,'Ü',' ','Ü',#15,#26, #6,'Ü', #7,'Ü',#24,
|
|
#8,#23,'²',' ', #0,'S','y','s','t','e','m',' ','N','a','m','e',#25,
|
|
#13, #7,#16,'²','³', #8,#23,'²',' ', #0,'A','d','d','r','e','s','s',
|
|
#25,#17, #7,#16,'²','³', #8,#23,'²',' ', #0,'L','a','s','t','C','a',
|
|
'l','l',' ', #8,#16,'²', #7,'³', #8,#23,'²',' ', #0,'C','a','l','l',
|
|
's',' ', #8,'²',#24,#16,'Û',#26,#26,'ß', #1,'³', #8,#26,#27,'ß', #1,
|
|
'³', #8,#26,#11,'ß', #1,'³', #8,#26, #7,'ß','Û',#24,'Ý',#25,'M','Þ',
|
|
#24,'Ý',#25,'M','Þ',#24, #7,'Ý',#25,'M','Þ',#24,'Ý',#25,'M','Þ',#24,
|
|
'Ý',#25,'M','Þ',#24,#15,'Ý',#25,'M','Þ',#24, #7,'Ý',#25,'M','Þ',#24,
|
|
#15,'Ý',#25,'M','Þ',#24,'Ý',#25,'M','Þ',#24,'²',#26,'M','Ü','²',#24,
|
|
#7,'°',#23,#25,#27, #0,'N','o','d','e','S','p','y',' ','T','e','l',
|
|
'n','e','t',' ','D','i','r','e','c','t','o','r','y',#25,#25, #7,#16,
|
|
'°',#24,' ', #8,#26,'M','ß',#24,#25, #2,#15,'E','N','T','E','R', #8,
|
|
':',' ', #7,'C','a','l','l',#25, #3,#15,'A','L','T','+','E', #8,':',
|
|
' ', #7,'E','d','i','t',#25, #3,#15,'I','N','S','E','R','T', #8,':',
|
|
' ', #7,'A','d','d',#25, #3,#15,'D','E','L','E','T','E', #8,':',' ',
|
|
#7,'C','l','e','a','r',#25, #3,#15,'E','S','C','A','P','E', #8,':',
|
|
' ', #7,'Q','u','i','t',#24);
|
|
Begin
|
|
Screen.LoadScreenImage(ImageData, ImageData_Length, ImageData_Width, 1, 1);
|
|
End;
|