gforth/kernel/accept.fs - diff

Return to accept.fs CVS log

Up to [gforth] / gforth / kernel

version 1.4, 1999/03/29 22:52:32	version 1.5, 1999/12/12 18:35:54
Line 22	Line 22
>r 2dup + r@ swap c! r> emit 1+ rot 1+ -rot ;	>r 2dup + r@ swap c! r> emit 1+ rot 1+ -rot ;
: (bs) ( max span addr pos1 -- max span addr pos2 flag )	: (bs) ( max span addr pos1 -- max span addr pos2 flag )
dup IF	dup IF
#bs emit bl emit #bs emit 1- rot 1- -rot	#bs emit space #bs emit 1- rot 1- -rot
THEN false ;	THEN false ;
: (ret) true bl emit ;	: (ret) ( max span addr pos1 -- max span addr pos2 flag )
	true space ;

Create ctrlkeys	Create ctrlkeys
] false false false false false false false false	] false false false false false false false false