Keskustelu: Koodit: QB: Nuolinpääimet

CLS
PRINT "Paina jotain nuolinäppäintä , tai spacea...
DO
   DO
   KeyPressed$ = INKEY$
   LOOP UNTIL KeyPressed$ <> ""
   IF KeyPressed$ = CHR$(32) THEN           ' Jos painaa alas...
      CLS : PRINT "Painoit speissii..."     ' Tulee tekstii...

   END IF
   IF KeyPressed$ = CHR$(0) + CHR$(72) THEN ' Jos painaa ylös...
     CLS : PRINT "Painoit ylöspäin..."       ' Tulee taas tekstii..
   END IF
   IF KeyPressed$ = CHR$(0) + CHR$(75) THEN ' ja niin edelleen...
     CLS : PRINT "Painoit vasemmalle..."
   END IF
   IF KeyPressed$ = CHR$(0) + CHR$(77) THEN ' jne..
     CLS : PRINT "Painoit oikealle..."
   END IF
   IF KeyPressed$ = CHR$(0) + CHR$(80) THEN ' En oo varma... =)
     CLS : PRINT "Painoit alas..."
   END IF
   KeyPressed$ = ""
LOOP