' Näppäimistö handleri. Lukee parhaimmillaan 9 näppäintä kerralla, voisi
' lukea enemmänkin, mutta sormet loppuivat=)
' BootSector4:n tekemä, saa käyttää täysin vapaasti.
DEF SEG = &H40

SCREEN 13
DIM nappain(1 TO 128)
x = 100
z = 160
DO
a = INP(&H60)
IF a < 128 THEN nappain(a) = 1 ELSE nappain(a - 128) = 0
POKE &H1A, PEEK(&H1C)
IF nappain(1) = 1 THEN END
IF nappain(72) = 1 THEN x = x - 1
IF nappain(75) = 1 THEN z = z - 1
IF nappain(77) = 1 THEN z = z + 1
IF nappain(80) = 1 THEN x = x + 1
maara = 0
FOR c = 1 TO 128
IF nappain(c) = 1 THEN maara = maara + 1
NEXT c
LOCATE 12, 20
PRINT maara
PSET (z, x)
LOOP