[Win32forth-cvs] win32forth/apps/Player4 PLAYER4.F,1.12,1.13

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

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

Modified Files:
	PLAYER4.F 
Log Message:
Jos: Removed a small bug from the startup

Index: PLAYER4.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** PLAYER4.F	26 May 2005 08:29:29 -0000	1.12
--- PLAYER4.F	28 May 2005 11:05:31 -0000	1.13
***************
*** 18,23 ****
  decimal
  
! true  value turnkey?
! \ false value turnkey?
  true  value MciDebug?
  
--- 18,23 ----
  decimal
  
! \ true  value turnkey?
!  false value turnkey?
  true  value MciDebug?
  
***************
*** 205,208 ****
--- 205,209 ----
          ['] on_unclicked to unclick-func
  
+ 
          catalog-exist?
          if   map-config-file map-database
***************
*** 211,214 ****
--- 212,216 ----
                    ." freelist: " vadr-config  #free-list @ .
               then
+         else datfile$ count file-exist? not check-config
          then
  
***************
*** 495,501 ****
   DatFile$ count file-exist?  [IF]
   DatFile$ count r/o open-file throw dup file-size throw d>s pad ! close-file throw
!            pad @ sizeof ConfigDef = check-config
!  [ELSE]    DatFile$ create/open  close-file throw
!            0 sizeof ConfigDef = check-config
   [THEN]
  
--- 497,501 ----
   DatFile$ count file-exist?  [IF]
   DatFile$ count r/o open-file throw dup file-size throw d>s pad ! close-file throw
!            pad @ sizeof ConfigDef = check-config unmap-configuration
   [THEN]
  
***************
*** 512,514 ****
  [then]
  \s
!