Hi,
This compiles OK but is not tested, perhaps it could serve as a starting point:
Code:
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.