' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#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 ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`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- (  ٠@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`TION"⎪;&#"("R","C") CHANGED FROM "X(R,C)" TO "XN&#X(R,C)X:9130]&#C0:16120fnl&$:r&"$:x&6$:~&J$:&^$F$"QUIK"9710&h$15140&r$CNCCNC1&s$CNC2CNC1&|$C2C1&$&$:CNCĺ,C,C2'$2:" ROW ";:(10):XNGLE POINT%Z#:%%n#F$"CHGO"9310J%#"ENTER ROW, COL, AND NEW VALUE"h%#"TO FINISH, ENTER 0,0,0"%#R,C,X:R0C09190%#RAARZZ9145%#C1CNC9145%#X(R,NC3)09145%#X(0,C)09145%#9150&#"("R","C") IS NOT A VALID LOCA$"X(0,CC)0CCNC18780)$"TX(J,CC)=$."X(J,CC)X(I,CC)K$B"X(I,CC)TS$L"CCZ$V"Jg$["1:868n$`"It$e"z$j"$~":$":$" MOVE COLUMN ROUTINE$":$"RAAZZ$"X(R,NC3)0X(R,C)X(R,C0)$"R$ #$#:$2#: %F# CHANGE SI# C1C:C2C$#!C0C11:C2NC2*#!:;#*!:IAAZZ1R#>!X(I,NC3)08800d#H!" ROW "I" ";r#R!JI1ZZ#f!X(J,NC3)08790#z!X(I,0)X(J,0)8790#! INTERCHANGE#!TX(J,0)#!X(J,0)X(I,0)#!X(I,0)T#!C08790#!CCC1C2PSOR"9070"15140("C0C:C0:89107"Q3:15300H"8430: SORT\" CC0:C00:8910g"& 16120p": 110v"N :|"b :"v SORT ROUTINE" :" : KEY IS IN COL 0 " : IF C>0, INTERCHG IT ALSO" : IF C<0, INTERCHG IN ALL ROWS# :!F110 !Z:!n:,! SORT WHOLE THING2!:G!F$"TSOR"8110\!AA1ZAP07930!"PLEASE USE PURG COMMAND FIRST"!110!15140!C0C:C0:8910!"C1:8430!6C0:16120!J110!^:!r:! PAIRED SORT!: "F$"X(R,0)K jJJ1 tR' ~RAAZZN X(R,NC3)0X(X(R,NC1),C)X(R,0)U R` 16120i 110o :u :  SORT 1 COLUMN : F$"SORT"7850 15140:C0C C0:8910 8430: SORT Q2:15300 C00:8910 2161208430:SORT Q2:15300,J1:N09RAAZZP$X(R,NC3)07540e)N0NN1:7525r.XX(R,0)~3S75208::RZZ7520=::KR1ZZB::X(K,NC3)07505G::X(K,0)X7520L::NN1Q::K`KJ:N0K(2JN)2 eANK :F$"RANK"7610)15140P"GIVE TIES AVERAGE OF RANKS? ";A$_A$(A$,1)hS1xA$"Y"S0A$"N"S1S07390C0C:C0:8910:MOVEDREG0DREG1:"***"CNC1RAAZZX(R,NC3)0X(R,C)R 16120j110v:{:0 MEAN AND S.D.6:KF$"MEAN"7380x:"COLUMN";:14:"MEAN";:26:"STD DEV"C1NCX(0,C)05870C;:4:NA$(C);:14:MEAN(C);(36)23ĺ26:SD(C)C:110:: RUT(C)TUB(C)JJUB(C)"XCPZAAI1AAI1:"STARTING ROW IS NOW "AA\ZZNRJZZNRJ:" FINAL ROW IS NOW "ZZ^DE0:RAAZZ:X(R,NC3)0DEDE1`RbDEZAPZAPDE:ZAP" DELETES IN ACTIVE RANGE"eSIZEZZAAZAP1gC0:" AT BOTTOM."110:"!:3& CLEAR COL9+:N0F$"CLRC"5770Y215140g5X(0,C)1u6NA$(C)"":DREG05700;::CDVDR1<::J1JV=::CIV%(J)DR1>::JDI0:J0IC1NCNX(0,C)05720SUT(C)IIARX:UT(C)AA1ZAPZAPDE3SIZEZZAA1ZAPP16120:UPD C + GET NAMEYCCCnC0:16120: UPD~DBUG0110"ACTIVE RANGE IS "AA"-"ZZ" WITH "ZAP" DELETES""UNDEF ROWS IN COLUMN "CC":"" "UT(CC)" AT TOP," " "UB(CC)0 R0R01R0ZZ53705X(R0,NC3)05250?5110E:b SET UNDEFIND COUNTERSwRXAA:STP1:DE0T0RXZZ:STP1"I1LJX(RX,NC3)0DEDE1:RXRXSTP:5450TRXRXSTP^IrT1ZZRX:UB(C)NRZZT0AW":4930jRAA:R0AA:RXAA(~I1LHRXRX1:X(RX,NC3)05010OI_T1R0RXoT1RRXu:T0X(R,C)X(R0,C0):5170 X(R,C)X(R,C0)X(R0,C0):2 INCR ROW COUNTERSFRR1ZRZZ5370nX(R,NC3)0519:R TIME SHIFTSf:4zF$"LAGG"T1:4810MF$"DIFF"T0:4810gF$"LEAD"T1:4810q5680Q1:15140C0C"ENTER GAP: ";LL14870.L(ZZAAZAP)4870BQ2:15300VC0Cĺ"CANNOT BE SAME AS TRANSFORMED RO;:1542096<"RESULTS SHOULD BE PLACED IN WHAT ";:15420V6<"ACCOMPANYING ";:15420r6<" DEP VAR - ";:154206<"INDEP VAR #"II" - ";:154206(<:6<<"COLUMN (NAME OR #)? ";C$6F<(C$)0ġ:Q0:1106J<:6K8 EXTENSIONS2?8:3@8I(METRIC CORRELATION,4,SPEAH,KENRH,KENPH,KENCHh16 FILE COMMANDS,7,ENTEM,SAVEM,EXAMM,OVERM,CATA,PR#,~16 EXTENSIONS,1,#16 UTILITY,14,HELP,INFO,RDIMM,NAMEM,CHGNM,QUIK,;,FREE,PRON,PROF,TEXT,!,QUIT,EXIT16QCT1620016QQ1QCT16: 26UNSF,RUNXFC06 REGRESSIONS,6,REGRR,SWEER,ALLSR,SUBSR,BACKR,FORWR06 REGRESSION RESULTS, 6,SUMMR,COEFR,ANOVR,DURBR,BETAR,PLUGR06 HYPOTHESIS TESTING,7,ANV1H,ANV2H,CHISH,TTESH,MANNH,COCHH,FRIEH06 CORRELATION,3,COVAR,CORRR,PARCR,16 NONPARAADDV,SUBV,MULC,MULV,DIVC,DIVV,LOGE,LOG1,EXPO,POWE,INVE,CTOT,STAN,LEAD,LAGG,DIFFm/6 SORTS,3,SORT,TSOR,PSOR/6 DATA DISPLAY,5,PLTSF,HISTF,PLOTP,SEQUP,SAVPP/6 TABLES,1,FREQF/6 BASIC STATISTICS,2,MEAN,STATF 06 ONE VARIABLE TESTS,3,AUTOF,R0 .6::.6'.6 17:#CATEGORIESZ.6 DATA CREATION,5,INDXM,RANDM,ZEROM,CATE,RANK.6 DATA ENTRY,4,DATADATA,ENTEM,OVERM,CHGO.6 DATA MANIPULATION,11,MOVE,MOVF,MOVR,RECO,SELR,DELR,RECR,DELB,RECB,PURG,CLRCO/6 TRANSFORMS,19,INTE,ABSO,ADDC,INFORMATION ABOUT "F$".":13320:-3D$"READDAISY:INFO,R"RB-3A$-3(A$,2,6)"!PAUSE"ĺ:D$:"PRESS ANY KEY TO CONTINUE--";:C$:::13300-3(A$,2)-3I((A$,1))-3I0RRI:13270-4:D$"CLOSE":110-6:-6:-6:.6F$"HELP"1440E IS NO SUCH COMMAND..."::130102,3:D$"CLOSE"N,3:D$"VERIFYDAISY:INFO"`,3:" "F$" ":~,3:D$"OPENDAISY:INFO,L45",3D$"READDAISY:INFO,R"(N10),3"";A$,3RN10(N10):RR31,3R((A$,R,3))-3R0ĺ"I'M SORRY, I DON'T HAVE ANY 3010+2F$(FU$,5)7+2(F$,1)" "F$(F$,2):13006B+213011{+2"ABOUT WHICH COMMAND WOULD YOU LIKE MORE INFO? ";F$+2F$""110+2N0::QCT+2QQ1QCT:QN$:QX+2XQ1QX:XQ$:NN1+2(XQ$,4)F$13200+3XQ,QQ!,3"I'M SORRY, THER9900%*&C1NC3:X(IX,C)X(R,C):C1*&IXIX18*&R^*&ZZZZAA1ZAP:AA1:ZAP0:SIZEZZj*&DREG1s*&110y*&:*&:*1:*1:*1*1:*1 (NEXT SECTION WOULD GO HERE)*2:*2:*2 INFO*2:*2F$"INFO"14000+2(FU$)41 &FU)&9860) &FUNC9860/)*&FDFU1NCD)4&X(0,FD)09810L)>&FDV)H&9860e)R&CFU:C0FDx)W&NA$(C)NA$(C0))Y&X(0,C)X(0,C0))\&8910:16120)f&X(0,FD)1)p&9720)z& NOW DO ROWS)&IX1)&RAAZZ)&X(R,NC3)09910*&IXR,C2)0Ė26:X(I,C2);($&($A$" "-($L($IZZĺ:"PRESS ANY KEY TO CONTINUE--";:S$:1:868:(S$)3(S$)279365($:34,0:110(%:(%:(% PURGE(%:(%F$"PURG"12750(% FIRST DO ROWS(%FU1NC(&X(0,FU)09760)(0,C)0ĺNA$(C);.'$X(0,C)0ĺ"(INACTIVE)";M'$(26):X(0,C2)0ĺNA$(C2)j'$X(0,C2)0ĺ"(INACTIVE)"v'$:34,2'$IAA1'$A$" "'$L120'$II1'$IZZ9410'$X(I,NC3)0A$".":9370'$A$;I;'$X(0,C)0Ė10:X(I,C);($X(0GNIFICANCE OCCURED ":@.B00(J.RR04T.J1JV@^.BE(J)0Lh.I1JV`r.X1DV:X2IV%(I){w.X1X2XX2:X2X1:X1X|.R1R((X2X2X2)2X1)}.IJRJR1.X1J:X2I.X1X2XX2:X2X1:X1X.R2M((X2X2X2)2X1).BE(J)BE(J)R1R21:IV%(JV)C-C-:2- PACK CORRS INTO M();-MX0S-JJ1JV:IIIV%(JJ)h-J1JJ:IIV%(J)t-MXMX1-M(MX)R((IIIIII)2I)-J,JJ-MNJV:17000:INVERT.IER0Ğ:"THERE IS NO SOLUTION"::".IER0ğ:" WARNING! LOSS OF SI(0,C)9X(0,C)X(0,C)10A-C*F-DREG1<P-11700: DOITNU-12000:TESTSTV-kW-:12615:SHORT RPTZ-12050: FIT+RES_-DREG0d-110-:- DOIT!-:-DREG0ij-DREG0ı-6680:DO CORRS -JV0:C1NC:X(0,C)20JVJV1500/,X(0,C)9ĺ"ALREADY SPECIFIED!":11500D-X(0,C)X(0,C)10L -IIR-:l- SS OF DEV FROM MEAN-D(C)SS(C)2MEAN(C)SUM(C)SIZEMEAN(C)MEAN(C)-SIZEZZAA1ZAP-:-RTYPE11580,12750,12850,12500,125002-:<-C1NC=-XRTYPE5,RT0ī12150/,Q4:15140:GET DV;,DREG1D,DVCP,C1NCv,X(0,C)9X(0,C)X(0,C)10:11482},C,"HOW MANY INDEPENDENT VARIABLES? ";IV,IV0110,II1IV,Q5:15300,CDVĺ"NO GOOD: THAT'S THE DEP VAR!":1;$$A$" "$Lk$IZZĺ:"PRESS ANY KEY TO CONTINUE--";:S$:1:868:(S$)3(S$)279365|$:34,0:110%:,:,RTYPE0,F$"REGR"RTYPE1,F$"BACK"RTYPE2,F$"FORW"RTYPE3,F$"ALLS"RTYPE4,F$"SUBS"Ĉ$X(0,C)0ĺ"(INACTIVE)";9$(26):X(0,C2)0ĺNA$(C2)V$X(0,C2)0ĺ"(INACTIVE)"b$:34,2m$IAA1x$A$" "$L120$II1$IZZ9410$X(I,NC3)0A$".":9370$A$;I;$X(0,C)0Ė10:X(I,C);$X(0,C2)0Ė26:X(I,C2)#B(K);$?$BK192K7JJ1:16930/?%B" ":T?*B" AT LINE "(218)(219)256" "Z?+Bh?,B255:100NRhAANCA:>A:>A:%>A ERROR HANDLING+>A:1>A:>>AE(222)k>AE254ĺ"INCORRECT ENTRY---TRY AGAIN:":s>B:>BE255ĺ" COMMAND ABORTED ":16939>B" ERROR - ";>BE0E15J53856E:16930>BJ43377(43583E)>B"(DOS) ";>"BK(J)?((NSSSUMSUM)(N(N1)))-=@MEAN(CX)MEAN==@SUM(CX)SUMK=@SS(CX)SSt=@X(0,CX)10(X(0,CX)10)1:DO CORR |=@CX=@:=@ UPD UNDEF COUNTERS=@ ONLY IF A SINGLE COL=@:=@C016740=@UT(C)AA1=PAUB(C)NRZZ=dA1:868:>xDATING---";:9D>:9X>:9l>:(9> **********<9> * *P9> * UPDATE *d9> * *x9> **********~9>:9> IF C=0 UPDATE ALL ACTIVE COLS9 ? IF C>0 UPDATE C9 ? IF INACTIVE, FLAG AS ACTIVE,:4? AND GET A NAME153008=Q0:8,=:8@=:.8T= GET ROW #48h=:C8|="ROW? ";RW8=R1RNR15740]8=c8=:i8=:8= GET RANGE OF ROWS8=:8>"FROM WHAT ROW TO WHAT ROW? ";R1,R28>R11R21R2R11588080>R2NRĺ"THERE ARE ONLY "NR" ROWS!":158809:P2X(0,I)1012882f*@2IDV12882r*F2M(1)JV~*H2M(2)DV*J2M(3)I*L21680*P2(R)XX(R):LI*R2I*T2:*d224:935::IX139:"-";::*e2"ADDING "NA$(L)" TO REGRESSION"1110 )1:)1BACK!)1C1NC@)1X(0,C)9X(0,C)X(0,C)10P)1C:24:935V)1:a)112600q)1JV112940)112950:A$"N"12940)124:935::IX139:"-";:IX:)1LIV%(L))1X(0,L)X(0,L)10)1"REMOVING "NA$(L)" FROM REGRESSION"*11j1F$"DURB"13010$(o1DREG0ī110L(t1DREG0İ11700:12000:12050:DREG0X(y1D0:L0e(1RAAZZ}(1X(R,NC3)012695(1L0DD(X(R,NC2)X(L,NC2))2(1LR(1R(1DDSS(NC2)(1"DURBIN-WATSON STATISTIC ON RESIDUALS:"(1"D = "D)::KSKK12515#'124:935:12600.')1125154'41::'51:J'61 SHORT RPTP'71:i'81IX139:"-";:IX:t':1DREG1'=111700'B112000'F1:'G1:"MULTIPLE R = "(RR)'L1"STD ERR EST = "(SY2)'Q1" F = "F'V112180'[1'f1:'i1:(&0 ALLS + SUBS&0:I&0F$"SUBS"Ą"SUBSET SIZE? ";KS:KSIV12500R&0KK0[&0JNCw&0J1İ12050:DREG0:110&0X(0,J)10JJ1:12520&0X(0,J)20X(0,J)X(0,J)10:JJ1:KKKK1:12520&0X(0,J)X(0,J)10:KKKK1&0F$"ALLS"12570'1GRESSION NOT SPECIFIED":110'%015140V%0CDVĺ"NO GOOD: THAT'S THE DEP VAR!":110r%0"COL "C" ("NA$(C)") ";%0IX(X(0,C).1.5)%0IX2X(0,C)X(0,C)10:"SWEPT OUT"%0IX2X(0,C)X(0,C)10(2IX):"SWEPT IN"%0DREG1%0110%0:%0:SION--"$$k0AR;:18:JV;:23:ARJV9$p0:"RESIDUALS--"J$r0NFSIZEJV1g$z0RD;:18:NF;:23:RDNFx$0:"TOTAL--"$0ARRD;:18:SIZE1;:23:(ARRD)(SIZE1)$0:"F = "F$0$0:$0:$0SWEEP$0:$0F$"SWEE"12650%0DREG0ĺ"RE#0"SAMPLE SIZE = "SIZE #0&#:0:,#;0:?#<0ANOVA OF REGRE#=0:[#>0F$"ANOV"12450k#C012370:110q#H0:#R0DREG0ı#W0DREG0İ11700:12000:12050:DREG0#\0::"ANOVA OF CURRENT REGRESSION:":#a0"SS";:18:"DF";:23:"MS"$f0:"REGRES"/DREG0ı4"/DREG0İ11700:12000:12050:DREG0_"/::13:"MULTIPLE R";:27:"R-SQUARE""/"UNADJUSTED";:13:((RR));:27:RR"0X1((1RR)(SIZE1)(SIZEJV1))"0X0ĺ"ADJUSTED";:13:(X);:27:X#0:"STD ERROR OF ESTIMATE = "(SY2)!/IIV%(J)!/:NA$(I),!/IXJ(JJJ)2E!/S(M(IX)SY2D(I))R!/TB(J)Sg!/TTXLJ:XTT!/R7(B(J));:14:R7(S);:27:R7(T)!/J!/935::"CONSTANT"!/B0!/!/:!/SUMM!/:!/F$"SUMM"12350!/12270:110!/: t/COEF u/:$ v/F$"COEF"12250* x/: {/12170:110@ /:N /DREG0ıv /DREG0İ11700:12000:12050:DREG0 /935::" B";:14:"STD ERR (B)";:27:" T" /R7(X).000001(1000000X.5) /12000 /L0:X1E6 /J1JV /J1Č935 /: /:"---RESIDUALS---";:-/RAAZZE/X(R,NC3)012090N!/XB0Z&/J1JVv+/XXB(J)X(R,IV%(J)):J0/X(R,NC1)X5/X(R,NC2)X(R,DV)X:/R?/1:868D/CNC1NC2I/X(0,C)1:16120N/CS/SD(NC2)(SY2)X/r/:.I.RRRRBE(J)RJ8.B(J)BE(J)SD(DV)SD(IV%(J))T.B0B0B(J)MEAN(IV%(J))[.Jn.B0MEAN(DV)B0t.z.:.TEST.:.DD(DV).ARRRD.RDDAR.F(AR(SIZEJV1))(RDJV).SY2RD(SIZEJV1)./:/FIT,RESCK=CI2I2MIN:I1I11:IH=CDBUG1ĺ::"CHOLESKY INVERSE:":50000a=CI1MN:I2I2I:JI2v=CKIMN:S0:X0J= DLKMN:XX0KI:SSM(X0)M(X):X0X0L:L=HDM(J)S=RDJJK=\DK,I=aDDBUG1ĺ::"MATRIX INVERSE:":50000>cD((43604)16HOLESKY FACTOR:":50000$UPD46>:D6>ENTRY HEREJ6H?:Y6\?C016240j6f?C11:C2NC2}6h?DREG0DREG16j?163606l?:6p?C1C:C2C6r?DREG0162606t?CDVDREG16v?J1JV6x?CIV%(J)DREG16z?J 7?X(0,C)0X(0,C)0:154805P064.6 DATA DISPLAY,5,PLTSF,HISTF,PLOTP,SEQUP,SAVPPJ.6 TABLES,1,FREQFo.6 BASIC STATISTICS,2,MEAN,STATF.6 ONE VARIABLE TESTS,3,AUTOF,RUNSF,RUNXF.6 REGRESSIONS,6,REGRR,SWEER,ALLSR,SUBSR,BACKR,FORWR/6 REGRESSION RESULTS, 6,SUMMR,COEFR,:"1#6:" SPACE - FINISH NUMBER, GO TO NEXT"`#7:" COMMA - FINISH NUMBER, GO TO NEXT"#8:" ARROW - FINISH NUMBER, GO AS DIRECTED"#;:" - FINISH NUMBER, GO TO FIRST VALUE IN NEXT ROW OR COLUMN"E SCREEN VERTICALLY IN ORDER TO COMPARE NON-ADJACENT COLUMNS."":"TYPE 'S' TO SPLIT OR UNSPLIT THE SCREEN.""5990:3:958"":"ENTRY OF A SERIES OF NUMBERS:"#,:"THE FOLLOWING WILL BE TREATED AS MEANS OF SEPARATING VALUESN AN INCORRECT POSITION, TYPE CONTROL-X."P!v::"INACTIVE ROWS OR COLUMNS:"!x:" PLACING A VALUE IN AN INACTIVE ROW OR COLUMN WILL ACTIVATE THAT ROW OR COLUMN."!5990:3:958!::"SPLIT SCREEN MODE:"H":" YOU MAY DIVIDE THR IS COMPLETED WHEN A NON- NUMERIC CHARACTER IS TYPED (THAT IS, ANYTHING OTHER THAN A DIGIT, +, -, A DECIMAL OR 'E'). i5990:3:958 n::"CONTROL-X:"+!s:" IF YOU DETERMINE THAT THE NUMBER BEING TYPED IS INCORRECT, OR IS I ARROWS - MOVE AS SPECIFIED"K:" ; - MOVE TO OTHER SIDE OF"f" SCREEN"p5990}P3:958Z:"ALL VALID NUMERIC EXPRESSIONS ARE PERMITTED:"\:" 234.567"^" 3.456E-11"`" -.009" d:"A NUMBEYOU MAY ENTER ANY NUMERIC VALUE AT THE POSITION OF THE FLASHING CURSOR."f:"TO MOVE THE CURSOR:":" D - CHANGE DIRECTION" (UP/DOWN OR RIGHT/LEFT,"" AS SHOWN IN UPPER RIGHT)1063,(5712D):"(HALF));15);" "-&X(0,ZC(HALF))0ıD+LZR15:LZZLZZP0KZRLq:X(K,NC3)0ĺX(K,ZC(HALF));wD~NKX:::: INSTRUCTIONS:32,0:33,40:34,0:35,19:15:" DATA ":I::":HALF132,3%4300+^:1c:Jd CHG RIGHT COL:Pe:[hHALF2fr32,21p|4300v:|::34,033,1635,19936:CLR ALL7);ZC(HALF);15);" "(16(NAME$(ZC(HALF))))2);NAME$(ZCĺ"-";: :R;:7 X(0,ZC(1))0Ė4:X(R,ZC(1));[( X(0,ZC(2))0Ė22:X(R,ZC(2));a2 g:m: CHANGE COLUMN: CALL WITH S OR HALF, ZC(), ZR:S4100,4200: IF CALLED WITH S:: CHG LEFT COL:,ZC(2));\ : :3 MOVE WINDOW DOWN9 :^ CALL WITH ZC(1-2),SPLIT,ZRd :t 32,0:LEFT 33,40:WIDTH  34,2:TOP 35,18: BOTTOM 912:SCROLL 18:SPLIT1Ė20::" ";: 1 RZR15 X(R,NC3)0SPLIT,ZR:32,0:LEFT 133,40:WIDTHB34,2:TOP V35,18: BOTTOMn12288:SCROLL DOWN3:SPLIT1Ė20::" ";:1RZR X(R,NC3)0ĺ"-":*:R;:4X(0,ZC(1))0Ė4:X(R,ZC(1));HX(0,ZC(2))0Ė22:X(R RXRX1"RX(ZR15)1350.ZRZR182500B1350H:N:Y UP_:qRX(AA)1300}RXRX1RXZR1350&ZRZR102000:1350:::: MOVE WINDOW UP: CALL WITH ZC(1-2),1640 :":, RIGHT%6:=@SP0S1S2:1350PJZC(S)NC1300YTI1_^:qhZC(S)ZC(S)I{m4000rSP11350wZC(3S)ZC(3S)I|(3S)4100,42001350:: DOWN:RXZZ11300RXNR1300ñEIER0IERK1?EY0(Y1)(?EM(Y2)Y04?EY01Y0@?EI1I1II?FI,KO? Fe?PÁI134:"-";::u?UM0:I1MN?ZÁJ1I:MM1?dú"ROW "J", COL "I" : ";?iúM(M)?nÂJ::I?xÁI134:"-";::?ñ?xÁI134:"-";::?ñÂ:@)12ĺ>fD1:868:>DIER0(>DY20Y>DK1MN:Y2Y2K:I1Y2:X2K1:T(1E8M(Y2))e>EIKMNn>$EY10~>.EX2017800>BEL1X2:X1Y2L:Y1Y1M(X1)M(I1L):L>EY1M(I1)Y1>EIKM(I1)Y1Y0:17910>EY1T17870>EY10IER1:?E :RAAZZ.1::" ROW "R" ";:EX(R,NC3)04160P12040XI0d"C1NC1T0(C)1II1:M(I)M(I)T0(C):T0(C)06C@RA1:868E:JF0OI1NTFFM(I)M(I)YI^:hFF12(SIN(N1))r FRIEDMAN 2-WAY ANOVA :5F$"FRIE"5040^:"FRIEDMAN TWO-WAY ANOVA BY RANKS"}:"HOW MANY COLUMNS? ";A$N(A$)N2110C1NC:T0(C)1::"SPECIFY "N" COLUMNS:"I1N15300T0(C)0M(I)00:M(2)C:Y(YT2);C1M(1):C2M(2):3300:X(1,0)S(XY)dC1M(2):C2M(3):3300:X(2,0)S(YZ)$C1M(1):C2M(3):3300:X(3,0)S(XZ).T(X(1,0)X(2,0)X(3,0))((1X(2,0)2)(1X(3,0)2))8:" KENDALL PHI: "TB110:: F$"KENP"4040+ :"KENDALL PARTIAL"T " RANK CORRELATION COEFFICIENT"f XSI(SI1)2r YX:ZX :"SPECIFY COL TO BE PARTIALLED OUT:" 3040:M(3)C:Z(ZT2) :"SPECIFY TWO OTHER COLUMNS:" 3040:M(1)C:X(XT2) 304 TAU: "T 110 : := COMPUTE S, GIVEN C1,C2C :K S0X RAAZZo X(R,NC3)03340| IAAZZ X(I,NC3)03330 X(I,C1)X(R,C1)SS(X(I,C2)X(R,C2)) I R  : : KENDALL PARTIAL :" ";:..*B" AT LINE "(218)(219)256" ":D.,B99: CHANGE!!!!!!!!!!c- BE69Ģ20::1:" I CAN'T MAKE SENSE OUT OF THAT! ";:I12000::1::868:3RXZR:161k-B:}-B" ERROR - ";-BE0E15J53856E(E255)1:16930-BJ43377(43583E)-B"(DOS) ";-"BK(J)-#B(K);-$BK192JJ1:16930.%B,@:",@ UPD UNDEF COUNTERS?,@ ONLY IF A SINGLE COLE,@:T,@C016740c,@UT(C)AA1s,PAUB(C)NRZZ,dA1:868:,xA:,A:,A:,A ERROR HANDLING,A:,A:,AE(222),A32,0,B33,40,B34,0,B35,24-B23: ***** !@MEANMEAN(X(R,CX)MEAN)N/+`@SUMSUMX(R,CX)I+t@SSSSX(R,CX)X(R,CX)P+@Rw+@NSIZEğ:" ERROR AT 16540 "::+@SD(CX)((NSSSUMSUM)(N(N1)))+@MEAN(CX)MEAN+@SUM(CX)SUM+@SS(CX)SS+@X(0,CX)10(X(0,CX)10)1: DO CORR ,@CX6300g*?(A$)0(A$)Cĺ"THAT LOOKS LIKE THE VALUE '"(A$)"'":"PLEASE CHOOSE ANOTHER NAME":16300u*?NA$(C)A$*?:"---UPDATING---";:*?CXC1C2*?X(0,CX)016580*@SUM0:N0:SS0:MEAN0*$@RAAZZ*8@X(R,NC3)016520*L@NN1+V )v?J1JV )x?CIV%(J)DREG1')z?JH)?X(0,C)0X(0,C)0:NA$(C)""j)?NA$(C)""NA$(C)"COL "(C))?:"SUPPLY A NAME FOR COLUMN "C)?"(HIT RETURN FOR '"NA$(C)"') : ";:"";A$)?A$""16360*?(A$)8ĺ"UP TO 8 CHARACTERS ONLY, PLEASE":1> IF C=0 UPDATE ALL ACTIVE COLS=( ? IF C>0 UPDATE Cg( ? IF INACTIVE, FLAG AS ACTIVE,(4? AND GET A NAME(H?:(\?C016240(f?C11:C2NC2(h?DREG0DREG1(j?16360(l?:(p?C1C:C2C(r?DREG016260(t?CDVDREG1 BE ASKED TO SUPPLY NAMES, JUST AS IN THE REST OF DAISY."I'5990Q' :W'>:'f19::"PRESS ANY KEY TO CONTINUE---";:X$:'h'> **********'> * *'> * UPDATE *'> * *'> **********'>:$(THE DATA TABLE."&h" IF YOU PRESS ANYTHING OTHER THAN ONE OF THE LEGAL KEYS FOR A NUMBER OR A COMMAND, YOU WILL HEAR TWO BEEPS."&|5990:3:958&7::"PRESS 'ESC' TO LEAVE THE DATA COMMAND."?'::"IF YOU CREATED ANY COLUMNS, YOU WILL A NUMBER AND MOVE TO THE NEXT POSITION, TYPE A COMMA, EITHER ARROW, OR A CARRIAGE RETURN. TO FINISH A NUMBER WITHOUT MOVING, TYPE A SLASH."%J5990:3:958%T::"ERRORS:"&^:" A BEEP WILL SOUND IF YOU ATTEMPT TO MOVE PAST THE EDGES OF $@5990:3:9585$A:"ENTRY OF A SINGLE NUMBER:"$B:"A SLASH (/) IS A DO-NOTHING COMMAND. IF YOU ARE TYPING IN A NUMBER, KEYING THE SLASH (/) WILL FINISH THE ENTRY. THE CURSOR WILL NOT MOVE FROM THAT POSITION."%C:"THUS, TO FINISH0+T$JAAZZ+^$R0:K1NC6+h$T0(K)0RRX(J,K)=+r$KG+|$XXRU+$R2R2RR\+$Jv+$K1NC:T0(K)09450+$C0:J1NR+$X2X2X(J,K)X(J,K)+$CCX(J,K)+$J+$C2C2CC+$K+$XXXX+$:+%Y(AC2XX)(ASI),%Y1Y(A1)S;:18:1*#:"TOTAL--"2*#" "T;:18:SIA1A*#:"F = "FJ*#110P*#:V*#:l*$F$"ANV2"10000*"$"INCLUDE HOW MANY COLUMNS? ";A$:A(A$):A0110*,$I1NC:T0(I)0:*6$"SPECIFY THEM:"*@$I1A:15300:T0(C)1:+J$X0:X20:R20:C21(A1))#Y1TX0&)#Y2Y1(SIAA)2)#FX2Y2])#::"ANOVA, ONE-WAY CLASSIFICATION":)#" SS";:18:"DF";:23:"MS")#:"TREATMENT--")#" "X1;:18:A1;:23:X2)#:"ERROR--")#" "Y1;:18:SIAA;:23:Y2)#:"MEAN--" *#" "500 (110((#:(2#:&(<# ANOVA,(F#:A(P#F$"ANV1"9240x(d#"INCLUDE HOW MANY COLUMNS? ";A$:A(A$):A0110(i#T0:S0:X00(n#I1A:15300:TTSS(C):SSSUM(C):X0X0SUM(C)SUM(C):(x#SSS(SIA): - 1)(#X0X0SI(#X1X0S)#X2X'#(S100.5)100;"%"'(''F:-'@:3'J:G'T PROBABILITYM'^:b'hF$"CHIT"9040'r"CHI-SQUARE TABLE":A$"CHI": INPUT "CHI? ";A$'|"DEGREES OF FREEDOM? ";DF'" TEST STATISTIC? ";T'A$"CHI"8100'110'XT(7(C))0F(PI)&t:$&~C17600.&CC18&FFCB&7550H&:h&X22((X2)DFEX)(FDF)q&CDFy&Y1&X11&:&XXX1&CC2&YYXC&X1X1Y& (X1XX)1E67650&S100(1X1X2)':"SIGNIFICANCE LEVEL: ";(R,C)E))E%:%CC %R&%:,%:E%$DF(ZZAAZAP)(N1)g%.:"DEGREES OF FREEDOM: ";DF%8:"CHI-SQUARE: ";X%=7500%@110%B:%D:%F CHI %H:%LX0ı%QPI3.14159265%VE2.71828183%`CDF2:F1&j(CC)$>:$HN10$RCX1N3$\N1N1X(R,T0(CX));$fCXA$p:J$zN20X$RXAAZZx$X(RX,NC3)0N2N2X(RX,C)$RX$:$D0$RXAAZZ$X(RX,NC3)0āCX1N:DDX(RX,T0(CX)):CX$RX$:$E(N1N2)D %XX((X(R,C)E)(X#:,#"HOW MANY COLUMNS? ";A$:A$""110F#N(A$):N1NNR110j#"LIST COLUMNS TO BE INCLUDED;"r#I1#I": ";#Q0:15300:GETCOL#T0(I)C#INII1:7120#:# X0#RAAZZ# X(R,NC3)07430#*CC1N$4CT0(C1) * (SD(C1) * SD(C1) + SD(C2) * SD(C2)) / (SD(C1) ^ 4 + SD(C2) ^ 4) - 2l"Q::"DEGREES OF FREEDOM: ";DF"V:" T-STATISTIC: ";T"[:24:39:A$"`6050"X:"b:"l CHI-SQUARE"v:"F$"CHIS"8040":"CHI-SQUARE TEST":Q0!."SPECIFY TWO COLUMNS:"/!315300:C1C?!815300:C2C!=T(SIZE)(MEAN(C2)MEAN(C1))(SD(C1)SD(C1)SD(C2)SD(C2))!BDF2SIZE2!G DF = (SIZE - 1) * (SD(C1) * SD(C1) + SD(C2) * SD(C2)) ^ 2 / (SD(C1) ^ 4 + SD(C2) ^ 4)H"L DF = (SIZE + : Q0:15300:GETCOL9 "COMPARE TO WHAT VALUE? ";XY T(MEAN(C)X)(SIZE)SD(C)g DFSIZE1 ::"DEGREES OF FREEDOM: ";DF :" T-VALUE: ";T :24:39:A$ 6050 : :  MEANS OF TWO COLS EQUAL? $:!)S MEAN OF COLUMN = GIVEN VALUE?"M:"2 - ARE MEANS OF TWO COLUMNS EQUAL?"r:"X - EXIT THE T-TEST ROUTINE"::" YOUR CHOICE? ";A$:A$"1"6125A$"2"6185A$"X"1106050:: MEAN = A GIVEN VALUE? AZZ&dX(R,NC3)0SS(X(R,0)X)2-nRLWS(NN(SI3SI)12NT)u:"KENDALL COEF OF CONCORDANCE: "W~110p:z: T-TESTS:F$"TTES"7040::12:"T-SIGNIFICANCE TEST":"SELECT OPTION:" :"1 - DOE"SPECIFY "N" COLUMNS:"!T0,I1N=3040:TTT3IT0(C)0PIV:^X0kRAAZZ X(R,NC3)05190X(R,0)0C1NC(T0(C)1X(R,0)X(R,0)X(R,C)2C<XXX(R,0)FRK:PXXSIZEUS0ZRAFF3SI(N1)/|:"FRIEDMAN STATISTIC: "F8110>:D:a KENDALL COEF/CONCORDg:|F$"KENC"6040:"KENDALL COEFFICIENT OF CONCORDANCE":"HOW MANY COLUMNS? ";A$N(A$)N2110C1NC:T0(C)1::!C;:4:NA$(C);:14:MEAN(C);1(36)23ĺ@26:SD(C)GCR:110X:^:zF# CHANGE SINGLE POINTZ#:n#F$"CHGO"9310#"ENTER ROW, COL, AND NEW VALUE"#"TO FINISH, ENTER 0,0,0"#R,C,X:R0C09190#RAARZZZ Q2:15300* RAAZZ4> X(R,NC3)03450BR XX(R,C0)\f XX1XX2X(R,C)Zcz Rn 16120w 110} : : MEAN AND S.D.:F$"MEAN"9070:"COLUMN";:14:"MEAN";:26:"STD DEV"C1NCX(0,C)0587009BJ43377(43583E)'9B"(DOS) ";29"BK(J)=9#B(K);Y9$BK192K7JJ1:16930d9%B" ":9*B" AT LINE "(218)(219)256" "9+B9,B255:1008=X(0,C)0ĺ"INACTIVE COLUMN!":1530018=Q0:78xA:=8A:C8A:Z8A ERROR HANDLING`8A:f8A:s8AE(222)8AE254ĺ"INCORRECT ENTRY---TRY AGAIN:":8B:8BE255ĺ" COMMAND ABORTED ":169398B" ERROR - ";9BE0E15J53856E:1693<(C$)0ġ:Q0:1107J<:-7K8 EXTENSIONS4?8:4@8I(F$)4E8I35I64FI$F$:147304F8:4G8:4M8 SEARCH HELP LIST4N8:4O84T8QCT4Y8QQ1QCT5^6 EXTENSIONS,1,#g36 UTILITY,14,HELP,INFO,RDIMM,NAMEM,CHGNM,QUIK,;,FREE,PRON,PROF,TEXT,!,QUIT,EXITp36QCTy3620036QQ1QCT36:36QNAME$:QX36948,20QX3:935:948,2136:" ";QNAME$;" "::37XQ1QX:XQ$:(XQ$,4),;:XQ:4 7,ANOVR,DURBR,BETAR,PLUGR^26 HYPOTHESIS TESTING,7,ANV1H,ANV2H,CHISH,TTESH,MANNH,COCHH,FRIEH26 CORRELATION,3,COVAR,CORRR,PARCR26 NONPARAMETRIC CORRELATION,4,SPEAH,KENRH,KENPH,KENCH26 FILE COMMANDS,7,ENTEM,SAVEM,EXAMM,OVERM,CATA,PR#,3R516 DATA DISPLAY,5,PLTSF,HISTF,PLOTP,SEQUP,SAVPPK16 TABLES,1,FREQFp16 BASIC STATISTICS,2,MEAN,STATF16 ONE VARIABLE TESTS,3,AUTOF,RUNSF,RUNXF16 REGRESSIONS,6,REGRR,SWEER,ALLSR,SUBSR,BACKR,FORWR26 REGRESSION RESULTS, 6,SUMMR,COEFR,4,DATADATA,ENTEM,OVERM,CHGOo06 DATA MANIPULATION,11,MOVE,MOVF,MOVR,RECO,SELR,DELR,RECR,DELB,RECB,PURG,CLRC06 TRANSFORMS,19,INTE,ABSO,ADDC,ADDV,SUBV,MULC,MULV,DIVC,DIVV,LOGE,LOG1,EXPO,POWE,INVE,CTOT,STAN,LEAD,LAGG,DIFF16 SORTS,3,SORT,TSOR,PSO/S/:/X/C1NC%/]/X(0,C)0121409/b/T0(C)112140O/g/X(R,C)XT0(C)KV/l/C`/q/JJIk/v/12050q/6:w/6:}/6:/6F$"HELP"14400/6::/6/6 17: #CATEGORIES/6 DATA CREATION,5,INDXM,RANDM,ZEROM,CATE,RANK06 DATA ENTRY . / T=0./C1NC../T0(C)1T0(C)05./C=./S0I./C1NC]./X(0,C)012090q.!/T0(C)012090.&/S0S1:I0:XX(R,C).+/X(R,C)XI0:XX(R,C).0/XX(R,C)II1.:/C.D/S0ı.I/K(2JI1)2.N/ IF I>1 THEN T=T+(I^3-I)/12-"!-%" "I;:18:SI1;:23:I12-%:"ERROR--"X-%" "E;:18:(SI1)(A1);:23:Si-%:"TOTAL--"-%" "T;:18:ASI1-%:" ROW F-RATIO: "X0-%"COLUMN F-RATIO: "Y0-%110-'14000-':-':-. RANK COLS IN ROW R-.:./J1,%I(SIR2XX)(ASI)(,&%I1I(SI1);,0%TX2XX(ASI)G,:%ETIY^,D%SE((SI1)(A1))j,N%Y0Y1Sv,X%X0I1S,%::"ANOVA, TWO-WAY CLASSIFICATION":,%" SS";:18:"DF";:23:"MS",%:"COLUMN--",%" "Y;:18:A1;:23:Y1-%:"ROW-FI$_(R+DN1ĺ:::"IF NECESSARY, CHANGE DISKS NOW":::"PRESS ANY KEY TO CONTINUE--";:S$:r(W+U1:DISK USEDx([+~(1:(1:(1(1:(1 (NEXT SECTION WOULD GO HERE)(2:(2:(2 INFO(2:(2F$"INFO"14000(2(FU$)413010NTE"11050>' +"FROM FILE OR KEYBOARD (F/K) ? ";A$:A$(A$,1)S'+A$"K"FI$"":f' +A$"F"11020}'*+"FILE NAME? ";FI$'4+(FI$)0ġ::"-- COMMAND NOT COMPLETED! --":110'>+(FI$,1)" "FI$(FI$,2):11060(H+(FI$,6)"DAISY."FI$"DAISY."X" ";&(C,R)&(::"COLUMN NAMES:"5&(C1ICM&(A$:" "C;:8:A$T&)Ce&):D$"CLOSE"n&)110t&^):&`) NOPE&h)16880&m)"NO SUCH FILE ON THIS DISK!"&r)110&*:&* GET FILE&*(FU$)4A$"F":FI$(FU$,5):11060 '+F$"EMINE FILE%(:%%<(F$"EXAM"127500%F(11000<%n(10600V%x(D$"VERIFY "FI$",D"DNb%(16880s%(D$"OPEN"FI$%(D$"READ"FI$%(IR,IC%("FILE CONTAINS "IR" ROWS AND "IC" COLUMNS"%(R1IR%(R4ĺ::"ROW "R:%(C1IC&("";X:R4ĺ$'ICNCāCIC1NC:X(0,C)1:NA$(C)"":CI$'AA1:ZZIR:ZAP0:SIZEIR]$'FILE$""10222i$'C1ICx$'NA$(C):C$'D$"CLOSE"$'1:868$'DREG1$'C0:16120$'110$':$'DREG1$'C1IC:16120:$'110$':$(: % ( EXAX(RR0,NC3)0#'FILE$""ĺ%#'R:#'F$"ENTE"10170@#':O#'D$"CLOSE"#'IRR0ZZZZIRR0:C1NC:UB(C)NRZZ::SIZEZZAAZAP1#'10205#'IRNRāRIR1NR:X(R,NC3)1:R#'C1IC:X(0,C)0:UT(C)0:UB(C)NRIR:NA$(C)"COL "(C):C,NNOT OVERLAY: COL "C" IS NOT ACTIVE":D$"CLOSE":110<"c'Cg"e'(FILE$)0ğ:"---READING DATA---";:s"j'R1IR"o'F$"OVER"X(RR0,NC3)0āC1NC:X(R,C)0:"t'C1IC"~'FILE$""ĺ"ROW "R", COL "C" ? ";"'"";X"'X(RR0,CC0)X"'C#''!Q'"CONTAINS "IR" ROWS, "IC" COLUMNS"z!V'(ICC0)NCĺ"BUT CURRENTLY DIMENSIONED FOR ONLY "NC" COLUMNS":D$"CLOSE":110!`'(IRR0)NRĺ"BUT CURRENTLY DIMENSIONED FOR ONLY "NR" ROWS":D$"CLOSE":110!a'F$"ENTE"100855"b'CC01C0IC:X(0,C)0ĺ"CA&: & ENTER DATA &:2 &F$"ENTE"10300@ &R00:C00K &11000 'A$"K"Ą"HOW MANY ROWS, COLUMNS? ";IR,IC:10070 %': )': /': 0'10600 1'D$"VERIFY "FILE$",D"DN 2'16880 8'D$"OPEN "FILE$",D"DN B'D$"READ "FILE$ L'IR,IC THERE ARE":"DELETED ROWS":110&"FIRST ROW IN BLOCK TO BE OVERLAID? ";R0:R01R0(ZZ1)ĺ"NO GOOD:":"CURRENT TABLE IS IN ROWS "AA" TO "ZZ:110&R0R01: OFFSET&"FIRST COL IN BLOCK TO BE OVERLAID? ";C0:C0C01&11000&10025&: X: #COLS%RAAZZ.%X(R,NC3)09680:%C1NCQ%X(0,C)0ĺX(R,C)X%C_%Rk%C1NCw%NA$(C)~%C%D$"CLOSE"%23:1:868%110%:%:& OVERLAY&:&F$"OVER"9960 &ZAP0ĺ"CANNOT BE DONE WHILE** FILE NOT SAVED! ***"::1100B%A$"Y"9535LC%D$"DELETE "FILE$",D"DNRD%:^E%16880F%24::"---WRITING DATA---":I%D$"OPEN "FILE$",D"DNN%D$"WRITE "FILE$X%SIZE: #ROWSb%IX0l%CX1NC%X(0,CX)0IXIX1%CX %I%: %: % SAVE"%:P&%F$"FSAV"ĺ"PLEASE USE 'SAVE' COMMAND":110e+%F$"SAVE"9938p0%11000{;%9541<%:=%D$"VERIFY "FILE$",D"DN>%16880?%"FILE ALREADY EXISTS;":"REPLACE IT (Y/N) ? ";A$@%A$(A$,1)A%A$"N"Ğ:"*$L120$II1!$IZZ9410@$X(I,NC3)0A$".":9370K$A$;I;g$X(0,C)0Ė10:X(I,C);$X(0,C2)0Ė26:X(I,C2);$$A$" "$L$IZZĺ:"PRESS ANY KEY TO CONTINUE--";:S$:1:868:(S$)3(S$)279365$:34,0:110510h$15140r$CNCCNC12s$CNC2CNC1=|$C2C1C$V$:CNCĺ,C,C2$2:" ROW ";:(10):X(0,C)0ĺNA$(C);$X(0,C)0ĺ"(INACTIVE)";$(26):X(0,C2)0ĺNA$(C2)$X(0,C2)0ĺ"(INACTIVE)"$:34,2$IAA1$A$" "9145#C1CNC9145/#X(R,NC3)09145B#X(0,C)09145L#9150u#"("R","C") IS NOT A VALID LOCATION"#9130#"("R","C") CHANGED FROM "X(R,C)" TO "X#X(R,C)X:9130#C0:16120#110$:"$:6$:J$:^$F$"QUIK"98z?J&8?X(0,C)0X(0,C)0:NA$(C)""H8?NA$(C)""NA$(C)"COL "(C)l8?:"SUPPLY A NAME FOR COLUMN "C8?"(HIT RETURN FOR '"NA$(C)"') : ";:"";A$8?A$""163608?(A$)8ĺ"UP TO 8 CHARACTERS ONLY, PLEASE":16300E9?(A$)0(A$)Cĺ"THAT COLS7 ? IF C>0 UPDATE CF7 ? IF INACTIVE, FLAG AS ACTIVE,a74? AND GET A NAMEg7H?:v7\?C0162407f?C11:C2NC27h?DREG0DREG17j?163607l?:7p?C1C:C2C7r?DREG0162607t?CDVDREG17v?J1JV7x?CIV%(J)DREG1CNCĺC$" IS NOT A VALID COLUMN":1530066 **********6> * *6> * UPDATE *6> * *6> **********6>:7> IF C=0 UPDATE ALL ACTIVE (NAME OR #)? ";C$*5F<(C$)0ġ:Q0:11005J<:C5K8 EXTENSIONS0?8:0@8I(F$)1E8I35I64FI$F$:14,KENRH,KENPH,KENCHM/6 FILE COMMANDS,7,ENTEM,SAVEM,EXAMM,OVERM,CATA,PR#,b/6 EXTENSIONS,1,#/6 UTILITY,14,HELP,INFO,RDIMM,NAMEM,CHGNM,QUIK,;,FREE,PRON,PROF,TEXT,!,QUIT,EXIT/6QCT/6200/6QQ1QCT/6:/6QNAME$:QX 06948,20QX3:ESSIONS,6,REGRR,SWEER,ALLSR,SUBSR,BACKR,FORWRm.6 REGRESSION RESULTS, 6,SUMMR,COEFR,ANOVR,DURBR,BETAR,PLUGR.6 HYPOTHESIS TESTING,7,ANV1H,ANV2H,CHISH,TTESH,MANNH,COCHH,FRIEH.6 CORRELATION,3,COVAR,CORRR,PARCR/6 NONPARAMETRIC CORRELATION,4,SPEAHULV,DIVC,DIVV,LOGE,LOG1,EXPO,POWE,INVE,CTOT,STAN,LEAD,LAGG,DIFF\-6 SORTS,3,SORT,TSOR,PSOR-6 DATA DISPLAY,5,PLTSF,HISTF,PLOTP,SEQUP,SAVPP-6 TABLES,1,FREQF-6 BASIC STATISTICS,2,MEAN,STATF-6 ONE VARIABLE TESTS,3,AUTOF,RUNSF,RUNXF-.6 REGR,6,6 17:#CATEGORIESM,6 DATA CREATION,5,INDXM,RANDM,ZEROM,CATE,RANKz,6 DATA ENTRY,4,DATADATA,ENTEM,OVERM,CHGO,6 DATA MANIPULATION,11,MOVE,MOVF,MOVR,RECO,SELR,DELR,RECR,DELB,RECB,PURG,CLRC?-6 TRANSFORMS,19,INTE,ABSO,ADDC,ADDV,SUBV,MULC,MATION ABOUT "F$".":133204+3D$"READDAISY:INFO,R"R<+3A$+3(A$,2,6)"!PAUSE"ĺ:D$:"PRESS ANY KEY TO CONTINUE--";:C$:::13300+3(A$,2)+3I((A$,1))+3I0RRI:13270+4:D$"CLOSE":110+6:+6:+6F$"HELP"14400+6::O SUCH COMMAND..."::13010,*3:D$"CLOSE"H*3:D$"VERIFYDAISY:INFO"Z*3:" "F$" ":x*3:D$"OPENDAISY:INFO,L45"*3D$"READDAISY:INFO,R"(N10)*3"";A$*3RN10(N10):RR31*3R((A$,R,3))+3R0ĺ"I'M SORRY, I DON'T HAVE ANY INFORM)2F$(FU$,5)1)2(F$,1)" "F$(F$,2):13006<)213011u)2"ABOUT WHICH COMMAND WOULD YOU LIKE MORE INFO? ";F$)2F$""110)2N0::QCT)2QQ1QCT:QN$:QX)2XQ1QX:XQ$:NN1)2(XQ$,4)F$13200)3XQ,QQ*3"I'M SORRY, THERE IS NNSIONS "?8:"@8I(F$)5"E8I35I64FI$F$:14730;"F8:A"G8:Y"M8 SEARCH HELP LIST_"N8:e"O8n"T8QCT|"Y8QQ1QCT"^8QNAME$"c8QX"h8XQ1QX"r8XQ$"|8(XQ$,4)F$14700"8XQ"8QQ"8"'"FUNC$"' IS NOT A VALID COMMAND!"#8"TYPQ1QCT!6:!6QNAME$:QX=!6948,20QX3:935:948,21W!6:" ";QNAME$;" "::{!7XQ1QX:XQ$:(XQ$,4),;:XQ:! 7QQ! 7:"YOU MAY TYPE 'INFO' TO GET INFORMATION ABOUT ANY SPECIFIC COMMAND."!7255!7110!x7:!;8:!<8:">8 EXTEPARCR@ 6 NONPARAMETRIC CORRELATION,4,SPEAH,KENRH,KENPH,KENCH| 6 FILE COMMANDS,7,ENTEM,SAVEM,EXAMM,OVERM,CATA,PR#, 6 EXTENSIONS,1,# 6 UTILITY,14,HELP,INFO,RDIMM,NAMEM,CHGNM,QUIK,;,FREE,PRON,PROF,TEXT,!,QUIT,EXIT 6QCT 6200!6QABLE TESTS,3,AUTOF,RUNSF,RUNXFW6 REGRESSIONS,6,REGRR,SWEER,ALLSR,SUBSR,BACKR,FORWR6 REGRESSION RESULTS, 6,SUMMR,COEFR,ANOVR,DURBR,BETAR,PLUGR6 HYPOTHESIS TESTING,7,ANV1H,ANV2H,CHISH,TTESH,MANNH,COCHH,FRIEH 6 CORRELATION,3,COVAR,CORRR,S,19,INTE,ABSO,ADDC,ADDV,SUBV,MULC,MULV,DIVC,DIVV,LOGE,LOG1,EXPO,POWE,INVE,CTOT,STAN,LEAD,LAGG,DIFF6 SORTS,3,SORT,TSOR,PSOR6 DATA DISPLAY,5,PLTSF,HISTF,PLOTP,SEQUP,SAVPP6 TABLES,1,FREQF6 BASIC STATISTICS,2,MEAN,STATF6 ONE VARI6F$"HELP"144006::#6;6 17: #CATEGORIESn6 DATA CREATION,5,INDXM,RANDM,ZEROM,CATE,RANK6 DATA ENTRY,4,DATADATA,ENTEM,OVERM,CHGO6 DATA MANIPULATION,11,MOVE,MOVF,MOVR,RECO,SELR,DELR,RECR,DELB,RECB,PURG,CLRCc6 TRANSFORML,XX2PLUS(SPLUS)#V,XXXS1I`," EXPECTED NUMBER OF RUNS = "Xkj,SD((XX(XXS))(SS(S1)))t,"STANDARD DEVIATION OF RUNS = "SDy,SD0110~," (OBS-EXP) / (STD DEV) = ";(RNSX)SD,110,:,:1:6:6:6:";CE$:CENTER(CE$):CE$""CENTERMEAN(C)7+RAAZZO+X(R,NC3)011310i,I0LS(X(R,C)):I1,S(X(R,C))L11305,LS(X(R,C))$,RNSRNS1),S(X(R,C))0PLUSPLUS1.,R8," OBSERVED NUMBER OF RUNS = "RNSB,SZZAA1ZAPH17āIY40:"-";:I+:H1+D$"PR#0":1107+:=+:I+ RUNSO+:d+F$"RUNS"11210z+F$"RUNX"12750+ZZAA110+S(X)(12(XCENTER))+15140+RNS1:PLUS0+I0+CENTERMEAN(C)*+F$"RUNX"Ą"DIVIDING VALUE? 155+XCE(17.5H)UN:X;<+H34ĺ" AND ABOVE";:11165M+17:XUNIT;]+34:H%(H);h+K$"!"+((H2)5)5(H2)K$"+"+H0K$"^"+H34K$"V"+38:K$;+H0H3411190+Y0:H%(H)0Y(H%(H)F.5):I1Y:"*";:I+0110@a+"DO YOU WANT THIS HISTOGRAM PRINTED (Y/N) ? ";A$Pf+A$"N"110ck+A$"Y"11105n+:D$"PR#"PS:(9)"80N"p+:"HISTOGRAM OF "NA$(C)" (COLUMN "C")":r+"------- RANGE ------------ #":+H034+H0Ė11:"BELOW";:11.25F.254+:9+I1331>+::JI2(I2)?@+::J0Ġ4NB+::J1Ġ12bH+Y(H%(I)F.5)xM+Y0ď39,40YI3R+I:21:" "L0$T+22:H%(0)0ĺH%(0)" BELOW THIS RANGE ";U+H%(34)0ĺH%(34)" ABOVE THIS RANGE"X+24:935:::\+PSB" ERROR - ";-<BE0E15J53856E:16930D<BJ43377(43583E)S<B"(DOS) ";^<"BK(J)i<#B(K);<$BK192K7JJ1:16930<%B" ":<*B" AT LINE "(218)(219)256" "<+B<,B255:100NRhAANC;@ ONLY IF A SINGLE COL ;@:/;@C016740>;@UT(C)AA1N;PAUB(C)NRZZ];dA1:868:c;xA:i;A:o;A:;A ERROR HANDLING;A:;A:;AE(222);AE254ĺ"INCORRECT ENTRY---TRY AGAIN:":;B:;BE255ĺ" COMMAND ABORTED ":16939<MSUMX(R,CX)':t@SSSSX(R,CX)X(R,CX).:@RU:@NSIZEğ:" ERROR AT 16540 "::|:@SD(CX)((NSSSUMSUM)(N(N1))):@MEAN(CX)MEAN:@SUM(CX)SUM:@SS(CX)SS:@X(0,CX)10(X(0,CX)10)1:DO CORR :@CX:@::@ UPD UNDEF COUNTERS LOOKS LIKE THE VALUE '"(A$)"'":"PLEASE CHOOSE ANOTHER NAME":16300S9?NA$(C)A$n9?:"---UPDATING---";:|9?CXC1C29?X(0,CX)0165809@SUM0:N0:SS0:MEAN09$@RAAZZ98@X(R,NC3)0165209L@NN19V@MEANMEAN(X(R,CX)MEAN)N :`@SUҠĠԮԠ΢ǠŠӠΠΠǢΠӠ̮Ҡ̠ԮǠϠŢӠΠŠάԠŢŮĠϠΩӠӠ̬ҢŬϠӠӠΠԢҧӠǠԮĠĠŠӺԠԠŠӠΠήӮӠӠŢǠ̠ƠŠӮƠŠŠӠ΢ǠӠΠήǠǠŠԠӠΠנӠנΠנƠŠנάή̠ƠŠŭӠӢ٠ŠƠŠΠŠӢƠӠԠӠƠӢΠźԠŠΠͭ͠ȠŠΠάԠŠΠƠŠάĠΠŠ٠ŠĢήŠǠΠӢνĠĠνԬŠçĠ٠ŧ֠ŠŠŠΩ٠ҮŠŠӠΠΠϠĠҮ֠٠ϠӢөҮΠӭàŠԠϠŢӠΠήϠŠΠ٠ҮƠՠԠϠԠԠ͠άԠŠŢçĠȠŠŮΠӭà٠Ԡ٠̢ӠΠήӭàĠԠϠ̠ӢΠή֠ĠϠӠөҮԠŠŠΩ͢B" ERROR - ";/BE0E15J53856E:16930FBJ43377(43583E)UB"(DOS) ";`"BK(J)k#B(K);$BK192K7JJ1:16930%B" ":*B" AT LINE "(218)(219)256" "+B,B255:100D43377(43583E)(B"(DOS) ";*("BK(J)5(#B(K);Q($BK192K7JJ1:16930\(%B" ":(*B" AT LINE "(218)(219)256" "(+B(,B255:1000C)0ĺ"INACTIVE COLUMN!":15300)'=Q0:/'xA:5'A:;'A:R'A ERROR HANDLINGX'A:^'A:k'AE(222)'AE254ĺ"INCORRECT ENTRY---TRY AGAIN:":'B:'BE255ĺ" COMMAND ABORTED ":16939'B" ERROR - ";'BE0E15J53856E:16930(BJ480&N * UPDATE *8> * *M> **********S>:z> IF C=0 UPDATE ALL ACTIVE COLS ? IF C>0 UPDATE CH?:\?C016240f?C11:C2NC2h?DREG0DREG1j?16360l?:p?C1C:C2Cr?DREG016260***********':t'v'DN1U0Ģ6:"PLEASE MAKE SURE THAT THE DAISY DISK IS IN THE DRIVE"::"PRESS ANY KEY TO CONTINUE--";:S$:y'SP0: PROMPT FOR NEXT COMMAND~'768: SAVE VARIABLES':D$"RUN DAISY:C"'> **********>  NOT A DIF FILE:*D$"CLOSE"0" I'M SORRY, THAT DOESN'T APPEAR TO BE A DIF FILE! "QQ13500:100':':':' ********************' * GO BACK TO DAISY * ' *********ԢӠȠԧҠԠ٠ĠӠǠȢŠ̠ŠĮՠΠȠҠǠȠ٢٠ǠԧҠԧԠӠƠĠήźˠҠŠήĠԠנȠ٠ӠԠΠŮƠՠŠǠΠƠҢǠȠ٬ՠΠ٬ŠŠҢƠӠϠԠ٠ŠӮŠԠΠӢΠԠΠӢӠƠĮˠˠԠŠӠŢǮΠӠ٠٠ϠԠήΠՠĠҠǠȢ٬ŠŠӠŢҠҠŮŠͧϠŢӠҠ٠ǠŠҠƢӮԠ٠ŠĮҡՠΠŠ̭ӢǠŠ٠ƠРԬҢǠŠΠƠԬϠ٠РŠ٠Ӡ̠ŠĢ٠ӠǠȠŠЧϠŠԠƠ̢Š٠ӮŠϧϠԠҠ΢ˠٮŢŠٮŢŠٮٮ¢ŠӠ̭ĮŠECTING THE DAISY DISK TO BE IN DRIVE #1."::"WILL YOUR DATA FILES BE ON THE SAME DISK IN DRIVE #1, OR ON A SEPARATE DISK IN DRIVE #2 (ENTER 1 OR 2) ? ";DN$ \DN$"1"DN$"2"91 ]796,(DN$) a7:768 bD$"RUN DAISY:M" c"$,I,1))128::72,0:1447 S(798)090: NO PRINTERW T(799)190: SILENTYPE? U23:"--NOW INITIALIZING SILENTYPE--" V:::D$"PR#"(798) W::::D$"PR#0" X:::12528,7:12524,0 Y:::23:958 Z(796)297 [12:958:"I AM EXP " :' 2SP1:NC10: RDIM IN MAIN3 FD$(4)K KD$"BRUNDAISY:PARM"v M8:H:" VERSION "(848)"."(846); N(847)0ĺ"."(847) O Q(977)191(978)157A$"ADDB:20 51 3 F0 45 EA EA EA EA EA EA EA EA N D823G":I1(A$):511I,((A 16385!(4)"MAXFILES2"5(4)"NOMONCIO";H ::H10m H:T$" ":T$H:" STATISTICS "H:" WITH DAISY "H:T$12:H:" COPYRIGHT 1981 " 13:H:" KEVIN C. KILLION    X(R,CX)"t@SSSSX(R,CX)X(R,CX))@RP@NSIZEğ:" ERROR AT 16540 "::w@SD(CX)((NSSSUMSUM)(N(N1)))@MEAN(CX)MEAN@SUM(CX)SUM@SS(CX)SS@X(0,CX)10(X(0,CX)10)1: DO CORR @CX@:@1:868:A:A:A:AISY IS NOW SET UP FOR USE ON THIS SYSTEM."9l20:?#:E#:Z(#A$"YES"A$"Y"n2#A$"NO"A$"N"t<#DD GO BACK TO REVIEW THIS OVER AGAIN (Y/N) ? ";A$:9000GA$"Y"100XA$"N"500^&m+ISW15650"THERE WERE NO CHANGES MADE."120:5"NOW SAVING YOUR CHANGED INFORMATION..."::D$"BSAVE DAISY:PARM,A768,L208"X10/b:"DETAILS BE DISPLAYED ? ";A$:90008A$"N"Ĺ797,0:500IA$"Y"480:"DO YOU WANT TO SEE INTERMEDIATE STEPS IN ANY REGRESSIONS AS WELL ? ";A$:9000A$"N"Ĺ797,1:500A$"Y"490797,2:10147"DO YOU WANT TOLS ABOUT ITS OPERATION.":450DB2ĺ"DISPLAY TECHNICAL DETAILS, PLUS INTERMEDIATE CALCULATIONS DURING REGRESSIONS.":450:"IS THIS ACCEPTABLE (Y/N) ? ";A$:9000A$"Y"500A$"N"400ISW1 :"SHOULD TECHNICAL D$DN(A$)#DN1DN2380/796,DN5:=10KDB(797)^DB0DB2475"AS PRESENTLY SET UP, DAISY WILL"DB0ĺ"AVOID DISPLAYING TECHNICAL DETAILS ABOUT ITS OPERATION.":450DB1ĺ"DISPLAY CERTAIN TECHNICAL DETAINE DISK DRIVE.":350dJDN2ĺ"DAISY IS PRESENTLY SET UP FOR A SYSTEM WITH TWO DISK DRIVES.":350mT375^:"IS THIS ACCEPTABLE (Y/N) ? ";A$:9000hA$"Y"400rA$"N"300wISW1|:"DOES THIS SYSTEM HAVE":" 1 OR 2 DISK DRIVES? ";A ? ";A$A$""A$"@":288(A$)1ĺ:"PLEASE ENTER EXACTLY ONE CHARACTER, WHICH WILL BE USED TO REPRESENT AN ESCAPE CHARACTER...":285 819,(A$)+:,106DN(796)@DN1ĺ"DAISY IS PRESENTLY SET UP FOR A SYSTEM WITH OCTIONS (Y/N) ? ";A$,A$"N"Ĺ819,27:300UA$"Y"ĺ:"Y OR N, PLEASE...":280:A$((819)):"SHALL I USE '";A$;"' TO REPRESENT AN ESCAPE (Y/N) ? ";:"";X$X$"Y"288:"WHAT CHARACTER WILL YOU USE TO REPRESENT AN ESCAPE (E.G., @):" 4 - APPLE COMMUNICATIONS CARD"O :" 0 - OTHER (NOT MADE BY APPLE)"p :"WHICH (1,2,3,4,0) ? ";A$} PT(A$) PT0PT4240 PT0Ĺ799,0:280 799,PT :10:"DOES YOUR PRINTER USE 'ESCAPE' COMMAND CODES FOR VARIOUS FUNSLOT NUMBER? ";A$ PS(A$)W PS1PS7ĺ" SLOT MUST BE BETWEEN 1 AND 7...":200c 798,PS 10:"WHAT KIND OF INTERFACE CARD IS IN USE?" :" 1 - APPLE SILENTYPE" :" 2 - APPLE PARALLEL CARD" :" 3 - APPLE SERIAL CARD"% NTED BY THE CHARACTER '";((819));"'."W :"IS THIS ACCEPTABLE (Y/N) ? ";A$:9000g A$"Y"300x A$"N"152 ISW1 :"WILL THERE BE A PRINTER ATTACHED ? ";A$:9000 A$"N"Ĺ798,0:799,0:819,27:300 A$"Y"180 "IN WHICH PPLE SERIAL BOARD)";:145L PT4ĺ"(AN APPLE COMMUNICATIONS BOARD)";:145h "(NOT MADE BY APPLE)"; " IS":"CURRENTLY INSTALLED IN SLOT "PS".": (819)27ĺ"PRINTER DOES NOT USE ESCAPE CODES.") (819)27ĺ"AN ESCAPE CODE WILL BE REPRESE ePS(798)5 i"DAISY IS CURRENTLY SET UP FOR USE"Z nPS0ĺ"WITHOUT A PRINTER.":152h sPT(799) x"WITH A PRINTER. THE INTERFACE CARD " PT1ĺ"(AN APPLE SILENTYPE CARD)";:145 PT2ĺ"(AN APPLE PARALLEL BOARD)";:145 PT3ĺ"(AN Av D$(4),ISW0: SWITCH FOR CHANGES430: :I :::H10h H:" "H:" STATISTICS "H:" WITH DAISY "H:" ":8:D$"BLOAD DAISY:PARM"c:d10      (R,C2):X(R,C)X(R,C0)Z:7X(R,C)(X(R,C0)):UX(R,C)(X(R,C0))(10):mX(R,C)(X(R,C0)):X(R,C)X(R,C0)Z:X(R,C)1X(R,C0):SSX(R,C0):X(R,C)S:X(R,C)(X(R,C0)MEAN(C0))SD(C0): X(R,C)(X(R,C0)):*:>4570,4590,4610,4630,4640%1:868,R4:?16120H110N:fX(R,C)(X(R,C0)):}X(R,C)X(R,C0)Z:&X(R,C)X(R,C0)Z::X(R,C)X(R,C1)X(R,C2):NX(R,C)X(R,C1)X(R,C2):bX(R,C)X(R,C1)X(R,C2):vX(R,C)X(R,C1)XACTIVE COLUMN!":39904130.Q1:151407C0CU"(T2T3T8T12)4170n6"WHAT CONSTANT? ";Z}JQ2:15300^S0hrRAAZZX(R,NC3)04270" ROW "R" ";T4350,4370,4390,4410,4430,4450,4470,4490,4510,4530,4550,F$"INTE"T16:39502:3F4730: NOT FOUND9Z:[nZZAAĺ"NO ACTIVE ROWS":110mT4T74090"WHAT TWO COLUMNS? ";C1,C2C10C20Č65325:3990C1NCC2NCĺ"THERE ARE ONLY "NC" COLUMNS!":3990X(0,C1)0X(0,C2)0ĺ"INF$"DIVI"T7:3950.~F$"DIVV"T7:3950GF$"DIVC"T8:3950`F$"LOGE"T9:3950zF$"LOG1"T10:3950F$"EXPO"T11:3950F$"POWE"T12:3950F$"INVE"T13:3950 F$"CTOT"T14:3950F$"STAN"T15:3950(X(R,C0)!f XX1XX2X(R,C)Z(z R3 16120< 110B :H :` TRANSFORMATIONSf : F$"ABSO"T1:3950F$"ADDC"T2:3950F$"MULC"T3:3950.F$"ADDV"T4:3950BF$"SUBV"T5:3950VF$"MULV"T6:3950j CATEGORIZE :' F$"CATE"3570N "ENTER COLUMN TO BE CATEGORIZED:"^ 15300:C0C "SUPPLY ACCEPTABLE RANGE (X1,X2): ";X1,X2 "CATEGORICAL VALUE IF ELEMENT IS IN THIS RANGE: ";Z Q2:15300* RAAZZ> X(R,NC3)03450R XЭF$"SELR"3250r 15140Jt "SUPPLY ACCEPTABLE RANGE (X1,X2): ";X1,X2Wv RAAZZnx X(R,NC3)03202{z XX(R,C)| XX1XX23202~ X(R,NC3)1 ZAPZAP1:SIZESIZE1 DREG0DREG1 R C0:16120 110 : :  DELETES:*F$"DELB"İ15880:2070?F$"DELR"3184T15740:R1R:R2RaRR1R2u*RAARZZ2130>X(R,NC3)0X(R,NC3)1:ZAPZAP1:SIZESIZE1:DREG0DREG1RRfC0:16120z110::l SELECT ROWSn :p F$"RECB"İ15880:1810+ F$"RECR"2010@ 15740:R1R:R2RF :S RR1R2 &RAARZZĺ"ROW "R" CANNOT BE RETRIEVED NOW":1870 :X(R,NC3)1X(R,NC3)0:ZAPZAP1:SIZESIZE1:DREG0DREG1 NR bC0:16120 v110 : : DREG0ĺ"PLEASE ASK FOR SUMM, COEF, OR ANOV FIRST!":110m DREG0ĺ"REGRESSION NOT SPECIFIED!":110| ZZAA110 Q2:15140 8910:16120 "110 6: J: ^ RETRIEVES r: F$"RECO"1730 R1AA:R2ZZ:1810 : ":110 \F$"PRON"610, ](798)0110D _D$"PR#"(798):110J bP l:^  MOVESd :y F$"MOVE"1390 15140:C0C 2Q2:15300 F1550 Z: nF$"MOVF"1450 C0NC1:1500 : F$"MOVR"1670 C0NC2 :? ,2):110 : : FREE& :W F$"FREE"ĺ(0)" FREE BYTES AVAILABLE":110] :c :w V DOS COMMAND} W: X(FUNC$,1)D$ĺFUNC$:110 Y(FU$,3)"PR#"ĺD$;FU$:110 Z(FU$,4)"CATA"ĺD$"CATALOG,D"DN:110 [F$"PROF"ĺD$"PR#0(FUNC$,4) F$";"ė:110" :( :4 END: :p (PERMIT RESTART WITH EITHER 'RUN' OR 'CONT') F$"QUIT"F$"EXIT"SP0:FU$"":768::100 : : COMMENTS : F$"TEXT"110 (F$,1)"!"Č823:FU$(IN$,1):(FU$v7)(797)ĺ"<:C>: "256(106)(105)@782:RESTORE PTRSh(797)ĺ"<:C>: "256(106)(105)t 16880 33,40SP1302:F COMMAND DISPATCHZ:d16880n:"->";:912:FUNC$(IN$,1)FUNC$""110SP0 F$                    IXC(CCCCCC)2*pXR(IX)SD(C)SD(CC)Cq.0001(X10000.5)MuCC:TzC]|110cJ$:iT$:^$F$"QUIK"11450h$15140r$CNCCNC1s$CNC2CNC1|$C2C1$$:CNCĺ,C,C2$2:" ROW ";:(10):X(0,C)0ĺNA$(C);0,C)10(X(0,C)10)CE1:868:CFLAG0:((43604)16)12ĺKQ :W*:b4COVARwHF$"COVA"9310R6680W\C1NC]X(0,C)07290aCCCNCbX(0,CC)07285d935fC"-"NA$(C);:12:CC"-"NA$(CC)":";:26k,NC3)06950-R(IX)R(IX)X(R,C)X(R,CC)4&RSNNUNAR(IX)SUM(C)SUM(CC)qbD1NASS(C)SUM(C)SUM(C)vD2NASS(CC)SUM(CC)SUM(CC)S(D1)(D2):S0R(IX)0:7070R(IX)NUSCCCC1NC:CLEAR FLAGSX(0,C)0X(,C)10(X(0,C)10)CC1C3X(0,CC)07070FCFLAG06865iX(0,CC)10(X(0,CC)10)7070M0M1::"---COMPUTING CORRELATIONS-->";:30:868:C;:34:CC;IXCC(CCC)2CCCR(IX)1:7070R(IX)0RAAZZ:X(RCC)$2CCDIXCD(CCC)2:6490:FIXC(CDCDCD)2YZT:(R(IX)1000.5).001;cdTT9knCCqyCVC1C21NA7Ģ24:9356150:DOIT:M0NAZZAA1ZAPC1NCX(0,C)07072CFLAGX(0C11C2C13:C2(NA)C2NA0C1(NA)110`.C11ė:" CORRELATION COEFFICIENTS"fBnVT6w`935jCCC1C2~CT0(CC)T:(NA$(C),8);TT9:CC:CV1NA935CDT0(CV)CD;:T6 CCC1C2CT0(B(J) <JCF:"PREDICTED DEPENDENT":" ("NA$(DV)") VALUE: "Y^P:"AGAIN (Y/N) ? ";A$nZA$"N"110xd5100~:> CORRR:fF$"CORR"7240z6680:DO IT!NA0C1NCX(0,C)06110NANA1:T0(NA)CCDREG0İ11700:12000:12050:DREG0K:"FOR EACH INDEPENDENT VARIABLE,"x"ENTER VALUE OR PRESS RETURN FOR MEAN:"~YB0J1JV NA$(IV%(J));:10"? ";A$A$""XMEAN(IV%(J)):" (MEAN = "X")":5170(X(A$)2YYX(P7)M(P1)1%NM(P8)IV%(M(P1))7XM(P9)M(P3)MbPP6:1680:PP6ZlM(P6)R`v:{RM(P4)M(P5)M(P6)RR((1M(P5)2)(1M(P6)2)):::F$"PLUG"5990DREG0ĺ"REGRESSION NOT SPECIFIED":110#X2T IXX1(X2X2X2)2' RR(IX)- 3 :G M(P7)M(P1)1Y M(P8)M(P2)k M(P9)M(P3) PP6:1680:PP6 M(P4)R : M(P7)M(P1)1 M(P8)IV%(M(P1)) M(P9)M(P2) &PP6:1680:PP6 0M(P5)R ::DM JX1620 "K1JV+ 'JIV%(K)16202 ,K> 6M(1)JVI ;M(2)XT @M(3)Jb EP0:1680 J935:" "NA$(J);:14:" = ".0001(10000R.5) TJ ^X h110 : DOIT M(P1)01730 X1M(P2):X2M(P3) X2X1TX1:X1X2:2 "HOW MANY COLUMNS TO BE PARTIALLED OUT? ";JVP I1JV:15300:IV%(I)C:_ X11:X2NCi 6680v XX1X2 X(0,X)01630 K1JV:XIV%(K)1630 K 935::"PARTIAL CORRELATION OF "NA$(X)" WITH:" J1NC X(0,J)01620  [F$"PROF"ĺD$"PR#0":1101 \F$"PRON"610C ](798)0110[ _D$"PR#"(798):110a b:g :m : F$"PARC"5040 DREG01525 "USE CURRENT REGRESSION (Y/N) ? ";A$ A$"Y"X1DV:X2DV:1540 A$"N"1512 DREG0DREG1110 :7 F$"QUIT"F$"EXIT"FUNC$"":768::100= :P F$"TEXT"110 (F$,1)"!"Č823:FU$(IN$,1):(FU$,2):110 U: V: W: X(FUNC$,1)D$ĺFUNC$:110 Y(FU$,3)"PR#"ĺD$;FU$:110 Z(FU$,4)"CATA"ĺD$"CATALOG,D"DN:11071256(106)(105)16385ğ:"TOO BIG!"::3A(797)04j"<:R>: LOMEM AT "256(106)(105)s782y: 16880 33,40130Z:d16880n:"->";:912:FUNC$(IN$,1)FUNC$""110F$(FUNC$,4) F$";"ė:                !!!!! ::::*  BEEP0:;64477A:G(:V2 CURSOR\<:fF32,0qG33,40{H34,0I35,24P3RXZRZ18S14d100:: LEFT:SP0S2S1:1350ZC(S)11300I135,19ZRAAZC(1)1(ZC(2)22RXAA8$:M) DRAW #S, COLSS*:_.LZR15r8LZZ1LZZ1|=3:1BKZRLG" ";:1LX(K,NC3)0ĺ"-":1120V:K:`Kj:t4100: LEFT~4200: RIGHT::!PT WHEN WE'RE BACK&768:SAVE PTRSD:::(4);"RUN DAISY:C"JP:V:\:o INITIALIZEu:I1NC2:T0(I)0:21"'ESC' TO EXIT,""'?' FOR ASSISTANCE"" "NR" ROWS, "NC" COLUMNS AVAILABLE" UPDATE + EXITk:3p32,0:33,40:35,24:34,209qGrC1NC2^tT0(C)2X(0,C)1puT0(C)İ16120wzC}:::::43605,(6)43606,(7)(6)35(7)151ĺ"-- PLE ON --":34,0SP0:PROMC(2)%S1JI1:JNCII1:JJ1ES2IJ1:I1II1:JJ1aIZC(1)ZC(1)I:4100}JZC(2)ZC(2)J:4200&1350 :%:* UNKNOWN KEY/:4X$"/"13506644779I150:>64477H1350\:a:f (hX$"D"D3D:1063,(5712D):1350UmX$"?"İ5040:1070:1063,(5712D):420irX27880:EXITo:u:SPLIT:X$"S"820SP1SP:SP1ĞI118I:20:" ";ISP11350:IZC(1):JZP1290$ZC(S)1ZC(S)1:4000.17004!:P"ZC(1)1ZC(1)1:4100l'ZC(2)2ZC(2)2:4200t,S1~117005:6RXAA8ZR(AA)1600;ZRAA=32,0:33,40:34,0:35,24>1070@1600T:U:Y FUNCTIONSZ:N;36,MODE::ZC(1)ZC(2)S3S:4000:S3SEMODE0K:Q:e POSITIONINGk:X$"O"X$";"S3S:1350X8ĴD1500,1800 X21X32X44ĴD1600,1700: CARRIAGE RETURNX13360D2310S0,C)0215X(0,C)1$T0(C)2<IAAZZ:X(I,C)0:KUT(C)AA1`UB(C)NRZZ:???nX(RX,C)Nx4000240:: STORE VALUE:X(RX,C)NT0(C)0T0(C)136,MODE" ";36,MODE32,0:33,40:34,0:35,241 3RXZR:1::RX;:U X(0,ZC(1))0Ė4:X(RX,ZC(1));z X(0,ZC(2))0Ė22:X(RX,ZC(2)); 868 ZZZZ1:SIZESIZE1 I1NC2 X(0,I)0T0(I)0T0(I)1 I : : IF COL INACTIVE: : X(ZX(RX,NC3)0Ĺ36,MODE:X(RX,ZC(S));6 MODE0:1350< :B :Y CLOSE NUMERIC?_ :o MODE0255{ CZC(S) N(NUM$) : IF ROW INACTIVE: : RXZZ198 X(RX,NC3)0 I1NC:X(RX,I)0: X(RX,ZC(S))N X44175 }X47175$ X43175* :0 :D ADD TO NUM$J :n MODE0MODE(36):NUM$X$:155 NUM$NUM$X$ (NUM$)13ĺX$; 100 : CNTL-X : MODE0100 36,MODE:" ";% X(0,ZC(S))0RXZD1:1063,45 N:' P1350: CURSOR- `:3 a:D b DISPATCHP c16880e dX$:X(X$):107 eX(16384):X128100 f16368,0 gXX128 hX$(X) i: kX(RX,NC3)0RX(ZZ1)255 nX$"E"145 sX57175 vX24161 x,16,249,48,225,160,0,32,158,252,76,34,252G I1228812335:J:I,J:IS 16880Y (:_ ):s -X(43605):6,X .Y(43606):7,Y 2X35Y151ĺ"-- PLE OFF --":43605,27:43606,253:I1200:I 7: 8: <1000: INIT >S1 @SPLIT0 BF&+(797)ĺ": "256(106)(105)B782:RESTORE PTRSl(797)ĺ": "256(106)(105)~:(4)"PR#0")  56,165,35,233,1,72,32,36,252,165,40,133,42,165,41,133,43,164,33,136,104,233,0,197,34,48,13,72,32,36,252,177,40,145,42,136                :& :0 KENDALL RANK#: :8D F$"KENR"3540fI :"KENDALL RANK CORRELATION COEFFICIENT"xN XSI(SI1)2S YXX :"SPECIFY TWO COLUMNS:"] 3040:C1C:X(XT2)b 3040:C2C:Y(YT2)g 3300l TS(XY)  :" KENDALLANKED COLUMN!":3040+ R1ZZ:X(R,0)0:8 RAAZZi X(R,NC3)0X((X(R,C)),0)X((X(R,C)),0)1p R~ T20:T30 R1ZZ X(R,NC3)0X(R,0)0T2T2X(R,0)(X(R,0)1):T3T3X(R,0)(X(R,0)X(R,0)1)  T2T22:T3T312 ,C2))2 C&HR(XYD)(2(XY))4MDFSIZE2X\::" DEGREES OF FREEDOM: "DFyf:" SPEARMAN R: "Rp110 : : GET RANKED COL, TIE FACTORS : "RANKED "; 15300 SUM(C)((SI1)SI2)ĺ"THAT IS NOT A R: SPEARMAN:1 F$"SPEA"3140`:"SPEARMAN RANK CORRELATION COEFFICIENT"wX(SISISISI)12 YX%:"SPECIFY TWO COLUMNS:"*3040:XXT3:C1C/3040:YYT3:C2C4D09RAAZZ>X(R,NC3)0DD(X(R,C1)X(RT0(2)0qI1S!vJSRT(I,2):{T0(J)T0(J)SRT(I,1)AIG:pDB1ĺ"END IS AT "(109)(110)256y782:IM(1)M(2)UIM(1)(M(1)1)2T0(1)U(IU)UIU:" U-STATISTIC: "U" (U'="IU")"110:)T KJI:0ASSIGN RANKS8N0VTSRT(1,1):K1:SRT(1,1)KaI2S} SRT(I,1)TNN1:1840N01835K(KKN)2J1N1!SRT(IJ,1)K&J(N0+TSRT(I,1):KI:SRT(I,1)K0Ib:lT0(1)0:C2 RAAJ1M(I)8X(R,NC3)0RR1:1690BSS1VSRT(S,1)X(R,C)eSRT(S,2)IoRR1vJ}I:SORTI1S1JI1SSRT(I,1)SRT(J,1)1780K12TSRT(I,K)SRT(I,K)SRT(J,K)SRT(J,KM(I)SIZE:1615"KA$"N"1609EL"HOW MANY OF THE ROWS? ";M(I)UMM(I)1110NM(I)SIZE"THERE ARE ONLY "SIZE:1612OPC1T0(1):C2T0(2)RS0U768:SRT(SIZE2,2)VDB1ĺ"END IS AT "(109)(110)256^I12`CC1:I2CTEST 6:@F$"MANN"2060<A:"MANN-WHITNEY U-TEST"zB(0)(54SIZE50)ĺ"INSUFFICIENT ROOM AT PRESENT!":110DN0:I0:J0:K0:T0:R0:U0EI12F:"GROUP "I" ";:15300GT0(I)CI"ALL ROWS (Y/N) ? ";A$JA$(A$,1):A$"Y": XX0 IAAZZ> X(I,NC3)0XXXXX(I,0)X(I,0)E (IS 2X2MXXXY <:e FCX1X2k P:s Z:~ dDFM1 e" DEGREES OF FREEDOM: ";DF n x"COCHRAN Q-STATISTIC: ";C }XC:7500 110 : ":, MANN-WHITNEY U-H THREE OR MORE COLUMNS!":110( R:3 VN1M@ `N": ";S j15300:GETCOLY t:a ~G0n IAAZZ X(I,NC3)01200 X(I,0)X(I,0)X(I,C) GGX(I,C) I : XXG XXXXGG : N : X1(M1)(MXXXX) 8)0110 _D$"PR#"(798):110& b:, :2 :I  COCHRAN Q-TESTO :d F$"COCH"1600~ :"COCHRAN Q-TEST": $: .IAAZZ:X(I,0)0:I 8X0 BXX0 L"HOW MANY COLUMNS ARE TO BE INCLUDED ? ";M" QM3ĺ"CAN ONLY BE USED WIT2 (F$,1)"!"Č823:FU$(IN$,1):(FU$,2):1108 N:> U:S V DOS COMMANDY W:x X(FUNC$,1)D$ĺFUNC$:110 Y(FU$,3)"PR#"ĺD$;FU$:110 Z(FU$,4)"CATA"ĺD$"CATALOG,D"DN:110 [F$"PROF"ĺD$"PR#0":110 \F$"PRON"610 ](79C$""110 F$(FUNC$,4). F$";"ė:1104 :I SIZEZZAA1ZAPO :U :a ENDg : (PERMIT RESTART WITH EITHER 'RUN' OR 'CONT') F$"QUIT"F$"EXIT"FUNC$"":768::100 : : COMMENTS : F$"TEXT"11012(797)ĺ"<:H>: LOMEM AT "256(106)(105)I782:RESTORE PTRSz(797)ĺ"<:H>: LOMEM AT "256(106)(105) 16880 33,40:130:2:F COMMAND DISPATCHZ:d16880n:"->";:912:FUNC$(IN$,1) FUN                            50: CSC1NC:X(0,C)1:C(N 2290.b :4g :G CATEGORIZEM :b F$"CATE"5770 "ENTER COLUMN TO BE CATEGORIZED:" 15300:C0C "SUPPLY ACCEPTABLE RANGE (X1,X2): ";X1,X2 "CATEGORICAL VALUE IF ELEMENT IS IN THIS RANGE: ";110 r AA1:ZZSR:ZAP0:SIZESR,| DREG1D R1SR:X(R,NC3)0^ C1SC:X(R,C)0:C,Rn SRNR3030 RSR1NR:X(R,NC3)1:R C1SC X(0,C)1 MEAN(C)0:SD(C)0 UB(C)NRZZ:UT(C)0 NA$(C)"COL "(C) C& SCNC31 ZERO :% F$"ZERO"3250P "THIS WILL DESTROY OLD DATA---OK?";A$_ A$""110o A$"N"110 A$"Y"2810" "# ROWS, # COLUMNS? ";SR,SC6 SRNRSCNC2930J "NOT MORE THAN "NR" ROWS, "NC" COLUMNS"^ "COMMAND ABORTED":NACTIVE!":2410)F ILNA$(C)"":2410:n A$(A$,I1)rp (A$)8ĺ"NO GOOD - UP TO 8 CHARACTERS ONLY":2410r (A$)0(A$)Cĺ"NO GOOD - LOOKS LIKE THE VALUE '"(A$)"'":"PLEASE CHOOSE ANOTHER NAME":2410x NA$(C)A$ 2410 : : " (HIT RETURN TO END)":+j A$:L(A$)8~ L0110@ C0K I1L\ K$(A$,I,1)h K(K$)| K48K572590 CC10(K48) I:IL1 C1CNCĺC" IS NOT A VALID COLUMN":2410 15580: VALIDATE C2 X(0,C)0ĺ"COLUMN IS IR.16120B110L:%:3 NAMES9:YF$"CHGN"F$"NAME"2790q:"CURRENT NAMES:"} C1NC X(0,C)0ĺ" ";C;:7:NA$(C). C8 F$"CHGN"110B :"TO CHANGE, ENTER COLUMN NUMBER, A SPACE, AND NAME..."V ,STRAAZZ1X(R,NC3)0X(R,C)J:JJST8RC*16120L>110RR:Xf:oz RANDOM NUMBERSu:F$"RAND"2270ZZAA110Q2:15140"RANGE (FROM, TO) ? ";A1,A2RAAZZX(R,NC3)0X(R,C)(1)(A2A1)A1(FU$,4)"CATA"ĺD$"CATALOG,D"DN:110B[F$"PROF"ĺD$"PR#0":110V\F$"PRON"610h](798)0110_D$"PR#"(798):110b:l:v INDEX:F$"INDX"930ZZ(AA)ĺ"NO ACTIVE TABLE!":110Q2:15140"START, STEP? ";JFR" FREE BYTES AVAILABLE" :,D$(4)8DREG1>5:I933,40R:110XD:iM GET PARMSwNDN(796)PDB(797)QPS(798)TU:V DOS COMMANDW:X(FUNC$,1)D$ĺFUNC$:110Y(FU$,3)"PR#"ĺD$;FU$:110$Z4),ZC(2)# AA1:ZZ0:ZAP0:SIZE0R "NOW AVAILABLE: "NC" COLUMNS, "NR" ROWS"m R1NR:X(R,NC3)1: C0NC2:X(0,C)1:C NA$(NC1)"FIT""TED":NA$(NC2)"RESI""DUAL" 590: PARM : DB542 FR(0):FR0FRFR65536( NRFR45755(NC3)5(NC3)(NC3)? NRNR(5(NC1))1O NR(NR.5)U : X(NR,NC),NA$(NC),T0(NC),SUM(NC),SS(NC) MEAN(NC),SD(NC),UT(NC),UB(NC) : NCNC3 R((NCNCNC)2),B(NC),BE(NC),IV%(NC),M((NCNCNC)2) : H%(3O.K.TO CONTINUE (Y/N) ? ";A$+ <A$""110; =A$"N"110L >A$"Y"315R @o J"# COLUMNS NEEDED? ";NC TNC2ĺ"AT LEAST 2, PLEASE":110 ^NCNC3:7,NC g: h:IN$"" i: rNC(7) FR(0)2000 FR0ĺ"INSUFFICIENT MEMORY!":!"Č823:FU$(IN$,1):(FU$,2):110) :/ :; FREEA :r F$"FREE"ĺ(0)" FREE BYTES AVAILABLE":110x :~ :  REDIMENSION ": 6F$"RDIM"600 ;:"THIS COMMAND WILL DESTROY ANY ACTIVE DATA THAT HAS BEEN PREPARED. IS IT C$""110 SP0$ F$(FUNC$,4)7 F$";"ė:110= :C :O ENDU : (PERMIT RESTART WITH EITHER 'RUN' OR 'CONT') F$"QUIT"F$"EXIT"SP0:FU$"":768::100 : : COMMENTS : F$"TEXT"110# (F$,1)"4/958:(797)ĺ"<:M>: "256(106)(105)F782:RESTORE PTRSn(797)ĺ"<:M>: "256(106)(105)z 16880 33,40:U0:SP03501302:F COMMAND DISPATCHZ:d16880n:"->";:912:FUNC$(IN$,1) FUN                             35:MID,.01((H%(H)S)100.5);:30:.01((HCUMES)100.5)D*HM*110S*:]*MH1i*H133*H%(H)MHMHH%(H)*H*MH0ĺ"ALL ITEMS ARE OUTSIDE OF THIS RANGE":110*:*24:951/+F(MH40)11+MH20F1(40MH) 2+F34,0 *:!*F$"FREQ"109009*948,0:935:948,21i*:"FREQUENCY DISTRIBUTION OF '";NA$(C);"'"&*:"CLASS",,"CUME"0*"MIDPOINT"," %"," %":*D*HCUMEH%(0)N*SS100X*H133b*HCUMEHCUMEH%(H)l*MIDCENTERUNIT(H17)=v*9H%(I)0:I):')XCENTER17.5UNIT4)RAAZZL)X(R,NC3)010740i)F$"PLTS"ĺR;:22:":";t)K$"*")H((X(R,C)X)UNIT))H0H0:K$"<")H34H34:K$">")H%(H)H%(H)1)F$"PLTS"ĖH5:K$)R)F$"PLTS"Ė5:L0$:$ZY):"NOTE: EACH LARGE INTERVAL WILL BE DIVIDED INTO 5 SMALLER CELLS OR BARS.":~^)(UNIT$)0UNITSD(C)5:10610h)UNIT(UNIT$)5m)935r)L0$"<-!----!----!----:----!----!----!->"|)F$"PLTS"Č951::5:L0$:34,1): )I034:$"PLTS"CENTERMEAN(C):UNITSD(C)5:106101,)q6)"MIDPOINT (JUST PRESS RETURN TO USE THE MEAN) ? ";CENTER$@)(CENTER$)0CENTERMEAN(C):10580J)CENTER(CENTER$)T):"INTERVAL WIDTH (JUST PRESS RETURN TO USETHE STANDARD DEVIATION) ? ";UNITNX(R,C)#(X(R,C)MAXMAXX(R,C)*(R0(:C(MIN,"MINIMUM"V(MAX,"MAXIMUM"j(MEAN(C),"MEAN"(SD(C),"STANDARD DEVIATION")SZZAA1ZAP)S,"SAMPLE SIZE")SD(C)0ĺ"THIS VARIABLE IS A CONSTANT EQUAL TO "MEAN(C):110):+")F FREQ, PLTS, HISTZ(:.d(F$"FREQ"10370sn(F$"PLTS"ĺ:"ALSO TRY THE 'SEQU' OR 'SEQUL' COMMANDS"::10370x(F$"HIST"11200(15140(I0(RAAZZ(X(R,NC3)010450(I0I1:MINX(R,C):MAXX(R,C):10450(X(R,C)(MIN)MI(C)(SI)R$\X11E30:X21E301fRAAZZHpX(R,NC3)02200UzXX(R,C)dXX1X1XsXX2X2XzR"MINIMUM";:T:X1"MAXIMUM";:T:X2"RANGE";:T:X2X1:"SUM";:T:SUM(C)110 :<(:F(:P(: :K110::. BASICS4:IF$"STAT"3040T15140_ :T20rT:"COLUMN "C T:NA$(C):*"MEAN";:T:MEAN(C)4"VARIANCE";:T:SD(C)SD(C)>"STANDARD DEVIATION";:T:SD(C) H"STANDARD ERROR";:T:SD TT(SI): - K)! RTC07 X1X1(R(SI))2^ X2X2(R(SI)((SI2)(SIK)))2 " "K;:6:.001(1000R.5);:12:.001(1000S.5);:20:.01(100X1.5);:27:.01(100X2.5); R(2S)ĺ" <<"; R(2S)ĺ" >>"; TD BOX-PIERCE"] ."LAG CORR ERR ADJ UNADJ":"--- ----- ----- ----- -----"c 8:q BX10:X20| LK1L QS(1(SI))((SIK)(SI2)) VT0 `I1SIK jRAAI1 tX(R,NC3)0TT(X(R,C)MEAN(C))(X(RK,C)MEAN(C)) ~I :  AUTOCORR :2 F$"AUTO"2040 ZAP0ĺ"NOT POSSIBLE IF ANY ROWS ARE DELETED--":"USE 'RECO' OR 'PURG' FIRST":110 15140 "MAXIMUM LAG (<"SI") ? ";:"";L:L1LSI1055 $C0SS(C)SIMEAN(C)MEAN(C) -:" AUTO S:110 N: U:& V DOS COMMAND, W:K X(FUNC$,1)D$ĺFUNC$:110l Y(FU$,3)"PR#"ĺD$;FU$:110 Z(FU$,4)"CATA"ĺD$"CATALOG,D"DN:110 [F$"PROF"ĺD$"PR#0":110 \F$"PRON"610 ](798)0110 _D$"PR#"(798):110 b: :(FUNC$,4) F$";"ė:110" :( :4 END: :p (PERMIT RESTART WITH EITHER 'RUN' OR 'CONT') F$"QUIT"F$"EXIT"FUNC$"":768::100 : : COMMENTS : F$"TEXT"110 (F$,1)"!"Č823:FU$(IN$,1):(FU$,2) )(797)ĺ"<:F>: "256(106)(105)@782:RESTORE PTRSh(797)ĺ"<:F>: "256(106)(105)t 16880 33,40:130:2:F COMMAND DISPATCHZ:d16880n:"->";:912:FUNC$(IN$,1)FUNC$""110 F$            C$)4";:912:FUNC$(IN$,1)) FUNC$""110; F$(FUNC$,4)N F$";"ė:110T :Z :` : F$"QUIT"F$"EXIT"FUNC$"":768::100 : : F$"TEXT"110 (F$,1)"!"Č823:FU$(IN$,1):(FU$,2):110 U: W: X(FUNC$,1)D$ĺM(256(106)(105))6143(256(106)(105))16380ğ:"WARNING! ";:3](797)ī5"<:P>: LOMEM AT "256(106)(105)::782 16880 33,40:D$"BLOAD DAISY:G"U0(:)130c:d16880 n::"-      حӍ٭٭"; "BK(J)#B(K);4$BK192K7JJ1:16930?%B" ":d*B" AT LINE "(218)(219)256" "j+Bs,B255}6B34,0hB768: SAVE VARIABLESrBQQ12500:|B100A ERROR HANDLINGA:#A:0AE(222)?AD$"CLOSE"uAE254ĺ"INCORRECT ENTRY---POSSIBLE ERROR":16938}B:BE255ĺ" COMMAND ABORTED ":16939B" ERROR - ";BE0E15J53856E:16930BJ43377(43583E)B"(DOS) ZH XN7<6NWRU@ TPhhHNɍ-Ɍ+*+*++8 $%ll%J) +%j )* * (je$*h-HJJJ'hH*&'*&'*&')&&OH**hQ**O+i+$$! $%%#"%Nh`  <"\:FBF:<<@@\bBb\\bb\@<:FBBB8 0 "" "8.TTTT>DDDD8DDD8:FF:\bb\@@:F|<@>>H0BBBb\BBB$DDTTlB$$BBBb\@<~ ~880(8DRj2x$B~BBB>DD
DDDDD>~~~BB>BB>"B$$$$$~$~$$x8P<F&db  R"\   T8|8T| ~@ BB<~B > 60HH0>>>***>"6*""">$ 88>>>>*>><> ?:{>     ΠŢΩŠҠ΢ŠŠŠŠةŠ̠ǠŠũDZǬŠΠΠƠ̠ӢϠŠӺϠŠŠŠŢϠ̠ΠŠϠŢجŠؠӠŠŠŠƠħӮ٬ӠĠӠעӠԮԠϠӢ̠ŠӠϠŠԠ΢ŠƠ٠ǠŠӮŠŠ̠ӠҠŢϠҠ̠ĠӢӠΠ٠ǠԠӢŮԠӠԠŠϢҠĠήŠŠ ŠˠƠӢ ҠˠƠӢҠ٠ŠΠӢǠΠŠӠԠ٢΢٠ŧĠΠҢĠӺҠŠĠעҠҠĠעҠŠӠ͠ԢΠϠĠήƠŠĠӠ͠ԢΠϠĠήŠŠӠƠӠĠϢŢŠŮŠŠŠӠϠŠ͠ŠΠϠҺŠŠ͠ŠŠΠϠԠήŠŠŠƠŢΠנĠΩӠӠ٠ŠĢȠӠՠϠҠŢ٠ΠȠŠŧĩŠҠԠĬԠԠӢ٠٠ŠҠҠӮŠĠĠŠĠϢҠҠӠƠ٠ŠǠȠŠĠΠŮΧЧӠĠΠŠҠήӠΠԠӠŠӢƠŠӠΠҠήҠҠ͠ŮӢĠΠϠŠĠϠҠ٠͠ŠӠΠǠ͢ӠΠĠӮӠŠƠӠĠӠϢϮšӠ̠٠ҢǠӠΠƠĠӠΠǠŢƠӠӠĠ٠ծ                 |B"AND THEN SAY 'RUN'."5B:"YOUR DATA IN MEMORY"OB"WILL BE O.K.":::R - ";$BE0E15J53856E:16930;BJ43377(43583E)JB"(DOS) ";U"BK(J)`#B(K);|$BK192K7JJ1:16930%B" ":*B" AT LINE "(218)(219)256" "+B,B2556B34,0hB768: SAVE VARIABLESrB:"CORRECT YOUR ERRORS,"0: PROMPT FOR NEXT COMMAND7~'768: SAVE VARIABLESN':D$"RUN DAISY:C"T'ZA:`A:fA:}A ERROR HANDLINGA:A:AE(222)AE254ĺ"INCORRECT ENTRY---TRY AGAIN:":B:BE255ĺ" COMMAND ABORTED ":16939B" ERROR#0":2"DO YOU WANT TO PRINT MORE (Y/N) ? ";A$BA$"Y"220pA$"N"ė:"YES OR NO, PLEASE..."::920v':|':':' ********************' * GO BACK TO DAISY *' ********************':t'34,0: RESTORE WINDOW TOPy'SP(R,NC3)0850::R;# ::H52*::II1I2K4::36,H:HH15: TAB^>::X(R,T0(I));gH::IoM::vRR|\fI2(NA)I1I21:720::: ****************** * DO ANY MORE? * ******************:D$"PRINTING "::':D$"PR#"(798)-:6I11<:HI2I14[I2(NA)I2NAa: PRINT COLUMN HEADINGS:H5II1I236,H:HH15: TABNA$(T0(I));I::: PRINT DATA:RX1X2 X*] * FIND ACTIVE COLS *7^ ********************=b:FlNA0SvCC1C2sX(0,C)0NANA1:T0(NA)CzC::: ********************* * PRINT 5 AT A TIME * *********************: ::11::" NOW PRė:"YES OR NO, PLEASE..."::420':R:"THE COLUMNS ARE NUMBERED UP TO "NCX"PLEASE ENTER STARTING, ENDING COLUMNS TO BE PRINTED: ";C1,C2C11C1NC460C21C2NC460C2C1360X:Y:Z:\ *******************2tX1AAX1ZZ360+vX2AAX2ZZ360:|X2X1360@:F:L:i ********************** * PRINT WHAT COLS? * **********************"WANT TO PRINT ALL THE COLS (Y/N) ? ";A$A$"Y"C11:C2NC:600!A$"N"/ @"WANT TO PRINT ALL THE ROWS (Y/N) ? ";A$L JA$"Y"X1AA:X2ZZ:400z TA$"N"ė:"YES OR NO, PLEASE..."::320 ^: h:"THE ROWS ARE NUMBERED FROM" jAA" TO "ZZ" ...":r"PLEASE ENTER STARTING, ENDING ROWS TO BE PRINTED: ";X1,X**************** < "PRINT ENTIRE TABLE (Y/N) ? ";A$d A$"Y"X1AA:X2ZZ:C11:C2NC:600 A$"N"ė:"YES OR NO, PLEASE..."::230 ,: -: .: 0 ********************** 1 * PRINT WHAT ROWS? * 2 ********************** 6PS0220A :"SORRY,":"YOU SPECIFIED THERE WAS NO PRINTER!" :"IF A PRINTER EXISTS ON THIS SYSTEM, PLEASE RUN 'SET UP DAISY'"::"THANK YOU!" 10100 : : : ********************** * PRINT WHOLE THING? * ******--------------------"D x" PRINT UTILITY PROGRAM "s z"---------------------------------------" 34,10: SET WINDOW TOP : : : ********************* * IS THERE A PRNTR? * ********************* : AM AS A NEW" < DAISY COMMAND.( @:D A *********************J F:P P:V d^ n:~ o10:" " p10:" STATISTICS " q10:" WITH DAISY " r10:" " t: v"-------------------QV782: FIND VARIABLES --THIS MUST ALWAYS BE THE FIRST LINE IN A DAISY PROGRAM b16880h2:n3:t4:5 *********************6:7 PRINT UTILITY PROGRAM8:9 ---ALSO DEMONSTRATES: USE OF AN EXTENSION ; PROGR     762T11S$"EOD"ī785*V1" ";37629:HD$"CLOSE"y::"PRESS ANY KEY TO CONTINUE--";:S$:100:: NOPE 16880$%"NO SUCH FILE ON THIS DISK!"&QQ12500:*100 -----------------:T$"VECTORS"ĺ"THERE ARE "N" COLUMNS"`T$"TUPLES"ĺ"THERE ARE "N" ROWS":IRN:IR3IR3T$"LABEL"ĺ"COLUMN "S" = "S$T$"DATA"735:R0"";T1,V1"";S$T11S$"BOT"768RR1:RIR785:"ROW "R":":: 2008000D$"VERIFY "FI$",D"DN<16880TD$"OPEN "FI$",D"DNfD$"READ "FI$oIR0"";T$:T$"TABLE"740900:NOT DIF FILE:"";T$"";S,N"";S$T$"TABLE"ĺ:"THIS FILE CONTAINS:":"'"S$"'":)NRāRIR1NR:X(R,NC3)1:RJlC1IC:X(0,C)0:UT(C)0:UB(C)NRIR:CmqICNCāCIC1NC:X(0,C)1:CvAA1:ZZIR:ZAP0:SIZEIR{1:868DREG1C0:16120100::============= EXAMINE=============ATA---";:<:?R1IR*@"";T1,V15A"";S$GBT1116880\CS$"BOT"16880bD:nEC1ICtF:I"";T1,V1J"";S$NT1016880PS$"V"16880SX(R,C)V1W:XCYX(R,NC3)0ZR]:bD$"CLOSE"gIR)T$"LABEL"NA$(S)S$-+T$"DATA"535Z0"THIS FILE HAS "IR" ROWS, "IC" COLUMNS"5ICNCĺ"CURRENTLY DIMENSIONED FOR ONLY "NC" COLUMNS":D$"CLOSE":1507IRNRĺ"CURRENTLY DIMENSIONED FOR ONLY "NR" ROWS":D$"CLOSE":150 ::"---READING DN D$"READ "FI$5C1NC:NA$(C)"COL "(C):CCIR0:IC0^"";T$:T$"TABLE"540u900:NOT DIF FILE{:"";T$"";S,N!"";S$$T$"TABLE"ĺ:"THIS FILE CONTAINS:":"'"S$"'":&T$"VECTORS"ICN(T$"TUPLES"IRNC :R:#"-1,0"."EOD"4:CD$"CLOSE"T23:1:868]100c:i:================== READ DIF==================:200800D$"VERIFY "FI$",D"DN16880D$"OPEN "FI$",D"DtX(0,C)0379vAA1'x"LABEL"2yA",0"Jz(34);NA$(C);(34)Q{CW:c"DATA"n"0,0"(34);(34):RAAZZX(R,NC3)0450"-1,0""BOT":C1NCX(0,C)0440"0,";X(R,C)"V"T"TABLE" V"0,1"* X(34);TB$;(34)0 Z:A [X0:RAAZZX \X(R,NC3)0XX1_ ]Rm ^"TUPLES"y `"0,";X b(34);(34) d: eX0:C1NC fX(0,C)0XX1 gC h"VECTORS" j"0,";X l(34);(34) n: rA0:C1NCE IT (Y/N) ? ";A$C >A$"N"Ğ:"*** FILE NOT WRITTEN! ***"::100T @A$"Y"316n BD$"DELETE "FI$",D"DNt D: J16880 L:"ENTER A DESCRIPTION OF THIS DATA:":TB$ N24::"---WRITING DATA---": PD$"OPEN "FI$",D"DN RD$"WRITE "FI$ ":::"PRESS ANY KEY TO CONTINUE--";:S$::3 H U1: DISK USEDN T &:Z ':r (================== ) WRITE DIF *================== +: ,200 6330 8D$"VERIFY "FI$",D"DN :16880 <"FILE ALREADY EXISTS;":"REPLAC,X ? ";A$ A$"W"300) A$"R"5009 A$"E"700K A$"X"10100T 100Z :v ROUTINE TO GET FNAME :"ENTER THE DIF FILE NAME: ";FI$ FI$""100 (FI$,1)" "FI$(FI$,2):210- DN1ĺ::"IF NECESSARY, CHANGE DISKS NOW " t:K x"-----------DIF FILE HANDLER------------"Q :j :"DO YOU WANT TO:" " R - READ A DIF FILE," " W - WRITE A DIF FILE," " E - EXAMINE A DIF FILE," :" X - FINISHED WITH DIF FILES..." :"R,W,EV782: FIND VARIABLES --THIS MUST ALWAYS BE THE FIRST LINE IN A DAISY PROGRAM b16880jU09 DIF FILE HANDLER dno10:" "p10:" STATISTICS "q10:" WITH DAISY " r10:"      hp`hp`3``i `ȴTJ``ϴɣ δɺȴ ` :      uiȩiȩiL9 HJJJ %0t X`TJ`h`L Ӎԍ  L L L L L L L L 81L 83L 85L 87L LdLd"Ld'Ld,Ld}L L L L L L LdL L L LdL L L L L L L L L SAME DISK IN DRIVE #1, OR ON A SEPARATE DISK IN DRIVE #2 (ENTER 1 OR 2) ?    L 1L2  5      5   L4  >   Q 3   8  Ll RUN DAISY:M `  KLc H 0 NOP0--    LPR#    D ^  LPR#0    > 3 T ` >  T    8  D  (LK W   8Lx1I AM EXPECTING THE DAISY DISK TO BE IN DRIVE #1. F  'LmWILL YOUR DATA FILES BE ON THE  D  $   D  $ LdL 2ADDB:20 51 3 F0 45 EA EA EA EA EA EA EA EA N D823G    ,     N  A     4   T 1 E >  T  8  D  $L#  D  L#  L--NOW INITIALIZING SILENTYPE L COPYRIGHT 1981   i   L KEVIN C. KILLION    n  *  !    L5BRUNDAISY:PARM &  <   L] VERSION O   D ^Ls. q  r D ^ { D  LL.   { D ^ h 808 !  L MAXFILES2   !  LNOMONCIO   X w *   L2     L^ STATISTICS I   L WITH DAISY r      s W  !! ! ! ! ! ! 8 DL L<:M>:   D D ^ 8 DLML*<:M>: "  D D; ^ 7 > T^ (LL 7P L->   8 *L 5 "