home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / p3_15dc.seq < prev    next >
Encoding:
Text File  |  1990-04-05  |  326 b   |  14 lines
  1. \ Problem 3.15 by Dickson Cheng  04/05/90 10:38:53.76
  2.  
  3.  
  4. \ The function keys F1 to F10 equal to ASCII value 187 to 196.
  5. \ The function keys F11 and F12 do not respronse to KEY_TEST.
  6.  
  7.  
  8. : KEY_TEST              ( -- )
  9.         BEGIN CR KEY
  10.         DUP CONTROL M =
  11.         IF DROP EXIT THEN
  12.         DUP . EMIT AGAIN ;
  13.  
  14.