home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 02 / sttasten.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1979-12-31  |  382 b   |  20 lines
  1. { Tastatur-Codes in Pascal: Atari ST / Pascal ST+ }
  2.  
  3. FUNCTION ConIn (Geraet: INTEGER): INTEGER;
  4. { Geraet: 0 = CENtronic, 1 = RS232,
  5.           2 = CONsole,   3 = Midi   }
  6. BIOS(2);
  7.  
  8.  
  9. PROCEDURE Scan (VAR code: INTEGER);
  10.  
  11. VAR j: LONG_INTEGER;
  12.  
  13.   FUNCTION f_taste (Geraet: INTEGER): LONG_INTEGER;
  14.   GEMDOS(7);
  15.  
  16. BEGIN
  17.   j := f_taste(2);
  18.   code := Trunc(j/65536);
  19. END;
  20.