readword

Help Contents io readword
readkey clearkey

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

Example:

Reference:

readkey clearkey