[Win32forth-cvs] win32forth/src/console NewConsole.f,1.38,1.39

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/src/console
In directory vz-cvs-4.sog:/tmp/cvs-serv3618

Modified Files:
	NewConsole.f 
Log Message:
Minor bug fix

Index: NewConsole.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v
retrieving revision 1.38
retrieving revision 1.39
diff -C2 -d -r1.38 -r1.39
*** NewConsole.f	17 Jan 2012 19:50:41 -0000	1.38
--- NewConsole.f	17 Jan 2012 20:24:56 -0000	1.39
***************
*** 200,213 ****
  
  : c_emit ( c -- )
! dup
! case
! $D of getxy swap drop 0 swap gotoxy endof
! $A of getxy 1+ gotoxy endof
! $7 of beep endof
! $9 of BackSpace: cmd endof
! \in-system-ok sp@ 1 c_type
! endcase
! drop
! ;
  
  : c_cr ( -- )    cr: cmd ;
--- 200,211 ----
  
  : c_emit ( c -- )
!         case
!           $7 of beep endof
!           $8 of BackSpace: cmd endof
!           $A of getxy 1+ gotoxy endof
!           $D of getxy swap drop 0 swap gotoxy endof
!           sp@ 1 c_type
!         endcase
!         ;
  
  : c_cr ( -- )    cr: cmd ;