Icom -200 Handbuch Seite 32

ICOM-Benutzerhandbuch
CALL SetLcdOutput Pos( LCD, 9, 0 )
PRINT_USING #LCD, wKey BITAND 0ffh
CALL SetLcdOutputPos( LCD, 9, 1 )
PRINT_USING #LCD, ( wKey SHR 8 ) BIT
'' Check whether a control key is pressed
CALL SetLcdOutputPos( LCD, 11, 2 )
CALL CheckKeybFlags(__KF_SHIFTRIGHT_DOWN,lKey
IF bIsActive = TRUE THEN
2
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
__KMT_CTRLRIGHT_DOWN
__KMT_ALTRIGHT_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-24
Wilke Technology GmbH • 0241 / 918 900 • http://www.wilke.de/ • support@wilke.de
AND 0f fh
bExtF ags1,bIsActive) l
"
"
BITOR __KF_SHIFTLEFT_DOWN BITOR &
BITOR __KF_CTRLLEFT_DOWN BITOR &
BITOR __KF_ALTLEFT_DOWN
"
"