home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / PINBSRC.ZIP / MENU / DISPVGA.PAS next >
Pascal/Delphi Source File  |  1995-05-13  |  384b  |  23 lines
  1. uses dos,crt;
  2. {$I _NORMVGA.PAS}
  3. var f:file of byte;
  4.     x,y:word;
  5.     b:byte;
  6.     z:word;
  7. begin
  8.   video_mode($13);
  9.   load_palette('t1-pal');
  10.   assign(f,'tisch1.min');
  11.   reset(f);
  12.   for y:=1 to 150 do
  13.   begin
  14.     for x:=1 to 80 do
  15.     begin
  16.       read(f,b);
  17.       mem[$a000:y*320+x]:=b;
  18.     end;
  19.   end;
  20.   close(f);
  21.   repeat until keypressed;
  22.   video_mode(3);
  23. end.