Click above to get retro games delivered to your door ever month!

  Name:     isdir() - check if directory is valid
  Usage:    <logical> = isdir(<directory>)
  Params:   string <directory> - directory name to validate
  Returns:  logical .T. if directory exists, .F. if not or error

 ---------------------------------- Example ---------------------------------

                 @ 10,0  say "Enter directory to change to: "
                 @ 10,30 get tdir pict "@!"
                 read

                 if ! (isdir(tdir))
                      ? "Invalid Directory Name Entered"
                 else
                      chdir(tdir)
                 endif