XProfan

 {$iq}
def _key_gks(1) !"User32","GetKeyState"
def _key_isstr(0) gt(_key_gks(17),1)
def _key_isd(0) lt(_key_gks(68),-1)
def _key_strgD(0) and(_key_isstr(),_key_isd())

tandis que 1

    locate 1,1
    imprimer _key_strgD()

Wend

 {$iq}
def _key(1) !"User32","GetKeyState"
def _key_strg(1) and(gt(_key(17),1),lt(_key(@%(1)),-1))

tandis que 1

    locate 1,1
    imprimer "strg+a",_key_strg(65)
    imprimer "strg+b",_key_strg(66)
    imprimer "strg+b",_key_strg(67)

Wend