10 DEFINT A-Z
20 SCREEN 1
30 LOCATE 0,0,0
40 PRINT " Y X76543210":Y=0
50 FOR I=&HFBE5 TO &HFBEF
60 IF Y<10 THEN Y$=" "+STR$(Y) ELSE Y$=STR$(Y)
70 KY=PEEK(I): PRINT Y$;" ";RIGHT$("0000000"+BIN$(KY),8)
80 Y=Y+1:NEXT I: GOTO 30