Section courante

A propos

Section administrative du site

KEEP

Garder
Turbo Pascal 4+ DOS

Syntaxe

Procedure Keep(valeursortie:Word);

Paramètres

Nom Description
valeursortie Ce paramètre permet d'indiquer la valeur retourné par le programme appelant

Description

Cette procédure permet de terminer le programme en mode résident (TSR).

Remarques

Exemple

L'exemple suivant permet d'installer un programme résident provoquant un son de clic pour chaque touche enfoncé sur le clavier :

  1. Program KeepSamples;
  2.  
  3. {$M $800,0,0 }   { 2 Ko de pile, pas de mémoire de tas }
  4.  
  5. Uses Crt,Dos;
  6.  
  7. Var
  8.   KbdIntVec:Procedure;
  9.  
  10. {$F+}
  11. procedure Keyclick;Interrupt;Begin
  12.  If Port[$60]<$80 Then Begin
  13.   Sound(5000);
  14.   Delay(1);
  15.   Nosound;
  16.  End;
  17.  Inline($9C);
  18.  KbdIntVec;
  19. End;
  20. {$F-}
  21.  
  22. BEGIN
  23.  GetIntVec($9,@KbdIntVec);
  24.  SetIntVec($9,Addr(Keyclick));
  25.  Keep(0);
  26. END.

Référence

Aide-mémoire de Turbo Pascal versions de 3 à 6, Edition Marabout, De Groote, Virga, 1992, ISBN: 2-501-01833-8, page 273.

Dernière mise à jour : Dimanche, le 25 janvier 2015