home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / s / showbmp2.zip / BMPTEST.PAS next >
Pascal/Delphi Source File  |  1993-03-28  |  481b  |  24 lines
  1.  
  2. Uses showbmp2,crt;
  3.  
  4. Begin
  5.  
  6. if Vga256exist<>true then   {Does the Video Card Support 256c?}
  7.   begin
  8.    writeln('Sorry! 256c Mode Not Supported!');
  9.    halt;
  10.   end;
  11.  
  12.  
  13. SetVideomode($13);     {Set Video Mode to 320x200x256c}
  14. showbmp('runset.dat',false); {Display the bitmap, change false to true
  15.                               for quicker display}
  16.  
  17. repeat
  18. until keypressed;
  19.  
  20. fadeout;               {Fade the Picture}
  21. textmode(co80);        {Setup Textmode}
  22.  
  23. end.
  24.