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`` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Ӡȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LhޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0 ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }Lޢh5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!fi#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&eʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3p  :(4);"BRUNMENU" we will delete that"6 "program from our library."> :g "WILLAMETTE APPLE CONNECTION, INC."{ "P.O. Box 7252 "SALEM, OREGON 97303-0053 ::a ::::"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  $% 0 vf'  `m :F a -mLǏLi^j_kZl[`8tp`8M`y h (`|)* X |`YLHHJhh`Ǘ˯߷ë󳏋'C/cO KC[ a(נ)+Ss?` WILLAMETTE APPLE CONNECTION, INC. L(OAD R(UN D(ELETE C(ATLG T(DRIV K(LOK U(NLOK X(ALL E(XIT V(ERIFY ----------------------------------------VOL PG OF SECT-USED LEFT ---------------------------------------- )"DEVIATION OF THE NUMBERS :"<" 1,5,4,2,6,7,4,7 "Bg"AND ALSO FOR THE DISTRIBUTION"~"CONSISTING OF :"" 5-1'S, 3-4'S, 6-7'S, AND 2-11'S ""THESE TWO CASES COULD BE RUN BY TYPING""THE FOLLOWING:"" 1 MIXED FREELY WITH STRAIGHT"8"LIST DESCRIBED ABOVE."@:o"---------------------------------------""TO CONTINUE INSTRUCTIONS HIT RETURN"U1$"AS AN EXAMPLE, SUPPOSE WE WERE""INTERESTED IN THE MEAN AND STANDARD "A, THE N IS THE NUMBER OF DIFFERENT"St"VALUES TO BE GIVEN, AND THE F(I)ARE THE"z~"OF TIMES THE X(I) OCCUR. DATA ""STATEMENTS FOLLOWING MAY BE USED TO""EXTEND THE LIST AS NECESSARY, AND ""BLOCKS OF GROUPED DATA MAY BE""INTERM>#SCR(11K)NUM'?#TSCRTSCRSCRZA#"YOU GOT ";NUM;" ON ";K;" TRIES SCORE = ";SCRaF#KrP#:32);TSCRU#:"120 IS A PERFECT SCORE":Z#"DO YOU WISH TO RUN ANOTHER (Y/N)";X$_#X$"Y"1010'S1NR870 RNR;" IS CORRECT.")\740Qf:"NO, ";NI;" IS NOT CORRECT!"XpIz:"THE CORRECT ANSWER IS ";NR;" ."740"HOW MANY DIGITS WOULD YOU LIKE""FOR EACH VALUE? ENTER 1,2,OR 3."NN10N5902:"THIS IS AN EXERCISE IN DIVISION":910CN1(N(N))^N2(N(N)):N20740mN2N1740zNRN1N2 N9(NR)N8((NRN9)10) NR(N910N8)10*I124:N1;" DIVIDED BY ";N2;" =">:NI:NI090HNI910 NN1(N(N))' XN2(N(N))4 bNRN1N2? lI12] v:N1;" * ";N2;" ="e NIr NI090 NINR690 NR;" IS CORRECT." 590 :"NO, ";NI;" IS NOT CORRECT!" I :"NO, ";NI;" IS NOT CORRECT!"2 :N1;" - ";N2;" ="' NI6 :NI090F NINR530_ NR;" IS CORRECT."h 420 :"NO, ";NI;" IS NOT CORRECT!" I & 0"THE CORRECT ANSWER IS ";NR;" ." :420 D:"THIS IS AN EXERCISE IN MULTIPLICATION":NR;" IS CORRECT." h250B r"NO, ";NI;" IS NOT CORRECT!"I |Ir :"THE CORRECT ANSWER IS ";NR;" "{ 250 :"THIS IS AN EXERCISE IN SUBTRACTION.":910 N1(N(N)) N2(N(N)) N1N2420 NRN1N2:N1N2420 I1E YOUR ANSWER TO THE PROBLEM."9 N220,410,580,730,980b :"THIS IS AN EXERCISE IN ADDITION"k 910q N1(N(N)) N2(N(N)) NRN1N2 I12 " ,N1;" + ";N2;" =" 6NI @ JNI090 TNINR370 ^IES LISTING"9 x"-------------------------------------"f "1 - ADDITION 2 - SUBTRACTION"l "3 - MULTIPLICATION 4 - DIVISION" "5 - EXIT THE PROGRAM" :N "TO END A PROBLEM SERIES, TYPE A MINUS (-)" :"BEFOR% " MATH DRILL PROGRAM"+["THIS PROGRAM WILL PROVIDE DRILL PROBLEMS"a(2"IN ADDITION, SUBTRACTION, MULTIPLICATION"<F"AND DIVISION."P:Z"TO SELECT YOUR PROBLEM SERIES"d n"TYPE THE NUMBER BEFORE SER     v) m}}m~~ة$eeeLؠ D8}}~~ؠ ~ 0})JJJJ 0ș}) 0șeJJJJ 0``% $ Bd 鑠e e ēHi&eh L`$e  ɍ ` X0 md:&98N9m:Jn8m8eed`8edd 鑠` :` ^67ą89 Q@ y 6 @^`6798 Q`Hǒ hǒ``}~eei@iA)m~~ v  220  XA :"TYPE '0' TO STOP OR '1' TO CHANGE LIMIT ";BQ  B0 800a  B1 100g &q 0 520w : :::: "THIS PROGRAM WILL PLOT SINGLE-VALUED" "FUNCTIONS OF X. TO USE TYPE:"  " 10 Y=(THE FUNCTION E.G. SI 270+ "OFF SCALE: (X,Y) = ";X;", ";Y5 AA1?  510E n "FOR X: TOP = ";X1;" BOTTOM = ";X2 "X INCREMENT = ";X3 :"FOR Y: LEFT = ";Y1;" RIGHT = ";Y2 "Y INCREMENT = ";DY   " I.........I.........I.........I" 3,1)240; "BI-MODAL: ";MODE(1,2);" & ";MODE(2,2):260` "NO MODE ( MORE THAN 2 )":260 "NO MORE ROOM IN ARRAY..."  ***********************  DATA GOES HERE *********************** AY(SEARCH,TWO):MAXSEARCHK SEARCH:ARRAY(MAX,TWO)0:MODE(MODE,WUN)1170q MODE(MODE,WUN)0:MODE(MODE,TWO)0{ MODE MODE(1,1)0200 "NO MODE FOUND":260 MODE(1,1)MODE(2,1)220 "MODE IS: ";MODE(1,2):260 MODE(2,1)MODE(----------"34,3 5"A"INSTRUCTIONS Y/N ";:Q$QQ$"Y"940e Q$"N"ė:1405o 5000 20(T$)2) T$ O BY PAUL PAGE FROM A0 PROGRAM NAMED STAT 1I PAGE 504 VOLUME IIe USERS SOFTWARE MANUALn200T$"MEAN,VARIANCE,AND STANDARD DEVIATION"3000T$"PROGRAM BY PAUL PAGE 7/17/78"3000 "-----------------------------THAT YOU WOULD LIKE"B"TO CHECK THEN TYPE 'DEL 1,300' AND HIT"r"RETURN. YOU CAN THEN ENTER YOUR NEW DATA"::"HIT RETURN TO CONTINUE":U1$10"YOU MAY ENTER YOUR DATA NOW..." 9E20 THIS PROGRAM REWRITTENOTE THAT NUMBERS 1 - 299 HAVE BEEN "Kd"LEFT AVAILABLE FOR DATA ENTRIES"Ui::n"DO YOU WANT TO SEE THE INSTRUCTIONS"s"AGAIN ? Y/N ";:U1$xU1$"Y"ė:940}:"IF AFTER THE RUNING OF THE PROGRAM YOU ""HAVE OTHER DATA DATA 8,1,5,4,2"(" 2 DATA 6,7,4,7"E" 3 DATA 0,4,1,5,4,3"_ " 4 DATA 7,6,11,2"w"OR EQUIVALENTLY:"(" 1 DATA 8,1,5,4,2,6,7,4,7,0,4,1,5 ETC."F" THEN TYPE 'RUN'."P"HIT RETURN TO CONTINUE INSTRUCTIONS":U1$U:8$Z"N221995404E2(C(AC)C(AC))7 TC7.22359807913E2Bb ^YY4.78193600396E2(C(AC)C(AC)){ hC2.41538328438E2B rYB(Y4.82700442573E2(C(AC)C(AC))) "THE INTEGRAL IS:",Y  60 J78935E2(C(AC)C(AC))0 C.253449954466B[ YY4.16559621134E2(C(AC)C(AC))q C.210675638065B "YY4.38260465022E2(C(AC)C(AC)) ,C.165934301141B 6YY4.55869393478E2(C(AC)C(AC)) @C.119643681126B JYY4.69311E2(C(AC)C(AC)). C.397241897983BY YY2.93420467392E2(C(AC)C(AC))n C.36609105937B YY3.29111113881E2(C(AC)C(AC)) C.331522133465B YY3.61728970544E2(C(AC)C(AC)) C.29385787862B YY3.9096943(C(AC)C(AC))* C.482381127793BU YY1.26960326546E2(C(AC)C(AC))k C.467453037968B YY1.71369314565E2(C(AC)C(AC)) C.448160577883B YY2.14179490111E2(C(AC)C(AC)) C.424683806866B YY2.54990296CONT' (RET)" 2. 7:::::::::::H <"ENTER LOWER LIMIT:"Q A X1k F"ENTER UPPER LIMIT:"t K X2 dA.5(X1X2) nBX2X1 xC.498631930924B Y(3.50930500473E03)(C(AC)C(AC)) C.492805755772B YY8.13719736545EPI3.14159265359' C(X)(X)0:5`"***** 32 POINT GUASSIAN QUADRATURE *****"j!::%"THE FUNCTION TO BE INTEGRATED IS LOCATED IN LINE 10"':"ENTER THE FUNCTION YOU WISH TO USE IN LINE 10" ,::"WHEN YOU ARE READY TYPE '     EAN";15);"VARIANCE";29);"DEVIATION"A3);R;15);V;29);(V)c:"MORE DATA (Y OR N) ";:A$sA$"Y"400{12 NS ";:NR0:M0:P0+K1444VI1N:"ITEM, FREQUENCY ";I;" ";:A,BrRRBA:PPB:MMBA2yIRRP:V(MPR)(PS):451I1N:"ITEM ";I;" ";:DPPD:MMD2:IRPN:V(MNR2)(NS)%3);"MABX3880:"MORE DATA (Y OR N) ";:A$@A$"Y"300H12936:::" MEAN, VARIANCE, STANDARD DEVIATION":"WHICH METHOD (0=POPULATION, 1=SAMPLE) ";:S"KIND OF DATA (0=GROUPED, 1=UNGROUPED) ";:K"NUMBER OF OBSERVATIOX)" hJB(R2JKN):MMK2N, rKMJ:7 wR2JMN |"COEFFICIENT OF:" ~:"DETERMINATION (R^2)= ";R2:"CORRELATION= ";(R2) "ERROR OF ESTIMATE= ";(K(N2)) :"INTERPOLATION (ENTER 0 TO END):" :"X= ";:X X0396"Y= ";N(X))"  " RUN" B :"THE PROGRAM WILL ASK FOR MINIMUM" p "AND MAXIMUM VALUES OF X AND Y AND FOR" "DELTA X, THE INCREMENT FOR THE X AXIS." "X IS ON THE VERTICAL AXIS."  JORMATIONS"&20:"PRESS ESC TO END"Q:"<>"h"(16384)271600,756:(16384)3215006:16368,0:@:X(W1)FXXN1PWZ@d- MAGNITUDE X(3) SUBROUTINE--Jn1300dxX3(X1(Y)2X2(Y)2)jp5:"FAST FOURIER TRANSFORM":"AUTHOR UNKNOWN""DATE: 7-79"::"THIS PROGRAM CALCULATES & PLOTS" "FAST FOURIER TRANSF(U);31);X3UU1:ZZ1-U1N2124071170I-TERMINATE?-t"DO YOU WANT ANOTHER OUTPUT (YES,NO)"|A$A$"YES"890A$"NO"1240 --SCRAMBLER ROUTINE--Y0:N1NW1L(N1N122NN11360<YY25X3B)C0$Z;5);"!";).CC1?8CX4ĺ"=";:1070GB""NLZXV1240^[|`--OUTPUT TABLE OF VALUESjU1:Z1y~"HARM";7);"REAL";18);"IMAGINARY";31);"MAGNITUDE"X3(FR(U)2FI(U)2) U;4);FR(U);18);FI30+ "INCORRECT INPUT (1 0R "": GOTO 890T  --OUTPUT MAGNITUDE SPECTRUM PLOT--\ B0 " ---CALCULATIONS IN PROGRESS---" Z11N2 X3(FR(Z)2FI(Z)2) X3BBX3 Z Z11N2 XZ X3(FR(Z)2FI(Z)2)X4(3TR:FI(J)FI(I)TI:FR(I)FR(I)TR:FI(I)FI(I)TI8 I,MH LITEP:755` p--OUTPUT RESULTS--j u:10 z"IN WHAT FORM DO YOU WANT THE OUTPUT?" "MAGNITUDE SPECTRUM PLOT (1)" " TABLE OF VALUES (2)" A A1970 A211751[ TRFR(M1):FR(M1)FR(MR1):FR(MR1)TR:TIFI(M1):FI(M1)FI(MR1):FI(MR1)TI:Mc L1q LN880 ITEP2L:EL1L M1L:A3.14159265(1M)EL:WR(A):WI(A)/ IMNITEP:JIL:TRWRFR(J)WIFI(J):TIWRFI(J)FR(J):FR(J)FR(I) 0(FR(Z))BB(FR(Z))! DZ* N:75 XZ1NW bZ(250N),90(1.95FR(Z)B)^ lZo V14000:V{ ::12 " ---FFT CALCULATION IN PROGRESS---" N2K:MR0:NNN1 M1NN:LN LL2:MRLNN730 MRMR(MRL)LL:MRMSINE FUNCTION IS CURRENTLY STORED"5 dFR(17),FI(17)j nN116:T.375(N1):FR(N)(T)(T):FI(N)0:Nw xK4:N16 19 "DO YOU WANT A LISTING OF THE GENERATED TIME FUNCTION?" A$ A$"NO"670 A$"YES"500 BFR(1) &Z2N :1500 :10"163842"LINES 100 THRU 400 ARE RESERVED FOR GENERATING REAL FR(X) AND IMAGINARY FI(N) DISCRETE SAMPLES OF THE FUNCTION TO BE TRANSFORMED"" <"THE NUMBER OF SAMPLES N, MUST BE SOME POWER K, OF 2 E.G. N=16, K=4. A 16 POINT      AVE ANOTHER SET OF DATA";:A$% :4 B$(A$,1)H @B$"Y"ī30000h 936:"HOW MANY ITEMS";:Mn y lJ1M "ITEM "J;:T(J) 4YYT(J) Y2Y2T(J)2 J V ` "MEAN Y = "YM: SY((Y2(Y2)M)(M1)) ( "STD DEV = "SYE FIRST SET";:N$ N1N251ī275H "N HAS TO BE > 1 AND < 251 !!"Q 250W b J1Nq "ITEM "J;{ S(J) XXXS(J) X2X2S(J)2 J :"MEAN X = "XN: ~SX((X2(X2)N)(N1)) "STD DEV = "SX x: "DO YOU H 936(Z15)15I 0+ J 2 P1 2MII1:I9M5(I): I90 I95W I9eK M(I)z39F(J)YS,38K JX1$" ": I139:X1$X1$"^":: X1$" FREQUENCY HISTOGRAM""TYPE ANY CHARACTER TO CONTINUE";: A$U WANT A HISTOGRAM";, A$: A$ "N" X  A$ "Y" "MUST BE Y OR N";: 1030`G1v I 4 P1 2$ F(I) G GF(I). I8G39YS39Gʫ1100BYS39GL936V ` 12j 0,390 t0,3939 ~ M5(Z)Z1 R I\:"VALUE ";1f"FREQ ";Dp"PCT ";Xz"CUM PCT ":bD 0v I 1 P 2A F(I)B F(I1)C0: X0 CABX100D D C P(A);10);P(B);20);P(C);30);P(D) I:"DO YO 6000AIR ";:N 6"N=";N::"X=";:X(N):"Y=";:Y(N):40`:" (PRESS ANY KEY TO CONTINUE)"uZ$:S(Z$"S"):p936:"ANGLE (0 - 360)";AzQM(0):T1(NM2)QQ(M(T)((V(T)A)C)):T:"MAGNITUDE =";Q::"MORE (Y/N)";Q$:Q$"N"40: NNM3070 NN1:T) 50003 3020= 5000m :"X FOR 0 DEG=";XL;" X FOR 360 DEG=";XH{ 5000:40:"IF 0 AND 360 POINTS ARE TO BE CHANGED, ENTER 'Y'";:A$A$"Y"4005W1:1080:W0:40 ::" EDIT WHICH DATA PZ1055 X(N)N:"X=";N% 10576 "X=";:X(N)G !"Y=";:Y(N)V $NNM1080h .:NN1:1050 8:"X VALUE FOR 0 DEGREES";:XL::"X VALUE FOR 360 DEGREES";:XH BW1ı L40 :::N1 T09 "N=";N;:" X=";X(N);:" Y=";Y(N)THE X VALUES TO REPRESENT"H "0 AND 360 DEGREES WILL BE INPUT AT END"^ "OF DATA ENTRY." :"NUMBER OF DATA PAIRS ";:NM:NM1011034 :"100 MAX PAIRS!"::1032 Z0::"SHALL X=N ";:A$:A$"Y"A$"YES"Z1 ::N1 "N=";N COMPUTATION OF SERIES:" i n"THIS ROUTINE WILL STOP COMPUTING":"HARMONIC VALUES WHEN H= N MAX / 2 OR" x"WHEN 'S' IS PRESSED." 5000 L0 Q0:1 ::" DATA ENTRY"::" X,Y PAIRED DATA: NO SPECIAL LIMIT TO" "NUMBER RANGE. <*>"::" OPTIONS:"i 2:" (1)=ENTER DATA":" (2)=COMPUTE SERIES":" (3)=LIST DATA" <" (4)=EDIT":" (5)=REGRESS USING SERIES" >:" PRESS NUMERIC KEY FOR OPTION";:IN ZIN1000,100,3000,4000,6000,62 d::"  B0V180V H014& RR2? H;:11:R;:26:V:Q M(H)R:V(H)Vb (37)1825} 5000:936:Q1:1:Q0 H 5000:40 C57.29577951:PI6.283185308:X(100):Y(100):M(50):V(50) #40 (936:" <*> FOURIER SERIES  30F936:"HARMONIC";:11:"MAGNITUDE";:26:"ANGLE"::Qı^H0(NM2):A0:B0jN1NMXX(N)XL:X(XXH)PIHYY(N):AA(Y(X)):BB(Y(X))N:R((A2)(B2))RRNMA0A1E30 V(BA):VVC:V0V180V     "VARIANCE = 0 -- CAN'T COMPUTE 'T'"-^9000DT2(XNYM)(D8)J sp"CORRELATED T = "T2" WITH "N1" DF"y::"PRESS SPACE BAR TO CONTINUE":G$:G$" "6110810000(#W11500:WF#936Z#:"SUMMARY OF CALCULATIONS":"SETS OF DATA";:A$+P(A$,1)"Y"ī5400H:"YOU NEED EQUAL N !!"R3000aNMī5420w"NO YOU DON'T!!""5250,K1N|PPS(K)T(K)P2P2(S(K)T(K))2DKND8(P2(P2N))(N2N)XD80D80ZD80ī5800#\:ATED MEASURES -- ENTER 2". C:C1C23500? C3700,5000M tUXNYM` D2(1N)(1M) <D1(X2(X2N)Y2(Y2M))(NM2) T1U(D1D2)  h"INDEPENDENT T = "T1" WITH "NM2" DF" 9000 :"DO YOU HAVE EQUAL N IN BOTH " . :"PRESS SPACE BAR TO CONTINUE.":D G$:G$" "2970N 936v "DO YOU WISH TO RUN A T-TEST";:A$  (A$,1)"Y"ī10000 :"ENTER THE FOLLOWING CODE:" 3);"BETWEEN INDEPENDENT MEANS -- ENTER 1" H :3);"BETWEEN REL"MAINTENANCE FACTOR:";MF>-:"FOOTCANDLE LEVEL DESIRED:";FLX(-:"CAVITY DEPTH:";CDb2-::j4-12w6- 50,127<- MC0 "MANUAL CU"F- MC1 "AUTO CU"H- 50,255P- I1 4000: IZ-... +"LUMENS/LAMP";LL2+:"MAINTENANCE FACTOR";MFO +:"MANUAL CU (Y/N)";CU$q*+ CU$"Y" CU$"N" 110404+ CU$"Y" MC0>+ CU$"N" MC1H+ 410,, (7),:::-"VALUES NOW IN EFFECT:" -:"LUMENS/LAMP:";LL-:4"MAINTAINED FOOTCANDLE LEVEL=";FA18 50,255;>::GC:::RH 9000\R 740i(# 50,255,# "HIT ANY KEY TO CONTINUE..."2# Z$<#F#'' 50,255'"COEFFICIENT OF UTILIZATION";CU' 50,63$' 610*+:: 9000:( 50,255B"# OF FIXTURES USED"n"(ENTER -1 FOR NEW ROOM;0 TO QUIT)";FU FU 0 460 FU0 12000 "# OF LAMPS/FIXTURE";LFFA(FULFLLMFCU)AR FA(FA100.5)100" 50,63*:$: 9000:B"FOR";FL;"MAINTAINED FOOTCANDLES:"J:oL4(LR4):L3(LR3):L2(LR2){ 50,63"# OF 4-LAMP FIXTURES REQ'D.=";L4:"# OF 3-LAMP FIXTURES REQ'D.=";L3:"# OF 2-LAMP FIXTURES REQ'D.=";L2:::RCR((LRWR)5CD)AR0 +RCR(RCR100.5)100< - 50,63K 0"RCR=";RC^ : MC0 10000t DCUAG((RCRBG))z N X"COEFFICIENT OF UTILIZATION=";CU bLR(FLAR)(LLMFCU) lLR(LR100.5)100 v:"LAMPS REQ. FOR";FL;"FOOTCANDLES=";LRITIAL VALUES)";FL$  FL0 11000? ::"CAVITY DEPTH";CDK  11500Q Y :o "LENGTH OF ROOM" "(ENTER -1 TO CHANGE PREVIOUS VALUES;0 TO QUIT)";LR  LR0 12000  LR0 410 : "WIDTH OF ROOM";WR : ARLRWR & CURVE:"4 ,"80% CEILING-50% WALL-20% FLOOR REFL."F @AG.807902573Z JBG.1024804458m T "RCR","C.U."| ^ I1 10 | I,CD$(I)  I :  9000  ::  "MAINTAINED FOOTCANDLE LEVEL DESIRED"  "(ENTER -1 TO CHANGE IN10:"INITIAL CONDITIONS:"D : "LAMP:DELUXE WHITE FLUORESECENT"r "TROFFER:LITHONIA 2GP WITH ACRYLIC LENS"z : "LUMENS/LAMP:3150" LL3150 "MAINTENANCE FACTOR:.75" MF.75 :::: :  9000 ":"BUILT-IN RCR/CUSIS *********" <::::/ F "PROJECT";A$5 PH Z "JOB NO.";B$T dA(A$)` nB(B$)z xD(40A)2:E(40B)2 }DD2:EE2 "******** FOOTCANDLE ANALYSIS ********" D:A$ E:B$ 34,5 35,23  MC1 CD$(10)]CD$(1)".73":CD$(2)".66":CD$(3)".59":CD$(4)".54":CD$(5)".48"CD$(6)".44":CD$(7)".39":CD$(8)".36":CD$(9)".32":CD$(10)".29" "****************************************" "********* FOOTCANDLE ANALY      R(3)3.14159265R(3)445# )%F*"ANOTHER CASE (1=YES)";M/QX4Q12^9i>I13CB(I)B(I)C(I)60HIM\ ******* TRIANGLE *******a DESCRIPTION7f TRIANGLE WILL SOVLE FOR ALL PARTS OF ANY PLANE TRIANGL!"ALT TO SIDE";H(1),H(2),H(3)'-W"RADIUS OF CIRCUMSCR CIRCLE = ";R1"RADIUS OF INSCRIBED CIRCLE = ";R" AREA OF TRIANGLE = ";WR91800R80800 "A SECOND SOLLUTION IS :"R91"";" 1"," 2"," 3";"";"----","---","----"A\"SIDE";S(1),S(2),S(3)b"ANGLE (RAD)";R(1),R(2),R(3)"ANGLE (DEG)";A(1),A(2),A(3)" (MIN)";(B(1)),(B(2)),(B(3))" (SEC)";S(1),S(2),S(3)0005605SB(I)0%XA(I)A(I)1=](B(I))0.0001615IbB(I)0OgslR(I)(A(I)B(I)60)57.2957795yqv540{WRPR1S(1)(2(R(1)))H(1)S(3)(R(2))H(2)S(1)(R(3))H(3)S(2)(R(1))R91685 800)S(I)(S(3)(R(3)))(R(I))/IP(S(1)S(2)S(3))2r!R(((PS(1))(PS(2))(PS(3)))P)}&I13+R(I)2(R(PS(I)))05755I:?X157.2957798R(I)DA(I)(X1)IB(I)60(X1A(I))N(60B(I))0.09632 445%R(3)(T(1T2))DR(2)3.14159265R(1)R(3)MI2V530aI23j575qIR91510S(3)S(1)490505"ONE SOLUTION IS:"510R80630"NO SOLUTION POSSIBLE........"I! mR(2)3.14159265R(1)R(3)* rI23 w575< |315b "WHAT ARE SIDE1, SIDE3, ANGLE1"; S(1),S(3),A(1),B(1),C(1) 830 R81 I1 620 T(S(3)(R(1)))S(1) T10.0000001515 1T0.00000001440R(3)1.5707% _"ANOTHER PROBLEM (YES OR NO)";A$+ i9 nA$"Y"0? XCPUT IN CASSETTE CONTAINING"B +:"DRAWING, AND START IT PLAYING"o4+:"THEN PRESS ANY KEY TO RECALL POINTS"wH+A$>!R0RR10H!5100M!16700:"ENTER DISTANCE":"(CURRENTLY ";R;")":R!16700:"ENTER ELEVATION ANGLE":"(CURRENTLY ";P;")":P!16700:"ENTER LEFT-RIGHT ANGLE":"(CURRENTLY ";T;")":T!5100(#:*936:12000+32,5: +5:"VX%(P%),VY%(P%)'I%I%1:P%P1%(I%)170207LA@PP5TJP360PP360^T5100hPP5yP0PP3605100 TT5 T360TT360 5100l TT5v T0TT360 5100 RR10 R0R10 51004!RR10VY%(I)0VY%(I)160ī6500$8.B6700d16700:"SORRY, THIS IS OUT OF SCREEN BOUNDS":"PRESS A KEY TO TRY AGAIN":ER1A$,X:3bI%1:P%(P1%(I%))lP%0ī7500P%0ī7200VX%(P%),VY%(P%)7400 P%P%4 #:/T$" X MEAN = "XN;" S.D.(X) = "SX5$[%" Y MEAN = "YM;" S.D.(Y) = "SYcN%12%T1999ĺ"INDEPENDENT T = "T1;:" DF = "NM2%T2999ĺ"CORRELATED T = "T2;:" DF = "N1H&18I&R999ī30000R&N30ī9860W&"R = "R: SERIES: (N+(N-1))ZX "THE FIBONACCI NUMBERS ";"FROM 1-1,000,000,000"AI(X0Q2AOY<B1b@A,BnFC(AB)PC1000000000ī120ZXXC_C,dAB:BCn70x}"THE SUM IS ",X A FIBONACCI NUMBER IS THE SUMMATION OF THE   200A T$"PROGRAN FOR COMPAIRING 2 UNPAIRED GROUP"H1pT$:" BY PAUL A PAGE 9/7/78""---------------------------------------":34,3" THIS PROGRAM COMPUTES THE MEANS," "VARANCES, AND T-RATIO FOR TWO GROUPS"E GIVEN ONE SIDE & ANY TWO OTHER PARTS OF THE TRIANGLE.Hg USERSh SURVEYORS,HIGH SCHOOL STUDENTS, AND ANYONE ELSE WHO USES TRIGONOMETRY CAN FIND USE FOR THIS PROGRAM.' NFTER WHICH YOU "* "MAY CLAIM FACTORS."S :"(NOTE:ENTER '0' AS LAST CHOICE)"p :"LET'S PLAY FACTOR!!" :"PRESS RETURN TO CONTINUE" 756:ARE EVENLY DIVISIBLE INTO YOUR NUMBER."- Z "FOR EXAMPLE, IF YOU CHOOSE 18, I CAN " "CLAIM 2,3,6,& 9 IF THEY ARE STILL IN" "THE ARRAY. YOU WOULD RECEIVE 18 POINTS" "AND I WOULD RECEIVE 20. THEN IT WOULD" "BE MY TURN TO CHOOSE AF FACTOR. YOU PLAY"C "AGAINST THE APPLE COMPUTER. WHEN IT IS"r "YOUR TURN, YOU CHOOSE A NUMBER FROM THE" "ARRAY OF NUMBER DISPLAYED. AFTER YOU" "HAVE CHOSEN A NUMBER, I CAN CLAIM ALL" "NUMBERS REMAINING IN THE ARRAY WHICH "' "ZZ1::"YOU WON, BUT YOU WERE LUCKY!!"41640N:"TIE GAME!!":1640_J11000:J:A$;"'S SCORE= ";A;" APPLE= ";B::I2N:N$(I);" ";((I1)9)9I12060 I: * :"THIS IS THE GAME OSCORE:" 8+;A$;" "A;" APPLE ";B9@AB1720GJAB1750TWW1::"I WON THAT TIME, BUT YOU":"CAN HAVE ANOTHER CHANCE."h:"WANT TO GO AGAIN? (Y/N) ";C$:C$"Y"230C$"N"1700:"I WON ";W;" GAMES AND YOU WON ";Z*I CLAIM ";dA(C)01420+n"NOTHING."5x1530BI2L2VN$(I)" "1510l(LI)IL1510xI;" ";J2INI:A(J)A(J)I:JBBIN$(I)" "I:2000:I2N:N$(I)" "650"I,:6"FINAL U CHOOSE? ";C:5(C1)(CN1)01260_"CHOICE OUT OF RANGE. CHOOSE AGAIN."i1200~N$(C)" "1300C;" IS NOT AVAILABLE. CHOOSE AGAIN."1200I2CNCA(I)A(I)C(I2AAC<N$(C)" "FLC P" A(L)011000 "YOU COULD ALSO HAVE CHOSEN ";= I2L2N A(I)01090b $N$(I)" "1090x .(LI)IL1090 8I;" "; BI LN$(L)" " `I2N jN$(I)" "1170 tI ~1590 2000  "YOUR TURN.":"WHAT NUMBER DO YORN!" p1030" zN$(D)" "920R D;" IS NOT AVAILABLE. YOU LOSE YOUR TURN!"\ 1030p (LD)DL960 D;" IS NOT A FACTOR OF ";L;". YOU LOSE YOUR TURN!" 1030 I2DND A(I)A(I)D I N$(D)" " AAD 810  L01590* "MY TURN. I CHOOSE ";L4 BBLT I2LNL:A(I)(A(I)L):Ib N$(L)" " *:"WHAT FACTOR OF ";L:"DO YOU CLAIM? (0=NONE) ";:D HD01030 RD(D)870 \(D1)(DN1)0890 f"CHOICE OUT OF RANGE. YOU LOSE YOUR TU0:I |I2N:N$(I)(I)( I9420< N$(I)" "N$(I)C IM 2000e 0I2N2:J2INIu DA(J)A(J)I NJ:I lC11190 v: M1000000 L0 A(L)0 I2N A(I)IM720 N$(I)" "720 MA(I)I LI I;A$ A$""A$"MUD"K :"HOW LONG DO YOU WANT THE ARRAY (MAX 81) ";N] N2N81230m N(N)280 :"ILLEGAL VALUE ENTERED--DO AGAIN!!":230 :"DO YOU WANT TO BE FIRST? (Y/N) ";C$:C$"Y"C1:310 ,C0 6A0:B0: rI2N:A(I) - -FACTOR--FROM PERSONAL COMPUTING--6/78m -MODIFIED FOR THE APPLE COMPUTER BY JOE E. PORTER--9/23/79d:"THE GAME OF FACTOR"n:"DO YOU WANT INSTRUCTIONS?";:Z$:(Z$,1)"Y"İ3000W0:Z0A(162),N$(81) :"WHAT IS YOUR NAME? "         ENTRY WITH A COMMA. "X @"WHEN ALL DATA IS ENTERED TYPE THE LAST":"ENTRY AS 999999 "l A"FOR EXAMPLE:" C:" 900 DATA 73,43,47,......52":" 905 DATA 54,45,49,........87,999999" D:: E:"HIT RETURN TO CONTINUE";::U1$ F" H" NOW T. "OF UNPAIRED DATA. THIS PROGRAM ASSUMES"W #"THAT THE GROUPS MAY HAVE UNEQUAL "j ("VARANCES.": 2" TO USE THIS PROGRAM ENTER YOUR ITEMS" 7"FROM THE FIRST GROUP STARTING WITH LINE" <"NUMBER 900 AS 'DATA' ENTRIES,SEPARATING" >"EACHSSA(I,K)B(K,J)K!.S;" ";5J;BIH!P&:g0"MORE DATA ?";RE$:RE$"Y"RE$"YES"4000D4070009999X:I13:(7):Ib'PE J1R1""ROW ";J&,I1C1A6" VALUE COLUMN ";I;M@A(J,I)TJI[TJa^rh"MATRIX 2:"~rJ1R2|"ROW ";JI1C2" VALUE COLUMN ";I;B(J,I)IJI1R1J1C2S0K1C1*** MATRIX MULTIPLICATION ***"&:J"DIMENSION OF MATRIX 1 (R,C)";UR1,C1y"DIMENSION OF MATRIX 2 (R,C)";R2,C2C1R24110(7);(7);::"CANNOT BE MULTIPLIED"::"OTHER DIMENSIONS NECESSARY."4390"MATRIX 1:" D33310 K :J1R* I1C9 D23350L B(J,I)B(J,I)Z D33380s A(J,I)B(J,I);" ";}* 33904 A(J,I)S;" ";> IH R J\ :f "MORE DATA";p RE$z RE$"Y"RE$"YES"3000 4070005:" OF MATRIX (R,C)";8: R,C:R1R43120:C1C103120CD K12QN K23180bX "MATRIX 1:"lb 3190}l "MATRIX 2:"v J1R "ROW";J I1C "VALUE COLUMN";" ";I;" "; K23260 A(J,I) 3270 B(J,I) I J TRIX ADDITION,SUBTRACTION ***"F 5:"*** SCALAR MULTIPLICATION ***"N :a "1. ADDITION"w "2. SUBTRACTION" "3. SCALAR MULTIPLICATION" :"WHICH"; D:D0D33070  D33120 "VALUE OF SCALAR";& S0 "DIMENSIONA(J,K) K I1R' IJ23805$ YA(I,J)B. K1R1]8 A(I,K)A(I,K)YA(J,K)dB KkL IrV Jz` :j I1Rt "X";I;"=";A(I,R1)~ I : "MORE DATA"; RE$:RE$"Y"RE$"YES"2000 40 7000 " *** MANSTANT "; \A(J,I) fI# pJ. zJ1R9 IJRM A(I,J)02230T I (7);(7);(7);"SORRY--;"::"NO UNIQUE SOLUTION": 2440 K1R1 XA(J,K) A(J,K)A(I,K) A(I,K)X K Y1A(J,J) K1R1A(J,K)Y ~40 70009 5:"*** SIMULTANEOUS EQUATIONS ***"A :e "NUMBER OF EQUATIONS (9 MAX)";z R:R2R92040 :"COEFFICIENT MATRIX:" J1R "EQUATION ";J *I1R1 4IR12130 >" COEFFICIENT ";I; H2140 R" CO .S01100" 0R1(BR)(2A)6 2R2(BR)(2A)] 8:::"ROOTS (REAL): ";R1;", ";R2g B1110w LR1B(2A) PR2R(2A) T:::"ROOTS"::" (COMPLEX)";::R1;"+OR- ";R2 V::: `"MORE DATA"; jRE$ tRE$"Y"RE$"YES"10001RE540* _RE1000,2000,3000,4000,50004 7000 6:"ROOTS OF QUADRATIC EQUATIONS":5:"------------------------------" ::"EQUATION MUST BE IN THE FORM:AX^2+BX+C=0" ::"COEFFICIENTS A,B,C"; A,B,C S(B2)(4AC) $R((S))---"/ 2::"1. ROOTS OF QUADRATIC EQUATIONS"Z 7:"2. SIMULTANEOUS EQUATIONS (9 MAX)" <:"3. MATRIX ADDITION & SUBTRACTION--":" SCALAR MULTIPLICATION" F:"4. MATRIX MULTIPLICATION (10X10 MAX)" P:"5. QUIT" Z19:"WHICH ?";RE ]RE :255#A(10,10),B(10,10)L :7:"COMMON BASIC PROGRAMS--VOL.2"~:"ADAPTED FOR THE APPLE II BY JOSEPH BOLUS""JUNE 23,1978"#I13000:I(::"SIMULTANEOUS EQ. AND MATRIX OPERATIONS" -"------------------------------------         6g/5 ys r ; ya ` `$$(ɠ$C y$f ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\I/O ERROR\VERIFY\@  dh a X ;g B ؐg KL L KPhg a X00   ddd 鑠 ؐLs ;O ؐ YLЪPТ2'gh a X ;" ē$ y X ؐ Y ȒL :L'% g h y ē I8Mtn=vH?J QVQT_ɕ%j^iZk[l#^Z_[ 0f ߓ Y1  Ȓ@)ȹ@)ȹ@) Xmɠ 0   L Mf'fП K Xg QLiLLs4   <"MEAN DIFF.";:13);"VAR.DIFF.";:26);"STD.DEV.DIFF."Y" ";R;:13);Q;:27);Wa:"T RATIO ";RW:"ON ";D;" DEGREES OF FREEDOM.":"T RATIO ";RW:"ON ";N(1);N(2)2;" DEGREES OF FREEDOM."PT$'255"D(I)(V(I))y^I;:6);N(I);:13);(M(I)10000.5)10000;:21);(V(I)10000.5)10000;:32);(D(I)10000.5)10000hIrQV(1)N(1)V(2)N(2)|W(Q)RM(1)M(2)KV(1)N(1)QD1(KK(N(1)1)(1K)(1K)(N(2)1)):)SZ(P)S2N(P)N)P22802P2;110Z NOW WE PRINT THE ANSWERS"GROUP";:6);"NUMBER";:13);"MEAN";:21);"VARIANCE";:32);"STD.DEV.",6I12@M(I)S(I)N(I)JV(I)(N(I)Z(I)S(I)S(I))N(I)(N(I)1) T,a:20:"TO CONTINUE HIT RETURN";:U1$:Vb5:"YOU MAY ENTER YOUR DATA NOW"::\cbdgS(10),Z(10),N(10),M(10),V(10),D(10)iP1nS0xS20N0XX999999210SSXS2S2XXNN1140S(P"TYPE ";:50,63:"RUN 100";::" TO GET RESULTS."] _::"HIT RETURN TO CONTINUE";::U1$:`"AFTER GETTING YOUR RESULTS IF YOU WANT":"TO ENTER ANOTHER SET OF DATA THEN TYPE":"'DEL 900,2000' AND HIT RETURN"::"THEN TYPE 'RUN' TO RESTART PROGRAM.""EXAMPLE:":5 V" 1000 DATA 51,41,43,.........68c X" 1010 DATA 67,68,71,.........999999": Z"PLEASE LIMIT THE NUMBER OF DATA ENTRIES":"IN EACH DATA LINE NUMBER TO LESS THAN":"FIFTEEN(15) ITEMS."1 ["AFTER ALL DATA HAS BEEN ENTERED THAN ":YPE IN YOUR SECOND SERIES OF DATA"N J"THE SAME WAY BUT STARTING WITH LINE "{ L"NUMBER 1000 AND ENTERING IT AS 'DATA'" N"SEPARATING EACH WITH COMMAS AS BEFORE." P"DON'T FORGET TO MAKE THE LAST ENTRY OF" R"DATA 999999 AS IN GROUP ONE.": T5003 :"X1,Y1=TOP LEFT. WHICH X,Y,DATA? ";X,Y,DE B(Y,X)D:400o I1R:J1R1:A(I,J)B(I,J):J:I:M(I,J):K1(R1):A(I,K)A(I,K)YA(J,K):K6 ,I:J:i 6I1R:"X";I;"= ";(A(I,R1)1000.5)1000:I{ @Q$:400:210 936:I1R:J1R1 1((I1)3):1((J1)5):JR1ĺ" ="; B(I,J):J:I 22:"EDIT? (Y/RETURN)";Q$ Q$"Y"NT ";% A(J,I):B(J,I)A(J,I):I:J. 400@ J1R:IJRS A(I,J)0260} I:"DETERMINANT=0 (RETURN) ";Q$:400 210 K1R1:XA(J,K):A(J,K)A(I,K):A(I,K)X:K Y1A(J,J):K1(R1):A(J,K)YA(J,K):K I1R:IJ300* "YAp/d936:" *** SIMULTANEOUS EQUATIONS ***"bn:"NUMBER OF EQUATIONS (ROWS OR COLUMNS)? ";RzxA(R,R1):B(R,R1)"COEFFICIENT MATRIX:":J1R:"EQUATION ";J:I1(R1)IR1180" COEFFICIENT ";I;200 " CONSTA       "ENTRY # ";J1;:A(I,J):J$HI:\ :10:"DO YOU WANT TO GO AGAIN ";:X$:X$"Y"1000d :Y":#:10);"WHICH METHOD ";:XZX1X2ĺ:" **** WRONG NUMBER ****":1030iX100,200o>:"I WILL NOW ASK YOU FOR THE AUGMENTED":"COEFFICIENT MATRIX A ROW AT THE TIME. "C34,11:DI0N:10:"ROW # ";I1:FJ0N1:TIONS IS LESS THAN THE AC-":"CURACY FIGURE THEN THE ITERATIONS ARE":"STOPPED."::" ** HIT RETURN **";:X$:y'201::4:"* SIMULTANEOUS LINEAR EQUATION SOLVER *"1010);"1. GAUSS JORDAN METHOD":10);"2. GAUSS SEIDEL METHOD 2. A MAXIMUM NUMBER OF ITERATIONS":K" 3. AN ACCURACY FIGURE": ::"THE ACCURACY IS USED TO STOP THE":"ITERATIONS BEFORE THE MAXIMUM NUMBER.":" IF THE SUM OF THE ABSOLUTE DIFFERENCES"p""BETWEEN ENTRIES IN TWO SUCCESSIVE":"APPROXIMA RETURN TO CONTINUE **";:X$|I::"**** DESIRED ACCURACY NOT ATTAINED ****";::"HIT RETURN TO CONTINUE ";:X$:3000::5:" THE GAUSS-SEIDEL METHOD IS AN ITER-":"ATIVE ALGORYTHYM THAT REQUIRES :"::" 1. AN INITIAL GUESS":("T(A(J,N1)T)A(J,J):D(TY(J))D:Y(J)T:JQ:" ** ITERATION ";I;" **"::uJ0N:"X(";J1;") = ";Y(J):J:"ACCURACY : ";D::DACCĺ"*** DESIRED ACCURACY ATTAINED ***"::"HIT RETURN TO CONTINUE";:X$:3000:" ** HIT0N:" X(";I1;") = ";:Y(I):ITT(A(0,0)):I1N:(A(I,I))TT(A(I,I))I:T.00001ĺ:"*** GAUSS-SEIDEL NOT APPROPRIATE ! ***"::"HIT RETURN TO CONTINUE ";:X$:3000I1MAX:D0:J0N:T0:K0N:JKTA(J,K)Y(K)T,K:UATIONS (1 - 11) ";:NdN1N11ĺ:" *** WRONG NUMBERS ***";::"HOW MANY EQUATIONS ";:N:202sN1N:NN1:"MAXIMUM NUMBER OF ITERATIONS ";:MAX::"ACCURACY REQUIREMENT ";:ACC2000::" GIVE ME AN INITIAL GUESS "::$I,I):A(K,I)0:LI1N1:A(K,L)A(K,L)TA(I,L):L7 K> I :" ******* DONE *******"::"HIT RETURN FOR ANSWERS";:X$ ::I0N:" X(";I1;") = ";A(I,N1):I::"HIT RETURN TO CONTINUE ";:X$ 3000 280:10:"HOW MANY EQRETURN T O CONTINUE";:X$:3000 T$"Y"ĺ" ** ITERATION ";I1;" **":K0N::L0N1:6L1);((A(K,L)),5);:L::K::"** HIT RETURN TO CONTINUE **";:X$ TA(I,I):KI1N1:A(I,K)A(I,K)T:K:A(I,I)1 K0N:KI1500 TA(KLOW ME":"TO CONTINUE THE ALGORYTHYM."J :"HIT RETURN TO START";:X$: I0N:B(A(I,I)):IBI:KI1N:(A(K,I))BB(A(K,I)):IBK :IIBāKIN1:TA(I,K):A(I,K)A(IB,K):A(IB,K)T:K* B.00001ĺ:"**** MATRIX SINGULAR ****"::"HIT "* PLEASE ! GIVE ME PROPER NUMBERS ! *"::102< lN1N1F n2000 s::T$"N":N6ĺ"DO YOU WANT ME TO SHOW YOU THE MATRIX":"DURING THE DIAGONALIZATION";:T$& xT$"Y"ĺ:"I WILL PUT THE MATRIX ON THE SCREEN.":"YOU WILL HAVE TO HIT RETURN TO ALF PRINTING OUT THE MATRIX DURING EACH":"PASS. ROW INTERCHANGE IS USED TO PUT":"THE ENTRY WITH LARGEST MAGNITUDE ON THE":"DIAGONAL & CHECK FOR SINGULARITY."::" ** HIT RETURN **";:X$: f" HOW MANY EQUATIONS (1 - 11) ";:N:NN11 iN0N10ĺ:f Y(11)A(10,11)$ 1000d::5:" GAUSS-JORDAN ELIMINATION WILL BE USED":"TO SOLVE YOUR SYSTEM. WHEN PROMPTED,":"ENTER THE APPROPRIATE INFORMATION.":"IF YOUR SYSTEM HAS LESS THAN SIX UN-":"KNOWNS, YOU WILL BE GIVEN THE OPTION e"O     ,S(3),A(2),B(2),C(2) 830( I121 "6208 'IW ,R(3)3.14159265R(1)R(2)` 1I3i 6575t ;I12} @530 EI J630 O"WHAT ARE ANGLE3, ANGLE1, SIDE3"; TA(3),B(3),C(3),A(1),B(1),C(1),S(3) Y830 ^I132 c620 h S(1),S(2),S(3) 540% 630K "WHAT ARE SIDE1, ANGLE3, SIDE2";i S(1),A(3),B(3),C(3),S(2)r 830{ I3 620 S(3)(S(1)2S(2)22S(1)S(2)(R(3))) 540 630 "WHAT ARE ANGLE1, SIDE3, ANGLE2"; A(1),B(1),C(1)......." 125 N1210Z "NOTE: SPECIFY ANGLES AS DEGREES, MINUTES, SECONDS OR" " DEGREES, MINUTES.DECIMAL, 0 (I.E. , SECONDS =0)" N2230 N4270 N5335 N3385 "WHAT ARE SIDE1, SIDE2, SIDE3";TRIANGLE,"9 s"GIVEN ONE SIDE AND ANY TWO OTHER PARTS."? xE } "WHAT WILL BE GIVEN (1=SSS, 2=SAS, 3=SSA, 4=ASA, 5=AAS)"; N R80 R90 (N1)(N2)(N3)(N4)(N5)0170 "ANSWER 1, 2, 3, 4, OR 5 PLEASE..... $ ********* TRIANGLE *********-2003U:"INFO STARTS AT LINE 860":_::h110 A(10),B(10),C(10),H(10),R(10),S(10)diS(I).01(6000(B(I)(B(I))).5) n"THIS PROGRAM WILL FIND THE UNKNOWN FEATURES OF ANY         I (#XX.5H I1 N4P(I)P(I)2F(I)LY(I)S(I).5HF(I)T IZh  I1 N}*P(I)P(I)2F(I)4Y(I)S(I)HF(I)> IHXX.5HR I1 NY(I)S(I)(P(I)F(I))H6 I I1 40  800 500 900. XX4 200@ X,Y(1),Y(2)MX4X4X2^" XX1 200i, 9000tY(1)1Y(2)0F(1)Y(2)F(2) .3(Y(2))Y(1)NX I1 NbS(I)Y(I)lP(I)F(I)vY(I)S(I).5HF(I) I OF X FOR INTEGRATION = ";HD "INCREMENT OF X FOR PRINTOUT = ";X2R I1 Ny "INITIAL VALUE FOR Y(";I;") = "; Y(I) I :: " X Y(1) Y(2)" X4XX2 500 600 500 700 500 = .1"/ Z " X INCREMENT FOR PRINTOUT = .2"T \ " INITIAL VALUE OF Y(1) = 1"y ^ " INITIAL VALUE OF Y(2) = 0" b:: d "NUMBER OF FIRST ORDER EQUATIONS = ";N n "STARTING VALUE OF X = ";X s "END VALUE OF X = ";X1 x "INCREMENT ONTINUE INSTRUCTIONS? (Y/N)";Q$2 H Q$"^" 100< J::c L "X IS THE INDEPENTDENT VARIABLE"l N:: P "FOR THIS EXAMPLE USE" R " NUMBER OF EQUATIONS = 2" T " STARTING X = 0 V " END X = 10 X " X INCREMENT FOR INTEGRATION=-.3Y(2)-SIN(Y(1))" 4::L < "F(1),F(2),ETC ARE DEFINED AS" q > " Y(1)',Y(2)',ETC IN PROGRAM" @ " INSERT THE EQUATIONS FOR F(1),F(2),ETC" B " AT LINES 500,510,ETC" D " LIST 500-510 TO SEE FOR THIS EXAMPLE" E: F "C$ 1000, & "EXAMPLE Y''+.3Y'+SIN(Y)=0"[ (: "EQUATIONS MUST FIRST BE CHANGED TO A" * " SET OF FIRST ORDER EQUATIONS" ,: "E.G. LET Y(1)=Y AND Y(2)=Y'" . " THEN THE EQUATION BECOMES" 0 " Y(1)'=Y(2)" 2 " Y(2)'  1000< " ORDINARY DIFFERENTIAL EQUATION SOLVER"D:d " USING"l: " 4TH ORDER RUNGE KUTTA METHOD"::::::::::: "DO YOU WANT INSTRUCTIONS? (Y/N)";Q$" Q$"N" 100      D"ĺ"GROUND SPEED ",S19 U1$"DIST"ĺ"DISTANCE IS ",D1? _ Y2$"Y"ĺ"FUEL BURNED ",F2e "CONTINUE? (Y/N) ";Y1$ Y1$"Y"25 : UU1$"SPEED"150 D1S1T9+ S1D1T98 T8D1S1E T1(T8)Z T2((T8T1)60)t T3((T8T1)60T2)60 T9((T360)T2)60T1 F2F1T9 U1$"TIME"ĺ"COMPUTED TIME IS ":T1,"HOURS ":T2,"MINUTES ":T3,"SECONDS " U1$"SPEE? USE THE FORMAT HH, MM, SS ";T1,T2,T3^ PU1$"SPEED"Ą"WHAT IS THE DISTANCE? ";D1 dU1$"DIST"Ą"WHAT IS THE TIME? USE THE FORMAT HH, MM, SS ";T1,T2,T3 xU1$"DIST"Ą"WHAT IS THE GROUNDSPEED? ";S1 T9((T360)T2)60T1 DESIRE A FUEL CALCULATION (Y/N) ";Y2$- +s ,Y2$"Y"Ą"WHAT IS THE FUEL CONSUMPTION IN GALLONS PER HOUR. ";F1y - 2U1$"TIME"Ą"WHAT IS THE GROUND SPEED? ";S1 <U1$"TIME"Ą"WHAT IS THE DISTANCE? ";D1:1600 FU1$"SPEED"Ą"WHAT IS THE TIME :(8)| "THIS PROGRAM COMPUTES TIME, SPEED, AND DISTANCES USING METHODS OBVIOUSLY INFERIOR TO THE 'AVSTAR'":30:(8)("WHAT IS THE UNKNOWN VALUE? TYPE THE WORD TIME, SPEED, OR DIST. ";U1$)' *"DO YOU ALSO     PD0 Z N1 10 " dD1D0 nXX1.5NL xD(C(X)C(X1))(XX1)T Ny " IS";2DD1 50  " DERIVATIVE"::P"YOU MUST PUT YOUR EQUATION IN LINE 30"::e"ARE YOU READY"n A$ A$"YES" 16C(X)(X21)2("ENTER X=99999 TO END PROGRAM"::2"DERIVATIVE AT X="; < X1F X199999 160 z#?Xı!ԠԠΠΠ"ŠĠŠŠ ŠĠŠ̠ŠҠĠРΠ  ԠŠӠԠӠƠؠǠԠ ԠҠΠ ŠΠӠɠ Ӡɠ  Ƞ̠ɠ  Ƞ̠ɠ  ؠΠɠ ؠΠ ΠɠҠɠŠҠ Π̠ Ӡɠ Ҡ ɠӠ ԠŠӠ Ҡ Ҡ͠ ΠŠɠ ŠԠɠ!ŠԠɠ "ŠԠɠ ŠƠΠ̠ΠҠ ΠҠ Ӡɠ ҠӠɠӠɠ ȠҠŠ͠ĠԠ ̠ȠӠ  ՠ ɠŠȠӠ ϠϠϠàɠϠϠàɠ ΠӠT TABLE DO YOU WANT?"B$"ENTER A NUMBER BETWEEN 1 AND 12 ";TBLE[)TBLE1TBLE121050dQ100pG112S(16336)G(# THE END)#:8,#TTL0:TSCR0-#K110.#NUM02#M1127#ANS%(M)KNUMNUM1:TTLTTL1<# START OF RUN%ANS%(12)/:10u"ENTER TYPE OF RUN":10);"1 - ADDITION":10);"2 - SUBTRACTION"10);"3 - MULTIPLICATION":10);"4 - DIVISION"TYPETYPE1TYPE41011I112ANS%(I)0I:10"WHAqI11000:Iv/  READ THE KEYBOARD=!16368,0L"TME1:Z10Y%J1LPSi*X(16384)x/X127890216368,04X141İ5000:5X19390006X195Z10:X17695000>Z1Z110CZ1Z1X176H12:20);Z1zJ  DIVISION Z3AB7 10);Z3;" / ";A;" = ???"V LPS750(SKFCT1)100:800_ Z2Bg :p 220 X COUNT CORRECT ANSWERS [TTL0 ]I112 bANS%(I)0TTLTTL1 gI l::"YOU'VE GOT ";TTL;" CORRECT SO FAR"oTTL119000 ,:10 - SUBTRACTION' 1Z3ABE 610);Z3;" - ";A;" = ???"d ;LPS750(SKFCT1)100:800m @Z2Bu D:~ E220 :10  MULTIPLICATION 10);A;" X ";B;" = ???" LPS750(SKFCT1)100:800 Z2AB : 220 :10 10);A;" + ";B;" = ???": LPS750(SKFCT1)100:800E Z2ABM : Z2Z1ĺ10);"SORRY WRONG NUMBER"::10);"THE CORRECT ANSWER IS ";Z2:250 ANS%(B)ANS%(B) 10);"THAT'S CORRECT" 255 K12000:K K1200:K 100MBER BETWEEN 1 AND 100 ";NUMB( Z1000@ dX(NUMB)12:X(X)M eX0X1V i600_ nJ10j sI1Xv xJ1J11 }J112J11 BJ1 ANS%(J1)0120 I ANS%(B)ANS%(B)1 ATBLE TYPE200,300,400,500 :10 ADDITIONR:":+ 5);"SKILL FACTOR OF 1 = 15 SEC"B 21);"2 = 13 SEC"Y 21);"3 = 11 SEC"p 21);"4 = 9 SEC" 21);"5 = 7 SEC" 21);"6 = 5 SEC" #:"ENTER THE SKILL FACTOR" (SKFCT -SKFCT1SKFCT6ĺ"TRY AGAIN":40 P"ENTER A NU  MATH DRILL) D.P. HEINTZELMAN9 JUNE 1979B :5[ 10);"MATH DRILL":"THIS PROGRAM REVIEWS THE MATH TABLES""FROM 1 TO 12":"THE LENGTH OF TIME ALLOWED TO GIVE""THE ANSWER IS DETERMINED BY THE" "SKILL FACTOD  (768)0Āj ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..."p ,A6: 769 (768)1250% I --IF THERE, LOAD INTG AND PA#1P 10:"(LOADING INTEGER INTO LANGUAGE CARD)" "BLOAD INTBASIC,A$D000" --WRITE PROTECT THE CARD A(16254): $C082  --NO CARD OR CAN'T RELOA804,0:805,208:806,208:807,10:808,173:809,129:810,192:811,173:812,129: s813,192:814,169:815,1:816,208:817,2:818,169:819,0:820,141:821,0: x822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: }831,192:832,9,104:W _777,72:778,205:779,0:780,224:781,208:782,35:783,173:784,131:785,192: d786,173:787,131:788,192:789,169:790,165:791,141:792,0:793,208:794,205: i795,0:796,208:797,208:798,19:799,74:800,141:801,0:802,208:803,205:N nq -- DOS 3.3 HELLO  (:.(Y2"DOS VERSION 3.3 08/25/80"<:"APPLE II PLUS OR ROMCARD SYSTEM MASTER"F P --POKE LANGUAGE CARD FINDER Z768,0:769,173:770,0:771,224:772,72:773,173:774,129:775,192:776    ٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơ$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Lׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ hL  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  / ) ) "&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فŴxaI10 &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00               ";  J    I$ R(J,K) @B(J,K)TB(J,K)! J K. T L1 R> ^ LJ 410L hTA(L,J)Y r K1 Rt |A(L,K)A(L,K)TA(J,K) B(L,K)B(L,K)TB(J,K)  K  L  J  : "THE INVERSE MATRIX IS :"::::  I1 R  J1 R B(I,J);" J J1 R IJ R4 A(I,J)0 210< IY ::"SINGULAR MATRIX":c 500q K1 R SA(J,K) A(J,K) A(I,K) A(I,K)S SB(J,K) B(J,K)B(I,K) B(I,K)S  K "T1A(J,J) , K1 R 6A(J,K)TA& :15# "MATRIX INVERSION")O:::"SQUARE MATRIX ONLY":::g A(10,10),B(10,10)("ENTER DIMENSION OF MATRIX"2 R<"MATRIX ELEMENTS :"F J1 RP I1 RZ"A(";J;I;") = ";d A(J,I)x IB(J,J)1    RD...TWO DISK SIDES+ ARE YOURS WHEN YOUG IDENTIFY WITHOUT DOUBTa THAT A FILE ON THIS { DISK IS COPYRIGHTED! P xAAA HELLO#PUBLIC DOMAIN=BY RONALD D. MALEIKAR721 PIKE STREETjCHEYENNE, WY 82001{28 FEB 198111843,5@"APPLE AVOCATION ALLIANCE, INC."TP11000:Ph1184|(4);"CATALOG" REWA TRIX IS:":: I1 R1*# J1 C22(S0@- K1 C1V2SSA(I,K)B(K,J)^7 Kj9S;" ";r< JxFP Ix 10000'; I::"MATRIX 2"- J1 R2; I1 C2U"ENTER B(";J;I;")=";b B(J,I)l I,Jv::"THE MATRIX YOU ENTERED WAS:"  I1 R2 J1 C2B(I,J); J  I: :"THE RESULTANT MATRIX 1 WAS ";R1;" X ";C1; E:"MATRIX 2 WAS ";R2;" X ";C2F L 1010U V J1 R1c ` I1 C1} j"ENTER A(";J;I;")="; t A(J,I) ~ I,J ::: "THE MATRIX YOU ENTERED WAS"  I1 R1  J1 C1 A(I,J);  J   D  D1 60  10000+  I1 251 9  I\ "MATRIX MULTIPLICATION":::b  "DIMENSION OF MATRIX 1 (I,J)";  R1,C1 $"DIMENSION OF MATRIX 2 (I,J)"; . R2,C2 8 C1R2 1110 B"ILLEGAL MATRIX DIMENSION" D:"MA , K 1:6 6:"THE RESULTANT MATRIX IS:":::D ; J1 RQ @ I1 Cb J D2 350u TB(J,I)B(J,I) ^ D3 380 h A(J,I)B(J,I);" "; r 390 | A(J,I)S;" ";  I   J  "RUN AGAIN ? 1=YES, 0=NO"  260 A(J,I) 270*  B(J,I)4  I,JF ::::::S  I1 R`  J1 Cp  K2 283 A(I,J);" ";  J   I  K2 290  I1 R  J1 C B(I,J);  J  ! I " D3 310 ': \ D _D120,120,100,1000< d"ENTER VALUE OF SCALAR";D n Sf x"DIMENSION OF MATRIX (I,J)";p R,C~ K1 2 K2 180 "MATRIX 1:" 190 "MATRIX 2:" J1 R I1 C "ENTER ELEMENT A(";J;I;")"; K22 A(10,10),B(10,10)#<:10NE"---------MATRIX OPERATIONS---------"bH:::::::K"ADDITION = 1 SUBTRACTION = 2 "N:"SCALAR MULTIPLICATION = 3 "Q:"MATRIX MULTIPICATION = 4"W:Z"WHICH OPERATION DO YOU WANT ?";  WY 82001" > "HIT 'C' FOR CATALOG - 'RETURN' TO QUIT"F C$V C$"C"780c 1184:p 1184: (4);"CATALOG" 4C"** PLEASE, SEND US A COPY **"$  "WE'LL RETURN YOUR DISKETTE, RECOPIED WITH ANY DISK SIDE YOU CHOOSE FROM THE LIBRARY, WITH OUR THANKS."  05 D"APPLE AVOCATION ALLIANCE, INC." X12 l"721 PIKE STREET" 10 "CHEYENNE, YOU HAVE FOUND SOME OF THESE PROGRAMS HAVE FAULTS AND YOU FIXED THEM?MAYBE YOU EVEN TOOK SOME PAINS TO RE- WRITE A FAULTY PROGRAM? IN ANY CASE..."  "WE WOULD LIKE TO HARVEST YOUR 'IMPROVED'PROGRAMS FOR OTHERS TO ENJOY AND USE." 6 x AAA MESSAGE' PUBLIC DOMAINB BY RONALD D. MALEIKAX 721 PIKE STREETq CHEYENNE, WY 82001 28 FEB 19811184:,12@"AN INVITATION FOR"T5h"APPLE TREES AND APPLE SEEDLINGS"| "PERHAPS    TINUE INSTRUCTIONS HIT RETURN"'=U1$-@ZB"THE INPUT FOR GROUPED VALUES HAS THE "sG"FOLLOWING FORMAT:"yLV" 1 DATA 0,N, X(1), F(1), X(2), F(2)..."[".......,X(N), F(N)"`j"WHERE THE INITIAL ZERO SIGNALS GROUPED"$o"DATDED, ADDITIONAL DATA"@ "STATEMENTS MAY BE USED TO GIVE THE "k $"ENTIRE LIST OF VALUES. ADDITIONAL " )"CASES MAY BE GIVEN IN SUBSEQUENT DATA" ."STATEMENTS IN THE SAME FORMAT." 3 4"---------------------------------------"8"TO CONOR FREQUENCY DISTRIBUTIONS."" P "DATA FOR EACH SET OF INDIVIDUAL VALUES" "IS ENTERED INTO THE PROGRAM AS FOLLOWS:"  " 1 DATA N, X(1), X(2), X(3),....,X(N)"  "WHERE THE N VALUES OF THE SET ARE X(1)" "THRU X(N). IF NEE VARIANCE = ";V1 f" p+ z360< "ESTIMATES"\ "OF POPULATION PARAMETERS"b h n  "THIS PROGRAM CALCULATES THE MEAN," "VARIANCE, AND THE STANDARD DEVIATION " "FOR EACH OF SEVERAL SETS OF INDIVIDUAL" "VALUES D "; 900- " NUMBER OF VALUES = ";NM " ARITHMETIC MEAN = ";Ap " STANDARD DEVIATION = ";(V) " SAMPLE VARIANCE = ";V * 4"UNBIASED "; >900 H" ARITHMETIC MEAN = ";A R" STANDARD DEVIATION = ";(V1) \" "X,M &P 0710" D::C N"INDIVIDUAL SET NUMBER ";HK X:a b"SAMPLE VALUES:"j vNCu P1N| X S1S1X S2S2XX X;" "; P  AS1N V(S2AS1)N V1VN(N1)  "MAXIMUM LIKELIHOOOTO0Y'^O09E202000.hC9rHH1J|C9E201500TS10^S20lC0590"FOR GROUPED DATA SET ";HQN0" X-VALUE"," FREQUENCY"P1QX,MNNMS1S1MXS2S2MXX520R(I32)59DI;" DEGREES FAHRENHEIT = "R;" CELSIUS"JS100d"RUNHELLO" ERS" r520. |I;" GALLONS = ";R;" LITERS"7 520X I;" BUSHELS = ";R;" LITERS"a 520 I;" PECKS = ";R;" LITERS" 520 I;" OUNCES = ";R;" GRAMS" 520 I;" POUNDS = ";R;" KILOGRAMS" 520 I;" TONS = ";R;" KILOGRAMS"520' I;" MILES = ";R;" KILOMETERS"0 520Y I;" TSP. = ";R;" CUBIC CENTIMETERS"b "520 ,I;" TBSP. = ";R;" CUBIC CENTIMETERS" 6520 @I;" CUPS = ";R;" LITERS" J520 TI;" PINTS = ";R;" LITERS" ^520 hI;" QUARTS = ";R;" LITVERTED"; I RIC(N)[ N180,200,220,240,260,280,300,320,340,360,380,400,420,440 I;" INCHES = ";R;" CENTIMETERS" 520 I;" FEET = ";R;" CENTIMETERS" 520 I;" FEET = ";R;" METERS" 520 I;" YARDS = ";R;" METERS" C(N) <NK F 2.540,30.480,.3048,.9144,1.609,4.929,14.788,.2366,.4732 P .9463,3.785,35.24,8.809,28.3495,.4536,907.2,.6214 Z"(TO END PROGRAM ENTER 0)" d"WHICH CONVERSION DO YOU NEED"; nN xN0540 N17100 "VALUE TO BE CON. PINTS TO LITERS":"10. QUARTS TO LITERS":"11. GALLONS TO LITERS":"12. BUSHELS TO LITERS" "13. PECKS TO LITERS":"14. OUNCES TO GRAMS":"15. POUNDS TO KILOGRAMS":"16. TONS TO KILOGRAMS":"17. FAHRENHEIT TO CELCIUS"  C(17) (N117 2f :"ANGLO TO METRIC"::"1. INCHES TO CENTIMETERS":"2. FEET TO CENTIMETERS":"3. FEET TO METERS":"4. YARDS TO METERS":"5. MILES TO KILOMETERS":"6. TEASPOONS TO CUBIC CENTIMETERS"\ "7. TABLESPOONS TO CUBIC CENTIMETERS":"8. CUPS TO LITERS":"9     RRAY(COUNTER,TWO)ARRAY(SEARCH,TWO):ARRAY(SEARCH,TWO)TEST:SEARCHWUNU nSEARCH:50n xMODEWUN3:MAXTEST BIGGEST0:SEARCHWUNCOUNTER:TESTARRAY(SEARCH,TWO):TESTBIGGEST150 BIGGESTTEST:MODE(MODE,TWO)ARRAY(SEARCH,WUN):MODE(MODE,WUN)ARRAWUN:COUNTER1002303 <NUMBER:NUMBER9999980P FCOUNTERCOUNTERWUN:120 PARRAY(COUNTER,WUN)NUMBER:ARRAY(COUNTER,TWO)WUN ZSEARCHCOUNTERWUNWUN(WUN):ARRAY(SEARCH,WUN)NUMBER110 _ARRAY(SEARCH,TWO)TEST110E dARRAY(COUNTER,TWO)AE END. AFTER ENTERING";:"DATA, RERUN PROGRAM AT LINE 15...":X :(12):"WORKING..."v  ** PROGRAM TO FIND MODE  ** DAVE MOGER ARRAY(100,2),MODE(3,2) (SEARCH0:NUMBER0:TEST0:COUNTER0:WUN1:TWO2:BIGGEST0:MAX0: 2COUNTERCOUNTERz:(10):"THIS PROGRAM FINDS THE MOST OCCURING":"NUMBER IN A GROUP OF NUMBERS IN DATA":"STATEMENTS IN LINES 261+.":"HAVE YOU TYPED IN THE DATA":"STATEMENTS? ";A$:A$"Y"15> :"ENTER DATA IN LINES 261+, USING THE":"NUMBER -99999 AT THS TO LITERS(9 11- GALLONS TO LITERS D9 12- BUSHELS TO LITERS^9 13- PECKS TO LITERSx9 14- OUNCES TO GRAMS9 15- POUNDS TO KILOGRAMS9 16- TONS TO KILOGRAMS9 17- DEGREES FAHRENHEIT TO DEGREES CELSIUS 2- FEET TO CENTIMETERS18 3- FEET TO METERSK8 4- YARDS TO METERSi8 5- MILES TO KILOMETERS8 6- TEASPOONS TO CUBIC CENTIMETERS8 7- TABLESPOONS TO CUBIC CENTIMETERS8 8- CUPS TO LITERS8 9- PINTS TO LITERS 9 10- QUARTO METRICT7q THIS PROGRAM CONVERTS A MEASURE GIVEN IN ANGLO UNITS TO METRIC UNITS.7v YOU MUST PROVIDE THE VALUE OF THE ANGLO MEASUREMENT & THE NUMBER OF THE CONVERSION WHICH YOU WISH TO PERFORM (AS LISTED BELOW).7 1- INCHES TO CENTIMETERS832)5916I;"DEGREES FARENHEIT =";R;"CELSIUS"76O6 - RESTART PROGRAMX6100^66X PUBLISHED BY ADAM OSBORNE & ASS., INC. P.O. BOX 2036 BERKLEY, CALIF. 947026b **** SOME COMMON BASIC PROBLEMS ****6g PAGE 1877l ANGLO T520!5I;"BUSHELS =";R;"LITERS"*5520F5I;"PECKS =";R;"LITERS"O5520k5I;"OUNCES =";R;"GRAMS"t55205I;"POUNDS =";R;"KILOGRAMS"55205I;"TONS =";R;"KILOGRAMS"55205 - CONVERT FROM DEGREES FARENHEIT TO CELSIUS6R(IERS" 452044I;"TSP. =";R;"CUBIC CENTIMETERS"=4"520d4,I;"TBSP. =";R;"CUBIC CENTIMETERS"m465204@I;"CUPS =";R;"LITERS"4J5204TI;"PINTS =";R;"LITERS"4^5204hI;"QUARTS =";R;"LITERS"4r5204|I;"GALLONS =";R;"LITERS"5N180,200,220,240,260,280,300,320,340,360,380,400,420,440,460,480,500i3I;"INCHES =";R;"CENTIMETERS"r35203I;"FEET =";R;"CENTIMETERS"35203I;"FEET =";R;"METERS"35203I;"YARDS =";R;"METERS"35204I;"MILES =";R;"KILOMET;2nN2w - END PROGRAM?*2xN0540E2-CONVERSION AVALABLE?S2N17100q2"VALUE TO BE CONVERTED";x2I2-PERFORM CONVERSION USING PROPER CONVERSION FACTOR2RIC(N)2-DIRECT PROGRAM TO PROPER CONVERSION UNITS, PRINT RESULTSG3D1F 0.3937,3.281E-2,3.281,1.094,0.6214,.01136,.003785,.2366,2.1131P 1.057,0.2642,0.02838,2.104,0.3527,2.205,9.842E-4,0.6214,01Y-GET NUMBER OF CONVERSION FROM PROGRAM DESCRIPTION1Z"(TO END PROGRAM ENTER 0)"2d"WHICH CONVERSION DO YOU NEED" 00600,7170::50 "ANGLO TO METRIC";0q0 - ESTABLISH VARIABLES FOR 17 CONVERSION FACTORS|0C(17)0' - LOOP TO ASSIGN CONVERSION FACTORS INTO C( )0(N11702C(N)0<N1E - DATA TABLE OF SEVENTEEN CONVERSION FACTORS     I F1,I (I 2N' WRITTEN BY PAUL CHASTAIN,AGE 13R GIFTED STUDENT AT HENDERSON JR. HIGHp STARKVILLE, MISSISSIPPI LEARNING TO PROGRAM THE APPLE APRIL 1980"TYPE IN A NUMBER LESS THAN 34"NN33ī5F11 IN11 F1F1  REES":- d"ARCCOS(";X;") = ";XC;" DEGREES"8 n::30M9  :&"ARCSIN AND ARCCOS"::Q:"SIN OR COS (RADIANS) ? ";X:X030q(CF.017453294:DF57.29577472C(X)X(((1XX)).0001)<D(X)((1XX))XFX3(C(X)):X4(D(X))PXSX3DF:XCX4DF Z:"ARCSIN(";X;") = ";XS;" DEG TO";::*"'";X;"' DEGREES FAHRENHEIT"09900C1000NFREES FAHRENHEIT IS EQUAL TO";::C~"'";X;"' DEGREES CENTIGRADE"IR900\1000b CENTIGRADE CONVERSION:"ENTER CENTIGRADE # THEN HIT RETURN ";:T:X(T9532)"'";T;"' DEGREES CENTIGRADE IS EQUAL F OR C ";:T$($(T$,1)"F"ī1100?.(T$,1)"C"ī1200G8:iB"ENTER AN 'F' OR 'C' ONLY":sK1050yLM FAHRENHEIT CONVERSIONNQ:V"ENTER FAHRENHEIT # THEN HIT RETURN ";:T`:jX((T32)59)!t"'";T;"' DEG0 ~ THIS ROUTINE DOES FAHRENHEIT TO CENTIGRADE CONVERSIONS AND BACKT0:X0:5"FAHRENHEIT TO CENTIGRADE OR":"CENTIGRADE TO FAHRENHEIT IS THE FUNCTION":"ENTER C33.14159C1C1:-f"THE RADIUS IS ";C1:Jk"THE DIAMATER IS ";C2:op"THE AREA OF THE CIRCLE IS ";C3xz900800 THIS ROUTINE DOES MENU RETURN CHACKING:"DO YOU WISH TO CONTINUE (Y) OR (N) ";:Z$(Z$,1)"N"18! THIS ROUTINE DOES THE AREA FO A CIRCLE>"T*C10:C20:C30]4:5>"CALCULATING THE AREA OF A CIRCLE IS THE FUNCTION"H::R"ENTER THE RADIUS ";:C1:\C2C1C1:C33.14159C2:eC2C1C1:TOTAL = ";E1900600$R THIS ROUTINE DOES SQUARE ROOTXbQ10k:5"SQUART ROOT IS THE FUNCTION"::"ENTER # ";:Q1::"THE SQUARE ROOT OF ";Q1:" EQUALS ";(Q1)900700 D"TOTAL = ";D1N900#W500)XZY THIS ROUTINE DOES ECPONENTIATION`ZrbE10:LSTE20{l:5v"EXPONENTIATION IS THE FUNCTION"::"ENTER # ";:E1:" ^ ":"ENTER # ";:E2:E1E1E2 "400 4 THIS ROUTINE DOES DOVISION:JD10:D20S:5s"DIVISION IS THE FUNCTION"}::&"ENTER # ";:D1:+" / ":0"ENTER # ";:D2:5D20ĺ"YOU CAN'T DEVIDE BY ZERO ":900::555:D1D1D20 300 A  THIS ROUTINE DOES MULTIPLICATIONG W M10:M20` :5 "MULTIPLICATION IS THE FUNCTION" :: "ENTER # ";:M1: " * ": "ENTER # ";:M2: M1M1M2 "TOTAL = ";M1 900 ";A1 "900 +200 ,K - THIS ROUTINE DOES SUBTRACTIONQ .a 6S10:S20j @:5 J"SUBTRACTION IS THE FUNCTION" T:: ^"ENTER # ";:S1: c" - ": h"ENTER # ";:S2: rS1S1S2 |"TOTAL = ";S1 90:"ENTER CORRECT SYMBOL PLEASE"* 1150 [ THIS ROUTINE DOES ADDITIONa q A10:A20z :5 "ADDITION IS THE FUNCTION" :: "ENTER # ";:A1: " + ": "ENTER # ";:A2: A1A1A2 "TOTAL = E TO END THE PROGRAM"# s8 x" ";:F$N (F$,1)"+"ī200d (F$,1)"-"ī300z (F$,1)"*"ī400 (F$,1)"/"ī500 (F$,1)"^"ī600 (F$,1)"S"ī700 (F$,1)"A"ī800 (F$,1)"T"ī1000 (F$,1)"E"Ā! * FOR MULTIPLICATION"6 d" / FOR DIVISION"\ n" ^ FOR EXPONENTIATION" o" S FOR SQUARE ROOT" p" A FOR THE AREA OF A CIRCLE" q" T FOR FAHRENHEIT TO CENTIGRADE CONVERSION": r" E  :+ DONTATED BY KEVIN ARMSTRONGe THIS PROGRAM WILL FUNCTION AS A CALCULATORks5:("ENTER THE FUNCTION YOU WISH TO PERFORM"2<F" + FOR ADDITION"P" - FOR SUBTRACTION" Z"      1(K2T1)(C1(K3T1)C1):X1,39(1Y1)^ 9:Z(1C2(K1T1)C1(K2T1)):X1,39(1Z)d  "PLOT OF CONC. VS TIME FOR RXN A(BLUE)->B(GREEN)->C(ORANGE) K1=";K1;",K2=";K2;",TIME=";T1 I:X1,YR(1Z) .s 8"PLOT OF CONC. VS TIME FOR RXN A(BLUE)->B(GREEN)->C(WHITE) K1=";K1;" ,K2=";K2;" ,TIME=";T1y B  THIS SUBROUTINE PRODUCES A LOWRES PLOT. :5:0,3939 I039:X1I:T15K139I 2:X(K1T1):X1,39(1X)* 4:YXRI% X(K1T1):X1,YR(1X):F 1:0,159: PLOT (B) VS TIMEg I12794:X1I:T1AK1XRI Y1(K2T1)(C1(K3T1)C1):X1,YR(1Y1): 3:0,159: PLOT (C) VS TIME I12794:X1I:T1AK1XRI $Z(1C2(K1T1)C1(K2T1))000( "DO YOU WANT ANOTHER PLOT ?";B$9 B$"Y"ī140? m  THIS SUBROUTINE PRODUCES A HIGHRES PLOT :3:0,00,159:0,159279,159 A5:XR279:YR159: SET RANGE PARAMETERS 2: PLOT (A) VS TIME 0,0 I12794:X1I T1AK1 RESOLUTION.WRITTEN BY G.SCOTT OWEN 7-8-78."= I12000:I "DO YOU WANT A HIGH RESOLUTION(HR) OR LOW RESOLUTON(LR) PLOT?" A$ "INPUT THE RELATIVE VALUES OF K1 AND K2?";K1,K2 K3K2K1:C1K1K3:C2K2K3 A$"HR"İ1000 A$"LR"İ2& CONSECUTIVE REACTIONS A->B->C ] WRITTEN BY DR. G. SCOTT OWEN, ATLANTA UNIVERSITYcdn"THIS PROGRAM PLOTS THE CONCENTRATION, VERSUS TIME,OF THE THREE COMPONENTS IN A CONSECUTIVE REACTION.", x:"THE PLOT CAN BE IN EITHER HIGH OR LOW:Y2Y:YY(R12):K1ı4 :" F(X)'' =";:210:Y K11:X3XQ:S1X3D12:XQX3S1:164:Y3Y:XQX3S1:164:YY3Y:YY(S12):K10 210::" F(X)''' =";Y:108 X1X:Q1X1D1:XX1Q1:10:Y1Y:XX1Q1:10:YY1Y:YY(Q12): Y(Y1000)1000;B1:" -":" /":" / F(X) D(X)= ";YT:" /":" -" :" A= ";A1:108 :" DELTA PERCENT ";D1::" X= ";X:D1D1100:XQX 10::" F(X) =";Y 200:210::" F(X)' =";Y X2XQ:R1X2D1 :XX2R1:200:Y2Y:XX2R1:200:Y ";A$:A$"D"150" mA$"I"108G n:" NUMBER OF ITERATIONS ";I1 s:" STARTING X VALUE (A)";A1::" ENDING X VALUE (B)";B1 xS1(B1A1)(2I1):S1S1A1:T1(B1A1)I1:YT0:XS1B1T1:10:YTYTY:X:YTYTI1:YTYT(B1A1)Q }:" B= "T":" ADDRESS 10. STEPS 10-98 AVAILABLE."u f" INPUT ARGUMENT = X. PLACE RESULT IN":" Y. EXAMPLE: 10 Y=X^2" g" ALL LETTERS EXCEPT X AND Y":" AVAILABLE, CONSTANT VALUES MAY BE":" PLACED IN STEPS 1-8" l:" INTEGRAL (I) OR DIFF (D)  1006 936:"FUNCTION NOT ENTERED AT 10"::<cd936::" INTEGRAL AND DIFFERENTIAL CALCULUS"::" P. LUTUS 12/77"::" INTEGRATES OR FINDS F(X) THROUGH", e" F(X)''' FOR A USER SUPPLIED FUNCTION.":" ENTER FUNCTION STARTING A     ."; 240 " -";! A102 YY2 420C YY1 420S YPY1 2DYb ZYP.5DYr  ZY 390| "AA1 , ZY2DY 370 6 ZYDY 350 J" +" T 510 ^" +" h 510 r"+" | 510 YPYP3DY " ";  :700J0  Y(45)0F J1 700@P J0 100FZRd:::pn"ENTER YMIN,YMAX ";Y1,Y2x"ENTER XMIN,XMAX,DELTX ";X1,X2,X3DY(Y2Y1)30A0J2 XX1 X2 X3 10 A0 450 A20 220 "  *"8"***************************************"::T#"SELECT A CATEGORY..."Z(~-4)"1...DIFFERENTIAL CALCULUS"24)"2...INTEGRAL CALCULUS"7::<"TYPE 1 OR 2 AND HIT RETURN ";Z:2ES ";2DD1:Y41508 SUBROUTINE INITIALIZE>I:(4)x"***************************************""* *" "* CALCULUS PROGRAM *""* 199999ĀEFF***CALCULATE THE DIFFERENCE QUOTIENTS FOR POINTS bG APPROACHING X***hHJD0:N110:D1D:XX1.5N:D(C(X)C(X1))(XX1):NOP***APPROXIMATE DERIVATIVE OF FUNCTION AT X,PRINT***Q T" IION AT A GIVEN POINT."A"YOU MUST ENTER THE FUNCTION ON LINE"n"4100. SEE LINE 4100 FOR AN EXAMPLE..."v:"ENTER X = 99999 TO END PROGRAM"C(X)X26"DERIVATIVE AT X = ";:X1;<***TEST FOR END OF PROGRAM***= @X *"U"* DERIVATIVE PROGRAM *""* *""***************************************":"THIS PROGRAM CALCULATES THE DERIVATIVE""OF A GIVEN FUNCTERVAL FUNCTION VALUES***" DDY)T I/ R ***COMPUTE INTEGRAL, PRINT***X  "INTEGRAL IS ";X13(Y14C2DY2) ::: "HIT THE TAB KEY WHEN FINISHED" A$:5:(4)"***************************************"&"* (X) AT INTERVAL";I;"(X=";AIX1;")";+ Y5 2500; . i / ***CALCULATE F(X) AT EACH SUBINTERVAL***o 0 ` YC(AIX1) I2(I2)2800 ***SUM ALL ODD-INTERVAL FUNCTION VALUES*** ( CCY:2900  ***SUM ALL EVEN-INT# "FIRST,FINAL VALUE OF F(X)". Y1,Y28 x1700E Y1C(A)R @Y2C(B)^ C0:D0d  ***LOOP FOR EACH SUBINTERVAL***  lI1NMNTS.5 S12400 * +***ENTER FUNCTION VALUE AT EACH SUBINTERVAL*** ,$ 4"VALUE OF F,B7 "NUMBER OF SUBINTERVALS";:NMNTS:X1(BA)NMNTS= } ***INCREMENT MUST DIVIDE INTERVAL INTO EQUAL INTERVALS**** "THE INCREMENT = ";X1 LS11500   ***FORMULA NOT KNOWN-ENTER FUNCTION VALUES AT INTEGRATION LIMITS***  Z"150 FOR AN EXAMPLE....":1 "SELECTION:"O " 1 = KNOWN FORMULA"o " 0 = UNKNOWN FORMULA"v S| ***ENTER FUNCTION OF X ON LINE 150*** ***IE...DEF FN C(X)=...*** C(X)X2 "LOWER,UPPER LIMIT" A**************" 7:E <"THIS PROGRAM APPROXIMATES THE DEFINITE"t A"INTEGRAL OF A FUNCTION. YOU MUST EITHER" F"SUPPLY THE FUNCTION OF THE CURVE OR ITS" P"VALUE AT SPECIFIED INTERVALS. FUNCTIONS" U"MUST BE DEFINED ON LINE 150. SEE LINE" 5000Z14000$:(4)S "***************************************""* *""* INTEGRATION: SIMPSON'S RULE *"("* *" 2"*************************     ,15914I,159NIP(I)100014(I1),159NIP(I)100014(I1),159F 11u 2I147,159AVG(I)(I1)147,159AVG(I1)| 6I (22):" 1 2 3 4 5 6 7 8 9 10" SNIP(20),AVG(20)" :936>"ENTER RECENT NIPS:":X"USE BIG NUMBERS:":bSUM0nI110("DAY ";I;":";:NIP(I)-SUMSUMNIP(I):AVG(I)SUMI10002IZ_3d0,0279,0279,1590,1590,0I110"3? ,14I,"92 CENTS",92,500/ "STEAK","$1.78",178,300O  "ORANGES","$1.03",103,200j "BREAD","$.68",68,100 "CEREAL","$.83",83,100;"TYPE '0' TO GO ON; OR TYPE '1' TO STOP. THEN PRESS 'RETURN'."Q A:A0310z A1ĺ"I HOPE YOU ENJOYED THE GAME."  310  "SOAP","50 CENTS",50,100 "PAPER TOWELS","75 CENTS",75,100 "MILK","95 CENTS",95,100 "A DOZEN EGGS"+ GCTĺ"TOO MUCH. YOU OVERPAID ME BY";Y GCTĺ"NOT ENOUGH. YOU UNDER PAID ME.";s A(GCT)100:Z(A) Y((GCT)Z100) Z0ĺY;" CENTS":465 ;"DOLLARS AND";T;"CENTS." 500 "TYPE 'O' AND PRESS 'RETURN'.":A 315A DOL-QUART-DIMES-NICKELS-CENTS"- ^S1510D c2);:S:S1350[ h9);:H:H1350s r18);:Q:Q1350 |24);:D:D1350 29);:N:N1350 36);:P:P1350 CS100H50Q25D10N5P GCTĺ"CORRECT CHANGE.":500 {"PENNIES, NICKELS, DIMES,"+ }"ETC."1 ~7 = C I X 6A$,B$,T,Gh 8G0Į:310n ; @"I BOUGHT ";A$;" THAT COST ";B$;"." E"I GIVE YOU ";G100;" DOLLARS FOR IT." F"WHAT DO YOU GIVE ME IN CHANGE?" Q T"DOLLAR-HLF d" CASH REGISTER PROGRAM"&iJn"PRETEND YOUR ARE RUNNING THE"lp"CASH REGISTER AT THE LOCAL"r"SUPER MARKET. I WILL BUY"t"THINGS AND GIVE YOU THE"u"MONEY TO PAY FOR THEM."w"YOU MUST GIVE ME THE"y"CORRECT CHANGE IN"     "5q" WITH MOTOR SHAFT SPEED";:30:RM;" RPM"]v" GEAR RATIO";:30:(K);":1"" MOTOR SHAFT TORQUE";:30:K1;" ";K$:30:ES;" VOLTS";D" MAX CURRENT";:30:IP;" AMPS"iN" RUNNING CURRENT";:30:IR;" AMPS"X" WATTAGE";:30:P;" WATTS"b" WITH GEAR TRAIN TORQUE";:30:TF;" FT-LBS"g23:"OR ";TI;" IN-OZS"l:"OR SEPERATE GEAR TRAINTINUE...";A$:316:"SUMMARY":"GIVEN:":V"ROBOT WEIGHT";:30:W;" LBS"x" SPEED";:30:S;" RPM"" WHEEL DIA.";:30:D;" IN"&0"MOTOR SPECIFICATIONS:"::" HORSEPOWER";:30:HP;" HP"?" VOLTAGE";(TFK.5):TN((TIK)10.5)10:K1TM:K$"FT-LB"MwK11K1TN:K$"IN-OZ"|:" THE GEAR SYSTEM SHOULD HAVE A STEP-DOWN RATIO OF ";(K);":1 AND BE":"CAPABLE OF HANDLING A ";K1;" ";K$:"TORQUE AT ITS OUTPUT." :::"HIT 'RETURN' TO CON ASSEMBLY IS NOT AVAILABLE AS A UNIT, ADDITIONAL CALCULATIONS WILL BE NECESSARY."f O T" DO YOU WISH TO CALCULATE (Y/N) ";:A$:(A$,1)"N"500 ^::"WHAT IS THE MOTOR SHAFT SPEED (RPM)": h10:RM:2rKRMRG:TM THE MOTOR NEEDED:":3 10:HP;" HORSEPOWER":I 10:P;" WATTS":k "10:"TORQUE - ";TF;" FT-LBS" ,10:" OR ";TI;" IN-OZS": 610:IP;" AMPS (START-UP/STALL)": @10:IR;" AMPS (RUNNING)":` J" IF THE ABOVE MOTOR/GEAR TRAIN 40 P(P101)10< IPP1ES:I1IP:IP(IP100.5)100` IRI1(1E):IR(IR100.5)100 :" A ROBOT DRIVE MOTOR TO HANDLE ";W:"POUNDS AND RATED AT ";ES;" VOLTS WOULD":"REQUIRE A GEAR TRAIN TO TURN THE WHEEL AT ";RG;" RPM.": ".5)10& nTI8WD:TI(TI10.5)10F xHP(1.8SW)1000:HP1140Z HP(HP1):200i HP.1160 HP(HP101)10:200 HP(HP1001)100 HP.1E.7 HP.1HP1E.8 HP1E.9 P1.36SWE:P1P:P10230 P(P1):2. 2"MAXIMUM EXPECTED WEIGHT (LB)"::20:W:e <"MAXIMUM STRAIGHT-LINE SPEED (FT/SEC)"::20:S: F"DRIVE WHEEL DIAMETER (INCHES)"::20:D: P"MOTOR SUPPLY VOLTAGE (VOLTS) "::20:ES ZRG7203.14159SD:RG(RG.5) dTFW24D:TF(TF10 Q ::7:15:"R O B O T"::10:"D R I V E M O T O R"::15:"D E S I G N"]:::13:"JERRY JENKINS":14:"APPLE CORPS":12:"BIRMINGHAM, ALA.":14:"OCT. 3, 1978"::::A14000::(" MOTOR SHAFT TORQUE";:30:T1;" ";K$ ETURN' ";:A$:::20NR THE RADIUS AND PRESS 'RETURN'AND IT WILL DO THE REST.": "TO EXIT THE PROGRAM JUST PRESS 'RETURN' WHEN IT ASKS FOR THE RADIUS. TO START IT AGAIN JUST TYPE 'RUN'." :"TYPE 'HELP' AT ANY TIME TO REPEAT THESE INSTRUCTIONS." 24::" PRESS 'R60 (APIR2:C2PIR0 -:5);"AREA= ";AF 25);"CIRCUM= ";CN 725g <(37)2:958:34,0m A d INSTRUCTIONS n3:958 x"THIS PROGRAM WILL CALCULATE THE AREA ANDCIRCUMFERENCE OF A CIRCLE WITH A GIVEN RADIUS.":: "JUST ENTE SERIAL #01-032780-1226A. CIRCLEA BY ED MAGNINO 11/4/79{ N$"CIRCLE"::::17);N$;17)::34,2:"DO YOU WANT INSTRUCTIONS? ";R$::(R$,1)"Y"100PI3.1415926"RADIUS=";R$:R(R$):R$"HELP"100 #R0   0 22:"< PRESS THE SPACE BAR TO CONTINUE...>"H (16384)1553100a  (16384)1603060s  :16368,0:  3090:16298,0:10:10:"* * * THE END * * *":52010 GY95Y95& HY95Y954 L0X,95Y; ID 100J W 0:1095j 5:"SIN PLOT" :"BY WM. DIAL" "MARCH 1979" ::"THIS PROGRAM USES H-GRAPHICS TO" "DISPLAY THE SIN FUNCTION" 21:" PRESS THE 'ESC' TO END XY50(RAD) 0X,95Y& I- 27 0,95F I18375P XI3e RADI1803.1416u Y50(RAD) 0X,95Y I 1010  1 0,95 I1837 1 XI3 RADI1803.1416 BY50(RAD) DY95Y9:16298,0:3000=2 WRITTEN BY WM.R.DIAL,AKRON,OHIOt< SIMPLE DEMO OF GRAPHIC SIN PLOTING FUNCTION ON Szd10,95279,953120,90120,100240,90240,1003,0,95^I18375hXI3 RADI1803.1416C16384)160355#|16368,0:::) GIVEN TO APPLE CORE OF SAN FRANCISCO FOR USE OF MEMBERS SEPT. 1979 BY MAX J. NAREFF...  LAST MOD. SEPT.1979 FOR CONVENTIONS UPDATE.& 'COMPOUND INTEREST'0CT$"SEPTEMBER 1979":250K E:CT$"CALCULATES COMPOUND INTEREST ON":250t JCT$"ANY AMOUNT FOR ANY LENGTH":250 OCT$"OF TIME":250 ^21:" PRESS THE 'ESC' TO END" c22:"< PRESS THE SPACE BAR TO CONTINUE...>" h(16384)155230r(6368,0:::10:10:"* * * THE END * * *":[  PRINT CENTER ROUTINE. l 20(CT$)2u CT$ "" " , TITLE PAGE ROUTINE. 63:CT$"* COMPOUND INTEREST *":250 ;CT$"BY MAX J. NAREFF":250 @ INTEREST DESIREDW BP(1(IC))(CY):FORMULA FOR CALCULATION OF COMPOUND INTEREST TBP:LISTS TOTAL INTEREST TO DATE "YEAR=";H(Y);,"INTEREST TO DATE=";H(T) 7);"BALANCE=";H(B) PAUSE11000:PAUSE Y 350 20, 1TWO PH(W)(W100.5)100? Z10:"COMPOUND INTEREST"::X d9:"PRINCIPAL=";P: n9:"INTEREST=";I::ENTER AS A DECIMAL FRACTION x9:"COMPOUNDING PERIOD=";C:: IF DAILY ENTER 365 9:"YEARS=";X:  Y1X:ENTER # OF YEARS OFNPUT MUST BE IN DECIMAL PERCENTAGE.";T ("FOR EXAMPLE,5% MUST BE ENTERED AS .050." 2"COMPOUNDING PERIOD-ENTER AS # OF DAYS," 4"MONTHS,QUARTERS OR YEARS.":: < FOUR INPUTS ARE REQUIRED FINTEGER ROUNDING FUNCTION REDUCES DECIMAL PLACES TO 16368,0:::CT$(40)%300F12:10:"COMPOUND INTEREST"b12:X117:"*";:::5:"PREPARED BY MAX J.NAREFF FOR THE""SAN FRANCISCO'APPLE CORE'LIBRARY.1979" 350" FOUR INPUTS ARE REQUIRED.THE INTER-";% "EST I     EGRESSION"7 6::"ENTER NUMBER OF KNOWN POINTS ";:N= 7V ;J0:K0:L0:M0:R20 @I1N:"ENTER X,Y OF POINT ";I;" "; EX,Y:JJX:KKY:LLX2:MMY2:R2R2XY JI TB(NR2KJ)(NLJ2):A(KBJ)N Y ^"F(X)= ";A;" + (";B;" * I1N:"ENTER X,Y OF POINT ";I;" ";V X,Y:JJX:KKY:LLX2:MMY2:RRXY:I~ R2(NRJK)((NLJ2)(NMK2)) :"COEFFICIENT OF CORRELATION= ";R2 :"MORE DATA (Y OR N)? ";:A$ A$"Y"200 12 ,936:::12);"LINEAR R1N:PPI:I J2D:CCJ:J9 :P;" PERMUTATIONS"T :PC;" COMBINATIONS"v :"MORE DATA (Y OR N)?";:A$ A$"Y"100:10 936::::5);"LINEAR CORRELATION COEFFICIENT" :"NUMBER OF POINTS ";:N J0:K0:L0:M0:R0& 00,200,300,400,500,600 M12S d936::::5);"PERMUTATIONS AND COMBINATIONS" n10:"ENTER TOTAL NUMBER OF OBJECTS ";:N x:"ENTER SIZE OF SUBGROUP ";:D DNDN150 :P"";"SUBGROUP TOO LARGE...RE-ENTER":110 P1:C1 IND}  A$(2) 936:::315);"STATISTICS"`::"1. PERMUTATIONS AND COMBINATIONS":"2. LINEAR CORRELATION COEFFICIENT":"3. LINEAR REGRESSION":"4. MEAN, VARIANCE, STANDARD DEVIATION"K:" WHICH";:X LX1T MOD. JULY 1979N3X CRITICAL PATH ANALYSIS)RT DAVIES"::.&20:" PRESS 'ESC' TO END"[+"< PRESS THE SPACE BAR TO CONTINUE...>"r0(16384)155500:(16384)160550D16368,0::FH GIVEN TO APPLE CORE OF SAN FRANCISCO BY ROBERT DAVIES..JL LASTIVITY";I:"FROM,TO,DURATION ";N1,N2,D(I)_N2N1ĺ"START NODE NOT LESS THAN END NODE":400sS(I)N1:F(I)N2|36016368,0::10:10:"* * * THE END * * *":5:"* CRITICAL PATH ANALYSIS *":" FROM CREATIVE COMPUTING":" MOD. BY ROBE3 ^C1C2ĺ"THERE IS MORE THAN ONE CRITICAL PATH"S h:"CHANGE ACTIVITY (Y/N)?"g rA$:A$"Y"380w sA$"N"390 w360 |"ENTER ACTIVITY # ":I 400 :"RE-RUN CRITICAL PATH (Y/N)?" A$:A$"Y"105 A$"N"500 390)"ACL(F(I))C3C3L(F(I)) I$ K "THE CRITICAL PATH LENGTH IS ";C3y ":"THE CRITICAL PATH IS:":" FROM TO" ' ,I1N:F1(I)0320 6I @S%S(I):F%F(I):4)S%;11)F%:C2C21:IN350 JJ1N:S(J)F(I)F1(J)0IJ:320 TJL1)M2 I3 I1N:F1(I)L(F(I))E(S(I))D(I)H F1(I)0C1C11O IU m "CP ANALYSIS IS: " " FROM TO ESTART LFINISH FLOAT" I1N S%S(I):F%F(I) 4)S%;9)F%;17)E(S(I));25)L(F(I));33)F1(I) I I1N 0:C20:C30/ kX1N:E(X)0:L(X)0:F1(X)0:XJ nI1N:M1E(S(I))D(I)f xE(F(I))M1E(F(I))M1 "MODIFIED FOR APPLE II BY ROBERT DAVIES 415/493-8330" I L(F(N))E(F(N)) IN11:L1S(I) M2L(F(I))D(I) L(L1)M2L(L1)0L(NUMBER OF ACTIVITIES? ";NC (N100ĺ"LIMIT IS 100 ACTIVITIES":30N 2I1N <"ACTIVITY ";I:"FROM, TO, DURATION? ";N1,N2,D(I) FN2N1ĺ"START NODE NOT LESS THAN END NODE":60 PE(N1)0:E(N2)0:L(N1)0:L(N2)0 ZS(I)N1:F(I)N2 dI iC15 :510:42 CRITICAL PATH ANALYSIS[ S(100),F(100),E(100),L(100),F1(100)a10:"CRITICAL PATH ANALYSIS"::"TAKEN FROM CREATIVE COMPUTING, NOV/DEC 1978, P. 86-93""MODIFIED BY ROBERT DAVIE