' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   ϊ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`CT":4);"ENTER CHANGE IF DESIRED";:V3eV3:8:"SCORE";2);I;":";2);X(I);:"? ";W$:V3:868|W$""X(I)(W$)V:(K1)91:(BK$(X(I)),9):I440:3000XTAGbD$(4):D$;"PR#0"+l23:"ENTER A=ANOTHER PROBLEM, E=EDIT DA5VK2((18K)2)&V1:DD$:V1N""TOTAL";:ZXS:ZF%11:ZD%DC%:1200u,ZXTP:ZF%13:ZD%D%:1200:::DD$67000p EDIT DATA zK0:V999:I1N:KK1K4K1::VV1V186050':23:3);"PRESS RETURN IF SCORE IS CORREI1(P93K15)40700I1P93İ410=P93ėq2);"CASE";4);"FREQUENCY";4);"PERCENT"::K1ZXI:ZF%5:ZD%0:1200:".";ZXX(I):ZF%10:ZD%DC%:1200ZXPC(I):ZF%13:ZD%D%:1200::IP93ĺ:DD$::4130V19:K1$W$,9); *2050 N1200; COMPUTE MEAN AND SIGMA^ S0:I1N:SSX(I):PC(I)0:I S0āI1N:PC(I)100X(I)S:I TP0:I1N:WP(PC(I)10D%.5)(10D%.5):TPTPWP:I PRINT SCORES K99:1000:P93ĺ:DD$:I1N:KK1T SCORE.";:7:5:"PRESS 'RETURN' AFTER EACH NUMBER.":10:34,6:35,20P ::e KK1:K4K1: 998:11:"SCORE";2);N1;:": ";W$:1:958 W$"GO"ĉ:440:2700 W$""2055 NN1:X(N)(W$):998:998:998:9(K1)1:958:(BKZX0)(ZX0)ZX< (ZX)1ZX$("0.00000000",ZD%2):1300c ZX$(((ZX))"00000000",2,ZD%1) ZR$"":ZD%0ZR$"."(ZX$,ZD%) ZX$ZF$ZR$ (BK$ZX$,ZF%);:  KEYBOARD INPUT N0:K0F 24:8:"TYPE ";::" GO ";::" AFTER LASZ%ZM $ZM. .Z%0DC%ZL%Z%DC%ZL%Z%I 8F%ZL%DC%F%ZL%DC%R BI:e FORMAT NUMBER ZX(ZX10ZD%.5)(10ZD%.5) ZF$(3213(ZX0))(((ZX))) ZF%ZD%(ZF$)1ZF%ZD%(ZF$)1 ZX(ZX)((ZX))10(ZD%1) ZX(:"ONLY ";MAX;" SCORES IN MEMORY.":INS:8100kh::7:"--- SCORES FOR PERSON ";I;" ---"::::V(37)1{rK0:J1NT|KK1:K4K1:VV1V:9:"TREATMENT";1);J;": ";DA(I,J);:"? ";W$:V(37):V:868:W$""DA(I,J)(W$)V2P93İ410!(BK$NA$(J),13);O18:ZXMX(J)NS:ZF%12:ZD%DC%D%:1200:[NT8ĺmJ:DD$:9000|@EDIT DATAT:23:3);"PRESS 'RETURN' IF SCORE IS CORRECT":4);"ENTER CHANGE IF DESIRED";-^35,20:ZF%F%:ZD%DC%:1:I1NS:IMAXĺ:0:1200:F::3);"CHI-SQUARE:";2);:ZXCHI:ZF%12:ZD%2:1200:::1);"SIGNIFICANCE:";2);:ZXPX:ZF%14:ZD%4:1200:::DD$P93İ410 PRINT MEANSP93ė:DD$:8:"TREATMENT";6);"MEAN RANK" :J1NT:J18 IN MEMORY.":INS:41607:"PERSON ";I;" SCORES:":_"K0:J1NT:KKZF%:K39ZF%K1:t,ZXDA(I,J):1200}6J:@I:hPRINT RESULTSrP93ė|DD$::12);"FRIEDMAN ANOVA": DD$:::"N OF SUBJECTS:";2);:ZXNS:ZF%10:ZD%INT THE DATA ?":13:7);"< Y > YES, PRINT DATA":15:7);"< N > NO, ONLY RESULTS"w18:10:"RESPONSE...";:W$:W$"Y"W$"N"4030500W$"N"4200PRINT SCORESDD$:ZF%F%:ZD%DC%I1NS:IMAXĺ:"ONLY ";MAX;" SCORESNT1) DFNT1:1400' 1000:4200? COMPUTE AFTER EDITu 3000:I1NS:23:15:"SUBJECT";(BK$(NSI),4) J1NT:X(J)DA(I,J):J 3100:I 440:3200OUTPUT ON PRINTERNSNT50W$"Y":4050U:10:5:"DO YOU WANT TO PRRO ARRAYS" J1NT:MX(J)0:J:; RANK AND ACCUMULATEU& J1NT:RK.5:L1NTm0 X(J)X(L)RKRK.5: X(J)X(L)RKRK1D L:MX(J)MX(J)RKN J: COMPUTATION SR0:J1NT:SRSRMX(J)MX(J):J CHI(12(NSNT(NT1)))SR3NS(K4K1:VV1IV:6:"TREATMENT";1);J;":";:" ";W$:V(37):V:868a W$"GO"JNT:2120q*W$""20704X(J)(W$):DA(NS1,J)X(J)>V2:(K1)91:(BK$W$,9)HJ:W$"GO"2140RNSNS1:2040\:NS2ī470f430:3500  ZE1:4:"HOW MANY TREATMENTS";:": ";W$:NT(W$)OW$(NT)NT2NTMTX2010:23:8:"TYPE ";::" GO ";::" TO STOP INPUT."35,20:1:NS0:7:"--- SCORES FOR PERSON ";NS1;" ---"::::V(37)1K0:J1NT:NA$(J)(J)  KK1:2)R (DF2)DF21510/ J1:CHI01510M J(2CHI3.141592653599)Y L1:M1e DFDF2t MMCHIDF M.00000011570 LLM 1520 "PX1JKL ,PX.0001PX.0001 6  KEYBOARD INPUT/12:8:"( 2 TO ";MTX;" )":1(((ZX))"00000000",2,ZD%1)E ZR$"":ZD%0ZR$"."(ZX$,ZD%)U ZX$ZF$ZR$l (BK$ZX$,ZF%);: xPROBABILITY DFNT1:PX1 CHI100PX0:1580 DF04200 R1:J1 IDF22 RRI:I KCHI(((DF1)2))(CHI LF1%9F1%9 V* FORMAT NUMBERN ZX(ZX10ZD%.5)(10ZD%.5)r ZF$(3213(ZX0))(((ZX))) ZF%ZD%(ZF$)1ZF%ZD%(ZF$)1 ZX(ZX)((ZX))10(ZD%1) ZXZX(ZX) (ZX)1ZX$("0.00000000",ZD%2):1300 ZX$A NUMBERS2 F%0:DC%0:Z$".":NE10:NENSNENSc I1NS:J1NT:XDA(I,J):(X).01XX(X){ ZT$(X):ZL%(ZT$) Z%0:K1ZL% Z$(ZT$,K,1)Z%K $F%Z%F%Z% .Z%0DC%ZL%Z%DC%ZL%Z% 8K:J:I:F%F%DC%1:F%6F%6 B:DD$ 2000I 23:8:"TYPE 'C' TO CONTINUE...";:W$::W$"C"410O U x 23:868:16::"WORKING":: :23:17::"LOADING":: :11:"TOO FEW CASES.":410:200 :23:17::"PRINTING"::D$;IO$:  COMPUTE SIZE OF DAT;FRIEDMANdFRIEDMAN,nIO$"PR#1"`xD%2:D$(4):I139:DD$DD$"-":BK$BK$" ":IMAX200:MTX12:DA(200,12),X(12),MX(12)NA$(100),X$(100)PAGE ONE ::DD$::12);"FRIEDMAN ANOVA"::"COPYRIGHT 1984";12);"JAMES BOLDING"     F%DC%1:F%6F%6 B+ LF1%9F1%91 VD FORMAT NUMBERh ZX(ZX10ZD%.5)(10ZD%.5) ZF$(3213(ZX0))(((ZX))) ZF%ZD%(ZF$)1ZF%ZD%(ZF$)1 ZX(ZX)((ZX))10(ZD%1) ZXZX(ZX) (ZX)1ZX$("0.0000#  COMPUTE SIZE OF DATA NUMBERSL F%0:DC%0:Z$".":NE10:NENSNENS} I1NS:J1NT:XDA(I,J):(X).01XX(X) ZT$(X):ZL%(ZT$) Z%0:K1ZL% Z$(ZT$,K,1)Z%K $F%Z%F%Z% .Z%0DC%ZL%Z%DC%ZL%Z% 8K:J:I:F%NTS BY SUBJECTS ANOVA"::"COPYRIGHT 1984";12);"JAMES BOLDING":DD$N 2000 24:6:"TYPE 'C' TO CONTINUE...";:W$:W$"C"410 : OP3ė 23:16::"WORKING":: :23:17::"LOADING":: :23:16::"PRINTING"::D$;IO$:xTREATMENTS BY SUBJECTS9dTREATMENTS BY SUBJECTSHnIO$"PR#1"|xD%2:D$(4):I139:DD$DD$"-":BK$BK$" ":IMAX200:MTX10:DA(200,10),MT(10),SJ(10),MS(200),SI(200)NA$(100),X$(100),T(10)PAGE ONED ::DD$::5);"TREATME      84"R:"JAMES BOLDING":"P.O. BOX 339":"FAYETTEVILLE, AR 72702":(DD$,23):r24:5:"BYE-BYE";:23:1:I:"JAMES BOLDING":"P.O. BOX 339":"FAYETTEVILLE, AR 72702":(DD$,23):24:5:"BYE-BYE";:23:1:$"C"410 :1 :23:17::"WORKING"::P :23:17::"LOADING"::m COMPUTE SIZE OF NUMBERS Z$".":F%0:DC%0:ZN10:NZNZNN I1ZN:ZXX(I) (ZX).01ZXZX(ZX) ZX$(ZX):ZL%(ZX$):Z%0:ZM1ZL% Z$(ZX$,ZM,1)ļ PERCENTdPERCENT*nIO$"PR#1"cxD%2:P91:D$(4):I139:DD$DD$"-":BK$BK$" ":IyX(1000),PC(1000):DD$::14);"PERCENTAGES"::"COPYRIGHT 1984";12);"JAMES BOLDING":DD$2000 23:1:"TYPE 'C' TO CONTINUE...";:W$:W :1:I1NS:IMAXĺ::"ONLY ";MAX;" SCORES IN MEMORY.":INS:8100h::7:"--- SCORES FOR PERSON ";I;" ---"::::V(37)1rK0:J1NT|KK1:K4K1:VV1V:9:"TREATMENT";2);J;": ";DA(I,J);:" ? ";W$:V(37):V:868: W$""" :J1NT:J18P93İ4107(BK$NA$(J),13);e18:ZXMX(J)NS:ZF%12:ZD%DC%D%:1200:qNT8ĺJ:DD$:9000@EDIT DATAT:23:3);"PRESS 'RETURN' IF SCORE IS CORRECT":4);"ENTER CHANGE IF DESIRED";C^35,20:ZF%F%:ZD%DC%;2);:ZXNS:ZF%10:ZD%0:1200:\::3);"CHI-SQUARE:";2);:ZXCHI:ZF%12:ZD%2:1200:::1);"SIGNIFICANCE:";2);:ZXPX:ZF%14:ZD%4:1200:::DD$P93İ410 PRINT MEANSP93ė:DD$:8:"TREATMENT";6);"MEAN RANK:"ONLY ";MAX;" SCORES IN MEMORY.":INS:4160M:"PERSON ";I;" SCORES:":u"K0:J1NT:KKZF%:K39ZF%K1:,ZXDA(I,J):12006J:@I:hPRINT RESULTSrP93ė|DD$::12);"FRIEDMAN ANOVA": DD$:::"N OF SUBJECTS:"5:"DO YOU WANT TO PRINT THE DATA ?":13:7);"< Y > YES, PRINT DATA":15:7);"< N > NO, ONLY RESULTS"18:10:"RESPONSE...";:W$:W$"Y"W$"N"4030500W$"N"4200PRINT SCORESDD$:ZF%F%:ZD%DC%-I1NS:IMAXĺNT(NT1)))SR3NS(NT1)- DFNT1:1400= 1000:4200U COMPUTE AFTER EDIT 3000:I1NS:23:15:"SUBJECT";(BK$(NSI),4) J1NT:X(J)DA(I,J):J 3100:I 440:3200OUTPUT ON PRINTERNSNT50W$"Y":4050k:10:f430:3500 ZERO ARRAYS8 J1NT:MX(J)0:J:Q RANK AND ACCUMULATEk& J1NT:RK.5:L1NT0 X(J)X(L)RKRK.5: X(J)X(L)RKRK1D L:MX(J)MX(J)RKN J: COMPUTATION SR0:J1NT:SRSRMX(J)MX(J):J CHI(12(NS,23):&#24:5:"BYE-BYE";:23:1:II DRIVE ONE":20:7:"PRESS 'RETURN' WHEN READY...";W$Tn#460:D$;"RUN HELLO ,D1"ex#ADDRESS TAG#:32,7:33,25:7:(DD$,23):"STATISTICS WITH FINESSE":"COPYRIGHT (C) 1983"#:"JAMES BOLDING":"P.O. BOX 339":"FAYETTEVILLE, AR 72702":(DD$Y<#23:"ENTER A=ANOTHER PROBLEM, E=EDIT DATA,":6);"P=PRINTOUT, M=MENU, S=STOP. ";jF#24:37:P9$P#P90:WS$"AEPMS":I15:P9$(WS$,I,1)P9I:I5Z#I:P9200,8000,4000,9060,9080:90305d#:12:8:"INSERT STATISTICS DISKETTE":14:14:"INhK0:I1NX(J),rKK1:K4K1:VV1o|V:8:"SCORE";1);I;":";3);X(I,J);:"? ";W$:V(37):V:BK$W$""X(I,J)(W$)V2:(K1)91:(BK$(X(I,J)),9)I:J::440:3000(# TAG ON END OF PROGRAM2#D$(4):D$;"PR#0""P.O. BOX 339":"FAYETTEVILLE, AR 72702":(DD$,23):W$#24:5:"BYE-BYE";:23:1:I1:I:Z#I:P9200,8010,4200,9070,9100,4000:9030Jn#460:D$;"RUN HELLO ,D1"[#ADDRESS TAG#:32,9:33,25:7:(DD$,23):"STATISTICS WITH FINESSE":"COPYRIGHT (C) 1984"#:"JAMES BOLDING":"P.O. BOX 339":"FAYETTEVILLE, AR 72702":(DD$,23)::I 3000(#TAG ON END72#:D$(4):D$;"PR #0"_7#P81:22:"ENTER X=EXPECTED VALUES"<#23:6);"A=ANOTHER PROBLEM, E=EDIT DATA,":6);"P=PRINTOUT, M=MENU, S=STOP. ";F#24:37:P9$P#P90:WS$"AEPMSX":I16:P9$(WS$,I,1)P9I:I6+h"? ";S9$:S9$""O(I)(S9$)Sr998:15:868:(BK$((O(I)),ZF%),ZF%):I|:"NOW CHECK THE EXPECTED FREQUENCIES:"::ZD%DC%:I1J:8:"CELL ";I;".";:ZXE(I):1200"? ";S9$:S9$""E(I)(S9$)998:15:868:ZXE(I):1200:7:P9$=#P#P90:WS$"AEPMS":I15:P9$(WS$,I,1)P9I:I5:f#Z#I:P9200,8000,4000,9060,9100:9030#d#460:D$;"RUN HELLO ,D1"##ADDRESS TAG##:32,7:33,25:7:(DD$,23):"STATISTICS WITH FINESSE":"COPYRIGHT (C) 1984"7$#:"JAMES BOLDING"::ZXPR:ZD%4:1200:*2);"ONE-TAILED"5:DD$?9000N@EDIT DATAJ:23:3);"PRESS 'RETURN' IF SCORE IS CORRECT":4);"ENTER CHANGE IF DESIRED";T35,20:ZF%F%:ZD%DC%:1:J12^:7:"-------- GROUP ";J;" --------"::::V(37)1(2):ZF%14:1200:B:"MEAN RANK";:ZXMX(1):ZF%13:ZD%2:1200]ZXMX(2):1);:1200::"U-VALUE";2);:ZXU2:1200:1):ZXU1:1200::"Z-VALUE";9);:ZXT1:ZD%4:1200::"ADJ. FOR TIES";3);:ZXT:1200::"SIGNIFICANCE";4);,I1NX(J):ZXX(I,J)*6HZF%39H1:?@1200:HHZF%:IJJ::J^h PRINT RESULTSkrP93ėx|:DD$:"ITEM";5);:(BK$"GROUP "(C$(1),8),14);(BK$"GROUP "(C$(2),8),14):2);"N";6);:ZXNX(1):ZF%11:ZD%0:1200ZXNXNT DATA":15:8);"< N > NO, ONLY RESULTS"M18:9:"RESPONSE...";:W$:gW$"Y"W$"N"4030p500W$"N"42004100 PRINT SCORES:DD$:J12:"THE ";NX(J);" SCORES FOR GROUP ";C$(J);":":"H1:ZF%F%:ZD%DC%23C2)12 I:JT CT0NTN1N2:SU((N1N2(NT(NT1)))((NT3NT)12CT))n T0:SU0T(MUU)SU 1000:1400:4200OUTPUT ON PRINTERN1N250W$"Y":4050,:10:5:"DO YOU WANT TO PRINT THE DATA ?":13:8);"< Y > YES, PRI)MX(1)N1#b N20MX(2)MX(2)N27l UU1:UU2UU2Fv MUN1N22e SU((N1N2(N1N21))12)v T1(MUU)SU CT0:J12:I1NX(J) RX%(I,J)03270 C20:L12:K1NX(L) X(I,J)X(K,L)C2C21:RX%(K,L)0  K:L:C21CTCT(C) RK.5:L129 K1NX(L):X(I,J)X(K,L)RKRK.5T X(I,J)X(K,L)RKRK1^ K:L| MX(J)MX(J)RK:RX%(I,J)1 I:J& 20:8680 COMPUTE U-VALUE: N1NX(1):N2NX(2)D U1MX(1)N1(N11)2N U2MX(2)N2(N21)2 X N10MX(1W$)$4V2:(K1)91:(BK$W$,9).>2050?HNX(J)N:J:IR2700 :NX(1)2NX(2)2ė:11:10);"TOO FEW SCORES.":410:200 430 ACCUMULATE J12:MX(J)0 20:14:"GROUP ";J;":"; I1NX(J) 20:22:(BK$(NX(J)I),4::" AFTER LAST SCORE."434,6:35,20:10:J12l7:"-------- GROUP ";J;" --------"::::V(37)1xN0:K0KK1:K4K1:VV1 V:8:"SCORE";1);N1;":";:" ";W$:V(37):V:BK$W$"GO"2120 W$""2060*NN1:X(N,J)(J29S:K29W9 L((1K)Z(13)1J)(KZ(23)J)V W4LL(1.08L4W3) PR.5(1L(.196854L(.115194L(.000344L.019527))))4 F1PR1PR PRPR2:PR.0001PR.0001   KEYBOARD INPUT23:3);"TYPE ";::" GO ";X)1ZX$("0.00000000",ZD%2):1300K ZX$(((ZX))"00000000",2,ZD%1)q ZR$"":ZD%0ZR$"."(ZX$,ZD%) ZX$ZF$ZR$ (BK$ZX$,ZF%);: xCOMPUTE PROBABILITY PR1:FTT:DF10000:F.001ī1480 ZF:S1:WDF:F1SDF:W1:Z1F M" LZ%0DC%ZL%Z%DC%ZL%Z%= VF%ZL%DC%F%ZL%DC%C `V FORMAT NUMBERz ZX(ZX10ZD%.5)(10ZD%.5) ZF$(3213(ZX0))(((ZX))) ZF%ZD%(ZF$)1ZF%ZD%(ZF$)1 ZX(ZX)((ZX))10(ZD%1) ZXZX(ZX)$ (ZMBERS. Z$".":F%0:DC%0:ZN10:ZNN1ZNN1` I1ZN:ZXX(I,1):1060:I:ZN10:ZNN2ZNN2 I1ZN:ZXX(I,2):1060:I F%F%1DC%:F%7F%7  $(ZX).01ZXZX(ZX) .ZX$(ZX):ZL%(ZX$):Z%0:M1ZL% 8Z$(ZX$,M,1)Z%M BGHT 1984";12);"JAMES BOLDING":DD$- 20007 TAGSq 23:7:"TYPE 'C' TO CONTINUE...";:W$::W$"C"410w  OP3ė 23:17::"WORKING":: :23:17::"LOADING":: :23:17::"PRINTING"::D$;IO$: COMPUTE SIZE OF NU'MANN-WHITNEY%dMANN-WHITNEY4nIO$"PR#1"hxD%2:D$(4):I139:DD$DD$"-":BK$BK$" ":IX(500,2),RX%(500,2),NX(2),MX(2),C$(2):C$(1)"1":C$(2)"2"NA$(100),X$(100)PAGE ONE# :DD$::10);"MANN-WHITNEY U-TEST"::"COPYRI       (37):V:BK$%"W$""X(M,3)(W$)F"V2:K1F%:ZXX(M,3):1200N"IJZ"J:I:i"440:2800"(# TAG ON END OF PROGRAM"2#D$(4):D$;"PR#0""<#23:"ENTER A=ANOTHER PROBLEM, E=EDIT DATA,":6);"P=PRINTOUT, M=MENU, S=STOP. ";#F#24:3C%:1:I1NR:J1NC[!h::10:"---ROW=";C$(I,1);", COL=";C$(J,2);"---"::::V(37)1!rN%(I,J)0ĺ6);"NO SCORES FOR THIS CELL!"::8120!|K0:IJ1N%(I,J):MM1!KKF%:K39KF%:VV1 "V:8:"SCORE";1);IJ;": ";X(M,3);:"? ";W$:V(I,J):ZF%12:ZD%D%DC%:1200:ZXQL(I,J):1200::NRNC15ĺ\ P93(IJ20IJ40)İ410u J:I:D$:P93ĺDD$ 9000 @EDIT DATA T:23:3);"PRESS 'RETURN' IF SCORE CORRECT":4);"ENTER CHANGE IF DESIRED.";!^M0:L0:35,20:ZF%F%:ZD%D1NC:KK1:ZF%4:ZD%0:IJ2(K9P93)4470=XP93İ410zbK1::"COMBINATION";2);"N";8);"MEAN";5);"STD.DEV.":vW$"R"(I)" & ""C"(J)":":NE10:(W$)NENE(W$)x(BK$(W$,NE),NE);{(W$)10ĺ< 11:ZXN%(I,J):1200:ZXCELLNC8İ410C:"COLUMN VAR.";2);"N";8);"MEAN";5);"STD.DEV.":[J1NC:ZF%4:ZD%0{&(BK$(C$(J,2),9),9);":";0ZXNC(J):1200:ZXMC(J):ZF%12:ZD%D%DC%:1200:ZXSC(J):1200::NC10ĺ:P93(J20J40)İ410DJ-NK0:I1NR:J410: PRINT MEANSM:"ROW VAR.";5);"N";8);"MEAN";5);"STD.DEV.":eI1NR:ZF%4:ZD%0(BK$(C$(I,1),9),9);":";ZXNR(I):1200:ZXMR(I):ZF%12:ZD%D%DC%:1200:ZXSR(I):1200::NR10ĺP93(I20I40)İ410 I:P93NR%6:ZD%0:1200:ZXIV:ZF%12:ZD%D%:1200:ZXJF:ZF%11:1200:ZXIP:ZF%9:ZD%4:1200::"RESIDUAL:":ZXEDF:ZF%6:ZD%0:1200:ZXEV:ZF%12:ZD%D%:1200::"TOTAL:":ZXTDF:ZF%6:ZD%0:1200:ZXTSSTDF:ZF%12:ZD%D%:1200::DD$P93İ39":"FAYETTEVILLE, AR 72702":(DD$,23):K#24:5:"BYE-BYE";:23:1:#P90:WS$"AEPMS":I15:P9$(WS$,I,1)P9I:I5ZZ#I:P9200,8000,4000,9060,9100:9030yd#460:D$;"RUN HELLO ,D1"#ADDRESS TAG#:32,7:33,25:7:(DD$,23):"STATISTICS WITH FINESSE":"COPYRIGHT (C) 1984"+#:"JAMES BOLDING":"P.O. BOX 3)(S9$)DV5:9F1%:(BK$(X(I,2)),F2%):V2:BK$::V(37)2MI:_430:1:3000{(# TAG ON END OF PROGRAM2#D$(4):D$;"PR#0"<#23:"ENTER A=ANOTHER PROBLEM, E=EDIT DATA,":6);"P=PRINTOUT, M=MENU, S=STOP. ";F#24:37:P9$1PNEW SCORE IF DESIRED.":34,3:V9KTI1N:V5:"PAIR";(BK$(I),3);".";m^V2:8:"SCORE 1: ";X(I,1);h"? ";S9$:S9$""X(I,1)(S9$)rV5:9:(BK$(X(I,1)),F1%):V2:868|V2:8:"SCORE 2: ";X(I,2);"? ";S9$:S9$""X(I,2ZXTP:1200:5:"SUM OF NEGATIVE";:ZXTN:1200:n:"Z-VALUE";8);:ZF%13D1%D%3:ZD%4:ZXT:1200::"SIGNIFICANCE";3);:ZXPR:1200:"ONE-TAILED"::DD$9000@ CHECK DATA J:"PRESS 'RETURN' IF SCORE IS CORRECT":"ENTER h PRINT RESULTS!rP93ė=|:DD$::"N OF PAIRS":~"DIFFERENCE";3);:(BK$(N2),14D1%D%):"NOT EQUAL ZERO":"N OF PAIRS""DIFFERENCE";3);:(BK$(NN2),14D1%D%):"EQUAL TO ZERO" :"SUM OF POSITIVE";:ZF%11D1%:ZD%1:NSE...";:W$:(W$"Y"W$"N"40301500BW$"N"4200RPRINT DATA:DD$::"CASE";(BK$(NA$(J1),14),14);(BK$(NA$(J2),14),14):ZF%14:I1N:(BK$(I),3);".";"ZXX(I,1):ZD%D1%:1200,ZXX(I,2):ZD%D2%:1200:6Il PZ(TPMD)SD:NZ(TNMD)SD3v TPZ:PZNZTNZI 1400:1000:4200`OUTPUT ON PRINTERwN50W$"Y":4050:10:5:"DO YOU WANT TO PRINT THE DATA ?":13:9);"< Y > YES, PRINT DATA":15:9);"< N > NO, ONLY RESULTS"18:9:"RESPO K I:21:958.& N20:TP0:TN0:I1NO0 DI(I)0TPTPRD(I):N2N21p: DI(I)0TNTNRD(I):N2N21wD IN MD(N2(N21))4X SD((N2(N21)(2N21))24)b N20ė:"ALL DIFFERENCES ARE ZERO"::"UNABLE TO COMPUTE WILCOXON T":9000"SIGNIFICANCE";4);:ZXPR:ZD%4:1200:=2);"ONE-TAILED"H:DD$R9000a@EDIT DATAJ:23:3);"PRESS 'RETURN' IF SCORE IS CORRECT":4);"ENTER CHANGE IF DESIRED";T35,20:ZF%F%:ZD%DC%:1:J12^:7:"-------- GROUP ";J;" ------%0:1200%ZXNX(2):ZF%14:1200:U:"MEAN RANK";:ZXMX(1):ZF%13:ZD%2:1200pZXMX(2):1);:1200::"U-VALUE";2);:ZXU2:1200:1):ZXU1:1200::"Z-VALUE";9);:ZXT1:ZD%4:1200::"ADJ. FOR TIES";3);:ZXT:1200:':1:ZF%F%:ZD%DC%),I1NX(J):ZXX(I,J)=6HZF%39H1:R@1200:HHZF%:I]J::Jqh PRINT RESULTS~rP93ė|:DD$:"ITEM";5);:(BK$"GROUP "(C$(1),8),14);(BK$"GROUP "(C$(2),8),14) :2);"N";6);:ZXNX(1):ZF%11:ZD8);"< Y > YES, PRINT DATA":15:8);"< N > NO, ONLY RESULTS"`18:9:"RESPONSE...";:W$:zW$"Y"W$"N"4030500W$"N"42004100 PRINT SCORES:DD$:J12:"THE ";NX(J);" SCORES FOR GROUP ";C$(J);":":"HK:L:C21CTCT(C23C2)12' I:Jg CT0NTN1N2:SU((N1N2(NT(NT1)))((NT3NT)12CT)) T0:SU0T(MUU)SU 1000:1400:4200OUTPUT ON PRINTERN1N250W$"Y":4050?:10:5:"DO YOU WANT TO PRINT THE DATA ?":13:1)2X N10MX(1)MX(1)N16b N20MX(2)MX(2)N2Jl UU1:UU2UU2Yv MUN1N22x SU((N1N2(N1N21))12) T1(MUU)SU CT0:J12:I1NX(J) RX%(I,J)03270 C20:L12:K1NX(L) X(I,J)X(K,L)C2C21:RX%(K,L)0 (BK$(NX(J)I),4)% RK.5:L12L K1NX(L):X(I,J)X(K,L)RKRK.5g X(I,J)X(K,L)RKRK1q K:L MX(J)MX(J)RK:RX%(I,J)1 I:J& 20:8680 COMPUTE U-VALUE: N1NX(1):N2NX(2)D U1MX(1)N1(N11)2N U2MX(2)N2(N21:X(N,J)(W$)74V2:(K1)91:(BK$(X(N,J)),9)A>2050RHNX(J)N:J:\R2700 :NX(1)2NX(2)2ė:11:10);"TOO FEW SCORES.":410:200 430 ACCUMULATE J12:MX(J)0 20:14:"GROUP ";J;":"; I1NX(J) 20:22:GO ";::" AFTER LAST SCORE."934,6:35,20:10:J12q7:"-------- GROUP ";J;" --------"::::V(37)1}N0:K0KK1:K4K1:VV1 V:9:"SCORE";2);N1;":";2);:W$:V(37):V:BK$W$"GO"2120 W$((W$))ī2060*NNF J29S:K29W> L((1K)Z(13)1J)(KZ(23)J)[ W4LL(1.08L4W3) PR.5(1L(.196854L(.115194L(.000344L.019527))))4 F1PR1PR PRPR2:PR.0001PR.0001   KEYBOARD INPUT23:3);"TYPE ";::" (ZX)1ZX$("0.00000000",ZD%2):1300P ZX$(((ZX))"00000000",2,ZD%1)v ZR$"":ZD%0ZR$"."(ZX$,ZD%) ZX$ZF$ZR$ (BK$ZX$,ZF%);: xCOMPUTE PROBABILITY PR1:FTT:DF10000:F.001ī1480 ZF:S1:WDF:F1SDF:W1:Z1 BM' LZ%0DC%ZL%Z%DC%ZL%Z%B VF%ZL%DC%F%ZL%DC%H `[ FORMAT NUMBER ZX(ZX10ZD%.5)(10ZD%.5) ZF$(3213(ZX0))(((ZX))) ZF%ZD%(ZF$)1ZF%ZD%(ZF$)1 ZX(ZX)((ZX))10(ZD%1) ZXZX(ZX)) E OF NUMBERS5 Z$".":F%0:DC%0:ZN10:ZNN1ZNN1f I1ZN:ZXX1(I):1060:I:ZN10:ZNN2ZNN2 I1ZN:ZXX2(I):1060:I F%F%1DC%:F%7F%7  $(ZX).01ZXZX(ZX) .ZX$(ZX):ZL%(ZX$):Z%0:M1ZL% 8Z$(ZX$,M,1)Z%MGHT 1984";12);"JAMES BOLDING":DD$- 20007 TAGSx W(0):23:7:"TYPE 'C' TO CONTINUE...";:W$::W$"C"410~  OP3ė 23:17::"WORKING":: :23:17::"LOADING":: :23:17::"PRINTING"::D$;IO$: COMPUTE SIZ;MANN-WHITNEY%dMANN-WHITNEY4nIO$"PR#1"hxD%2:D$(4):I139:DD$DD$"-":BK$BK$" ":IX(500,2),RX%(500,2),NX(2),MX(2),C$(2):C$(1)"1":C$(2)"2"NA$(100),X$(100)PAGE ONE# :DD$::10);"MANN-WHITNEY U-TEST"::"COPYRI     n:"ROWS:":ZXRDF:ZF%6:ZD%0:1200:ZXRV:ZF%12:ZD%D%:1200:ZXRF:ZF%11:1200:ZXRP:ZF%9:ZD%4:1200::"COLUMNS:":ZXCDF:ZF%6:ZD%0:1200:ZXCV:ZF%12:ZD%D%:1200:ZXCF:ZF%11:1200:ZXCP:ZF%9:ZD%4:1200:V:"INTERACTION:":ZXIDF:ZFZF%:L1N:X(L,1)IX(L,2)J4150?"KKZF%:K39KZF%:S,ZXX(L,3):1200\6L:o@J:I::DD$:hPRINT RESULTSr17);"ANOVA":P93ĺ|DD$:4);"DF";4);"VARIANCE";4);"F-RATIO";2);"SIGNIFI-":10);"ESTIMATE";14);"ICANCE":DD$NO, ONLY RESULTS"318:9:"RESPONSE...";:W$:MW$"Y"W$"N"4030V500p:DD$:ZF%F%:ZD%DC%W$"N"4200I1NR:J1NC::11:"--- A=";C$(I,1);", B=";C$(J,2);" ---":N%(I,J)0ĺ6);"NO SCORES FOR THIS CELL!":4160%K1400:RPP/ D1CDF:D2EDF:P1:FCF:1400:CPPU D1IDF:D2EDF:P1:FJF:1400:IPPb P93ėl 4200OUTPUT ON PRINTERTN50W$"Y":4050:10:5:"DO YOU WANT TO PRINT THE DATA ?":13:8);"< Y > YES, PRINT DATA":15:8);"< N > p RDFNR1:CDFNC1:TDFTN1<z IDFRDFCDF:ISS0IDF0a EDFTDF(RDFCDFIDF):EDF1580 RVRSSRDF:CVCSSCDF:EVESSEDF:IV0:IDF0IVISSIDF RF9999.99:CF9999.99:JF9999.99:EV0RFRVEV:CFCVEV:JFIVEV  D1RDF:D2EDF:P1:FRF:T"4 CSSCSSCFJ> R1NR:C1NC:TWQL(R,C):QL(R,C)0:N%(R,C)23410H TMCELL(R,C)CELL(R,C)N%(R,C):ISSISSTM:QL(R,C)((TWTM)(N%(R,C)1)):CELL(R,C)CELL(R,C)N%(R,C)R C:R\ ISS(ISSCF)(RSSCSS):ISS0ISS0f ESSTSS(RSSCSSISS)R(R))(NR(R)1))& MR(R)MR(R)NR(R)- RJ 22:14:"2 STEPS LEFT"_ 1000:RSSRSSCFy C1NC:NC(C)23360 CSSCSSMC(C)MC(C)NC(C) SC(C)((SC(C)MC(C)MC(C)NC(C))(NC(C)1)) MC(C)MC(C)NC(C) C* 22:14:"1 STEP LEFL(I,J)X:QL(I,J)QL(I,J)XX<X TNTN1:CFCFX:TSSTSSXXBb U COMPUTATIONr 22:14:"3 STEPS LEFT" CFCFCFTN TSSTSSCF RSS0:CSS0:ISS0 R1NR:NR(R)23290 RSSRSSMR(R)MR(R)NR(R) SR(R)((SR(R)MR(R)MR(R)NNC:NC(J)0:MC(J)0:SC(J)0:JY I1NR:J1NC:N%(I,J)0:CELL(I,J)0:QL(I,J)0:J:I:t ROUTINE TO ACCUMULATE& NR(I)NR(I)1:NC(J)NC(J)10 MR(I)MR(I)X:MC(J)MC(J)X: SR(I)SR(I)XX:SC(J)SC(J)XXD N%(I,J)N%(I,J)1N CELL(I,J)CELNR:C$(I,1)(I):I. J1NC:C$(J,2)(J):J> ACCUMULATEH 3000x K1N:22:13);"COUNTING";(BK$(NK),5) IX(K,1):JX(K,2):XX(K,3):3100 K:3200 ZERO ARRAYS TSS0:TN0:CF0 I1NR:NR(I)0:MR(I)0:SR(I)0:I J1(N,3)(W$),HV2:(K1)91:(BK$W$,9)6R2070B\J:I:Qf430:2700l READ DATA STATEMENTS u 430 NR:NC N0:I1NR:J1NC W$:W$"GO"2560 NN1:X(N,1)I:X(N,2)J:X(N,3)(W$):2540 J:I: LABELS I1"#N0:35,20:1:I1NR:J1NCZ7:"--- ROW=";I;", COL=";J;" ---"::::V(37)1g K0:K20K2K21:KK1:K4K1:VV1 V:8:"SCORE";1);K2;":";:" ";W$:V(37):V:BK$*W$"GO"21404W$""2080 >NN1:X(N,1)I:X(N,2)J:X5);"(2 TO ";MTX;")":9:4:"NUMBER OF ROWS: ";W$:NR(W$):W$((W$))NR2NRMTX201014:5);"(2 TO ";MTX;")":13:1:"NUMBER OF COLUMNS: ";W$:NC(W$):W$((W$))NC2NCMTX2020:23:"TYPE ";::" GO ";::" AFTER LAST SCORE IN CELL.1:RD2:ZF:F1SD2:RD1:Z1F3J29S:K29R\L((1K)Z(13)1J)(KZ(23)J)zR4:LL(1.08L4R3)P.5(1L(.196854L(.115194L(.000344L.019527))))4F1P1PP.0001P.0001KEYBOARD INPUTZ10:X)((ZX))10(ZD%1)' ZXZX(ZX)T (ZX)1ZX$("0.00000000",ZD%2):1300{ ZX$(((ZX))"00000000",2,ZD%1) ZR$"":ZD%0ZR$"."(ZX$,ZD%) ZX$ZF$ZR$ (BK$ZX$,ZF%);: x PROBABILITY ROUTINE P1:F.0011490SDZL% Z$(ZT$,K,1)Z%K, $F%Z%F%Z%L .Z%0DC%ZL%Z%DC%ZL%Z%m 8K:L:F%F%DC%1:F%6F%6s B FORMAT NUMBER ZX(ZX10ZD%.5)(10ZD%.5) ZF$(3213(ZX0))(((ZX))) ZF%ZD%(ZF$)1ZF%ZD%(ZF$)1 ZX(ZD(I)0:I9 I1N::23:15:"RANKING";(BK$(NI),4);Z RK.5:DI(I)0RD(I)03100x TI0:K1N:DI(K)03070 (DI(I))(DI(K))RKRK1 (DI(I))(DI(K))RKRK.5:TITI1 K:TI1RD(I)RK:3100 K1N:DI(I)DI(K)RD(K)RK"GO"ĉ:2700*Y$""2070B4V5:21:(BK$Y$,10):V2:BK$x>NN1:X(N,1)(X$):X(N,2)(Y$)::V(37)2:2040 :N2Ģ11:"AT LEAST TWO PAIRS ARE REQUIRED.":410:430:200 430 COMPUTE SPEARMAN'S RHO  I1N:DI(I)X(I,1)X(I,2):R":24:8:"TYPE ";::" GO ";::" AFTER LAST SCORE.";LV14:34,6:35,20V5:3:"PAIR";(BK$(N1)":",4):V2:13:"SCORE 1:";" ";X$:X$"GO"ĉ:2700 X$""2040V5:11:(BK$X$,10):V2:868:10:"SCORE 2:";  " ";Y$:Y$(L((1K)Z(13)1J)(KZ(23)J)EW4LL(1.08L4W3)PR.5(1L(.196854L(.115194L(.000344L.019527))))4F1PR1PRPRPR2:PR.0001PR.0001 KEYBOARD INPUTN067:"PRESS 'RETURN' AFTER EACH SCORE.00000",ZD%2):1300: ZX$(((ZX))"00000000",2,ZD%1)` ZR$"":ZD%0ZR$"."(ZX$,ZD%)p ZX$ZF$ZR$ (BK$ZX$,ZF%);: xCOMPUTE PROBABILITY PR1:FTT:DF10000:F.001ī1480 ZF:S1:WDF:F1SDF:W1:Z1F J29S:K29WF2%4D2% F1%7F1%7, F2%7F2%72 E FORMAT NUMBERi ZX(ZX10ZD%.5)(10ZD%.5) ZF$(3213(ZX0))(((ZX))) ZF%ZD%(ZF$)1ZF%ZD%(ZF$)1 ZX(ZX)((ZX))10(ZD%1) ZXZX(ZX) (ZX)1ZX$("0.000,1)Z1%M $M+ .Z1%0F1%ZL%F1%ZL%S 8Z2%0:M1ZM%:Z$(ZY$,M,1)Z2%MZ BMu LZ2%0F2%ZM%F2%ZM% VF1%Z1%F1%Z1% `F2%Z2%F2%Z2% jZ1%0D1%ZF%Z1%D1%ZL%Z1% tZ2%0D2%ZM%Z2%D2%ZM%Z2% ~I:F1%F1%4D1%:F2%ING"::D$;IO$:- COMPUTE SIZE OF NUMBERSa Z$".":F1%0:F2%0:D1%0:D2%0:ZN10:ZNNZNN I1ZN:ZXX(I,1):(ZX).01ZXZX(ZX) ZYX(I,2):(ZY).01ZYZY(ZY) ZX$(ZX):ZL%(ZX$):ZY$(ZY):ZM%(ZY$) Z1%0:M1ZL%:Z$(ZX$,M3:7:"TYPE 'C' TO CONTINUE...";:W$::W$"C"4109 ? \ 20:17::"WORKING"::{ :23:17::"LOADING":: :8:13:"--- SORRY ---":12:7);"YOU MUST SELECT AT LEAST"::3);"ONE COLUMN AND ONE ROW VARIABLE": :23:17::"PRINTL WILCOXONdWILCOXON-nIO$"PR#1"axD%2:D$(4):I139:DD$DD$"-":BK$BK$" ":IX(500,2),DI(500),RD(500)NA$(100),X$(100):DD$::8);"WILCOXON SIGNED-RANKS T"::"COPYRIGHT 1984";12);"JAMES BOLDING":DD$20003 2              :17::"LOADING"::= :23:17::"PRINTING"::D$;IO$:u D:11:"TOO FEW CASES FOR THE ANALYSIS.":410:4300 SIZE OF NUMBERS F%0:DC%0:Z$".":NE20:NNENEN L1NE:XX(L,3):(X).01XX(X) ZT$(X):ZL%(ZT$) Z%0:K1ELECTION...";:OP$:H OP0:WS$"KDFS":I14:OP$(WS$,I,1)OPI:I4l I:OP2000,2500,5000,9100:100{  END TAGS 23:1:958:6);"PRESS 'C' TO CONTINUE...";:W$:W$"C"410 : OP3ė 20:958:17::"WORKING":: :23(2)b :DD$::6);"TWO-WAY ANALYSIS OF VARIANCE"::"COPYRIGHT 1984";12);"JAMES BOLDING":DD$l 2000 12:9);"< K > KEYBOARD" 14:9);"< D > DEMONSTRATION" 16:9);"< F > FILE FROM DISK" 19:13);"< S > STOP" 22:14:"SXTWO-WAY ANOVA'dTWO-WAY ANOVA6nIO$"PR#1"jxD%2:D$(4):I139:DD$DD$"-":BK$BK$" ":IMAX400:MTX12:X(400,3),NR(12),MR(12),SR(12),NC(12),MC(12),SC(12),N%(12,12),CELL(12,12),QL(12,12) NA$(100),X$(100),C$(12,2),JX(2),NG(2),LA$             0)LK1I`I:4600-OUTPUT ON PRINTERENT50W$"Y":4050:10:5:"DO YOU WANT TO PRINT THE DATA ?":13:8);"< Y > YES, PRINT DATA":15:8);"< N > NO, ONLY RESULTS"18:9:"RESPONSE...";:W$:W$"Y"W$"N"4030500M(J)OM(J1):OM(J1)T:TIM(J):IM(J)IM(J1):IM(J1)T@ J:IYSETS FOR MULT.COMP.gLK0:KM0w$I1NG:JI.JJ1:JNG36508PM(IM(I),IM(J))PC3630BJ1LK3680LKMKM1:LKJ1 VL10:LILK:L1L11:SM(KM,L1)OM(L):L:SM(KM,ė>T1$(BK$(NA$(J1),13),13):T2$(BK$(NA$(J2),13),13)_:DD$::"ITEM";5);T1$;T2$:2);"N";8);(BK$(N),13DC%D%);(BK$(N),13):"MEAN";7);:ZXMX:ZF%13:ZD%DC%D%:1200ZXMY::1200::"STD DEV";4);:ZXSX:1200";(BK$(NA$(J1),14),14);(BK$(NA$(J2),14),14):KN9N:N9MAXN9MAXrZF%14:I1N9:(BK$(I),3);".";"ZXX(I):ZD%D1%:1200,ZXY(I):ZD%D2%:1200:6I@N9Nĺ:"ONLY ";MAX;" SCORES ARE IN MEMORY."h PRINT RESULTSrP93:10:5:"DO YOU WANT TO PRINT THE DATA ?":13:8);"< Y > YES, PRINT DATA":15:8);"< N > NO, ONLY RESULTS"18:9:"RESPONSE...";:W$:W$"Y"W$"N"4030500:OP3İ510W$"N"42004100PRINT DATA3:DD$::"CASES2N00 SX0:W1Q1S1S1N:W10SX(W1(N1))\: SY0:W2Q2S2S2N:W20SY(W2(N1))vD T99999.99:MXMYT0N W3DQDSDSN:W30T(MYMX)(N(N1))(W3)X 1000:PR.5:N2İ1400b 4200OUTPUT ON PRINTERN50W$"Y":4050r$;"RUN HELLO ,D1"$#ADDRESS TAGv#:32,7:33,25:7:(DD$,23):"STATISTICS WITH FINESSE":"COPYRIGHT (C) 1983"#:"JAMES BOLDING":"P.O. BOX 339":"FAYETTEVILLE, AR 72702":(DD$,23):#24:5:"BYE-BYE";:23:1:I23:1:AG ON END OF PROGRAM,2#D$(4):D$;"PR #0"<#23:"ENTER A=ANOTHER PROBLEM, E=EDIT DATA,":6);"P=PRINTOUT, M=MENU, S=STOP. ";F#24:37:P9$P#P90:WS$"AEPMS":I15:P9$(WS$,I,1)P9I:I5Z#I:P9200,8000,4000,9060,9100:9030d#460:D9:(BK$(Y(I)),F1%):V2:868C|V2:7:"PREDICTOR: ";X(I);d"? ";W$:W$""X(I)(W$)V5:9F1%:(BK$(X(I)),F2%):V2:BK$::V(37)2I:NSMSĢV4:"ONLY ";MAX;" CASES ARE IN MEMORY.":::9000430:1:3000(# TFINESSE":"COPYRIGHT (C) 1984"m"#:"JAMES BOLDING":"P.O. BOX 339":"FAYETTEVILLE, AR 72702":(DD$,23):"#24:5:"BYE-BYE";:23:1:I":6);"P=PRINTOUT, M=MENU, S=STOP.";8!P#24:37:P9$n!Z#P90:WS$"AEPMSX":I16:P9$(WS$,I,1)P9I:I6!d#I:P9160,8000,4000,9070,9100,3400:9040!n#460:D$;"RUN HELLO ,D1"!#ADDRESS TAG"#:32,7:33,25:7:(DD$,23):"STATISTICS WITH 1)),9)? I:N9N(J)ĺ:"ONLY ";MAX;" SCORES ARE IN MEMORY.":e J:::22:958:440:K90ī3100o 9000 (# TAG ON END OF PROGRAM 2#D$(4):D$:D$;"PR#0" <#22:1:"ENTER X=MULTIPLE COMPARISONS"'!F#23:6);"A=ANOTHER PROBLEM, E=EDIT DATA,:7:"-------- GROUP ";J;" --------"::::V(37)1TrN9N(J):N9MAXN9MAX:K91d|K0:I1N9}KK1:K4K1:VV1V:6);"SCORE";1);I;": ";X(I,J1);:"? ";W$:V(37):V:BK$W$""X(I,J1)(W$) V2:(K1)91:(BK$(X(I,JM(K,0):H9PZĺ:7);:H88HH9:ZXSM(K,L):1200:LIV(37)3:K^$:P93ĺ:DD$:h.9000x@CHECK DATAJK90T:23:3);"PRESS 'RETURN' IF SCORE IS CORRECT":4);"ENTER CHANGE IF DESIRED";^35,20:ZF%F%:ZD%DC%:1:J1NG4h3İ410PRINT SETS FOR M.C.7V4:ZF%9:ZD%DC%2JP93ĺ:DD$:q"MULTIPLE COMPARISONS:";2);A$(A):3);"PROBABILITY LEVEL:";2);PCV4:K1KM:P93V(SM(KM,0)3)22İ410:V1::1:"SET ";K;":";:K10ĺ1);H8:L1SIS1P93İ410\J0:47304fP93V20İ410HpP93V214740wz:2);:IISIE:(BK$C$(I)".",9);:I:JJ1:(" "C$(J),2);".";:IISIE:ZXPM(I,J):1200I::V(37)3V(37)3JNG4710IENG4670P9XS(J):1200:J::DD$:-C609000=P93İ410SPRINT MULT.COMP.lPZPW:P93PZ39: "MULTIPLE COMPARISONS:";2);A$(A)*:6);"MATRIX OF PROBABILITIES"4IE0:ZF%9:ZD%3>ISIE1:IEIS(PZZF%)1HIENGIENGR6N"GROUP";4);"N";9);"MEAN";6);"STD.DEV.":NG6ĺLXZF%13:ZD%DC%D%bbL0:J1NG:LL1olNG6ĺvP91L10L1:410JW$(BK$(J),4)OP3JW$(BK$(C$(J),4),4)JW$;NW$(BK$(N(J)),6):NW$;ZXM(J):1200Z0(BK$(DW),5);(ZXMW:1200:E:"TOTAL ";:ZXST:1200Y(BK$(DT),5)d:DD$:3);"F-RATIO";2);:ZXFB:1200::"SIGNIFICANCE";:ZXPF:ZF%ZF%ZD%4:ZD%4:1200:::P93ĺDD$0PRINT MEANS:P93İ410DDD$:ARE IN MEMORY."J:J::DD$6hPRINT ANOVA TABLECrP93ė]|:18:"ANOVA"::DD$oZD%D%:ZF%13:"SOURCE";9);"SS";5);"DF";6);"VAR.EST.":"AMONG ";:ZXSA:1200(BK$(DA),5);ZXMB:1200::"WITHIN";:ZXSW:120DD$W$"N"4200( PRINT SCORESeJ1NG::"THE ";N(J);" SCORES FOR GROUP ";C$(J);":":|"H1:ZF%F%:ZD%DC%'N9N(J):N9MAXN9MAX,I1N9:ZXX(I,J1)6HZF%PWH1:@1200:HHZF%:IEN9N(J)ĺ::"ONLY ";MAX;" SCORES 1I`I:4600'OUTPUT ON PRINTER?NT50W$"Y":4050:10:5:"DO YOU WANT TO PRINT THE DATA ?":13:8);"< Y > YES, PRINT DATA":15:8);"< N > NO, ONLY RESULTS"18:9:"RESPONSE...";:W$:W$"Y"W$"N"4030500:M(J1):OM(J1)T:TIM(J):IM(J)IM(J1):IM(J1)T: J:ISSETS FOR MULT.COMP.aLK0:KM0q$I1NG:JI.JJ1:JNG36508PM(IM(I),IM(J))PC3630BJ1LK3680LKMKM1:LKJ1VL10:LILK:L1L11:SM(KM,L1)OM(L):L:SM(KM,0)LK(W$):W0W$""3470& W$""PCW1 :440J PROB.FOR MULT.COMP.X PM(1,1)1n I2NG:PM(I,I)1 J1I1:3300:1400:PM(I,J)PR:PM(J,I)PR:J:I I1NG:OM(I)M(I):IM(I)I:I I1NG1:J1NGI0 OM(J)OM(J1)TOM(J):OM(J)O"FISHER'S LSD":A$(2)"SCHEFFE'"Yf 9:10:"< F >";2);A$(1):12:10:"< S >";2);A$(2)p 16:12:"SELECTION...";:W$:W$"F"W$"S"3440z A1:W$"S"A2 :5:7:"WHAT PROBABILITY LEVEL ?":7:11);"(DEFAULT=.05)" PC.05:11:18:W$:W1400:PFPR:4200+ MULTIPLE COMPARISONST F(M(J)M(I))2(MW(1N(J)1N(I)))n A1D11:D2NT:3340 A2FF(NG1):D1NG1:D2NTNG H SELECT MULT.COMP.R C61::9);"MULTIPLE COMPARISONS":DD$:5:11);"WHICH METHOD ?" \ A$(1)ACF6l J1NG:WS(J):S(J)0:N(J)1DADA1:3210^v S(J)((WM(J)M(J)N(J))(N(J)1)) SASAM(J)M(J)N(J):M(J)M(J)N(J) J:SWSTSA DTNT1:DWDTDA:DA1ī490 MBSADA:MWSWDW FB0:MW0FBMBMW FFB:D1DA:D2DW:1000:00 ACCUMULATE) CFCFX:STSTXXA NTNT1:M(J)M(J)XU S(J)S(J)XX:f COMPUTATION& NT0:CF0:ST0:DA10 J1NG:M(J)0:S(J)0:N(J)03150: DADA1:I1N(J):XX(I,J1)D 3000:IN JX NT0CFCFCFNTb STSTCF:SN0:K0# KK1:K4K1:VV1YV:9:"SCORE";1);N1;:": ";W$:V(37):V:BK$k W$"GO"2130{*W$""20704NN1:X(N,J1)(W$)>V2:(K1)91:(BK$W$,9)H2060RN(J)N:J:\430:2700 J1NG:C$(J)(J):J 31Tl12:9:"(2 TO ";MTX;")":11:5:"NUMBER OF GROUPS";:": ";W$:NG(W$):W$((W$))NG2NGMTX2010:23:"TYPE ";::" GO ";::" AFTER LAST SCORE IN THE GROUP."35,20:1:J1NG7:"-------- GROUP ";J;" --------"::::V(37)1 D$:9000@ CHECK DATA2EMSNS:MSMAXMSMAXJ:"PRESS 'RETURN' IF SCORE IS CORRECT":"ENTER NEW SCORE IF DESIRED.":34,3:V9TI1MS:V5:"PAIR";(BK$(I),3);".";^V2:7:"DEP. VAR.: ";Y(I);h"? ";W$:W$""Y(I)(W$)!rV5:;2);:ZXA:1200:>:1);"CORRELATION:";2);:ZXR:1200:h:4);"R-SQUARE:";2);:ZXR2:1200::"SIGNIFICANCE:";2);:ZXPR:1200::4);"MEANS:";:ZF%12:ZXMY:1200:ZXMX:1200::"STD. DEV.:";:ZXSY:1200:ZXSX:1200::DR#:32,7:33,25:7:(DD$,23):"STATISTICS WITH FINESSE":"COPYRIGHT (C) 1984"#:"JAMES BOLDING":"P.O. BOX 339":"FAYETTEVILLE, AR 72702":(DD$,23):#24:5:"BYE-BYE";:23:1:"PR#0"a<#23:1:"ENTER A=ANOTHER PROBLEM, E=EDIT DATA,":6);"P=PRINTOUT, M=MENU, S=STOP.";rF#24:37:P9$P#P90:WS$"AEPMS":I15:P9$(WS$,I,1)P9I:I5Z#I:P9150,8000,4000,9060,9100:9030d#460:D$;"RUN HELLO ,D1"#ADDRESS TAGNN1:KK1:K4K1:VV1`V:1:6);"SCORE";2);N;": ";X(I);:"? ";W$:V(37):V:BK$wW$""X(I)(W$)V2:(K1)91:ZXX(I):1200IJ:::22:958:440:CODE0ī3000(# TAG ON END OF PROGRAM2#W(0):D$(4):D$:D$;"PRESS 'RETURN' IF SCORE IS CORRECT":6);"ENTER CHANGE MF DESIRED";i^35,20:ZF%F%:ZD%DC%:1:J1NGh::7:"-------- GROUP ";J;" --------"::::V(37)1rNJ(J)0ĺ"NO SCORES FOR GROUP ";J:8120|N0:K0:I1NTGP$(I)C$(J)3110:J1NG:KK1DK1644506NK1:P93J1İ410cX:7);"GROUP";6);"N";4);"MEAN RANK":obJ10ĺl(BK$C$(J),11);:ZXNJ(J):ZF%8:ZD%0:1200vZXMX(J):ZF%12:ZD%2:1200:J:P93ĺ:DD$9000@CHECK DATADT:23:3);10:ZD%0:ZXNT:1200:H::10);"H-VALUE:";2);:ZD%2:ZXHR:1200:::6);"H CORRECTED:";2);:ZXHC:1200::8);"FOR TIES"::5);"SIGNIFICANCE:";4);:ZD%4:ZXPX:1200::6);"CHI-SQUARE":DD$:P93İ4100PRINT MEANS:K99 ";NJ(J);" SCORES FOR GROUP ";C$(J);":":1"H1Q'I1NT:GP$(I)C$(J)4170e6HZF%39H1:@ZXX(I):1200:HHZF%JIT::Jh PRINT RESULTSrP93ė|:DD$::9);"KRUSKAL-WALLIS ANOVA":::6);"N OF SCORES:";:ZF%DO YOU WANT TO PRINT THE DATA ?":13:8);"< Y > YES, PRINT DATA":15:8);"< N > NO, ONLY RESULTS"18:9:"RESPONSE...";:W$:W$"Y"W$"N"4030500W$"N"4200 PRINT SCORES ZF%F%:ZD%DC%:DD$:)J1NG:"THEN N20:RKRX(I):RK03200(S K1NT=X X(I)X(K)3180Yb T1T11:N2N21:RX(K)0ml K:T1TIEINTv N21CRCR(N23N2)(NT3NT) I CR0HCHRCR 1000:1400:4200OUTPUT ON PRINTERNT50W$"Y":4050f:10:5:"BK$(NTI),5)& GP$(I)C$(J)3110J NJ(J)NJ(J)1:MX(J)MX(J)RX(I)& I:NJ(J)0SRSRMX(J)MX(J)NJ(J):MX(J)MX(J)NJ(J):DFDF10 J:20:1:BK$: HR(12(NT(NT1)))SR3(NT1)D T10:CR1:I1NT:20:14:"LAST PASS";(BK$(NTI),4)000 COMPUTE HR 430Y SR0:TIE0:I1NT:20:14:"PASS ONE:";(BK$(NTI),4)k RK.5:K1NT X(I)X(K)RKRK.5:TIETIE1 X(I)X(K)RKRK1 K:RX(I)RK:I DF1:J1NG:NJ(J)0:MX(J)0 I1NT:20:14:"GROUP ";J;":";(1:K4K1:VV1IV:9:"SCORE";2);N1;":";2);:W$:V(37):V:BK$[ W$"GO"2130s*W$((W$))ī20704NANA1:NTNT1:X(NT)(W$):GP$(NT)C$(J)>V2:(K1)91:(BK$(X(NT)),9)H2060RNA2JNG\J::NA2470f430:3" )":11:6:"HOW MANY GROUPS";:"? ";W$:NG(W$)RW$(NG)NG2NGMTX2010:23:3);"TYPE ";::" GO ";::" AFTER LAST SCORE."NT0:35,20:1:J1NG:C$(J)(J):NA07:"-------- GROUP ";J;" --------"::::V(37)1K0 KK(CHI2)R" (DF2)DF215106 J1:CHI01510T J(2CHI3.141592653599)` L1:M1l DFDF2{ MMCHIDF M.00000011570 LLM 1520 "PX1JKL ,PX.0001PX.0001 6  KEYBOARD INPUT212:8:"( 2 TO ";MTX;' ZX$(((ZX))"00000000",2,ZD%1)M ZR$"":ZD%0ZR$"."(ZX$,ZD%)] ZX$ZF$ZR$t (BK$ZX$,ZF%);: xPROBABILITY PX1:CHIHC CHI100PX0:1580 DF04000 R1:J1 IDF22 RRI:I KCHI(((DF1)2))/A(A10000)(10000):B(B10000)(10000)T:4);"Y = ";:B.01ĺB;:4260oZXB:ZF%7:ZD%4:1200" * X ";:A0ĺ"+ ";A.01ĺA:4290A:DD$:ZF%14:ZD%4:1);"COEFFICIENT:";2);:ZXB:1200::4);"CONSTANT:"MAXMSMAXA:DD$::"CASE";6);"DEPENDENT";5);"PREDICTOR":h"ZF%14:I1MS:(BK$(I),3);".";,ZXY(I):ZD%D1%:12006ZXX(I):ZD%D2%:1200:@I:MSNSĺ:"ONLY ";MAX;" CASES ARE IN MEMORY."h PRINT RESULTSr:P93ė|DD$:4060|:10:5:"DO YOU WANT TO PRINT THE DATA ?":13:9);"< Y > YES, PRINT DATA":15:9);"< N > NO, ONLY RESULTS"18:12:"RESPONSE...";:W$:W$"Y"W$"N"4040500:510W$"N"42004100PRINT DATA MSNS:MS$: SY0:D10SY(D1(NS(NS1)))_D B0:SX0:D20SX(D2(NS(NS1))):B(NSYXY1X1)D2ul MYY1NS:MXX1NSv AMYBMX R0:D1D203220 R(NSYXY1X1)(D1D2) R2RR 1000:1400:4200OUTPUT ON PRINTERNS51W$"Y":410:200 ACCUMULATE7 Y10:X10:Y20:X20:YX0k I1NS:23:13:"COUNT DOWN";(BK$(NSI),4); Y1Y1Y(I):X1X1X(I) Y2Y2Y(I)Y(I):X2X2X(I)X(I) YXYXY(I)X(I):I COMPUTE& 23:1:8680 D1NSY2Y1Y1:D2NSX2X1X11ZSD2:ZWD1:Z1F, ZJ29ZS:ZK29ZWZ ZL((1ZK)Z(13)1ZJ)(ZKZ(23)ZJ)| ZW4ZLZL(1.08ZL4ZW3) PR.5(1ZL(.196854ZL(.115194ZL(.000344ZL.019527))))4 F1PR1PR PR.0001PR.0001  KEYBOARD INPU(ZD%1) ZXZX(ZX)E (ZX)1ZX$("0.00000000",ZD%2):1300l ZX$(((ZX))"00000000",2,ZD%1) ZR$"":ZD%0ZR$"."(ZX$,ZD%) ZX$ZF$ZR$ (BK$ZX$,ZF%);: xCOMPUTE PROBABILITY PR1:F.001ī1490 ZF:ZSD1:ZWD2:FK,1)Z%K $F%Z%F%Z%: .Z%0DC%ZL%Z%DC%ZL%Z%^ 8K:I:J:F%F%DC%1:F%6F%6d Bw FORMAT NUMBER ZX(ZX10ZD%.5)(10ZD%.5) ZF$(3213(ZX0))(((ZX))) ZF%ZD%(ZF$)1ZF%ZD%(ZF$)1 ZX(ZX)((ZX))10IN ONE GROUP.":410:200@ :23:17::"PRINTING"::D$;IO$:d  COMPUTE SIZE OF DATA NUMBERSz F%0:DC%0:Z$"." J1NG:NE10:NEN(J)NEN(J) I1NE:XX(I,J1):(X).01XX(X) ZT$(X):ZL%(ZT$) Z%0:K1ZL% Z$(ZT$,6);"ONE-WAY ANALYSIS OF VARIANCE"::"COPYRIGHT 1984";12);"JAMES BOLDING":DD$Y 2000 23:6:"TYPE 'C' TO CONTINUE...";:W$::W$"C"410 : OP3ė 23:17::"WORKING":: :23:17::"LOADING":: :11:"TOO FEW SCORES ONE-WAY ANOVA (dONE-WAY ANOVA7nIO$"PR#1"gxMAX200:MTX12:X(200,11),N(12),M(12),S(12)PW59:D%2:D$(4):I139:DD$DD$"-":BK$BK$" ":IIM(12),OM(12),PM(12,12),SM(12,12)NA$(100),X$(100),C$(12)C60O ::DD$::            I:F%F%DC%1:F%6F%6 B2 FORMAT NUMBERV ZX(ZX10ZD%.5)(10ZD%.5)z ZF$(3213(ZX0))(((ZX))) ZF%ZD%(ZF$)1ZF%ZD%(ZF$)1 ZX(ZX)((ZX))10(ZD%1) ZXZX(ZX) (ZX)1ZX$("0.00000000",ZD%2):1300NTING"::D$;IO$:6  COMPUTE SIZE OF DATA NUMBERS_ F%0:DC%0:Z$".":NE10:NENTNENT I1NE:XX(I):(X).01XX(X) ZT$(X):ZL%(ZT$) Z%0:K1ZL% Z$(ZT$,K,1)Z%K $F%Z%F%Z% .Z%0DC%ZL%Z%DC%ZL%Z% 8K:OPYRIGHT 1984";12);"JAMES BOLDING":DD$2 2000s W(0):23:8:"TYPE 'C' TO CONTINUE...";:W$::W$"C"410{ : OP3ė 23:17::"WORKING":: :23:17::"LOADING":: :11:"TOO FEW CASES.":410:200 :23:17::"PRIKRUSKAL-WALLIS)dKRUSKAL-WALLIS8nIO$"PR#1"lxD%2:D$(4):I139:DD$DD$"-":BK$BK$" ":IMAX1000:MTX20:X(1000),RX(1000),GP$(1000),C$(20),NJ(20),MX(20)NA$(100),X$(100)C60( :DD$::9);"KRUSKAL-WALLIS ANOVA"::"C#24:5:"BYE-BYE";:23:1:IIGNIFICANCE LEVEL ";:ZXPX:ZF%15:ZD%D%:1200:::DD$B9000R@CHECK DATAJ:5:"PRESS RETURN IF FREQUENCY IS CORRECT"T"ENTER NEW FREQUENCY IF DESIRED.":ZF%((S))D%1:ZD%0^:I1J:8:"CELL ";I;".";:(BK$((O(I)),ZF%),ZF%);!E(I):1200:HH9:H30ĺ:H1-JI:::DD$=TP93İ410PhPRINT RESULTS_rP834250n|P93İ500{P93ė:DD$:"NUMBER OF OBSERVATIONS";:ZXN:ZF%11:ZD%0:1200::"CHI-SQUARE";10);:ZXC:ZF%15:ZD%D%:1200:8:"S500:P93:P83"PRINT OBS & EXP1:P93ėWDD$::"OBSERVED FREQUENCIES:":"ZF%9:ZD%0:H1:I1J:H:(BK$((O(I)),ZF%),ZF%);:HH9:H30ĺ:H1,I:J30P93İ410:DD$6::"EXPECTED FREQUENCIES:":@ZD%DC%:H1:I1J:H:ZX! SNāI1J:E(I)NE(I)S:I0 C0:I1JX CC(O(I)E(I))(O(I)E(I))E(I):Ib 1400l 4200PRINT EXP VALS:11:12:"< M > MONITOR"::11);"< P > PRINTER"16:12:"SELECTION...";:W$::W$"M"W$"P"4020 W$"P"İ"Y"3000>ENTER EXPECTED?H:"ENTER THE EXPECTED VALUES"]R"OR MODEL DISTRIBUTION:"l\:I1J:a"ENTER VALUE FOR CELL ";I;:": ";W$bW$((W$))Č998:2145fE(I)(W$):I COMPUTE CHI-SQUARE 440:S0:I1J:SSE(I):IJJ1:O(J)(W$):NNO(J):2020` ::6:"ARE ALL OF THE EXPECTED":"FREQUENCIES THE SAME ?" 11:1:9);"< Y > YES, THE SAME":14:9);"< N > NO, DIFFERENT":18:11);"RESPONSE...";:W$ W$"Y"W$"N"2070 *:I1J:E(I)NJ:I4W$10 PX1JJKL) "PX.0001PX.0001/ ,D  ENTER OBSERVED J0:N0:23:"TYPE ";::" GO ";::" AFTER LAST CELL FREQUENCY":35,20:7 :::9);"FOR CELL ";J1;: 998:8:"ENTER FREQUENCY: ";W$ W$"GO"ī2060 W$""2025  DFJ1:PX1$ C100PX0:15707 C0DF04200D R1:JJ1S IDF22` RRI:I KC(((DF1)2))(C2)R (DF2)DF21500 JJ(2C3.141592653599) L1:M1 DFDF2 MMCDF M.00000011560 LLM 15(ZF$)1ZF%ZD%(ZF$)1< ZX(ZX)((ZX))10(ZD%1)L ZXZX(ZX)y (ZX)1ZX$("0.00000000",ZD%2):1300 ZX$(((ZX))"00000000",2,ZD%1) ZR$"":ZD%0ZR$"."(ZX$,ZD%) ZX$ZF$ZR$ (BK$ZX$,ZF%);: xPROBABILITYS 'C' TO CONTINUE...";:W$:W$"C"4101 ::P :20:16::"WORKING"::o :23:17::"LOADING":: :23:17::"PRINTING"::D$;IO$:  FORMAT NUMBER ZX(ZX10ZD%.5)(10ZD%.5) ZF$(3213(ZX0))(((ZX))) ZF%ZD%CHI-SQUARE FIT)dCHI-SQUARE FIT8nIO$"PR#1"~xD%4:DC%2:P91:O(100),E(100):I139:DD$DD$"-":BK$BK$" ":I:DD$::2);"CHI-SQUARE TEST FOR GOODNESS OF FIT"::"COPYRIGHT 1984";12);"JAMES BOLDING":DD$2000' 23:1:"PRES    "P.O. BOX 339":"FAYETTEVILLE, AR 72702":(DD$,23):W#24:5:"BYE-BYE";:23:1:R:32,7:33,25:7:(DD$,23):"STATISTICS WITH FINESSE":"COPYRIGHT (C) 1984":"JAMES BOLDING":"P.O. BOX 339":"FAYETTEVILLE, AR 72702":(DD$,23):24:5:"BYE-BYE";:23:1:IDIT DATA,":6);"P=PRINTOUT, M=MENU, S=STOP. ";Bv24:37:P9$wP90:WS$"AEPMS":I15:P9$(WS$,I,1)P9I:I5I:P9200,6000,7060,7080,7100:7030:23:17::"PRINTING"::D$;IO$4000460:D$;"RUN HELLO ,D1"ADDRESS TAGCORRECT":4);"ENTER CHANGE IF DESIRED";:V3jV3:8:"SCORE";2);I;":";2);X(I);:"? ";W$:V3:868W$""X(I)(W$)V:(K1)91:(BK$(X(I)),9);:I440:3000XTAGbD$(4):D$;"PR#0"1l23:"ENTER A=ANOTHER PROBLEM, E=E,9):V2:868:8);"PREDICTOR:";D" ";X$:X$"GO"ĉ:430:2700T X$""2060x*V5:21:(BK$X$,9):V2:BK$4NSNS1:Y(NS)(Y$):X(NS)(X$)::V(37)2:2030 J11:J22:NA$(1)"SCORE 1":NA$(2)"SCORE 2"  NS2ė:11:"TOO FEW CASES."7:"PRESS 'RETURN' AFTER EACH SCORE.":24:8:"TYPE ";::" GO ";::" AFTER LAST SCORE.";qV15:34,6:35,20V5:3:"PAIR";(BK$(NS1)":",5):V2:4:"DEPENDENT VAR.:";" ";Y$:Y$"GO"ĉ:430:2700Y$""2030! V5:12:(BK$Y$SDF:W1:Z1F#J29S:K29WLL((1K)Z(13)1J)(KZ(23)J)iW4LL(1.08L4W3)PR.5(1L(.196854L(.115194L(.000344L.019527))))4F1PR1PRPRPR2:PR.0001PR.0001 KEYBOARD INPUTNS0[0000",ZD%2):13009 ZX$(((ZX))"00000000",2,ZD%1)_ ZR$"":ZD%0ZR$"."(ZX$,ZD%)o ZX$ZF$ZR$ (BK$ZX$,ZF%);: xCOMPUTE PROBABILITY PR0:NS3RR.999ī1490 F(NS2)R2(1R2):DFNS2:F.0011490ZF:S1:WDF:F1F2%4D2% F1%7F1%7+ F2%7F2%71 D FORMAT NUMBERh ZX(ZX10ZD%.5)(10ZD%.5) ZF$(3213(ZX0))(((ZX))) ZF%ZD%(ZF$)1ZF%ZD%(ZF$)1 ZX(ZX)((ZX))10(ZD%1) ZXZX(ZX) (ZX)1ZX$("0.00001)Z1%M $M* .Z1%0F1%ZL%F1%ZL%R 8Z2%0:M1ZM%:Z$(ZX$,M,1)Z2%MY BMt LZ2%0F2%ZM%F2%ZM% VF1%Z1%F1%Z1% `F2%Z2%F2%Z2% jZ1%0D1%ZL%Z1%D1%ZL%Z1% tZ2%0D2%ZM%Z2%D2%ZM%Z2% ~I:F1%F1%4D1%:F2%ESSE":"COPYRIGHT (C) 1984"h#:"JAMES BOLDING":"P.O. BOX 339":"FAYETTEVILLE, AR72702":(DD$,23):#24:5:"BYE-BYE";:23:1:II:A,":6);"P=PRINTOUT, M=MENU, S=STOP. ";;F#24:37:P9$pP#P90:WS$"AEPMS":I15:P9$(WS$,I,1)P9I:I5Z#I:P9200,8000,4000,9060,9100:9030d#460:D$;"RUN HELLO ,D1"#ADDRESS TAG#:32,7:33,25:7:(DD$,23):"STATISTICS WITH FIN ";W$:V3:868'W$""X(I)(W$)OV:(K1)91:(BK$(X(I)),9);:IN9Nĺ::"ONLY ";MAX;" SCORES ARE IN MEMORY."::9000430:3000(# TAG ON END OF PROGRAM2#D$(4):D$:D$;"PR#0"*<#23:"ENTER A=ANOTHER PROBLEM, E=EDIT DATLED"::DD$:9000"@ EDIT DATA :JN9N:N9MAXN9MAXVTK0:V999:I1N9:KK1k^K4K1::VV1zhV188060r:23:3);"PRESS 'RETURN' IF SCORE IS CORRECT":4);"ENTER CHANGE IF DESIRED";:V3|V3:8:"SCORE";2);I;":";2);X(I);:"? LATION";:18:ZXA:1200::2);"MEAN"P:"DIFFERENCE";:18:ZXMXA:1200:::"STANDARD";:18:ZXSD:1200::"DEVIATION":"T-VALUE";:18:ZXT:1200:1400:"SIGNIFICANCE";:18:ZXPR:ZF%12DC%D%4:ZD%4:1200:1);"ONE-TAI1:L5ĺ:L12"ZXX(I):ZF%F%:ZD%DC%:1200:I:d,N9Nĺ:"ONLY ";MAX;" SCORES ARE IN MEMORY."whPRINT RESULTSm:DD$::"SAMPLE SIZE";:18:ZXN:ZF%12DC%D%:ZD%0:1200:r:"SAMPLE MEAN";:18:ZXMX:ZF%12:ZD%DC%D%:1200:%|:"POPU2);NA$(J2) . COMPUTE SIZE OF NUMBERSd Z$".":F1%0:F2%0:D1%0:D2%0:ZN10:ZNNSZNNS I1ZN:ZYY(I):(ZY).01ZYZY(ZY) ZXX(I):(ZX).01ZXZX(ZX) ZY$(ZY):ZL%(ZY$):ZX$(ZX):ZM%(ZX$) Z1%0:M1ZL%:Z$(ZY$,M,2000@ 23:7:"TYPE 'C' TO CONTINUE...";:W$::W$"C"410F L i 20:17::"WORKING":: :23:17::"LOADING":: :23:17::"PRINTING"::D$;IO$: DD$ :3);"DEPENDENT VAR.:";2);NA$(J1) :3);"PREDICTOR VAR.:";LINEAR REGRESSION/dLINEAR REGRESSION>nIO$"PR#1"rxD%2:D$(4):I139:DD$DD$"-":BK$BK$" ":IMAX1000:X(1000),Y(1000)NA$(100),X$(100):DD$::10);"LINEAR REGRESSION"::"COPYRIGHT 1984";12);"JAMES BOLDING":DD$         z#?x?0?   Ԡ Ǡ   Ӡ٠ӠӠƠŠҠΠ Πέ٠Π̭Ӡ ڭӠ ӠԭԠԭԠӠ! ԭԠŠ ŭ٠ ϭ٠ϊΠ ɭŠ ɭŠԠԠ ͠ Π:(K1)91:ZXDA(I,J):1200:J4I:::22:958LNSMAXİ440:3500h(# TAG ON END OF PROGRAM2#D$(4):D$;"PR#0"<#23:1:"ENTER A=ANOTHER PROBLEM, E=EDIT DATA,":6);"P=PRINTOUT, M=MENU, S=STOP.";F#24:37:P9$ P#P90:WS$"AEPMS"W$"M"1204W(W$):W1690,1700,1710,1720:1770LNB$"WILCOXON":600hNB$"MANN-WHITNEY":600NB$"FRIEDMAN":600NB$"KRUSKAL-WALLIS":600ADDRESS TAG::32,7:33,25:7:(DD$,23):"STATISTICS WITH FINESSE":"COPYRIGHT (C) 19AN ANOVA":6);"DIFFERENCE IN TWO OR MORE":6);"MEASURES FOR EACH PERSON."r16:"< 4 > KRUSKAL-WALLIS ANOVA":6);"TEST FOR DIFFERENCE AMONG TWO":6);"OR MORE INDEPENDENT GROUPS."|21:12:"< M > MENU" 23:12:"SELECTION...";:W$::W(W$):L,J:3:"PROGRAMS FOR ORDINAL MEASURES:"T4:"< 1 > WILCOXON T-TEST":6);"TEST FOR DIFFERENCE IN":6);"PRE AND POST MEASURES."^8:"< 2 > MANN-WHITNEY U-TEST":6);"TEST FOR DIFFERENCE IN TWO":6);"INDEPENDENT GROUPS."Kh12:"< 3 > FRIEDM MENU">23:12:"SELECTION...";:W$::W(W$):W$"M"120gW(W$):W1490,1500,1510,1520:1470NB$"ONE-WAY ANOVA":600NB$"TWO-WAY ANOVA":600NB$"TREATMENTS BY SUBJECTS":600NB$"ANALYSIS OF COVARIANCE":600@SELECT ORDINAA":6);"ALLOWS FOR TWO INDEPENDENT":6);"CATAGORY VARIABLES"12:"< 3 > TREATMENTS BY SUBJECTS":6);"ALL SUBJECTS PARTICIPATED":6);"IN ALL TREATMENTS."16:"< 4 > ANALYSIS OF COVARIANCE":6);"CONTROLS FOR ONE COVARIATE."21:12:"< M >0NB$"T-TEST":6003 NB$"T-TEST PAIRS":600MNB$"T-TEST ONE":600_xSELECT ANOVA{:7:"ANOVA PROGRAMS:"4:"< 1 > ONE-WAY ANOVA":6);"TEST FOR SIGNIFICANT DIFFERENCES":6);"IN TWO OR MORE GROUP MEANS.">8:"< 2 > TWO-WAY ANOVRES":6);"SUCH AS PRETEST VERSUS POSTTEST."14:"< 3 > ONE SAMPLE T-TEST":6);"TO COMPARE A SAMPLE MEAN":6);"TO A KNOWN POPULATION VALUE."20:12:"< M > MENU"23:12:"SELECTION...";:W$::W(W$):W$"M"120W1280,1290,1300:126080:1050#.NB$"CHI-SQUARE":600A8NB$"CHI-SQUARE FIT":600U SELECT T-TESTu:3:7:"T-TEST PROGRAMS:"6:"< 1 > INDEPENDENT T-TEST":6);"TO COMPARE MEANS FROM":6);"TWO INDEPENDENT SAMPLES.",10:"< 2 > T-TEST FOR DEPENDENT MEASUTWO CATEGORY VARIALBES." 13:"< 2 > GOODNESS-OF-FIT":6);"IS THE DISTRIBUTION OF SAMPLE":6);"SCORES DIFFERENT FROM A":6);"SPECIFIED DISTRIBUTION?" 20:12:"< M > MENU" 23:12:"SELECTION...";:W$::W(W$):W$"M"120 $(W$)1070,1:23:17::"LOADING":, l(4)"RUN"NB$\ v:D$;"BLOAD RUNTIME"(13)(4)"BRUN"NB$s SELECT CHI-SQUARE :3:7:"CHI-SQUARE PROGRAMS:" 7:"< 1 > TEST OF INDEPENDENCE":6);"TO TEST FOR A SIGNIFICANT":6);"RELATIONSHIP BETWEEN":6);"0,440,1200,470,2000:330. LIST OF PROGRAMSB NB$"MEAN":600R CHI-SQUAREi NB$"PEARSON":600 NB$"LINEAR REGRESSION":600 NB$"PERCENT":600 NB$"FREQUENCIES":600 NB$"Z-SCORES":600 NB$"RANDOM":600 XRUN PROGRAM bR REGRESSION"% ,7:"< T > T-TEST"J 67:"< Z > Z-SCORES & T-SCORES"c @:14:"< S > STOP" J23:14:"SELECTION...";:W$: TOP0:WL12:WS$"AXCFMNOPRTZS" ^I1WL:W$(WS$,I,1)OPI:IWL hI r:OP1400,1000,430,460,410,480,1600,45ARIANCE"$ 7:"< X > CHI-SQUARE"I 7:"< C > PEARSON CORRELATION"f 7:"< F > FREQUENCIES" 7:"< M > MEAN AND STD. DEV." 7:"< N > RANDOM NUMBERS" 7:"< O > ORDINAL STATISTICS" 7:"< P > PERCENTAGE" "7:"< R > LINEAs HELLOdHELLO>nI139:DD$DD$"-":BK$BK$" ":Ix:DD$::7);"STATISTICS WITH FINESSE"::"COPYRIGHT 1984";12);"JAMES BOLDING":DD$D$(4)9:"CAPS LOCK MUST BE DOWN"9:PRINT MENU OPTIONS 7:"< A > ANALYSIS OF V      0000",ZD%2):13009 ZX$(((ZX))"00000000",2,ZD%1)_ ZR$"":ZD%0ZR$"."(ZX$,ZD%)o ZX$ZF$ZR$ (BK$ZX$,ZF%);: x COMPUTE PROBABILITY P1:F.0011480 SD1:RD2:ZF:F1SD2:RD1:Z1F J29S:K29R L((1K)Z:32,7:33,25:7:(DD$,23):"STATISTICS WITH FINESSE":"COPYRIGHT (C) 1984":"JAMES BOLDING":"P.O. BOX 339":"FAYETTEVILLE, AR 72702":(DD$,23):24:5:"BYE-BYE";:23:1:IITA,":6);"P=PRINTOUT, M=MENU, S=STOP. ";<v24:37:P9$qP90:WS$"AEPMS":I15:P9$(WS$,I,1)P9I:I5I:P9200,6000,7060,7080,7100:7030:23:17::"PRINTING"::D$;IO$4000460:D$;"RUN HELLO ,D1"ADDRESS TAGLMSNS:MSMAXMSMAXM:DD$::"CASE";6);"DEPENDENT";5);"PREDICTOR":t"ZF%14:I1MS:(BK$(I),3);".";,ZXY(I):ZD%D1%:12006ZXX(I):ZD%D2%:1200:@I:MSNSĺ:"ONLY ";MAX;" CASES ARE IN MEMORY."h PRINT RESULTSr:P93NS51W$"Y":4060:10:5:"DO YOU WANT TO PRINT THE DATA ?":13:9);"< Y > YES, PRINT DATA":15:9);"< N > NO, ONLY RESULTS"18:12:"RESPONSE...";:W$:W$"Y"W$"N"4040500:510W$"N"42004100PRINT DATANSX2X1X10: SY0:D10SY(D1(NS(NS1)))kD B0:SX0:D20SX(D2(NS(NS1))):B(NSYXY1X1)D2l MYY1NS:MXX1NSv AMYBMX R0:D1D203220 R(NSYXY1X1)(D1D2) R2RR 1000:1400:4200OUTPUT ON PRINTER FEW CASES.":410:200& ACCUMULATEC Y10:X10:Y20:X20:YX0w I1NS:23:13:"COUNT DOWN";(BK$(NSI),4); Y1Y1Y(I):X1X1X(I) Y2Y2Y(I)Y(I):X2X2X(I)X(I) YXYXY(I)X(I):I COMPUTE& 23:1:868 0 D1NSY2Y1Y1:D2BK$Y$,9):V2:868:8);"PREDICTOR:";2);IX$:X$"GO"ĉ:430:2700` X$((X$))2060*V5:21:(BK$X$,9):V2:BK$4NSNS1:Y(NS)(Y$):X(NS)(X$)::V(37)2:2030 J11:J22:NA$(1)"SCORE 1":NA$(2)"SCORE 2" NS2ė:11:"TOO7:"PRESS 'RETURN' AFTER EACH SCORE.":24:8:"TYPE ";::" GO ";::" AFTER LAST SCORE.";qV15:34,6:35,20V5:3:"PAIR";(BK$(NS1)":",5):V2:4:"DEPENDENT VAR.:";2);Y$:Y$"GO"ĉ:430:2700Y$((Y$))2030+ V5:12:(SDF:W1:Z1F#J29S:K29WLL((1K)Z(13)1J)(KZ(23)J)iW4LL(1.08L4W3)PR.5(1L(.196854L(.115194L(.000344L.019527))))4F1PR1PRPRPR2:PR.0001PR.0001 KEYBOARD INPUTNS0[0000",ZD%2):13009 ZX$(((ZX))"00000000",2,ZD%1)_ ZR$"":ZD%0ZR$"."(ZX$,ZD%)o ZX$ZF$ZR$ (BK$ZX$,ZF%);: xCOMPUTE PROBABILITY PR0:NS3RR.999ī1490 F(NS2)R2(1R2):DFNS2:F.0011490ZF:S1:WDF:F1F2%4D2% F1%7F1%7+ F2%7F2%71 D FORMAT NUMBERh ZX(ZX10ZD%.5)(10ZD%.5) ZF$(3213(ZX0))(((ZX))) ZF%ZD%(ZF$)1ZF%ZD%(ZF$)1 ZX(ZX)((ZX))10(ZD%1) ZXZX(ZX) (ZX)1ZX$("0.00001)Z1%M $M* .Z1%0F1%ZL%F1%ZL%R 8Z2%0:M1ZM%:Z$(ZX$,M,1)Z2%MY BMt LZ2%0F2%ZM%F2%ZM% VF1%Z1%F1%Z1% `F2%Z2%F2%Z2% jZ1%0D1%ZL%Z1%D1%ZL%Z1% tZ2%0D2%ZM%Z2%D2%ZM%Z2% ~I:F1%F1%4D1%:F2%2);NA$(J2) . COMPUTE SIZE OF NUMBERSd Z$".":F1%0:F2%0:D1%0:D2%0:ZN10:ZNNSZNNS I1ZN:ZYY(I):(ZY).01ZYZY(ZY) ZXX(I):(ZX).01ZXZX(ZX) ZY$(ZY):ZL%(ZY$):ZX$(ZX):ZM%(ZX$) Z1%0:M1ZL%:Z$(ZY$,M,E, AR 72702":(DD$,23)::#24:5:"BYE-BYE";:23:1:I23:1:I:I15:P9$(WS$,I,1)P9I:I5IZ#I:P9200,8000,4000,9060,9100:9030hd#460:D$;"RUN HELLO ,D1"y#ADDRESS TAG#:32,7:33,25:7:(DD$,23):"STATISTICS WITH FINESSE":"COPYRIGHT (C) 1984"#:"JAMES BOLDING":"P.O. BOX 339":"FAYETTEVILL     $:V(37):V:868* W$"GO"JNT:2120:*W$""2070O4DA(NS1,J)(W$)p>V2:(K1)91:(BK$W$,9)HJ:W$"GO"JNT:2140RNSNS1:2040\:430:2700 J1NT:NA$(J)(J):T(J)J:J COMPUTATION 3400 I1NS:21:12$):NT2NTMTXW$((W$))2010[:23:8:"TYPE ";::" GO ";::" AFTER LAST SCORE."n35,20:1:NS0:7:"--- SCORES FOR PERSON ";NS1;" ---"::::V(37)1K0:J1NT KK1:K4K1:VV1V:7:"TREATMENT";1);J;":";:" ";W(13)1J)(KZ(23)J)6 R4LL(1.08L4R3)s P.5(1L(.196854L(.115194L(.000344L.019527))))4 F1P1P P.0001P.0001   KEYBOARD INPUT!13:6:"(2 TO ";MTX;")":12:2:"NUMBER OF TREATMENTS";:": ";W$:NT(W0 d#460:D$;"RUN HELLO ,D1"1#ADDRESS TAG#:32,7:33,25:7:(DD$,23):"STATISTICS WITH FINESSE":"COPYRIGHT (C) 1984"#:"JAMES BOLDING":"P.O. BOX 339":"FAYETTEVILLE, AR 72702":(DD$,23):#24:5:"BYE-BYE";:23:1:II(# TAG ON END OF PROGRAM<2#D$(4):P91::D$;"PR#0"<#23:"ENTER A=ANOTHER PROBLEM, R=REVIEW,":6);"P=PRINTOUT, M=MENU, S=STOP. ";F#24:37:P9$P#P90:WS$"ARPMS":I15:P9$(WS$,I,1)P9I:I5Z#I:P9200,8000,4000,9060,9100:903V:(K1)91:ZXX%(I):490:I)9000EK0:V999:I1S%:KK1ZK4K1::VV1iV188160:24:3);"PRESS 'RETURN' FOR NEXT NUMBER":V3V3:11:"NUMBER";2);I;":";2);Y%(I);:"? ";W$:V3:868V:(K1)91:ZXY%(I):490:15:13:"RESPONSE...";:W$:6^W$"R"W$"A"8020GhW$"A"8120crK0:V999:I1S%:KK1x|K4K1::VV1V188090:24:3);"PRESS 'RETURN' FOR NEXT NUMBER":V3V3:11:"NUMBER";2);I;":";2);X%(I);:"? ";W$:V3:868R:"C:H1:K1:I1S%:HLNCKH1:KK1::P93K18K1:410_H:ZXY%(I):490:HHLNuI:P93ĺ::DD$"9000@CHECK DATAJ:5:4:"HOW DO YOU WANT THE NUMBERS ?":9:9:"< R > RANDOM ORDER":11:9:"< A > ASSENDING ORDER"TRS LN((N%))2:P93ė8 CK39:P93CK39:500X "THE NUMBERS AS SELECTED:" :H1:K1:I1S%:HLNCKH1:KK1::P93K18K1:410 H:ZXX%(I):490:HHLN I:: P93S%40İ410 P93ĺDD$:"THE NUMBERS IN ORDE RI. \J0:I1N%:Y%(I)0JJ1:Y%(J)I5 fIF pS%724000 z:10:10);"SELECTION COMPLETE":13:12);"< M > MONITOR" 15:12);"< P > PRINTER" 18:13:"RESPONSE...";:W$::W$"M"W$"P"2190 W$"P"P93  PRINT NUMBE18:"SAMPLE SIZE TOO LARGE"D 1);"RE-ENTER SAMPLE SIZE":2020` 440:I1N%:Y%(I)0:Il I1S% IR%(N%(11))1 *Y%(IR%)12080 4Y%(IR%)1:X%(I)IR% >LN((N%))2:LS((S%))2 HS%99Ģ21:12:"COUNT DOWN";:ZXS%1I:490EYBOARD INPUTm 13:6:"(MAXIMUM ";MPX;")":12:4:"SIZE OF POPULATION: ";W$:N(W$):W$(N)NMPX2010 16:10:"(MAX ";MSX;")":15:8:"SIZE OF SAMPLE: ";W$:S(W$):W$(S)SMSX2020 18:958:N%N:S%S:S%1ė:9000 S%N%2060 TINUE...";:W$:W$"C"410# :@ 23:16::"WORKING"::_ :23:17::"LOADING"::w (BK$(ZX),LN);: :23:17::"PRINTING"::D$;IO$ DD$::6);"POPULATION SIZE:";2);N% :10);"SAMPLE SIZE:";2);S% :DD$::  K  RANDOMdRANDOM)nIO$"PR#1"]xD$(4):P91:I139:DD$DD$"-":BK$BK$" ":IMPX8000:MSX3000:Y%(8000),X%(3000):DD$::12:"RANDOM SAMPLES"::"COPYRIGHT 1984";12);"JAMES BOLDING":DD$2000 23:1:"PRESS 'C' TO CON     ATION";:ZXR:ZF%13D1%D%4:ZD%4:1200:e:"SIGNIFICANCE";:ZXPR:ZF%13D1%D%3:ZD%4:1200:"ONE-TAILED"::DD$:9000@ CHECK DATAJ:"PRESS 'RETURN' IF SCORE IS CORRECT":"ENTER NEW SCORE IF DESIRED.":34,3:V9TI1N:V5:"PAI;7);T1$;T2$D:2);"N";8);(BK$(N),13D1%D%);(BK$(N),13)u:"MEAN";7);:ZXMX:ZF%13:ZD%D1%D%:1200ZXMY:ZF%13:ZD%D2%D%:1200::"STD DEV";4);:ZXSX:ZF%13:ZD%D1%D%:1200ZXSY:ZF%13:ZD%D2%D%:1200:*:"CORREL:DD$::"CASE";7);"SCORE 1";7);"SCORE 2":TZF%14:I1N:(BK$(I),3);".";n"ZXX(I):ZD%D1%:1200,ZXY(I):ZD%D2%:1200:6I::DD$:h PRINT RESULTSrP93ė:DD$|T1$(BK$"SCORE 1",13):T2$(BK$"SCORE 2",13) "ITEM"N51W$"Y":4060:10:5:"DO YOU WANT TO PRINT THE DATA ?":13:9);"< Y > YES, PRINT DATA":15:9);"< N > NO, ONLY RESULTS"18:9:"RESPONSE...";:W$:W$"Y"W$"N"4040500W$"N"42004100PRINT DATA. W1NQ1S1S1  W2NQ2S2S22 W3NXYS1S2I R0:W1W203120[& RW3(W1W2)t0 SX0:SY0:N13150: SX((Q1S1S1N)(N1))D SY((Q2S2S2N)(N1))N MXS1N:MYS2NX 1000:PR.5:N2İ1400b 4200OUTPUT ON PRINTERAT LEAST TWO SUBJECTS.":410:200* 440E COMPUTE PEARSON'S Rb S10:S20:Q10:Q20:XY0 I1N:23:13:"COUNT DOWN";(BK$(N1I),4); S1S1X(I):S2S2Y(I) Q1Q1X(I)X(I):Q2Q2Y(I)Y(I) XYXYX(I)Y(I):I 23:1:868 ";X$:X$"GO"ĉ:2700&X$""2030\ V5:13:(BK$X$,8):V2:868:11:"SCORE 2:";z" ";Y$:Y$"GO"ĉ:2700 Y$""2060*V5:23:(BK$Y$,8):V2:BK$4NN1:X(N)(X$):Y(N)(Y$)::V(37)2:2030! N2ė:11:"YOU MUST HAVE PR!PRPR2:PR.0001PR.0001'< KEYBOARD INPUTDN07:"PRESS 'RETURN' AFTER EACH SCORE.":24:8:"TYPE ";::" GO ";::" AFTER LAST SCORE.";V14:34,6:35,20V5:3:"PAIR";(BK$(N1)":",4):V2:11:"SCORE 1:";" 04TR((N2)(1RR)):FTT:DFN2:F.0011490YZF:S1:WDF:F1SDF:W1:Z1FmJ29S:K29WL((1K)Z(13)1J)(KZ(23)J)W4LL(1.08L4W3)PR.5(1L(.196854L(.115194L(.000344L.019527))))4F1PR1(ZX)((ZX))10(ZD%1)) ZXZX(ZX)V (ZX)1ZX$("0.00000000",ZD%2):1300} ZX$(((ZX))"00000000",2,ZD%1) ZR$"":ZD%0ZR$"."(ZX$,ZD%) ZX$ZF$ZR$ (BK$ZX$,ZF%);: xCOMPUTE PROBABILITYPR1:N3RR.999ī149L%Z1%* tZ2%0D2%ZM%Z2%D2%ZM%Z2%M ~I:F1%F1%4D1%:F2%F2%4D2%^ F1%7F1%7o F2%7F2%7u  FORMAT NUMBER ZX(ZX10ZD%.5)(10ZD%.5) ZF$(3213(ZX0))(((ZX))) ZF%ZD%(ZF$)1ZF%ZD%(ZF$)1 ZX(ZX):ZL%(ZX$):ZY$(ZY):ZM%(ZY$)L Z1%0:M1ZL%:Z$(ZX$,M,1)Z1%MS $Mn .Z1%0F1%ZL%F1%ZL% 8Z2%0:M1ZM%:Z$(ZY$,M,1)Z2%M BM LZ2%0F2%ZM%F2%ZM% VF1%Z1%F1%Z1% `F2%Z2%F2%Z2% jZ1%0D1%ZL%Z1%D1%ZAST"::3);"ONE COLUMN AND ONE ROW VARIABLE":W :23:17::"PRINTING"::D$;IO$:t COMPUTE SIZE OF NUMBERS Z$".":F1%0:F2%0:D1%0:D2%0:ZN10:ZNNZNN I1ZN:ZXX(I):(ZX).01ZXZX(ZX) ZYY(I):(ZY).01ZYZY(ZY)$ ZX$COEFFICIENT"::"COPYRIGHT 1984";12);"JAMES BOLDING":DD$D 2000~ 23:7:"TYPE 'C' TO CONTINUE...";:W$::W$"C"410  :20:17::"WORKING":: :23:17::"LOADING"::/ :8:13:"--- SORRY ---":12:7);"YOU MUST SELECT AT LE PEARSONdPEARSON*nIO$"PR#1"^xD%2:D$(4):I139:DD$DD$"-":BK$BK$" ":IJR(20),JC(20),NA$(100),X$(100)X(500),Y(500)N%(20,20),S1(20,20),S2(20,20),Q1(20,20),Q2(20,20),CR(20,20): :DD$::3);"PEARSON'S CORRELATION        KRUSKAL-WALLIS)dKRUSKAL-WALLIS8nIO$"PR#1"lxD%2:D$(4):I139:DD$DD$"-":BK$BK$" ":IMAX1000:MTX20:X(1000),RX(1000),GP$(1000),C$(20),NJ(20),MX(20)NA$(100),X$(100)C60( :DD$::9);"KRUSKAL-WALLIS ANOVA"::"C(I,J);:"? ";W$:V(37):V:868:=W$""DA(I,J)(W$)bV2:(K1)91:ZXDA(I,J):1200zJ:I:::22:958440:3000(# TAG ON END OF PROGRAM2#D$(4):D$;"PR#0"<#23:1:"ENTER A=ANOTHER PROBLEM, E=EDIT DATA,":6);"P=PRINTO:23:3);"PRESS 'RETURN' IF SCORE IS CORRECT":4);"ENTER CHANGE IF DESIRED";s^35,20:ZF%F%:ZD%DC%:1:I1NSh::7:"--- SCORES FOR PERSON ";I;" ---"::::V(37)1rK0:J1NT|KK1:K4K1:VV1#V:4:"TREATMENT";1);J;": ";DA:DD$:P93İ410+ PRINT MEANS=P93ė:DD$m :5:"TREATMENT";7);"MEAN";6);"STD.DEV."{:J1NT (BK$(NA$(T(J)),12),12);:ZXMT(J):ZF%12:ZD%DC%D%:1200*ZXSJ(J):1200::NT8ĺ4J:DD$:9000@EDIT DATANT:ZF%10:1200:+D30:ZXPT:ZD%4:1200:>N3:"RESIDUAL"\XZXSR:ZF%11:ZD%D%:1200xbZXDR:ZF%5:ZD%0:1200lZXVR:ZF%11:ZD%D%:1200:v:"TOTAL"ZXSG:ZF%11:ZD%D%:1200ZXDG:ZF%5:ZD%0:1200ZXVG:ZF%11:ZD%D%:1200:%10:1200(:30:ZXPB:ZD%4:1200:;"WITHIN SUBJ"YZXSW:ZF%11:ZD%D%:1200uZXDW:ZF%5:ZD%0:1200ZXVW:ZF%11:ZD%D%:1200::3:"TREATMENTS"ZXST:1200&ZXDT:ZF%5:ZD%0:12000ZXVT:ZF%11:ZD%D%:1200:ZXFTATMENTS BY SUBJECTS ANOVA":P93ĺ.1:DD$]"SOURCE AND DF VAR.EST. F-RATIO""SUM OF SQ";:33:"&PROB.":DD$:1:"BETWEEN SUBJ"ZXSB:ZF%11:ZD%D%:1200ZXDB:ZF%5:ZD%0:1200ZXVB:ZF%11:ZD%D%:1200 ZXFB:ZF"N"4030500#W$"N"42005PRINT SCORESO:DD$:ZF%F%:ZD%DC%wI1NS::"PERSON ";I;" SCORES:":"K0:J1NT:KKZF%:K39ZF%K1:,ZXDA(I,J):12006J::IhPRINT RESULTSrP93ĺ:DD$:|P93ė"6:"TRE MT(J)MT(J)X:SJ(J)SJ(J)XX% <OUTPUT ON PRINTERWNSNT50W$"Y":4050:10:5:"DO YOU WANT TO PRINT THE DATA ?":13:7);"< Y > YES, PRINT DATA":15:7);"< N > NO, ONLY RESULTS"18:10:"RESPONSE...";:W$: W$"Y"W$R! D1DB:D2DW:FFB:1400:PBPA D1DT:D2DR:FFT:1400:PTPQ 1000:4200bH ZERO ARRAYSpR MX0:SQ0\ I1NS:MS(I)0:SI(I)0:If J1NT:MT(J)0:SJ(J)0:Jp  ACCUMULATE MXMXX:SQSQXX MS(I)MS(I)X:SI(I)SI(I)XX(J)MT(J)NS:STSTZDX MT(J)MT(J)NS:SJ(J)((SJ(J)Z)(NS1)):Jcb STSTCF:SWSGSB:SRSWSTl DBNS1:DTNT1:DGNSNT1:DWDGDB:DRDWDTv VBSBDB:VWSWDW:VTSTDT:VRSRDR:VGSGDG FB9999.99:VW0FBVBVW FT9999.99:VR0FTVTV);"LAST PASS";(BK$(NSI),4)* J1NT> XDA(I,J):3500R J:21:868:Ic COMPUTATION& CF(MXMX)(NSNT):SGSQCF0 SB0:I1NS:ZMS(I)MS(I)NT:SBSBZ: MS(I)MS(I)NT:SI(I)((SI(I)Z)(NT1)):ID SBSBCFN ST0:J1NT:ZMT:23:1:I000,4000,9060,9100:90307d#460:D$;"RUN HELLO ,D1"H#ADDRESS TAG#:32,7:33,25:7:(DD$,23):"STATISTICS WITH FINESSE":"COPYRIGHT (C) 1984"#:"JAMES BOLDING":"P.O. BOX 339":"FAYETTEVILLE, AR 72702":(DD$,23): #24:5:"BYE-BYE";2 I:440:1:30009(# TAG ON END OF PROGRAMP2#D$(4):D$;"PR#0"<#23:"ENTER A=ANOTHER PROBLEM, E=EDIT DATA,":6);"P=PRINTOUT, M=MENU, S=STOP. ";F#24:37:P9$P#P90:WS$"AEPMS":I15:P9$(WS$,I,1)P9I:I5Z#I:P9200,8R";(BK$(I),3);".";5^V2:8:"SCORE 1: ";X(I);Yh"? ";S9$:S9$""X(I)(S9$)rV5:9:(BK$(X(I)),F1%):V2:868|V2:8:"SCORE 2: ";Y(I);"? ";S9$:S9$""Y(I)(S9$)V5:9F1%:(BK$(Y(I)),F2%):V2:BK$::V(37)$(((ZX))"00000000",2,ZD%1)F ZR$"":ZD%0ZR$"."(ZX$,ZD%)V ZX$ZF$ZR$m (BK$ZX$,ZF%);: xPROBABILITY PX1:CHIHC CHI100PX0:1580 DF04000 R1:J1 IDF22 RRI:I KCHI(((DF1)2))(CHI%DC%1:F%6F%6 B+ FORMAT NUMBERO ZX(ZX10ZD%.5)(10ZD%.5)s ZF$(3213(ZX0))(((ZX))) ZF%ZD%(ZF$)1ZF%ZD%(ZF$)1 ZX(ZX)((ZX))10(ZD%1) ZXZX(ZX) (ZX)1ZX$("0.00000000",ZD%2):1300 ZX:D$;IO$:/  COMPUTE SIZE OF DATA NUMBERSX F%0:DC%0:Z$".":NE10:NENTNENT~ I1NE:XX(I):(X).01XX(X) ZT$(X):ZL%(ZT$) Z%0:K1ZL% Z$(ZT$,K,1)Z%K $F%Z%F%Z% .Z%0DC%ZL%Z%DC%ZL%Z% 8K:I:F%FOPYRIGHT 1984";12);"JAMES BOLDING":DD$2 2000l 23:8:"TYPE 'C' TO CONTINUE...";:W$::W$"C"410t : OP3ė 23:17::"WORKING":: :23:17::"LOADING":: :11:"TOO FEW CASES.":410:200 :23:17::"PRINTING":(# TAG ON END OF PROGRAM22#D$(4):D$;"PR#0"<#23:"ENTER A=ANOTHER PROBLEM, E=EDIT DATA,":6);"P=PRINTOUT, M=MENU, S=STOP. ";F#24:37:P9$P#P90:WS$"AEPMS":I15:P9$(WS$,I,1)P9I:I5Z#I:P9200,8000,4000,9060,9100:9030d#' IF SCORE IS CORRECT":4);"ENTER CHANGE IF DESIRED";:V3s|V3:(NB$(I))IĖ1:(BK$(NB$(I),15),15);:80809:"CASE";2);I;": ";X(I);:"? ";W$:V3:868W$""X(I)(W$)V:(K1)91:(BK$(X(I)),9);:I:430:3000((18K)2)",V1:DD$:P93ĺY63);"MEAN";2);:ZXM:ZF%14D%:ZD%DC%D%:1200:@:" STD DEV ";:ZXSD:1200::P93ĺJDD$:9000@ EDIT DATA TK0:V999:I1N:KK1^K4K1::VV1hV188060:r:23:3);"PRESS 'RETURN P93ėK2);"CASE";5);"SCORE";4);"Z-SCORE";3);"T-SCORE"::K1pZXI:ZF%5:ZD%0:1200:".";2);ZXX(I):ZF%8:ZD%DC%:1200ZXZ(I):ZF%11:ZD%3:1200ZXT(I):ZF%9:ZD%0:1200::IP93ĺ:DD$::4150 "V19:K15VK2(I)0:T(I)50:I7 SD0:N1SD((S2S1S1N)(N1))M MS1N:SD04000i I1N:Z(I)(X(I)M)SD T(I)5010Z(I):IPRINT SCORESP93İ500K99:1000:P93ĺ:DD$:I1N:KK1I1(P93K15)4080I1P93İ410:958 W$"GO"ĉ:440:27000 W$""2055v NN1:X(N)(W$):998:998:998:9(K1)1:958:(BK$W$,9); *2050 :440:N1200 I1N:NB$(I)(I):I COMPUTE MEAN AND SIGMA S10:S20:I1N S1S1X(I):S2S2X(I)X(I):ZZF$ZR$ (BK$ZX$,ZF%);:3  KEYBOARD INPUT? N0:K0 24:8:"TYPE ";::" GO ";::" AFTER LAST SCORE.";:7:5:"PRESS 'RETURN' AFTER EACH NUMBER.":10:34,6:35,20 :: KK1:K4K1: 998:11:"SCORE";2);N1;:": ";W$:1(3213(ZX0))(((ZX)))B ZF%ZD%(ZF$)1ZF%ZD%(ZF$)1d ZX(ZX)((ZX))10(ZD%1)} ZX(ZX0)(ZX0)ZX (ZX)1ZX$("0.00000000",ZD%2):1300 ZX$(((ZX))"00000000",2,ZD%1) ZR$"":ZD%0ZR$"."(ZX$,ZD%) ZX$N I1ZN:ZXX(I)1 (ZX).01ZXZX(ZX)Y ZX$(ZX):ZL%(ZX$):Z%0:ZM1ZL%s Z$(ZX$,ZM,1)Z%ZM{ $ZM .Z%0DC%ZL%Z%DC%ZL%Z% 8F%ZL%DC%F%ZL%DC% BI: FORMAT NUMBER ZX(ZX10ZD%.5)(10ZD%.5) ZF$DD$ 2000G 23:7:"TYPE 'C' TO CONTINUE...";:W$::W$"C"410M Z OP3ėw 23:17::"WORKING":: :23:17::"LOADING":: :23:17::"PRINTING"::D$;IO$: COMPUTE SIZE OF NUMBERS Z$".":F%0:DC%0:ZN10:NZNZN Z-SCORESdZ-SCORES,nIO$"PR#1"exD%2:P91:D$(4):I139:DD$DD$"-":BK$BK$" ":IMAX1000:X(1000),Z(1000),T(1000),NB$(1000)NA$(100),X$(100) :DD$::9);"Z-SCORES AND T-SCORES"::"COPYRIGHT 1984";12);"JAMES BOLDING":     TER A=ANOTHER PROBLEM, E=EDIT DATA,":6);"P=PRINTOUT, M=MENU, S=STOP.";\F#24:37:P9$P#P90:WS$"AEPMS":I15:P9$(WS$,I,1)P9I:I5Z#I:P9150,8000,4000,9060,9100:9030d#460:D$;"RUN HELLO ,D1"#ADDRESS TAG<#:32,7:33,25:7K1:VV1LV:1:7);"SCORE";1);N;": ";X(I);:"? ";W$:V(37):V:BK$cW$""X(I)(W$)V2:(K1)91:(BK$(X(I)),9);IJ:::22:958:440:CODE0ī3000(# TAG ON END OF PROGRAM2#D$(4):D$:D$;"PR#0"K<#23:1:"ENCORE IS CORRECT":6);"ENTER CHANGE MF DESIRED";U^35,20:ZF%F%:ZD%DC%:1:J1NGh::7:"-------- GROUP ";J;" --------"::::V(37)1rNJ(J)0ĺ"NO SCORES FOR GROUP ";J:8120|N0:K0:I1NTGP$(I)C$(J)3110 NN1:KK1:K4K164450"NK1:P93J1İ410OX:7);"GROUP";6);"N";4);"MEAN RANK":[bJ10ĺl(BK$C$(J),11);:ZXNJ(J):ZF%8:ZD%0:1200vZXMX(J):ZF%12:ZD%2:1200:J:P93ĺ:DD$9000@CHECK DATA0T:23:3);"PRESS 'RETURN' IF S:4::10);"H-VALUE:";2);:ZD%2:ZXHR:1200:s::6);"H CORRECTED:";2);:ZXHC:1200::8);"FOR TIES"::5);"SIGNIFICANCE:";4);:ZD%4:ZXPX:1200::6);"CHI-SQUARE":DD$:P93İ4100PRINT MEANS:K99:J1NG:KK1 DR GROUP ";C$(J);":":"H1='I1NT:GP$(I)C$(J)4170Q6HZF%39H1:k@ZXX(I):1200:HHZF%rJI}T::Jh PRINT RESULTSrP93ė|:DD$::9);"KRUSKAL-WALLIS ANOVA":::6);"N OF SCORES:";:ZF%10:ZD%0:ZXNT:1200 THE DATA ?":13:8);"< Y > YES, PRINT DATA":15:8);"< N > NO, ONLY RESULTS"s18:9:"RESPONSE...";:W$:W$"Y"W$"N"4030500W$"N"4200 PRINT SCORES ZF%F%:ZD%DC%:DD$:J1NG:"THE ";NJ(J);" SCORES FOK03200S K1NT)X X(I)X(K)3180Eb T1T11:N2N21:RX(K)0Yl K:T1TIEINT}v N21CRCR(N23N2)(NT3NT) I CR0HCHRCR 1000:1400:4200OUTPUT ON PRINTERNT50W$"Y":4050R:10:5:"DO YOU WANT TO PRINTGP$(I)C$(J)31106 NJ(J)NJ(J)1:MX(J)MX(J)RX(I)x& I:NJ(J)0SRSRMX(J)MX(J)NJ(J):MX(J)MX(J)NJ(J):DFDF10 J:20:1:BK$: HR(12(NT(NT1)))SR3(NT1)D T10:CR1:I1NT:20:14:"LAST PASS";(BK$(NTI),4)N N20:RKRX(I):R 430E SR0:TIE0:I1NT:20:14:"PASS ONE:";(BK$(NTI),4)W RK.5:K1NTy X(I)X(K)RKRK.5:TIETIE1 X(I)X(K)RKRK1 K:RX(I)RK:I DF1:J1NG:NJ(J)0:MX(J)0 I1NT:20:14:"GROUP ";J;":";(BK$(NTI),5) K1:VV1CV:8:"SCORE";1);N1;":";:" ";W$:V(37):V:BK$U W$"GO"2130e*W$""20704NANA1:NTNT1:X(NT)(W$):GP$(NT)C$(J)>V2:(K1)91:(BK$W$,9)H2060RNA2JNG\J::NA2470f430:3000 COMPUTE HR1:6:"HOW MANY GROUPS";:"? ";W$:NG(W$)KW$(NG)NG2NGMTX2010:23:3);"TYPE ";::" GO ";::" AFTER LAST SCORE."NT0:35,20:1:J1NG:C$(J)(J):NA07:"-------- GROUP ";J;" --------"::::V(37)1K0  KK1:K42)R (DF2)DF21510/ J1:CHI01510M J(2CHI3.141592653599)Y L1:M1e DFDF2t MMCHIDF M.00000011570 LLM 1520 "PX1JKL ,PX.0001PX.0001 6  KEYBOARD INPUT+12:8:"( 2 TO ";MTX;" )":1C) 1984"W#:"JAMES BOLDING":"P.O. BOX 339":"FAYETTEVILLE, AR 72702":(DD$,23):w#24:5:"BYE-BYE";:23:1:I23:1:IUT, M=MENU, S=STOP.";(F#24:37:P9$]P#P90:WS$"AEPMS":I15:P9$(WS$,I,1)P9I:I5Z#I:P9200,8000,4000,9060,9100:9030d#460:D$;"RUN HELLO ,D1"#ADDRESS TAG#:32,7:33,25:7:(DD$,23):"STATISTICS WITH FINESSE":"COPYRIGHT (460:D$;"RUN HELLO ,D1"*#ADDRESS TAG|#:32,7:33,25:7:(DD$,23):"STATISTICS WITH FINESSE":"COPYRIGHT (C) 1984"#:"JAMES BOLDING":"P.O. BOX 339":"FAYETTEVILLE, AR 72702":(DD$,23):#24:5:"BYE-BYE";:23:1:II   !!! ! !""" " " " " """3):"STATISTICS WITH FINESSE":"COPYRIGHT (C) 1984"#:"JAMES BOLDING":"P.O. BOX 339":"FAYETTEVILLE, AR 72702":(DD$,23):#24:5:"BYE-BYE";:23:1:HER PROBLEM, E=EDIT DATA,":6);"P=PRINTOUT, M=MENU, S=STOP. ";SF#24:37:P9$P#P90:WS$"AEPMS":I15:P9$(WS$,I,1)P9I:I5Z#I:P9200,8000,4000,9060,9100:9030d#460:D$;"RUN HELLO ,D1"#ADDRESS TAG3#:32,7:33,25:7:(DD$,2IF SCORE IS CORRECT":4);"ENTER CHANGE IF DESIRED";:V3u|V3:11:"SCORE";2);I;":";2);X(I);1);:W$:V3:868W$""X(I)(W$)V:(K1)91:X(I):I430:3000(# TAG ON END OF PROGRAM2#D$(4):D$;"PR#0"B<#23:"ENTER A=ANOT1200ZXF%(I):ZD%0:12002ZXCF%(I):1200QZXPC(I):ZF%9:ZD%2:1200rZXCP(I):ZF%8:ZD%2:1200:I:P93ĺ:DD$9000@ EDIT DATA TK0:V999:I1N:KK1^K4K1::VV1hV1880608r:23:3);"PRESS RETURN X(I):ZF%F%3:ZD%DC%:1200$,I:.64200Bh PRINT RESULTSOrP93ėb|P93ĺ:DD$:xK0:I1NC:KK1I1P93K18Ģ23:410:K1K1ĺ2);"SCORE";3);"FREQ.";1);"CUM.F.";2);"PERCENT";1);"CUM. %":ZXY(I):ZF%7:ZD%DC%: > NO, ONLY RESULTS"K18:7:"RESPONSE ";:W$::W$"Y"W$"N"4030T500eW$"N"4200wPRINT SCORES:DD$::"THE SCORES ARE:":L0:I1NIMAXĺ::"ONLY ";MAX;" SCORES IN MEMORY.":IN:4140 LL1:L5ĺ:L1"ZXNC:CF%(I)0:JINC:CF%(I)CF%(I)F%(J):J:Ia& I1NC:PC(I)100F%(I)N:CP(I)100CF%(I)N:Iq0 1000:4200OUTPUT ON PRINTERN50W$"Y":4040:10:5:"DO YOU WANT TO PRINT THE DATA ?":13:9);"< Y > YES, PRINT DATA":15:9);"< N;:ZXNI1:1200:JI1N:X(I)X(J)WX(J):X(J)X(I):X(I)WF J:IW 23:1:868} NC1:I2N:X(I)X(I1)NCNC1 I NC1:Y(NC)X(1):F%(NC)1:I2N X(I)X(I1)F%(NC)F%(NC)1:3090 NCNC1:Y(NC)X(I):F%(NC)1 I- I1: W$"GO"ĉ:440:27003 W$((W$))2055~ NN1:X(N)(W$):998:998:998:9(K1)1:958:(BK$(X(N)),9); *2050 430:N1200 ZF%4:ZD%0: TALLY N1NC1:Y(1)X(1):F%(1)1:3100< 430:I1N1:23:14:"COUNT DOWN"ZR$ (BK$ZX$,ZF%);:/  KEYBOARD INPUT; N0:K0 24:8:"TYPE ";::" GO ";::" AFTER LAST SCORE.";:7:1:"PRESS 'RETURN' AFTER EACH NUMBER.":10:34,6:35,20 :: 998:11:"SCORE";2);N1;:": ";W$:1:958 KK1:K4K1ZF$(3213(ZX0))(((ZX)))G ZF%ZD%(ZF$)1ZF%ZD%(ZF$)1i ZX(ZX)((ZX))10(ZD%1)y ZXZX(ZX) (ZX)1ZX$("0.00000000",ZD%2):1300 ZX$(((ZX))"00000000",2,ZD%1) ZR$"":ZD%0ZR$"."(ZX$,ZD%) ZX$ZF$ZNZNN I1ZN:ZXX(I)6 (ZX).01ZXZX(ZX)^ ZX$(ZX):ZL%(ZX$):Z%0:ZM1ZL%x Z$(ZX$,ZM,1)Z%ZM $ZM .Z%0DC%ZL%Z%DC%ZL%Z% 8F%ZL%DC%F%ZL%DC% BI: FORMAT NUMBER ZX(ZX10ZD%.5)(10ZD%.5) BOLDING":DD$ 2000Q 23:7:"PRESS 'C' TO CONTINUE...";:W$:W$"C"410Y :_ | 21:17::"WORKING":: :23:17::"LOADING":: :23:17::"PRINTING"::D$;IO$: COMPUTE SIZE OF NUMBERS Z$".":F%0:DC%0:ZN10:Nѣ FREQUENCIES#dFREQUENCIES2nIO$"PR#1"kxD%2:P91:D$(4):I139:DD$DD$"-":BK$BK$" ":IMAX3000:X(3000),Y(200),F%(200),CF%(200),PC(200),CP(200)NA$(100),X$(100) :DD$::14);"FREQUENCIES"::"COPYRIGHT 1984";12);"JAMES     2%:1200:6I%h PRINT RESULTS2rP93ėN|:DD$::"N OF PAIRS":"DIFFERENCE";3);:(BK$(N2),14D1%D%):"NOT EQUAL ZERO":"N OF PAIRS""DIFFERENCE";3);:(BK$(NN2),14D1%D%):"EQUAL TO ZERO":"SUM OF POSITIVE";:18:9:"RESPONSE...";:W$:9W$"Y"W$"N"4030B500SW$"N"4200cPRINT DATA:DD$::"CASE";(BK$(NA$(J1),14),14);(BK$(NA$(J2),14),14):ZF%14:I1N:(BK$(I),3);".";"ZXX(I,1):ZD%D1%:1200 ,ZXX(I,2):ZD%DLCOXON T":9000/l PZ(TPMD)SD:NZ(TNMD)SDDv TPZ:PZNZTNZZ 1400:1000:4200qOUTPUT ON PRINTERN50W$"Y":4050:10:5:"DO YOU WANT TO PRINT THE DATA ?":13:9);"< Y > YES, PRINT DATA":15:9);"< N > NO, ONLY RESULTS"I(K)RD(K)RK K% I:21:958?& N20:TP0:TN0:I1N`0 DI(I)0TPTPRD(I):N2N21: DI(I)0TNTNRD(I):N2N21D IN MD(N2(N21))4X SD((N2(N21)(2N21))24)b N20ė:"ALL DIFFERENCES ARE ZERO"::"UNABLE TO COMPUTE WI)X(I,1)X(I,2):RD(I)0:IJ I1N::23:15:"RANKING";(BK$(NI),4);k RK.5:DI(I)0RD(I)03100 TI0:K1N:DI(K)03070 (DI(I))(DI(K))RKRK1 (DI(I))(DI(K))RKRK.5:TITI1 K:TI1RD(I)RK:3100  K1N:DI(I)D Y$:Y$"GO"ĉ:2700.*Y$((Y$))2070S4V5:21:(BK$Y$,10):V2:BK$>NN1:X(N,1)(X$):X(N,2)(Y$)::V(37)2:2040 :N2Ģ11:"AT LEAST TWO PAIRS ARE REQUIRED.":410:430:200 430 COMPUTE SPEARMAN'S RHO I1N:DI(ICORE.":24:8:"TYPE ";::" GO ";::" AFTER LAST SCORE.";QV14:34,6:35,20V5:3:"PAIR";(BK$(N1)":",4):V2:13:"SCORE 1:";2);X$:X$"GO"ĉ:2700 X$((X$))2040V5:11:(BK$X$,10):V2:868:10:"SCORE 2:";2);9W-L((1K)Z(13)1J)(KZ(23)J)JW4LL(1.08L4W3)PR.5(1L(.196854L(.115194L(.000344L.019527))))4F1PR1PRPRPR2:PR.0001PR.0001 KEYBOARD INPUTN0;7:"PRESS 'RETURN' AFTER EACH S0.00000000",ZD%2):1300? ZX$(((ZX))"00000000",2,ZD%1)e ZR$"":ZD%0ZR$"."(ZX$,ZD%)u ZX$ZF$ZR$ (BK$ZX$,ZF%);: xCOMPUTE PROBABILITY PR1:FTT:DF10000:F.001ī1480 ZF:S1:WDF:F1SDF:W1:Z1FJ29S:K2%:F2%F2%4D2% F1%7F1%71 F2%7F2%77 J FORMAT NUMBERn ZX(ZX10ZD%.5)(10ZD%.5) ZF$(3213(ZX0))(((ZX))) ZF%ZD%(ZF$)1ZF%ZD%(ZF$)1 ZX(ZX)((ZX))10(ZD%1) ZXZX(ZX) (ZX)1ZX$("ZX$,M,1)Z1%M $M0 .Z1%0F1%ZL%F1%ZL%X 8Z2%0:M1ZM%:Z$(ZY$,M,1)Z2%M_ BMz LZ2%0F2%ZM%F2%ZM% VF1%Z1%F1%Z1% `F2%Z2%F2%Z2% jZ1%0D1%ZF%Z1%D1%ZL%Z1% tZ2%0D2%ZM%Z2%D2%ZM%Z2% ~I:F1%F1%4D1:(DD$,23):"STATISTICS WITH FINESSE":"COPYRIGHT (C) 1984"#:"JAMES BOLDING":"P.O. BOX 339":"FAYETTEVILLE, AR 72702":(DD$,23):#24:5:"BYE-BYE";:23:1:I:I OF NUMBERS! Z$".":F%0:DC%0E J12:ZN10:ZNNX(J)ZNNX(J)g I1ZN:ZXX(I,J):1060:I:J F%F%1DC%:F%7F%7  $(ZX).01ZXZX(ZX) .ZX$(ZX):ZL%(ZX$):Z%0:M1ZL% 8Z$(ZX$,M,1)Z%M BM LZ%0DC%ZL%Z%MES BOLDING":DD$ 2000% TAGS_ 23:7:"TYPE 'C' TO CONTINUE...";:W$::W$"C"410e k  23:17::"WORKING":: :23:17::"READING":: :23:17::"LOADING":: :23:17::"PRINTING"::D$;IO$: COMPUTE SIZEv T-TESTdT-TEST(nIO$"PR#1"\xD%2:D$(4):I139:DD$DD$"-":BK$BK$" ":IMAX1000:X(1000,2),NX(2),MX(2),SX(2),C$(2)NA$(100),X$(100)PAGE ONE :DD$::5);"T-TEST FOR INDEPENDENT SAMPLES"::"COPYRIGHT 1984";12);"JA        M=MENU, S=STOP. ";&F#24:37:P9$[P#P90:WS$"AEPMS":I15:P9$(WS$,I,1)P9I:I5Z#I:P9200,8000,4000,9060,9100:9030d#460:D$;"RUN HELLO ,D1"#ADDRESS TAG#:32,7:33,25:7:(DD$,23):"STATISTICS WITH FINESSE":"COPYRIGHT (C)J)(W$)0V2:(K1)91:(BK$(X(I,J)),9)7IoN9NX(J)ĺ:"ONLY ";MAX;" SCORES ARE IN MEMORY.":J::K90İ430:3000(# TAG ON END OF PROGRAM2#D$(4):D$;"PR#0"<#23:"ENTER A=ANOTHER PROBLEM, E=EDIT DATA,":6);"P=PRINTOUT,(T35,20:ZF%F%:ZD%DC%:K90:1:J12b^:7:"-------- GROUP ";J;" --------"::::V(37)1hN9NX(J):N9MAXN9MAX:K91rK0:I1N9|KK1:K4K1:VV1V:8:"SCORE";1);I;":";2);X(I,J);:"? ";W$:V(37):V:BK$W$""X(I,T:ZF%13:ZD%4:1200:>:"ONE TAILED";5);:ZXPR:1200:Q"PROBABILITY":"POINT-BISERIAL";1);:ZXCR:1200::"CORRELATION":DD$:9000@EDIT DATAJ:23:3);"PRESS 'RETURN' IF SCORE IS CORRECT":4);"ENTER CHANGE IF DESIRED";:ZXNX(1):ZF%13DC%D%:ZD%0:1200?ZXNX(2):ZF%14:1200:s:"MEAN";5);:ZXMX(1):ZF%13:ZD%DC%D%:1200ZXMX(2):1);:1200::"STANDARD";1);:ZXSX(1):1200ZXSX(2):1);:1200:"DEVIATION"::DD$:"T-VALUE";8);:ZX1N9:ZXX(I,J)#6HZF%39H1::@1200:HHZF%:I:pEN9NX(J)ĺ:"ONLY ";MAX;" SCORES ARE IN MEMORY."yJ:Jh PRINT RESULTSrP93ė|DD$:"ITEM";10);:"GROUP ";(C$(1)BK$,5);3);"GROUP ";(C$(2)BK$,5)#:2);"N";6); N > NO, ONLY RESULTS"918:9:"RESPONSE...";:W$:SW$"Y"W$"N"4030\500mW$"N"4200 PRINT SCORESDD$J12::"THE ";NX(J);" SCORES FOR GROUP ";C$(J);":":"H1:ZF%F%:ZD%DC%'N9NX(J):N9MAXN9MAX,I(S1M1M1N1S2M2M2N2)(N1N22))(1N11N2))Z CR0:C2N1N22TT:C20CRT(C2)p 1000:1400:4200OUTPUT ON PRINTERN1N250W$"Y":4050:10:5:"DO YOU WANT TO PRINT THE DATA ?":13:8);"< Y > YES, PRINT DATA":15:8);"<:S1SX(1):S2SX(2)S+ NX(1)2NX(2)2ė:10:"TOO FEW SCORES IN ONE GROUP.":9000^0 J12: SX(J)(SX(J)MX(J)MX(J)NX(J))(NX(J)1)D MX(J)MX(J)NX(J)N SX(J)0SX(J)(SX(J))X Jb T0:SX(1)SX(2)03200l TMX(2)MX(1)1v TT(((K1)91:(BK$W$,9) >20501HNX(J)N:J::R430R C$(1)"1":C$(2)"2"b ACCUMULATE} J12:MX(J)0:SX(J)0 I1NX(J):MX(J)MX(J)X(I,J) SX(J)SX(J)X(I,J)X(I,J):I:J COMPUTE T-VALUE& N1NX(1):N2NX(2):M1MX(1):M2MX(2) IN GROUP."&9:34,6:35,20:J12^7:"-------- GROUP ";J;" --------"::::V(37)1jN0:K0KK1:K4K1:VV1 V:9:"SCORE";2);N1;":";:" ";W$:V(37):V:BK$W$"GO"2120 W$""2060*NN1:X(N,J)(W$)4V2:((1K)Z(13)1J)(KZ(23)J)@ W4LL(1.08L4W3)~ PR.5(1L(.196854L(.115194L(.000344L.019527))))4 F1PR1PR PRPR2:PR.0001PR.0001   KEYBOARD INPUT 23:3);"TYPE ";::" GO ";::" AFTER LAST SCOREZD%2):13003 ZX$(((ZX))"00000000",2,ZD%1)Y ZR$"":ZD%0ZR$"."(ZX$,ZD%)i ZX$ZF$ZR$ (BK$ZX$,ZF%);: xCOMPUTE PROBABILITY PR1:FTT:DFN1N22:F.001ī1480 ZF:S1:WDF:F1SDF:W1:Z1F J29S:K29W# LDC%ZL%Z%% VF%ZL%DC%F%ZL%DC%+ `> FORMAT NUMBERb ZX(ZX10ZD%.5)(10ZD%.5) ZF$(3213(ZX0))(((ZX))) ZF%ZD%(ZF$)1ZF%ZD%(ZF$)1 ZX(ZX)((ZX))10(ZD%1) ZXZX(ZX) (ZX)1ZX$("0.00000000", FREQUENCIES#dFREQUENCIES2nIO$"PR#1"kxD%2:P91:D$(4):I139:DD$DD$"-":BK$BK$" ":IMAX3000:X(3000),Y(200),F(200),CF(200),PC(200),CP(200)NA$(100),X$(100) :DD$::14);"FREQUENCIES"::"COPYRIGHT 1984";12);"JAMES B       11:2);"< 1 > FIRST SCORE OF THE PAIR"Z 13:2);"< 2 > SECOND SCORE OF THE PAIR" 16:10:"SELECTION...";:CODE$:CODE$"1"CODE$"2"2840" :10:"VARIABLE ";CODE$;" IS THE DEPENDENT, AND", 13:"VARIABLE ";3(CODE$);" IS THE COVARI2800 READ DATA STATEMENTS8 430:NJ:J1NJ:N0Z K12:W$:W$"GO"K2:2540q X(N,J1,K1)(W$) K:W$"GO"2560 NN1:2520 N(J)N:J :2800 IDENTIFY DEPENDENT VAR :8:2);"WHICH IS THE DEPENDENT VARIABLE?"+---"::::V(37)1  N0:K09KK1:K2K1:VV1u V:8:"SCORE";1);N1;"-";K;:": ";W$:V(37):V:BK$*W$"GO"21404W$""2080>X(N,J1,K1)(W$)HV2:(K1)131:(BK$W$,9):K2NN1R2070\N(J)N:J::430f KEYBOARD INPUT13:9:"(2 TO ";MTX;")":12:5:"NUMBER OF GROUPS";:": ";W$:NJ(W$):NJ2NJMTXW$((W$))2010:23:1:"TYPE ";::" GO ";::" AFTER LAST SCORE IN GROUP."35,20:1:J1NJ7:"-------- GROUP ";J;" -----ILITYP1:F.001ī1490BZF:SD1:WD2:F1SD2:WD1:Z1FVJ29S:K29WL((1K)Z(13)1J)(KZ(23)J)W4LL(1.08L4W3)P.5(1L(.196854L(.115194L(.000344L.019527))))4F1P1PP.0001P.0001(ZF$)1ZF%ZD%(ZF$)1; ZX(ZX)((ZX))10(ZD%1)K ZXZX(ZX)x (ZX)1ZX$("0.00000000",ZD%2):1300 ZX$(((ZX))"00000000",2,ZD%1) ZR$"":ZD%0ZR$"."(ZX$,ZD%) ZX$ZF$ZR$ (BK$ZX$,ZF%);:xCOMPUTE PROBAB:K1ZL%! $Z$(ZT$,K,1)Z%K8 .F%(M)Z%F%(M)Z%^ 8Z%0DC%(M)ZL%Z%DC%(M)ZL%Z% BK:N:F%(M)F%(M)DC%(M)1:F%(M)6F%(M)6 LM: FORMAT NUMBER ZX(ZX10ZD%.5)(10ZD%.5) ZF$(3213(ZX0))(((ZX))) ZF%ZD% FOR GROUP ";CS::J1NJ:"GROUP ";J;" ";M XZXSY(J):1200:ZXSX(J):1200` b:J:410:200u SIZE OF NUMBERS Z$".":M12:F%(M)0:DC%(M)0 NEN(M):NE10NE10 N1NE:XX(N1,0,M1):(X).01XX(X) ZT$(X):ZL%(ZT$) Z%0;IO$ DD$6 :"DEPENDENT VARIABLE:";2);NA$(JY)c :9);"COVARIATE:";2);NA$(JX)::DD$: DZF%10:ZD%0::3:"TOO FEW SCORES IN GROUP ";CG::J1NJ:"GROUP ";C$(J);:ZXN(J):1200::J:410:200+ NZF%10:ZD%4::3:"STANDARD DEV. TOO SMALL8);"ANALYSIS OF COVARIANCE"::"COPYRIGHT 1984";12);"JAMES BOLDING":DD$S 2000 23:6:"TYPE 'C' TO CONTINUE...";:W$::W$"C"410 : OP3ė 23:17::"WORKING":: :23:17::"LOADING":: :23:17::"PRINTING"::D$  ANALYSIS OF COVARIANCE;dANALYSIS OF COVARIANCEJnIO$"PR#1"~xD%2:D$(4):I139:DD$DD$"-":BK$BK$" ":IMAX100:MTX10:N(10),X(100,9,1),MX(10),MY(10),SX(10),SY(10),AY(10),F%(2),DC%(2)NA$(100),X$(100),C$(10)I :DD$:: 1984"U#:"JAMES BOLDING":"P.O. BOX 339":"FAYETTEVILLE, AR 72702":(DD$,23):u#24:5:"BYE-BYE";:23:1:I1:I:ID$,23):#24:5:"BYE-BYE";:23:1:.":(ZX).01ZXZX(ZX)2 ZX$(ZX):ZL%(ZX$)X Z%0:M1ZL%:Z$(ZX$,M,1)Z%M_ Mw Z%0F%ZL%F%ZL% $F%Z%F%Z% .Z%0DC%ZL%Z%DC%ZL%Z% 8 FORMAT NUMBER ZX(ZX10ZD%.5)(10ZD%.5) ZF$(3213(ZX0))4";12);"JAMES BOLDING":DD$& 2000^ 23:8:"TYPE 'C' TO CONTINUE...";:W$:W$"C"410f : 23:1:958:17::"WORKING":: :23:17::"LOADING":: :23:17::"PRINTING"::D$;IO$:  COMPUTE SIZE OF DATA NUMBERS Z$"z MEANdMEAN$nIO$"PR#1"cxD%2:D$(4):F%0:DC%0:I139:DD$DD$"-":BK$BK$" ":IxMAX200:X(2000)NA$(100),N(100),X$(100),XM(100),XS(100),HI(100),LO(100),JW(100) :DD$::6);"MEAN AND STANDARD DEVIATION"::;"COPYRIGHT 198       ZX0)(ZX0)ZX< (ZX)1ZX$("0.00000000",ZD%2):1300c ZX$(((ZX))"00000000",2,ZD%1) ZR$"":ZD%0ZR$"."(ZX$,ZD%) ZX$ZF$ZR$ (BK$ZX$,ZF%);: x COMPUTE PROBABILITY PR1:FTT:DFN2:F.001ī1480 ZF:S1:M,1)Z%M VM1 `Z%0DC%ZL%Z%DC%ZL%Z%L jF%ZL%DC%F%ZL%DC%R te FORMAT NUMBER ZX(ZX10ZD%.5)(10ZD%.5) ZF$(3213(ZX0))(((ZX))) ZF%ZD%(ZF$)1ZF%ZD%(ZF$)1 ZX(ZX)((ZX))10(ZD%1) ZX(RS) Z$".":F%0:DC%0:ZN10:ZNNZNNT I1ZN:ZXX(I):(ZX).01ZXZX(ZX)^ 1080 ZXY(I):(ZX).01ZXZX(ZX) 1080:I $F%F%1DC%:F%7F%7 . 8(ZX).01ZXZX(ZX) BZX$(ZX):ZL%(ZX$):Z%0:M1ZL% LZ$(ZX$,$ 2000 TAGSO 23:7:"TYPE 'C' TO CONTINUE...";:W$::W$"C"410U b OP3ė 23:17::"WORKING":: :23:17::"READING":: :23:17::"LOADING":: :23:17::"PRINTING"::D$;IO$: COMPUTE SIZE OF NUMBE (C) 1984"Y#:"JAMES BOLDING":"P.O. BOX 339":"FAYETTEVILLE, AR 72702":(DD$,23):y#24:5:"BYE-BYE";:23:1:IOUT, M=MENU, S=STOP. ";*F#24:37:P9$_P#WS$"AEPMS":P90:K15:P9$(WS$,K,1)P9K:K5Z#K:P9200,8000,4000,9060,9100:9030d#460:D$;"RUN HELLO ,D1"#ADDRESS TAG #:32,7:33,25:7:(DD$,23):"STATISTICS WITH FINESSE":"COPYRIGHTDESIRED";:V3P|V3:8:"SCORE";2);I;":";:ZXX(I):1200:"? ";W$:V3:868gW$""X(I)(W$)V:K:(BK$(X(I)),F%);:KKF%:I3000(#TAG ON END2#D$(4):D$;"PR#0"<#23:"ENTER A=ANOTHER PROBLEM, E=EDIT DATA,":6);"P=PRINTZXHI:ZF%F%:ZD%DC%:1200:J:"LOW SCORE";:18:ZXLO:1200:::DD$T9000e@ EDIT DATA xJZF%F%:ZD%DC%TK1:V999:I1N^KF%39K1::VV1hV188060 r:23:3);"PRESS 'RETURN' IF SCORE IS CORRECT":4);"ENTER CHANGE IF I1LN:ZXX(I):1000:I:F%F%DC%D%:F%6F%6=P93ėzDD$::"SAMPLE SIZE";:18:ZXN:ZF%F%DC%:ZD%0:1200::"MEAN";:18:ZXMX:ZF%F%D%:ZD%DC%D%:1200::"STANDARD";:18:ZXSD:1200::1);"DEVIATION":"HIGH SCORE";:18:LY RESULTS"A18:7:"RESPONSE ";:W$::W$"Y"W$"N"4040J500[W$"N"4200{DD$::"THE SCORES ARE:":L0:I1N:LL1:L5ĺ:L1"ZXX(I):ZF%F%:ZD%DC%:1200,I::h PRINT RESULTSrF%0:DC%0:LN10:NLNLNN0|) I:SD0:N1SD((SXMXMXN)(N1))P SD0:N1SD((SXMXMXN)(N1))\ MXMXNf 4200}OUTPUT ON PRINTERN50W$"Y":4050 :10:5:"DO YOU WANT TO PRINT THE DATA ?":13:9);"< Y > YES, PRINT DATA":15:9);"< N > NO, ON3000 W$""2040M NN1:X(N)(W$):V2:(K1)91:(BK$W$,9):2030i COMPUTE MEAN & STD DEVx :N0200 440:P93ĺ:DD$: MX0:SX0:HI1E38:LO1E38 I1N:MXMXX(I):SXSXX(I)X(I) HIX(I)HIX(I) LOX(I)LOX(I));: KEYBOARD INPUT 23:5);"TYPE ";::" GO ";::" AFTER LAST SCORE.":35,20:7:6:"PRESS 'RETURN' AFTER EACH SCORE.":34,6 N0:K0:V12 V:BK$;:KK1:K4K1::VV1 V:9:"SCORE";2);N1;":";:" ";W$:868:V(37):W$"GO"ĉ:(((ZX)))1 ZF%ZD%(ZF$)1ZF%ZD%(ZF$)1S ZX(ZX)((ZX))10(ZD%1)c ZXZX(ZX) (ZX)1ZX$("0.00000000",ZD%2):1300 ZX$(((ZX))"00000000",2,ZD%1) ZR$"":ZD%0ZR$"."(ZX$,ZD%) ZX$ZF$ZR$ (BK$ZX$,ZF%T-TEST PAIRS%dT-TEST PAIRS4nIO$"PR#1"mxP91:D%2:D$(4):I139:DD$DD$"-":BK$BK$" ":IMAX1000:X(1000),Y(1000)NA$(100),X$(100) :DD$::5);"T-TEST FOR DEPENDENT MEASURES"::"COPYRIGHT 1984";12);"JAMES BOLDING":DD     0:;:"SIGNIFICANCE LEVEL";:ZF%17:ZD%4:ZXPX:1200:i:"CONTINGENCY COEF.";1);:ZXCC:1200::"CRAMER'S PHI PRIME";:ZXPHI:1200::DD$&9000@CHECK DATAJ:5:"PRESS 'RETURN' IF SCORE IS CORRECT" T"ENTER NEW SCORE P93ĺ:4330P93İ4102 PRINT RESULTSAP93İ500QP93ė:4DD$::"NUMBER OF OBSERVATIONS ";:ZXGS:ZF%10:ZD%0:1200::"CHI-SQUARE";5);:ZXCHI:ZF%20:ZD%D%:1200:NRNC4ZF%18::"YATES' CORRECTION";:ZXYC:120K1:K4K1:VV1:66(BK$((O(I,J)),ZF%),ZF%);@@J:IZJP93NRV18İ410:T::"EXPECTED FREQUENCIES:":V0:998^I1NR:::VV2:VV120İ410:V1hK0:ZD%DC%:J1NC:KK1:K4K1:VV1:rZXE(I,J):1200|J:I:NTER">17:12:"SELECTION...";:W$::W$"M"W$"P"4020^W$"P"İ500:P83:P93:DD$t PRINT OBS & EXPP93ė:"OBSERVED FREQUENCIES:":V1(NC4)2:ZF%9:ZD%0:998"V0:I1NR:::VV2:VV120İ410::V1,K0:J1NC:K(I,J):J:I& 1400j+ NRNC4YCGS((O(1,1)O(2,2)O(1,2)O(2,1))GS2)2(RS(1)RS(2)CS(1)CS(2))0 CC(CHI(CHIGS)): CBNR:NRNCCBNCD PHI(CHI(GS(CB1)))N 4300PRINT EXP:11:12:"< M > MONITOR"::11);"< P > PRI COMPUTE CHI-SQUARE , I1NR:RS(I)0N J1NC:RS(I)RS(I)O(I,J):JU In GS0:J1NC:CS(J)0 I1NR:CS(J)CS(J)O(I,J) GSGSO(I,J):I J CHI0:I1NR:J1NC: E(I,J)RS(I)CS(J)GS:TO(I,J)E(I,J):  CHICHITTE):NR2ė:10:13:"TOO FEW ROWS.":410:200^ NC2ė:10:11:"TOO FEW COLUMNS.":410:200n ZF%9:ZD%0 :J1NC::"ENTER DATA FOR COLUMN ";J :I1NR %8:"ROW ";I;":";:" ";W$:W$((W$))Č998:2085 *O(I,J)(W$):I:J:440CHIDF M.00000011570% LLM/ 1520> "PX1JKLU ,PX.0001PX.0001[ 6o KEYBOARD INPUT P91:11:8:"NUMBER OF ROWS: ";NR$:NR$((NR$))2010 14:5:"NUMBER OF COLUMNS: ";NC$:NC$((NC$))2020, NR(NR$):NC(NC$BILITY # DF(NR1)(NC1):PX1; CHI100PX0:1580J DF04300V R1:J1e IDF22r RRI:I KCHI(((DF1)2))(CHI2)R (DF2)DF21510 J1:CHI01510 J(2CHI3.141592653599) L1:M1 DFDF2 MMʭZF%ZD%(ZF$)1ZF%ZD%(ZF$)1D ZX(ZX)((ZX))10(ZD%1)T ZXZX(ZX) (ZX)1ZX$("0.00000000",ZD%2):1300 ZX$(((ZX))"00000000",2,ZD%1) ZR$"":ZD%0ZR$"."(ZX$,ZD%) ZX$ZF$ZR$ (BK$ZX$,ZF%);: xPROBAPRESS 'C' TO CONTINUE...";:W$::W$"C"4107 ::X ::23:16::"WORKING"::w :23:17::"LOADING":: :23:17::"PRINTING"::D$;IO$:  FORMAT NUMBER ZX(ZX10ZD%.5)(10ZD%.5) ZF$(3213(ZX0))(((ZX)))" CHI-SQUARE!dCHI-SQUARE0nIO$"PR#1"bxD%4:DC%2:I139:DD$DD$"-":BK$BK$" ":IO(40,40),E(40,40),RS(40),CS(40):DD$::5:"CHI-SQUARE TEST OF INDEPENDENCE"::"COPYRIGHT 1984";12);"JAMES BOLDING":DD$2000- 23:6:"      F$(3213(ZX0))(((ZX)))E ZF%ZD%(ZF$)1ZF%ZD%(ZF$)1g ZX(ZX)((ZX))10(ZD%1)w ZXZX(ZX) (ZX)1ZX$("0.00000000",ZD%2):1300 ZX$(((ZX))"00000000",2,ZD%1) ZR$"":ZD%0ZR$"."(ZX$,ZD%) ZX$ZF$ZRZNN I1ZN:ZXX(I)4 (ZX).01ZXZX(ZX)\ ZX$(ZX):ZL%(ZX$):Z%0:ZM1ZL%v Z$(ZX$,ZM,1)Z%ZM~ $ZM .Z%0DC%ZL%Z%DC%ZL%Z% 8F%ZL%DC%F%ZL%DC% BI: FORMAT NUMBER ZX(ZX10ZD%.5)(10ZD%.5) ZOLDING":DD$ 2000O 23:7:"PRESS 'C' TO CONTINUE...";:W$:W$"C"410W :] z 21:17::"WORKING":: :23:17::"LOADING":: :23:17::"PRINTING"::D$;IO$: COMPUTE SIZE OF NUMBERS Z$".":F%0:DC%0:ZN10:NZN2":J11:J22! COMPUTE T-VALUEH 430:S10:S20:Q10:Q20:DS0:DQ0i I1N:S1S1X(I):S2S2Y(I) Q1Q1X(I)X(I):Q2Q2Y(I)Y(I) DSDSY(I)X(I):DQDQ(Y(I)X(I))(Y(I)X(I)) I COMPUTING T-VALUE& MXS1N:MYS2N0 SX0:W1Q1868:10:"SCORE 2:";4" ";Y$:Y$"GO"::2700D Y$""2060u*V5:22:(BK$Y$,10):V2:BK$::V(37)24NN1:X(N)(X$):Y(N)(Y$)>2030 N2ė:11:"AT LEAST TWO PAIRS ARE REQUIRED.":410:200  NA$(1)"SCORE 1":NA$(2)"SCORE N0r"PRESS 'RETURN' AFTER EACH SCORE":23:8:"TYPE ";::" GO ";::" AFTER LAST SCORE":34,6:35,20:V14:8V5:3:"PAIR";(BK$(N1)":",4):V2:10:"SCORE 1:";" ";X$:X$"GO"ĉ:2700X$""2030 V5:11:(BK$X$,10):V2:WDF:F1SDF:W1:Z1F, J29S:K29WU L((1K)Z(13)1J)(KZ(23)J)r W4LL(1.08L4W3) PR.5(1L(.196854L(.115194L(.000344L.019527))))4 F1PR1PR PRPR2:PR.0001PR.0001   KEYBOARD INPUT5:"DO YOU WANT TO PRINT THE DATA ?":13:7);"< Y > YES, PRINT DATA":15:7);"< N > NO, ONLY RESULTS"18:10:"RESPONSE...";:W$:W$"Y"W$"N"4030500W$"N"4200PRINT SCORESDD$:ZF%F%:ZD%DC%-I1NS:IMAXĺNT(NT1)))SR3NS(NT1)- DFNT1:1400= 1000:4200U COMPUTE AFTER EDIT 3000:I1NS:23:15:"SUBJECT";(BK$(NSI),4) J1NT:X(J)DA(I,J):J 3100:I 440:3200OUTPUT ON PRINTERNSNT50W$"Y":4050k:10:S WITH FINESSE":"COPYRIGHT (C) 1984"t#:"JAMES BOLDING":"P.O. BOX 339":"FAYETTEVILLE, AR 72702":(DD$,23):#24:5:"BYE-BYE";:23:1:IIE=EDIT DATA,":6);"P=PRINTOUT, M=MENU, S=STOP. ";EF#24:37:P9$zP#P90:WS$"AEPMS":I15:P9$(WS$,I,1)P9I:I5Z#I:P9200,8000,4000,9060,9100:9030d#460:D$;"RUN HELLO ,D1"#ADDRESS TAG%#:32,7:33,25:7:(DD$,23):"STATISTICENTER CHANGE IF DESIRED";:V3[|V3:8:"SCORE";2);I;":";2);X(I);:"? ";W$:V3:868rW$""X(I)(W$)V:(K1)91:(BK$(X(I)),9):I430:3000(# TAG ON END OF PROGRAM2#D$(4):D$;"PR#0"4<#23:"ENTER A=ANOTHER PROBLEM, 1200ZXCF(I):12006ZXPC(I):ZF%9:ZD%2:1200WZXCP(I):ZF%8:ZD%2:1200:kI:P93ĺ:DD$u9000@ EDIT DATA TK0:V999:I1N:KK1^K4K1::VV1hV188060r:23:3);"PRESS RETURN IF SCORE IS CORRECT":4);"00 ,I:64200)h PRINT RESULTS6rP93ėI|P93ĺ:DD$:_K0:I1NC:KK1I1P93K18Ģ23:410:K1K1ĺ2);"SCORE";3);"FREQ.";1);"CUM.F.";2);"PERCENT";1);"CUM. %":ZXY(I):ZF%7:ZD%DC%:1200ZXF(I):ZD%0:18:7:"RESPONSE ";:W$::W$"Y"W$"N"4030;500LW$"N"4200^PRINT SCORES:DD$::"THE SCORES ARE:":L0:I1NIMAXĺ::"ONLY ";MAX;" SCORES IN MEMORY.":IN:4140 LL1:L5ĺ:L1"ZXX(I):ZF%F%3:ZD%DC%:12CF(I)CF(I)F(J):J:IH& I1NC:PC(I)100F(I)N:CP(I)100CF(I)N:IX0 1000:4200oOUTPUT ON PRINTERN50W$"Y":4040:10:5:"DO YOU WANT TO PRINT THE DATA ?":13:9);"< Y > YES, PRINT DATA":15:9);"< N > NO, ONLY RESULTS"20:JI1N:X(I)X(J)WX(J):X(J)X(I):X(I)W7 J:IH 23:1:868n NC1:I2N:X(I)X(I1)NCNC1u I NC1:Y(NC)X(1):F(NC)1:I2N X(I)X(I1)F(NC)F(NC)1:3090 NCNC1:Y(NC)X(I):F(NC)1 I I1NC:CF(I)0:JINC: W$"GO"ĉ:440:2700* W$""2055p NN1:X(N)(W$):998:998:998:9(K1)1:958:(BK$W$,9);z *2050 430:N1200 ZF%4:ZD%0: TALLY N1NC1:Y(1)X(1):F(1)1:3100- 430:I1N1:23:14:"COUNT DOWN";:ZXNI1:120$ (BK$ZX$,ZF%);:-  KEYBOARD INPUT9 N0:K0 24:8:"TYPE ";::" GO ";::" AFTER LAST SCORE.";:7:1:"PRESS 'RETURN' AFTER EACH NUMBER.":10:34,6:35,20 :: KK1:K4K1: 998:11:"SCORE";2);N1;:": ";W$:1:958$"C"410 :1 :23:17::"WORKING"::P :23:17::"LOADING"::m COMPUTE SIZE OF NUMBERS Z$".":F%0:DC%0:ZN10:NZNZNN I1ZN:ZXX(I) (ZX).01ZXZX(ZX) ZX$(ZX):ZL%(ZX$):Z%0:ZM1ZL% Z$(ZX$,ZM,1) PERCENTdPERCENT*nIO$"PR#1"cxD%2:P91:D$(4):I139:DD$DD$"-":BK$BK$" ":IyX(1000),PC(1000):DD$::14);"PERCENTAGES"::"COPYRIGHT 1984";12);"JAMES BOLDING":DD$2000 23:1:"TYPE 'C' TO CONTINUE...";:W$:W  """""" ATE."6 440DT JY(CODE$):JX3JY:NA$(JY)CODE$:NA$(JX)(3JY)m^ CG0:J1NJ:C$(J)(J):N(J)2CGJth J START COMPUTE 3500 J1NJ I1N(J):X1X(I1,J1,0):X2X(I1,J1,1) CODE$"1"X1X(I1,J1,1):X2X(I1,J1,0). WITH FINESSE":"COPYRIGHT (C) 1984"s#:"JAMES BOLDING":"P.O. BOX 339":"FAYETTEVILLE, AR 72702":(DD$,23):#24:5:"BYE-BYE";:23:1:I1:I=EDIT DATA,":6);"P=PRINTOUT, M=MENU, S=STOP. ";DF#24:37:P9$yP#P90:WS$"AEPMS":I15:P9$(WS$,I,1)P9I:I5Z#I:P9200,8000,4000,9060,9100:9030d#460:D$;"RUN HELLO ,D1"#ADDRESS TAG$#:32,7:33,25:7:(DD$,23):"STATISTICSS9$""Y(I)(S9$)IV5:21:(BK$(Y(I)),10):V2:BK$::V(37)2XI::958N9NĢV4:"ONLY ";MAX;" SCORES ARE IN MEMORY."::9000440:1:3000(# TAG ON END OF PROGRAM2#D$(4):D$;"PR#0"3<#23:"ENTER A=ANOTHER PROBLEM, EIS CORRECT":"ENTER NEW SCORE IF DESIRED.":34,3:V9`^I1N9:V5:"PAIR";(BK$(I),3);":";hV2:8:"SCORE 1: ";X(I);r"? ";S9$:S9$""X(I)(S9$)|V5:10:(BK$(X(I)),10):V2:868V2:8:"SCORE 2: ";Y(I);"? ";S9$:FERENCE";1);:ZXMYMX:1200::1);"IN MEANS"X:DD$::"T-VALUE";4);:ZXT:1200::"SIGNIFICANCE";:ZXPR:ZF%13DC%D%3:ZD%4:1200:1);"ONE-TAILED"::DD$:9000@ CHECK DATAJN9N:N9MAXN9MAX4T:"PRESS 'RETURN' IF SCORE 13),13):T2$(BK$(NA$(J2),13),13)D:DD$::"ITEM";5);T1$;T2$|:2);"N";8);(BK$(N),13DC%D%);(BK$(N),13):"MEAN";7);:ZXMX:ZF%13:ZD%DC%D%:1200ZXMY::1200::"STD DEV";4);:ZXSX:1200ZXSY:1200:.:"DIF4),14);(BK$(NA$(J2),14),14):8N9N:N9MAXN9MAX_ZF%14:I1N9:(BK$(I),3);".";y"ZXX(I):ZD%DC%:1200,ZXY(I):1200:6I@N9Nĺ:"ONLY ";MAX;" SCORES ARE IN MEMORY."h PRINT RESULTSrP93ė#T1$(BK$(NA$(J1),WANT TO PRINT THE DATA ?":13:8);"< Y > YES, PRINT DATA":15:8);"< N > NO, ONLY RESULTS"18:9:"RESPONSE...";:W$:W$"Y"W$"N"4030500:OP3İ510W$"N"42004100PRINT DATA :DD$::"CASE";(BK$(NA$(J1),1S1S1N:W10SX(W1(N1))I: SY0:W2Q2S2S2N:W20SY(W2(N1))cD T99999.99:MXMYT0N W3DQDSDSN:W30T(MYMX)(N(N1))(W3)X 1000:PR.5:N2İ1400b 4200OUTPUT ON PRINTERN50W$"Y":4050_:10:5:"DO YOU 00:9030'n#460:D$;"RUN HELLO ,D1"8#ADDRESS TAG#:32,7:33,25:7:(DD$,23):"STATISTICS WITH FINESSE":"COPYRIGHT (C) 1984"#:"JAMES BOLDING":"P.O. BOX 339":"FAYETTEVILLE, AR 72702":(DD$,23):#24:5:"BYE-BYE";:23:1:I:D$(4):D$;"PR#0"<7#P81:22:"ENTER X=EXPECTED VALUES"<#23:6);"A=ANOTHER PROBLEM, E=EDIT DATA,":6);"P=PRINTOUT, M=MENU, S=STOP. ";F#24:37:P9$P#P90:WS$"AEPMSX":I16:P9$(WS$,I,1)P9I:I6Z#I:P9200,8000,4300,9070,9100,40IF DESIRED."%^ZF%((GS))2:ZD%0RhJ1NC::6:"---- COLUMN ";J;" ----":^rI1NR|10:"ROW ";I;":";(BK$(O(I,J)),9);"? ";S9$:S9$""O(I,J)(S9$)998:16:868:(BK$(O(I,J)),9)I:J:440:3000(#TAG ON END2#:SY(J)SY(J)X2X2B/OUTPUT ON PRINTERGNG50W$"Y":4050:10:5:"DO YOU WANT TO PRINT THE DATA ?":13:9);"< Y > YES, PRINT DATA":15:9);"< N > NO, ONLY RESULTS"18:10:"RESPONSE...";:W$:W$"Y"W$"N"4040500 13:8);"< Y > YES, PRINT DATA":15:8);"< N > NO, ONLY RESULTS"e18:9:"RESPONSE...";:W$:W$"Y"W$"N"4030500W$"N"4200PRINT SCORES:DD$::"THE ";N;" SCORES ARE:":N9N:N9MAXN9MAX L0:I1N9:LL: 7:"ENTER THE VALUE OF THE POPULATION":9:"MEAN TO BE TESTED."^D 12:20:A$:A$""3140jN A(A$)X T0:SD0T(MXA)(N)SDb P93ėl 4200OUTPUT ON PRINTERN50W$"Y":4050D:10:5:"DO YOU WANT TO PRINT THE DATA ?":0:S20:N12008 I1N:S1S1X(I):S2S2X(I)X(I):IS START HERE FROM FILEz SD0:N1SD((S2S1S1N)(N1)) MXS1N:1000 READ A AND COMPUTE T& P9331600 :5:"THE SAMPLE MEAN IS ";:ZXMX:ZF%F%D%:ZD%DC%D%:1200:B::KK1:K4K1:P998:11:"SCORE";2);N1;:": ";W$:1:958j W$"GO"ĉ:440:2700zW$""2055 NN1:X(N)(W$):998:998:998:9(K1)1:958:(BK$W$,9);*2050 430:N1200 COMPUTE MEAN AND SIGMA S11L(.196854L(.115194L(.000344L.019527))))4C F1PR1PRb PRPR2:PR.0001PR.0001h }  KEYBOARD INPUT N0:K0 24:8:"TYPE ";::" GO ";::" AFTER LAST SCORE.";:7:5:"PRESS 'RETURN' AFTER EACH NUMBER.":10:34,6:35,20(ZX$,ZD%) ZX$ZF$ZR$2 (BK$ZX$,ZF%);:L x COMPUTE PROBABILITYb FTT:DFN1:PR1u F.00011490 ZF:S1:WDF:F1SDF:W1:Z1F J29S:K29W L((1K)Z(13)1J)(KZ(23)J) W4LL(1.08L4W3)2 PR.5(ZD%.5)(10ZD%.5)8 ZF$(3213(ZX0))(((ZX)))_ ZF%ZD%(ZF$)1ZF%ZD%(ZF$)1 ZX(ZX)((ZX))10(ZD%1) ZXZX(ZX) (ZX)1ZX$("0.00000000",ZD%2):1300 ZX$(((ZX))"00000000",2,ZD%1) ZR$"":ZD%0ZR$"."ZNN I1ZN:ZXX(I)3 (ZX).01ZXZX(ZX)[ ZX$(ZX):ZL%(ZX$):Z%0:ZM1ZL%u Z$(ZX$,ZM,1)Z%ZM} $ZM .Z%0DC%ZL%Z%DC%ZL%Z% 8F%ZL%DC%F%ZL%DC% BI:F%F%DC%2:F%6F%6 L FORMAT NUMBER ZX(ZX109 23:7:"TYPE 'C' TO CONTINUE...";:W$::W$"C"410? E h 958:23:17::"WORKING":: :23:17::"LOADING":: :23:17::"PRINTING"::D$;IO$: qN0:S10:S20 COMPUTE SIZE OF NUMBERS Z$".":F%0:DC%0:ZNN:ZNNĉT-TEST ONE!dT-TEST ONE0nIO$"PR#1"jxD%2:P91:D$(4):I139:DD$DD$"-":BK$BK$" ":I:MAX2000:X(2000)NA$(100),X$(100):DD$::11);"ONE SAMPLE T-TEST"::"COPYRIGHT 1984";12);"JAMES BOLDING":DD$2000TAGS! ! !!!!!!!!    J:4200 ACCUM< NG0:MG0:SG0:MH0:SH0:MP0:CS0h J1NJ:MX(J)0:MY(J)0:SX(J)0:SY(J)0q J: ACCUMULATENGNG1:MGMGX1:MHMHX2$MPMPX1X2:SGSGX1X1:SHSHX2X2.MX(J)MX(J)X1:MY(J)MY(J)X28SX(J)SX(J)X1X11:WDFTDFBDF' COMPUTE ADJUSTMENTS; AWYWYWPWPWXO AYTTYTPTPTX_ ABYAYTAWYn VBABYBDF} VWAWYWDF F1:VW0FVBVW D1BDF:D2WDF 1000:1400 ADJUSTED MEANS J1NJ AY(J)MY(J)(WPWX)(MX(J)MGNG) b BPBPMX(J)MY(J)N(J)Xl SX(J)((SX(J)MX(J)MX(J)N(J))(N(J)1)):SX(J)0CSJv SY(J)((SY(J)MY(J)MY(J)N(J))(N(J)1)):SY(J)0CSJ MX(J)MX(J)N(J):MY(J)MY(J)N(J) J:CS0590 WXTXBX:WYTYBY:WPTPBP  TDFNG2:BDFNJɢ21:13);"GROUP";1);J;":";(BK$(N(J)I),4)8 3600L I:J:21:868^ COMPUTATION& CXMGMGNG:CYMHMHNG:CPMGMHNG0 TXSGCX:TYSHCY:TPMPCP: BXCX:BYCY:BPCPD J1NJN BXBXMX(J)MX(J)N(J)X BYBYMY(J)MY(J)N(J):K15VK2((18K)2)+V1:DD$:V1S""TOTAL";:ZXS:ZF%11:ZD%DC%:1200z,ZXTP:ZF%13:ZD%D%:1200:::DD$67000p EDIT DATA zK0:V999:I1N:KK1K4K1::VV1V186050,:23:3);"PRESS RETURN IF SCORE IS KK1 I1(P93K15)40705I1P93İ410BP93ėv2);"CASE";4);"FREQUENCY";4);"PERCENT"::K1ZXI:ZF%5:ZD%0:1200:".";ZXX(I):ZF%10:ZD%DC%:1200ZXPC(I):ZF%13:ZD%D%:1200::IP93ĺ:DD$::4130V19$(X(N)),9); *2050$ N1200@ COMPUTE MEAN AND SIGMAc S0:I1N:SSX(I):PC(I)0:I S0āI1N:PC(I)100X(I)S:I TP0:I1N:WP(PC(I)10D%.5)(10D%.5):TPTPWP:I PRINT SCORES K99:1000:P93ĺ:DD$:I1N:T SCORE.";:7:5:"PRESS 'RETURN' AFTER EACH NUMBER.":10:34,6:35,20P ::e KK1:K4K1: 998:11:"SCORE";2);N1;:": ";W$:1:958 W$"GO"ĉ:440:2700 W$""2055 NN1:X(N)(W$):998:998:998:9(K1)1:958:(BKZX0)(ZX0)ZX< (ZX)1ZX$("0.00000000",ZD%2):1300c ZX$(((ZX))"00000000",2,ZD%1) ZR$"":ZD%0ZR$"."(ZX$,ZD%) ZX$ZF$ZR$ (BK$ZX$,ZF%);:  KEYBOARD INPUT N0:K0F 24:8:"TYPE ";::" GO ";::" AFTER LASZ%ZM $ZM. .Z%0DC%ZL%Z%DC%ZL%Z%I 8F%ZL%DC%F%ZL%DC%R BI:e FORMAT NUMBER ZX(ZX10ZD%.5)(10ZD%.5) ZF$(3213(ZX0))(((ZX))) ZF%ZD%(ZF$)1ZF%ZD%(ZF$)1 ZX(ZX)((ZX))10(ZD%1) ZX(23:1:1:00,4000,9060,9100:90306!d#460:D$;"RUN HELLO ,D1"G!#ADDRESS TAG!#:32,7:33,25:7:(DD$,23):"STATISTICS WITH FINESSE":"COPYRIGHT (C) 1984"!#:"JAMES BOLDING":"P.O. BOX 339":"FAYETTEVILLE, AR 72702":(DD$,23):"#24:5:"BYE-BYE";:::22:958 K9030008 (# TAG ON END OF PROGRAMO 2#D$(4):D$;"PR#0" <#23:"ENTER A=ANOTHER PROBLEM, E=EDIT DATA,":6);"P=PRINTOUT, M=MENU, S=STOP. "; F#24:37:P9$ P#P90:WS$"AEPMS":I15:P9$(WS$,I,1)P9I:I5!Z#I:P9200,80RES IN MEMORY.":IN(J):8110LK12:ZF%F%(K):ZD%DC%(K):K1I1VV1V:8:"SCORE";1);I;"-";K;": ";X(I1,J1,K1);:"? ";W$:V(37):V:BK$W$""X(I1,J1,K1)(W$)V2:(K1)131:(BK$(X(I1,J1,K1)),13):KI J:;"PRESS 'RETURN' IF SCORE IS CORRECT":4);"ENTER CHANGE IF DESIRED";[^35,20:1:J1NJh:7:"-------- GROUP ";J;" --------"::::V(37)1rN(J)0ĺ6);"NO SCORES FOR THIS GROUP."::8120|I1N(J):IMAXIN(J):K91::"ONLY ";MAX;" SCO1200::JP93J54400&&410z0:DD$::"GROUP COVARIATE DEPENDENT";6);"N":9);"STD.DEV.";3);"STD.DEV."::J1NJ:3);J;:ZXSX(J):1200:ZXSY(J):1200?(BK$(N(J)),9):J::DD$D9000@ EDIT DATAJK90ET:23:3)"SIGNIFICANCE";:ZXP:ZF%13:ZD%4:1200:@:DD$:P934350N410:DD$:"GROUP COVARIATE DEPENDENT ADJUSTED":11);"MEAN";;7);"MEAN";7);"MEAN":ZF%11:ZD%D%:J1NJ:2);:J10ĺ1); J;:ZXMX(J):1200:ZXMY(J):1200:ZXAY(J):D%:1200:8:"WITHIN ";:ZXAWY:ZF%13:ZD%D%:1200qZXWDF:ZF%6:ZD%0:1200:ZXVW:ZF%13:ZD%D%:1200::"TOTAL ";:ZXAYT:ZF%13:ZD%D%:1200ZXTDF:ZF%6:ZD%0:1200::DD$::2);"F-RATIO";3);:ZXF:ZF%11:ZD%D%:1200:*::K: JITJ::DD$3h PRINT ANOVA TABLEBr:P93ėm|8);"ANALYSIS OF COVARIANCE"::DD$:"SOURCE";7);"ADJ. SS";4);"DF";5);"VAR.EST.":"BETWEEN";:ZXABY:ZF%13:ZD%D%:1200ZXBDF:ZF%6:ZD%0:1200 ZXVB:ZF%13:ZD%W$"N"4200PRINT SCORES+J1NJA:"GROUP ";J;":"t"N(J)0ĺ6);"NO SCORES FOR THIS GROUP.":4180,I1N(J):IMAXĺ:"ONLY ";MAX;" SCORES IN MEMORY.":IN(J):41706K12:ZF%F%(K):ZD%DC%(K):K1ĺ8)@ZXX(I1,J1,K1):1200