' File  AVERAGE.GFA
' (C) by PKF
S%=0
M%=0
C%=0
While S%>=0
  C%=C%+1
  Print "Please input the"'C%;"th ";
  Input "number: ",S%
  If S%<0
    End
  Else
    M%=M%+S%
    Print "Current average is:"'M%/C%
    Print
  Endif
Wend
End