REM author: sangha, suky
REM file: patel_shop.bas
REM date: 9/05/02-24/05/02

DIM itemDesc(11) AS STRING
DIM itemCode(11) AS INTEGER
DIM itemDes(20) AS STRING
DIM itemPrice(11) AS SINGLE
DIM itemPric(20) AS SINGLE
CLS

i = 0
s = 0
tot = 0
FOR i = 1 TO 10
	READ itemCode(i)
	READ itemDesc(i)
	READ itemPrice(i)
NEXT
i = 0
INPUT "What is the item code"; code
DO UNTIL code = 999
 DO UNTIL code = itemCode(i) OR i > 10
	i = i + 1
 LOOP
 IF code = itemCode(i) THEN
 s = s + 1

 itemPric(s) = itemPrice(i)
 itemDes(s) = itemDesc(i)

 ELSE
   PRINT "*********** ERROR, WRONG CODE, PLEASE RE-INPUT"
   
END IF

tot = itemPric(s) + tot

INPUT "What is the next item code"; code
LOOP

FOR p = 1 TO s
PRINT "------------------------------------------------------"
PRINT "DESCRIPTION:        "; itemDes(p)
PRINT "ITEM:              "; itemPric(p)
PRINT "------------------------------------------------------"

NEXT p
PRINT "TOTAL ="; tot
INPUT "Tender amount"; tender
change = tender - tot
PRINT "Change = "; USING "##.##"; change

DATA 101, "smirnoff ice 5.5% vol" , 2.45
DATA 102, "bacardi breezer 4.9% vol" , 2.35
DATA 103, "hennessey 45.6% vol" , 16.25
DATA 104, "bacardi 44.5% vol" , 12.45
DATA 105, "famous grouse 45.5% vol" , 13.35
DATA 106, "chivas regal 46.6% vol" ,15.25
DATA 107, "southern comfort 45.5% vol" , 10.45
DATA 108, "bells 44.5% vol" , 11.35
DATA 109, "grants 46.5% vol" , 10.25
DATA 110, "teachers 43.5% vol" , 11.45