Erster Gegenvorschlag
Wertsuche:
on E Gosub 0, 1, 2, ..................9
Zweiter
Wertsuche:
Portd = lookup(e, patt_tab)
...
patt_tab:
DATA &B00111111, &B00000110, &B01011011, ......