function getKeyClicked: integer;  

      KE_NONE,    .      : 
  
  KE_KEY0 
  KE_KEY1  
  KE_KEY2 
  KE_KEY3  
  KE_KEY4  
  KE_KEY5  
  KE_KEY6  
  KE_KEY7  
  KE_KEY8  
  KE_KEY9  
  KE_STAR  
  KE_POUND  
  
  begin 
    while getKeyClicked <> KE_STAR do 
    begin 
      delay(100); 
    end; 
  end. 



function getKeyPressed: integer;  

        KE_NONE,      .      : 

  KE_KEY0 
  KE_KEY1  
  KE_KEY2 
  KE_KEY3  
  KE_KEY4  
  KE_KEY5  
  KE_KEY6  
  KE_KEY7  
  KE_KEY8  
  KE_KEY9  
  KE_STAR  
  KE_POUND 
  
  begin 
  while getKeyPressed <> KE_STAR do 
    begin 
      delay(100); 
    end; 
  end. 





function keyToAction(keyCode: integer): integer;  

 getKeyClicked  getKeyPressed    .        . ,       FIRE  100,   - 120.    ,     keyToAction,         . keyToAction      : 

  GA_NONE  
  GA_UP  
  GA_DOWN  
  GA_LEFT  
  GA_RIGHT  
  GA_FIRE  
  GA_GAMEA  
  GA_GAMEB  
  GA_GAMEC  
  GA_GAMED  
  
  begin 
  while keyToAction(getKeyClicked) <> GA_FIRE do 
    begin 
      delay(100); 
    end; 
  end. 