[Win32forth-cvs] win32forth-stc/src/lib Tracer.f,1.1,1.2

[Jos v.d.V. <jo...@us...>]

Update of /cvsroot/win32forth/win32forth-stc/src/lib
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv29788

Modified Files:
	Tracer.f 
Log Message:
Jos: Added also an output example for the STC version of Win32Forth.

Index: Tracer.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/lib/Tracer.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Tracer.f	17 May 2007 13:25:27 -0000	1.1
--- Tracer.f	19 May 2007 11:18:51 -0000	1.2
***************
*** 123,127 ****
  
   demo-tracer abort
! \s
  
  Enter the number trace points you like to see after the T>>.
--- 123,167 ----
  
   demo-tracer abort
! 
! \s Output examples:
! 
! \ In the STC-version of Win32Forth you see:
! 
! Enter the number trace points you like to see after the T>>.
! Negative input skips the number of trace points. 0 aborts.
! 
! 19-5-2007 13:12:29. Used Win32Forth:
! version: 0.02.05 build: 767
! 
! TRON    TRACING T>> 99
! 
! TROFF  - [empty]
! Put trace in the definition to activate the tracer.
! Troff sets the tracer off, tron puts it on.
!  i/o   executed  stack
!   |        |        |
!  \|/      \|/      \|/
! 
! TRON    \ tron   - [empty]
!         \ literal        - [1] 3
!         \ literal        - [2] 3 0
!         \ do     - [empty]
!         \ i      - [1] 0
! 0       \ .      - [empty]
!         \ do     - [empty]
!         \ i      - [1] 1
! 1       \ .      - [empty]
!         \ do     - [empty]
!         \ i      - [1] 2
! 2       \ .      - [empty]
!         \ loop   - [empty]
! 
!         \ cr     - [empty]
! End of demo.    \ ."     - [empty]
! ;       \ .unnest        - [empty]
! 
! 
! \ In the ITC-version of Win32Forth you see:
! 
  
  Enter the number trace points you like to see after the T>>.