RosettaCodeData/Task/Averages-Root-mean-square/Applesoft-BASIC/averages-root-mean-square.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
Initial data commit 2023-07-01 11:58:00 -04: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`