home *** CD-ROM | disk | FTP | other *** search
/ Hacker Chronicles 2 / HACKER2.BIN / 451.NETIMAGE.PAS < prev    next >
Pascal/Delphi Source File  |  1989-07-10  |  2KB  |  88 lines
  1. procedure read_image;
  2. var imagefile : file;
  3.     i,j : integer;
  4.     attr1, attr2 : byte;
  5.     ver : string[4];
  6. begin
  7.   assign(imagefile,'NET.IMG');
  8.   {$I-}
  9.   reset(imagefile);
  10.   if (IOresult = 0)
  11.   then
  12.     begin
  13.       blockread(imagefile, image, 32);
  14.       blockread(imagefile, pattern1, 11);
  15.       blockread(imagefile, pattern2, 13);
  16.       close(imagefile);
  17.     end
  18.   else
  19.     begin
  20.       writeln('File NET.IMG must be on default drive/directory.');
  21.       delay(5000);
  22.       restore_entry_screen;
  23.       halt;
  24.     end;
  25.   for i := 0 to 1999 do
  26.   begin
  27.     image[i SHL 1 + 1] := border_attribute;
  28.   end;
  29.   for i := 0 to 699 do
  30.     pattern1[i SHL 1 + 1] := border_attribute;
  31.   for i := 0 to 799 do
  32.     pattern2[i SHL 1 + 1] := border_attribute;
  33.   attr1 := norm_b SHL 4 + norm_f;
  34.   attr2 := aux_b SHL 4 + aux_f;
  35.   for i := 0 to 6 do
  36.     for j := 0 to 5 do
  37.     begin
  38.       pattern2[  3 + 2*j + 14*i] := attr1;
  39.       pattern2[203 + 2*j + 14*i] := attr1;
  40.       pattern2[403 + 2*j + 14*i] := attr2;
  41.       pattern2[603 + 2*j + 14*i] := attr2;
  42.     end;
  43.   ver := version;
  44.   for i := 1 to length(ver) do
  45.     image[3896 + (i SHL 1)] := ord(ver[i]);
  46. end;
  47.  
  48. procedure norm_blanks;
  49. var i : integer;
  50. begin
  51.   if VideoMode = 7
  52.     then for i := 0 to 3 do
  53.            move(pattern2[100*i],mono_video[540+160*i],100)
  54.     else for i := 0 to 3 do
  55.            move(pattern2[100*i],colr_video[540+160*i],100);
  56. end;
  57.  
  58. procedure brite_blanks;
  59. var i : integer;
  60. begin
  61.   if VideoMode = 7
  62.      then for i := 0 to 3 do
  63.             move(pattern2[400+100*i],mono_video[540+160*i],100)
  64.      else for i := 0 to 3 do
  65.             move(pattern2[400+100*i],colr_video[540+160*i],100);
  66. end;
  67.  
  68. procedure over_img1;
  69. var i : integer;
  70. begin
  71.   if VideoMode = 7
  72.      then for i := 0 to 6 do
  73.             move(pattern1[100*i],mono_video[2780+160*i],100)
  74.      else for i := 0 to 6 do
  75.             move(pattern1[100*i],colr_video[2780+160*i],100);
  76. end;
  77.  
  78. procedure over_img2;
  79. var i : integer;
  80. begin
  81.   if VideoMode = 7
  82.      then for i := 7 to 13 do
  83.             move(pattern1[100*i],mono_video[1660+160*i],100)
  84.      else for i := 7 to 13 do
  85.             move(pattern1[100*i],colr_video[1660+160*i],100);
  86. end;
  87.  
  88.