Code: Alles auswählen
Structure Items
Name.s
Color.b
Id.l
EndStructure
NewList Menu.Items()
Procedure CreateDOSMenu(Ueberschrift.s)
ClearConsole()
ConsoleCursor(0)
Breaken.s=Chr(13)+Chr(28)
PrintN(Ueberschrift.s)
PrintN("")
ForEach Menu()
Elemente+1
If Elemente=1
ConsoleColor(Menu()\Color, 0)
PrintN(Menu()\Name)
ConsoleColor(7, 0)
Else
PrintN(Menu()\Name)
EndIf
Next
Repeat
OldWo=Wo
Select Inkey()
Case "ÿP"
Wo+1
Case "ÿH"
Wo-1
Case Breaken.s
ForEach Menu()
If Wo = t
ConsoleCursor(1)
ProcedureReturn Menu()\ID
EndIf
t+1
Next
EndSelect
If OldWo<>Wo
If Wo < 0
Wo=Elemente-1
ElseIf Wo > Elemente-1
Wo=0
EndIf
ForEach Menu()
If t=Wo
ConsoleLocate(0, t+2)
ConsoleColor(Menu()\Color, 0)
Print(Menu()\Name)
ElseIf t = OldWo
ConsoleLocate(0, t+2)
ConsoleColor(7, 0)
Print(Menu()\Name)
EndIf
t+1
Next
t=0
EndIf
Delay(1)
ForEver
ProcedureReturn 1
EndProcedure
OpenConsole()
AddElement(Menu())
Menu()\Name="1 Zeile"
Menu()\Color=10
Menu()\ID=1
AddElement(Menu())
Menu()\Name="2 Zeile"
Menu()\Color=13
Menu()\ID=2
AddElement(Menu())
Menu()\Name="3 Zeile"
Menu()\Color=14
Menu()\ID=3
Debug CreateDOSMenu("Ueberschrift")
