vocabulary spread
only forth also  spread also  definitions

\ Portability: Terminal control

: at	( column# row# -- )	swap at  ;
: blot	( column# -- )		drop kill-line  ;

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

: abort-spread
	clear rp0 @ rp!
	clear
	spreadsheet ;
	' abort-spread is abort

: (cold-hook
	(cold-hook
	spreadsheet ;
	' (cold-hook is cold-hook
