home *** CD-ROM | disk | FTP | other *** search
/ PC Underground / UNDERGROUND.ISO / graphic / flow.pas < prev    next >
Pascal/Delphi Source File  |  1995-07-28  |  761b  |  23 lines
  1. Uses Crt,Gif,ModeXLib;
  2. Procedure Flow;
  3. var i,
  4.     Old9:Byte;
  5. Begin
  6.   Port[$3d4]:=9;                      {select CRTC Register 9 (Maximum Row Address)}
  7.   Old9:=Port[$3d5] and $80;           {save old contents, }
  8.   for i:=2 to 31 do begin             {saves on constant read out}
  9.     WaitRetrace;                      {synchronization}
  10.     Port[$3d5]:=old9 or i;            {write value}
  11.   End;
  12. End;
  13.  
  14. Begin
  15.   asm mov ax,13h; int 10h End;        {Mode 13h on (or different graphic mode)}
  16.   LoadGif('upfold');                  {load wallpaper}
  17.   Move(vscreen^,Ptr($a000,0)^,64000); {and to screen}
  18.   ReadLn;
  19.   Flow;                               {read out}
  20.   ReadLn;
  21.   TextMode(3);                        {restore VGA to original state}
  22. End.
  23.