REM  PRG2SALE.bas (your name and class time goes here)
REM  Program to create a Sales Report of action figures sold

REM  *** Initialize Routine ***
LET Total = 0

CLS
PRINT "PROG2.BAS   Sales Report by Juan Marquez", DATE$
PRINT " "
PRINT "Item", "Price", "Qty", "Tax", "Order Amt"
PRINT " "

REM  *** Read First Record ***
READ Item$, Price, Qty

REM  *** Processing Control Test ***
DO WHILE Item$ <> "EOF"
  REM  *** Processing Routine ***
  REM  *** 5% markup when Qty <= 40
  IF Qty > 40 THEN
    LET Cost = Price * Qty
  ELSE
    LET Cost = Price * Qty * 1.05
  END IF
  LET Tax = Cost * .06
  LET Order = Cost + Tax
  LET Total = Total + Order

  REM  *** Output Routine ***
  PRINT Item$, Price, Qty, Tax, Order
  READ Item$, Price, Qty
LOOP

REM  *** Print Totals ***
PRINT " "
PRINT "Total Sales", " ", " ", " ", Total
PRINT " "
PRINT "Press Alt & Print Screen to capture screen, and "
INPUT "then press Enter to continue: ", P

DATA "H. Johnson", 4.95, 41
DATA "B. Grant", 6.00, 39
DATA "R. Thomas", 2.25, 45
DATA "J. Lopez", 5.54, 36
DATA "M. Smith", 8.95, 37
DATA "EOF",9,99
END