home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / CON-03A.ZIP / G_WFC.PAS < prev    next >
Pascal/Delphi Source File  |  1995-11-02  |  7KB  |  168 lines
  1. { TheDraw Pascal Crunched Screen Image.  Date: 11/02/95 }
  2. unit g_wfc;
  3.  
  4. interface
  5.  
  6. uses crt,
  7.      dos;
  8.  
  9. procedure write_picture(pic : string);
  10.  
  11. implementation
  12.  
  13. const
  14.   WFC_WIDTH=80;
  15.   WFC_DEPTH=25;
  16.   WFC_LENGTH=1327;
  17.   WFC : array [1..1327] of Char = (
  18.      #8,#16,'▓',#26, #3,'█','▀',' ',' ',#13,'■','▀','▀','█','█','█',' ',
  19.     ' ', #5,#26, #3,'▄',' ',' ', #1,'▄','▄','■','▀','█',#25, #2, #9,'▄',
  20.     '■','▀',' ',#10,'▄','▄','■','▀','█','█',' ', #2,'▄','■',' ', #6,'▄',
  21.     '■','▀','▓','█','▄',' ',#14,'■','▀','▀','▀','▄',#25, #2, #7,'■','▀',
  22.     '▀','█','█','█',' ',#15,'█','█',#25, #2,'█',' ', #8,'▓',#26, #4,'█',
  23.     '▓',#24,#26, #3,'█','▓',' ',#13,'█',#25, #3,'▄','▄','▄',' ', #5,'■',
  24.     ' ',' ','█','▓','█',' ', #1,'█','█',' ',' ','█',#25, #2, #9,'▀','▀',
  25.     '█',' ',#10,'█','█',' ','▀','▀',' ',' ', #2,'█','█',' ', #6,'█','█',
  26.     #25, #3,#14,'▄','▓','▀','▀','█','█',' ', #7,'█',#25, #3,'▄','▄','▄',
  27.     ' ',' ',#15,'▀','▀','▀','■','█',' ', #8,#26, #6,'█',#24,#26, #4,'█',
  28.     '▄',' ',#13,#26, #5,'▀',' ',' ', #5,#26, #4,'▀',#25, #5, #1,'█',' ',
  29.      #9,#26, #3,'█','▓',' ',#10,'▀','▀',#25, #4, #2,'▀','▀',' ', #6,'▀',
  30.     '▀',#25, #4,#14,#26, #4,'▀',' ',' ', #7,#26, #5,'▀',#25, #4,#15,'▄',
  31.     '▄','▓',' ', #8,#26, #6,'█',#24,#26, #6,'█','▓',#25,'@','█','█','▓',
  32.     '█','▓','█','█',#24,'█',' ',#15,'┌',#13,'─','─', #5,#26,#14,'─','┐',
  33.     ' ', #1,'▄','▄','■','▀','█', #5,'┌',#26,'.','─','┐',' ', #8,'▓','█',
  34.     '█',#24,'█',' ',#13,'│',' ', #7,'L','o','c','a','l',' ','L','o','g',
  35.     'o','n',#25, #4, #5,'│',' ', #1,'█','█',' ',' ','█', #5,'│', #7,'R',
  36.     'e','g','i','s','t','e','r','e','d',' ','S','y','s','o','p',' ','■',
  37.     #25,#28, #5,'│',' ', #8,'█','█','█',#24,'█',' ', #5,'│',' ', #7,'S',
  38.     'y','s','o','p',' ','L','o','g','o','n',#25, #4, #5,'│',#25, #4, #1,
  39.     '█', #5,'│', #7,'R','e','g','i','s','t','e','r','e','d',' ','B','o',
  40.     'a','r','d',' ','■',#25,#28, #5,'│',' ', #8,'█','█','█',#24,'█',' ',
  41.      #5,'│',' ', #7,'C','o','n','f','i','g','u','r','a','t','i','o','n',
  42.     #25, #2, #5,'│',#25, #5,'└',#26,'.','─','┘',' ', #8,'█','█','█',#24,
  43.     '█',' ', #5,'│',' ', #7,'E','x','i','t',' ','C','o','n','s','p','i',
  44.     'r','a','c','y',' ',#13,'│',' ', #1,'▄','▄','■','▀','█',#25, #2, #8,
  45.     '▄','■','▀',' ','▄','▄','■','▀','█','█',' ','▄','■',' ','▄','■','▀',
  46.     '▓','█','▄',' ','■','▀','▀','▀','▄',#25, #2,'■','▀','▀','█','█','█',
  47.     ' ','█','█',#25, #2,'█',' ','▓',#26, #5,'█',#24,'█',' ', #5,'└',#26,
  48.     #14,'─',#13,'─','─',#15,'┘',' ', #1,'█','█',' ',' ','█',#25, #2, #9,
  49.     '▀','▀','█',' ',#10,'█','█',' ','▀','▀',' ',' ', #2,'█','█',' ', #6,
  50.     '█','█',#25, #3,#14,'▄','▓','▀','▀','█','█',' ', #7,'█',#25, #3,'▄',
  51.     '▄','▄',' ',' ',#15,'▀','▀','▀','■','█',' ', #8,#26, #5,'█','▓',#24,
  52.     #26, #4,'█',' ',' ',#26, #5,'▀',' ',' ',#26, #4,'▀',' ',' ',#15,'┌',
  53.     #13,'─', #5,'┤', #9,#17,'▌','L','a','s','t',' ','C','a','l','l','e',
  54.     'r','s','▐', #5,#16,'├',#26,'&','─','┐',#24, #8,#26, #5,'█','▓',#25,
  55.     #14,#13,'│',#25,'7', #5,'│',#24, #8,#26, #4,'█','▀','▀',' ',#13,'■',
  56.     '▀','▀','█','█','█',' ',' ', #5,#26, #3,'▄',' ',' ','│',#25,'7','│',
  57.     #24, #8,#26, #4,'█',' ',#13,'█',#25, #3,'▄','▄','▄',' ', #5,'■',' ',
  58.     ' ','█','▓','█',' ','│',#25,'7','│',#24, #8,#26, #4,'█',' ',' ',#13,
  59.     #26, #5,'▀',' ',' ', #5,#26, #4,'▀',' ',' ','│',#25,'7',#13,'│',#24,
  60.      #8,#26, #5,'█','▓',#25,#14, #5,'└',#26,'5','─',#13,'─','─',#15,'┘',
  61.     #24, #8,#26, #4,'█','▀','▀',' ',#13,'■','▀','▀','█','█','█',' ',' ',
  62.      #5,#26, #3,'▄',' ',' ', #1,'▄','▄','■', #8,'▀','█',#25, #2,'▄','■',
  63.     '▀',' ','▄','▄','■','▀','█','█',' ','▄','■',' ','▄','■','▀','▓','█',
  64.     '▄',' ','■','▀','▀','▀','▄',#25, #2,'■','▀','▀','█','█','█',' ','█',
  65.     '█',#25, #2,'█',' ',#26, #3,'█','▓','█','▓',#24,#26, #4,'█',' ',#13,
  66.     '█',#25, #3,'▄','▄','▄',' ', #5,'■',' ',' ','█','▓','█',' ', #1,'█',
  67.     '█',' ',' ','█',#25, #2, #9,'▀','▀','█',' ',#10,'█','█',' ','▀','▀',
  68.     ' ',' ', #2,'█','█',' ', #6,'█','█',#25, #3,#14,'▄','▓','▀','▀','█',
  69.     '█',' ', #7,'█',#25, #3,'▄','▄','▄',' ',' ',#15,'▀','▀','▀','■','█',
  70.     ' ', #8,#26, #5,'█','▓',#24,#26, #4,'█',' ',' ',#13,#26, #5,'▀',' ',
  71.     ' ', #5,#26, #4,'▀',#25, #5, #1,'█',' ', #9,#26, #3,'█','▓',' ',#10,
  72.     '▀','▀',#25, #4, #2,'▀','▀',' ', #6,'▀','▀',#25, #4,#14,#26, #4,'▀',
  73.     ' ',' ', #7,#26, #5,'▀',#25, #4,#15,'▄','▄','▓',' ', #8,#26, #6,'█',
  74.     #24,#26, #5,'█','▓',#25,'A',#26, #6,'█',#24,#26, #4,'█','▀','▀',' ',
  75.     #13,'■','▀','▀','█','█','█',' ',' ', #5,#26, #3,'▄',' ',' ', #1,'▄',
  76.     '▄','■','▀','█',#25, #2, #9,'▄','■','▀',' ',#10,'▄','▄','■','▀','█',
  77.     '█',' ', #2,'▄','■',' ', #6,'▄','■','▀','▓','█','▄',' ',#14,'■','▀',
  78.     '▀','▀','▄',#25, #2, #7,'■','▀','▀','█','█','█',' ',#15,'█','█',#25,
  79.      #2,'█',' ', #8,#26, #6,'█',#24,#26, #4,'█',' ',#13,'█',#25, #3,'▄',
  80.     '▄','▄',' ', #5,'■',' ',' ','█','▓','█',' ', #1,'█','█',' ',' ','█',
  81.     #25, #2, #9,'▀','▀','█',' ',#10,'█','█',' ','▀','▀',' ',' ', #2,'█',
  82.     '█',' ', #6,'█','█',#25, #3,#14,'▄','▓','▀','▀','█','█',' ', #7,'█',
  83.     #25, #3,'▄','▄','▄',' ',' ',#15,'▀','▀','▀','■','█',' ', #8,#26, #6,
  84.     '█',#24,'▓',#26, #3,'█',' ',' ',#13,#26, #5,'▀',' ',' ', #5,#26, #4,
  85.     '▀',#25, #5, #1,'█',' ', #9,#26, #3,'█','▓',' ',#10,'▀','▀',' ', #8,
  86.     '▄','▄',' ',' ', #2,'▀','▀',' ', #6,'▀','▀',' ', #8,'▄','▄',' ',' ',
  87.     #14,#26, #4,'▀',' ',' ', #7,#26, #5,'▀',' ',' ', #8,'▄','▄',' ',#15,
  88.     '▄','▄','▓',' ', #8,'▓',#15,#23,'v','0','.','1','α', #8,#16,'▓',#24,
  89.     #26, #6,'█',#26, #5,'▄','▓',#26, #6,'▄',#26, #3,'█','▄',#25, #6,#26,
  90.      #3,'▄','█','█','▓',#26, #5,'▄',#26, #4,'█',#26, #4,'▄','█','▓',#26,
  91.      #6,'▄','█','█','█','▄',#25, #3,#26, #6,'█',#24,#23,#25, #5,#15,'c',
  92.     'o','n','s','p','i','r','a','c','y',' ','b','u','l','l','e','t','i',
  93.     'n',' ','b','o','a','r','d',' ','s','o','f','t','w','a','r','e',' ',
  94.     'v','0','.','2','α',' ','╓',' ','(','c',')',' ','g','r','o','o','v',
  95.     'e','n',' ','d','e','s','i','g','n','s',' ','1','9','9','5',#25, #6,
  96.     #24);
  97. type screentype = array [0..1327] of byte;
  98.  
  99. var
  100.   ScreenAddr : ScreenType absolute $B800:$0000;
  101.  
  102. procedure UNCRUNCH (var Addr1,Addr2; BlkLen:Integer);
  103. begin
  104.   inline (
  105.     $1E/
  106.     $C5/$B6/ADDR1/
  107.     $C4/$BE/ADDR2/
  108.     $8B/$8E/BLKLEN/
  109.     $E3/$5B/
  110.     $8B/$D7/
  111.     $33/$C0/
  112.     $FC/
  113.     $AC/
  114.     $3C/$20/
  115.     $72/$05/
  116.     $AB/
  117.     $E2/$F8/
  118.     $EB/$4C/
  119.     $3C/$10/
  120.     $73/$07/
  121.     $80/$E4/$F0/
  122.     $0A/$E0/
  123.     $EB/$F1/
  124.     $3C/$18/
  125.     $74/$13/
  126.     $73/$19/
  127.     $2C/$10/
  128.     $02/$C0/
  129.     $02/$C0/
  130.     $02/$C0/
  131.     $02/$C0/
  132.     $80/$E4/$8F/
  133.     $0A/$E0/
  134.     $EB/$DA/
  135.     $81/$C2/$A0/$00/
  136.     $8B/$FA/
  137.     $EB/$D2/
  138.     $3C/$1B/
  139.     $72/$07/
  140.     $75/$CC/
  141.     $80/$F4/$80/
  142.     $EB/$C7/
  143.     $3C/$19/
  144.     $8B/$D9/
  145.     $AC/
  146.     $8A/$C8/
  147.     $B0/$20/
  148.     $74/$02/
  149.     $AC/
  150.     $4B/
  151.     $32/$ED/
  152.     $41/
  153.     $F3/$AB/
  154.     $8B/$CB/
  155.     $49/
  156.     $E0/$AA/
  157.     $1F);
  158. end;
  159.  
  160. procedure write_picture(pic : string);
  161. begin
  162.   if pic= 'wfc' then UnCrunch (wfc,ScreenAddr[ (1 * 2) + (1 * 160) -162],wfc_LENGTH);
  163. end;
  164.  
  165. begin
  166. end.
  167.  
  168.