5   'Same as Testio11.bas.  Comments added.
10  CLS
20  N = 0
22  OPEN "xxxxx" FOR OUTPUT AS #1
30  FOR I = 1 TO 512
40    X = INP(I + 511)				'start at hex 200
50    IF X = 255 THEN GOTO 60			'"floating" address?
53    LOCATE ((N MOD 20) + 1), ((N \ 20) * 16 + 1)'display side-by-side
54    PRINT HEX$(I + 511);			'address in hex
55    LOCATE ((N MOD 20) + 1), ((N \ 20) * 16 + 6)
56    PRINT X					'display decimal value seen
58    PRINT #1, HEX$(I + 511), X: N = N + 1	'also to file "data1"
60  NEXT I
70  PRINT
75  LOCATE 22, 1
80  PRINT N					'total addresses not 255
85  PRINT #1, N
90  CLOSE
100 END