Listing of file='23A' on disk='vmedia/glbr_22.wvd.zip'
# Sector 434, program filename = '23A' 0005 DIM X(4) 0010 PRINT "INPUT 0 FOR A POPULATION, 1 FOR A SAMPLE" 0015 INPUT P 0020 PRINT "NO. OF OBSERVATIONS" 0025 INPUT N 0030 S,T=0 0035 PRINT "INPUT OBSERVATIONS 4/LINE." 0040 FOR I=1 TO N STEP 4 0050 INPUT X(1), X(2),X(3),X(4) 0055 FOR J=1 TO 4 0060 S=S+X(J) 0070 T=T+X(J)^2 0075 NEXT J 0080 NEXT I 0090 M=S/N 0100 V=(T-N*M^2)/(N-P) 0105 PRINT 0110 PRINT "MEAN=";M 0120 PRINT "VARIANCE=";V 0130 PRINT "ST.DEV.=";SQR(V) 0999 END