cls
rem weird... won't work if you use echo off
rem
rem allows you to remap your F-keys to execute certain commands
rem requires an ansi driver to be loaded.
rem kb9mwr 2/99
ansi.com >nul

if not %1==/? goto f1
echo Useage: REMAP [F key] command
pause
goto exit

:f1
if not %1==f1 goto f2
prompt $e[0;59;"%2$_"p
goto exit

:f2
if not %1==f2 goto f3
prompt $e[0;60;"%2$_"p
goto exit

:f3
if not %1==f3 goto f4
prompt $e[0;61;"%2$_"p
goto exit

:f4
if not %1==f4 goto f5
prompt $e[0;62;"%2$_"p
goto exit

:f5
if not %1==f5 goto f6
prompt $e[0;63;"%2$_"p
goto exit

:f6
if not %1==f6 goto f7
prompt $e[0;64;"%2$_"p
goto exit

:f7
if not %1==f7 goto f8
prompt $e[0;65;"%2$_"p
goto exit

:f8
if not %1==f8 goto f9
prompt $e[0;66;"%2$_"p
goto exit

:f9
if not %1==f9 goto f10
prompt $e[0;67;"%2$_"p
goto exit

:f10
if not %1==f10 goto f11
prompt $e[0;68;"%2$_"p
goto exit

:f11
if not %1==f11 goto f12
prompt $e[0;133;"%2$_"p
goto exit

:f12
if not %1==f12 goto delete
prompt $e[0;134;"%2$_"p
goto exit

:delete
if not %1==delete goto insert
prompt $e[0;83;"%2$_"p
goto exit

:insert
if not %1==insert goto pdown
prompt $e[0;82;"%2$_"p
goto exit

:pdown
if not %1==pdown goto pup
prompt $e[0;81;"%2$_"p
goto exit

:pup
if not %1==pup goto end
prompt $e[0;73;"%2$_"p
goto exit

:end
if not %1==end goto home
prompt $e[0;79;"%2$_"p
goto exit

:home
if not %1==home goto uarrow
prompt $e[0;71;"%2$_"p
goto exit

:uarrow
if not %1==uarrow goto darrow
prompt $e[0;72;"%2$_"p
goto exit

:darrow
if not %1==darrow goto larrow
prompt $e[0;80;"%2$_"p
goto exit

:larrow
if not %1==rarrow goto exit
prompt $e[0;75;"%2$_"p
goto exit

:exit
prompt $p$g
cls