10
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%)