Naja, ich bring mal ein Beispiel, was funktionieren könnte.

Code:
DIM zeichen1 as Byte

Do 
   zeichen1 = inkey()
   if zeichen1 > 64 then 
        Input , I                'max 23 zeichen einlesen 
        B = Left(i , 2)        'ersten zwei zeichen in Variable B schreiben 
        select case zeichen1
        case "z":       
             T = Mid(i , 3 , 20)    
             If B = "1=" Then Goto Zeile1      
             If B = "2=" Then Goto Zeile2 
             If B = "3=" Then Goto Zeile3 
             If B = "4=" Then Goto Zeile4 
        case "l":       
             O = Mid(i , 3 , 1) 
             If B = "1=" Then Goto Led1 
             If B = "2=" Then Goto Led2 
             If B = "a=" Then Goto Lall 
        case "c":       
             If B = "ls" Then Goto Cls 
             If B = "fg" Then Goto Config    
        end select
        'Locate 3 , 1 
        'Lcd I 
        'Locate 4 , 1 
        'Lcd B 
        I = "" 
    end if
LOOP