home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / WHATDAY.ZIP / SAMPLE.BAT next >
Encoding:
DOS Batch File  |  1990-06-06  |  792 b   |  50 lines
  1. @echo off
  2. whatday
  3.  
  4. if errorlevel 7 goto seven
  5. if errorlevel 6 goto six
  6. if errorlevel 5 goto five
  7. if errorlevel 4 goto four
  8. if errorlevel 3 goto three
  9. if errorlevel 2 goto two
  10. if errorlevel 1 goto one
  11.  
  12. goto exit
  13.  
  14. :seven
  15. echo Errorlevel 7
  16. rem Insert your Saturday activities here
  17. goto exit
  18.  
  19. :six
  20. echo Errorlevel 6
  21. rem Insert your Friday activities here
  22. goto exit
  23.  
  24. :five
  25. echo Errorlevel 5
  26. rem Insert your Thursday activities here
  27. goto exit
  28.  
  29. :four
  30. echo Errorlevel 4
  31. rem Insert your Wednesday activities here
  32. goto exit
  33.  
  34. :three
  35. echo Errorlevel 3
  36. rem Insert your Tuesday activities here
  37. goto exit
  38.  
  39. :two
  40. echo Errorlevel 2
  41. rem Insert your Monday activities here
  42. goto exit
  43.  
  44. :one
  45. echo Errorlevel 1
  46. rem Insert your Sunday activities here
  47. goto exit
  48.  
  49. :exit
  50.