Erklärung für "Offset" gesucht

[HM]

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

$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

[PicNick]

Ich hab's wegen der Formatierung versucht, viel besser bring ich das auch nicht zusammen. sry

Kommentare passen so, alles klar

[HM]

Hallo PicNick und alle Anderen,
vielen Dank für Deine Antwort.
Ja wenn die Kommentare stimmen, dann habe ichs wohl verstanden, jedenfalls für dieses Beispiel.
Aber was ist, wenn da im Programm mehrere Offset stehen?
Zum Programm:
Man könnte ja versuchen, die Anzeigedauer der Buchstaben / Ausgabe noch zeitlich zu steuern oder geht das jetzt zu weit (nur so ein Gedanke)?
Vielen Dank für Antworten. HM

[Richard]

Man könnte ja versuchen, die Anzeigedauer der Buchstaben / Ausgabe noch zeitlich zu steuern oder geht das jetzt zu weit (nur so ein Gedanke)?
Vielen Dank für Antworten. HM

Nö, das geht ganz einfach in dem man zeitgesteuert den Index erhöht in etwa....einfach mal etwas herum Testen.

................

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

*****************
Wait ms 1000                                ' 1 s warten
****************
Next 
.............

Gruß Richard

[HM]

Hallo Richard,
vielen Dank für Deine Antwort.
Ja das stimmt, weil Du die Pause vor dem Next reingeschrieben hast, ich hatte sie nach dem Next reingeschrieben, da hat das Programm nur länger gewartet, bis es wieder von vorne angefangen hat.
Da sieht man wiedermal, daß die Reihenfolge doch wichtig ist, irgendwie hatte ich mir das komplizierter vorgestellt, aber ist auch logisch.
Wieder was gelernt. MfG HM