Hallo

Funktioniert jetzt

Code:
Menue:

Cls

M1 = 0
M2 = 3

M3 = 0
For I = M1 To M2
Incr M3
Menue_zeile = Lookupstr(i , Menue_daten)
Locate M3 , 1
Lcd Menue_zeile
Next I
M3 = 0

Goto Menue

Menue_daten:
Data "Test1"
Data "Test2"
Data "Test3"
Data "Test4"
Data "Test5"
Data "Test6"
Data "Test7"
Data "Test8"
Data "Test9"
Data "Test10"
Data "Test11"
Data "Test12"
Data "Test13"
Data "Test14"
Data "Test15"
Data "Test16"
Data "Test17"
Data "Test18"
Data "Test19"
Data "Test20"
Das ist einmal die Grundstruktur .
Die Feinheiten mache ich gerade... Schaut aber schon sehr gut aus
Danke nochmal