z.B. so

Dim Temperatur(200) As Byte
Dim Zähler AS Byte

Zähler=0
Do
If Minuten = 30 then
Temperatur(Zähler) = Analog_in0
Incr(Zähler)
End if
Loop

lg Gento