L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 Ccˆʎõĵ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 iõ`  \ 濭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- ( t Ϡ@跻~!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䵍䵐`"L ŵ8ŵH ~(` d ֠z# u` (UCTV100)100+ :"PER CENT OF"U "ALL LETTERS ";(ACTL100)100;" ";p (ECTL100)100;" "; (ICTL100)100;" "; (OCTL100)100;" "; (UCTL100)100;" " : "PRESS ANY KEY TO CONTINUE." A$ 920  ISTICS"V :7` "VOWEL A E I O U":oj "FREQUENCY = ";AC;" ";EC;" ";IC;" ";OC;" ";UCt :"PERCENT OF"~ "ALL VOWELS ";(ACTV100)100;" "; (ECTV100)100;" "; (ICTV100)100;" "; (OCTV100)100;" ";,30X(30C(A)),30X1"A*128A2GL2DX2A3^H1C(A)(C(A)2)1r(30C(A)),30X(30C(A)),30X1A (24) A1GL3 2A4);A;$ A. 20808 VOWEL STATISTICSB :(4)L 13);"VOWEL STAT34);A;A0 :"FREQUENCY OF WORD LENGTH"8*A$F4H02120a>A112:C(A)C(A)2:AlH:920R GRAPH FOR MORE THAN 12 CATEGORIES\X3392f29,31XpXz8A1GL2X2A3H1C(A)(C(A)2)1(30C(A)))2)1v(30C(A)),30X0(30C(A)),30X1F(30C(A)),30X2MAU13cA2122oX3A3H1C(A)(C(A)2)1(30C(A)),30XA122030(30C(A)),30X1(30C(A)),30X2A(24)A1GL3 AENU" A$920" GRAPHS(2:15>0,303LX0282W2,4X^Xk3,3930}GL12ī1840X3GL229,31XX&21300X3393:29,31XDXN6XA1112bX3A3lH1C(A)(C(AANOTHER WORD LIST?""A$2,(A$,1)"Y"ī1470;6920X@ FREQUENCY DISTRIBUTIONJ(4)::"SIMPLE FREQUENCY DISTRIBUTION"T:^"LENGTH OF WORD","FREQUENCY":hCL1GLrCL,C(CL)|CL::"PRESS ANY KEY TO RETURN TO M BACK TO MENU"A$:9209 LISTING WORDS BY LENGTHn:(4):"WOULD YOU LIKE TO LIST WORDS OF LENGTH"{CL1GL10);CL:CLCL::"WORDS WITH ";CL;" LETTERS:"X1NWL(X)CLĺW$(X)X:"WOULD YOU LIKE TO SEE 1000*d::"MEANS THAT APPROXIMATELY "Xn"TWO-THIRDS OF THE WORDS IN THE PASSAGE"kx"ARE BETWEEN"S((MSD)1000)10006);" ";::S;::" AND ";:S((MSD)1000)1000:S::10);"LETTERS LONG."::"PRESS ANY KEY TO GO01à .38,.9,.38,2.87,1.32,.93,1.23,.1,27.8,.16Xà 238,211,159,125,95,66,36,8,0,1933TURN,URANUS,NEPTUNE,PLUTO,THE SUN,THE MOONdà 56673000,25721000,48680000,390760000,797600000,1684000000,2706400000,3561400000,93000000,250000nà WALK,TRICYCLE,BICYCLE,MOTORCYCLE,CAR,TRAIN,PLANE,JET,SPEED OF LIGHTxà 2.5,3,9,50,60,90,420,990,18600X@CH(36):CV(37)CA"? ";ZN$:(ZN$)(((ZN$)))40003`B(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001FZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868:*Zà MERCURY,VENUS,MARS,JUPITER,SA1A:P2$::A(A)A(A)10:31110Nry:"YOU ALLREADY USED THAT!":20500:P2$""Tyd}DW332050} }4X,150:DW3:320602}3X,150:DW4<}34,20::2:"YEARS";:10:"DAYS";:18:"HOURS";:26:"MIN.";:32:"SECONDS"X2348:X:0;:SPACE BAR";::" TO CONTINUE";:(P(16384)1283220530E)P20520M2P:S0uouA(A)10A(A)030200uuuX1A:P1$::A(A)A(A)1:30210uP1$""::"YOU ALREADY WENT THERE!":20500vy"yA(A)1031090,y:X120:P$::X1$(:"METHOD";:25:"TRIP TIME":T:X120:P$::X19:P$:T(X)05635P$;:29((T(X))):T(X);:33:T$(V(X)):20500''::$'22016*(1023)123ė::D$;"RUN HELLO"*PP24:10:16368,0:"PRESS ";::"V:X19:A(X)10DW1*:DW15601`:10:868:"DO YOU WANT TO TRY A DIFFERENT TYPE"868:"OF TRANSPORTATION";A$:(A$,1,1)"Y"(A$,1,1)"N"5550T(W6)T:V(W6)V(A$,1,1)"Y"1340:3:15((P1$)2):"EARTH TO ";P AGAIN ? ENTER 'A' IF YOU WANT TO USE IT AGAIN. "9vA$J{A$"A"ī245PW6k"GOOD - BYE !"q2OF THE CORRELATION COEFFICIENT IS :"6Z8);TD>]:KbTTTNTDg"THE RELATIONSHIP BETWEEN VARIABLES X AND Y AFTER VARIABLE Z HAS BEEN CONTROLLED IS :"j8);(TT1000)1000l:1q"WOULD YOU LIKE TO CONCLUDE THIS PROGRAM OR USE ITION BETWEEN VARIABLE Y AND CONTROLLED"?1"VARIABLE Z."G5T3R8:(6)f:TNT1(T2)(T3)?"THE NUMERATOR OF THIS CORRELATION IS :"B8);TND:IT4T2T2:T5T3T3NTD1(1T4):TD2(1T5)STDTD1TD2*X"THE DENOMINATOR :(6)Y!"ENTER THE VALUE OF THE CORRELATION BETWEEN VARIABLE X AND VARIABLE Y."a&T1g()"ENTER THE VALUE OF THE CORRELATION BETWEEN VARIABLE X AND CONTROLLED"*"VARIABLE Z."+T2-,0"ENTER THE VALUE OF THE CORRELATS BETWEEN EACH PAIR OF THESE VARIABLES."P"ENTER '1' IF YOU WISH TO COMPUTE"| "CORRELATIONS OR '2' IF YOU ARE READY" "TO COMPUTE THE PARTIAL CORRELATION." TT1ī10:T10:T20:T30:T40:T50:TN0:TD10:TD20:TD0:TT0WISH TO FIND THE AMOUNT OF RELATIONSHIP BETWEEN"["VARIABLE X AND VARIABLE Y AFTER THE""INFLUENCE OF VARIABLE Z HAS BEEN""CONTROLLED.""YOU WILL NEED TO USE THE CORRELATION""PROGRAM TO FIND THE INDIVIDUAL"("CORRELATIONN OF X1 AND X2 IS"+8);(RT1000)10003:v"DO YOU WISH TO CONCLUDE THIS PROGRAM OR USE ANOTHER OPTION?""ENTER 'C' FOR CONCLUDE AND 'A' FOR ANOTHER OPTION.";R$R$"C"ī640245:(6)0"IN PARTIAL CORRELATION YOU E,OBSERVERS,THAT,ULTIMATELY,MANKIND,HAS,NOWHERE,ELSE,AS,A,DESTINATION,.,#O( N,AND,WOMEN,PARTLY,FOR,BIOLOGICAL,REASONS,AND,PARTLY,BECAUSE,OF,CULTURAL,CONDITIONING,BASED,ON,HISTORICAL,MALE,DOMINANCE,.I( MANKIND,HAS,CONSIDERABLE,DISTANCES,TO,TRAVEL,BEFORE,THE,SEXES,REACH,A,COMFORTABLE,EQUILIBRIUM,BUT,IT,SEEMS,APPARENT,TO,PERCEPTIVH,THE,AMOUROUS,CLINCH,WHICH,IS,JUST,WHERE,REAL,LIFE,BEGINS,IN,EARNEST,.& EUROPEANS,ON,THE,WHOLE,TAKE,A,MORE,SOBER,AND,ACCEPTING,VIEW,OF,THE,MARRIAGE,BOND,AND,EXPECTING,LESS,THEY,OFTEN,RECEIVE,MORE,.y' NO,INTEGRATION,IS,HARDER,THAN,THAT,BETWEEN,MENS,IT,SO,PLEASE,WRITE,A,FEW,LINES,ADDRESSING,THIS,PROBLEM,.,THANK,YOU,.,#%x THE,WHOLE,ROMANTIC,TRADITION,ESPECIALLY,IN,NORTH,AMERICAN,SOCIETY,HAS,ENCOURAGED,US,TO,SET,OUR,EXPECTATIONS,TOO,UNREALISTICALLY,HIGH,.G& OUR,FILMS,AND,POPULAR,NOVELS,END,WIT,FROM,HIM,.$d OF,COURSE,WE,WORRY,.,WE,DONT,EXPECT,A,LITERARY,MASTERPIECE,.,A,FEW,SENTENCES,TO,LET,US,KNOW,THAT,HE,IS,WELL,IS,ALL,WE,WANT,.H%n ABBY,WE,KNOW,THAT,YOUR,COLUMN,APPEARS,IN,THE,STARS,AND,STRIPES,AND,JUST,ABOUT,EVERYBODY,IN,THE,SERVICE,READM,NOT,GOING,TO,DATE,THEIR,DAUGHTER,JUST,TO,PLEASE,THEM,.e#P HOW,SHOULD,I,HANDLE,THIS,SITUATION,.,# $Z WHAT,CAN,PARENTS,DO,OR,SAY,TO,GET,MAIL,FROM,THEIR,SON,OR,DAUGHTER,IN,THE,MILITARY,SERVICE,.,WE,LOVE,OUR,SON,AND,WRITE,TO,HIM,OFTEN,BUT,WE,NEVER,HEAR,WOULD,LIKE,TO,GO,OUT,WITH,ME,BUT,IVE,PRETENDED,NOT,TO,NOTICE,."< THEN,HER,PARENTS,STARTED,TO,PUT,SOME,PRESSURE,ON,ME,TO,TAKE,HER,OUT,.,I,DID,NOTHING,ABOUT,IT,SO,NOW,THEY,ARE,VERY,UNFRIENDLY,TO,ME,.8#F I,DO,NOT,WANT,TO,LOOSE,THEIR,FRIENDSHIP,BUT,I,AEVER,MET,A,WOMAN,I,WANTED,TO,SPEND,THE,REST,OF,MY,LIFE,WITH,.!( I,AM,NOT,BAD,LOOKING,AND,DONT,LOOK,MY,AGE,.,THE,PROBLEM,IS,WITH,A,YOUNG,WOMAN,IN,HER,EARLY,TWENTIES,WHO,LIVES,NEAR,ME,IN,THIS,SMALL,TOWN,.?"2 SHE,HAS,INDICATED,TO,ME,MANY,TIMES,THAT,SHE DATA VALUESB  SEPARATE EACH WORD OF YOUR PASSAGE BY A COMMA.  SEPARATE PERIODS AT ENDS OF SENTENCES FROM PRECEDING WORDS BY COMMAS.  DO NOT INCLUDE ANY OTHER PUNCTUATION.=! I,AM,A,SIXTY,YEAR,OLD,SINGLE,MALE,.,I,NEVER,MARRIED,BECAUSE,I,N we will delete that"6 "program from our library."> :g "WILLAMETTE APPLE CONNECTION, INC."{ "P.O. Box 7252 "SALEM, OREGON 97303-0053 ::- ::::"These programs are distributed by the"f"WILLAMETTE APPLE CONNECTION, Inc. as""Public Domain. If any person has valid""evidence that a program is, in fact, ""not in the Public Domain, please " "contact us and gW'  `^ :F Y %^LǏLZ^[_\Z][`1''I8Mt_=gH?J QVQT_ɕ%[^ZZ\[]^Z_[ 0W Г J1  @)ȹ@)ȹ@) q P^ɠ 0   qL MW'WП < XX QLiLLs4      ŠŠz#?Xñ    Ӡ ĠԠӠ" " ҮʰԠ ĠԠ ӠԠŽɭӠҠҠӠΠȠϠϠ͠ ɠŠŠƠԠԠ "AL WIDROWICZ"  (4);"CATALOG" 1:::25522000/d(4);"CATALOG" ,THE":X40(Z$)6:XX2:Y20:A(K):20000`:uZ$"END":X40(Z$)6:XX2:Y27:20000:K:M::2:X40(Z$)6:XX2:Y(K1)64:0:200000$'KE:A$:A$""15000K:Z NI1(Z$)*NL(((Z$,I,1)))1000,1010,1020,1030,1040,1050,1060,1070,1080,1090,1100,1110,1120,1130,1140,1150+NXX6:I:/uK047:0:0,39K:K:M110)0uK17:Z$"2,Y4X4:X,X4Y3:GY25:X0:X,X1Y1:Y,Y4X1:X,X2Y4: Y32:X0:X,X2Y:X,X2Y2:X,X2Y4:X2,Y1:X,Y3:X0:Y39:X,X2Y:X1,X2Y2:X,X2Y4:Y,Y4X2:(#'K17:A(K):I16:0,39(K1)6I2:I)'Z$A$(K)Y,Y4X:Y,Y4X4:X1,Y1:X2,Y2:X3,Y35Q_VX,X3Y:X,X3Y2:X3,Y1:Y,Y4Xe[`Y,Y4X:Y,Y4X4:X,X4Y2ajX,X4Y:Y,Y4X2ktX,X4Y:X,X4Y4:Y,Y4X2u~X2,Y:X1,Y1:X3,Y1:Y2,Y4X:Y1040:X,X4Y:Y,Y4X4%X$Y,Y4X:Y,Y4X4:X1,Y3:X2,Y2:X3,Y3^).X,X3Y:X,X3Y2:X,X3Y4:Y,Y4X:X4,Y1:X4,Y338Y,Y3X:Y,Y3X4:X1,X3Y4=B1040:X,X4Y:X3,X4Y2:X4,Y3G/LY,Y4X:Y,Y2X4:X,X4Y:X,X4Y2<X3,Y3:X4,Y4BnX,X4Y:X,X2Y2:X,X4Y4:Y,Y4XtX,X3Y:Y1,Y3X4:X,X3Y4:Y,Y4XY2,Y4X2:X,Y:X1,Y1:X3,Y1:X4,Y Y,Y4X:X,X4Y4):I&+V((1)100):V2(V2)8156,V(1)0:820D/V(1)C(W)4I15:J14:V(J):LJ514I:K39L:K,LK:K,LL:K,LL:K,LK:J,I5M>T0900RCNUMBER899SW(CHOICE)W(NUMBER)NUMBERNUMBER1:NUMBER029999759&0:T1200:T:K 0. K047:0,39K:K7 150Q 0:K047:0,39K:K^ T1759 Z$C$(W):X40(Z$)6:XX2:Y43:C(W):20000:810 V(1)C(W):V(2)0:V(3)C(W):V(4)0 !10:K110:(7);:K:255:780*M110:I311:V(I1)V(I5:Y187A:20000 AW800; I1200:Q(16336):IE TT1R T2600 0:K1147:0,39K:K:C(W):K147:0,39K:K K15 Z$C$(W) X40(Z$)6:XX2:Y20:0:20000 T1500 T X40(Z$)6:XX2:Y20:C(W):2000):300; C$(1)A$(X):C(1)A(X):C$(2)A$(Y):C(2)A(Y):300E ,A(C)] 6K1525:1,10K:Kh K13p 15 K2000,3000,4000 T0 X5:Y187K:Z$C$(K):20000 K XA$:A$""600 bA(A$) lC(A):A2000,3000,4000 vZ$C$(A):XCHOICE((1)NUMBER)1:CW(CHOICE)5 W((1)3)1O C$(W)A$(C):C(W)A(C)j X((1)7)1:XC190 Y((1)7)1:YCYX191 W193,194,195 C$(2)A$(X):C(2)A(X):C$(3)A$(Y):C(3)A(Y):300 C$(1)A$(X):C(1)A(X):C$(3)A$(Y):C(3)A(Y,W,B,U,G,N,P,H,T,I,A) K19:W(K)K:KF ::K147:0:0,39K:KT 16302,0a NUMBER7r ((1)15)1 dK17:A$(K):K n RED,ORANGE,YELLOW,GREEN,BLUE,PURPLE,WHITE xK17:A(K):K 1,9 ,13,12,6,3,15 10000 759# a A PROGRAM NAME: COLORS AUTHOR: CURT JOHNSON _ ORTONVILLE HIGH SCHOOL  THIS PROGRAM WAS WRITTEN FOR USE IN THE FIRST GRADE TO START THE QUIZ PRESS ANY KEYL(100)K116:A$:L((A$))K:K R,E,D,Y,L,O       2L??7????????'?'????'''OIImIIIIII%%---------7?>??>??????,,<,%$%,--$$>>7>??????????>7>?',,46$,=$<<'/%=/%-'$$$4666&$$$$>->7->7-76.56>&-/.---------,%-%-------%$$<<7?7>?'?<'????????>77?>?7'%-,--%---,-$-,%-$---567?>?>???/$-,%%-,-------.5-.5---%%,$%-556666>>7?>??>?>????7>?>?/--57>7/--%,%-%$?<'?'''?>>.5[II??/--66>6---,---55>>????????/----->55-5--,-,,$<<7.5-%-,----------%-,-.5>7?'?$-,-.5--%<$??<'',,--?'5?--.6/,-,,--?<>77..--?>,-,$//.-.--,--$$,%-%%%$''?'??>?>>6...-.%$?-%???/------=???/$$%%?=$-,%%-5>>??---->>>...>&-$=$--,-&.-N--.-..6>>>?>?'?'''$%%-m6666$$6&$---??????,-----=??/-?'$<;?>?65>>?''$<$,$-,%555&<<'<<'?'=/77-.$-%-%%%$''?'??>?>>6...-.%$<,$%,%>76..-,-%-.?.--=?7>..5>7.6??.---$$>???'--%<<$%%-,567?.66$$,,6-.-.>>%$.%'?<$'6%$'%,,557.,$<<''?7?,7>>7'<<6..-5$,$-<$=?=<,$?,--=5?'<-5>/-5557?>-$--,-,,$$''?'??>?>>6655-5--MIII)%-,<<'?>775-%$??''<,,%-?/,$'?<<7---$.-56?>???5666&$$.--=??????---%$$$6%'--------5??????7------5?????7-----5????7-----7?????7-----5?6.$$$$,$$$$,$$$$$$$$$4667$$$$?77&?77>>?=,,-6>??.->?7--->??756..%$$$$$$,--%??/%-------%$$$<>&-/<7?6--&$$6>=???,,%-5?>>??%>6'%7><>>>>>>.-??'-%$'$$-.6666$$$$-,$'666666/$$$$$$$<>>6675.66556.555555---..$$$$$$$$$$$$$$$$$$$$66>??7--5%>???7---5?????,56??'------>?????7------5???????.------5???????.------5????????7--------5?????????7---------5>????????/,--------6>'/-???????7-------5????????.-------5???????.------5?????????--->??/&-I%6,MIIIIIIII)4&mIIIIII)-----???,,.??65%5lIIIIIII ,,,-..677?==<&?--.6.6.65.6-65555-.5-.-.-< "T$(5):T$(1          ??$!) $;?2'0)- ') ??? !$$<::2--50)- $;?$--?)- ?7&$ -?$ ??7)- ?& -6-- $$;?2-"6.)=$$$=?. 6) $$,?<$$$6 6--#$$$>$$$ 666%$$$.2111$$$> $$)-266??$$$--2>?. $$)-266?%0116$$$--2?56-- ?$)-- $$$?--- $$ 666;?5 $#$ 66% $$$6667$!!!!61111$ $$## 635 ??$!!!!??' $$)-266? !!?)=$$$>- %---.='???>?$'$%$dI5'MI=.$?'?'?<7?>>77??????/-???7?77?77?77?<<<<<7555555-.-.---5------<<<<''/..,--&,47???.555-.-%%-,,,%-,-$/.-%%$ۛIII<$$46666???%$$ 66$??$$$$--26;?$,-.I ?$$ -!$$$--266;?-$$$--;7--$$$--;76d)5?$$ -l$$$6.-%$667>7?<<'<',$%$'$$6666657?>>>?>????65-5-.%%%?=====<>>>777?7?7???$->$56-....6--..55-...-.56-..55555.5-6.666.--%4?$,----.-5--5--.--.-5--.-5--.-.%$,$,$%%$,,,,%-,676?/7?&-,--.-.-.%,,$,%-65>>67.5.5565?>'?<'$''$6.66.6'67777?>??77---.--,,<<<>>????7?''''<--5-.5-.-$'$/$%$%$4?>7??=7?>7?<'?>.6-.555555-6&$?<<|III5'6>>.-577--->>.-577--6>67>><<4766><<455=<<<>66'6?>7-,%-,%,%,%,%,,$%$<$<<$''''''',,...55-*~IIIII!''?<'????>?-$,,,-%--..>>3.65>67.-%-,,$<<<>67?>.655556LIII16-6>76-MII --%$--6.--$,--6&$6.--$d LI-5?-7-*uI!L L1.M)e Lq1-uI L1&d1m &->>>77.%-,-,--%-------.5---%<$,-55-..5%$<$/$%$%,4?7?>???>>>??>???>>>655-.-.&'?'?<<$MI 5/$>6?6?>?>...-%-,%%%%%----%---55----$',66>>>%-5.&'$-,,,,,-6$$<,$$$<$<77>777>.-67?7/,%--?77?>??7>77?>>-6..-%=6-.-55-..5-55--,,%%-,,?>??7$'-----,------%--,,%%%%?>>>?'??>?-MQ-??6--LII 66.--<<<<'.--$-----.----.--------%-,%-,-567>67>6>>>,%,%%,,%-%-%-,%-,%-46?>67777>77>7?>>>7-..-.5-,-,6-..-...??????????>>6>6...%-,,%<$$%%,,$$%%%-,<<$%-,--..555-%-,-5.5..&??<6?7555='??>7.55-&?<6??66..655%-$%46666-.$%%,4666.55??'??>?>?'''-----?????'<<<[)mIII $,$$,$46766>6$6?<'''$,,,,-,$dI>?>?>?>?'?6?7??>>/?-.->67--%-,%%??>?-%--%-,,='''<$LI"%%,$$<$'ܛ=.L!''''<$?7?>7>67>665.6&<77?>7?,$%$,$=$'<$'''-.5-.5mIIII'??6765..%/%546.5-.->67--%-,%%??>?-%--%-,,='''<$LI"%%,$$<$'ܛ=.L!''''<$?7?>7>67>665.6&<77?>7?,$%$,$=$--,-,-5>6----,%-----.---%-%-%-%????<<55----%%%%<,''=>67?>>7??'??>7?66>6$%$$<$?<'?'?,,%,%4??/7??>7>7---=????>>777>676.65.%-,$%=>67?6555=<<<<,5,,$%M1...-,$%<$'?>>7&,,#7%-.5???????????????????$,.?7/-->??????????'??766%$$$=????,$%-%--,-%%-,,-%-----655....5---%--,5>=>66.6.????????????''''$ m+$..666>6>,6.-5-----------------------------------------------------------------------------------------------------------------------------:???????????,$-,$%,,66766.$-??'''?<''<$IIII????????????????????????????????'%,,$% 5-6..6$4766666%$$$$$<666666'$$$$,---4.6%4.&46%,=66%$,&,,,,,,,,,,,,,,,,56-....6--..55-...-.56-..55.55.-.56666--I#$$$?????????????????????<>7?>??<<<$$--5.%-,%--..555=766?/---=???'?/---??????????-%<<<$$,$$$$,-$$ -?',Q#4=676666666v----------$-@bd]dJ n O F t   # , 9 G T _ o } #0>HWb'$$---666(W$(N),X,1)"U"UCUC1:VC(N)VC(N)1HX RT890SLSL1* FIND LENGTH OF WORD=WL(N)(W$(N))X TALLY LENGTH OF WORDpC(WL(N))C(WL(N))1C(WL(N))30H1 UPDATE TOTAL LETTER TALLYTLTLWL(N) UPDATE LONGEST WORD MARKERWL(N)GLGLWL(N) UPDATE VOWEL"PRESS '#'."!&::T11500:TD0"PRESS ANY KEY TO BEGIN.":A$L:N1cD READ IN ONE WORDvNK$"K"ĄW$(N)XK$"S"ćW$(N)bK$"S"ĺW$(N);" ";l END OF SENTENCEvW$(N)"."ī660SCSC1:SW(SC)SL:SL0580W$(N)"#""150 WORDS. ENTER A WORD AND PRESS"L"'RETURN'. REPEAT THIS FOR EACH"w"WORD. DO NOT ENTER ANY PUNCTUATION""EXCEPT FOR PERIODS AT THE ENDS OF""SENTENCES. ENTER THESE PERIODS AS""SEPARATE 'WORDS'. WHEN YOU ARE FINISHED" O ENTER DATA BY THE KEYBOARD, PRESS 'K'"N "TO USE STORED DATA, PRESS 'S'."{ "(THERE ARE THREE SETS OF STORED DATA)" K$ :K$"K"470 K$"S"570 "PLEASE SELECT 'K' OR 'S'":430 :: "SELECT A PASSAGE OF NOT MORE THAN"&ER WORDS9 JH0: H IS A FLAG IS C(N) IS GREATER THAN 30O TA118:C(A)0:A\ ^A1150} hW$(A)" ":WL(A)0:VC(A)0:A r6:" WORD LENGTH AND VOWEL COUNTER"::: |10);"BY BETTY COLLIS" 16);"JUNE, 1982" T12000:T:::( "T COUNTER1 GL1: GL IS GREATEST LENGTH OF WORDa  A,S AND X ARE TEMPORARY STORAGE VARIABLES MN0: MEAN LENGTH OF WORD "SD0: STANDARD DEVIATION OF LENGTHS , CL SELECTS WORDS OF CHOSEN LENGTH 6S0 @ C(N) COUNTS THE NUMBER OF N-LETT125:SW(A)0:A3 AC0: AC COUNTS "A'S" OVERALLU EC0: EC COUNTS"E'S" OVERALLx IC0: IC COUNTS "I'S" OVERALL OC0: OC COUNTS "O'S" OVERALL UC0: UC COUNTS "U'S" OVERALL TV0: TV IS TOTAL NUMBER OF VOWELS SC0: SC IS SENTENCECOUNTER' x W$(N) STORES THE NTH WORDQ WL(N) IS THE LENGTH OF THE NTH WORD~ TL0: TL IS THE TOTAL NUMBER OF LETTERS SL0: SL IS SENTENCE LENGTH SW(N) IS COUNT OF WORDS IN NTH SENTENCE VC(N) IS NUMBER OF VOWELS IN NTH WORD AP / W$(150):WL(150):VC(150):C(18):SW(25)5;V( WORDCOUNT STATISTICSl2 BY BETTY COLLIS|< JUNE 1982FP VARIABLE LIST AND INITIALIZATIONZ T IS TIME LOOP COUNTERd K$ IS FOR CHOICE OF DATA ENTRY nN0: N IS WORD           ,109,20,91,17,97,114 101,15,102,15,94,20,111,16Y 97,18,116,14,96,18,99,18,99,13x 99,13,94,21,104,20,85,13 P$"WOULD YOU LIKE ANOTHER PLOT ?"-AN$C(AN$,1)"Y"120Iu ENTER ANY DATA IN THE FOLLOWING LINES THE FIRST ITEM IS THE NUMBER OF PAIRS 27 92,16,89,17,96,10,92,15,115,18 114,14,80,15,90,14,98,10,91,9 123,18X(PC)X(P)Y(PC)Y(P)X(PC)X(PC)1.PC9R03DC03SAXR,AYCZCa Rh:PD LABEL SCATTERPLOTN21:"RANGE OF X = ";LX;" TO ";HXX"RANGE OF Y = ";LY;" TO ";HYb"PRESS ANY KEY TO CONTINUE..."lG$v::87 EACH POINT MUST BE ADJUSTED TO HI-RES COORDINATES>6JP1NPiAX(((X(P)LX)XR)250)15AY145(((Y(P)LY)YR)130) DO ANY POINTS COINCIDE? IF SO, ADD A SMALL INCREMENT TO EACH COORDINATE FOR PLOTTING CLARITYPC(P1)NP&rL |/  FIND THE FINAL RANGE OF SCORES5 K XRHXLX:YRHYLYo  PLOT AXES FOR THE SCATTERPLOTu  ::3 10,1010,150270,150   PLOT POINTS - IF TWO PINTS COINCIDE, PRINT THE SECOND SLIGHTLY TO THE RIGHT OF THE FIRSTG$ :3 L1NP+ DA$"S"ćX,YF DA$"K"Ą"X,Y = ";X,Y\ " BEGIN THE RANGEy ,L1LXX:HXX:LYY:HYY 6 COMPARE NEW DATA TO EXTREMES OF CURRENT RANGE @XLXLXX JXHXHXX TYLYLYY ^YHYHYY hX(L)X:Y(L)Y ENTER DATA FROM KEYBOARD ) :6Y "HOW MANY PAIRS OF SCORES ARE THERE? ":NPv :"TO ENTER YOUR DATA," "TYPE YOUR FIRST TEST SCORE AND YOUR" "SECOND TEST SCORE WITH A COMMA BETWEEN THEM." :"PRESS ANY KEY TO CONTINUE..." + PAIRS OF SCORES ENTERED AHEAD OF TIMEP TO SPEED A CLASS DEMONSTRATIONb XXXXXXXXXXX :"DO YOU WANT DATA ALREADY STORED ? ('S')" "OR DATA ENTERED FROM THE KEYBOARD? ('K')" DA$ DA$"S"ćNP DA$"S"250  RED FROM THE KEYBOARD9 n OR STORED WITHIN THE PROGRAM.L sX(100),Y(100)U x:4k 5)"SCATTERPLOT" 12:"THIS PROGRAM WILL SHOW A SCATTERPLOT" "OF A SET OF PAIRS OF SCORES." XXXXXXXXXXX THE TEACHER MAY CHOOSE TO HAVE A SET OFz 0P1NP2 SCATTERPLOT=< ADAPTED BY BETTY COLLISzA FROM A PROGRAM BY ROBERT H. FRONK (SEE REFERENCE LIST)F XXXXXXXXXXXXXXXXXXXXXXXXP THIS PROGRAM WILL GIVE A SCATTERPLOTZ OF ANY SET OF DATA POINTS. d THE DATA MAY BE ENTE     (C/R TO END)";A$ A$""4510ED$;"BSAVE ";A$;",A$4000,L";L11P22016PACKING TABLE"4L1L11:L2(L1256):L3L1L2256SL4TANU2:L4,L3:L41,L2[60k` TABLEL1,0j L2(L1256):L3L1L2256t L4TAMX22:L4,L3:L41,L2y ~ :3770:"PACK COMPLETE .. LENGTH ";L116368,0:"NAME TO SAVE= 000::NUX1,Y1:L1SA:500*(7);:5006PLPL1FPLAO1210d"STACK LIMIT REACHED..."vPLPL1:1950ARPL,VPP0ēX2,Y2X,Y24:10:"X=";X;" Y=";Y;" STACK=";PL;" ";#X2X:Y2Y(5002000:2430::22:"$"B"950PL01000/V1A(PL):PLPL1BX2X:Y2Y:P40U(V14)0925fV1V14:P41wV10YYPCV11XXPCV12YYPCV13XXPCP409450:X2,Y2X,Y:CL1310A$"V"1000NO1SAL1:2PC:1200A$"R"800-XPC2791000BV1:XXPC:1200S A$"L"850d%XPC01000y*V3:XXPC:1200RA$"E"1950\A$"Q"900fL4TANU2:L4,0:L41,0:L2(L1256):L3L1L2256:L4TAMX22:L4,L3:L41,L2p:: AV,P,N"; NO15201 3:X,Y:A$:0:X,Y:CL: 540B A$N Z0(0)_ &A$"P"600l 0P4:500} XA$"N"650 bNO0:P0:500 A$"U"700 YPC01000 V0:YYPC:1200 1200 A$"D"750 YPC1591000 V2:YYX2X:Y2Y* :22:"SCALE= (1-15)?";PC> PC1PC15450I PC:0h :22:"COLOR#= (1-7)?";CL CL1CL4CL7470 CL :22:"IS HGR ON (Y/N)?";B$ B$"N"đ B$"N"B$"Y"491 1:22:I140:" ";::22:"U,D,L,R,B,E,Q,23)256(TAMX22)D T23:"MAX # OF TABLES=";MX;" LENGTH =";L1u 22:I140:" ";::22:"WHICH TABLE #?";NU NUMMX400 Y1(TANU2)(TANU21)256 Y10400 :22:"STARTING X,Y=";X,Y:X1X:Y1Y X1X279Y1Y159440 "Y"320 B$"N"211R :22:"MAXIMUM # OF SHAPES IN TABLE?";MX:MX255220u TA,MX:X11MX25:TAX1,0: L8((MX25)256):L9(MX25)L8256:TAMX22,L9:TAMX23,L8 L1MX23 ,400 6D$;"BLOAD ";N$: @MX(TA):L1(TAMXP01:EX093 a d51901 iAR5192:AO2999D n232,0:233,64W xA(Z)(ARZ) TA16384:D$(4):D$;"NOMON C"::P4 22:"TABLE NAME (C/R IF NEW FILE)";N$:N$""310 :22:"ARE YOU ADDING ON TO AN EXISTING":"TABLE (Y/N)";B$ B$Q 2100<BY0:P01:EXBY;FP11PL:BYBYA(P1)P0]J(A(P1)0)(P01)BY200:96K(A(P1)0)ĹTAL1,BY:L1L11:BY200:96PP06496UP08P064ZP01P08\(A(P11)4)1P06496]^EX1 `TAL1,BY:L1L11:BY0:     "THE NUMERATOR OF THE RADICAND OF THE MULTIPLE CORRELATION COEFFICIENT IS:"]8);RNjRD1R32"THE DENOMINATOR OF THE RADICAND IS "8);RDRT(RNRD)"THE COEFFICIENT OF MULTIPLE CORRELATION BETWEEN Y AND A COMBINATIO"WHAT IS THE CORRELATION BETWEEN Y AND X2 ?"5R2>R30r"WHAT IS THE CORRELATION BETWEEN X1 AND X2 ?"zR3(5)RO0:RS0:RL0ROR1R1RSR2R2RLR3R3RN0RD0RT0RNRORS2(R1)(R2)(R3)QROGRAM.":"ENTER '1' IF YOU WANT THE CORRELATION COEFFICIENT PROGRAM, OR '2' IF YOU WANTTO PROCEED WITH THE MULTIPLE CORRELATION.";RR1ī14(6)"WHAT IS THE CORRELATION BETWEEN Y AND X1 ?"R10R1R20-LE 'Y' AND THE TWO JOINTLY CONSIDERED VARIABLES X1 AND X2 ""USE THE CORRELATION COEFFICIENT PROGRAM THREE TIMES TO FIND THE CORRELATIONS BETWEEN EACH PAIR OF THESE VARIABLES.""WRITE EACH CORRELATION DOWN WHEN IT""IS CALCULATED BY THE P YOU LIKE TO COMPLETE THE PROGRAM OR CHOOSE ANOTHER OPTION ?"Y"ENTER '1' OR '2' ";QgQ1ī640p245{:(5)"WE WILL FIND THE CORRELATION BETWEEN ONE VARIABLE AND TWO OTHER VARIABLES TAKEN JOINTLY.":;"CALL THE SINGLE VARIABh" AND ";FTj?m"USE YOUR TABLE TO CONVERT THE"dn"FISHER Z(R)S INTO PEARSON RS."jrw"IN THIS WAY YOU CAN CONSTRUCT THE CONFIDENCE INTERVAL FOR ESTIMATING A"y"POPULATION COEFFICIENT CORRELATION."|::>"WOULDOFBFZ(1.96)P&TFTFZ(1.96)PPY"THE FISHER Z(R) VALUES FOR THE 95%"p^"CONFIDENCE LEVEL ARE ";FB_" AND ";FT`FBFZ(2.58)PbFTFZ(2.58)Pd:f"THE FISHER Z(R) VALUES FOR THE 99%"g"CONFIDENCE LEVEL ARE ";FBCORRESPONDING FISHER'S Z(R)"08"COEFFICIENT."T924:"PRESS ANY KEY WHEN READY"]:AK$c;k<:@"ENTER THE FISHER Z(R) HERE ";FZGJP1((XN3))KP((P1000))1000L"THE STANDARD ERROR OF THIS FISHER Z IS"M10);PNN")4)"4) PARTIAL CORRELATION"/N4)"5) END THE PROGRAM ?"UOo"O14,300,400,501,640z,:(5)-"HOW MANY SUBJECTS IN THE SAMPLE ?";XN/P01P1((XN3))36"USE A TABLE TO CONVERT THE PEARSON R"7"INTO A TION COEFFICIENT ?" A$, A$"YES"142 ; (5)_ "WOULD YOU LIKE TO COMPUTE .."e  4)"1) CORRELATION COEFFICIENT"  4)"2) CONFIDENCE INTERVAL OF A GIVEN PROBABILITY VALUE FOR 'R'" 4)"3) MULTIPLE CORRELATIO)XN KO K(EE)XN# L05 L(GJ)(HK)= N0H N(L) "THE DENOMINATOR OF THE CORRELATION COEFFICIENT IS ";N "THE CORRELATION COEFFICIENT IS:" ((C1I)N1000)1000 :: "DO YOU WISH TO FIND ANOTHER CORRELAMATION X IS ";D5 "THE VALUE OF SUMMATION Y IS ";Ec "THE VALUE OF SUMMATION X SQUARED IS ";G "THE VALUE OF SUMMATION Y SQUARED IS ";H : I0 I(DE)XN "THE NUMERATOR OF THE CORRELATION COEFFICIENT IS ";C1I J0 J(DD <SA HD0:E0 IC10) JG0:H05 KA1XNG PCXA(A)YA(A)S UC1C1Ca ZDDXA(A)o _EEYA(A) dG1XA(A)XA(A) iGGG1 nH1YA(A)YA(A) sHHH1 xA z {(5) }"THE VALUE OF SUMMATION XY IS ";C1 "THE VALUE OF SUM (6)+ "ENTER THE NUMBER OF PAIRS "D " OF SCORES ";XNP A1XN\ YA(A)0h XA(A)0o !A ("ENTER EACH PAIR OF SCORES." )"SEPARATE THE TWO NUMBERS WITH" *"A COMMA." +SA1XN ,: -SX,Y 2XA(SA)SX 4YA(SA)Y : M$""I1307M$M$((46017I))>(II,10:9Q-M$_716384,0m<I12000sAyFK(4);"CATALOG"M/ ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  $ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI1( &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00           !!! ! ! ! ! !!!!!!!!!""" 1980,1982":1000O ZC(1101):C6ĺ::A$"BE SURE CAPS LOCK IS DOWN":1000:d dD$;"BRUN S.CAT"{  CENTER STRING A$ B(20((A$)2)):B0B1 B:A$:B:A$:D  :D$(4): CTRL-D92:A$"APPLE II":1000j(4:A$"DOS VERSION 3.3 SYSTEM MASTER":100027:A$"JANUARY 1, 1983":1000<D$;"BLOAD LOADER.OBJ0"F4096: FAST LOAD IN INTEGER BASIC P10:958:A$"COPYRIGHT APPLE COMPUTER,INC. O INTERPOLATE -": <"THIS MEANS TO FIND THE MOST LIKELY"` ="Y VALUE FOR ANY GIVEN X VALUE." @"INTERPOLATION: (ENTER X=0 TO END PROGRAM)" J"X = ";X ^X0390 h"Y = ";ABX r |330  TM(M100)100 KMJ + R2JM@ R2(R2100)100p "COEFFICIENT OF DETERMINATION (R^2) = ";R2 "CC((R2)100)100 '"CORRELATION COEFFICIENT = ";CC ,"STANDARD ERROR OF ESTIMATE = "((K(N2))) 6 ;"YOU MAY NOW CHOOSE TF POINT ";I; xX,Y JJX) KKY5 LLX2A MMY2O R2R2XYV Iq B(NR2KJ)(NLJ2) B((B100))100 A(KBJ)N A(A100)100 "F(X) = ";B;"X + ";A JB(R2JKN) J(J100)100 MMK2N OEFFICIENT, THE PERCENT"C "OF SHARED VARIANCE AND THE EQUATION"c "OF THE LINE OF BEST FIT." 24:"PRESS ANY KEY TO CONTINUE" AK$ :5 "NUMBER OF KNOWN POINTS"; (N 2J0 <K0 FL0 PM0 ZR20 dI1N n"X,Y O :6&" LINE OF BEST FIT"L:"PUBLIC DOMAIN SOFTWARE FROM "l " COMPUTERLAND" :"ADAPTED BY BETTY COLLIS"T12000:T"THIS PROGRAM WILL TAKE A SET OF""ORDERED PAIRS AND CALCUL