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

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

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

Modified Files:
	taskdemo.f 
Log Message:
Improved multi-tasking plus updated taskdemo (which hopefully now works for everybody).

Index: taskdemo.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/taskdemo.f,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** taskdemo.f	27 Oct 2008 22:46:18 -0000	1.8
--- taskdemo.f	29 Oct 2008 23:20:55 -0000	1.9
***************
*** 74,77 ****
--- 74,79 ----
            dup>r taskblocks +cells @ task>id @   \ get the task id
  \         console-lock lock                   \ locking here will lock the whole system
+ \         begin winpause console-lock trylock until \ can be used provided unlock in task exit is resored
+ \         but only on NT 4 or greater.
            ." Task " . ." completed"  cr
            console-lock unlock                 \ Unlock here.( was locked at the task exit )
***************
*** 140,144 ****
    task-fast run-task drop
    key drop
!   console-lock unlock \ To be sure the console is unlocked
    task-slow stop-task
    task-fast stop-task
--- 142,146 ----
    task-fast run-task drop
    key drop
! \  console-lock unlock \ To be sure the console is unlocked; do noy use since locks and unlocks MUST be balanced.
    task-slow stop-task
    task-fast stop-task