ECHO OFF
CLS
IF EXIST C:\PERSONAL\%1\%110.VOC GOTO FULL
VPLAY C:\PERSONAL\VOC\RSTART.VOC /Q
BEEP /F1000 /D15
IF EXIST C:\PERSONAL\%1\%1.VOC  GOTO 2
vrec c:\personal\%1\%1.voc /Q /T60
:RUN1
vplay c:\personal\VOC\redefi.voc /q
ASK "(R)eplay (D)elete or (F)inished", FDR
IF ERRORLEVEL 3 GOTO REPLAY1
IF ERRORLEVEL 2 GOTO DELETE1
IF ERRORLEVEL 1 GOTO BYE
:REPLAY1
VPLAY C:\PERSONAL\%1\%1.VOC /q
GOTO RUN1
:delete1
del c:\personal\%1\%1.voc
goto end
:2
IF EXIST C:\PERSONAL\%1\%12.VOC GOTO 3
VREC C:\PERSONAL\%1\%12.VOC /Q /T60
:RUN2
vplay c:\personal\VOC\redefi.voc /q
ASK "(R)eplay (D)elete or (F)inished", FDR
IF ERRORLEVEL 3 GOTO REPLAY2
IF ERRORLEVEL 2 GOTO DELETE2
IF ERRORLEVEL 1 GOTO BYE
:REPLAY2
VPLAY C:\PERSONAL\%1\%12.VOC /q
GOTO RUN2
:delete2
del c:\personal\%1\%12.voc
goto end
:3
IF EXIST C:\PERSONAL\%1\%13.VOC GOTO 4
VREC C:\PERSONAL\%1\%13.VOC /Q /T60
:RUN3
vplay c:\personal\VOC\redefi.voc /q
ASK "(R)eplay (D)elete or (F)inished", FDR
IF ERRORLEVEL 3 GOTO REPLAY3
IF ERRORLEVEL 2 GOTO DELETE3
IF ERRORLEVEL 1 GOTO BYE
:REPLAY3
VPLAY C:\PERSONAL\%1\%13.VOC /q
GOTO RUN3
:delete3
del c:\personal\%1\%13.voc
goto end
:4
IF EXIST C:\PERSONAL\%1\%14.VOC GOTO 5
VREC C:\PERSONAL\%1\%14.VOC /Q /T60
:RUN4
vplay c:\personal\VOC\redefi.voc /q
ASK "(R)eplay (D)elete or (F)inished", FDR
IF ERRORLEVEL 3 GOTO REPLAY4
IF ERRORLEVEL 2 GOTO DELETE4
IF ERRORLEVEL 1 GOTO BYE
:REPLAY4
VPLAY C:\PERSONAL\%1\%14.VOC /q
GOTO RUN4
:delete4
del c:\personal\%1\%14.voc
goto end
:5
IF EXIST C:\PERSONAL\%1\%15.VOC GOTO 6
VREC C:\PERSONAL\%1\%15.VOC /Q /T60
:RUN5
vplay c:\personal\VOC\redefi.voc /q
ASK "(R)eplay (D)elete or (F)inished", FDR
IF ERRORLEVEL 3 GOTO REPLAY5
IF ERRORLEVEL 2 GOTO DELETE5
IF ERRORLEVEL 1 GOTO BYE
:REPLAY5
VPLAY C:\PERSONAL\%1\%15.VOC /q
GOTO RUN5
:delete5
del c:\personal\%1\%15.voc
goto end
:6
IF EXIST C:\PERSONAL\%1\%16.VOC GOTO 7
VREC C:\PERSONAL\%1\%16.VOC /Q /T60
:RUN6
vplay c:\personal\VOC\redefi.voc /q
ASK "(R)eplay (D)elete or (F)inished", FDR
IF ERRORLEVEL 3 GOTO REPLAY6
IF ERRORLEVEL 2 GOTO DELETE6
IF ERRORLEVEL 1 GOTO BYE
:REPLAY6
VPLAY C:\PERSONAL\%1\%16.VOC /q
GOTO RUN6
:delete6
del c:\personal\%1\%16.voc
goto end
:7
IF EXIST C:\PERSONAL\%1\%17.VOC GOTO 8
VREC C:\PERSONAL\%1\%17.VOC /Q /T60
:RUN7
vplay c:\personal\VOC\redefi.voc /q
ASK "(R)eplay (D)elete or (F)inished", FDR
IF ERRORLEVEL 3 GOTO REPLAY7
IF ERRORLEVEL 2 GOTO DELETE7
IF ERRORLEVEL 1 GOTO BYE
:REPLAY7
VPLAY C:\PERSONAL\%1\%17.VOC /q
GOTO RUN7
:delete7
del c:\personal\%1\%17.voc
goto end
:8
IF EXIST C:\PERSONAL\%1\%18.VOC GOTO 9
VREC C:\PERSONAL\%1\%18.VOC /Q /T60
:RUN8
vplay c:\personal\VOC\redefi.voc /q
ASK "(R)eplay (D)elete or (F)inished", FDR
IF ERRORLEVEL 3 GOTO REPLAY8
IF ERRORLEVEL 2 GOTO DELETE8
IF ERRORLEVEL 1 GOTO BYE
:REPLAY8
VPLAY C:\PERSONAL\%1\%18.VOC /q
GOTO RUN8
:delete8
del c:\personal\%1\%18.voc
goto end
:9
IF EXIST C:\PERSONAL\%1\%19.VOC GOTO 10
VREC C:\PERSONAL\%1\%19.VOC /Q /T60
:RUN9
vplay c:\personal\VOC\redefi.voc /q
ASK "(R)eplay (D)elete or (F)inished", FDR
IF ERRORLEVEL 3 GOTO REPLAY9
IF ERRORLEVEL 2 GOTO DELETE9
IF ERRORLEVEL 1 GOTO BYE
:REPLAY9
VPLAY C:\PERSONAL\%1\%19.VOC /q
GOTO RUN9
:delete9
del c:\personal\%1\%19.voc
goto end
:10
IF EXIST C:\PERSONAL\%1\%110.VOC GOTO FULL
VREC C:\PERSONAL\%1\%110.VOC /Q /T60
:RUN10
vplay c:\personal\VOC\redefi.voc /q
ASK "(R)eplay (D)elete or (F)inished", FDR
IF ERRORLEVEL 3 GOTO REPLAY10
IF ERRORLEVEL 2 GOTO DELETE10
IF ERRORLEVEL 1 GOTO BYE
:REPLAY10
VPLAY C:\PERSONAL\%1\%110.VOC /q
GOTO RUN10
:delete10
del c:\personal\%1\%110.voc
goto end
:FULL
VPLAY C:\PERSONAL\VOC\FULL.VOC /Q
GOTO END
:BYE
VPLAY C:\PERSONAL\VOC\RBYE.VOC /Q
GOTO END
:END
MAIN