-> I just need the three with asterisks and any that you don't find on the 
list
-> Sorry about the formatting.  Perhaps next weekend I can get it right.  If 

-> remember correctly, one of the routines was yours.  (Oooops)
Well, of course I deleted your message.  I was a little confusing 
because of the formatting.  If you can re-send the list, (just the ones 
with the asterisks) I will post them if I have them.  I still have 
mine.:-)
Bill
*runmain.prg
*
*A program to automatically check a server to see if an updated
*version of a program is available, if there is, automatically
*replaces the current version with the updated version and runs it.
*
*A dbf called 'UPDATE' is located on the server.  Each record contains
*a site identifier and a logical flag.  If the operator wishes
*to upgrade the software at a site, he/she installs the updated
*software on the server under the name UPDATE.EXE and changes the flag
*for the site to be upgraded to .T.
*
*Must have dos variable 'USERSITE' set to some user identification
*in user's logon script.      Example: set usersite = "LINCOLN"
*
*RUNMAIN checks update.dbf to see if user need updating.  If update
*value for user = .F. no update is indicated and RUNMAIN runs MAIN.EXE.
*
*If update value for user = .T. RUNMAIN resets the flag to .F. copies
*UPDATE.EXE to the user's terminal renames it to MAIN.EXE and then runs it.
*
*If the user is not found, assumes new install and adds user to list with
*an update value of .F. then runs MAIN.EXE.
*
*
*update.dbf:   site    C   11
*              update  L    1
*
* indexed on site
*
*The macro in the last two lines is necessary to prevent FoxPro from
*building the second program into the app when running from the desktop.
*
*Be sure to change paths to suit your network.
set safety off
if !file('h:update.dbf')
     ??chr(7)
     wait window "Warning, Network Is Not Connected ... Call Your 
System Supervisor"
return
endif
use h:\schools\update order 1 share
if seek(upper(getenv("usersite")))
     if update.update.and.file('update.exe')
          wait window "Your Software Is Being Upgraded," + CHR(13) + ;
"Please Wait." nowait
          copy file h:update.exe to c:\user\main.exe
          replace update.update with .F.
          wait window 'Update Complete' nowait
     endif
else
     insert into update values (upper(getenv("usersite")),.F.)
endif
use
RunPrg='main'
do (RunPrg)
 * 1st 2.00l #7225 * Bill Kressbach wkress@tc3net.com
--- Maximus 3.01
---------------