LET SUBTTL = 0

NEXTITEM:
CLS
LOCATE 5, 40
PRINT "Running Total:";
PRINT USING "$$####.##"; SUBTTL
LOCATE 2, 2
PRINT "Enter Price:";
INPUT PRICE
IF PRICE = 0 THEN GOTO TOTALS
PRINT "Enter Quantity:";
INPUT QTY

IF QTY = 0 THEN GOTO NEXTITEM
LET SUBTTL = SUBTTL + (PRICE * QTY)
GOTO NEXTITEM

TOTALS:
CLS
PRINT
PRINT "Subtotal:";
PRINT USING "$$####.##"; SUBTTL
LET TAX = SUBTTL * .05
LET TAX = INT((100 * TAX) + .5) / 100
PRINT "     Tax:";
PRINT USING "$$####.##"; TAX
PRINT
PRINT "   TOTAL:";
TOTAL = SUBTTL + TAX
TOTAL = INT((100 * TOTAL) + .5) / 100
PRINT USING "$$####.##"; TOTAL

PRINT "Enter Cash Received";
INPUT CASH
CHANGE = CASH - SUBTTL - TAX
CHANGE = INT((100 * CHANGE) + .5) / 100
PRINT "Change Due:";
PRINT USING "$$####.##"; CHANGE

MORETENS:
IF CHANGE < 10 THEN GOTO FIVES
CHANGE = CHANGE - 10
TENS = TENS + 1
GOTO MORETENS

FIVES:
IF CHANGE < 5 THEN GOTO ONES
CHANGE = CHANGE - 5
FIVES = FIVES + 1
GOTO FIVES

ONES:
IF CHANGE < 1 THEN GOTO QUARTERS
CHANGE = CHANGE - 1
ONES = ONES + 1
GOTO ONES

QUARTERS:
IF CHANGE < .25 THEN GOTO DIMES
CHANGE = CHANGE - .25
QUARTERS = QUARTERS + 1
GOTO QUARTERS

DIMES:
IF CHANGE < .1 THEN GOTO NICKELS
CHANGE = CHANGE - .1
DIMES = DIMES + 1
GOTO DIMES

NICKELS:
IF CHANGE < .05 THEN GOTO PENNIES
CHANGE = CHANGE - .05
NICKELS = NICKELS + 1
GOTO NICKELS

PENNIES:
IF CHANGE < .005 THEN GOTO NOCHANGE
CHANGE = CHANGE - .01
PENNIES = PENNIES + 1
GOTO PENNIES

NOCHANGE:
PRINT "Return:"
IF TENS = 0 THEN GOTO NOTENS
PRINT TENS; "Tens"

NOTENS:
IF FIVES = 0 THEN GOTO NOFIVES
PRINT FIVES; "Fives"

NOFIVES:
IF ONES = 0 THEN GOTO NOONES
PRINT ONES; "Ones"

NOONES:
IF QUARTERS = 0 THEN GOTO NOQUARTERS
PRINT QUARTERS; "Quarters"

NOQUARTERS:
IF DIMES = 0 THEN GOTO NODIMES
PRINT DIMES; "Dimes"

NODIMES:
IF NICKELS = 0 THEN GOTO NONICKELS
PRINT NICKELS; "Nickels"

NONICKELS:
IF PENNIES = 0 THEN GOTO NOPENNIES
PRINT PENNIES; "Pennies"

NOPENNIES:
IF ABS(CASH - TOTAL) > .01 THEN GOTO CHANGE
PRINT "No Change"

CHANGE:
END