' kbd.bas
' simple keyboard check & display
' quick & dirty :-)
'----------------------------------------
option base 1
option explicit
option default integer

'----------------------------------------
dim integer mul.x = mm.info(fontwidth)
dim integer mul.y = mm.info(fontheight)

dim integer cols = 800/mul.x
dim integer lines = 600/mul.y

dim integer keys(6)
dim string  taste
dim integer i,j,k,l
dim integer kmod, klck
dim integer nKeys
dim spc$ = "    "

'----------------------------------------
sub doLocate(x,y)
 if (x <= 0)     then x=0
 if (y <= 0)     then y=0
 if (x >= cols)  then x=cols-1
 if (y >= lines) then y=lines-1
 print @(x * mul.x, y * mul.y) "";
end sub

'----------------------------------------
sub doStatus
 doLocate(5,5): print "Keys pressed ="; nKeys; spc$
 doLocate(5,6): print "Keycodes     =";
 for i=1 to 6
     if i<=nKeys then
       doLocate(15+4*i,6):print keys(i) ; spc$
       doLocate(15+4*i,7)
       if (keys(i)>32) and (keys(i)<128) then
         print chr$(keys(i)); spc$
       else
         print "-X- "
       endif
     else
       doLocate(15+4*i,6):print "    ";
       doLocate(15+4*i,7):print "    ";
     endif
 next i
 doLocate(5,9): print "Key Modifier ="; kmod ; spc$
 doLocate(5,10):print "Lock Keys    ="; klck ; spc$
 if taste = "" then taste="()"
 doLocate(5,11):print "inkey$       ="; taste; spc$
end sub

'----------------------------------------
sub doKeycheck
 k = keydown(0)
 if (k > 0) then
   for j=1 to k
     keys(j) = keydown(j)
   next j
 endif
 kmod  = keydown(7)
 klck  = keydown(8)
 nKeys = k
end sub

'----------------------------------------
'main

mode 1,8  '800x600
cls

do
 for l=1 to 6
   keys(l) = 0
 next l

 pause 100
 taste = inkey$

 doKeycheck
 doStatus
loop

end