REM This program reads a list of numbers from a file named
REM "addthem.bas", and computes the sum of the numbers. 
REM It prints the sum to the screen.
REM As no directory address is given, the file must reside
REM in the same directory as the Basic program.
CLS

OPEN "addthem.bas" FOR INPUT AS #1
S = 0

DO UNTIL EOF(1)
        INPUT #1, X
        S = S + X
LOOP

CLOSE #1
PRINT "The sum of the numbers in the file is"; S
PRINT : PRINT "Goodbye"
END