5  DIM Q$(9)
10  PRINT "DO YOU WISH INSTRUCTIONS";
12  INPUT Q$
14  IF Q$="YES" THEN 25
16  IF Q$="NO" THEN 92
18  PRINT "A YES OR NO ANSWER PLEASE"
20  GOTO 12
25  PRINT "THIS PROGRAM COMPUTES THE MEAN AND VARIANCE, AND THE STANDARD"
27  PRINT "DEVIATION AND STANDARD ERROR OF THE MEAN FOR ONE OR MORE SETS"
29  PRINT "OF DATA."
33  PRINT "ENTER DATA STARTING IN LINE 9900.  THE DUMMY  999999  "
35  PRINT "MUST BE PLACED AFTER THE LAST PIECE OF DATA OF EACH SET.  BE SURE"
37  PRINT "TO REMOVSAMPLE DATA IN LINES 9900 AND 9901 BEFORE RUNNING PROGRAM."
39  PRINT 
92  PRINT 
93  PRINT 
95 S,S1,N=0
100  READ X
110  IF X=999999. THEN 160
120  LET S=S+X
130  LET S1=S1+X*X
140  LET N=N+1
150  GOTO 100
160  LET M=S/N
170  LET V=(N*S1-S*S)/N/(N-1)
180  LET S3=SQR(V)
190  LET S4=SQR(V/N)
200  PRINT "NUMBER";TAB(16);"SUM";TAB(26);"SUM-OF-SQUARES",
202  PRINT TAB(46);"MEAN";TAB(61);"VARIANCE"
210  PRINT N;TAB(16);S;TAB(26);S1;TAB(46);M;TAB(61);V
220  PRINT 
230  LET Q=S3/M
240 PRINTSTD. DEV ";TAB(20);"STD. ERROR OF THE MEAN";TAB(50);
242  PRINT "COEFF. OF VARIATION "
250  PRINT S3;TAB(25);S4;TAB(54);Q
260  PRINT 
270  PRINT 
280  READ X
290  IF X=999999. THEN 340
300  LET S=0
310  LET S1=0
320  LET N=0
330  GOTO 120
340  STOP 
9900  DATA 5.5,4.5,3,5.7,7.2,4.9,5.4,6.2,999999.
9901  DATA 19,16,21,22,20.7,30,18.5,999999.
9997  REM: DATA IN LINE 9998 IS PART OF PROGRAM
9998  DATA 999999.
9999  END