10 FOR Y=0 TO 10:Z=PEEK(&HFBE5+Y) 30 IF Z=255 THEN 80 'WW 40 PRINT"Y=";Y:Z$=RIGHT$("00000000"+BIN$(Z),8) 60 PRINT"X=";8-INSTR(Z$,"0"):PRINT 80 NEXT:GOTO 10 'WW