5 GOTO 500 7 PRINT 10 LET E=0 11 LET F=0 12 PRINT "TYPE IN THE NUMBER OF SCORES X, CASE 1,", 13 INPUT E 14 PRINT "TYPE IN THE NUMBER OF SCORES Y,CASE 2,", 15 INPUT F 16 LET M1=0 17 LET M2=0 18 LET C=0 19 LET D=0 20 DIM A[50],B[50] 21 LET P=0 30 LET E=INT(E) 31 LET F=INT(F) 289 LET P=0 290 LET P2=0 300 PRINT " TYPE IN THE "E;" VALUES OF CASE 1." 310 FOR K=1 TO (E) 320 INPUT A[K] 325 LET M1=M1+A[K] 330 NEXT K 331 LET M1=M1/E 332 FOR L=1 TO (E) 333 LET P=P+((M1-A[L])^2) 335 NEXT L 336 PRINT " " 337 PRINT "THE MEAN OF THE X SCORES IS,";M1 338 PRINT "SUM OF X' SQUARED IS",P 360 PRINT "TYPE IN THE "F;" VALUES OF CASE 2." 370 FOR I=1 TO (F) 380 INPUT B[I] 390 LET M2=M2+B[I] 395 NEXT I 396 LET M2=M2/F 398 FOR N=1 TO (F) 399 LET P2=P2+((M2-B[N])^2) 400 NEXT N 407 PRINT THE MEAN OF THE Y SCORES IS,"M2 408 PRINT "SUM OF X' SQUARED IS",P2 410 LET Q=(P+P2)/(E+F-2) 420 LET S=(E+F)/(E*F) 430 LET U=SQR(Q*S) 440 LET T=(M1-M2)/U 450 PRINT "LEVEL OF SIGNIFICANCE IS ";T 500 LET X9=0 600 GOTO 7 9800 PRINT 9999 END READY 9999 END