13.1 two

REM
REM
REM


CLS

OPEN "ch13.dat" FOR OUTPUT AS #2

INPUT "Enter name: ", name$

DO UNTIL UCASE$(name$) = "END"

    INPUT "Enter sales number: ", number
    INPUT "Enter sales amount: ", amount
    INPUT "Enter commission rate: ", rate

    WRITE #2, number, name$, amount, rate

    PRINT
    PRINT

    INPUT "Enter name: ", name$
LOOP

WRITE #2, 0, "END", 0, 0

CLOSE #2

END