only forth also definitions  decimal
\ : expect	cursor-on expect cursor-off ;
\ : key		cursor-on key cursor-off ;
\ : skey		cursor-on skey cursor-off ;
vocabulary spread spread also  definitions

\ Portability: Terminal control

: blot	( column# -- )		drop kill-line  ;

fload spread/spread.fth
spread also
: serve-spread	( -- )
	astring astring locals| bin-name cmd |
	p" <Forthmacs$Dir>.^." bin-name "copy
	application-name bin-name "cat
	bin-name save-forth quit ;
' serve-spread is quit-spread
' bye is prompt

: (cold-hook
	(cold-hook
	['] serve-spread is quit-spread
	\ cursor-off
	spreadsheet ;
	' (cold-hook is cold-hook
cursor-off spreadsheet
