Changes
/* FDC Basic testbench */
275 a$=inkey$:if a$="" then 275 else 260
280 for a%=1 to 512
290 print HEX$(INP(&FB7F),2)," (",a%,")" 300 status%=INP(&FB7E):PRINT BIN$(status%,8):if status% <> &X11010000 X11110000 then 290 300print HEX$(INP(&FB7F),2)," (",a%,")"
310 next a%
320 status%=INP(&FB7E):PRINT BIN$(status%,8):if status% <> &X11010000 then 320
