[Win32forth-cvs] win32forth/apps/Solipon2 SOLIPION.F,1.2,1.3

[Dirk B. <db...@us...>]

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

Modified Files:
	SOLIPION.F 
Log Message:
- Changed Setup.exe to bild the new applications (Solipion, Player4 and PlayVirginRadio)
- Fixed a bug in Resources.f
- Added an Icon to Win32for.exe
- Changed Version to 6.11.03 (to match Version 6.11.03 at www.win32forth.org)

Index: SOLIPION.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Solipon2/SOLIPION.F,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** SOLIPION.F	6 Jun 2005 11:07:46 -0000	1.2
--- SOLIPION.F	12 Jun 2005 08:37:35 -0000	1.3
***************
*** 1,4 ****
--- 1,6 ----
  \ SOLIPION.F     2.01
  
+ s" apps\Solipon2"   "fpath+
+ 
  needs old\optimize.f
  needs Resources.f
***************
*** 237,241 ****
  
  : playthat
!  SND_ASYNC SND_MEMORY or SND_NODEFAULT or NULL ROT Call PlaySound drop ;
  
  : <<<hypothesis>>> ( -- )
--- 239,252 ----
  
  : playthat
!         SND_ASYNC SND_MEMORY or SND_NODEFAULT or NULL ROT Call PlaySound drop ;
! 
! : find-file     ( addr len -- addr1 len1 )
!         path-ptr off \ clear path list
!         s" ."       "fpath+ \ current dir is first
!         &forthdir count "fpath+
!         s" apps\Solipon2" "fpath+
! 
!         "path-file drop
!         ;
  
  : <<<hypothesis>>> ( -- )
***************
*** 244,248 ****
          <hypothesis>flag? 0=
          if      true to <hypothesis>flag?
!                 s" ep7.wav" r/o open-file drop >r
                  r@ file-size drop d>s to <hypothesis>size
                  r@ <hypothesis>size malloc to <hypothesis>handle
--- 255,259 ----
          <hypothesis>flag? 0=
          if      true to <hypothesis>flag?
!                 s" ep7.wav" find-file r/o open-file drop >r
                  r@ file-size drop d>s to <hypothesis>size
                  r@ <hypothesis>size malloc to <hypothesis>handle
***************
*** 259,267 ****
  
  
- 
          0 value <ding>busy?
          0 value <ding>handle
          0 value <ding>flag?
          0 value <ding>size
  : <<<ding>>>    ( -- )
          <ding>busy?  ?exit
--- 270,278 ----
  
  
          0 value <ding>busy?
          0 value <ding>handle
          0 value <ding>flag?
          0 value <ding>size
+ 
  : <<<ding>>>    ( -- )
          <ding>busy?  ?exit
***************
*** 269,273 ****
          <ding>flag? 0=
          if      true to <ding>flag?
!                 s" av7.wav" r/o open-file drop >r
                  r@ file-size drop d>s to <ding>size
                  r@ <ding>size malloc to <ding>handle
--- 280,284 ----
          <ding>flag? 0=
          if      true to <ding>flag?
!                 s" av7.wav" find-file r/o open-file drop >r
                  r@ file-size drop d>s to <ding>size
                  r@ <ding>size malloc to <ding>handle
***************
*** 292,296 ****
          if
                  true to <bleep1>flag?
!                 s" bleep7.wav" r/o open-file drop >r
                  r@ file-size drop d>s to <bleep1>size
                  r@ <bleep1>size malloc to <bleep1>handle
--- 303,307 ----
          if
                  true to <bleep1>flag?
!                 s" bleep7.wav" find-file r/o open-file drop >r
                  r@ file-size drop d>s to <bleep1>size
                  r@ <bleep1>size malloc to <bleep1>handle
***************
*** 318,322 ****
          <yahoo>flag? 0=
          if      true to <yahoo>flag?
!                 s" yahoo.wav" r/o open-file drop >r
                  r@ file-size drop d>s to <yahoo>size
                  r@ <yahoo>size malloc to <yahoo>handle
--- 329,333 ----
          <yahoo>flag? 0=
          if      true to <yahoo>flag?
!                 s" yahoo.wav" find-file r/o open-file drop >r
                  r@ file-size drop d>s to <yahoo>size
                  r@ <yahoo>size malloc to <yahoo>handle
***************
*** 342,346 ****
          <applause>flag? 0=
          if      true to <applause>flag?
!                 s" applause7.wav" r/o open-file drop >r
                  r@ file-size drop d>s to <applause>size
                  r@ <applause>size malloc to <applause>handle
--- 353,357 ----
          <applause>flag? 0=
          if      true to <applause>flag?
!                 s" applause7.wav" find-file r/o open-file drop >r
                  r@ file-size drop d>s to <applause>size
                  r@ <applause>size malloc to <applause>handle
***************
*** 766,773 ****
  \               Save the bests-table
  \ ---------------------------------------------------------------
- 
- 
- 
- 
  : save-bests    { \ best$ hfile -- }
          max-path LocalAlloc: best$
--- 777,780 ----
***************
*** 1632,1636 ****
          13 pushkey ;
  
- 
  : load-table-bests { \ best$ hfile -- }
          max-path LocalAlloc: best$
--- 1639,1642 ----
***************
*** 1812,1816 ****
  
  ' solipion turnkey solipion       \ build an application on disk
! s" solipion.ico" s" solipion.exe" AddAppIcon
! 5 pause-seconds
!