with Text_IO; with System;
   with System.Storage_Elements;
   procedure main is
   --------TASK-----------
      task TKeyboard is
         entry keyp;
         for Keyp'Address use System.Storage_Elements.To_Address (16#20#);    
      end TKeyboard;
   
      task body TKeyboard is
      begin
         loop
            accept keyp do
               text_io.put_line("Keypressed (numlock)");
            end keyp;
         end loop;
      end TKeyboard;
   ------END TASK---------
   
   begin
      null;
   end main;