! The file values.dat on the current directory of the

! current disk contains three numbers on separate lines.

! Read these three numbers from

! the file and display their average value on the screen.

 

OPEN #1: name "values.dat",create newold

ERASE #1

PRINT #1:3

PRINT #1:4

PRINT #1:5

RESET #1: begin

INPUT #1:x1

INPUT #1:x2

INPUT #1:x3

LET ave=(x1+x2+x3)/3

PRINT ave

END