13.1 one

CLS

OPEN "ch13.dat" FOR INPUT AS #1

LET A$ = "Salesman    Salesman Name      Sales       Commision    Commision"
LET A2$ = " Number                       Amount         Rate       Amount"
LET C$ = " ####    \                    \####.##        #.#%       #####.##"

PRINT
PRINT A$
PRINT A2$
PRINT

INPUT #1, number, name$, amount, rate
DO UNTIL UCASE$(name$) = "END"

    ' PRINT number;
    ' PRINT name$;
    ' PRINT amount;
    ' PRINT rate;
    LET Camount2 = amount * rate
    LET rate = rate * 100
    'PRINT Camount2
    ' PRINT 1#, USING C$; number; name$, amount; rate; Camount2
    PRINT USING C$; number; name$; amount; rate; Camount2

    INPUT #1, number, name$, amount, rate
LOOP


CLOSE #1
END