REM  Running averager by RG Weston 2002/02/21
      REM Useful when massaging educational or other data
      MODE0
      ONERROR:PRINT"Don't do that":A=INKEY(100):RUN
      PRINTTAB(5)"Running Averager"TAB(40)"Enter your number and Press 'Enter'"
      total=0 :count=0
      PRINTTAB(40)"Enter Q to go again"'
      PRINTTAB(10)"(You can also enter expressions such as 28-9 or 80/9 or 60*4.2)"'
      REPEAT
        count=count+1
        INPUT n$
        n=EVAL(n$)
        total=total+n
        av=total/count
        PRINTTAB(15,VPOS-1)"running average = " total;" / ";count,"=",av
      UNTIL n$= "Q" or "q"
      RUN