! 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