home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / grafik / tp6vga / lscreen.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-10-13  |  419 b   |  21 lines
  1. procedure loadscreen(s:string);
  2. var f:file;
  3.     screen:pointer;
  4.     pal:array[0..255] of record r,g,b:byte end;
  5. begin
  6.  getmem(screen,64000);
  7.  assign(f,s);
  8.  reset(f,1);  
  9.  blockread(f,screen^,64000);
  10.  blockread(f,pal,768);
  11.  regs.ax:=$1012;
  12.  regs.bx:=0;
  13.  regs.cx:=256;
  14.  regs.es:=seg(pal);
  15.  regs.dx:=ofs(pal);
  16.  intr($10,regs)
  17.  close(f);
  18.  move(screen^,ptr($a000,0)^,64000);
  19.  freemem(screen,64000);
  20. end;
  21.