gforth/kernel/saccept.fs - diff

Return to saccept.fs CVS log

Up to [gforth] / gforth / kernel

version 1.12, 2006/03/26 22:54:20	version 1.13, 2006/05/27 21:19:25
Line 35 Variable echo -1 echo !	Line 35 Variable echo -1 echo !
dup #cr = over #lf = or IF	dup #cr = over #lf = or IF
echo @ IF space THEN drop nip swap - ( xoff ) EXIT THEN	echo @ IF space THEN drop nip swap - ( xoff ) EXIT THEN
dup #eof = IF eof on THEN	dup #eof = IF eof on THEN
#bs = IF 3 pick over <> over 0> and	#bs = IF 2 pick over <>
IF 1 chars -	IF 1 chars -
echo @ IF #bs emit bl emit #bs emit THEN	echo @ IF #bs emit bl emit #bs emit THEN
ELSE echo @ IF bell THEN THEN THEN	ELSE echo @ IF bell THEN THEN THEN