REM program to compute charges for buying reprints of mag.
CLS
REM input section
next$ = "0"
DO UNTIL next$ = "-0"
CLS

INPUT "How many reprints do you want"; number

REM processing section
IF number <= 10 THEN
        charge = number * 4.5
    ELSEIF number <= 50 THEN
        charge = number * 4.25
    ELSEIF number <= 100 THEN
        charge = number * 4
    ELSEIF number <= 500 THEN
        charge = number * 3.75
    ELSE
        charge = number * 3.5
END IF

REM output section
CLS
PRINT TAB(30); "Wealth Magazine"
PRINT
PRINT TAB(50); "Copies ordered"; number
PRINT USING "Charge  $$###,###.##"; TAB(50); charge

INPUT "Touch any key to continue, else enter -0 to quit"; next$
LOOP
END