Visual FoxPro Codigo Do Case

¿Qué debo hacer en el combo o codigo para que este funcione?

Contexto: Al darle al botón (comprar) este me debe de imprimir o mostrar: Cantidad, Producto, Precio y suma de precios (en caso de comprar más productos) en un list.

El producto se selecciona con un combo

(Dependiendo del producto seleccionado en el combobox se ejecuta ese procedimiento del Do case tengo entendido)

CODIGO:

Do case opcion
case opcion=1
c=c+1
cantidad=val(thisform.text1.value)
total1=cantidad*35
thisform.list1.addlistitem (alltrim(str(cantidad)),c,1)
thisform.list1.addlistitem ("Hamburguesa",c,2)
thisform.list1.addlistitem ("35",c,3)
thisform.list1.addlistitem (alltrim(str(total1)),c,4)
case opcion=2
c=c+1
cantidad=val(thisform.text1.value)
total1=cantidad*20
thisform.list1.addlistitem (alltrim(str(cantidad)),c,1)
thisform.list1.addlistitem ("Papas Fritas",c,2)
thisform.list1.addlistitem ("20",c,3)
thisform.list1.addlistitem (alltrim(str(total1)),c,4)
case opcion=3
c=c+1
cantidad=val(thisform.text1.value)
total1=cantidad*18
thisform.list1.addlistitem (alltrim(str(cantidad)),c,1)
thisform.list1.addlistitem ("Refresco",c,2)
thisform.list1.addlistitem ("18",c,3)
thisform.list1.addlistitem (alltrim(str(total1)),c,4)
case opcion=4
c=c+1
cantidad=val(thisform.text1.value)
total1=cantidad*27
Thisform. List1. Addlistitem (alltrim(str(cantidad)), c, 1)
Thisform. List1. Addlistitem ("Nachos", c, 2)
Thisform. List1. Addlistitem ("27", c, 3)
Thisform. List1. Addlistitem (alltrim(str(total1)), c, 4)
Endcase