home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / FPCL1_7.ZIP / L3.ZIP / 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.