home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 15 / CD_ASCQ_15_070894.iso / vrac / dnalib7a.zip / MACRO5.MAC < prev    next >
Text File  |  1994-01-01  |  2KB  |  68 lines
  1. WHILE NOT INSTAT: WEND
  2.  
  3. Ky$ = INKEY$
  4.  
  5. IF LEN(Ky$) = 1 THEN
  6.   EditKey% = ASC(Ky$)
  7. ELSE
  8.   EditKey% = -ASC(RIGHT$(Ky$,1))
  9. END IF
  10.  
  11. SELECT CASE EditKey%
  12.         CASE 1     'Ctrl A
  13.         CASE 3     'Ctrl C
  14.         CASE 4     'Ctrl D
  15.         CASE 5     'Ctrl E
  16.         CASE 6     'Ctrl F
  17.         CASE 7     'Ctrl G
  18.         CASE 8     'BackSpace or Ctrl H
  19.         CASE 9     'TabKey
  20.         CASE 11    'Ctrl K
  21.         CASE 12    'Crtl L
  22.         CASE 13    'EnterKey
  23.         CASE 14    'Ctrl N
  24.         CASE 16    'Ctrl P
  25.         CASE 17    'Ctrl Q
  26.         CASE 18    'Ctrl R
  27.         CASE 19    'Ctrl S
  28.         CASE 20    'Ctrl T
  29.         CASE 21    'Ctrl U
  30.         CASE 23    'Ctrl W
  31.         CASE 24    'Ctrl X
  32.         CASE 25    'Ctrl Y
  33.         CASE 26    'Ctrl Z
  34.         CASE 27    'EscKey
  35.         CASE 32 TO 126 'Normal Editing Keys
  36.         CASE -59   'F1 Key
  37.         CASE -60   'F2 Key
  38.         CASE -61   'F3 Key
  39.         CASE -62   'F4 Key
  40.         CASE -64   'F6 Key
  41.         CASE -71   'HomeKey
  42.         CASE -72   'Up Arrow
  43.         CASE -73   'Page Up
  44.         CASE -75   'LeftArrow
  45.         CASE -77   'RightArrow
  46.         CASE -79   'EndKey
  47.         CASE -80   'Down Arrow
  48.         CASE -81   'Page Down
  49.         CASE -82   'InsertKey
  50.         CASE -83   'DeleteKey
  51.         CASE -94   'Ctrl F1
  52.         CASE -95   'Ctrl F2
  53.         CASE -96   'Ctrl F3
  54.         CASE -97   'Ctrl F4
  55.         CASE -98   'Ctrl F5
  56.         CASE -99   'Ctrl F6
  57.         CASE -100  'Ctrl F7
  58.         CASE -101  'Ctrl F8
  59.         CASE -102  'Ctrl F9
  60.         CASE -103  'Ctrl F10
  61.         CASE -117  'Ctrl End
  62.         CASE -118  'Ctrl PgDn
  63.         CASE -119  'Ctrl Home
  64.         CASE -132  'Ctrl PgUp
  65.         CASE ELSE
  66. END SELECT
  67.  
  68.