J<&MJ=JJJ@F 3 C @>) <]?J@* JJ<JJJ)JJ*J@@A f2*'&>J l@ȑ @ Б = 3JAJ*J&6H777777777777JJJJx 77 L778777777776 77H67 77777 7`77 77 7777`x =(`(8`5775I7`B` 76`77`2>&JJJ;ȱ>'JJJ3;ȱ>*JJJf;ȱ>J&*J&'J&&;ȱ>J&*J&'J;&*)<')3<*)f<>)Ƚ3Ƚfȥ&);>ȥ');>`*xY+&x'8*BIxix&&  x) +: :') +: :&д :+`FG8`0($ p,&" (0 8@ HPX !"#$`h%&px')*+,-./12345679:;<>                -<L >    HIHHHHhHH݌hHh݌H6 HHH(jf5( FG HUSj 80x e9xxH` ># ;>h ;>L=.x"xH >hx0h@(L)>@H/L>HH/Hh/ ۠-H x( 8( 9$8 H` j8HNx`. {>x$50x.$50xL:JJJJ`HHjf5 {>h $50x`xA :JPG'K݌$HhHhꝍ݌KGHhHhꝍ݌ ? ? ?/ ?A ?K ?/EAEKHJJ݌h ? ? ? ? ?F HhHh݌FG$Ki K ,KL>HhG04Hh$Hh e9- GL>AA# :GȄGL>@L)>L'>HJJ݌h Hhꝍ݌``L%c*p*q*` ['*` ~.3 #3 L3LA@@&E&&A@@&AA)߅CBBH&E&&A@B& ChLQhBAȌy8zx8v{v I7H7@)*AL@m{@AAA,+i(ˢ3Z@[A@ /@v wm{@8/e@@eAA3]ͥ@\ƊiY?AyC@B@B|ACLT$VXZdflpx|~**7777(*377558:=?@##topmnU^_R ij^_lk 󅔆nmLY^^ȱ^ȱ^eȱ^e(ӊ0Цe^^u**`*5".Q`pN%$#$$b"p"t""%%%%"""m%2"<"("-"P"y%%0#\##|"6$6$$$e<%%g< 7JJJJj*7h*I * aUL@* kU8*  L % Q(^*R*(jQ*0l^l\ * wU*u**W* '* H &h@ ['_* /QSIRb*_*L!`LLL*L7`**`LQ(LYLeLXLeLee Q*H\*(h0L&& $`(* &R*  \*Z*Ll8 R* HH\*`\*Z*[*Y*S*6`*LxQ*ɿu3'R*Ͳ*ʎR*ʎ]*]*]*ɍuLɍ}R*LR*ɍ*g^H8* ^&hZ*LɍR* &LͲ*ɊR*R*%* Q(L$Ͳ* Z*@ -^*  \*[*Z* Q(Y*\*[*Z*8`l6L_*Ȍb*_*Ͳ*]* !)Y( h( (֭Ͳ*Lɍ ['LL&_*_* ^& 9 )L&3 9 )a  ! 0L jLY ! u*< !(_*9 ) ˭*ɠu*ɠK_*9 )?L ˆʎ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*@` + d'@55`  \* ?*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*`;" IS ";1Q:3690?("ENTER Y1";Y1:"ENTER Y2";Y2:Y2Y13630m($::"Y2 MUST BE GREATER THAN Y1"::3610(.Z1(Y1MX)SDX:T11(1R(Z1)):Q1(1(2PI)((Z1Z12)))(B1T1B2T1T1B3T13B4T14B5T15)(8Z10Q11Q1S)BZ2(Y2MX)SDX:T2)" D2D(1,K)D1D11:D2D2D(1,K)(' F( V1D1D(2,K):V2D2D(3,K)e< V20V1V11:V2V2D(1,K)zF VV2D(1,K)V14P  Y2810,2810,2810,2820,2830,2840,2810,2850,2860,2870,2810,2810,2810,2810,2810 "DISK COMMAND ERROR": "WRITE PR1(C$(C)):S17ER1:2000) D$;"PR#";S15V CC1:;_ H` PR3:20\e C$(C)"*"2450zj K1VM:L$(K)C$(C)2450o Kr EL3EM1K0:CC1:t ER6:2000 CC1: D1D(2,K)((V4)D(1,K)) D2D(3,K)V4D(1,K)((V4)D(1,K)R3:C$(C)" ":2020'qY133ER11:2000DtY77ER13:A(0):2000YvER9:Y22İ2000:ER$(ER);" - ";C$(C)::(7):C1:C$(C)" "EL2EL0:EL3EL0:::KCKC1:L$(KC)""A(0):816:A$:C$(C)"#"ER1:2000 CC1:S1:KCVM1KC1:M91CC19C$(C)"="ER1::2000CCC1QPR12:20[.8000wI03:D(I,K)D(I,F):IST(K)ST(F):EN(K)EN(F):CS(K)EN(K)ST(K)1I4D(0,K)3:1::C$(C)" "l768:Y(222):Y15ĺ(7);:2800::PD$;"READ ";L$(K);",R";Q)D(Q,K):QBD(0,K)CMD(0,K)CMRI1D(0,K)oD$;"READ ";L$(K);",R";Q{D(Q,K)QQ1:ID$;"CLOSE ";L$(K)ST(K)4:EN(K)Q1:CS(K)EN(K)ST(K)1:EM1:2400:CC1:K0L$(KC)C$(C):KKC:KCKCQ03"_D$;"WRITE ";L$(K);",R";Q1aD(Q,K):QCbQ4D(0,K)3acD$;"WRITE ";L$(K);",R";QpdD(Q,K):QfD$;"CLOSE";L$(K)pKKC:L$(K)C$(C):CC1:KCKC1:KCVM1KC1:M91D$;"OPEN ";L$(K);",L17,S";SL;",D";DR;",V0"Q03K):I:2900:"MAX = ";D(MA(K));" MIN = ";D(MI(K))"MEAN = ";D(SU(K)CS(K)):VSS(K)CS(K)(SU(K)CS(K))2:"VARIANCE = ";D(V):"STD DEV = ";D(((V))):: 2400ZL$(K)" "L$(K)"F"(K)\D$;"OPEN";L$(K);",L17,S";SL;",D";DR;",V0"^ PR17:20 D2(C$(C)):CC1:D2D(1,K)ER4:2000[2600:V3D(0,K)ER3:2000g EN(K)VCS(K)EN(K)ST(K)1CS(K)0ER5:2000N2400:SU(K)0:SS(K)0:14000:IST(K)EN(K)2SU(K)SU(K)D(I,K):SS(K)SS(K)D(I,K)D(I, START ";D1;":";D2!VEN(K):2500?"CURRENT END ";D1;":";D2MPR14:20^C$(C)":"ıtD1(C$(C)):CC1PR15:20D2(C$(C)):CC1D2D(1,K)ER4:20002600:V4ER3:2000ST(K)VPR16:20D1(C$(C)):CC1:I1CS(K):D6D61:D6D(1,K)D61:D5D51K0D6$":"(D6):D(1,K)1D6$""2D5;D6$;:8:K21C8:P14:D(D(ST(K)I1,K(K2)));:810K2:K2::LL1:L20L0:B$:P134I6:34,0:CS(K)0ER5:20002400:VST(K):2500"CURRENT002 :"ACTIVE FILES: "::I1VM:I;" ";L$(I)::L PR11:20:C$(C)T$ı_ 2400:PR7:20w L$(K)C$(C):CC1: EL2:17100 K81C8:KK(K8):2900 'K8:B$ (:"DATE";:K81C8:810(K81):" ";L$(K(K8));:K8:: )34,2(*L0(0):EM0:816:PR1:20:(C$(C))1A$(C$(C),2):E$C$(C) Y91Y8:A$A$(Y9)CC1:Y9270,400,12000,9000,3100,900,17000,600,700,800,3000,1000,285,2300,17300,17200,17900,17950 C$(C)":"CC1:170 C$(C)" "PR1:20:170 ER1:20ER6:EL0:20000 PR18:20-1 A$(C$(C),1)L2 A$"E"A$"D"İ3200:3120d5 A$"R"İ3300:3120: A$"A"A$"I"İ3400:3120F A$"PR"İ2300:3120I (A$,1)" ""Q "ġ:EL0:CC1:170J A$"L"C81:K(1)K:2900:A9$:296:CC1:3120L )(PR15C7D(1,K))ERPR11:2000; D(PR12,K)(C$(C)):PRV ST(K)4:EN(K)3D(0,K)n CS(K)EN(K)ST(K)1 D(0,K)0EN(K)4 :2900:CC1: PR3:20:EL1:EM1 C$(C)"NEW"3110! EL3:3500:EL1$ C$(C)":":3148 & 2400:K0;D(0,K)q^ VST(K):2500:"RANGE ";D1;":";D2;:D5D1:D6D21:VEN(K):2500:" TO ";D1;":";D2;" WITH ";CS(K);" CASES"yh : 2400:2900:PR5:20:F$(C$(C),1):F$"C"F$"Y"CC1: ER0:PR1315:CC1:20 C7(C$(C)) C70(C70PR14OTECTED":" "DATA FILE NOT FOUND"D D$;"DELETE ";C$(C1):KCKC1J b "FILE NOT FOUND":u" "I/O ERROR":, "DISK FULL":6 "FILE LOCKED":T D(1,K)0ıY :L$(K):"PERIOD ";D(1,K);:" START DATE ";D(2,K);":";D(3,K);" CASES = "ōōISH TO CALCULATE Y: ";XNT:XNT0760W::"NON - ZERO, POSITIVE VALUES ONLY"::740fCH1770YNTAXNTB::"FOR X= ";XNT;" , Y= ";YNT:800CH2780YNTA(BXNT)::"FOR X= ";XNT;" , Y= ";YNT:800 CH3790#YNTAB(XNT)"B = ";B::"COEFF OF DETERMINATION,":"(R^2) = ";R2Z::"HIT RETURN TO CONTINUE";A$180:10:"DO YOU HAVE ANY X-VALUES TO INTERPOLATE (Y/N)?";A$:A$"Y"A$"N"720A$"N"850$:"ENTER THE VALUE OF X FOR WHICH":"YOU WXSLXSN)(Y2SSYSYN)):700I180::"4. POWER FIT: Y=A*X^B"::VG0660vN0:J1L(1,F):NNF(J):JB(PLXLYSLXSLYSN)(XL2SLXSLXSN):A(LYSNBLXSN):R2(PLXLYSLXSLYSN)2((XL2SLXSLXSN)(YL2SLYSLYSN))5"A = ";A::SNBSXN):R2(PXLYSSXLYSN)2((X2SSXSXN)(YL2SLYSLYSN)):700}X180::"3. LOGARITHMIC FIT: Y=A+B*LOG(X)"::[G0610_N0:J1L(1,F):NNF(J):JbB(PYLXSLXSSYN)(XL2SLXSLXSN):A(SYBLXS)N:R2(PYLXSLXSSYN)2((XL2SLNF(J):JoA(SP(SXSYN))(X2SSXSXN):BSYNASXN:R2(SPSXSYN)2((X2SSXSXN)(Y2SSYSYN)):700&180::"2. EXPONENTIAL FIT: Y=A*EXP(B*X)"::)G0560-N0:J1L(1,F):NNF(J):JG0B(PXLYSSXLYSN)(X2SSXSXN):A(LYō11:MO(1);:I2NMMO&", ";MO(I);/I:o"STANDARD DEVIATION = ";STDDEV:"COEFF OF SKEWNESS = ";GAM}CH2200:"WOULD YOU LIKE TO SEE A DISTRIBUTION GRAPH (Y/N)?";A$:A$"Y"A$"N"1005A$"N"200:::12:(I))(Y(I)))F(I):PXLYSPXLYS(X(I)(Y(I)))F(I):PYLXSPYLXS(Y(I)(X(I)))F(I):PLXLYSPLXLYS((X(I))(Y(I)))F(I)~ICH4650CH3600CH2550180::"1. LINEAR REGRESSION: Y=A*X+B"::G0510 N0:J1L(1,F):NX(Y,I):I:G04200I1N:F(I)MTRIX(F,I):II1N:SXSXX(I)F(I):SYSYY(I)F(I):SPSPX(I)Y(I)F(I):X2SX2SX(I)X(I)F(I):Y2SY2SY(I)Y(I)F(I):LXSLXS((X(I)))F(I):LYSLYS((Y(I)))F(I)wXL2SXL2S((X(I))(X(I)))F(I):YL2SYL2S((YK:L(1,F)L(1,Y)4|L(1,X)L(1,Y)L(1,Y)L(1,F)400::"THE ARRAY SIZES DO NOT AGREE"::"HIT RETURN TO CONTINUE";A$:200NL(1,X):SX0:SY0:SP0:X2S0:Y2S0:LXS0:LYS0:XL2S0:YL2S0:PXLYS0:PYLXS0:PLXLYS0I1N:X(I)MTRIX(X,I):Y(I)MTRIARNUM;")";:F:F1FVARNUM310h T:"X-VALUES IN VARIABLE # ";X:"Y-VALUES IN VARIABLE # ";Y:G0360 ^"FREQUENCY ARRAY IN VARIABLE # ";F h:"ARE THESE CORRECT (Y/N)?";A$:A$"Y"A$"N"360 rA$"N"220 tG1380wK1L(1,Y):F(K)1: G1^ :"WHICH VARIABLE NUMBER IS":"THE X-VALUE (1-";VARNUM;")";:X:X1XVARNUM240 :"WHICH VARIABLE NUMBER IS":"THE Y-VALUE (1-";VARNUM;")";:Y:Y1YVARNUM270 ,G0340 6:"WHICH VARIABLE NUMBER IS":"THE FREQUENCY ARRAY (1-";V: Y=A+B*LNX"| "4. POWER FIT: Y=A*(X^B)":"5. RETURN TO MASTER MENU":::"NUMBER (1-5)?";CH::CH1CH5190 180:190:CH5220 "RUN STATPAC " G0::"IS THE DATA GROUPED (Y/N)?";A$:A$"Y"A$"N"220 A$"N"240C1L(1,R):MTRIX(R,C)(MTRIX$(R,C)):C:R4 200 ::"CHARLES MANN & ASSOCIATES":"STATISTICS PACKAGE":"CURVE FITTING":: 15:"MENU":15:"----"::"1. LINEAR REGRESSION: Y=A*X+B":"2. EXPONENTIAL FIT: Y=A*EXP(B*X)":"3. LOGARITHMIC FITOP$;NAME$;",L16"' <RF$;NAME$;",R0"3 FVARNUMr PR1VARNUM:C1101:RF$;NAME$;",R";(((R1)101)6)(C1) ZMTRIX$(R,C) dMTRIX$(R,C)"DONE"120 nL(1,R)C1:C101 xC:R:CL$;NAME$ I15:J1100:MTRIX(I,J)0::+ R1VARNUM:#:::12:14:"LOADING DATA"X MTRIX$(5,101),MTRIX(5,100),F(100),X(100),Y(100)OP$"OPEN":CL$"CLOSE":RF$"READ":WR$"WRITE"OP$;"HOLD " RF$;"HOLD ""NAME$$CL$;"HOLD "(216,0:I15:J1101:MTRIX$(I,J)"":J:I 2          OF Y";Y:Z(YMX)SDXe' T1(1R(Z)):Q(1(2PI)((ZZ2)))(B1TB2TTB3T3B4T4B5T5)t' Z0Q1Q':"FOR THE NORMAL DISTRIBUTION,":"N(";MX;",";SDX;") ,"::"THE PROBABILITY OF A NUMBER:"::5("ABOVE ";Y;" IS ";Q:5:"BELOW ";YU MAY CALCULATE:"::5:"1. THE PROBABILITY OF OCCURRENCE ABOVE AND BELOW Y":5:"2. THE PROBABILITY OF OCCURRENCE INSIDE AND OUTSIDE AN INTERVAL (Y1,Y2)"& :"NUMBER?";N:N1N23540& N23610' "NOW ENTER THE VALUE":5:"(";Y1;",";Y2;")":5:"IS ";Q1Q2::5:"OUTSIDE THE INTERVAL":5:"(";Y1;",";Y2;")":5:"IS ";1(Q1Q2)*j:"WOULD YOU CARE TO MAKE ANOTHER CALCULATION USING THE NORMAL":"DISTRIBUTION (Y/N)?";A$:A$"Y"A$"N"3690*oA$"N"20d+tZ10Q11Q1v)BZ2(Y2MX)SDX:T21(1R(Z2)):Q2(1(2PI)((Z2Z22)))(B1T2B2T2T2B3T23B4T24B5T25))LZ20Q21Q2)V:"FOR THE HORMAL DISTRIBUTION,":"N(";MX;",";SDX;")"::"THE PROBABILITY OF A NUMBER:"::5n*`"IN THE INTERVALRYP)YF:YP7 P(0)(YBAR):P0:JMNMX:PPP(J):J :"WITH AN AVERAGE FREQUENCY OF ";YBAR;","::"THE PROBABILITY OF:"::"A FREQUENCY BETWEEN":MN;" AND ";MX;", INCLUSIVE"::"IS: ";P 2130 200:"NORMAL DISTRIBUTION"::9 "CHOOSE A UENCY MUST BE":"A POSITIVE NUMBER"::2400st :"ENTER THE MAXIMUM FREQUENCY":"IN THE INTERVAL";MX:MXMN2440~ ::"THE MAXIMUM FREQUENCY MUST BE":"GREATER THAN OR EQUAL TO ";MN::2420  YPMNMX:YF1:I1YP:YFYFI:I:P(YP)((YBAR))(YBA0:J0Y1:PPP(J):J:P1P :"WITH AN AVERAGE FREQUENCY OF ";YBAR;","::"THE PROBABILITY OF:"::"A FREQUENCY OF ";Y;" OR MORE"::"IS: ";P 2130` :"ENTER THE MINIMUM FREQUENCY":"IN THE INTERVAL";MN:MN02420+j ::"THE MINIMUM FREQP(J):J~:"WITH AN AVERAGE FREQUENCY OF ";YBAR;","::"THE PROBABILITY OF:"::"A FREQUENCY OF ";Y;" OR LESS"::"IS: ";P2130Y02305P1:2320 YP1Y1:YF1:I1YP:YFYFI:I:P(YP)((YBAR))(YBARYP)YF:YP P(0)(YBAR):P$"Y"A$"N"2130"\A$"N"20}f:"WOULD YOU LIKE TO CHANGE":"THE AVERAGE FREQUENCY (Y/N)?";A$:A$"Y"A$"N"2150pA$"N"2020z2000YP1Y:YF1:I1YP:YFYFI:I:P(YP)((YBAR))(YBARYP)YF:YPP(0)(YBAR):P0:J0Y:PP *A22200/A32300.4YF1:Y02110D9I1Y:YFYFI:Ia>P((YBAR))(YBARY)YFH:"WITH AN AVERAGE FREQUENCY OF ";YBAR;","::"THE PROBABILITY OF:"::"A FREQUENCY OF ";Y::"IS: ";PR:"ANOTHER POISSON DISTRIBUTION (Y/N)?";A$:A:"(4). THE PROBABILITY OF A GIVEN":10:"INTERVAL OF FREQUENCIES"m ::"NUMBER (1-4)?";A::A1A42060{A42400:"NOW ENTER THE FREQUENCY IN QUESTION:";Y:Y02090 ::"THE FREQUENCY MUST BE A POSITIVE NUMBER"::2070%A12100ER"::2000s:"WHAT WOULD YOU LIKE TO CALCULATE:"::::5:"(1). THE PROBABILITY OF A GIVEN":10:"FREQUENCY"5:"(2). THE PROBABILITY OF A GIVEN":10:"FREQUENCY OR LESS"5:"(3). THE PROBABILITY OF A GIVEN":10:"FREQUENCY OR MORE"B52,1)FPRIME(1):PS1:I2L(1,X)?XPRIME(I)XPRIME(I1)920hCHMO(2,PS)CHMO(2,PS)FPRIME(I):925PSPS1:CHMO(2,PS)FPRIME(I)CHMO(1,PS)XPRIME(I):INMMO0:FMO1:J1PS:CHMO(2,J)FMO940FMOCHMO(2,J):NMMO1J:NMMO0970CIATED WITH A GIVEN Y":5:"2. THE VALUE OF Y ASSOCIATED WITH A PROBABILITY"% :"NUMBER (1-2)?";A:A1A23510% A23750% R.2316419:B1.31938153:B2.356563782:B31.781477937:B41.821255978:B51.330274429:PI3.14159265& :"YOz :"ENTER THE RANGE OF VALUES:"::10:"MINIMUM:";MIN:10:"MAXIMUM:";MAX:z$ MXMIN(MAXMIN)2:SDX(MAXMIN)6:3500$ :"ENTER MEAN:";MX:"ENTER STANDARD DEVIATION:";SDXY% :"WHICH WOULD YOU PREFER TO CALCULATE:"::5:"1. THE PROBABILITY ASSO34004#> ::"THE ARRAY SIZES DO NOT AGREE"::3010p#H N0:SX0:SAMDEV0:I1L(1,X):X(I)MTRIX(X,I):G03420#R F(I)MTRIX(F,I)#\ NNF(I):SXSXX(I)F(I):I#f MXSXN:I1L(1,X):SAMDEV2SAMDEV2((X(I)MX)2)F(I):I:SDX(SAMDEV2(N1)):3500M$":F:F1FVARNUM3310B" :"VALUES IN VARIABLE # ";X:G03340j" "FREQUENCY ARRAY IN VARIABLE # ";F" :"ARE THESE CORRECT (Y/N)?";A$:A$"Y"A$"N"3340" A$"N"3260" G13380"* K1L(1,X):F(K)1:K:L(1,F)L(1,X)#4 L(1,F)L(1,X)(MTRIX$(R,C)):C:RU! G0::"IS THE DATA GROUPED (Y/N)?";A$:A$"Y"A$"N"3260f! A$"N"3290n! G1! :"WHICH VARIABLE DO YOU WISH TO USE (1-";VARNUM;")?":X:X1XVARNUM3290! G03320" "WHICH IS THE FREQUENCY ARRAY (1-";VARNUM;")?RF$;NAME$;",R0" : VARNUMZ D R1VARNUM:C1101:RF$;NAME$;",R";(((R1)101)6)(C1)k N MTRIX$(R,C) X MTRIX$(R,C)"DONE"3180 b L(1,R)C1:C101 l C:R:CL$;NAME$ v I15:J1100:MTRIX(I,J)0::! R1VARNUM:C1L(1,R):MTRIX(R,C)3. INPUT OF A VARIABLE FROM":13:"DATA FILES"::Z :"NUMBER (1-3)?";A::A1A33030h A13480v A23450 OP$;"HOLD " RF$;"HOLD " NAME$ CL$;"HOLD " 216,0:I15:J1101:MTRIX$(I,J)"":J:I& OP$;NAME$;",L16" 0 0("ABOVE Y IS ";Q:5:"BELOW Y IS ";1Q:3690b(:"ENTER Y1:";Y1:"ENTER Y2:";Y2:Y2Y13630($::"Y2 MUST BE GREATER THAN Y1"::3610(.Z1(Y1MX)SDX:T11(1R(Z1)):Q1(1(2PI)((Z1Z12)))(B1T1B2T1T1B3T13B4T14B5T15) )8THE VALUE OF Y:";Y:Z(YMX)SDXo' T1(1R(Z)):Q(1(2PI)((ZZ2)))(B1TB2TTB3T3B4T4B5T5)~' Z0Q1Q':"FOR THE NORMAL DISTRIBUTION,":"N(";MX;",";SDX;") ,"::"AND A Y VALUE OF ";Y;","::"THE PROBABILITY OF A NUMBER:"::5ōWFPRIME(I)N2)880CR(NBELOWN2)(NBELOWFPRIME(I)N2)870s\MDN(XPRIME(I)XPRIME(I1))2:IL(1,X):890fMDN(XPRIME(I1)XPRIME(I))2:IL(1,X):890pMDNXPRIME(I):IL(1,X)zII1100:CHMO(2,I)0::ICHMO(1,1)XPRIME(1):CHMO(PYLXSjPLXLYSoN/tCL$;"HOLDCOMP "G~"RUN CURVE COMP "CL(1,X)X(I)Y(I)"I8CL$;"HOLDGRAPH "Q"RUN CURVE GRAPH "OLDGRAPH "w"RUN CURVE GRAPH "OP$;"HOLDCOMP "WR$;"HOLDCOMP "SXSYSPX2S$Y2S.LXS8LYSBXL2SLYL2SVPXLYS`TWEEN ";MN;" AND ";MX;", INCLUSIVE":"IS: ";P8 2130\ 200:"NORMAL DISTRIBUTION":: "CHOOSE A METHOD OF INPUT FOR THE MEAN AND STANDARD DEVIATION:":1 10:"1. DIRECT INPUT":10:"2. INPUT OF MINIMUM AND MAXIMUM VALUES":10:"UST BE":"GREATER THAN OR EQUAL TO ";MN::2420w YPMNMX:YF1:I1YP:YFYFI:I:P(YP)((YBAR))(YBARYP)YF:YP P(0)(YBAR):P0:JMNMX:PPP(J):J. :"WITH AN AVERAGE FREQUENCY OF ";YBAR;",":"THE PROBABILITY OF HAVING":"A FREQUENCY BE  2130P` :"ENTER THE MINIMUM FREQUENCY":"IN THE INTERVAL";MN:MN02420j ::"THE MINIMUM FREQUENCY MUST BE":"A POSITIVE NUMBER"::2400t :"ENTER THE MAXIMUM FREQUENCY":"IN THE INTERVAL";MX:MXMN2440/~ ::"THE MAXIMUM FREQUENCY MAY CALCULATE:"::5:"1. THE PROBABILITY OF OCCURRENCE ABOVE AND BELOW Y":5:"2. THE PROBABILITY OF OCCURRENCE INSIDE AND OUTSIDE AN INTERVAL (Y1,Y2)"& ::"NUMBER (1-2)?";A::A1A23510& A23610' :"NOW ENTER WITH A GIVEN Y":5:"2. THE VALUE OF Y ASSOCIATED WITH A PROBABILITY"}% ::"NUMBER (1-2)?";A::A1A23510% A23750% R.2316419:B1.31938153:B2.356563782:B31.781477937:B41.821255978:B51.330274429:PI3.14159265& :"YOU M ::"THE MAXIMUM MUST BE GREATER THAN":"THE MINIMUM , ";MIN::3452s$ MXMIN(MAXMIN)2:SDX(MAXMIN)6:3500$ :"ENTER MEAN:";MX:"ENTER STANDARD DEVIATION:";SDXR% :"WHICH WOULD YOU PREFER TO CALCULATE:"::5:"1. THE PROBABILITY ASSOCIATED 03420#R F(I)MTRIX(F,I);#\ NNF(I):SXSXX(I)F(I):I#f MXSXN:I1L(1,X):SAMDEV2SAMDEV2((X(I)MX)2)F(I):I:SDX(SAMDEV2(N1)):3500#z :"ENTER THE RANGE OF VALUES:"::10:"MINIMUM:";MIN:10#| "MAXIMUM:";MAX:# MAX(MIN)3460F$F<" :"ARE THESE CORRECT (Y/N)?";A$:A$"Y"A$"N"3340M" A$"N"3260[" G13380"* K1L(1,X):F(K)1:K:L(1,F)L(1,X)"4 L(1,F)L(1,X)3400"> ::"THE ARRAY SIZES DO NOT AGREE"::3010#H N0:SX0:SAMDEV0:I1L(1,X):X(I)MTRIX(X,I):G;"BETWEEN ";MN;" AND ":MX;" SUCCESSES, INCLUSIVE":"IN ";N;" TRIALS"::"IS: ";P^@1240200:"POISSON DISTRIBUTION":::"ENTER THE CALCULATED":"OR AVERAGE FREQUENCY";YBAR:YBAR02020 ::"THE AVERAGE FREQUENCY MUST BE":"A POSITIVE NUMB,X)J1:XCOPY(K)CMN8002CMNXCOPY(K):DLPSK] K:XPRIME(J)CMN:FPRIME(J)FCOPY(DLPS)*LDLPSL(1,X)J:XCOPY(L)XCOPY(L1):FCOPY(L)FCOPY(L1):L:J4NBELOW0:I1L(1,X):NBELOWNBELOWFPRIME(I)>NBELOWN2890H(NBELOWN2)(NBELO CONTINUE";A$:1000MESXNII1L(1,X):SD2((X(I)ME)2)F(I):ISTDDEV(SD2(N1)):GAM((X3SN)((3MEX2S)N)(2MEMEME))(((X2SN)MEME)3)I1L(1,X):XCOPY(I)X(I):FCOPY(I)F(I):IJ1L(1,X):CMNXCOPY(1):DLPS1 K1L(1SXSYN)(N1):C0RCV(XSTDYSTD)v180:::"THE RESULTS ARE:"::"MEAN OF X = ";MX:"MEAN OF Y = ";MY:"STANDARD DEVIATION OF X = ";XSTD{"STANDARD DEVIATION OF Y = ";YSTD:"COVARIANCE = ";CV:"CORRELATION COEFFICIENT = ";C0R:"HIT RETURN TOY2SY(I)Y(I)F(I):X3SX3SX(I)X(I)X(I)F(I):I?G0550_N0:J1L(1,X):NNF(J):Jm&CH1700XMXSXN:MYSYNbI1L(1,X):XDS2XDS2((X(I)MX)2)F(I):YDS2YDS2((Y(I)MY)2)F(I):I!lXSTD(XDS2(N1)):YSTD(YDS2(N1)):CV(SPɴōōō1V! :"WHICH VARIABLE DO YOU":"WISH TO USE (1-";VARNUM;")";:X:X1XVARNUM3290d! G03320! "WHICH IS THE FREQUENCY ARRAY (1-";VARNUM;")";:F:F1FVARNUM3310! :"VALUES IN VARIABLE # ";X:G03340" "FREQUENCY ARRAY IN VARIABLE # "; X MTRIX$(R,C)"DONE"31802 b L(1,R)C1:C101G l C:R:CL$;NAME$l v I15:J1100:MTRIX(I,J)0:: R1VARNUM:C1L(1,R):MTRIX(R,C)(MTRIX$(R,C)):C:R G0::"IS THE DATA GROUPED (Y/N)?";A$:A$"Y"A$"N"3260 A$"N"3290! GōY SIZES DO NOT AGREE"::210^NL(1,X):SX0:SY0:SP0:X2S0:Y2S0:X3S0:XDS20:YDS20:SD20I1N:X(I)MTRIX(X,I):Y(I)MTRIX(Y,I):G1F(I)MTRIX(F,I)I2I1N:SXSXX(I)F(I):SYSYY(I)F(I):SPSPX(I)Y(I)F(I):X2SX2SX(I)X(I)F(I):Y2SLDGRAPH "zXYCH+L(1,X)2A9BII1L(1,X)SX(I)]Y(I)dIzCL$;"HOLDGRAPH ""RUN CURVE GRAPH "OCL$;"HOLDGRAPH ""RUN CURVE GRAPH "H "RYCHL(1,X)ABI1ō     P1:2320V YP1Y1:YF1:I1YP:YFYFI:I:P(YP)((YBAR))(YBARYP)YF:YP P(0)(YBAR):P0:J0Y1:PPP(J):J:P1P :"WITH AN AVERAGE FREQUENCY OF ";YBAR;",":"THE PROBABILITY OF HAVING":"A FREQUENCY OF ";Y;" OR MORE":"IS: ";P0GYP1Y:YF1:I1YP:YFYFI:I:P(YP)((YBAR))(YBARYP)YF:YPpP(0)(YBAR):P0:J0Y:PPP(J):J:"WITH AN AVERAGE FREQUENCY OF ";YBAR;",":"THE PROBABILITY OF HAVING":"A FREQUENCY OF ";Y;" OR LESS":"IS: ";P2130Y02305PROBABILITY OF HAVING":"A FREQUENCY OF ";Y:"IS: ";P|R:"ANOTHER POISSON DISTRIBUTION (Y/N)?";A$:A$"Y"A$"N"2130\A$"N"20f:"WOULD YOU LIKE TO CHANGE":"THE AVERAGE FREQUENCY (Y/N)?";A$:A$"Y"A$"N"2150pA$"N"2020z200ENCY IN QUESTION";Y:Y02090Y ::"THE FREQUENCY MUST BE A POSITIVE NUMBER"::2070g%A12100u*A22200/A323004YF1:Y021109I1Y:YFYFI:I>P((YBAR))(YBARY)YF6H:"WITH AN AVERAGE FREQUENCY OF ";YBAR;",":"THE GIVEN":10:"FREQUENCY OR LESS"b5:"(3). THE PROBABILITY OF A GIVEN":10:"FREQUENCY OR MORE"5:"(4). THE PROBABILITY OF A GIVEN":10:"INTERVAL OF FREQUENCIES" ::"NUMBER (1-4)?";A::A1A42060A42400:"NOW ENTER THE FREQUTED":"OR AVERAGE FREQUENCY";YBAR:YBAR02020t::"THE AVERAGE FREQUENCY MUST BE":"A POSITIVE NUMBER"::2000:"WHAT WOULD YOU LIKE TO CALCULATE:"::::5:"(1). THE PROBABILITY OF A GIVEN":10:"FREQUENCY"5:"(2). THE PROBABILITY OF A IMNMX:PPP(I):I6:"WITH THE PROBABILITY FOR SUCCESS":"Q EQUAL TO: ";Q;",":"THE PROBABILITY OF HAVING":"BETWEEN ";MN;" AND ";MX;" SUCCESSES, INCLUSIVE":"IN ";N;" TRIALS IS: ";P;1240.200:"POISSON DISTRIBUTION":::"ENTER THE CALCULA  MX:C1:NUM1:DEN1:I0YP1:NUMNUM(NI):I:J1YP:DENDENJ:JPCNUMDENrP(YP)C(QYP)((1Q)(NYP))"YP:P(0)(1Q)N,P0:IMNMX:PPP(I):I6:"WITH THE PROBABILITY FOR SUCCESS":"Q EQUAL TO ";Q;","::"THE PROBABILITY OF:":T";N::1500c:"ENTER THE MAXIMUM NUMBER OF":"SUCCESSES IN THE INTERVAL";MX:MXMNMXN1530:"ENTER THE MAXIMUM NUMBER OF":"SUCCESSES IN THE INTERVAL";MX:MXMNMXN1540::"MAXIMUM MUST BE BETWEEN ";MN;" AND ";N::1520BYPMNG13800wK1L(1,Y):F(K)1:K:L(1,F)L(1,Y)U|L(1,X)L(1,Y)L(1,Y)L(1,F)400::"THE ARRAY SIZES DO NOT AGREE"::"HIT RETURN TO CONTINUE";A$:200G1420K1L(1,X):F(K)1:K:L(1,F)L(1,X)L(1,F)L(1,X)500::"THE ARRARNUM;")";:F:F1FVARNUM310K T:"X-VALUES IN VARIABLE # ";X:CH1347l W"Y-VALUES IN VARIABLE # ";Yy [G0360 ^"FREQUENCY ARRAY IN VARIABLE # ";F h:"ARE THESE CORRECT (Y/N)?";A$::A$"Y"A$"N"360 rA$"N"210 sCH1400tOR ";V;" DEGREES OF FREEDOM,"::"AND A Y VALUE OF ";Y::"THE PROBABILITY:":pR PA(1I)2:NEGFLAG1PA1PA\ 5:"ABOVE Y IS ";PA:5:"BELOW Y IS ";1PAf 3230P5:"ABOVE Y IS ";PA:5:"BELOW Y IS ";1PAf 3230YP:P(0)(1Q)N,P0:E ANOTHER CALCULATION USING":"THE T DISTRIBUTION (Y/N)?";A$:A$"Y"A$"N"3230u A$"N"ĺ"RUN DISTRIBUTIONS " :"WOULD YOU LIKE TO CHANGE THE NUMBER OF":"DEGREES OF FREEDOM (Y/N)?";A$:A$"Y"A$"N"3250 A$"N"3020 3000NH :"F(TH))(K2):N IPTSM(TH), N13400k :"FOR ";V;" DEGREES OF FREEDOM,"::"THE PROBABILITY:": 5:"IN THE INTERVAL":5:"(-";YP;",";YP;")":5:"IS ";I: 5:"OUT OF THE INTERVAL":5:"(-";YP;",";YP;")":5:"IS ";1IR :"DO YOU HAVN1:J5K2:NUMNUM(J3):DENDEN(J2):J:PTSMPTSM(NUMDEN)((TH))(K3):& I(23.14159265)(TH(TH)(TH)PTSM):32000 V23140: I(TH):3200 D PTSM1:K4V2:NUM1:DEN1:J4K2:NUMNUM(J3):DENDEN(J2):J:PTSMPTSM(NUMDEN)(;N::N1N23030Z NEGFLAG0::"NOW ENTER THE VALUE OF Y:";Y:YP(Y):Y0NEGFLAG1} TH(YP(V)):V2(V2)3120 V13080 I2TH3.14159265:3200 V33100 I(23.14159265)(TH(TH)(TH)):3200O PTSM1:K5V2:NUM1:DE A23450 OP$;"HOLD ", RF$;"HOLD "7 NAME$H CL$;"HOLD "x 216,0:I15:J1101:MTRIX$(I,J)"":J:I& OP$;NAME$;",L16"0 RF$;NAME$;",R0": VARNUMD R1VARNUM:C1101:RF$;NAME$;",R";(((R1)101)6)(C1)N MTRIX$(R,C)OR SUCCESS":"Q EQUAL TO ";Q;","::"THE PROBABILITY OF:":vY;" OR MORE SUCCESSES":"IN ";N;" TRIALS"::"IS: ";P1240:"ENTER THE MINIMUM NUMBER OF":"SUCCESSES IN THE INTERVAL";MN:MN0MNN1520 ::"MINIMUM MUST BE BETWEEN 0 AND ER1:I5:J51: PRINTER INTERFACE -- TURN OFF}:::"TURN PRINTER OFF, THEN HIT RETURN FOR MENU";A$:20NNUM$" ";I:J$ER118100:1720;216,0L ER1:I5:J5q: PRINTER INTERFACE -- TURN OFF:::"TURN PRINTER OFF, THEN HIT RETURN FOR MENU";A$:20AM$" ";I:JER11810:1720216,0  "WHICH VARIABLE NUMBER IS":"THE X-VALUE (1-";VARNUM;")";:X:X1XVARNUM240] CH1300 :"WHICH VARIABLE NUMBER IS":"THE Y-VALUE (1-";VARNUM;")";:Y:Y1YVARNUM270 ,G0340 6:"WHICH VARIABLE NUMBER IS":"THE FREQUENCY ARRAY (1-";VAC$(C)":"CC1:3120"N ER1:2000, CC1@ 3900:XCC:V3V[ C$(C)":"V4V3:3250j 3900:V4V V4V3ER7::2000 IV41CS(K)3 D(V3IV41,K)D(I,K) I CS(K)CS(K)(V4V31):D(0,K)CS(K)  V34VPV41:2500:D(2,K)600 216,0:490+ XCH1Q$"LINEAR"F bCH2Q$"EXPONENTIAL"a lCH3Q$"LOGARITHMIC"v vCH4Q$"POWER" 21:"FILE NAME: ";NAME$;" -- ";Q$;" FIT":"X-VAR: VAR # ";X;", MAX VALUE= ";XMAX:"Y-VAR: VAR # ";Y;", MAX VALUE= ";YMAX 34,27Y"A$"N"850\A$"N"2004fOP$;"HOLDGRAPH "JpWR$;"HOLDGRAPH "QzXXY`CHlL(1,X)sAzBI1L(1,X)X(I)Y(I)ICL$;"HOLDGRAPH ""RUN CURVE GRAPH "O"200fOP$;"HOLDGRAPH " pWR$;"HO THE DEGREES OF FREEDOM:";V:((V))V3020S ::"POSITIVE INTEGERS ONLY":3000 :"WOULD YOU LIKE TO CALCULATE":"THE PROBABILITY:"::5:"1. ABOVE AND BELOW Y":5:"2. INSIDE AND OUTSIDE A":8:"SYMMETRIC INTERVAL (-Y,Y)" ::"NUMBER (1-2)?":PUPD:"FOR ";V;" DEGREES OF FREEDOM,"::"THE PROBABILITY:":5:"IN THE INTERVAL":5:"(";Y1;",";Y2;")":5:"IS ";PUPL:5:"OUTSIDE THE INTERVAL":5:"(";Y1;",";Y2;")":5:"IS ";1(PUPL)"1330+ :"5. T DISTRIBUTION":10:"ENTERA$"N"1030 Z10007 :"ENTER Y1:";Y1:Y101520p ::"Y1 MUST BE GREATER THAN OR EQUAL TO 0"::1500 "ENTER Y2:";Y2:Y2Y11540 ::"Y2 MUST BE GREATER THAN Y1= ";Y1::1520K1:NT1:TPS1:YY1:1270:PLP:K1:NT1:TPS1:YY2:1270";Pq 2:"DO YOU HAVE ANOTHER CALCULATION USING":"THE CHI-SQUARE DISTRIBUTION (Y/N)?";A$:A$"Y"A$"N"1330 <A$"N"ĺ"RUN DISTRIBUTIONS " F:"WOULD YOU LIKE TO CHANGE THE NUMBER OF":"DEGREES OF FREEDOM (Y/N)?";A$:A$"Y"A$"N"1350 PJ1K:PSPS(V2J):J% TPSTPSPS8 PS1E081310H KK1:1270l P(Y2)(V2)(Y2)GAMV2TPSx #NT1ı (:"FOR ";V;" DEGREES OF FREEDOM,"::"AND A Y VALUE OF ";Y;" ,": -"THE PROBABILITY:"::5:"ABOVE Y IS ";1P:5:"BELOW Y IS IVEN Y"A 5:"2. INSIDE AND OUTSIDE AN":8:"INTERVAL (Y1,Y2)"n ::"NUMBER (1-2)?";N::N1N21220| N21500 :"ENTER THE VALUE OF Y:";Y:Y01260 ::"Y MUST BE GREATER THAN OR EQUAL TO 0"::1240 K1:NT0:TPS1 PSYK:EES OF FREEDOM MUST BE":"A POSITIVE INTEGER"::1000K V2(V2)1100q GAMV21:I1V2:GAMV2GAMV2I:I{ 1200 LGAMV2(3.14159265)2:I1(V2):GAMV2GAMV2(I.5):I :"YOU MAY CALCULATE THE PROBABILITY"::5:"1. ABOVE AND BELOW A G 7 OP$"OPEN":CL$"CLOSE":WR$"WRITE":RF$"READ"FdOP$;"CH "UnRF$;"CH "]xCHlCL$;"CH ""DELETE CH "CH53000:"4. CHI-SQUARE DISTRIBUTION":10:"ENTER THE DEGREES OF FREEDOM:";VV((V))10305 ::"THE DEGR                    METHOD OF INPUT FOR THE MEAN AND STANDARD DEVIATION:": 10:"1. DIRECT INPUT":10:"2. INPUT OF MINIMUM AND MAXIMUM VALUES":10:"3. INPUT OF A VARIABLE FROM":13:"DATA FILES":: :"NUMBER (1-3)?";A::A1A33030 A13480 S SUCCESSES":"IN ";N;" TRIALS"::"IS: ";P5P1240xYPYN:C1:NUM1:DEN1:I0YP1:NUMNUM(NI):I:J1YP:DENDENJ:JCNUMDENP(YP)C(QYP)((1Q)(NYP))YP:P(0)(1Q)NP0:IYN:PPP(I):I;:"WITH THE PROBABILITY F:DEN1:I0YP1:NUMNUM(NI):I:J1YP:DENDENJ:JDCNUMDENf(P(YP)C(QYP)((1Q)(NYP)){2YP:P(0)(1Q)N<P0:I0Y:PPP(I):IF:"WITH THE PROBABILITY FOR SUCCESS":"Q EQUAL TO ";Q;","::"THE PROBABILITY OF:":+KY;" OR LES\:::"INSERT PROGRAM DISKETTE":"HIT RETURN TO CONTINUE";A$:bfOP$;"HOLD ,D1"spWR$;"HOLD "~zNAME$CL$;"HOLD "NAME$"EX1"NAME$"EX2"1000OP$;NAME$;",L16"WR$;NAME$;",R0"VARNUM'R1VARNUM:C110/"rZ$(C$(I),1):(Z$)64(Z$)90ER6::2000]"|J1(C$(I)):P,((C$(I),J,1)):PP1:Jm"II1:8021" P,58:P1,177:P2,58:P3,178" IP4(104)25691" I,63:I"& F1F11:CS(F1(1))CS(F1(F))ER5::2000"+ F#0 FF1(F1)00 !xV4VD(0,K)4ER7::2000&!G!@P(104)256OF:F0:F11:ICj!UC$(I)":"C$(I)" "CI:8205!VF1VM:L$(F)""Ă:FVM18030!XC$(I)L$(F)F1(F1)F:F1F11:8300!ZF!^J131!hB$(J)C$(I)ĹP,J197:II1:PP1:8021!mJ:KKC:KCKC1:KCVM1KC1:M910 M91D(0,K)0< 3050:U <C$(C)" "PR19:20^ FBF0 P(C$(C),3)"TOP"V4:CC1:3960 U(C$(C),2)"BO"VD(0,K)3:BF1:CC1:3960 ZD1(C$(C)):C$(C1)T$ER7:2000 dD2(C$(C2)):CC3 s26CC1:Id BF13435=f I1EN(K)V1:D(I1I1,K)D(I1,K):bk I10I2:D(VI1,K)IN(I11):I1p CS(K)CS(K)I1:D(0,K)CS(K)u ST(K)4:EN(K)CS(K)3:CS(K)0EN(K)4  CC1:PR3:20:2400:K0ġ:ER12:EL0:2000 CC1:L$(KC)C$(C):VV1:3315 H CC1:3900<M (C$(C1),2)"BO"VV1ET XCCUW I1CL1Cs\ C$(C)":"C$(C)" "3428` C$(C)";"İ3428:VVCXC:2500:D1;":";D2;" ";:PR10:CC1:20:3412a C$(C)"-"IN(I)("-"C$(C1)):CC2:b IN(I)(C$(C)):D1:D(3,K)D2$ EN(K)CS(K)3:ST(K)49 EN(K)3EN(K)4? T CC1:3900:XCCr C$(C)":"C$(C)" "3340 C$(C)";"İ2500:D1;":"D2;" ";:PR10:CC1:20:3315 C$(C)"-"D(V,K)("-"C$(C1)):CC2:VV1:3315  D(V,K)(C$(C)):CC1,0:170EHER BINOMIAL DISTRIBUTION (Y/N)?";A$:A$"Y"A$"N"1240IA$"N"20:"WOULD YOU LIKE TO CHANGE":"THE NUMBER OF TRIALS OR THE PROBABILITY":"OF SUCCESS IN A TRIAL (Y/N)?";A$:A$"Y"A$"N"1260A$"N"106010006YP1Y:C1:NUM1RINTOUT, HIT'(CTRL) C'"::"NOW, TURN ON PRINTER AND HIT RETURN";A$g: PRINTER INTERFACE -- TURN ONwER0:1800J15:41I15:TNUM100000(1):NUM(TNUM)NUM$(NUM):(NUM$)51760NUMTNUM10(5(NUM$)):NUM(NUM):1740 TOP":J15:41=I15:TNUM100000(1):NUM(TNUM)]NUM$(NUM):(NUM$)51580NUMTNUM10(5(NUM$)):NUM(NUM):1550,NUM$" ";6I:J@A$:A$"DONE"1650J:1530r"HIT RETURN FOR MENU";A$:20C:"TO STOP THE PPRINTER OFF, THEN":"HIT RETURN FOR MENU";A$:20P:"RANDOM NUMBER TABLE":4:"WOULD YOU LIKE THE TABLE PRINTED ON PAPER (Y/N)?";A$:A$"Y"A$"N"1510A$"Y"1700:"HIT RETURN TO CONTINUE THE TABLE":"TYPE 'DONE' TO SRAPH "!`WR$;"HOLDSTATSGRAPH "(eX4gL(1,X)=tMAXM~I1L(1,X)WX(I)aF(I)hICL$;"HOLDSTATSGRAPH ""RUN STATS GRAPH "OIVOP$;"HOLDSTATSGRAPH "`WR$;"HOLDSTATSGRAPH "eXgL(1,X)tMAX~I1LE VARIABLE STATISTICS":"2. TWO VARIABLE STATISTICS":"3. RETURN TO MASTER MENU":: "NUMBER (1-3)?";CH:::CH1CH3200 CH3210 "RUN STATPAC " G0:"IS THE DATA GROUPED (Y/N)?";A$:A$"Y"A$"N"210 A$"N"240 G1O :","PL","DE","LO","CA","IO","ST","SA","SP","DO","LI","PR","SL","DR","HE","EN"b(3, 42,79,35,64,60,62h(8,(.17100:NCS(K(1)):E1C8:NCS(K(E))ER5:2000(/:STST(K(1)):ENEN(K(1)):16000(2 104,168,104,166,223,154,72,152,72,96)6MA(K)D(STPEC","NO SPECS","APPLESOFT OR DOS ERROR","BAD NUMERIC VALUE"{'+ "DIVISION BY ZERO ERROR","ACTIVE FILE","PLEASE TRY AGAIN"'+ 104,168,104,166,223,154,72,152,72,96 ',A$(20)',Y818'$,I1Y8:A$(I):I'),I16:P1(I):II(., "NA","RA","RET YEAR: ","START PERIOD: ","END YEAR: ","END PERIOD: ","EDIT COMMAND>","YEAR:PERIOD: "j& +I113:ER$(I):I&+I110:J:I767,J:I&+ "SYNTAX ERROR","BAD PERIODICITY","BAD YEAR","BAD PERIOD","BAD RANGE" 9'+ "NOT ACTIVE FILE" ,"BAD DATE S"PDL","?","SQR","RND","LOG","EXP","COS","SIN","TAN","ATN","PEEK","LEN","****"%$'"COMMAND> ","*","FILE NAME: ","*","CHANGE ANY SPECS? " %.' "*","NEW FILENAME: ","*","*","NUMERIC VALUE: ","FILE NAME OR ':'> ","TRANSFORM: " S&B' "PERIODICITY: ","STAR:14000$A#FL$(J)L$(J(J)):J0$#VST(J(1)):2500N$#STST(J(C8)):ENEN(J(C8))k$#MPJ1:MP6MP6:15090v$#15090$'I131:B$(I):I$'I119:P$(I):IJ%' "NOT","?","+","-","*","/","^","AND","OR",">","=","<","SGN","INT","ABS","?","?","?",:F0ER8::2000#k O#l P,68:P1,40:P2,73:P3,44:P4,F48:P5,41:PP6_# II1:8021#(#ZZ0:(C$(C),2)"ZE"ZZ1:CC1#*#17100:NO0#-#J1C8:#7#J(J)K(J)#8#CS(J(J))NOBNOCS(J(J))#:#D(1,J(J))D(1,J(1))ER2:2000$<#KJ(J)EDOM: ";DF::"T-VALUE: ";T'3010:"T-VALUE: ";TF3010 MTRIX$(R,C). MTRIX$(R,C)"DONE"220C L(1,R)C1:C101X C:R:CL$;NAME$} I15:J1100:MTRIX(I,J)0:: R1VARNUM:C1L(1,R):MTRIX(R,C)(MTRIX$(R,C)):C:R# :"CHARLES MANN & ASSOCIATES":"STATISTICS PACKAGE":"TEST STATISS PACKAGE":"TEST STATISTICS":::4 dOP$;"HOLD "E nRF$;"HOLD "P xNAME$a CL$;"HOLD " I15:J1101:MTRIX$(I,J)"":J:I OP$;NAME$;",L16" RF$;NAME$;",R0" VARNUM R1VARNUM:C1101:RF$;NAME$;",R";(((R1)101)6)(C1)(7OP$"OPEN":WR$"WRITE":RF$"READ":CL$"CLOSE"MTRIX$(5,101),MTRIX(5,101),X(100),Y(100),D(100),OF(100),EF(100),CN(10,100),NV(100),NH(100):::12:14:"LOADING DATA":100 N12500:N:# :"CHARLES MANN & ASSOCIATES":"STATISTIC  d"RUN PROGRAM "@ 1):J1K1:X(I,J)C(E(I)1,E(J)1):J,IR4 ?I1K1:J1K1:A(I,J)0:IJA(I,J)1[4?J,Ih4?I1K14?X(I,I).0000001164454 ?Y(I)Y(I)X(I,I):J1K1:A(I,J)A(I,J)X(I,I):JIī161704%?X(I,J)X(I,J)X(I,I)4*?J:X(I,I)1:L1K1:LI161:v3>I2M1:J2M1:R(E(I)1,E(J)1)(NX(E(I)1,E(J)1)X(1,E(I)1)X(1,E(J)1))(N(N1)B(E(I)1)B(E(J)1)):J,I3>I2M1:E(I);:J2M1:U(I,J)R(E(I)1,E(J)1)3?Z7(J1):Z:D(U(I,J));:J:::I%4?E(1)0:I1K1:Y(I)C(E(I)1,E(M1)JO2>B(E(I)1)(X(E(I)1,E(I)1)(NZ1)X(Z1,E(I)1)X(Z1,E(I)1)(N(NZ1))):I2>"REGRESSION ANALYSIS"::"DEPENDENT VARIABLE IS ";L$(K(1))2>I2M1:S(I)B(E(I)1):I2>:"CORRELATION COEFFICIENTS":2>"VAR.";:I1M:ZI7:Z:E(I1);:I:I2M:E(I)K(I)::E(M1)K(1)51>ISTEN:D(I,0)1::P1>::15:"COMPUTING":Y1>V9Vz1>::"PERIODICITY "D(1,K(1))1>2910:VV91>Z0:Z11:I1M11>JZ1M1:XZ:LSTEN:XXD(L,E(I))D(L,E(J)):L:X(E(I)1,E(J)1)X:C(E(I)1,E(J)1)X:(FL$(J),8)00L$(0)"CONSTANT":VVM10>MC8:KM11>1))XC(I)(7(DT$))27K2,155:K2(/F.dÆB$(31),P$ ";F$;",R";Q<@D(Q,K(1))<@Q0<@I1ENST1M<$@D$;"WRITE ";F$;",R";I3W<)@Q(I)^<.@Ir<3@D$;"CLOSE ";F$}<8@16450<=@"CORRELATION MATRIX SINGULAR!":?L,I5C?S6C(E(M1)1,E(M1)1):I1K1:S6S6Y(I)C(E(I)1,E(M1)1):I"6H?S7S6(NM):R21S7(S(M1)S(M1)):R31S6(S(M MX*@#nj@#_nÆD(CM,VM),L$(VM),ST(VM),EN(VM),MA(VM),MI(VM),CS(VM),S1(VM),S2(VM),S3(VM)>xð10000:C$(0)" ":SL6:DR1:T$":":D$"">ÆB(VM1),Q(CM),E(VM1),VA$(VM),IN(21)>ÆX(VM1,VM1),R(VM1,VM1),C(VM1,VM1)>øD(X)(X10P1.5)(10P1.5kkk{+Kk{;k+;[+k+Kk{;k+KK{kk{k{ L HIHȠHȩHȱH<ȱH=ȩHȩ`H H<  ) HiHHiHH<ȱH=<H`L-K1PS:CHMO(2,K)FMO955AMO(NMMO)CHMO(1,K):NMMONMMO1TK:NMMONMMO1180:::"THE RESULTS ARE:"::"MEAN = ";ME:"MEDIAN = ";MDNNMMO0983"NO MODE":995NMMO1987"MODE = ";MO(1):995NMMO;" MODES: ":11: {kk[;{{THE VARIABLES (1-";VARNUM;")";:R:R1RVARNUM1620?^I1Rh"WHICH VARIABLE FOR ROW # ";I;:VR(I):VR(I)1VR(I)VARNUM1660r::"VARIABLE NUMBERS MUST BE IN THE RANGE (1-";VARNUM;")"::1640|IMTCH1:J2R:L(1,VR(J))L(1,VR(1))LENGTH"::10:1010VRVARNUM:CL(1,1):I1R:J1C:CN(I,J)MTRIX(I,J):J:I:2000@:"WOULD YOU CARE TO ENTER ANY OF THE":"VARIABLES AS PART OR ALL OF THE":"CONTINGENCY TABLE (Y/N)?";A$:A$"Y"A$"N"1600JA$"N"18004T:"HOW MANY OF L(1,OFV)1`3000:"WOULD YOU CARE TO ENTER THE ENTIRE FILE":"AS THE CONTINGENCY TABLE (Y/N)?";A$:A$"Y"A$"N"1500A$"N"1600MTCH1:I2VARNUM:L(1,I)L(1,1)MTCH0I:MTCH11550::"THE VARIABLES ARE NOT OF UNIFORM 1,OFV)L(1,EFV)1090C=I1L(1,EFV):EF(I)MTRIX(EFV,I):I:1110wB::"THE ARRAY SIZES DO NOT AGREE"::10:1040LOT0:I1L(1,OFV):OTOTOF(I):I:J1L(1,OFV):EF(J)OTL(1,OFV):J VCHI20:I1L(1,OFV):CHI2CHI2(OF(I)EF(I))2EF(I):I:DF L(1,X) A B( I1L(1,X)2 X(I)< Y(I)U I:CL$;"HOLDGRAPH " ,XMAXX(1):YMAXY(1):K1L(1,X):X(K)XMAXXMAXX(K) 6Y(K)YMAXYMAXY(K) @K:XSTXMAX279:YSTYMAX159 J:3:0,00,159279,159:C1 O0:I110:0,16(IT.:::12:8:"LOADING GRAPHING ROUTINE"d OP$"OPEN":CL$"CLOSE":RF$"READ":WR$"WRITE"wX(100),Y(100)OP$;"HOLD ,L16"(RF$;"HOLD ,R0"2NAME$<CL$;"HOLD "dOP$;"HOLDGRAPH "nRF$;"HOLDGRAPH "xXYCH    "  "5. TEST STATISTICS":"6. ENTER DATA BASE SYSTEM":\:"NUMBER (1-6)?";A::A1A61010sA6ĺ"RUN DBMP "A11030"RUN CURVE "A21040 "RUN PROBABILITY ":A31050"RUN STATS "A41060 "RUN DISTR216,0:"NOMONI,O,C" :::10:7:"CHARLES MANN & ASSOCIATES":11:"STATISTICS PACKAGE":12:"COPYRIGHT,1979":12:"USE RESTRICTED"N12500:N :10:"HOW MANY DISK DRIVES WILL YOU BE USING (1-2)?";DR:  (1,X)X(I)F(I) I;CL$;"HOLDSTATSGRAPH "T"RUN STATS GRAPH "0RAPH "S "N STATS " STATS "LETE HOLDSTATSGRAPH "F J"RUN STATS "O ":"CARE TO CALCULATE:":~5:"1. PAIRED T-STATISTIC":5:"2. T-STATISTIC FOR TWO MEANS":5:"3. ONE SAMPLE T-STATISTIC"::"NUMBER (1-3)?";N::N1N34020N35000N245003:"PAIRED T-STATISTIC":5:"WHICH VARIABLE NUMBER IS TH2FR:CHI2CHI2TERM:J:I,DF(R1)(C1) :"CHI-SQUARE TEST":6:"THE RESULTS ARE:":::"DEGREES OF FREEDOM: ";DF::"CHI-SQUARE VALUE: ";CHI2 ::"HIT RETURN FOR TEST MENU";A$:90020:"STUDENT T TEST"::"WHICH T-STATISTIC WOULD YOU001810MI1R::5:"ROW # ";I:J1C:"COLUMN # ";J;:":";CN(I,J):J:IN0:I1R:NH(I)0:J1C:NH(I)NH(I)CN(I,J):J:NNNH(I):II1C:NV(I)0:J1R:NV(I)NV(I)CN(J,I):J:ICHI20:I1C:J1R:FRNH(J)NV(I)N:TERM(CN(J,I)FR)MTCH0J:MTCH01540]CL(1,VR(1)):I1R:J1C:CN(I,J)MTRIX(VR(I),J):J:I:2000:"YOU WILL THUS ENTER THE CONTINGENCY":"TABLE ELEMENT BY ELEMENT"::"NUMBER OF ROWS (1-10)?";R:R1R101800"NUMBER OF COLUMNS (1-100)?";C:C1C1NUMBER OF POSSIBLE COMBINATIONS, C(M,N), EACH CONTAINING N OBJECTS THAT CAN BE FORMED FROM A COLLECTION OF M DISTINCT OBJECTS" 6:::"ENTER THE NUMBER OF OBJECTS IN THE ENTIRE COLLECTION, M:";M::"ENTER THE NUMBER OF OBJECTS 300 N0230 P1:260- N1240: PM:260H NM250k P1:I0M1:PP(MI):I:260 P1:J0N1:PP(MJ):J :"P(";M;",";N;") = ";P :"HIT RETURN FOR MENU";A$:20 ,:"2. COMBINATIONS"::"THIS ELEMENT YIELDS THE LECTION OF M DISTINCT OBJECTS" :::"ENTER THE NUMBER OF OBJECTS IN THE ENTIRE COLLECTION, M:";M::"ENTER THE NUMBER OF OBJECTS IN THE SUBSET, N:";N MN220 ::"NOTE: M MUST BE GREATER THAN (OR EQUAL TO) N"::CH::CH1CH520! 2CH51006 <"RUN STATPAC "D dCH4500R nCH3400` xCH2300 :"1. PERMUTATIONS"::"THIS ELEMENT YIELDS THE NUMBER OF POSSIBLE PERMUTATIONS, P(M,N), EACH CONTAINING N OBJECTS THAT CAN BE FORMED FROM A COL:"WOULD YOU LIKE TO CHANGE THE MEAN"::"OR THE STANDARD DEVIATION (Y/N)?";A$:A$"Y"A$"N"3690u+~A$"N"3500+3000+:"YOU MAY CALCULATE Y:"::5:"1. GIVEN THE PROBABILITY ABOVE":8:"OR BELOW Y":5:,"2. GIVEN THE PROBABILITY INSIDE O 1)0,16(I1)17 Q28(I1),15928(I1)2,159:I:3m TXNTX(C):XPLT(XNTXST):YNTY(C):YPLT(YNTYST)w Y380 ^XPLT2,159YPLTXPLT2,159YPLT:XPLT,157YPLTXPL,161YPLT hCC1:CL(1,X)340 m400 |216,0:360 C1 XNT(XMAX _ *5>LW`hu~` 08 &,<JVPem %(,5=Fj "/;ESanw *5>LW`hu~` ACKAGE"::5 d:"NUMBER (1-2)?";N::N1N2100L nN1ĺ"RUN DBMP "V s190h x"OPENHOLD "z "READHOLD " NAME$ "CLOSEHOLD " NAME$"EX1"NAME$"EX2"180 "DELETE";NAME$ "DELETEHOLD " "RUN STATPAC " 216DR1DR230$ ("OPEN DRIVES ": 2"WRITE DRIVES "B <DRX F"CLOSE DRIVES " P:"CHARLES MANN & ASSOCIATES":"STATISTICS PACKAGE":8 Z"WHICH PART OF THE SYSTEM":"WOULD YOU LIKE TO LOAD:"::5:"1. DATA BASE SYSTEM":5:"2. STATISTICS PX1XVARNUM5000)NL(1,X):SX0:S2X0J:"ENTER THE TEST MEAN";MU0~I1N:SXSXMTRIX(X,I):S2XS2XMTRIX(X,I)2:IMXSXN:SDX((S2XSXSXN)(N1))T(N)(MXMU0)SDX:DFN1|:"T TEST":6:"THE RESULTS ARE:":::"DEGREES OF FRE JcCNUMDEN,h:"C(";M;",";N;") = ";CPr:"HIT RETURN FOR MENU";A$:20:"3. FACTORIALS":5:"NOTE: N MAY BE IN THE RANGE (0-33)":::"ENTER THE NUMBER, N:";N:::N0N33400N0430"0! = 1":450NF1:I1N:NFNFI: IN THE SUBSET, N:";N$ ;MN320n =::"NOTE: M MUST BE GREATER THAN (OR EQUAL TO) N"::300| @N0330 EC1:360 JN1340 OCM:360 TNM350 YC1:360^C1:NUM1:DEN1:I0N1:NUMNUM(MI):I:J1N:DENDENJ:(REQUIRES A 'YES')?";A$::A$"YES"1000P<'NUMFILES0:OP$;"FILE CATALOG,L25"k<'WR$;"FILE CATALOG,R0"y<$'NUMFILES<.'CL$;"FILE CATALOG"<8'100000 N"9170<#A$"N"1000<#GNU$NAME$:NAME$HOLD$:9140=#GNU$NAME$:NAME$HOLD$:"RENAX(X,I)MTRIX(Y,I):SUDSUDD(I):S2DS2DD(I)D(I):IzDBARSUDN:SDBAR((S2DSUDSUDN)(N1))(N):TDBARSDBAR:DFN15500:"T-STATISTIC FOR TWO MEANS":5:"WHICH VARIABLE NUMBER IS THE":"X-VALUE (1-";VARNUM;")";:X:X1XVARNUM4500RE":"X-VALUE (1-";VARNUM;")";:X:X1XVARNUM4050:"WHICH VARIABLE NUMBER IS THE":"Y-VALUE (1-";VARNUM;")";:Y:Y1YVARNUM4060L(1,X)L(1,Y)4090::"THE ARRAY SIZES DO NOT AGREE"::10:40503NL(1,X):S2D0:SUD0:I1N:D(I)MTRIŭIBUTIONS ""$"RUN TEST STATS "PONS "C$"RUN TEST STATS "QP2)):ZPT((C0C1TC2TT)(1D1TD2TTD3T3)):OUTSIDE13920o/FYI(ZPSDX)MX:OUTSIDE1:QPQ2:3900/PYO(ZPSDX)MX/Z:"FOR THE NORMAL DISTRIBUTION,":"N(";MX;",";SDX;")"::"GIVEN A PROBABILITY, Q = ";QO0d:"IN A SYMMETRIC INTERVAL,""N(";MX;",";SDX;")"::"GIVEN A PROBABILITY, Q = ";Q::5:"ABOVE Y, Y= ";YA:5:"BELOW Y, Y= ";YB:3690.:"NOW ENTER THE PROBABILITY, Q:";Q:Q0Q13890.(:"THE PROBABILITY MUST BE BETWEEN 0 AND 1"::3870.2QP.5(Q2):OUTSIDE0E/<T((17 OP$"OPEN":CL$"CLOSE":RF$"READ":WR$"WRITE"RX(100),NP(100),F(100)gOP$;"HOLD ,L16"{(RF$;"HOLD ,R0"2NAME$<CL$;"HOLD "dOP$;"HOLDSTATSGRAPH "nRF$;"HOLDSTATSGRAPH "sXuL(1,X)MAXI1L(1,X) X  ' "HIT RETURN FOR CURVE FIT MENU";A$A "DELETE HOLDGRAPH "S "RUNCURVE ""RUNCURVE "DELETE HOLDGRAPH " "RUNCURVE "OROBABILITY MUST BE BETWEEN 0 AND 1"::3790K-QPQ:NEGFLAG0:QP.53840`-QP1Q:NEGFLAG1-T((1QP2)):ZPT((C0C1TC2TT)(1D1TD2TTD3T3)):ZZP:NEGFLAG1ZZP- YA(ZSDX)MX:YB(ZSDX)MXi.:"FOR THE NORMAL DISTRIBUTION,":R":8:"OUTSIDE A SYMMETRIC INTERVAL":8:"ABOUT THE MEAN"e,::"NUMBER (1-2)?";N::N1N23770,C02.515517:C1.802853:C2.010328:D11.432788:D2.189269:D3.001308,N23870,:"NOW ENTER THE PROBABILITY, Q:";Q:Q0Q13810+-:"THE P::"FOR X= ";XNT;" , Y= ";YNT:800QYNTAXNTB::"FOR X= ";XNT;" , Y= ";YNT :"ANOTHER INTERPOLATION(Y/N)?";A$:A$"Y"A$"N"800*A$"N"8504740R180:10:"WOULD YOU LIKE TO SEE THE RESULTS GRAPHED (Y/N)?";A$:A$"1:WR$;NAME$;",R";(((R1)101)6)(C1)8MTRIX$(R,C)UMTRIX$(R,C)"DONE"970_C101tC:R:CL$;NAME$100::14:"MASTER MENU":14:"-----------"::"1. CURVE FITTING":"2. PROBABILITY"3"3. GENERAL STATISTICS":"4. DISTRIBUTIONS":k;{kkk{+{k@I``2H2  h2 Ɉɘ  : qe3  5ɕ()ߝ ɍв L Re,f -f.f ) `1.10:"WHICH VARIABLE NUMBER IS THE":"Y-VALUE (1-";VARNUM;")";:Y:Y1YVARNUM4510N1L(1,X):N2L(1,Y):SX0:SY0:X2S0:Y2S0:"ENTER THE DIFFERENCE BETWEEN MEANS,D";DI1N1:SXSXMTRIX(X,I):X2SX2SMTRIX(X,I)2:II1N2:SYSYMTRIX(Y,;6n `6??$$$ %666#$$45&$$6=66 6? $d-6- ?76=6.r $?66-/v ?76=6.? -? 6&$$? $d-5-6$,'$[ M166>-'$$,?r- $$<8/->--$46 61=6$/=$/-&=$6=`5$.:7$>''5MM5? vv% ,8 d ( ,45>0 $6?--?62+-5 (?6.7- $+=$$$- ?.-%% ??- :' %66=6(?',-2?(? ,' 08?-%$?c6,$$ 8?6-%6m<%<%$8->?'6-$ 6/=6.? -6?6(6$,',/6>-@6>7&$$l6$<566>-6n$76. $?76.(? 8-?7&$$8-6.7$??$(=.76(=?-?'$4>-76A66?? $H $2$l 6 c8(?$M16?VL(NT1)X(I)XNTERVL(NT)NP(NT)NP(NT)F(I)h X(I)XNTERVL39X(I)XNTERVL40NP(39)NP(39)F(I) I:NP(NT)FMAXFMAXNP(NT) NT:YNTERVLFMAX39 NT139:NP(NT)0280 XPLTNT:YPLT(NP(NT)YNTERVL) (ODCH2)ODCH2260 2:(I) F(I) I/ CL$;"HOLDSTATSGRAPH "9 ::m XNTERVLMAX39::15:0,390:0,3939:FMAXF(1) 0:0,0:0,9:0,19:0,29:0,39 I120:(I1)2,39:I 22:11:"MAKING CALCULATIONS" NT139:NP(NT)0/ I1L(1,X):X(I)XNTER;{kk+ +:"THE INTERVAL IS:":"(";2MXYI;",";YI;")"::"OUTSIDE A SYMMETRIC INTERVAL,"0n"THE INTERVAL IS:":"(";2MXYO;",";YO;")":3690AAL IS:":"(";2MXYO;",";YO;")":3690AIN;"! = ";NFX:"ANOTHER FACTORIAL CALCULATION (Y/N)?";A$:A$"Y"A$"N"450gA$"N"20p400:"4. RANDOM NUMBER GENERATOR"4:"WHICH WOULD YOU PREFER,":"INTERVAL (I) OR TABLE (T)?";A$:A$"T"A$"I"500A$"T"1500Z8:"LOADING GRAPHING ROUTINE"5I1L(1,X):N(I)0VJ1L(1,X):X(I)X(J)1050iN(I)N(I)F(J)sJ:I.MINX(1):MAXX(1):FMAXN(1):I1L(1,X):N(I)FMAXFMAXN(I)8X(I)MAXMAXX(I)BX(I)(MIN)MINX(I)LIVOP$;"HOLDSTATSGSFORM" }"EN - END":"HE - HELP" "LI - LIST":"LO - LOAD":"NA - SET FILE NAMES":"PL - PLOT":"PR#- SET PRINTER":"RA - SET ACTIVE RANGE":"RE - REGRESSION":"SA - SAVE FILE" "SP - SET FILE SPECIFICATIONS":"ST - STATISTICS" 32,0:8 ASP70 \A2A31 ]C145A300 ^CW$C$:IW18 `70Y dCJCJ1:C$(CJ)CW$:IW0:A30j iSPCICI1r n70 x:32,3::" *** TINY TROLL V1.2 ***":"(C) 1979 MICRO FINANCE SYSTEMS"::"CA - DISK CATALOG":"DE - DATA EDIT":"DO - DO DATA TRANIK1CL:C$(IK)" ":IK .C1: 4CJ0:A30:IW0:L2$L1$" "l 6CI1(L2$):C$(L2$,CI,1):C1(C$):SPC132 7A2C164C191C147C158C146:A1A2C145 8IW90 :SP(A2A3)ī100 <CW$CW$C$ F PC$(CJ1)" ":C$(CJ2)" " R Z2D(I,K)Z::?????????????????????????????????????????????????????????????????????????????????????????????????????????(800)192500008271900EL1İ3120:170 120816:C$(C)" "ıP$(PR);760 ,`-`I):Y2SY2SMTRIX(Y,I)2:I4XBARSXN1:YBARSYN2T(XBARYBARD)((1N11N2)((X2SN1XBARXBARY2SN2YBARYBAR)(N1N22))):DFN1N225500:"ONE SAMPLE T-STATISTIC":5:"WHICH VARIABLE NUMBER IS THE":"X-VALUE (1-";VARNUM;")";:X:hl8,Š٠̬̲mhhߚHH`` 0`8`fpfG F=Mh ` h`2JJJ(PhHH0(H` PX X@`XHX !"#$%&'()*+,-./0123456789LLLL`ª`LQLY8H()?(                               ::"1. ONE BY ONE ON THE SCREEN":"2. IN A VERTICAL COLUMN ON THE SCREEN":"3. IN A VERTICAL COLUMN ON PAPER"::"NUMBER (1-3)?";A::A1A35400A31400:A21200D1000CH$"D"720RANGEMAXMIN1:NUM((RANGE(1))MIN):730:"ENTER THE INTERVAL:"::5:"ENTER MINIMUM VALUE";MIN:5:"ENTER MAXIMUM VALUE";MAX::"WOULD YOU LIKE INTEGERS OR DECIMAL NUMBERS (I/D)?";CH$:CH$"I"CH$"D"520n:"HOW WOULD YOU LIKE THE NUMBERS PRESENTED TO YOU:"%RANGEMAXMIM:NUMRANGE(1)MIN+I COUNTCOUNT1:COUNT15ı*"HIT ANY KEY TO CONTINUE DISPLAY":715:COUNT0::"1. ONE BY ONE DISPLAY"::"HOW MANY RANDOM NUMBERS WOULD YOU LIKE GENERATED";LI1L::700:11:NUM::15:J1101:MTRIX$(I,J)"":J:I8OP$;NAME$;",L16"MRF$;NAME$;",R0"Y VARNUMR1VARNUM:C1101:RF$;NAME$;",R";(((R1)101)6)(C1) MTRIX$(R,C)*MTRIX$(R,C)"DONE"8304L(1,R)C1:C101>C:R:CL$;NAME$RDR2870NCL$;"FILE CATALOG"$ FOUND1750O NAME$;" IS NOT AN EXISTING FILE NAME" "WOULD YOU CARE TO ENTER A DIFFERENT NAME(Y/N)?";A$:A$"Y"A$"N"720 A$"N"740 OP$;"HOLD ,D1" CL$;"HOLD " 490 "RUNPROGRAM ,D1""216,0:IOG" NUMFILES) &CL$;"FILE CATALOG"> 0NUMFILES0580f ::"THERE ARE NO FILES LISTED":700 DOP$;"FILE CATALOG,L25" NL1NUMFILES:RF$;"FILE CATALOG,R";L XCHECK$ bCHECK$NAME$640 lFOUND1:CL$;"FILE CATALOG" v700 L:PERATIONS ON?";NAME$:(NAME$)64(NAME$)91520 ::"ILLEGAL FILE NAME -- FILE NAME MUST BEGIN WITH AN ALPHABETIC CHARACTER"::505 FOUND0:NAME$"EX1"NAME$"EX2"525 FOUND1:700 OP$;"FILE CATALOG,L25,D";DR RF$;"FILE CATAL"N"400 A$"N"1000; NAME$"EX1"NAME$"EX2"490P "DELETE HOLD "f "DELETE ";NAME$| 100:8:DR2505 :"INSERT DATA DISKETTE":"HIT RETURN TO CONTINUE";A$:::1 "WHICH FILE WOULD YOU LIKE TO PERFORM O CL$;"DRIVES " ,360, 6OP$;"HOLD "= @RF$;"HOLD "H JNAME$Y TCL$;"HOLD "i ^216,0:400y h216,0:490 100:10 "THE DATA FILE CURRENTLY BEING USED IS: ";NAME$::"WOULD YOU LIKE TO CHANGE FILES (Y/N)?";A$:A$"Y"A$# "NOMONI,O,C" :/MTRIX$(5,101)s(OP$"OPEN":CL$"CLOSE":WR$"WRITE":RF$"READ":AP$"APPEND"|-2002NN11500:NN:d936:"CHARLES MANN & ASSOCIATES":"STATISTICS PACKAGE":OP$;"DRIVES "RF$;"DRIVES "DR     زOG,L25"">'WR$;"FILE CATALOG,R0"0>$'NUMFILESH>.'CL$;"FILE CATALOG"R>8'1000ME";NAME$;",";GNU$.=#OP$;"FILE CATALOG,L25"L=$WR$;"FILE CATALOG,R";PSNV=$GNU$n=$CL$;"FILE CATALOG"x="$1000='10::"INITIALIZE FILE CATALOG":='"ARE YOU SURE YOU WANT TO INITIALIZE?";A$::A$"YES"1000>'NUMFILES0:OP$;"FILE CATAL2. POISSON":"3. NORMAL":"4. CHI-SQUARE":"5. STUDENT T":"6. RETURN TO MASTER MENU" (::"NUMBER (1-6)?";CH::CH1CH620 2CH6120 <"RUN STATPAC " xCH33000 CH22000 CH11000 OP$;"CH " WR$;"CH " CH CL(7OP$"OPEN":WR$"WRITE":RF$"READ":CL$"CLOSE"lMTRIX$(5,101),MTRIX(5,101),X(100),F(100),P(256)v :::"CHARLES MANN & ASSOCIATES":"STATISTICS PACKAGE":"PROBABILITY DISTRIBUTIONS"::::11:"MENU":11:"----"U "1. BINOMIAL":"""""            q:"CHARLES MANN & ASSOCIATES":"STATISTICS PACKAGE":"PROBABILITY FUNCTIONS"::::11:"MENU":11:"----""1. PERMUTATIONS":"2. COMBINATIONS":"3. FACTORIALS":"4. RANDOM NUMBER GENERATOR":"5. RETURN TO MASTER MENU" (::"NUMBER (1-5)?";      "   Y VALUES(Y/N)?";A$:A$"Y"A$"N"22009A$"Y"2220XVARNUM0:OP$;NAME$;",L16"b2290X15:Y1101:MTRIX$(X,Y)"":Y:X:"ENTER THE NUMBER OF VARIABLES(MAXIMUM 5)";VARNUM:VARNUM1VARNUM52225I1VARNUM:J1:I12235IA42120GMI1A::"INPUT DESCRIPTION #";I:DES$:OP$;NAME$;",L16"_RWR$;NAME$;",R";I1i\DES$xaCL$;NAME$~fpI(A1)4uOP$;NAME$;",L16"zWR$;NAME$;",R";I1" NONE"CL$;NAME$(:"WOULD YOU LIKE TO ENTER AN"FILE CATALOG"c4:"WOULD YOU LIKE TO ENTER":"ANY DESCRIPTIONS (Y/N)?";A$:A$"Y"A$"N"2100t>A$"Y"2120?OP$;NAME$;",L16"@K14AWR$;NAME$;",R";K1C" NONE"E:CL$;NAME$F2200 H"NUMBER OF DESCRIPTIONS(1-4)?";A:A1PHABETIC CHARACTER"::20052100:FOUND02060A300:2005] OP$;"FILE CATALOG,L25"WR$;"FILE CATALOG,R";NUMFILES1NAME$RF$;"FILE CATALOG,R0" NUMFILES%NUMFILESNUMFILES1:WR$;"FILE CATALOG";",R0"*NUMFILES/CL$;M DISKETTE":"HIT RETURN TO CONTINUE";A$:G"RUN STATPAC ,D1"10:"THIS ELEMENT ENABLES YOU TO":"BUILD A NEW FILE":"ENTER FILE NAME";NAME$:(NAME$)64(NAME$)912010:"ILLEGAL FILE NAME -- FILE NAME MUST BEGIN WITH AN AL A FILE"k5:"8. RENAME A FILE":5:"9. INITIALIZE FILE CATALOG":4:"10. ENTER STATISTICS PACKAGE"::"NUMBER (1-10)?";A::A1A101000A2000,3000,4000,5000,6000,7000,8000,9000,10000,1500DR21510/:10::"INSERT PROGRA$(1,100) OP$;"DRIVES ". RF$;"DRIVES "6 DRI CL$;"DRIVES "d OP$;"EMPTY ,L25,D";DRv CL$;"EMPTY " "DELETE EMPTY " DR21000 :10::"INSERT DATA DISKETTE":"HIT RETURN TO CONTINUE";A$:U 10:"THE PROGRAM IX$(5,101),DS$(1,20),L(1,5)H OP$(10),CL$(10),WR$(10),RF$(10),AP$(10) OP$"OPEN":CL$"CLOSE":WR$"WRITE":RF$"READ":AP$"APPEND" 768,104:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96 FOUND$(1,100),NAMESFOUND0:CL$;"FILE CATALOG"! = OP$;"FILE CATALOG,L25"g L1NUMFILES:RF$;"FILE CATALOG,R";Ls CHECK$ CHECK$NAME$160 FOUND1:CL$;"FILE CATALOG" L:CL$;"FILE CATALOG"  ,:NAME$;" IS THE NAME OF AN EXISTING FILE4 940NN11500:NN:f :::"CHARLES MANN & ASSOCIATES":"DATA BASE MANAGEMENT PROGRAM"2:31::"NUMERIC":::dFOUND0:OP$;"FILE CATALOG,L25"nRF$;"FILE CATALOG"xNUMFILESzCL$;"FILE CATALOG"{NUMFILES0130 }E$;",R";(((R1)101)6)(C1). MTRIX$(R,C)L MTRIX$(R,C)"DONE"3490V C101` C:R VARNUMVARNUM1:WR$;NAME$;",R0" VARNUM CL$;NAME$ 3200 :"5. DELETE A VALUE FROM A VARIABLE":3900 ! :"WHICH VARIABLE (1-5)?";V:VES"::"HIT RETURN TO CONTINUE";A$:3200>p OP$;NAME$;",L16"kz RV(VARNUM1):C1101:VVARNUM3455| MTRIX$(R,C)"":3465 RF$;NAME$;",R";((R101)6)(C1) MTRIX$(R,C) MTRIX$(R,C)"DONE"3465 C101 C:C1101 WR$;NAM VARIABLE # ";K;" (Y/N)?":A$:A$"Y"A$"N"3370D4 A$"Y"3330Q> K:3200uH :"4. DELETE A VARIABLE":3900R :"WHICH VARIABLE WOULD YOU LIKE":"TO DELETE (1-5)?";V:V1V53410\ VVARNUM3440(f ::"THERE ARE ONLY ";VARNUM;" VARIABLL(1,K)3345u ::"THERE ARE ONLY ";L(1,K)1;" ELEMENTS":"IN VARIABLE # ";K::"HIT RETURN TO CONTINUE";A$:3310 OP$;NAME$;",L16" :"ENTER NEW VALUE";NU$:WR$;NAME$;",R"(((K1)101)6)(L1) NU$% CL$;NAME$3* :"ANOTHER CHANGE FOR00> :"3. CHANGE VALUES OF A VARIABLE":3900::K1VARNUM :"DO YOU HAVE A CHANGE FOR":"VARIABLE # ";K;" (Y/N)";:A$:A$"Y"A$"N"3310 A$"N"3390 :"ENTER THE ELEMENT NUMBER TO BE CHANGED (1-100)";L:L1L1003330  LVARNUMVARNUM1:3950:3200c :"2. ADD VALUES TO AN EXISTING VARIABLE":3900:EDIT2:K1VARNUM :"WOULD YOU LIKE TO ADD TO":"VARIABLE # ";K;" (Y/N)";:A$:A$"Y"A$"N"3260 A$"N"3290 IK:JL(1,K) :2230 K:EDIT0:3950:32 A53550 A43400* A333008 A23250[ :"1. ADD A VARIABLE"::3900n VARNUM53230 :"THE MAXIMUM NUMBER OF VARIABLES (5)":"ALREADY EXISTS"::"HIT RETURN TO CONTINUE";A$:3200 J1:IVARNUM1:EDIT1 :2230:EDIT0:. ADD A VARIABLE":"2. ADD VALUES TO AN EXISTING VARIABLE":"3. CHANGE VALUES OF AN EXISTING VARIABLE" 6:"4. DELETE A VARIABLE":"5. DELETE AN ELEMENT FROM A VARIABLE":"6. RETURN TO MENU" :"ENTER YOUR CHOICE(1-6)";A:A1A63210 A61000* "NOW ENTER THE NEW DESCRIPTION";DES$@ OP$;NAME$;",L16"X WR$;NAME$;",R";A1b& DES$q0 CL$;NAME$: :"WOULD YOU LIKE TO CHANGE ANOTHER DESCRIPTION(Y/N)?";A$:A$"Y"A$"N"3130D A$"Y"3070f :"WOULD YOU LIKE TO:"::"1ALPHABETIC CHARACTER"::30104 100:FOUND13050C 350:3010 :"WOULD YOU LIKE TO CHANGE ANY DESCRIPTIONS(Y/N)?";A$:A$"Y"A$"N"3050 A$"N"3200 :"WHICH DESCRIPTION WOULD YOU LIKE TO CHANGE (1-4)?";A:A1A43070VARNUM. CL$;NAME$8 1000 10:"THIS ELEMENT ALLOWS YOU TO EDIT DESCRIPTIONS AND VALUES OF EXISTING VARIABLES": "ENTER FILE NAME";NAME$:(NAME$)64(NAME$)913030 :"ILLEGAL FILE NAME -- FILE NAME MUST BEGIN WITH AN "YOU HAVE ENTERED THE MAXIMUM NUMBER OF ELEMENTS (100)"TEDIT1EDIT2ımI:OP$;NAME$;",L16"R1VARNUM:C1101:WR$;NAME$;",R";(((R1)101)6)(C1)MTRIX$(R,C)MTRIX$(R,C)"DONE"C101C:RWR$;NAME$;",R0""YOU WILL NOW ENTER THE VALUES":"TYPE 'DONE' IF YOU HAVE NO MORE VALUES"e10::"VARIABLE# ";I:"ENTER ELEMENT #";J:VLU$:VLU$"DONE"2250MTRIX$(I,J)"DONE":2260MTRIX$(I,J)VLU$:JJ1:J10022542240MTRIX$(I,101)"DONE"?FILES DEFINED":CL$;"FILE CATALOG"H-:"HIT RETURN FOR MENU";A$:1000r-I1NUMFILES:RF$;"FILE CATALOG,R";I-DS$(1,I)-:CL$;"FILE CATALOG"-:"THE FILE NAMES ARE:":-COUNT0:I1NUMFILES:370:DS$(1,I):,.:"WOULD YOU LIKE TO P00 ,4220",RF$;NAME$;",R";P.,PP1:,10:"THIS ELEMENT ENABLES YOU TO":"LIST THE NAMES OF THE VARIABLES":"IN THE FILE CATALOG":5,OP$;"FILE CATALOG,L25",RF$;"FILE CATALOG",NUMFILES,NUMFILES05070"-:"THERE ARE NO BLE # ";R:10:"------------"::C1101F+MTRIX$(R,C)"DONE"4250V+C101:4255}+"ELEMENT # ";C;": ";MTRIX$(R,C)+C:R+: PRINTER INTERFACE -- TURN OFF+:"WOULD YOU LIKE ANOTHER COPY(Y/N)?";A$:A$"Y"A$"N"4270,A$"N"10 ";NAME$::VARNUM;" VARIABLES EACH CONTAINING UP TO":ELEMNUM;" ELEMENTS":*"DESCRIPTION HEIRARCHY:":"1. ";D1S$:"2. ";D2S$:"3. ";D3S$:"4. ";D4S$::*VARNUM04240*::"THERE ARE NO VARIABLES DEFINED":4270(+R1VARNUM::10:"VARIA:C1101()OMTRIX$(R,C)"DONE"41808)QC101:4182d)T"ELEMENT # ";C;": ";MTRIX$(R,C):370n)VC:R)h::"WOULD YOU LIKE TO PRINT A COPY(Y/N)?";A$:A$"Y"A$"N"4200)rA$"N"1000)|: PRINTER INTERFACE -- TURN ONL*:"FILE NAME: ";D3S$:"4. ";D4S$::W(@"HIT RETURN TO DISPLAY":"THE VARIABLES AND ELEMENTS";A$:k(EVARNUM04170(G::"THERE ARE NO VARIABLES DEFINED":4200 )JR1VARNUM::"HIT RETURN TO CONTINUE";A$:COUNT0:::10:"VARIABLE # ";R:10:"------------":I)J1:J101',J:I%'.CL$;NAME$^'2ELEMNUM0:X1VARNUM:L(1,X)ELEMNUMELEMNUML(1,X)e'4X'6:"FILE NAME: ";NAME$::VARNUM;" VARIABLES EACH CONTAINING UP TO":ELEMNUM;" ELEMENTS":(;"DESCRIPTION HEIRARCHY:":"1. ";D1S$:"2. ";D2S$:"3.ARNUM&P2:4500:D1S$)&4500:D2S$9&4500:D3S$I&4500:D4S$\&VARNUM04142&I15:J1101:MTRIX$(I,J)"":J:I&"I1VARNUM:J1101&%RF$;NAME$;",R";(((I1)101)6)(J1)&)MTRIX$(I,J)&*MTRIX$(I,J)"DONE"4140 '+L(1, A FILE'S CONTENTS":R%"ENTER FILE NAME";NAME$:(NAME$)64(NAME$)914030%:"ILLEGAL FILE NAME -- FILE NAME MUST BEGIN WITH AN ALPHABETIC CHARACTER"::4010%100:FOUND14050%350:4010%OP$;NAME$;",L16"%RF$;NAME$&VR:CL$;NAME$$i($nOP$;NAME$;",L16"=$sWR$;NAME$;",R0"I$xVARNUM$R1VARNUM:C1101:WR$;NAME$;",R";(((R1)101)6)(C1)$MTRIX$(R,C)$MTRIX$(R,C)"DONE"C101$C:R:CL$;NAME$$%10:"THIS ELEMENT DISPLAYS AND/OR PRINTSC:CL$;NAME$#`3200?#<I15:J1101:MTRIX$(I,J)"":J:IU#AOP$;NAME$;",L16"j#FRF$;NAME$;",R0"v#KVARNUM#PR1VARNUM:C1101:RF$;NAME$;",R";(((R1)101)6)(C1)#UMTRIX$(R,C)#ZMTRIX$(R,C)"DONE"3940#_L(1,R)C:C101 $dC:NUE";A$:3200#"$OP$;NAME$;",L16"R".CL101:RF$;NAME$;",R";(((V1)101)6)Cc"8MTRIX$(V,C)"=MTRIX$(V,C)"DONE"3650"?C101"BC:CL101:WR$;NAME$;",R";(((V1)101)6)(C1)"LMTRIX$(V,C)"QMTRIX$(V,C)"DONE"3670"SC101 #V1V53560! VVARNUM3590r! ::"THERE ARE ONLY ";VARNUM;" VARIABLES"::"HIT RETURN TO CONTINUE";A$:3200!:"WHICH ELEMENT (1-100)?";L:L1L1003590!LL(1,V)3620 "::"THERE ARE ONLY ";L(1,V)1;" ELEMENTS"::"HIT RETURN TO CONTIUAME -- FILE NAME MUST BEGIN WITH AN ALPHABETIC CHARACTER"::9140s:#HOLD$NAME$:NAME$GNU$:100:FOUND09200:#NAME$;" IS AN EXISTING FILE NAME":"WOULD YOU CARE TO REENTER THE NEW NAME?";A$:A$"Y"A$"N"9170:#A$"N"1000;#GNU$NAME$:N9Z#OP$;"FILE CATALOG,L25"29d#RF$;"FILE CATALOG"@9n#NUMFILESj9x#J1NUMFILES:RF$;"FILE CATALOG,R";Jv9#CHECK$9#CHECK$NAME$PSNJ9#:CL$;"FILE CATALOG"9#:"NOW ENTER THE NEW NAME";GNU$:(GNU$)64(GNU$)919160E:#:"ILLEGAL FILE NLEMENT ALLOWS YOU TO CHANGE THE NAME OF AN EXISTING FILE":x82#"ENTER FILE NAME";NAME$:(NAME$)64(NAME$)9190308<#::"ILLEGAL FILE NAME -- FILE NAME MUST BEGIN WITH AN ALPHABETIC CHARACTER":::90108F#100:FOUND190508P#350:9010E CATALOG,R";K17SHFT$77WR$;"FILE CATALOG,R";KB7SHFT$I7Kx7NUMFILESNUMFILES1:WR$;"FILE CATALOG,R0"7NUMFILES7CL$;"FILE CATALOG"7"DELETE";NAME$710007 WR$;"FILE CATALOG,R";PSN7 ""7 8150=8(#10::"THIS E":NAME$;" (REQUIRES A 'YES')";:A$::A$"YES"1000Q6wOP$;"FILE CATALOG,L25"i6|RF$;"FILE CATALOG"w6NUMFILES6J1NUMFILES:RF$;"FILE CATALOG,R";J6CHECK$6CHECK$NAME$PSNJ6:PSNNUMFILES82007KPSN(NUMFILES1):RF$;"FILEFROM THE FILE CATALOG":T5J"ENTER FILE NAME";NAME$:(NAME$)64(NAME$)9180305T:"ILLEGAL FILE NAME -- FILE NAME MUST BEGIN WITH AN ALPHABETIC CHARACTER"::80105^100:FOUND180505h350:801056r::"ARE YOU SURE YOU WANT TO DELETECOUNT0:K1NUMFILES:FOUND$(1,K)""7340A4FOUND$(1,K):370H4Km4: PRINTER INTERFACE -- TURN OFF4::"WOULD YOU LIKE ANOTHER COPY(Y/N)?";A$:A$"Y"A$"N"73604A$"Y"7300410005@10:"THIS ELEMENT ALLOWS YOU TO DELETE A FILNUMFILES!3HFOUND$(1,K)""727073RFOUND$(1,K):370>3fK3p::"WOULD YOU LIKE TO PRINT A COPY(Y/N)?";A$:A$"Y"A$"N"72803zA$"N"10003: PRINTER INTERFACE -- TURN ON3"THE FILES HAVING THE DESCRIPTION":"'";SEARCH$;"' ARE:":+4FILE CATALOG"72J1NUMFILES:OP$;NAMES$(1,J);",L16"^2 J214:RF$;NAMES$(1,J);",R";J21|2DES$:DES$SEARCH$72102 FOUND$(1,J)NAMES$(1,J)2*J2:CL$;NAMES$(1,J)24J3>:"THE FILES HAVING THE DESCRIPTION":"'";SEARCH$;"' ARE:"::K1MENT SEARCHES FOR ALL VARIABLES WITH A GIVEN DESCRIPTION":Y1]J1100:FOUND$(1,J)"":1b"ENTER DESCRIPTION";SEARCH$:OP$;"FILE CATALOG,L25"1lRF$;"FILE CATALOG"1vNUMFILES1J1NUMFILES:RF$;"FILE CATALOG,R";J1NAMES$(1,J) 2:CL$;"0:FOUND160500350:601040OP$;NAME$;",L16"S0I14:RF$;NAME$;",R";I1a0DS$(1,I)r0:CL$;NAME$0:"VARIABLE: ";NAME$::"DESCRIPTION HEIRARCHY:":0I14:I;". ";DS$(1,I)::::"HIT RETURN FOR MENU";A$:1000;1X10:"THIS ELE:"HIT RETURN FOR MENU";A$:1000a/p10:"THIS ELEMENT DISPLAYS A":"VARIABLE'S DESCRIPTIONS":/z"ENTER FILE NAME";NAME$:(NAME$)64(NAME$)916030/:"ILLEGAL FILE NAME -- FILE NAME MUST BEGIN WITH AN ALPHABETIC CHARACTER"::6010010RINT A COPY (Y/N)?";A$:A$"Y"A$"N"5100=.A$"N"5200a.: PRINTER INTERFACE -- TURN ON.I1NUMFILES:DS$(1,I):I.: PRINTER INTERFACE -- TURN OFF. :"WOULD YOU LIKE ANOTHER COPY (Y/N)?";A$:A$"Y"A$"N"5130.A$"Y"5120!/P"::"NUMBER (1-4)?";A::A1A410905 GA41500q L:"NOW ENTER THE NUMBER OF SUCCESSES, Y:";Y:YN1120 V::"Y MUST BE LESS THAN":"OR EQUAL TO N = ";N::1100 `A11200 jA21300 tA31400 Y01225(C1:NUM1:DEN1:I0:10:"NUMBER OF SUCCESSES"h .5:"(2). THE PROBABILITY OF A GIVEN":10:"NUMBER OF SUCCESSES OR LESS" 35:"(3). THE PROBABILITY OF A GIVEN":10:"NUMBER OF SUCCESSES OR MORE" 85:"(4). THE PROBABILITY OF A GIVEN":10:"INTERVAL OF SUCCESSES"' BTY OF SUCCESS OF ANY ONE TRIAL, Q:";Q? Q0Q11040l ::"Q MUST BE BETWEEN 0 AND 1"::1010z N01060 ::"N MUST BE A POSITIVE NUMBER"::1000 $:"WHAT WOULD YOU LIKE TO CALCULATE:"::::5:"(1). THE PROBABILITY OF A GIVEN"$;"CH " "RUN DIST CONT "z :"CHARLES MANN & ASSOCIATES":"STATISTICS PACKAGE":"PROBABILITY DISTRIBUTIONS"::: 200:"BINOMIAL DISTRIBUTION":::"ENTER THE NUMBER OF INDEPENDENT TRIALS, N:";N, :"ENTER THE PROBABILI"HIT RETURN TO CONTINUE";A$:IH:10::"HIT RETURN FOR MENU";A$:20:"2. VERTICAL COLUMN ON THE SCREEN"::"HOW MANY RANDOM NUMBERS WOULD YOU LIKE GENERATED";LI1L:700:NUM:800:I:"HIT RETURN FOR MENU";A$:2020d#:::12:14:"LOADING DATA" MTRIX$(5,101),MTRIX(5,100),F(100),X(100),Y(100),XCOPY(100),XPRIME(100),FCOPY(100),FPRIME(100),N(100),CHMO(2,100),MO(100)OP$"OPEN":CL$"CLOSE":RF$"READ":WR$"WRITE"OP$;"HOLD " RF$;"HOLD " "N50)C:XPLT(XNTXST) 520/ CH1430D YNTAXNTB:480S CH2450k YNTA(BXNT):480z CH3470 YNTAB(XNT):480 YNTA(XNTB) YPLT(YNTYST):C1487 0,159:490 XPLT,(159YPLT) CC1:C50402 "           AME$HOLD$:9140E;#GNU$NAME$:NAME$HOLD$:"RENAME";NAME$;",";GNU$a;#OP$;"FILE CATALOG,L25";$WR$;"FILE CATALOG,R";PSN;$GNU$;$CL$;"FILE CATALOG";"$1000;'10::"INITIALIZE FILE CATALOG":)<'"ARE YOU SURE YOU WANT TO":"INITIALIZE