Procedure DrawStatus;
TYPE ScreenType = array [0..7999] of Byte;
VAR ScreenAddr:ScreenType Absolute $B800:$0000;
Const
IMAGEDATA : array [1..1525] of Char = (
#8,#16,'░',#25, #7,#15,#26, #3,'▄',#25, #6,'▄','▄','▄',#26, #3,'█',
'▄','▄','▄',#25, #4, #7,'▀',#15,'▀',#25,#24, #7,'▀',#15,'▀',#25,#14,
#8,'░',#24,'▒',#25, #2,#15,'▄','▄',#26, #9,'█','▄','▄','▀','▐','█',
#23,'▓','█','█',#16,'█',#23,'█',#16,'█','▀','█','█','█', #7,'▄',#25,
#2,'█',#15,#23,'█',#16,' ', #7,'█','█','▀',#15,#23,'▀','█',#16,' ',
#7,'█','█','▀',#15,#23,'▀','█',#16,' ', #7,'█','█',' ',#15,#23,'▀',
'█',#16,' ', #7,'█',#15,#23,'▄', #7,#16,'▀',#15,'▀','▀',' ',#23,' ',
'█',#16,' ', #7,'█','█','▀',#15,#23,'▀','█',#16,' ', #7,'█','█','▀',
#15,#23,'▀','█',#16,#25, #2, #8,'▒',#24,'▓',' ', #7,'▄',#15,'█','█',
'█',#23,'█',#16,#26, #4,'█',#23,'█',#16,'█','█','█','▀','█','█','▄',
'▀',#23,'░','▀','█','▀','▀','█',#16,'█','█',#23,'▓',#16,'█',#23,'▌',
#7,#16,'▌',' ',' ','█',#15,#23,'▓',#16,' ', #7,'█','█',' ','█',#15,
#23,'█',#16,' ', #7,'█','█',' ','█',#15,#23,'█',#16,' ', #7,'█','█',
' ','█',#15,#23,'▓',#16,' ', #7,'▀','▀','▀',#15,#23,'▀','█',#16,' ',
#7,'█',#15,#23,'█',#16,' ', #7,'█','█',' ','█',#15,#23,'▓',#16,' ',
#7,'█','█',' ',#23,' ',#15,'▓',#16,#25, #2, #8,'▓',#24,'█', #7,'▐',
#15,#23,'▐',#16,'█','█','█',#23,'▓',#16,'█',#23,'█',#16,'█','█','█',
#23,'█',#16,'█','█',#23,'█',#16,#26, #3,'█','▌', #7,'▐','▀','▀',' ',
' ','▀','▀',#15,#23,'▀','░','▀', #7,#16,'█',#25, #2,'█',#15,#23,'▒',
#16,' ', #7,'█','█',' ','█',#15,#23,'█',#16,' ', #7,'█','█',' ','█',
#15,#23,'▓',#16,' ', #7,'█','█',' ','█',#15,#23,'░',#16,' ',#23,' ',
#7,#16,'█',' ','█',#15,#23,'▓',#16,' ', #7,'█',#15,#23,'▓',#16,' ',
#7,'█','█',' ','█',#15,#23,'▒',#16,' ', #7,'█','█',' ','█',#15,#23,
'▒',#16,#25, #2, #8,'█',#24,'█',' ', #7,'▀','█',#15,#23,'▀','▀','▒',
'█','█',#16,'█','█','█',#23,'▓',#16,'█','█',#23,'▓','▀','▀',' ',#16,
'▀',' ',' ', #9,'▄','█',#17,'█',#16,'▄','▄','▄',' ', #7,'▀','▀',#25,
#3,'█',#15,#23,'░',#16,' ', #7,'█','█',' ','█',#15,#23,'▓',#16,' ',
#7,'█','█',' ','█',#15,#23,'░',#16,' ', #7,'█','█',' ','█','█',' ',
'█','█',' ','█',#15,#23,'▒',#16,' ', #7,'█',#15,#23,'▒',#16,' ', #7,
'█','█',' ','█',#15,#23,'░',#16,' ', #7,'█','█',' ','█',#15,#23,'░',
#16,#25, #2, #8,'█',#24,'█',#25, #2, #7,'▀','▌',#15,#23,'░',' ', #7,
#16,'█',#15,#23,'▀','▀',' ','░','▀','▀','░', #7,#16,'▀','▌',' ', #9,
'▄','█',#17,'█','▓','▀',' ',' ','▀','▓',#23,'▓','▀',#16,'▄',#25, #3,
#7,'█','█',' ','█','█',' ','█',#15,#23,'▒',#16,' ', #7,'█','█',' ',
'█','█',' ','█','█',' ','█','█',' ','█','█',' ','█',#15,#23,'░',#16,
' ', #7,'█',#15,#23,'░',#16,' ', #7,'█','█',' ','█','█',' ','█','█',
' ','█','█',#25, #2, #8,'█',#24,'█',#25, #5, #7,'▀','░','▀','▌','▀',
'▀', #1,'▄','▄', #9,'▄','▓','▄','▐',#17,'▀',' ',' ','▒', #1,#16,'█',
#17,' ',#16,'█','█',#17,' ', #9,#16,'▀',#17,' ','▀', #1,#16,'▌',' ',
#13,'░','░',#23,'░','░',#16,' ', #7,'█','█',' ','█',#15,#23,'░',#16,
' ', #7,'█','█',' ','▀','▀',' ','█','█',' ','█','█',' ','█','█',' ',
'█','█',' ','█','█',' ','█','█',' ','█','█',' ','█','█',' ','█','█',
#25, #2, #8,'█',#24,'█',' ',' ',#15,'m','r','p','!',' ', #1,'▀','█',
#21,'▓','▓',#17,' ', #9,'▒',#16,'▀','▀','▀',' ', #1,'▀','█','█',#17,
' ', #9,'░',' ', #1,#21,'▓','▓',#16,'█','▄','▓','▄','▀',#25, #3, #7,
'█','█',' ','█','█',' ','█','█',' ','█','█','▀',' ', #8,'█',' ', #7,
'█','█','▄','█','█',' ','█','█','▄','█','█',' ','█','█',' ','█','█',
'▄','█','█',' ','█','█',' ', #3,#23,'░','░',#16,'░','░',' ', #8,'█',
#24,'█','▄','▌',#26, #6,'▄', #1,'▀',#17,' ', #9,'░', #1,#16,'▌',#25,
#6,'▀','▌','▀','▀','▀','▐','▀',' ', #8,#26,#17,'▄','█','█',#26,#29,
'▄','█',#24,#21,'▓',#16,#25,#10, #1,'█','█','▄',' ', #4,'▄',#12,'▐',
'▄','▌',#25, #2, #9,'▄',#25,#23, #8,'█',#25,#29,'█',#24,'█',#25,#11,
#9,#17,'░', #1,#16,'▄','▄',' ', #4,'▀','▐',#12,#20,'▒', #4,#16,'▀',
' ', #9,'▐','▌',' ',' ', #8,'t',#15,'h','e',' ', #8,'l',#15,'u','n',
'a','r',' ', #8,'m',#15,'e','l','t','d','o','w','n',#25, #3, #8,#23,
'▓',#16,#25,#29,'█',#24,'▀','▀',#25,#11, #1,'▀','▀', #9,#17,'▒', #1,
#16,'▄', #9,'▄','▄','▄','▀','▀',#25, #2, #8,'s',#15,'y','s','o','p',
' ', #8,'s',#15,'k','a','b','o','y','1','0','1',#25, #6, #8,'█',#25,
#29,'█',#24,'█',#25,#16,'▄',#25, #6,'n',#15,'o','d','e',' ', #3,'0',
'0','2',#25,#12, #8,'▀','▀',#25,#29,'█',#24,'█',#25,#16,#19,'▓',#16,
#25,#28,'█',#25,#28,'▀','▀',#24,'█',' ',' ', #7,'l','o','c','a','l',
' ','l','o','g','i','n',#25, #3, #8,'█',#26,#24,'▄',' ',#22,'▓',#16,
'▄','▄','█',#25, #3,#15,'t', #7,'o','t','a','l',' ',#15,'c', #7,'a',
'l','l','s',':',' ','1','2','3',#25, #9, #8,'█',#24,#23,'▓',#16,' ',
' ', #7,'t','e','r','m','i','n','a','l',' ','m','o','d','e',' ',' ',
#8,'█',#25, #2,#15,'l', #7,'a','s','t',' ',#15,'c', #7,'a','l','l',
'e','r','!','$','@','#',#25, #3,#15,'t', #7,'i','m','e',#25, #2, #8,
'█',#25, #3,#15,'t', #7,'o','t','a','l',' ',#15,'u', #7,'s','e','r',
's',':',' ','0','6',#25,#10, #8,'█',#24,'█',' ',' ', #7,'s','y','s',
'e','m',' ','c','o','n','f','i','g',#25, #2, #8,'█',#25,#28,'█',#25,
#3,#15,'t', #7,'o','t','a','l',' ',#15,'f', #7,'i','l','e','s',':',
' ','2','9','7',#25, #9, #8,'█',#24,'█',' ',' ', #7,'m','o','d','e',
'm',' ','s','e','t','u','p',#25, #3, #8,'█',' ', #7,'0','1',#25,#25,
#8,'█',#25, #3,#15,'t', #7,'o','t','a','l',' ',#15,'p', #7,'o','s',
't','s',':',' ','1','2','0',#25, #9, #8,'█',#24,'█',' ',#19,' ',#15,
'd','o','s',' ','s','h','e','l','l',#25, #4,#16,' ', #8,'█',#25,#28,
'█',#25, #3,#15,'t', #7,'o','t','a','l',' ',#15,'d', #7,'a','y','s',
' ',':',' ','6','9',#25, #9, #8,'▄','█',#24,'█',' ',' ', #7,'q','u',
'i','t',#25,#10, #8,#22,'▓',#16,'▀','▀','▀','█',' ',#26,#23,'▀','█',
'▄','▄',' ',#26,#23,'▄','▌','▄','▄','█',#24,'█',#25,#15,'▀','▀',#25,
#3,'t','h','e',' ','w','a','i','t','i','n','g',' ','s','h','i','z',
'i','t',#25, #6,'█',' ','▀',' ', #7,'d','a','t','e', #8,':', #3,'0',
'6','-','2','5','-','1','9','9','7',#25,#11, #8,'█',#24,'█',#25,#16,
'█',#25,#28,'█',#25, #2, #7,'t','i','m','e', #8,':',' ', #3,'3',':',
'5','0','a',#25,#15, #8,'█',#24,'▀','▀','▀','▌',#26,'K','▀',#24,'[',
' ',#26, #3,'.',' ','I','n','f','u','s','i','o','n',' ','b','b','s',
' ','s','o','f','t','w','a','r','e',' ',';',' ','[','c',']',' ','s',
'k','a','b','o','y','1','0','1',' ','/',' ','m','i','r','a','g','e',
' ','1','9','9','7',' ',';',' ','w','r','i','t','t','e','n',' ','i',
'n',' ','b','o','r','l','a','n','d',']',#24,#24);
Begin
Uncrunch(ImageData,ScreenAddr[25*160],732);
End;
{Procedure DrawSysopMenu;
Type ScreenType = array [0..3999] of Byte;
Var ScreenAddr : ScreenType Absolute $B800:$0000;
const
IMAGEDATA_WIDTH=80;
IMAGEDATA_DEPTH=24;
IMAGEDATA_LENGTH=1443;
IMAGEDATA : array [1..1443] of Char = (
#15,#16,#25,'%','▄',#25, #6,'▄',#24, #9,#17,'▀', #1,#16,#26,#13,'▄',
#9,'▄','▄',#25,#15,#15,'▄','▄',#26, #3,'█','▀','▀','█','█','█','▓',
'▓','█',#26, #3,'▀',#26, #3,'█','▄','▄','▄',#25, #3,'▄','▄','▄','█',
'█','▓','█',#26, #3,'▀','▓',#23,'▓','▓','▓',#16,'▄','▄',#24, #1,'█',
#17,' ',#15,'m','r','p','!','@', #1,#16,#26, #5,'█','▀','▀',#26, #5,
'█','▀','▀', #9,'▀',' ', #7,'▄',#15,'▄',' ', #9,#17,'▀', #1,#16,'█',
'█','█',' ',#15,'█','▓',#23,#26, #3,'▓', #7,#16,'▄',' ',#15,#23,#26,
#3,'▓',#16,'█','█',' ',#17,' ', #9,'▀', #1,#16,'▄',' ',#15,'▐','▓',
'█',#23,#26, #3,'▓',#16,'▄','▄','▓','█',#23,#26, #3,'▓',#16,'▌',' ',
#1,'▄', #9,#17,'▀', #1,#16,'█',' ',#15,#23,'▓','▒','▒','▒','▓','▓',
#24, #1,#16,#26, #6,'█','▀','▀','▀', #7,'▄',#15,'▄','▄',#23,'▄',#16,
'█','▄','▄',' ', #1,'▀',' ', #7,'▄',#15,'▄',#23,'▄',#16,#26, #3,'█',
'▌', #1,'▐','█','▀',' ', #7,'▄',#15,#23,'▓','▓','▒','▒','▒', #7,#16,
'▀',' ',' ',#15,#23,#26, #3,'▒','▓','▓',#16,' ', #1,#26, #3,'█',' ',
#15,#23,'▓','▓',#26, #3,'▒', #7,#16,'█',' ',#15,'▀',#23,'▓',#26, #3,
'▒',#16,' ', #1,#26, #3,'█',' ',#15,#23,'▒','░','░','░','▒','▒',#24,
#1,#16,#26, #3,'█','▀',' ', #7,'▄',#15,#23,'▄',#16,#26, #9,'█','▌',
#7,'▐',#15,#26, #4,'█','▀','█','█', #1,'▐','█','▌', #7,'▐','█',#15,
#23,'▒','▒','░','░', #7,#16,'▌',' ','░', #0,#23,'▓', #7,#16,'▀',#15,
#23,'░','░','░', #7,#16,'▄','▄','▄',' ', #1,'█','█','█',' ',#15,#23,
'▒','▒',#26, #3,'░',#16,' ', #1,'█', #7,'▐',#15,#23,'▒',#26, #3,'░',
#7,#16,'▄','▄',' ', #1,'█','█',' ', #7,#26, #3,'▀',' ', #1,'▄','▄',
#24,'█','█','█',' ', #7,'▄',#15,#23,'▄',#16,#26, #9,'█','▀',#26,#10,
'█', #1,'▐','█','█',' ', #7,'▀',#15,#23,'░','░', #7,#16,'█','█','█',
'▄',' ',' ','▐',#26, #4,'█','▌', #1,'▄','█','█','█',' ',#15,#23,'░',
'░',#16,' ', #7,'▀','█','█','▄',' ', #1,'▀', #7,'▄',#23,#25, #2,#16,
'▄',' ', #1,'▄','▄',#26, #9,'█',#24,'█','▀','▌', #7,'▐',#15,#26,#22,
'█','▌',' ', #1,'▀','█',' ',' ', #7,#26, #3,'█', #8,#23,'░','░', #7,
#16,'▀','▀','█','█','▀','▓','▀','█',' ',' ', #1,'▀','█','▀', #7,'▄',
'█','█', #8,#23,'░','░', #7,#16,'█','▀',' ',' ','▐','▀','▓', #8,#23,
'░','░', #7,#16,'█','▌', #1,'█','█',#26, #5,'▀',#24,' ',' ', #7,'▀',
#15,#23,'▐',#16,#26,#14,'█', #7,'▀',#15,#23,'▀',#16,#26, #4,'█','▀',
#25, #4, #7,'▀','▀', #8,#23,'░','░','░','▒','▒',#16,' ',' ',#23,'░',
'░','░', #7,#16,'▄',#23,' ',' ',#16,#25, #3,'▐', #8,#23,'░','░','░',
'▒','▒', #7,#16,'░','░', #0,#23,'▓',#16,' ', #7,'▀', #8,#23,'░','░',
'▒','▒', #7,#16,'▀',#24,#25, #2,'▀',#15,#26,#13,'█','▌', #7,'▐',#15,
#23,'▐',#16,'█','█','█','▀',#25, #7, #8,#23,#26, #3,'▒','▓','▓',#16,
' ',' ','▀',#23,'▒','▒','░','░','░',#16,'▄',#25, #3,'▀',#23,'▒','▒',
'▓','▓',#16,'█','▄',' ',' ','▐',#23,'▒','▒','▓','▓',#16,'█',#24,#25,
#4, #7,'▀',#15,'▀',#23,'▀',#16,#26, #9,'█', #4,'▐','▄', #7,'▀',#15,
'▀','▀',#25, #9, #8,'▐',#23,'▓','▓',#16,'▓',#23,'█','█',#16,'▌',' ',
'▐',#23,'▓','▓','▒','▒','▒',#16,'▌',#25, #4,#23,'▓','▓','█',#16,'█',
'█','█','▀','▀','█',#23,'▓','▓',#16,'█','█','█',#24,#25, #9, #7,'▀',
#15,#26, #4,'▀',' ', #4,'▄',#12,#20,'▄','█','▄',' ', #4,#16,'▀',#25,
#9, #8,'▐',#23,'█','█',#16,'█','█','█','▀','▀','█','▓','▓',#23,'▓',
'▓','▓', #7,#16,'░', #0,#23,'▓','▓',#16,#25, #2, #8,#26, #3,'█','▓',
'▓',' ',' ','▐',#26, #4,'█','▌',' ', #7,'░', #0,#23,'▓',#24,#16,#25,
#7, #4,'▄','▄',#20,' ',#16,#26, #3,'█',#12,#20,'▄','▄','█',#23,'▓',
'▓','▓',#20,'▌', #4,#16,'▌',#25, #9, #8,'█','▓','▓','█','█','█',' ',
'▐',#26, #5,'█', #7,'░', #0,#23,'▓','▓',#16,#25, #2, #8,'▀','▀',#26,
#3,'█',' ',' ','█','█','▓','▓','▀','▀',#24,#25, #3, #4,'▄',#26, #4,
'█', #0,#20,'░', #4,#16,'▓',#26, #3,'█',#12,#20,'▀','▀','▀','█','█',
'▀',' ', #4,#16,'▀',#25, #7, #8,#26, #3,'▀',#25, #3,'▀', #0,#23,'▓',
#7,#16,'░', #0,#23,'▓','▓', #7,#16,'░', #0,#23,'▓',#16,#25, #9, #8,
'▀','▀','▌',' ','▀',#24,#25, #2, #4,'▐','▓','█','█','▀',#26, #6,'█',
#0,#20,'░','░', #4,#16,#26, #4,'█','▌',#25,#17, #0,#23,'▓', #7,#16,
'░', #0,#23,'▓','▓', #7,#16,'░', #0,#23,'▓',#24,#16,#25, #2, #4,'▀',
'▀',#25, #6,#26, #5,'▀','█','▄','█','▀',#24,#25,#21,#15,'i', #7,'n',
'f','u','s','i','o','n',' ',#15,'o', #7,'n','l','i','n','e',' ',#15,
'u', #7,'s','e','r',' ',#15,'s', #7,'y','s','o','p',' ',#15,'c', #7,
'o','m','m','a','n','d','s',#24,#24,' ',#15,'a','l','t', #7,'░',#15,
'u',' ',' ', #7,'u','s','e','r',' ','e','d','i','t','o','r',#25,#10,
#15,'a','l','t', #7,'░',#15,'k',' ',' ', #7,'k','i','l','l',' ','u',
's','e','r','s',' ','t','i','m','e',#25, #5,#15,'a','l','t', #7,'░',
#15,'l',' ',' ', #7,'l','o','c','k',' ','m','o','d','e','m',' ','i',
'o',#24,' ',#15,'a','l','t', #7,'░',#15,'s',' ',' ', #7,'s','e','n',
'd',' ','m','o','d','e','m',' ','s','r','i','n','g',#25, #5,#15,'a',
'l','t', #7,'░',#15,'h',' ',' ', #7,'h','a','n','g','u','p',' ','d',
'a',' ','p','h','o','n','e',#25, #5,#15,'a','l','t', #7,'░',#15,'u',
' ',' ', #7,'u','n','l','o','c','k',' ','m','o','d','e','m',' ','i',
'o',#24,' ',#15,'a','l','t', #7,'░',#15,'c',' ',' ', #7,'m','a','i',
'n',' ','c','o','n','f','i','g',#25,#10,#15,'a','l','t', #7,'░',#15,
'x',' ',' ', #7,'s','p','l','i','t',' ','s','c','r','e','e','n',' ',
'c','h','a','t',#25, #3,#15,'a','l','t', #7,'░',#15,'i',' ',' ', #7,
'u','s','e','r',' ','i','n','f','o',#24,' ',#15,'a','l','t', #7,'░',
#15,'e',' ',' ', #7,'e','x','e','c','u','t','e',' ','a',' ','p','r',
'o','g','r','a','m',#25, #4,#15,'a','l','t', #7,'░',#15,'p',' ',' ',
#7,'p','r','i','n','t',' ','a',' ','f','i','l','e',#25, #8,#15,'e',
's','c',#25, #3, #7,'q','u','i','t',' ','t','h','i','s',' ','m','e',
'n','u',#24,' ',#15,'a','l','t', #7,'░',#15,'d',' ',' ', #7,'s','h',
'e','l','l',' ','t','o',' ','d','o','s',#25, #9,#15,'a','l','t', #7,
'░',#15,'z',' ',' ', #7,'l','i','n','e',' ','n','o','i','s','e',#24,
' ',#15,'a','l','t', #7,'░',#15,'a',' ',' ', #7,'t','o','g','g','l',
'e',' ','p','a','g','e','r',#25, #9,#15,'a','l','t', #7,'░',#15,'t',
' ',' ', #7,'t','e','m','p',' ','s','y','s','o','p',#24,#24);
Begin
Uncrunch(ImageData,ScreenAddr[0],1443);
End; }
{Procedure DrawWFC2;
Type ScreenType = ARRAY [0..3999] OF BYTE;
VAR ScreenAddr : ScreenType ABSOLUTE $B800 : $0000;
const
IMAGEDATA_WIDTH=80;
IMAGEDATA_DEPTH=25;
IMAGEDATA_LENGTH=2260;
IMAGEDATA : array [1..2260] of Char = (
#9,#17,'█','█','▓','▒','█','▓','█','▓','▓','█','▓','▒','▓','▒',#16,
'▀',' ',#10,'▄',' ',' ', #9,'▀','▀',' ',' ','▀','▀','▀',#17,'▒',#16,
'▀','▀',' ',' ','▀','▀','▀','▓','▀','▀',#17,'▒',#16,'▀',' ','▀','▀',
' ',#10,'▄',' ','▄',#25, #2,'▄','▄',' ', #9,'▀','▀',' ',' ','▀',#17,
'▓',#16,#25, #2, #1,'▀','▀','▀', #9,#17,'░','▒','▓','▓','█','█','▓',
'▒','▓','█','▓','▓','▒','▓','█','▓',#24,'▓','█','▒','░','▓','▒','▓',
'▒','▒','█','▒','░',#16,'▀',' ',#10,'▄','█',#18,'▀',#16,'█','█','▄',
'▄','█','█','▄','▄','▄',' ','▄','▄','█','█','▄','▄','▄',' ','▄','▄',
' ','▄','█','▄','▄','█',#18,'▀',#16,'█',#18,'▀',#16,'█','█','█',#18,
'▀','▀',#16,'█','▄','▄','█','█','▄',' ','▄','█','█','▄','▄','▄',' ',
#1,'▀', #9,#17,'▒','▒','▓','█','▒','░',#16,'▀',' ',' ','▀',#17,'░',
'▒','█','▒',#24,'▒','▓','░', #1,#16,'█', #9,#17,'▒','░','▒','░','░',
'▓',#16,'▀',' ',#10,'▄',#18,'█','▀', #2,#16,'█','▀','▀','█',#10,#18,
'▀','▀', #2,#16,'█','█',#10,#18,'▀','▀','▀','█','▀','▀', #2,#16,'█',
'█',#10,#18,'▀','▀','▀','█','▀','▀','█','▀','▀','▀','█', #2,#16,'█',
'▀',' ','▀','█','█','█','▀','▀','█',#10,#18,'█','▀', #2,#16,'█','█',
#10,#18,'▀','█','▀', #2,#16,'█','█',#10,#18,'▀','▀','▀','█',#16,'▄',
' ', #9,'▀',#17,'▒','▓','░',#16,' ', #6,'▄','▀','▀','▄', #1,'░', #9,
#17,'░','▓','▒',#24,'░','▒', #1,#16,'█','▀',' ','▀','▀',' ','▀',' ',
#10,'▄',#18,'█','▀', #2,#16,'█','▀',' ',#12,'▄','▓',' ', #2,'█','▀',
' ',' ','▀','▀','▀','█','▀','▀',' ',' ','▀','▀','▀','█','▀','▀','█',
'▀','▀','▀','█',' ', #7,'▄','■','▄','▄',' ',' ',#12,'▄','▓',' ', #2,
'█','▀',' ',' ','▀','█','▀',' ',' ','▀','▀','▀','█',#10,#18,'█',#16,
'█',' ', #1,'▐', #9,#17,'▒', #1,#16,'▌',#14,'▐',#22,'░',' ', #6,#16,
'▄',' ','▌', #1,'▐', #9,#17,'▒','░',#24, #1,#16,'█','▄','▄',' ',#10,
'▀',' ',' ','▀',' ','▀',#18,'█','▄', #2,#16,'█','▄',' ',#12,'▀',#21,
'▓','▒', #5,#16,'▌',' ', #7,'▄','▓',#23,' ',#16,'▄','▄','▄',' ','▄',
'▄','▓',#15,#23,'░', #7,#16,'▄','▄','▄',' ','▄','▄',' ','▄','▄','▄',
' ','▐',#23,' ',#16,' ','▐','▓','▌',#12,'▀',#21,'▓','▒', #5,#16,'▌',
' ', #7,'▄','▓',#23,' ',#16,'▄',' ','▄','▓',#23,' ',#16,'▄','▄','▄',
' ', #2,'█',#10,#18,'█',#16,'▌',' ', #9,#17,'░',#16,' ',#14,#22,'▓',
'▒','░',' ', #6,#16,'▌','▐',' ', #9,#17,'▒','░',#24, #1,#16,'█', #9,
#17,'░', #1,#16,'▀','▀',' ','▀','█','▄','█',' ',#10,'▐',#18,'█','▀',
#2,#16,'▀','▀', #7,'▄','▄', #5,'▀',#25, #2,#23,' ',#15,'░',#16,' ',
#7,'▐','▓','▌',' ',' ',#15,#23,'░','▒',#16,' ', #7,'▐','▓','▌','▄',
#15,#23,'░',#16,' ',' ',#23,' ','░',#16,' ',#23,' ','░',#16,' ', #7,
'▐','▀','▌','▄','▄', #5,'▀',' ', #7,'▐',#15,#23,'░', #7,#16,'▌','▀',
#15,#23,'░', #7,#16,'▌',' ',#23,' ',#15,'░',#16,' ', #7,'▐','▓','▌',
#2,'▐',#10,#18,'▐',#16,'█',' ',' ', #1,'▌',#14,'▐',#22,'▓','▒','░',
#6,#16,'▄','▌', #1,'▐', #9,#17,'░', #1,#16,'█',#24,'█',' ', #5,'▄',
'▀','▀','▄',' ', #1,'█','█','▄',' ',#10,'▀',#18,'█','▄', #2,#16,'█',
' ', #7,'▓',#15,#23,'░', #7,#16,'▀',' ',' ',#15,#23,'░','▒',#16,' ',
' ',#23,'░','▒',#16,' ',' ',#23,'▒','▓',#16,'▀', #7,'▐','▀','▌',#15,
#23,'░','▒',#16,' ',' ',#23,'░','▒',#16,' ',' ', #7,'▀',#15,#23,'▒',
#16,'▄','▄',' ',' ', #7,'▓',#15,#23,'░', #7,#16,'▀',#15,#23,'░','▒',
#16,' ',' ',#23,'▒','░',#16,' ',#23,'░','▒',#16,' ',' ',#23,'░','▒',
#16,' ', #2,'█',#10,'█','█','▄',' ',' ',#14,'▀',#22,'▓','▒',#16,'▀',
' ', #1,'█', #9,#17,'░', #1,#16,'▌',#24,'▌',#12,'▐',#21,'░',' ', #5,
#16,'▄',' ','▌', #1,'▐','█',' ',#10,'▄','█','▓','█',#18,'▌', #2,#16,
'▌', #7,'▐',#15,#23,'▒',#16,'▌',' ',' ',#23,'▒','▓',#16,' ',' ',#23,
'▒','▓',#16,' ',' ',#23,'▓','█',#16,#25, #3,#23,'▒','▓',#16,' ',' ',
#23,'▒','▓',#16,' ','▐','▄','▌','▐',#23,'▓',#16,'▌',' ', #7,'▐',#15,
#23,'▒',#16,'▌',#23,'▒','▓',#16,' ',' ',#23,'▓','▒',#16,' ',#23,'▒',
'▓',#16,' ',' ',#23,'▒','▓',#16,' ', #2,'▀','█',#10,#18,'▀','█',#16,
'▌',' ', #1,'▄',' ',' ','▄','█', #9,#17,'░', #1,#16,'█',#24,' ',#12,
#21,'▓','▒','░',' ', #5,#16,'▌','▐',' ', #1,'▌',#10,'▐',#18,'█','▀',
#2,#16,'█','▀','█','▌',#15,'▐',#23,'▓',#16,'▌',' ',' ',#23,'▓','█',
#16,' ',' ',#23,'▓','█',#16,' ',' ',#23,'█',#16,'▓',#25, #3,'▐',#23,
'█',#16,'▄','▐',#23,'▓',#16,'▌',' ','▐',#23,'▓',#16,'▌',' ',#23,'█',
#16,'▓',' ','▐',#23,'▓',#16,'▌','▐',#23,'█',#16,'▄','▐','▀','▌',' ',
#23,'▓','█',#16,' ',' ',#23,'▓','█',#16,' ', #2,'█','▀','█',#10,#18,
'▀','█',#16,' ',' ', #1,'▀','▀','▓','█','▀',#12,'▄','▓',#24, #1,'▌',
#12,'▐',#21,'▓','▒','░', #5,#16,'▄','▌',' ',' ',#10,#18,'█', #2,#16,
'█','▀',' ',#15,'▄',' ','▄','▓',#23,'█','█',#16,'▄','▄',#23,'█','▓',
#16,' ','▄',#23,'█',#16,'▓','▄','▄',#23,'█','█',#16,'▄',' ','▄','▄',
' ','▀','▓',#23,'█',#16,'▀',' ','▄','▄','▀','■','▄','▀','▄','▄',#23,
'▓','█','█',#16,'▄','▀','▓',#23,'█',#16,'▀','▄','▄',#23,'█',#16,'▓',
' ','▄',#23,'█',#16,'▓','▄',' ','▄',' ', #2,'▀',#10,#18,'▀','█',#16,
'▄',' ','▄',' ', #1,'▀',#12,'▐',#21,'▓','▒',#24, #1,#16,'█',' ',#12,
'▀',#21,'▓','▒', #5,#16,'▀',' ', #1,'░',#10,'▐','▓',#18,'▌',' ', #2,
#16,'▄',' ','▄',' ',' ',#15,'▀',#25, #4, #2,'▄',#25, #7,'▄',' ',' ',
'▄','▄',' ',' ','▄','▄',' ',' ','▄',' ',' ','▄',#25, #5,'▄',' ',' ',
'▄',#25, #3,'▄',#25, #3,'▄',' ','▄','█',#10,#18,'█',#16,'▌',#25, #3,
#12,'▄','▄','▀','█',#24, #1,'█',#17,' ',#16,'▄',' ',' ','▄','▓','▌',
' ',#10,'▀','█',#18,'█','▄', #2,#16,'█',#10,#18,'▄', #2,#16,'█','█',
'▄',#26, #4,'█',#10,#18,'▄','s','i','n','f','u','l', #2,#16,'█',#10,
#18,'f','l','e','s','h','▄', #2,#16,'█','█',#10,#18,'▄','▄', #2,#16,
'█','█',#10,#18,'▄', #2,#16,'█','█',#10,#18,'▄', #2,#16,#26, #5,'█',
#10,#18,'▄', #2,#16,'█','█',#10,#18,'▄', #2,#16,#26, #3,'█',#10,#18,
'▄', #2,#16,#26, #3,'█',#10,#18,'▄', #2,#16,'█',#10,#18,'▄','█',#16,
'▀',' ',#12,'▄',#21,'█',#16,'▄','▐',#21,'█','█','▓','█',#24, #1,#16,
'█',#17,' ',#16,#26, #3,'█', #9,#17,'▄', #1,#16,'█','▄',' ',' ',#10,
'▀','█',#18,'█',#16,'█',#18,'█','█','▄',#26, #4,'█',#16,'█',#18,#26,
#7,'█',#16,'█',#18,'█','█',#16,'█','█',#18,'█',#16,'█','█','█',#18,
'█','█',#16,'█',#18,'█','█',#16,'█',#18,#26, #5,'█',#16,'█',#18,'█',
'█',#16,'█',#18,#26, #3,'█',#16,'█',#18,#26, #3,'█',#16,'█','█','▀',
' ',#12,'▄',#21,'█','█','▓','█','█','▓','█','▒','█',#24, #9,#17,'░',
' ', #1,#16,'█','█','█', #9,#17,'▀','█','▀','■','.', #1,#16,'▄',' ',
' ',#10,'▀',' ','▀','▀','█',#26, #4,'▀',' ',#26, #7,'▀',' ','▀','▀',
' ',' ','▀','▀',' ',' ','▀','▀',' ','▀','▀',' ',#26, #5,'▀',' ','▀',
'▀',' ',#26, #3,'▀',' ',#26, #3,'▀',' ','▌',' ',#12,'▐',#21,'█','▓',
'▓','▒','▓','█','▒','▓','░','▓',#24, #9,#17,'░','░', #1,#16,'█', #9,
#17,'░', #1,#16,'█',#17,' ',#16,#26, #3,'█', #9,#17,'·','░', #1,#16,
'█','▄', #9,#17,'░', #1,#16,'▄','▄',' ', #6,#26, #4,'▄',#14,#22,'▄',
#6,#16,#26, #7,'▄',#14,#22,'▄', #6,#16,'▄','▄',#14,#22,#26, #3,'▄',
#6,#16,'▓','▀','▀',' ', #1,'█','▄', #3,'▀',#11,#19,#26,#16,'▄','▒',
'▒','░', #3,#16,'▀',#12,'▄','▌',#21,'█','▓','▒','▒','░','▒','▓','░',
'▒', #5,#16,'█',#12,#21,'▒',#24, #9,#17,'▒','░', #1,#16,'█', #9,#17,
'░', #1,#16,'█', #9,#17,'░', #1,#16,'▀',#25, #3,'▀',#25, #6, #6,'▀',
#14,#22,'▀',#16,#26,#11,'█',#22,'▀','▀','▀', #6,#16,'▀','▀','▀', #1,
'▄', #9,#17,'░', #1,#16,'█', #9,#17,'░', #1,#16,'▀','▀',' ',' ', #3,
'▀',#11,#19,'▀',#26, #7,'█',#26, #3,'▀', #3,#16,'▀','▀','▀', #5,'▄',
'▄',#12,#21,'▓','▓','▒','▓','▒','░','░', #5,#16,'█',#12,#21,'░','▒',
#5,#16,'█',#12,#21,'░', #5,#16,'█',#12,#21,'░',#24, #9,#17,'▒','▒',
#1,#16,'█', #9,#17,'▒','░','░',#16,' ', #7,'s',#15,'i','t','e',' ',
#7,'l',#15,'i','c','e','n','s','e',' ', #6,'▄',#14,#22,'▄',#16,'█',
'█',#22,#26, #4,'▀', #6,#16,#26, #3,'▀', #1,'▄','▄','▄', #9,#17,'░',
'▒','░','▒','░','░',#16,' ', #7,'s',#15,'t','a','t','s', #3,'▐',#11,
#19,'█','▀','▀','▀', #3,#16,#26, #3,'▀', #5,#26, #3,'▄',#12,#21,'[',
#15,'F','1','0',#12,']','▒',#15,'C','o','m','m','a','n','d','s',#12,
'░', #5,#16,'█','█','▀','█',#24, #9,#17,'▓','▒','░','▒','░','▒', #1,
#16,'▌',#25,#11, #6,#26, #4,'▀',#25, #2, #1,'▄',' ',' ','▀',' ','▀',
'▀','▓', #9,#17,'░','░',#26, #3,'▒', #1,#16,'▌',#25, #5, #3,'▀','▀',
#25, #2, #5,#26,#18,'▀',#26, #5,'█','▌','▐',#24, #9,#17,'▓','▓','▒',
'▓','░','▒',#16,' ', #7,'[','r',#15,'e','g',' ', #7,'b',#15,'b','s',
' ',' ', #7,':',#25,#14,']', #1,'▐', #9,#17,'░','▒','▓','▒','▓','▒',
#16,' ', #7,'[','l',#15,'a','s','t',' ', #7,'c',#15,'a','l','l','e',
'r', #7,':',#25,#15,']', #5,'▐',#26, #4,'█',' ','▐',#24, #9,#17,'█',
'▓','▓','▓','▒','▒',#16,' ', #7,'[','r',#15,'e','g',' ', #7,'s',#15,
'y','s','o','p', #7,':',#25,#14,']',' ', #9,#17,'▒','▒',#26, #3,'▓',
#16,' ', #7,'[','t',#15,'o','t','a','l',' ', #7,'c',#15,'a','l','l',
's', #7,':',#25,#15,']',' ', #5,#26, #3,'█','▌',' ','█',#24, #9,'▐',
#19,'█',#17,'▓',#19,'█',#17,'▒','▓',#16,' ', #7,'[','r',#15,'e','g',
' ', #7,'i',#15,'d',#25, #2, #7,':',#25,#14,']',' ', #9,#17,'▒','▓',
'█','▓','█',#16,'▌',' ', #7,'[',#15,'u', #7,'/',#15,'l', #7,#39,#15,
's',' ', #7,'t',#15,'o','d','a','y', #7,':',#25,#15,']',' ', #5,'█',
'▀','█','▀',' ','▐','▌',#24,' ', #9,#19,'▓','█','▓',#17,'▓',#19,'█',
#16,'▌', #7,'[','n',#15,'o','d','e',' ', #7,'#',#25, #2,':',#25,#14,
']', #9,'▐',#17,'▓','▓',#19,'▓',#16,'█','█',' ', #5,'▌', #7,'[',#15,
'd', #7,'/',#15,'l', #7,#39,#15,'s',' ', #7,'t',#15,'o','d','a','y',
#7,':',#25,#15,']', #5,'▐','█','█','▄',' ','▄','▓',#24,' ',' ', #9,
'▀','▀',#19,'█','▓',#17,'█',#16,#26,#26,'▄',#19,'█',#16,'█','█','▀',
'▀',' ', #5,'▀','█',#26,#29,'▄',#26, #3,'█','▀','▀',#24,#24,#24);
BEGIN
Uncrunch(ImageData,ScreenAddr[0],2260);
END;}
Procedure DrawWFC;
TYPE ScreenType = ARRAY [0..3999] OF BYTE;
VAR ScreenAddr : ScreenType ABSOLUTE $B800 : $0000;
const
IMAGEDATA_WIDTH=80;
IMAGEDATA_DEPTH=24;
IMAGEDATA_LENGTH=1796;
IMAGEDATA : array [1..1796] of Char = (
#1,#16,'▄',#25, #4,'▀',#26, #3,'█', #9,#17,'▄', #1,#16,#26, #7,'█',
'▀','▀',' ', #8,'▄','▄',#19,'█',#16,#25, #3,'▄','▄','▄','█',#26, #7,
'▄',#25, #6,#26,#11,'▄',' ',' ', #1,'▀','▀','▀','█','█','█','▀','▀',
' ',' ','▀','▀','▀','█','█','▀',#24,' ',' ','▀','█','█','▄','▄',' ',
'▀','█', #9,#17,'▀','█','█','▄','▄', #1,#16,#26, #3,'█',' ', #8,'▄',
#19,'█','█','▓','▓','▓',#16,'▌',' ',#19,'▓','▓','▓',#16,'█','█','▌',
#25, #3,'▐','█','█',#19,'▓','▓','▓',#16,'▄',' ',' ','▐',#19,'▓','▓',
'▓',#16,'█','▀',#25, #2,'▐','█',#19,#26, #3,'▓',#16,'▄',#25, #3, #1,
'█',#25, #4, #0,#17,'▓','▓',#16,' ',' ', #1,'█',#24,#17,' ',' ',#16,
' ','▐', #9,#17,'▄','█','▄', #1,#16,'█','▄',' ','▀','█', #9,#17,'▀',
#23,'▓',#17,'█','█','▄', #1,#16,'█','█','▄',' ', #8,#19,'▓','▓','▒',
'▒','▒',#16,' ',' ','▐',#19,'▒','▒','▓','▓',#16,#25, #5,#19,'▓','▓',
'▒','▒','▒',#16,'▌',' ',' ',#19,'▓',#26, #3,'▒',#16,#25, #4,#19,#26,
#4,'▒',#16,#25, #4, #1,'▐','▌',#25, #6,'▐','▌',#24, #9,#17,'█',#16,
'▄', #1,'▄','▀','█', #9,#17,'▀','█',#23,'▓',#17,'▄', #1,#16,'█','▄',
' ','▀','█', #9,#17,'▀','█','█','▓','▓',#16,' ', #8,'▐',#19,'▒','▒',
'░','░',#16,'▌',' ',' ', #3,'▐', #8,#19,'░','░','▒','▒',#16,'▌',#25,
#3,'▐',#19,'▒','▒','░','░','░',#16,#25, #2, #3,'▐', #8,#19,#26, #3,
'░', #3,#16,'▌',#25, #2,'▐', #8,#19,#26, #3,'░', #3,#16,'▌',' ',' ',
#1,'▄',#25, #2,'▀','▄',#25, #4,'▄',#24, #9,#17,'█',#23,'▓',#17,'▌',
#1,#16,'▌','▐', #9,#17,'▄',' ','▀','█','▄', #1,#16,'▀',' ','▄',' ',
'▀', #9,#17,#26, #3,'▒', #1,#16,'▌', #8,'▀',#19,'░','░', #3,#16,'█',
'█','▄',#25, #2,'▀','█', #8,#19,'░','░', #3,#16,'█','▄',#25, #2,'█',
#8,#19,'░','░', #3,#16,'█','█','▌',#25, #2,'▐',#26, #3,'█','▌',#25,
#2,#26, #3,'▀',' ',' ', #1,'▄','█','█','█','▄',#25, #4,'▀',#24, #9,
#17,'█','▀', #1,#16,'█',' ','█','█', #9,#17,'░','░','▀', #1,#16,'█',
'▄', #9,#17,'▄','▄',' ', #1,#16,'▄','▄','▀', #9,#17,'░','░', #1,#16,
'█',' ', #3,'▐','█','█',#11,#19,'░','░', #3,#16,'▌',' ',' ','▄','█',
'█','█','▄',#25, #3,'▐',#26, #3,'█',#25, #3,'▄','█',#11,#19,'░','░',
'░', #3,#16,'▀','▀','▀',' ', #1,'█','▄','▄',' ','▄', #0,#17,'(', #9,
'c', #0,')',' ','1','9','9','7', #1,#16,'▄','▄',#24,'▀',#25, #2,#26,
#4,'█',' ',' ','▀','█','█','█',#17,' ',#16,'█','▄','▐','▓','▌',' ',
#11,#19,'░','░','▒','▒', #3,#16,'█',' ','▐',#19,' ',#11,'░','░','░',
#3,#16,'▌',#25, #3,'▐',#11,#19,'░','░','░',' ', #3,#16,'▌',#25, #2,
'▐',#11,#19,#26, #3,'▒', #3,#16,'▌',' ', #1,'█','█','█', #9,#17,'█',
'▄', #1,#16,'█','▄','▀','█',#15,#17,'s', #7,'k','a','b','o','y','1',
'0','1', #1,#16,'█','▄',#24,' ','▄','▄','█','█','▀','▀',' ',' ','▄',
'▄',' ',' ','▄','█', #9,#17,'▄', #1,#16,'█','█','▌','▀',' ', #3,'▐',
#11,#19,'▒','▒','▓','▓', #3,#16,'▌',' ','█',#11,#19,'░','▒','▒','▒',
#16,#25, #5, #3,'█',#11,#19,'▒','▒','▒','░',#16,#25, #2, #3,'█',#11,
#19,#26, #3,'▓',#16,' ',' ', #1,'█', #9,#17,'▐','▐',#23,'▓','▓',#17,
'█','▌', #1,#16,'▌','▐','█',#17,' ',#15,'a', #7,'n','d', #1,#16,'█',
#17,' ', #9,'▄',#23,'▓','▓',#17,'▄', #1,#16,'█','▄',#24,'▀','▀','▀',
' ',' ','▄','▄','█', #9,#17,'▄','▄', #1,#16,'▌',' ','▐', #9,#17,'▐',
#23,'▓','▓',#17,'▌', #1,#16,'█','▄',' ', #3,'▄',#11,#19,'▓','▓','▓',
'█', #3,#16,'▀',' ',' ','▀',#11,#19,'▒','▓','▓','▓', #3,#16,'▄',#25,
#4,'▐',#11,#19,'▓','▓','▓','▒', #3,#16,'▌',' ',' ','▐',#11,#19,'█',
#15,#16,'█','█',#11,#19,'█', #3,#16,'▌',' ', #1,'█','█','█', #9,#17,
'█','▀','▀', #1,#16,'▀',' ','█',#15,#17,'m', #7,'i','r','a','g','e',
#9,'▐','█','█','▀', #1,#16,'█',#24,' ',' ', #0,#17,'▀', #1,#16,'█',
#17,' ',#16,'█', #9,#17,'▀','█','▀',#19,'▓', #1,#16,'█',' ',' ','▀',
'█', #9,#17,'▀','▀', #1,#16,'█','█',' ', #3,'▐',#11,#19,#26, #3,'█',
#3,#16,'▌',' ',' ','▐',#11,#19,'▓','█','█','█', #3,#16,'▌',#25, #4,
'▐',#11,#19,'█','█','█','▓', #3,#16,'▄',#25, #2,'▀',#11,#19,'▀','█',
'▀',#16,' ',' ', #1,'█','█','▀','▀',#25, #2,'▀','▀',#17,#25, #3, #9,
'░','░','▓','▓', #1,#16,'█','▀',#24,' ','▐','█','█',#17,' ',#16,#26,
#3,'▀', #0,#17,'█',#16,' ', #1,'▄','▄','▄',' ',' ','▀','▀','▌',' ',
' ',#11,#19,'▐','█',#16,'█','█',#19,'▌',#16,' ',' ',#19,'▐','█','█',
'█','▌',#16,#25, #5,#19,'▐','█','█','█', #3,#16,'▌',#25, #3,#11,#19,
'▐','█','█','█', #3,#16,'▌',#25, #2, #1,'▄','▄','▄','█', #9,#17,'▄',
#1,#16,'█','▄','▄',' ',' ','▀','▀','▀', #9,#17,'▒', #1,#16,'▀',#25,
#5,'▄',#24,' ','█', #0,#17,'i','n', #7,#16,'f','y','o',#15,'o','s',
'h','i','n',' ', #1,'▀','▀','█','▄',' ',' ', #3,'▀','▄',#11,#19,'▐',
#26, #3,'█', #3,#16,'▌',' ',#11,#19,'▐',#26, #3,'█', #3,#16,'▌',#25,
#3,'▐',#11,#19,'█','█','█','▄', #3,#16,'▄',#25, #2,'▐',#11,#19,#26,
#3,'█','▌', #3,#16,'▄',' ',#17,' ',' ', #9,'▐',' ','▌','█',#23,'▓',
'▓',#17,'▄', #1,#16,'█','█', #0,#17,'█','█','█',#16,#25, #4, #1,'▄',
'▄', #9,#17,'▄', #1,#16,'█','▌',#24,' ','▐',' ', #7,'r','e','l','e',
'a','s','e',' ','1','.','0','0', #1,'▐','█','▄',' ', #0,#19,'▓', #3,
#16,'░', #0,#19,'▓',#15,#16,'█','█',#11,'▓',#19,'▌',#16,' ', #3,'▐',
#11,#19,#26, #3,'█','▀','▀',#16,#25, #3, #3,'█',#11,#19,'█','█',#15,
#16,'█','█',#11,#19,'█', #3,#16,'▄',' ',' ',#11,#19,'▐','█','▀','▀',
#3,#16,'▀','▀',#25, #4, #1,#26, #3,'▀',#17,' ', #9,'▀','▀',#25, #2,
#0,'▓', #1,#16,'░', #0,#17,'▓','▓',#16,' ', #1,'▐','█', #9,#23,'▀',
'▒', #1,#16,'█','█','▌',#24,' ','▀','▀','█','█',#26, #4,'▄','█','█',
'█',' ','▄','▄','█','█',#25, #3, #0,#19,'▓', #3,#16,'░', #0,#19,'▓',
#16,' ',' ', #3,'█',#11,#19,'▀', #3,#16,'▀','▀','▀',#25, #7,'▀','▀',
'▀',#11,#19,'▀','▀', #3,#16,'▀','▐',#11,#19,'▀', #3,#16,'▀',' ', #7,
'm','r','p','.','7',' ', #1,'▀','█','█','▄','▄',' ', #0,#17,'▓', #1,
#16,'░', #0,#17,'▓','▓', #1,#16,'░', #0,#17,'▓',#16,#25, #2, #9,'▄',
' ',' ', #1,'▀','▀', #9,#17,'▀', #1,#16,'█','▀',#24, #7,'e','s','c',
' ',#15,'f','o','r',' ','c','o','m','m','a','n','d',' ','m','e','n',
'u',' ',' ', #0,#19,'▓', #3,#16,'░', #0,#19,'▓',#16,#25, #9,#15,'i',
#7,'n','f','u','s','i','o', #1,'n',#25,#14,'▐','▀',' ',' ', #0,#17,
'▓', #1,#16,'░', #0,#17,'▓','▓', #1,#16,'░', #0,#17,'▓',#16,' ',' ',
#1,'█', #9,#17,'▀',#23,'▓',#16,'▀', #1,'▀',' ',' ','▐',#24,#26,#12,
'▄',#26, #5,'─',#26,#21,'▄','─',#26,#12,'▄',#26, #3,'█',#26, #4,'▄',
'─','▄','─','─','─',#26, #7,'▄','█','█','▄',#24,'█',#25, #2,#15,'s',
#7,'i','t', #1,'e',' ',#15,'l', #7,'i','s','e','n','s', #1,'e',#25,
#22,'█',#25, #4,#15,'s', #7,'t','a','t', #1,'s',#25,#28,'█',#24,'█',
' ',#15,'b', #7,'o','a','r', #3,'d',#15,':',':',#25,#29, #1,'█',#25,
#2,#15,'l', #7,'a','s','t',' ','c','a','l','l','e', #3,'r',#15,':',
':',#25,#22, #1,'█',#24,'│',' ',#15,'s', #7,'y','s','o', #3,'p',#15,
':',':',#25,#29, #1,'█',#25, #2,#15,'t', #7,'o','t','a','l',' ','c',
'a','l','l', #3,'s',#15,':',':',#25,#21, #1,'▐','█',#24,'█',' ',#15,
'p', #7,'h','o','n','e',' ', #3,'#',#15,':',':',#25,#27, #1,'█',#25,
#2,#15,'t', #7,'o','d','a','y','s',' ','c','a','l','l', #3,'s',#15,
':',':',#25,#21, #1,'█',#24,'█',' ',#15,'n', #7,'o','d', #3,'e',#15,
':',':',#25,#30, #1,'█',#25, #2,#15,'m', #7,'u','l','t','i','t','a',
's','k','e', #3,'r',#15,':',':',#25,#22, #1,'█',#24,'█',' ',#15,'r',
#7,'e','g',' ', #3,'#',#15,':',':',#25,#29, #1,'│',#25, #2,#15,'n',
#7,'e','x','t',' ','e','v','e','n', #3,'t',#15,':',':',#25,#23, #1,
'█',#24,'█','▌',#15,'l', #7,'i','c','e','n','s', #3,'e',#15,':',':',
#25,#27, #1,'█',#25, #2,#15,'s', #7,'t','a','t','u', #3,'s',#15,':',
':',#25,#27, #1,'█',#24,'█',#26,#11,'▄','─',#26,#24,'▄','─',#26, #9,
'▄','─',#26,#18,'▄','-',#26, #7,'▄','█',#24);
BEGIN
Uncrunch(ImageData,ScreenAddr[0],1796);
END;
Procedure DrawModemAnsi;
TYPE ScreenType = ARRAY [0..3999] OF BYTE;
VAR ScreenAddr : ScreenType ABSOLUTE $B800 : $0000;
{ TheDraw Pascal Crunched Screen Image. Date: 08/23/97 }
const
MODANS_WIDTH=80;
MODANS_DEPTH=25;
MODANS_LENGTH=1248;
MODANS : array [1..1248] of Char = (
#15,#16,#25,'#', #8,'▄','▐',#25, #9,'▀',' ','█',#21,'▓','▓',#16,'█',
'█','▀','▀',' ', #3,'▄',#24,#25, #5, #7,'▄',#15,'▄','█','▄','▄',#25,
#5, #7,'▄',#15,'▄','▄','█',#25,#11, #8,'▄','▄','█','█','█','▄',#25,
#11,'▀',#21,'█',#16,'█',' ', #3,'▄',#11,#19,'▄','▄', #3,#16,'█','█',
'█','▄',#25, #3, #7,'▄',#15,'▄','█','▄',' ',' ', #7,'█','▄',#15,'▄',
#24,#25, #3, #7,'▄',#15,#23,'▄','█',#16,#26, #5,'█','▄','▄',#23,'▄',
#16,#26, #6,'█','▄',#25, #6, #8,#26, #3,'▀','█',#23,'▓','▓',#16,'▌',
' ', #7,'i','n','f','u','s','i','o','n','.','.',#25, #2, #8,'█', #3,
'▐','█',#11,#19,'▀','▀',' ',' ', #3,#16,'█','█','▌',' ', #7,'▄',#15,
#23,'▄',#16,#26, #4,'█', #7,'▐',#15,#26, #3,'█','▄',#24,#25, #2, #7,
'▐',#15,#23,'▐',#16,#26, #3,'█',' ','█','▓','▓',#26, #6,'█','▄','█',
'█','█','▌',' ',' ', #3,'▄','▄','█','▄','▄',#25, #3, #8,'▀','█',#25,
#3, #7,'m','o','d','e','m','.','.',#25, #3, #8,'█',' ', #3,'▀','█',
'█','█',#11,#19,'░','░', #3,#16,'▀',' ', #7,'█',#15,#26, #4,'█',' ',
'█','█',' ',#26, #3,'█','▌',#24,' ',' ', #7,'▀',#15,'▀',#23,'▀',#16,
#26, #3,'█',' ',#26, #9,'█','▓','▓','█','▌',' ',' ', #3,'█',#11,#19,
'█','█','░','░', #3,#16,'█','▀',#25, #3, #8,'▐','▌',' ', #7,'.',' ',
' ','.','.','.',' ','.',' ','.',' ',' ', #8,'▐','▌',#25, #2, #3,'▀',
'█','▀',' ',' ', #7,'▀',#15,#23,'▀',#16,#26,#12,'█',#24,#25, #3, #2,
'▄',' ', #7,'▀',#15,'▀','▀',#26, #3,'█','▀','▀','▀','█','█','█',#26,
#3,'▀',#25, #3, #3,'▀','▀','█',#19,' ',' ',#16,'▌',#25, #4, #8,'▀',
'▄',#25,#11,'▀',#25, #4, #3,'▄',#25, #4, #7,'▀',#15,'▀','█','▀','▀',
'▀',#26, #5,'█',#24,#25, #3, #2,'▐','█','▀',#18,' ',#16,#26, #4,'▄',
#10,#18,'░', #2,#16,'▀',' ','▄','▄','▄',#10,'▄','█',#18,'█',#16,'▄',
'▄',#25, #5, #3,'▄','█','▄','▄',#25, #6, #8,'▀',#25, #2,'▄',#25, #2,
'▀',#25, #5,'▄',#25, #9, #1,'▄','█',' ',' ',#15,'█','▀','▀',' ', #1,
'▄',#24,#25, #4, #2,'█','█','▄','▄',' ',' ','▀','▀',' ','▄','█',#10,
#18,'░','░','▒','▒','▓','▓',#15,#16,'█','█',#10,'▌',#25, #3, #3,'▐',
#11,#19,'█','█','░', #3,#16,'▌',#25,#16, #8,'▄','▄','▄','█',#23,'▓',
#16,'▓',#19,'▓',#16,'▄',#25, #5, #1,'▄','█','█','█','▌','▄','▄','▄',
'█','█','▌',' ', #8,'▀',#24,#25, #4, #2,'▐',#18,' ',' ',#16,'█','▄',
#25, #2,'▀',#26, #3,'█',#10,#18,'░','░','▒','▒','▓','▓',#16,#25, #3,
#3,'▄','█',#11,#19,'░','░', #3,#16,'█',' ', #8,'▌',#25, #5,'▄','▄',
'▀','▄',#25, #2,'▀','█',#23,'▓',#16,#26, #3,'▀',' ','▒',#25, #5, #1,
'▄',#26, #4,'█','▌','█', #9,#17,'░','░', #1,#16,'█','█',#24,#25, #5,
#2,'▀','▀',#10,#18,'░','░', #2,#16,'█','█','▄','▄','▄',' ',#26, #5,
'▀',#25, #4, #3,'▐','▀','▀',' ', #8,'▄','▄','▄',#23,'▓',#16,'▀','▄',
'▄',' ','▀','▀',#25, #2,'▐','▌',#25, #2,'▐','▌',#25, #4,'░',#25, #3,
#1,'▄','█','█', #9,#17,'▄', #1,#16,#26, #3,'█','▌','█', #9,#17,'░',
'░', #1,#16,'█','█',#24,' ',' ', #8,'▄','▄',#18,'█',#16,'▄',#25, #3,
#2,#26, #4,'▀',#25, #5, #8,'▄',#25, #4,'▄','█',#23,'▓','▓',#16,'▀',
'▀','▀',' ','▐','▌',#25, #2,'▄',' ',' ','▄','▀',' ',' ', #3,'▄',' ',
#8,'▀','▓','▄',#25, #6, #1,'▄','█','█', #9,#17,'▄','█','▌', #1,#16,
#26, #3,'█','▌','▐',#17,' ',' ',#16,'█','█','▌',#24,' ', #8,'▐',#23,
'▓','▓',#16,'█','█','▄','▄',' ',' ',#11,'m', #3,'r','p','l','a','s',
't','i', #8,'k',' ','▀','▓','▀',#25, #3,'▐',#23,'▓',#16,'▌',#25, #4,
'█',#25, #2,'▀','▓','▀','▐','▌', #3,'▄',#11,#19,'▄','█','▀', #3,#16,
'█',' ', #8,'▒',' ',' ','░','░','█',' ',' ', #1,'▐','█', #9,#17,'▄',
#16,'█',#23,'▓','▓',#17,'█','▄', #1,#16,'█','█','█',' ','▐',#26, #3,
'█','▌',#24,' ',' ', #8,'▀','█',' ','▀','▀','▀',#23,'▓',#16,'█','▄',
#25, #5,'▄',' ',' ','▄',' ',' ','▄','▄',#25, #2,'▀','█','▄',#25, #4,
'▀','▄',#25, #2,'▄','▀', #3,'▐',#11,#19,'▀', #3,#16,'█','▀','▀','▀',
' ', #8,'░',' ',' ','▀','█',#23,'▓',#16,'▀',' ',' ', #1,'▀','▀','█',
#9,#17,'▀','▀','▀','█','▀', #1,#16,'█','▓',' ',' ',#26, #3,'█','▌',
#24,' ',' ', #8,'▐','▌', #7,'░', #0,#23,'▓',#16,#25, #3, #8,'▐','▌',
#25, #5,'█',' ',' ','▀','▀','▀',#23,'▓','▓',#16,#25, #3,'▐','▌',#25,
#2,'░','░','▐','▌',' ',' ','▐','▌',' ','▄','▄','▄','▀','▀',#25, #3,
'▐','▌',#25, #8, #1,#26, #3,'▀',' ','▄',#26, #4,'█',#24,#25, #2, #8,
'▀','▄',' ','▄','▄','▀',#23,'▓',#16,' ','▀',' ','▄',' ',' ','▀',' ',
'▐','▌',' ',' ','░','░',' ','▐','▄',#25, #3,'▀',' ','▄',' ',' ','▄',
'▀',#25, #3,'▀','▄',' ',#23,'▓',#16,'▌','░','░',#25, #3,'▀',' ',' ',
'▄',' ',' ', #9,'▀','█','▄','▄', #1,'▄',' ',' ','▄','▄',#26, #4,'█',
'▀',#24, #8,'▌',' ',' ','▐','▌',#25, #2,'░','▓',#25, #3,'▀',#25, #3,
'▀',#25, #5,'▄','▄','▓','▄',#25, #3,'▓','▀',' ',' ','▄','▄',' ',' ',
'▐','▌',' ',' ','▀','▄',#25, #2,'▀',#25, #2,'▀','▓','▀',#25, #4, #9,
'▀', #1,'▀', #9,'▀', #1,'▀','▀','▀',#24,' ', #8,'▄',' ','▀',#25, #4,
'░',' ',' ','▀',' ',' ','▀',#25, #4,'▀',#25, #5,'▀',#25, #4,'▒',#25,
#4,'▀','▓','▀',#25, #5,'▀',#25, #5,'░',#24,#25,#12,'▄',#25, #2,'▀',
'▄',#25,#14,'░',#25, #5,'▒',#25, #7,'░',' ',#15,'e', #7,'n','p','h',
'o','o','s','h','i','n',' ', #8,'░',#24,#25,#13,'▐',#23,'▓',#16,' ',
' ','▐','▌',#25, #7,'░',#25,#11,'░',#24,#25,#12,'▄',' ','▀','▀','▄',
'▀',#25,'4','▐','▄',#24,' ','░','░',' ','░',' ',#15,'m', #7,'o','d',
'e','m',' ', #8,'▄','▓',#25,'9','▓','▄',' ','░','░',#24,#25,#12,'▀',
#25,'9','▀',#24,#24,#24,#24);
BEGIN
Uncrunch(MODANS,ScreenAddr[0],1248);
END;