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