100 DEFINT A-Z
110 SCREEN 1
120 LOCATE 0,0,0
130 FOR I=&HFBE5 TO &HFBEF
140 KY=PEEK(I): PRINT HEX$(I);" ";RIGHT$("0000000"+BIN$(KY),8)
150 NEXT I: GOTO 120