|
|
|
readword
reads a word - i.e. a sequence of characters up to (but excluding) Carriage Return.
Definition:
to readword make local "w "'' make local "key "'' while :key<>:return [ make "key readkey if :key=:return [ ] [ printkey :key if :key=:backspace [ make "w bl :w ] [ make "w word :w :key ] ] ] output :w end |
|
|
|