Return to key.fs CVS log | Up to [gforth] / gforth / arch / misc |
version 1.1, 1997/05/29 19:43:09 | version 1.2, 1998/12/11 22:54:29 |
---|---|
Line 1 | Line 1 |
\ misc-key.fs basic-io for misc processor 01feb97jaw | \ misc-key.fs basic-io for misc processor 01feb97jaw |
c: key? $ffff x@ 0<> ; | c: (key?) $ffff x@ 0<> ; |
c: (key) BEGIN key? UNTIL $fffe x@ ; | c: (key) BEGIN key? UNTIL $fffe x@ ; |