HSP2.x系で、getkey、stick命令のキー番号を取得・表示するサンプルコード

screen 0,200,40
title "キー取得サンプル"
font "MSゴシック",18

;メインループ
repeat
    wait 1

    ;getkey
    repeat 240,0
        getkey key,cnt

        ;なぜか(cnt != 25)を入れないと正常動作しない...

        if key&&(cnt != bcnt)&&(cnt != 25){
            redraw
            color 0xff,0xff,0xff
            boxf 0,0,winx,20
            pos 0,0 : color 0,0,0
            mes "getkey="+cnt
            bcnt=cnt
            redraw 1
            break
        }
    loop

    ;stick
    stick stk,0xffff,0
    if(stk>0)&&(stk != bstk){
        redraw
        color 0xff,0xff,0xff
        boxf 0,20,winx,40
        pos 0,20 : color 0,0,0
        mes "stick="+stk
        bstk=stk
        redraw 1
    }
loop