Ein Beispiel für die Verwendung von "LOOKUP" und zum Vergleich die Befehle, die man verwenden müsste, wenn man LOOKUP nicht kennt:

Code:
$regfile = "m32def.dat"
$crystal = 8000000
$baud = 9600

Dim Offset As Byte
Dim Base As Word
Dim Element As Byte
Dim Effektiv_adr As Word
   Base = Loadlabel(alphabet)                               ' base enthält die adresse von der Tab.

For Offset = 0 To 25
    Element = Lookup(offset , Alphabet)
    Print "LOOKUP=" ; Chr(element) ; " ";

    ' äquivalent OHNE "Lookup"    wäre folgendes:
    Effektiv_adr = Base + Offset
    Element = Cpeek(effektiv_adr)
    Print "CPEEK:" ; Chr(element)
 
Next
   Print

End
 
Alphabet:
   Data "ABCDEFGHIJKLMNOPQRSTUVWXYZ"