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())

while 1

    locate 1,1
    print _key_strgD()

wend

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

while 1

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

wend