10 FOR Y=0 TO 10:Z=PEEK(&HFBE5+Y)
20 IF Z=255 THEN 80
30 Z$=RIGHT$("00000000"+BIN$(Z),8)
40 X=8-INSTR(Z$,"0")
50 N=8*Y+X
60 PRINT"Y=";Y;"X=";X;"N=0x";HEX$(N)
70 PRINT
80 NEXT:GOTO 10