home *** CD-ROM | disk | FTP | other *** search
/ Phoenix CD 2.0 / Phoenix_CD.cdr / 01e / let12.zip / DEMO-3.BAT < prev    next >
DOS Batch File  |  1987-09-17  |  2KB  |  53 lines
  1. echo Off
  2. If `%Name%' == `' Demo
  3. cls
  4. echo   ╔════════════════════════════════════════════════════════════════╗
  5. echo ┌─╫────────────────────────────────────────────────────────────────╫─┐
  6. echo │ ║   DOS Information: DATELINE, FILESPEC, READ                    ║ │
  7. echo └─╫────────────────────────────────────────────────────────────────╫─┘
  8. echo   ╚════════════════════════════════════════════════════════════════╝
  9. echo  
  10. echo LET also allows DOS to have access, directly or indirectly, to
  11. echo a wealth of information.  A few examples are, the date and time,
  12. echo the current drive and directory or the directory of any given
  13. echo drive, and the volume label on any given drive.  Here: I'll show
  14. echo you.
  15. echo  
  16. LET Date=(DateLine)
  17. LET Dir=(filespec "dp")
  18. echo Today's date (if the system clock is set) is %date%,
  19. echo and the current drive and path is %Dir%
  20. set Date=
  21. set dir=
  22. echo  
  23. LET NumDrives=(upper (mid (ask (concat Name ", what is the letter of highest drive you have? ")) 1 1))
  24. set Drive=@
  25. echo Ok, %Name%, now be sure to have the drive doors closed on all
  26. echo your floppy drives; I'll wait while you do that.
  27. pause
  28. echo  
  29. echo Drive   Volume name       Current Directory
  30. echo -----   --------------    ----------------------
  31. :DriveTop
  32. if %Drive% == %NumDrives% goto DriveEnd
  33. LET Drive=(char (plus 1 (ascii Drive)))
  34. vol %Drive%: > Volume.$$$
  35. LET Dummy=(Do "Drives")
  36. if `%Check%' == `' goto DriveBad
  37. if not `%Check%' == `has' LET Vol=(substr Vol 4)
  38. LET Vol=(fill (dup "≥" 16) Vol " ")
  39. echo   %Drive%:    %Vol%  \%DrivePath%
  40. goto DriveTop
  41. :DriveBad
  42. echo Um, %Name%, I have to take issue with what you told me, because
  43. echo I can't find a drive %Drive%:
  44. :DriveEnd
  45. set Drive=
  46. set NumDrives=
  47. set DrivePath=
  48. set Check=
  49. set Vol=
  50. erase Volume.$$$
  51. pause
  52. DEMO-4
  53.