[Win32forth-cvs] win32forth/apps/Setup Setup.f,1.25.2.1,1.25.2.2

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

Update of /cvsroot/win32forth/win32forth/apps/Setup
In directory vz-cvs-4.sog:/tmp/cvs-serv22217

Modified Files:
      Tag: V614XX
	Setup.f 
Log Message:
Fixed winver-init to work in w98FE (and possibly w95)

Index: Setup.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Setup/Setup.f,v
retrieving revision 1.25.2.1
retrieving revision 1.25.2.2
diff -C2 -d -r1.25.2.1 -r1.25.2.2
*** Setup.f	31 Aug 2010 19:51:31 -0000	1.25.2.1
--- Setup.f	24 Jun 2011 17:35:58 -0000	1.25.2.2
***************
*** 84,93 ****
          SystemDirectory$ c! ; \ make counted string
  
! : .version      ( -- )
!                 base @ decimal
!                 ." Version: "
!                 version# ((version)) type
!                 ."  Build: " build# .
!                 base ! ;
  : setupinit
  \in-system-ok        3 Show-Window
--- 84,96 ----
          SystemDirectory$ c! ; \ make counted string
  
! \ Already in kernel
! 
! \ : .version      ( -- )
! \                 base @ decimal
! \                 ." Version: "
! \                 version# ((version)) type
! \                 ."  Build: " build# .
! \                 base ! ;
! 
  : setupinit
  \in-system-ok        3 Show-Window