REM Suky Sangha
REM pre_con2.BAS
CLS
DIM tot AS INTEGER
DIM nameinput  AS STRING
DIM earnings, contribution AS SINGLE
DIM contrib AS SINGLE

PRINT "Name", "Earnings"; "     Contribution"
READ nameinput
tot = 0
DO UNTIL nameinput = "zzz"
    READ earningsinput
    contribution = earningsinput / 10
    tot = tot + contribution
    PRINT nameinput, earningsinput, contribution
    READ nameinput
LOOP
PRINT "Total contribtution:"


DATA "Suky Sangha", 200000
DATA "Afton Crawley", 300000
DATA "zzz"