10 REM > KeyDump
   20 :
   30 *FX229,1
   40 PRINT "Display key scan codes"
   50 REPEAT
   60   FOR A%=1 TO 128
   70     IF INKEY-A%:PRINT "-";FNd0(A%,3);"  ";
   80     IF POS:IF POS<4:VDU13
   90   NEXT A%
  100 UNTIL INKEY-1 AND INKEY-113
  110 *FX229
  120 END
  130 :
  140 DEFFNd0(A%,N%)=RIGHT$("00000000"+STR$A%,N%)