home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / pcmag / vol9n03.arc / ERRVAR2.BAT < prev    next >
Encoding:
DOS Batch File  |  1990-01-03  |  519 b   |  25 lines
  1.  
  2. ERRVAR2.BAT
  3.  
  4.  
  5.  
  6.  
  7. ECHO OFF
  8. SET E=
  9. FOR %%q IN (0 1 2) DO IF ErrorLevel %%q00 SET E=%%q
  10. IF "%E%"=="2" GOTO over200
  11. FOR %%q IN (0 1 2 3 4 5 6 7 8 9) DO IF ErrorLevel %E%%%q0  SET E=%E%%%q
  12. GOTO digit2
  13.   :over200
  14.   FOR %%q IN (0 1 2 3 4 5) DO IF ErrorLevel %E%%%q0 SET E=%E%%%q
  15. :digit2
  16. IF "%E%"=="25" GOTO over250
  17. GOTO digit3
  18.   :over250
  19.   FOR %%q IN (0 1 2 3 4 5) DO IF Errorlevel %E%%%q SET E=%E%%%q
  20.   GOTO done
  21. :digit3
  22. FOR %%q IN (0 1 2 3 4 5 6 7 8 9) DO IF ErrorLevel %E%%%q   SET E=%E%%%q
  23. :done
  24.  
  25.