10 WSET 0:CLS :CROFF :MOUSE 1,0
11 DIM b(127)
12 TLOAD 1,"sysfontb.dat",16,11
13 STILE 1
14 WIN c(1,255,88,23,0,0,39,29,3,0,"Belegung der I2C-Adressen")
16 POS 4,4
17 PRINT "0123456789ABCDEF"
18 p=6:z=6
19 POS 21,4:PRINT "Belegte Adressen:"
20 FOR i=0 TO 127
21 IF n=0 THEN POS 1,p
22 IF n=0 THEN PRINT HEX (i);" ";
25 IF n=0 THEN POS 4,p
30 a=PORT p(i)
40 IF a THEN POS n+4,p:PRINT "-";:B(i)=0
50 ELSE POS n+4,p:PRINT CHR$ (15);:b(i)=i
52 GOSUB 200
55 n=n+1
62 IF n=16 THEN p=p+2
63 IF n=16 THEN n=0
100 NEXT i
110 a=WIN :IF a=0 THEN GOTO 110
120 IF a=12 THEN WIN r(1):WSET 0:CLS :CRON :MOUSE 0,0:END 
130 ELSE GOTO 110
200 REM    Adresse anzeigen
210 x=GETX :y=GETY 
220 POS 23,z
230 IF b(i)>0 THEN z=z+2:PRINT "$";HEX (b(i));TAB (26);"=";b(i)
250 POS x,y
300 RETURN