RosettaCodeData/Task/Averages-Root-mean-square/BASIC/averages-root-mean-square-2.basic

 10 N = 10
 20  FOR I = 1 TO N
 30 S = S + I * I
 40  NEXT
 50 X =  SQR (S / N)
 60  PRINT X
Time for an 2014 update… 2014-01-17 05:32:22 +00:00			`10 N = 10`
			`20 FOR I = 1 TO N`
			`30 S = S + I * I`
			`40 NEXT`
			`50 X = SQR (S / N)`
			`60 PRINT X`