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