home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / tools / readsub / diag.bat < prev    next >
Encoding:
DOS Batch File  |  1992-06-21  |  1.5 KB  |  41 lines
  1. @echo off
  2. echo off
  3. cls
  4.       echo     ■                                                               ■
  5.       echo     ■    This is DIAG.BAT, which works with DIAG.BAS, a QuickBasic  ■
  6.       echo     ■         Test program for the ReadSub utility program          ■
  7.       echo     ■                                                               ■
  8.       echo     ■                                                               ■
  9.       pause
  10. readsub diag endit
  11. cls
  12. if not exist endit.bas goto oops
  13. if exist endit.bas echo     ■              ReadSub properly extracted one sub!              ■
  14.                    echo     ■                Now we'll try full extraction                  ■
  15.       echo     ■                                                               ■
  16.       pause
  17. readsub diag
  18. cls
  19. if not exist endit.bas goto oops
  20. if not exist oops.bas goto oops
  21. if not exist heading.bas goto oops
  22. if not exist sqrt.bas goto oops
  23. if not exist process.bas goto oops
  24.       echo     ■                                                               ■
  25.       echo     ■      ReadSub successfully performed a complete extraction     ■
  26.       echo     ■            and should work successfully for you!!             ■
  27.       echo     ■                                                               ■
  28. pause
  29. del endit.bas
  30. del oops.bas
  31. del heading.bas
  32. del sqrt.bas
  33. del process.bas
  34.  
  35. goto xit
  36. :oops
  37. echo =-=  An Error Has Occurred: Please Contact Author re Improper Extraction! =-=
  38.  
  39.  
  40. :xit
  41.