rewritten with PICK

git-svn-id: svn://svn.code.sf.net/p/amforth/code/trunk@1601 fd1c0b69-5d68-47f5-910c-86182ebb6ecd
Merge branch 'hq'. Disappointed to see picture format not adopted.

Conflicts:
	core/words/dot-s.asm