home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / p3_17bs.seq < prev    next >
Encoding:
Text File  |  1990-04-07  |  2.4 KB  |  66 lines
  1. \ Balraj Sidhu   Set: 14D4
  2. \ Comp 462 - Forth
  3. \ Date: April 7, 1990
  4. \ Problem 3.17
  5.  
  6.  
  7. : pckey ( -- n flag )
  8.         bioskey dup 127 and     \ mask off low 8-bits to check for ASCII
  9.         if 127 and true         \ Yes its ASCII, mask off ASCII value.
  10.         else flip false         \ Its a function key, leave scan code.
  11.         then ;
  12.  
  13. \ test ASCII keys and function keys.
  14. : pckey_test ( -- )
  15.         begin cr pckey
  16.         if dup control m =
  17.                 if drop exit then       \ exit infinite loop if enter pressed
  18.                 ." ASCII key character code = "
  19.                 dup . emit
  20.         else ." Function key scan code = " .  \ display scan code
  21.         then again ;
  22.  
  23.  
  24. COMMENT:
  25. Run of above program.
  26. Code = Scan Code.
  27.  
  28.    Key          Code                key           Code
  29. ---------    ---------           ---------     ----------
  30.    F1            59              Shift F1          84
  31.    F2            60              Shift F2          85
  32.    F3            61              Shift F3          86
  33.    F4            62              Shift F4          87
  34.    F5            63              Shift F5          88
  35.    F6            64              Shift F6          89
  36.    F7            65              Shift F7          90
  37.    F8            66              Shift F8          91
  38.    F9            67              Shift F9          92
  39.    F10           68              Shift F10         93
  40.  
  41.  
  42.    Key          Code                key           Code
  43. ---------    ---------           ---------     ----------
  44.  Alt F1         104               Ctl F1           94
  45.  Alt F2         105               Ctl F2           95
  46.  Alt F3         106               Ctl F3           96
  47.  Alt F4         107               Ctl F4           97
  48.  Alt F5         108               Ctl F5           98
  49.  Alt F6         109               Ctl F6           99
  50.  Alt F7         110               Ctl F7          100
  51.  Alt F8         111               Ctl F8          101
  52.  Alt F9         112               Ctl F9          102
  53.  Alt F10        113               Ctl F10         103
  54.  
  55.  
  56.    Key          Code                key           Code
  57. ---------    ---------           ---------     ----------
  58.    Ins           82                 Del            83
  59.   Home           71                 End            79
  60.   PgUp           73                 PgDn           81
  61. Up Arrow         72               Down Arrow       80
  62. Left Arrow       75               Right Arrow      77
  63.  
  64. COMMENT;
  65.  
  66.