Code: Select all
dim as string inputbuffer
do
inputbuffer = inkey
select case inputbuffer
CASE CHR(255)+"H" ' Arrowkey UP
print "UP"
CASE CHR(255)+"P" ' Arrowkey DOWN
print "DOWN"
CASE CHR(255)+"K" ' Arrowkey LEFT
print "LEFT"
CASE CHR(255)+"M" ' Arrowkey RIGHT
print "RIGHT"
case CHR(27) ' ESC
exit do
end select
sleep 1
loop