コマンドプロンプトといえば真っ黒い画面に画面内に表示じゃなかったかな
これを試してみるといい
onkey *osareta
sdim b,20
c=""
*hutu
repeat
redraw 0
cls 4
color 255,255,255
mes "Command:"
pos 64,0
mes b
mes c
redraw 1
wait 50
redraw 0
cls 4
color 255,255,255
mes "Command:"
pos 64,0
mes b+"_"
mes c
redraw 1
wait 50
loop
stop
*osareta
aaa=""
mojicode=iparam
if mojicode=8 {
asd=strlen(b)
if asd=0 : goto *kosu
asd=asd-1
b=strmid(b,0,asd)
}
lll=strlen(b)
if lll>20 : goto *hutu
if mojicode=32:aaa=" "
if mojicode=13:goto *hantei
getkey alm,16
if alm=1 : goto *shift
if mojicode=45:aaa="-"
if mojicode=48:aaa="0"
if mojicode=49:aaa="1"
if mojicode=50:aaa="2"
if mojicode=51:aaa="3"
if mojicode=52:aaa="4"
if mojicode=53:aaa="5"
if mojicode=54:aaa="6"
if mojicode=55:aaa="7"
if mojicode=56:aaa="8"
if mojicode=57:aaa="9"
if mojicode=65:aaa="a"
if mojicode=66:aaa="b"
if mojicode=67:aaa="c"
if mojicode=68:aaa="d"
if mojicode=69:aaa="e"
if mojicode=70:aaa="f"
if mojicode=71:aaa="g"
if mojicode=72:aaa="h"
if mojicode=73:aaa="i"
if mojicode=74:aaa="j"
if mojicode=75:aaa="k"
if mojicode=76:aaa="l"
if mojicode=77:aaa="m"
if mojicode=78:aaa="n"
if mojicode=79:aaa="o"
if mojicode=80:aaa="p"
if mojicode=81:aaa="q"
if mojicode=82:aaa="r"
if mojicode=83:aaa="s"
if mojicode=84:aaa="t"
if mojicode=85:aaa="u"
if mojicode=86:aaa="v"
if mojicode=87:aaa="w"
if mojicode=88:aaa="x"
if mojicode=89:aaa="y"
if mojicode=90:aaa="z"
*tamannai
if abab=1 {
b=""
abab=0
}
b=""+b+""+aaa+""
*kosu
goto *hutu
*shift
if mojicode=45:aaa="="
if mojicode=49:aaa="!"
if mojicode=51:aaa="#"
if mojicode=52:aaa="$"
if mojicode=53:aaa="%"
if mojicode=54:aaa="&"
if mojicode=55:aaa="'"
if mojicode=56:aaa="("
if mojicode=57:aaa=")"
if mojicode=65:aaa="A"
if mojicode=66:aaa="B"
if mojicode=67:aaa="C"
if mojicode=68:aaa="D"
if mojicode=69:aaa="E"
if mojicode=70:aaa="F"
if mojicode=71:aaa="G"
if mojicode=72:aaa="H"
if mojicode=73:aaa="I"
if mojicode=74:aaa="J"
if mojicode=75:aaa="K"
if mojicode=76:aaa="L"
if mojicode=77:aaa="M"
if mojicode=78:aaa="N"
if mojicode=79:aaa="O"
if mojicode=80:aaa="P"
if mojicode=81:aaa="Q"
if mojicode=82:aaa="R"
if mojicode=83:aaa="S"
if mojicode=84:aaa="T"
if mojicode=85:aaa="U"
if mojicode=86:aaa="V"
if mojicode=87:aaa="W"
if mojicode=88:aaa="X"
if mojicode=89:aaa="Y"
if mojicode=90:aaa="Z"
goto *tamannai
*hantei
if b="help" {
c="\n"+b+":"+"ヘルプを表示するはずだぜ"+c
goto *hutu
abab=1
}
c="\n"+b+":"+"そのコマンドは登録されていません"+c
abab=1
goto *hutu