home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / SHOW_BMP.ZIP / BMPTEST.PAS next >
Encoding:
Pascal/Delphi Source File  |  1993-03-23  |  209 b   |  12 lines
  1. Uses show_bmp,crt;
  2.  
  3. Begin
  4. SetVideomode($13);     {Set Video Mode to 320x200x256c}
  5. showbmp('runset.dat'); {Display the bitmap}
  6.  
  7. repeat
  8. until keypressed;
  9.  
  10. textmode(co80);        {Setup Textmode}
  11. end.
  12.