misc/MDMANSI.PAS

uses gensubs,subs1,subs2,crt;
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;

var f : file;
begin
clrscr;
drawmodemansi;
assign(f,'c:\infusion\screens\modem.bin');
rewrite(f,1);
blockwrite(f,mem[$b800:0000],4000);
close(f);
end.