home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / BTH2SRC.ZIP / READER.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-12-02  |  4.7 KB  |  72 lines
  1. { TheDraw Pascal Crunched Screen Image.  Date: 12/02/95 }
  2. procedure readeransi;
  3. const
  4.   IMAGEDATA_WIDTH=80;
  5.   IMAGEDATA_DEPTH=25;
  6.   IMAGEDATA_LENGTH=1039;
  7.   IMAGEDATA : array [1..1039] of Char = (
  8.     #15,#23,'█',#26, #6,'▀',#25, #4,'▀','▓','▀','▀',' ',#26, #7,'▀','▒',
  9.     #26, #6,'▀','░',#25, #2,'▀',' ',' ','▀',' ',' ', #8,'░',' ',' ','▄',
  10.     #16,' ',' ', #1,'▄','▀', #0,#17,'░', #9,#16,'▀', #1,'▄', #9,'▄','■',
  11.     ' ',#15,#23,'█',#26, #4,'▀','░',#25, #2,'▀','▓','▀','▀',' ',' ','▀',
  12.     ' ',' ','▀',' ', #7,#16,'█',#24,#15,#23,'█',' ','T','i','t','l','e',
  13.     ' ',' ',':',#25,'%',#16,' ', #1,'▀','░',' ', #0,#17,'▒',#16,' ', #9,
  14.     '·',' ','▀',' ',#15,#23,'█',' ','B','e','y','o','n','d',' ','t','h',
  15.     'e',' ','H','o','r','i','z','o','n',' ', #8,'▀',#24,#15,'▀',' ', #0,
  16.     'A','u','t','h','o','r',' ',':',#25,'$', #8,'▀',#16,' ', #1,'■','▄',
  17.     ' ', #0,#17,'▓', #9,#16,'▄','▀','▀','▄',' ',#15,#23,'▄',' ', #0,'I',
  18.     's','s','u','e',' ','2',#25,#11, #8,'█',#24,#15,'▀',#25, #6, #8,'░',
  19.     '▄',#25, #4,'▄','▄',#25, #4,#26, #6,'▄','░','▄','▄','▄','▓',#26,#12,
  20.     '▄','█',#16,' ', #1,'▄',' ','▀', #9,'▀', #1,'·','▄', #9,#17,'░','▐',
  21.     #16,' ',#23,#25, #3, #8,'▄','▓',' ','▄','▄','▄','▒','▄',' ','░',#26,
  22.      #6,'▄','█',#24,#16,#25, #3, #1,'■',' ',' ', #8,'┌',#26,'?','─','┐',
  23.     ' ',' ', #1,'■',#24,'▀','▀','█', #9,'▄','▄', #1,'░', #9,'■', #8,'│',
  24.     #25,'?','│', #9,'■', #1,'░', #9,'▄','▄', #1,'█','▀','▀',#24,'░',' ',
  25.     ' ', #0,#17,'░', #9,'▀','█',#16,'.', #8,'│',#25,'?','│', #9,'.',#17,
  26.     '█','▀', #0,'░',#16,' ',' ', #1,'░',#24,'░','▄','▀', #0,#17,'▒', #1,
  27.     #16,'▐', #9,#17,'▐',#16,'▌', #8,'│',#25,'?','│',#15,#23,'█','▀','▓',
  28.     '▀',' ','▀',' ',#24, #1,#16,'▐','▌',' ', #0,#17,'▓',#16,' ', #9,#17,
  29.     '░','█', #8,#16,'│',#25,'?','│',#15,#23,'▓',' ',' ', #9,#17,#26, #0,
  30.     #30,#23,#25, #2,#24, #1,#16,'▓','.','·', #0,#17,'▓',#16,' ', #1,'▐',
  31.      #9,#17,'▓', #8,#16,'│',#25,'?','│',#15,#23,'▒', #8,'┌','[', #1,'▓',
  32.      #8,']','┐',' ',#24, #1,#16,'▐','▌',' ','▄','■','▐', #9,#17,'▓', #8,
  33.     #16,'│',#25,'?','│',#15,#23,'░', #8,'├','[', #1,'▓', #8,']','┤',' ',
  34.     #24,#16,' ', #1,'▀','▄', #9,'▄',' ', #1,'·', #9,'▀', #8,'│',#25,'?',
  35.     '│',#15,#23,'░', #8,'├','[', #1,'▓', #8,']','┤',' ',#24, #1,#16,'▀',
  36.     '▄',' ', #0,#17,'▓', #1,#16,'▀', #9,'▀','■', #8,'│',#25,'?','│',#23,
  37.     ' ','├','[', #1,'▓', #8,']','┤','░',#24, #1,#16,'▐','▌','.','■',' ',
  38.      #9,#17,'▐',#16,' ', #8,'│',#25,'?','│',#15,#23,'░', #8,'├','[', #1,
  39.     '▓', #8,']','┤','░',#24,#16,' ', #1,'▀','▄','▄','▀','░','■', #8,'│',
  40.     #25,'?','│',#15,#23,'░', #8,'├','[', #1,'▓', #8,']','┤','▒',#24, #1,
  41.     #16,'▀',' ',' ', #0,#17,'▓', #9,#16,'■','▄',' ', #8,'│',#25,'?','│',
  42.     #23,' ','└','[', #1,'▓', #8,']','┘','▓',#24, #1,#16,'░','▄','▀', #0,
  43.     #17,'▓',#16,' ', #1,'▐', #9,'▌', #8,'│',#25,'?','│',#23,#25, #2, #9,
  44.     #17,#26, #0,#31,#23,' ',' ', #8,'█',#24, #1,#16,'▐', #9,'▌',' ', #0,
  45.     #17,'▓', #9,#16,'▄', #1,'▀',' ', #8,'│',#25,'?','│',#23,'▄',' ','▓',
  46.     '▄','▄','▄','█',#24, #1,#16,'░','▀',' ', #9,#17,'▐',#16,' ', #1,'░',
  47.     ' ', #8,'│',#25,'?','│', #1,'▀','░',' ', #9,#17,'▌',#16,' ', #1,'▀',
  48.     '░',#24,'░','░','▐','▌', #9,'■','▄', #1,'░', #8,'│',#25,'?','│', #1,
  49.     '░', #9,'▄','■', #1,'▐','▌','░','░',#24,#25, #2,'▀',#25, #2, #8,'└',
  50.     #26,'?','─','┘',#25, #2, #1,'▀',#24,#15,#23,'█','▀','▀','▀',' ',#26,
  51.      #6,'▀',' ',' ','▓',' ',#26, #6,'▀','▒',' ',#26, #3,'▀','▓',' ','▀',
  52.     '░',#25, #2,'▀',' ',#16,' ',' ', #1,'▄','▀', #0,#17,'░', #9,#16,'▀',
  53.      #1,'▄', #9,'▄','■',' ', #1,'░',' ', #9,'▄','▄','·',' ',#15,#23,'█',
  54.     '▀',' ',#26, #3,'▀','▓',#26, #5,'▀','▓','▒',' ','▀','▀',' ','▀',#25,
  55.      #4,#24,'█',' ','I','n','t','e','r','f','a','c','e',' ','K','e','y',
  56.     ' ','R','e','f','e','r','a','n','c','e',#25,#11, #8,'▀',#16,' ', #1,
  57.     '▀','░',' ', #0,#17,'▒',#16,' ', #9,'·',' ','▀','▄','.','▀',' ',#17,
  58.     '▓',#16,'▀',' ',#15,#23,'█',' ','B','T','H','(','t','m',')',#25,#15,
  59.      #8,'▄',#24,#15,'▄',' ', #0,'U','p','/','D','o','w','n','/','P','g',
  60.     'U','p','/','P','g','D','n','/','H','o','m','e','/','E','n','d','/',
  61.     'E','s','c',#25, #4, #8,'█',#16,' ', #1,'■','▄',' ', #0,#17,'▓', #9,
  62.     #16,'▄','▀','▀','▄',' ','▀','▀','▄',#17,'▒',#16,'▄',' ',#15,#23,'▄',
  63.     ' ', #0,'1','9','9','5',' ','B','l','a','d','e',' ','P','r','o','d',
  64.     'u','c','t','i','o','n','s',' ', #8,'▄',#24,#25, #2,'▄',#25, #3,'░',
  65.     '▄','▄','▄','▓',' ',' ','▄','▄',#25, #2,#26, #5,'▄','▓','▄','▄','▓',
  66.     #26, #6,'▄','█',#16,' ', #1,'▄',' ','▀', #9,'▀', #1,'·','▄', #9,#17,
  67.     '░','▐',#16,'█','▄','▄',' ',#17,'░',#16,' ',' ',#23,' ',' ', #8,'▄',
  68.     #25, #3,'▓',' ',#26, #5,'▄',' ','▓','▄',' ',' ','▄','▒','▄','▄','▄',
  69.     '█',#24);
  70. begin;
  71.      UnCrunch (IMAGEDATA,ScreenAddr[ (1*2) + (1*160) -162],IMAGEDATA_LENGTH);
  72. end;