Lookup table not accepting strings

[lerameur]

I know PBP do not handle strings too well. I would like to get an idea on how to get this issue solved.
Obviously this Lookup command do not work, but if PBP could handle it, it is exactly what I need. What is the best way to make this work. I think the program is pretty much self explainable.
K

Lookup Beverage_type, [Coke, Pepsi, DietCoke, DietPepsi],B1      

'/////////////////////////////////////////  
'///////  Selection beverage type  ///////////
'/////////////////////////////////////////
Selection_beverage_type:

		lcdout $FE,1,  " Type: ", B1
		lcdout $FE,$C0, "Next or Select"
		pause 200
		if Selection=1 then return
		if Next1=1 then 
			Beverage_type = Beverage_type+ 1
			if Beverage_type > 3 then Beverage_type = 0
			Gosub Selection_beverage_type
		Endif
Return

[HenrikOlsson]

Hi,
This compiles OK but is not tested, perhaps it could serve as a starting point:

Coke CON 0
Pepsi CON 1
DietCoke CON 2
DietPepsi CON 3
 
Row1 VAR BYTE[16]    'Array for 1st line of LCD
Length VAR BYTE
 
Select Case Beverage_Type
Case Coke
 ArrayWrite Row1, ["Coke"]
 Length = 4
Case Pepsi
 ArrayWrite Row1, ["Pepsi"]
 Length = 5
Case DietCoke
 ArrayWrite Row1, ["Diet Coke"]
 Length = 9
Case DietPepsi
 ArrayWrite Row1, ["Diet Pepsi"]
 Length = 9
END SELECT
 
LCDOUT $FE, 1, STR Row1 \Length

/Henrik.