home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / p3_15bs.seq < prev    next >
Encoding:
Text File  |  1990-04-07  |  493 b   |  19 lines
  1. \ Balraj Sidhu   Set: 14D4
  2. \ Comp 462 - Forth
  3. \ Date: April 7, 1990
  4. \ Problem 3.15
  5.  
  6. : key_test ( -- )
  7.         begin cr key
  8.         dup control m =         \ control m is return key
  9.         if drop exit then       \ exit infinite loop if pressed
  10.         dup . emit again ;      \ otherwise show key pressed
  11.  
  12. COMMENT:
  13.  
  14. When a function key is pressed the scan code + 128 of the function key
  15. is displayed, plus the extended IBM ACII character for the scan code + 128.
  16.  
  17. COMMENT;
  18.  
  19.