image of READY prompt

Wang2200.org

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