home *** CD-ROM | disk | FTP | other *** search
/ Current Shareware 1994 January / SHAR194.ISO / educatio / flash36.zip / GETFKEY.DOC < prev    next >
Text File  |  1992-11-09  |  2KB  |  76 lines
  1. Name:               GETFKEY
  2.                     Copyright 1990, Ed Oliver
  3. Implementation:     Turbo Pascal 5.0
  4. Function:           Set errorlevel according to function key pressed
  5. Purpose:            Allow .BAT files simple menu functions
  6. History:            Created- Mar 90    Ed Oliver
  7.                     Updated-
  8. Input:              Keyboard
  9. Output:             MS-DOS errorlevel    (set to Extended key code)
  10. Processing:
  11.                     While TRUE do
  12.                       Read key from keyboard
  13.                       While key read is not NUL (#0)
  14.                          read key again
  15.                       Read key again
  16.                       If key read is legal function key
  17.                         Halt with scan code
  18.  
  19.              ERRORLEVEL Values Returned by GETFKEY
  20.  
  21. Key                    Shift          Ctrl          Alt
  22.  
  23.  F1          59          84            94           104
  24.  F2          60          85            95           105
  25.  F3          61          86            96           106
  26.  
  27.  F4          62          87            97           107
  28.  F5          63          88            98           108
  29.  F6          64          89            99           109
  30.  
  31.  F7          55          90           100           110
  32.  F8          66          91           101           111
  33.  F9          67          92           102           112
  34.  
  35.  F10         68          93           103           113
  36.  Home        71          71           119           151
  37.  
  38.  End         79          79           117           159
  39.  PgUp        73          73           132           153
  40.  PgDn        81          81           118           161
  41.  
  42.  ^           72          72           141           152
  43.  v           80          80           145           160
  44.  <           75          75           115           155
  45.  >           77          77           116           157
  46.                  Typical .BAT file use might be
  47.  
  48. @echo off
  49. :again
  50. cls
  51. echo.
  52. echo.
  53. echo             CHOOSE AN ACTION FROM THE MENU
  54. echo.
  55. echo          F1   List the Directory of Drive A:
  56. echo.
  57. echo          F2   List the Directory of Drive C:
  58. echo.
  59. echo          F3   Exit this menu
  60. echo.
  61. echo.
  62. funky
  63. if not errorlevel 59 goto again
  64. if errorlevel 62 goto again
  65. if errorlevel 61 goto pickf3
  66. if errorlevel 60 goto pickf2
  67. :pickf1
  68. dir a:
  69. pause
  70. goto again
  71. :pickf2
  72. dir c:
  73. pause
  74. goto again
  75. :pickf3
  76.