home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 10_11 / dbase / inkey.prg < prev    next >
Encoding:
Text File  |  1988-02-01  |  891 b   |  33 lines
  1. *********** Programm für auslesen des Scan-Codes **********
  2. set escape off
  3. set echo off
  4. set talk off
  5. public haupt, taste, weiter
  6. @ 0, 0 clear
  7. @ 5,20 say "Ermittlung des Scan-Codes"
  8. @ 7,20 say "Bitte drücken Sie die entsprechende Taste"
  9. haupt = .t.
  10.  do while haupt
  11.    taste = 0
  12.    do while taste = 0
  13.       set console off
  14.       @ 7,61 say ""    && dient zur Courserposition
  15.       taste = inkey()  && Scan-Code Ermittlung
  16.       set console on
  17.    enddo
  18.      @10,20 say "Ermittelter Scan-Code: " get taste
  19.      @12,20 say "Abbruch mit [q/Q] weiter irgendeine Taste"
  20.      set console off
  21.      @12,62 say ""     && dient zur Courserposition
  22.      wait to weiter
  23.      set console on
  24.      @12,20 say space(42)
  25.         if weiter = "q" .or. weiter = "Q"
  26.            haupt = .f.
  27.         else
  28.            haup = .t.
  29.            @10,44 say space(12)
  30.         endif
  31. enddo
  32. clear
  33.