home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / grafik / tp6vga / sample.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-11-09  |  440 b   |  25 lines
  1. program thisisatest;
  2.  
  3. var 
  4. mode, anx, any : integer;
  5.  
  6. {$I lscreen.pas}
  7.  
  8. begin
  9. writeln('Enter the mode number :');
  10. writeln('0 : 320x200x256');
  11. writeln('1 : 600x400x256');
  12. writeln('2 : 640x480x256');
  13. writeln('3 : 800x600x256');
  14. writeln('4 : 1024x768x256');
  15. write('>');
  16. readln(mode);
  17. initsvga(mode);
  18. loadscreen('city1.dny');
  19. quickpal('dp.pal',1);
  20. quickpal('dp.pal',2);
  21. quickpal('dp.pal',3);
  22. quickpal('dp.pal',4);
  23. end.
  24.  
  25.