Keskustelu: Koodit: QB: Kaikki erikoisnäppäimet

'huhhuh mikä declarointisekamelska
DECLARE FUNCTION Ins! ()
DECLARE FUNCTION InsAktiivi! ()
DECLARE FUNCTION ScrollLock! ()
DECLARE FUNCTION ScrollLockAktiivi! ()
DECLARE FUNCTION CapsLock! ()
DECLARE FUNCTION CapsLockAktiivi! ()
DECLARE FUNCTION NumLock! ()
DECLARE FUNCTION NumLockAktiivi! ()
DECLARE FUNCTION VasenAlt! ()
DECLARE FUNCTION OikeaAlt! ()
DECLARE FUNCTION VasenCtrl! ()
DECLARE FUNCTION OikeaCtrl! ()
DECLARE FUNCTION VasenShift! ()
DECLARE FUNCTION OikeaShift! ()
SCREEN , , 1, 0 'ettei printit vilkkuisi
DO
    CLS 'edelliset tekstit pois
    PRINT "Insert: "; InsAktiivi
    PRINT "Insert painettuna: "; Ins
    PRINT "Num Lock: "; NumLockAktiivi
    PRINT "Num Lock painettuna: "; NumLock
    PRINT "Caps Lock: "; CapsLockAktiivi
    PRINT "Caps Lock painettuna: "; CapsLock
    PRINT "Scroll Lock: "; ScrollLockAktiivi
    PRINT "Scroll Lock painettuna: "; ScrollLock
    PRINT "Vasen Shift painettuna: "; VasenShift
    PRINT "Oikea Shift painettuna: "; OikeaShift
    PRINT "Vasen Ctrl painettuna: "; VasenCtrl
    PRINT "Oikea Ctrl painettuna: "; OikeaCtrl
    PRINT "Vasen Alt painettuna: "; VasenAlt
    PRINT "Oikea Alt painettuna: "; OikeaAlt
    PCOPY 1, 0 'kopioidaan tekstit näytölle
LOOP UNTIL INKEY$ = "�" vasen � nuoli on CHR$(27) eli ESC :P

FUNCTION CapsLock

    DEF SEG = &H40
        P = PEEK(&H18)
        IF (P AND 64) = 64 THEN CapsLock = -1
    DEF SEG

END FUNCTION

FUNCTION CapsLockAktiivi

    DEF SEG = &H40
        P = PEEK(&H17)
        IF (P AND 64) = 64 THEN CapsLockAktiivi = -1
    DEF SEG

END FUNCTION

FUNCTION Ins

    DEF SEG = &H40
        P = PEEK(&H18)
        IF (P AND 128) = 128 THEN Ins = -1
    DEF SEG

END FUNCTION

FUNCTION InsAktiivi

    DEF SEG = &H40
        P = PEEK(&H17)
        IF (P AND 128) = 128 THEN InsAktiivi = -1
    DEF SEG

END FUNCTION

FUNCTION NumLock

    DEF SEG = &H40
        P = PEEK(&H18)
        IF (P AND 32) = 32 THEN NumLock = -1
    DEF SEG

END FUNCTION

FUNCTION NumLockAktiivi

    DEF SEG = &H40
        P = PEEK(&H17)
        IF (P AND 32) = 32 THEN NumLockAktiivi = -1
    DEF SEG

END FUNCTION

FUNCTION OikeaAlt

    DEF SEG = &H40
        P = PEEK(&H96)
        IF (P AND 8) = 8 THEN OikeaAlt = -1
    DEF SEG

END FUNCTION

FUNCTION OikeaCtrl

    DEF SEG = &H40
        P = PEEK(&H96)
        IF (P AND 4) = 4 THEN OikeaCtrl = -1
    DEF SEG

END FUNCTION

FUNCTION OikeaShift

    DEF SEG = &H40
        P = PEEK(&H17)
        IF (P AND 1) = 1 THEN OikeaShift = -1
    DEF SEG

END FUNCTION

FUNCTION ScrollLock

    DEF SEG = &H40
        P = PEEK(&H18)
        IF (P AND 16) = 16 THEN ScrollLock = -1
    DEF SEG

END FUNCTION

FUNCTION ScrollLockAktiivi

    DEF SEG = &H40
        P = PEEK(&H17)
        IF (P AND 16) = 16 THEN ScrollLockAktiivi = -1
    DEF SEG

END FUNCTION

FUNCTION VasenAlt

    DEF SEG = &H40
        P = PEEK(&H18)
        IF (P AND 2) = 2 THEN VasenAlt = -1
    DEF SEG

END FUNCTION

FUNCTION VasenCtrl

    DEF SEG = &H40
        P = PEEK(&H18)
        IF (P AND 1) = 1 THEN VasenCtrl = -1
    DEF SEG

END FUNCTION

FUNCTION VasenShift

    DEF SEG = &H40
        P = PEEK(&H17)
        IF (P AND 2) = 2 THEN VasenShift = -1
    DEF SEG

END FUNCTION