为了(表面上)活跃论坛,另起炉灶,飞鸟别介意

好像最多可以检测8个同时按键,
但奇怪的是F和T同时按的时候检测不到ASD的击键
不知道是什么回事,可能还会有其他类似现象,但没心情去试了

高于128的按键好像没多少,我也没去试,不知道会不会错过什么精彩按键

view print 3 to 6

do
  i%=inp(&H60)
  k$=str$(i%)+"/"
  if i%>128 then
     d$=str$(i%-128)+"/"
     l%=len(d$)
     j%=instr(kk$,d$)
     if j% then kk$=left$(kk$,j%-1)+mid$(kk$,j%+l%)
  elseif instr(kk$,k$)=0 then
     kk$=kk$+k$
  endif
  cls
  print kk$
loop until i%=1

可以根据实际情况作相应修改,比如键值可以改成相应的字符等,
自以为功能极其强大.