' F哮 verbessert

CONST LPTport% = &H378

CLS
PRINT "--*Pfeiltasten benutzen*--"
PRINT "VORW山TS => HOCH"
PRINT "R咾KW山TS => RUNTER"
PRINT "BEENDEN => LEERTASTE"

mskAlt% = -1
msk% = 0
druckAlt% = -1
drin% = -1
WHILE drin%
  druck% = INP(&H60)
  dummy$ = INKEY$
  IF druck% <> druckAlt% THEN
    ' Bit 7 ist immer, ob heruntergedr…kt oder losgelassen
    ' Bits 6-0 sind Scancode der jeweiligen Taste
    SELECT CASE druck%
    CASE 72
      ' Pfeil hoch dr…ken
      msk% = msk% OR 3
      LOCATE 7, 2
      COLOR 12
      PRINT CHR$(24);
    CASE 200
      ' Pfeil hoch loslassen
      msk% = msk% AND NOT 3
      LOCATE 7, 2
      COLOR 8
      PRINT CHR$(24);
    CASE 80
      ' Pfeil runter dr…ken
      msk% = msk% OR 12
      LOCATE 7, 4
      COLOR 12
      PRINT CHR$(25);
    CASE 208
      ' Pfeil runter loslassen
      msk% = msk% AND NOT 12
      LOCATE 7, 4
      COLOR 8
      PRINT CHR$(25);
    CASE 185
      ' Leertaste loslassen
      drin% = 0
    END SELECT
    IF msk% <> altMsk% THEN
      COLOR 7
      LOCATE 9, 2
      PRINT USING "###"; msk%
      altMsk% = msk%
      OUT LPTport%, msk%
    END IF
    altDruck% = druck%
  END IF
WEND

' Am Schluss definierter Zustand: Alles auf 0
OUT LPTport%, 0
COLOR 7