home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
basic
/
tools
/
readsub
/
diag.bat
< prev
next >
Wrap
DOS Batch File
|
1992-06-21
|
2KB
|
41 lines
@echo off
echo off
cls
echo ■ ■
echo ■ This is DIAG.BAT, which works with DIAG.BAS, a QuickBasic ■
echo ■ Test program for the ReadSub utility program ■
echo ■ ■
echo ■ ■
pause
readsub diag endit
cls
if not exist endit.bas goto oops
if exist endit.bas echo ■ ReadSub properly extracted one sub! ■
echo ■ Now we'll try full extraction ■
echo ■ ■
pause
readsub diag
cls
if not exist endit.bas goto oops
if not exist oops.bas goto oops
if not exist heading.bas goto oops
if not exist sqrt.bas goto oops
if not exist process.bas goto oops
echo ■ ■
echo ■ ReadSub successfully performed a complete extraction ■
echo ■ and should work successfully for you!! ■
echo ■ ■
pause
del endit.bas
del oops.bas
del heading.bas
del sqrt.bas
del process.bas
goto xit
:oops
echo =-= An Error Has Occurred: Please Contact Author re Improper Extraction! =-=
:xit