home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / grafik / lbm / iff / iff_demo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-01-29  |  1.0 KB  |  25 lines
  1. Program ShowIFF_Demo;
  2.  
  3. Uses _LoadIff;
  4.  
  5. (* ********************************************************************* *)
  6. (*   Folgende Routinen stellt die Unit _LoadIff zur Verfügung:           *)
  7. (*    VGA_Mode_On          -> schaltet den VGA 256 Farben Modus ein      *)
  8. (*    VGA_Mode_Off         -> schaltet den VGA 256 Farben Modus aus      *)
  9. (*    LoadIff(Name:String) -> läd das Bild "Name" in den Speicher        *)
  10. (*    ShowIff              ->  zeigt das geladene Bild an                *)
  11. (*                                                                       *)
  12. (*  Die Unit ist noch weiter ausbaufähig, z.B. fehlen fast alle Fehler-  *)
  13. (*  abfangroutinen.                                                      *)
  14. (*                                                                       *)
  15. (*  (c) by ICE-BLOCK / InfernO-crew in 1992                              *)
  16. (* ********************************************************************* *)
  17.  
  18. begin
  19.  VGA_Mode_On;
  20.   LoadIff('Inferno.LBM');
  21.   ShowIff;
  22.   Readln;
  23.  VGA_Mode_Off;
  24. end.
  25.