11 lines
299 B
QBasic
11 lines
299 B
QBasic
PARAM product AS STRING LIKE "fax" DESCRIPTION "Name of the product to get price for"
|
|
|
|
DESCRIPTION "Get the price of a product by name from the product catalog"
|
|
|
|
productRecord = FIND "products.csv", "name = ${product}"
|
|
|
|
IF productRecord THEN
|
|
RETURN productRecord.price
|
|
ELSE
|
|
RETURN -1
|
|
END IF
|