83(1): デフォルトの名無しさん [sage] 2022/11/28(月) 23:31:47.71 ID:YeZSlVdS(1) AAS
PowerShell を使っていいなら

for /F "tokens=2 delims=[;" %%L in ('pwsh -nop -c "[console]::Error.Write(\"`e7`e[999^;999H`e[6n`e8\"); [console]::Error.Flush(); do { $k = [console]::ReadKey().KeyChar; } until ($k -eq \"R\"); \"\""') do echo LINES: %%L

Windows PowerShell だと `e が使えないからもう少しごちゃっとする