REM  Prog3.bas (your name and date) Juan Marquez   4/99
REM  Program to create a Sales Report of action figures sold

REM  *** Main Routine
GOSUB INIT.RTN
GOSUB INPUT.RTN
GOSUB PROCESS.RTN
GOSUB TOTAL.RTN
GOTO EOP

PROCESS.RTN:
DO WHILE Item$ <> "EOF"
  GOSUB CALCULATE.RTN
  GOSUB OUTPUT.RTN
  GOSUB INPUT.RTN
LOOP
RETURN

INIT.RTN:
  REM  *** Initialize Routine ***
  LET Total = 0
  CLS
  PRINT "PROG3.BAS  Sales Report by Juan Marquez", DATE$
  PRINT " "
  PRINT "Item", "Price", "Qty", "Tax", "Order Amt"
  PRINT " "
RETURN

INPUT.RTN:
  REM  *** Input Routine ***
  READ Item$, Price, Qty
RETURN

CALCULATE.RTN:
  REM  *** Processing Routine ***
  REM  *** 5% markup if 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
RETURN

OUTPUT.RTN:
  REM  *** Output Routine ***
  PRINT Item$, Price, Qty, Tax, Order
RETURN

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

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