Filter
Top Products
ICOM-manual
CALL SetLcdOutputPos( LCD, 9, 0 )
PRINT_USING #LCD, wKey BITAND 0ffh
CALL SetLcdOutputPos( LCD, 9, 1 )
PRINT_USING #LCD, ( wKey SHR 8 ) BITAND 0ffh
'' Check whether a control key is pressed
CALL SetLcdOutputPos( LCD, 11, 2 )
CALL CheckKeybFlags(__KF_SHIFTRIGHT_DOWN,lKeybExtFlags1,bIsActive)
2
IF bIsActive = TRUE THEN
PRINT #LCD, "Shift_R"
ENDIF
CALL CheckKeybFlags(__KF_SHIFTLEFT_DOWN,lKeybExtFlags1,bIsActive)
IF bIsActive = TRUE THEN
PRINT #LCD, "Shift_L"
ENDIF
CALL CheckKeybFlags(__KMT_CTRLRIGHT_DOWN,lKeybExtFlags1,bIsActive)
IF bIsActive = TRUE THEN
PRINT #LCD, "Ctrl_R "
ENDIF
CALL CheckKeybFlags(__KF_CTRLLEFT_DOWN,lKeybExtFlags1,bIsActive)
IF bIsActive = TRUE THEN
PRINT #LCD, "Ctrl_L "
ENDIF
CALL CheckKeybFlags(__KMT_ALTRIGHT_DOWN,lKeybExtFlags1,bIsActive)
IF bIsActive = TRUE THEN
PRINT #LCD, "Alt_R "
ENDIF
CALL CheckKeybFlags(__KF_ALTLEFT_DOWN,lKeybExtFlags1,bIsActive)
IF bIsActive = TRUE THEN
PRINT #LCD, "Alt_L "
ENDIF
lComplexMask = &
__KF_SHIFTRIGHT_DOWN BITOR __KF_SHIFTLEFT_DOWN BITOR &
__KMT_CTRLRIGHT_DOWN BITOR __KF_CTRLLEFT_DOWN BITOR &
__KMT_ALTRIGHT_DOWN BITOR __KF_ALTLEFT_DOWN
CALL CheckKeybFlags( lComplexMask, lKeybExtFlags1, bIsActive)
IF bIsActive = FALSE THEN
PRINT #LCD, "No Spec"
ENDIF
'' Is Code extended or normal ?
CALL SetLcdOutputPos( LCD, 11, 3 )
IF wKey BITAND 0ffh = 0 THEN
PRINT #LCD, "Extended"
CALL SetLcdOutputPos( LCD, 13, 0 )
PRINT #LCD, "Null "
CALL SetLcdOutputPos( LCD, 13, 1 )
PRINT #LCD, "EScan"
ELSE
PRINT #LCD, "Normal "
CALL SetLcdOutputPos( LCD, 13, 0 )
PRINT #LCD, "Ascii"; ";"; CHR$( wKey BITAND 0ffh )
CALL SetLcdOutputPos( LCD, 13, 1 )
PRINT #LCD, "Scan "
ENDIF
2-22
Wilke Technology GmbH • 0241 / 918 900 • http://www.wilke.de/ • support@wilke.de