@echo off
title %~nx0
ver | find "Version 6" >nul && set osver=vista
if "%osver%"=="vista" (
if /i not "%cd%"=="%windir%\system32" GOTO UAC
pushd %~dp0
)
REM check dd.exe
if exist dd.exe set ddexe=ok
if exist .\dd\dd.exe set ddexe=ok
if "%ddexe%"=="" GOTO NOTHING1
echo:
echo         **************************************************************
echo         *                                                            *
echo         * === Aドライブのフロッピーのイメージファイルを作成します=== *
echo         *                                                            *
echo         * ****            dd.exe が必要です                     **** *
echo         *                                                            *
echo         * ===    ここのディレクトリに保存されます                === *
echo         *                                                            *
echo         **************************************************************
echo:
echo                  フロッピーをAドライブにセットしてクダサイ
echo:
echo:
echo                   続行しますか？ 中断は xボタン or Ctrl-C
echo:
echo                     *** 何かキーを押すと続行します *** 
pause >nul

set path=.\dd;%path%
if not exist a: GOTO nonfd

set nakami=nasi
dir /a /b A:\ >nul 2>nul && set nakami=ari
if "%nakami%"=="nasi" GOTO NONFILES

:ASK
cls
echo:
echo        ==============================================================
echo:
echo              *** 保存するファイル名を入力してください ***
echo:
echo              *** 無指定だと fdimage.img になります    ***
echo:
echo                      * 中断するには qq を入れてEnter *
echo:
echo        ==============================================================
echo:
set /p filename=             ファイル名: 
echo:
if /i "%filename%"=="qq" GOTO CANCEL
if "%filename%"=="" set filename=fdimage.img
if not exist %filename% GOTO NAME
echo:
echo        --------------------------------------------------------------
echo          %filename% が存在します。上書きしてもいいのでせうか？
echo        --------------------------------------------------------------
set /p select=   [y,N]: 
echo:
if /i "%select%"=="y" GOTO NAME
GOTO WAIT

:WAIT
echo:
echo                     *** 何かキーを押すと続行します *** 
echo:
pause >nul
GOTO ASK

:NAME
echo:
echo              保存するファイル名は %filename% よろしいですか？
echo:
echo                     *** 何かキーを押すと続行します *** 
echo:
pause >nul
GOTO MAKE


:MAKE
cls
echo:
echo:
echo:
echo        --------------------------------------------------------------
echo         ..... dd コマンドでイメージを作成しています .....
echo        --------------------------------------------------------------
echo:
dd if=\\.\a: of=%filename% bs=10k count=144 --progress
echo:
if not "%errorlevel%"=="0" GOTO ERROR
if "%errorlevel%"=="0" GOTO DONE
GOTO DONE


REM #####################################
REM ### No File
REM #####################################
:NOTHING1
echo:
echo        ==============================================================
echo                     dd.exe がありませんです...
echo        ==============================================================
GOTO END

:NONFD
echo:
echo            !!       フロッピーがありません？              !!
GOTO END

:NONFILES
echo:
echo            !!       フロッピーが空のようです？             !!
GOTO END


REM #####################################
REM ### ERROR
REM #####################################
:ERROR
echo:
echo                ** !!!    エラー出ますた !    !!! **
GOTO END


REM #####################################
REM ### UAC
REM #####################################
:UAC
echo:
echo:
echo:
echo        ！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！
echo:
echo                  ！「管理者として実行」してくださいマセ ！
echo:
echo        ！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！
echo:
GOTO END

REM #####################################
REM ### DONE
REM #####################################
:CANCEL
echo:
echo                        キャンセルしますた...
GOTO END

:DONE
echo:
echo                        正常に終了しますた...

:END
echo:
echo                     *** 何かキーを押すと閉じます *** 
pause >nul