def seg=0
do
  sleep
  print peek(&h417) and 8
loop until k$=chr$(27)
def seg

      DEF 是干什么用的？PEEK （＆H417）AND 8 又是干什么用的？ [em18][em10]

试 试 下 面 代 码 :
Alt=1  按 下 
    2  按 下 后 放 开 
    3  一 直 按 着 
    0  未 按 过 

有 问 题 试 着 修 改 下 条 件 
我 没 有 测 试 过 
function Alt%
   static down as integer
   def seg=0
   v%=peek(&H417) and 8
   def seg
   if v% and down%=0 then
       down%=1
       alt%=1
       exit sub
   endif    
   if v%=0 and down% then
       down%=0
       Alt%=2 
       exit sub 
   endif
   if v% and Down% then Alt%=3
end function

&H417的8位都是标记什么的?我只记得第6位是Caps Lock