program mencari nilai rata-rata dengan foxpro 2.6

walaupun cukup jadul, tapi ternyata masih banyak juga yang mau make foxpro 2.6
mengenai syntax nya sebenarnya ga jauh beda sama ketika kita membuat program dengan bahasa C maklum sama-sama jadul.

programnya:

set talk off
clear
use (tuliskan database yang kita ingin cari rata-ratanya, contoh: 3se3.dbf)

sum=0
n=0
do while not eof()
    n=n+1
    sum=sum+nilai(variabel yg kita cari rata2nya)
skip
enddo

ave=sum/n
@3, 2 say "nilai rata-rata= " +str(ave, 4, 2)