NUMERIC FORM SCIENTIFIC
TOT = 0
DO WHILE LINES() <> 0
    PARSE LINEIN L
    IF L <> "" THEN DO
        INTERPRET "TOT = TOT + " L
    END
END
SAY TOT