home *** CD-ROM | disk | FTP | other *** search
/ PC Interdit / pc-interdit.iso / memory / flat / demormem.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-10-31  |  2.2 KB  |  69 lines
  1. {
  2.  
  3.  ****************************************************************************
  4.  ***                   MICRO APPLICATION PC INTERDIT                      ***
  5.  ***                  ================================                    ***
  6.  ***                                                                      ***
  7.  ***           Programme de démonstration pour le mode de fonctionne-     ***
  8.  ***           ment de la Unit RMEM.                                      ***
  9.  ***                                                                      ***
  10.  ***           Une image se fait charger par la                           ***
  11.  ***           RMEM et ensuite afficher par la RMEM                       ***
  12.  *** Auteur           : Boris Bertelsons  (InspirE)                       ***
  13.  *** Nom de fichier   : DEMORMEM.PAS                                      ***
  14.  *** Dernière modif   : 28.04.1994                                        ***
  15.  *** Version          : 1.0                                               ***
  16.  *** Compilateur      : Turbo Pascal 7                                    ***
  17.  ****************************************************************************
  18.  
  19. }
  20. program demo386;
  21.  
  22. uses dos,crt,rmem,gifunit;
  23.  
  24. var Position_image : longint;
  25.  
  26. procedure Charge_fic_gif;
  27. begin;
  28.   getmem(vscreen,64000);
  29.   Init_ModeX;
  30.   blackpal;
  31.   LoadGif('Exemple.gif',vscreen,0,0);
  32.   textmode(3);
  33. end;
  34.  
  35. procedure Affiche_image_gif;
  36. begin;
  37.   Init_ModeX;
  38.   p13_2_modex(0,16000);
  39.   setpal;
  40. end;
  41.  
  42. begin
  43.   memory_checks(500,2700);
  44.   enable_Realmem(2700);
  45.  
  46.   if not Rgetmem(Position_image,64000) then begin;
  47.     textmode(3);
  48.     writeln('Erreur lors de l''allocation de la mémoire !!!');
  49.   end;
  50.   Charge_fic_gif;
  51.  
  52.   writeln('Chargement l''image GIF dans la mémoire.');
  53.   writeln('Enregistrement de l''image dans la RMEM et suppression du tampon de chargement !');
  54.   Rmem_write(vscreen,Position_image,64000);
  55.   fillchar(vscreen^,64000,0);
  56.  
  57.   writeln('Suppression du tampon de chargement !');
  58.   writeln('Chargement maintenant de l''image à partir  de la RMEM');
  59.   writeln('<ENTER>, pour afficher l''image ... ');
  60.   readln;
  61.   Rmem_Lire(Position_image,vscreen,64000);
  62.   Affiche_image_gif;
  63.  
  64.   readln;
  65.   textmode(3);
  66.   Exit_Rmem;
  67. end.
  68.  
  69.