Adressen kann man als WORD speichern und weitergeben.
Code:
DIM adr AS WORD
   adr = LOADLABEL(Sensor1)
In der Sub liest man dann mittels
Code:
for x = 0 TO 7
ptr = adr+x
  rombyte = CPEEK(ptr) 
next
Etwas weniger tricky ist
Code:
   RESTORE  Sensor1
   call DS1820_TEMPERATURE_READ(byref Temperatur as Integer)
   RESTORE  Sensor2
   call DS1820_TEMPERATURE_READ(byref Temperatur as Integer)
,,,
'---------------------------------------------------------------------------
SUB DS1820_TEMPERATURE_READ(byref Temperatur as Integer)
for x = 0 TO 7
  READ rombyte
next