-- Get --------------------------------------- procedure Get(Item : out Integer) is begin -- Vänta på OS:et -- Läsa tecken för tecken. -- Stoppa talet i en variabel. null; end Get;