自分で作ったプログラムを公開するスレ

echo off
: set key-input char. code to internal variable 'errorlevel'
echo ASCII.BAT version 1.0
if exist BATKEY.COM goto B
if exist INPUT$.COM goto A
: ↓↓↓↓↓↓ Do not touch!
echo ｴﾍ!ｴLﾍ!> INPUT$.COM
: ↑↑↑↑↑↑ Do not touch!
:A
echo %0＞ press any key.
INPUT$.COM
goto C
:B
BATKEY.COM 2 BATKEY＞ press any key:
:C
echo.
ERROR.BAT
:
: -- INPUT$.COM --
: ____ hex.code :mnemonic ______ :char. :
: ____ B4 01 __ :mov ___ ah,01 _ :ｴ __ : input code → al
: ____ CD 21 __ :int ___ 21h ___ :ﾍ! __ : DOS function call
: ____ B4 4C __ :mov ___ ah,4ch_ :ｴL __ : al → 'errorlevel'
: ____ CD 21 __ :int ___ 21h ___ :ﾍ! __ : DOS function call
: entering 01 code : ctrl+P, ctrl+A
: The latter part is identical to 'reboot.com' ↓
: http://pc5.2ch.net/test/read.cgi/tech/1040614686/204

echo off
: read & display internal variable 'errorlevel'
for %%I in (1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25) do if ERRORLEVEL %%I0 set E1=%%I
for %%J in (0 1 2 3 4 5) do if ERRORLEVEL %E1%%%J set ERR=%E1%%%J
if %E1%x==25x goto E
for %%J in (6 7 8 9) do if ERRORLEVEL %E1%%%J set ERR=%E1%%%J
:E
set E1=
echo ASCII code = %ERR%
echo.