[Win32forth-cvs] win32forth/demos taskdemo.f,1.7,1.8

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

Update of /cvsroot/win32forth/win32forth/demos
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv29973

Modified Files:
	taskdemo.f 
Log Message:
Save and restore cursor location in tasks (as per original).

Index: taskdemo.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/taskdemo.f,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** taskdemo.f	26 Oct 2008 23:35:01 -0000	1.7
--- taskdemo.f	27 Oct 2008 22:46:18 -0000	1.8
***************
*** 32,36 ****
            c-unlock
            loop
!           console-lock lock 50 location @ gotoxy ." Exiting..."
             1 ;     \  my exit code and leave the console locked
  
--- 32,36 ----
            c-unlock
            loop
!           c-lock 50 location @ gotoxy ." Exiting..." gotoxy
             1 ;     \  my exit code and leave the console locked
  
***************
*** 73,77 ****
            WAIT_OBJECT_0 +
            dup>r taskblocks +cells @ task>id @   \ get the task id
! \         console-lock lock                   \ locking here wil lock the whole system
            ." Task " . ." completed"  cr
            console-lock unlock                 \ Unlock here.( was locked at the task exit )
--- 73,77 ----
            WAIT_OBJECT_0 +
            dup>r taskblocks +cells @ task>id @   \ get the task id
! \         console-lock lock                   \ locking here will lock the whole system
            ." Task " . ." completed"  cr
            console-lock unlock                 \ Unlock here.( was locked at the task exit )