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

  Name:     rmdir() - remove a subdirectory
  Usage:    <logical> = rmdir(<dirname>)
  Params:   string <dirname> - directory name to remove
  Returns:  logical .T. if directory removed, .F. if error

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

                 @ 10,0  say "Enter directory to remove: "
                 @ 10,27 get mdir
                 read

                 if .not. rmdir(mdir)
                      ? "Couldn't remove directory &mdir"
                 else
                      ? "Directory &mdir. removed..."
                 endif

  Note:     This function sets ferror() if an error occurs.