Variante zum Schmunzeln:
Code:
 dim readx as byte
 dim readv as word

 reset tabelle
 readv = 0
 readx = 0
' find widerstand in tabelle---------------------------
 while readv < Widerstand 
    read readv 
 wend
' der wievielte eintrag ist das ? ---------------------
  readx = lookdown(readv, Tabelle, anz-entries)
' da spring ich hin -----------------------------------
  on readx gosub act-1, act-2,  .........act515, act 885
---etc. etc
' oder  einen passenden wert suchen 
  readv = lookup(readx, tab2)

tabelle:  'sorted
   Data nnn%, nnn%, nnn%, 815%, 885%, nnn%, nnn%
tab2:
  data  nnn%, nnn% ,................................
da fehlt noch drumherum, wenn der Widerstand > größter Tabwert usw.

Aber es is mal was anderes als Denkansatz