[Win32forth-cvs] win32forth/src/console NoConsole.f,1.4,1.5

[Dirk B. <db...@us...>]

Update of /cvsroot/win32forth/win32forth/src/console
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16669/src/console

Modified Files:
	NoConsole.f 
Log Message:
Some minor ceanup

Index: NoConsole.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/NoConsole.f,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** NoConsole.f	29 Jul 2006 09:41:12 -0000	1.4
--- NoConsole.f	30 Jul 2006 08:59:25 -0000	1.5
***************
*** 91,129 ****
  \ *G Reset of the Console I/O after saving turnkey applications that don't need
  \ ** the console window. Done automatically by TURNKEY.
!         \ reset all deferd words for the console window to noop's.
!         ['] NOOP    IS INIT-CONSOLE-REG
!         ['] M_INIT-CONSOLE IS INIT-CONSOLE
!         ['] X_INIT-SCREEN    IS INIT-SCREEN
!         ['] MENUKEY IS KEY
!         ['] _MKEY? IS KEY?
!         ['] _LACCEPT IS ACCEPT
!         ['] X_PUSHKEY   IS PUSHKEY
!         ['] X_"PUSHKEYS   IS "PUSHKEYS
!         ['] K_NOOP1 IS SHIFTMASK
!         ['] NOOP    IS CLS
!         ['] _MEMIT    IS EMIT
!         ['] _MTYPE   IS TYPE
!         ['] _MCRTAB    IS CR
!         ['] _M?CR    IS ?CR
!         ['] FORTH-IO   IS CONSOLE
!         ['] X_GOTOXY   IS GOTOXY
!         ['] X_GETXY IS GETXY
!         ['] X_GETCOLROW IS GETCOLROW
!         ['] X_SIZESTATE IS SIZESTATE
!         ['] X_MARKCONSOLE   IS MARKCONSOLE
!         ['] X_CURSORINVIEW    IS CURSORINVIEW
!         ['] X_FGBG!   IS FGBG!
!         ['] X_FG@ IS FG@
!         ['] X_BG@ IS BG@
!         ['] X_CHARWH IS CHARWH
!         ['] X_SETCHARWH   IS SETCHARWH
!         ['] X_SETCOLROW   IS SETCOLROW
!         ['] X_SET-CURSOR    IS SET-CURSOR
!         ['] X_GET-CURSOR IS GET-CURSOR
!         ['] X_SETROWOFF    IS SETROWOFF
!         ['] X_GETROWOFF IS GETROWOFF
!         ['] X_GETMAXCOLROW IS GETMAXCOLROW
!         ['] X_SETMAXCOLROW   IS SETMAXCOLROW
!         ['] X_&THE-SCREEN IS &THE-SCREEN
  
          \ reset BYE to default
--- 91,130 ----
  \ *G Reset of the Console I/O after saving turnkey applications that don't need
  \ ** the console window. Done automatically by TURNKEY.
! 
!         \ set all deferd words for the console window.
!         ['] NOOP                IS INIT-CONSOLE-REG
!         ['] M_INIT-CONSOLE      IS INIT-CONSOLE
!         ['] X_INIT-SCREEN       IS INIT-SCREEN
!         ['] MENUKEY             IS KEY
!         ['] _MKEY?              IS KEY?
!         ['] _LACCEPT            IS ACCEPT
!         ['] X_PUSHKEY           IS PUSHKEY
!         ['] X_"PUSHKEYS         IS "PUSHKEYS
!         ['] X_SHIFTMASK         IS SHIFTMASK
!         ['] _mcls               IS CLS
!         ['] _MEMIT              IS EMIT
!         ['] _MTYPE              IS TYPE
!         ['] _MCRTAB             IS CR
!         ['] _M?CR               IS ?CR
!         ['] FORTH-IO            IS CONSOLE
!         ['] X_GOTOXY            IS GOTOXY
!         ['] X_GETXY             IS GETXY
!         ['] X_GETCOLROW         IS GETCOLROW
!         ['] X_SIZESTATE         IS SIZESTATE
!         ['] X_MARKCONSOLE       IS MARKCONSOLE
!         ['] X_CURSORINVIEW      IS CURSORINVIEW
!         ['] X_FGBG!             IS FGBG!
!         ['] X_FG@               IS FG@
!         ['] X_BG@               IS BG@
!         ['] X_CHARWH            IS CHARWH
!         ['] X_SETCHARWH         IS SETCHARWH
!         ['] X_SETCOLROW         IS SETCOLROW
!         ['] X_SET-CURSOR        IS SET-CURSOR
!         ['] X_GET-CURSOR        IS GET-CURSOR
!         ['] X_SETROWOFF         IS SETROWOFF
!         ['] X_GETROWOFF         IS GETROWOFF
!         ['] X_GETMAXCOLROW      IS GETMAXCOLROW
!         ['] X_SETMAXCOLROW      IS SETMAXCOLROW
!         ['] X_&THE-SCREEN       IS &THE-SCREEN
  
          \ reset BYE to default