[Win32forth-cvs] win32forth/apps/Setup dtop_lnk.f,1.2,1.3

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

Update of /cvsroot/win32forth/win32forth/apps/Setup
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1204/apps/Setup

Modified Files:
	dtop_lnk.f 
Log Message:
Jos: Adapted for the new string:
Note: My toolset has still an old string: some adjustments are still needed.

Index: dtop_lnk.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Setup/dtop_lnk.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** dtop_lnk.f	5 May 2005 09:43:27 -0000	1.2
--- dtop_lnk.f	14 Oct 2005 17:33:03 -0000	1.3
***************
*** 33,45 ****
   ; immediate
  
- \ Format string: [count-allocated count-string string 0]  The "0" is not counted
- : string:        ( compile-time: len - )  ( run-time: - adr-counted-string )
-    create th fc over <                       \ max 252 char
-    abort" String out off range ! "           \ map:
-    here   swap 3 + dup allot swap c!         \ max-char. counted string
-    does> 1+ ;
- 
- 250 constant /tmp /tmp string: tmp$
- 
  : c>unicode! ( dest char - dest+2 )   over w! 2 chars + ;
  
--- 33,36 ----
***************
*** 62,65 ****
--- 53,58 ----
  [THEN]
  
+ string: tmp$
+ 
  [UNDEFINED] zCount [IF]
  : zCount    ( a1 -- a2 len )
***************
*** 177,179 ****
  
  [then]
!