I asked this in the wrong forum before, I think.
Here is my MAIN.PRG, the startup/control program for
my .EXE; can anyone recommend how I could make this
better?


do setup
do mainmenu
do evloop
do cleanup

Procedure SETUP
set default to '\\peewee2\dbdev\data98'
&& What is best way to make this ask the
&& user where the data is just one time?
on shutdown do CleanUp
set century on
set mark to '.'
set date to ansi
set deleted on
set multilocks on
set escape on
set optimize on
set refresh to 0,0
set sysmenu to default
set talk off
set view off
_Screen.Icon = 'DEVCFT.ICO'
set sysmenu off
Return .t.

Procedure MainMenu
Do Menu01.mpr
return .t.

Procedure EvLoop
&& Is there a better way to show the Splash
&& Screen form and hold it there until the
&& last "noshow" slow-loading form is ready?
do form Splash
do form OrdProc noshow
do form CatBrows1 noshow
do form CatBrows2 noshow
do form MaxBar01
&& Since forms take a long time
&& to load data sessions, I thought
&& this might trick them into all
&& loading at app "boot time".
&& They all have private datasessions.
read events
return .t.

Procedure CleanUp
clear events
wait window 'Shutdown trap from setup environment' nowait
clear all
close all
flush
quit
return .t.