Hallo PicNick und alle Anderen,
wie man sieht interessiert dieses Thema viele User (ca. 550) Hits, das zeigt, daß meine Frage doch nicht so abwegig ist.
Das Programm von "PicNick" funktionierte auf Anhieb, vielen Dank nochmal.
Ich habe mal versucht das Programm auszukommentieren, korrigiert mich bitte, wenn was falsch ist.
PS.:Wie bekomme ich denn die Kommentare im Fenster auf gleiche Höhe?
MfG
Code:
$regfile = "m16def.dat"
$crystal = 8000000
$baud = 19200
Dim Offset As Byte
Dim Base As Word
Dim Element As Byte
Base = Loadlabel(alphabet) 'Adresse der Tabelle "Alphabet" laden
For Offset = 0 To 25 'gibt an wieviel Buchstaben in der Tabelle sind
'und erfaßt die Buchstaben der Reihe nach
Element = Lookup(offset , Alphabet) 'holt die Buchstaben aus der Tabelle unter
'Berücksichtigung der Reihenfolge
Print " Lookup=" ; Chr(element) ; ""; 'gibt an was und wie angezeigt wird
Next 'zum Anfang "For"
Print 'Ausgabe auf dem Terminal neue Zeile
End
Alphabet: 'Label
Data "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 'Tabelle
Lesezeichen