@echo off
CLS
echo 
BALL /T5
:logo
MENU2 /K PRSBQ /F
if errorlevel 255 goto quit
if errorlevel 5 goto quit
if errorlevel 4 goto stats
if errorlevel 3 goto season
if errorlevel 2 goto fball
if errorlevel 1 goto play
:season
SEASON
pause
goto logo
:fball
EGAFB
goto logo
:play
MATCHD
QU QP /(P)lay by Play or (Q)uick Game?
if errorlevel 2 goto fball
CLS
QUICK
PAUSE
copy gam15.sts gam.sts
PSTAT
goto logo
:stats
echo 
echo ÿ
echo Backup Season Stats to-B [B]
echo Save Week's Games to  -B [S]
echo Use/See Game stats       [C]
echo Start New Season         [Z]
echo Return to MAIN MENU      [R]
QU BSCZR /Select Option
if errorlevel 5 goto LOGO
if errorlevel 4 goto zero
if errorlevel 3 goto change
if errorlevel 2 goto weeks
:league
cls
echo Select (N)FL or (R)BL Leauge
QU NR /Select Option
if errorlevel 2 goto RBL
:NFL
copy NDV?.REC B:\NFL
copy NV?.rec B:\NFL
copy nfweek.dat B:\NFL
goto logo
:RBL
copy DIV?.REC B:\RBL
copy DV?.REC B:\RBL
copy week.dat B:\RBL
goto logo
:weeks
cls
echo 
echo TYPE IN "set INPUT=WEEK##" (W/O"),then F6 AND Enter when finished
copy inputset.txt+con number.bat>nul
call number
echo Backup Game Stats for (N)FL or (R)BL League?
QU NR /Select Option
if errorlevel 2 goto rbstat
cls
del gam17.sts
del gam.sts
Xcopy *.sts B:\NFL\%input%
set input=
del number.bat
goto logo
:zero
cls
QU RN /Select (R)BL or (N)FL to zero out
if errorlevel 2 goto NFL2
FOR %%A IN (DIV1.REC,DIV2.REC,DIV3.REC,DIV4.REC) DO COPY RBL %%A
FOR %%B IN (DV1.REC,DV2.REC,DV3.REC,DV4.REC) DO COPY RBR %%B
COPY WEEK0.DAT WEEK.DAT
goto logo
:rbstat
cls
del gam17.sts
del gam.sts
Xcopy *.STS B:\RBL\%input%
set input=
del number.bat
goto logo
:NFL2
FOR %%C IN (NDV1.REC,NDV2.REC,NDV3.REC,NDV4.REC,NDV5.REC,NDV6.REC) DO COPY NFL %%C
FOR %%D IN (NV1.REC,NV2.REC,NV3.REC,NV4.REC,NV5.REC,NV6.REC) DO COPY NR %%D
copy WEEK0.DAT NFWEEK.DAT
goto logo
:CHANGE
echo 
echo ÿ
echo Replace Game Stats       [R]
echo See Stats of a Game      [S]
echo Game Stats of Past Weeks [P]
echo Return to LAST MENU      [L]
echo Return to MAIN MENU      [M]
QU RSPLM /Select Option
if errorlevel 5 goto LOGO
if errorlevel 4 goto STATS
if errorlevel 3 goto PAST
if errorlevel 2 goto SEE
:REPLACE
cls
echo 
echo This program requires a game number selection
echo type in SET game=GAM##, then F6 & Enter
echo 
copy gameset.txt+con number.bat>nul
call number
copy %game%.sts gam.sts
pstat
echo 
echo You have selected %game%. Is this OK?
QU YN / Select (Y)es or (N)o
if errorlevel 2 goto logo
copy gam17.sts gam.sts
pstat
echo 
cls
echo The Game shown will now be %game%. Is this OK?
QU YN / Select (Y)es or (N)o
if errorlevel 2 goto logo
copy gam17.sts %game%.sts
set game=
del number.bat
goto logo
:see
cls
echo This program requires a game number selection
echo Type in SET game=GAM##,then F6 & Enter
echo 
copy gameset.txt+con number.bat>nul
call number
copy %game%.sts gam.sts
pstat
set game=
del number.bat
goto logo
:past
cls
echo This program requires a game and week number selection
echo Type in SET game=GAM##, then F6 & Enter
echo 
copy gameset.txt+con number.bat>nul
echo Type in SET wek=week##, then F6 & Enter
echo 
copy wekset.txt+con week.bat>nul
call number
call week
echo Select League: (N)FL or (R)BL
QU NR /Choose N or R
if errorlevel 2 goto RBL2
:NFL2
b:
copy nfl\%wek%\%game%.sts c:\fb\gam.sts
goto jump
:RBL2
b:
copy rbl\%wek%\%game%.sts c:\fb\gam.sts
:jump
c:
cd\fb
pstat
set game=
set wek=
del number.bat
del week.bat
goto logo
:QUIT
echo 
cls
cd\