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.