Running Totals

[ElderQB]

I am sending you a program which I have started to constuct. It is for
recording by Bike Training on
I cannot seem to make a Running Total of the Kilometers Rided Can you help
me

CLS
OPEN "Record.rec" FOR APPEND AS #1
CLS
PRINT "Cycling Record"
PRINT "type END to quit"
PRINT

DO WHILE (day$ <> "END")
INPUT "Date ", day$
IF (day$ <> "END") THEN
INPUT "Kilometres ", Kms
INPUT "Minutes", min
Speed = Kms / (min / 60)
WRITE #1, day$, Kms, min, Speed
END IF
PRINT
LOOP
CLOSE #1
INPUT "Press Enter to see the Total Record", dummy
CLS
OPEN "Record.rec" FOR INPUT AS #1
PRINT "Date Kms Mins Av.Speed "
PRINT "---------------------------------"

tmp$ = "\ \ ### ### ####.# "

DO WHILE (NOT EOF(1))
INPUT #1, day$, Kms, min, Speed
PRINT USING tmp$; day$; Kms; min; Speed
LOOP
CLOSE #1