Hier mal ein Beispiel für einen Menuepunkt - z.B. Volume :



Code:
Menue1:                                                     angesprungen
dim V as byte                                             ' variable Volume

Cls
If V > 99 Then V = 50                                 'beim ersten Anschalten auf max. Wert 50
Do
   Locate 1 , 1
   Lcd "Menue 1"
   Locate 2 , 1
   Lcd "Volume : " ; V ; " %"
   If L = 1 Then Decr V                                     'wenn Poti nach rechts, erhöhe Volume
   If R = 1 Then Incr V                                     'wenn Poti nach links, verringere Volume
   If V > 99 Then V = 99
   If L = 1 Or R = 1 Then                                   'wenn R/L betätigt, dann gib Wert über RS232
   Print "volume" ; V
   End If
   Loop Until O = 1 Or U = 1                                'loop bis oben/unten betätigt, springe dann zurück
Return