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/[҅n3pJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$ L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`Ʌ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0JL JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8MϕڥL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[T ";R;" CENTIMETERS"832<F:I;"INCHES ";R;" METERS"EP832ix:I;"INCHES ";R;" CENTIMETERS"r832:I;"INCHES ";R;" MILLIMETERS"832:I;"KILOMETERS ";R;" MILES"832:I;"KILOMETERS ";R;" YARDS"832@:I;"00:16368,0::EN"v:"BY MAX J. NAREFF"/"DATE: 7-79"Z::"THIS PROGRAM DOES COMMON METRIC""CONVERSIONS FOR ITEMS IN THE KITCHEN"20:"PRESS ESC TO END":"<>"(16384)272000756:(16384)3219:5:I;"SQ.FEET=";R;" SQ.CENTIMETERS".740Z:5:I;"SQ.YARDS=";R;" SQ.CENTIMETERS"c740vR(I32)(59):5:I;"FAHRENHEIT=";R;" CELSIUS"740:R((95)I)32D:5:I;"CELSIUS=";R;" FAHRENHEIT"N740l5:"METRICS KITCH740*:10:I;"POUNDS=";R;" KILOGRAMS"3740Y:10:I;"KILOGRAMS=";R;" POUNDS"b740:10:I;"INCHES=";R;" CENTIMETERS"740@:10:I;"CENTIMETERS=";R;" INCHES"J740r:5:I;"SQ.INCHES=";R;" SQ.CENTIMETERS"|740%ST.": HPL A$,B$:/ L33.5HPL.1= GL3.785G P100Y L(LP.5)Pk G(GP.5)Pt L,G{ L ANVERSION"1 n" --------------------":I xA$"PRICE/LITRE ="_ B$"PRICE/GALLON" "THE HIGH RANGE OF THE PRICE/GALLON WILL DEPEND UPON WHAT VALUE YOU ASSIGN PRICE PER LITRE." :"WHAT IS THE: HIGH-PRICE-PER-LITRE THAT YOU WISH TO LI} ::128 " * THIS IS TO CONVERT THE PRICE"c" * PER GALLON OF GAS FROM LITRE"" * PRICE RANGE STARTING AT 33.5"(" * CENTS/LITRE - AND ENDING AT"2" * A HIGH RANGE AS SELECTED." d:" GAS PRICE CO"METRICS FOR AREA".20:"PRESS ESC TO END"Y:"<>"p"(16384)271600,756:(16384)3215006:16386,0:@:0,30,40,50,40,30,50,50,50 Qa 60,70,60,50,40,50,60,70,60,50,40,30,50,50,50 b 40,30,40,50,60,70,80,70,60,50,40,30,50,50,50 ,40,40,40,30,50,50,50H\-20,-10,0,10,20,30,40,50,60,50,40,30,50,50,50{] 20,20,30,30,40,40,50,50,60,70,70,60,80,80,80^ 70,60,50,40,40,40,40,40,40,40,40,30,50,50,50 _ 40,40,40,40,40,40,40,40,40,40,40,30,50,50,50 ` 20,10,0,-10,0,10,210:C,R10C10,R:H:C10,R10C20,R:C,R10C10,RAXGzX 40,30,40,50,60,70,80,70,60,50,40,30,50,50,50Y 10,20,30,40,50,60,70,60,50,40,40,30,50,50,50 Z 80,70,60,50,40,30,20,30,40,50,40,30,50,50,50 [ 40,40,40,40,40,40,40,40P1:910;,"":"":"THE GAME IS OVER. GOOD BYE ";P$:E(23)QX125X0}pC10,R10C20,R:C,R10C10,RuHzC10,R10C20,R10: : HPLOT C, R + 10 TO C + 10,R 0:C10,R10C20,Rb@l  . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵6:I;" SQ.METES=";R;" SQ.MILES"(P480Ox:6:I;" HECTARES=";R;" SQ.MILES"X480:6:I;" SQ.KILOMETERS=";R;" SQ.MILES"4805:"METRICS AREA":"BY MAX NAREFF""DATE: 7-79"::"THIS PROGRAM DOES CONVERSIONS TO"6:I;" SQ.CENTIMETERS=";R;" SQ.INCHES"0V480X~:6:I;" SQ.METERS=";R;" SQ.FEET 2a480:6:I;" SQ.KILOMETERS=";R;" SQ.FEET"480:6:I;" SQ.METERS=";R;" SQ.YARDS"480:6:I;" SQ.KILOMETERS=";R;" ACRES"480F:;" SQ.FEET=";R;" SQ.KILOMETERS"(\480L:6:I;" SQ.FEET=";R;" METERS"U480:6:I;" SQ.INCHES=";R;" SQ.CENTIMETERS"480:6:I;" SQ.INCHES=";R;" SQ.MILLIMETERS"480:6:I;" SQ.MILLIMETES=";R;" SQ.INCHES"$480'L::6:I;" SQ.MILES=";R;" SQ.KILOMETERS"/b480V:6:I;" SQ.MILES=";R;" HECTARES"_480:6:I;" SQ.MILES=";R;" SQ.METERS"480:6:I;" ACRES=";R;" SQ.KILOMETERS"480 :6:I;" SQ.YARDS=";R;" SQ.METEERS"*480R:6:ID"; II777Ā&I888300E:EQUATION FOR COMPUTATIONpRIC(N):C(N) OBTAINED FROM DATA LOOP :DIRECT PROGRAM TO PROPER UNIT FOR PRINTOUTN600,650,700,750,800,850,900,950,1000,1050,1100,1150,1200,1250,1300,1350,1400,1450&XMETERS-SQ.MILES"D24:5:"NOTE INDEX NUMBER.PRESS RETURN";:A$:g6:"TO END PROGRAM ENTER 777":4:"FOR INDEX ACCESS ENTER 888":3:"ENTER UNIT IDENTIFICATION NUMBER";NN777ĀN888300:10:"VALUE TO BE CONVERTE8:"(11)SQ.CENTIMETERS-SQ.INCHES"Cm8:"(12)SQ.METERS-SQ.FEET"gr8:"(13)SQ.KILOMETERS-SQ.FEET"w8:"(14)SQ.METERS-SQ.YARDS"|8:"(15)SQ.KILOMETERS-ACRES"8:"(16)SQ.METERS-SQ.MILES"8:"(17)HECTARES-SQ.MILES"8:"(18)SQ.KILOETERS")J8:"(6)SQ.FEET-SQ.KILOMETERS"HO8:"(7)SQ.FEET-SQ.METERS"nT8:"(8)SQ.INCHES-SQ.CENTIMETERS"Y8:"(9)SQ.INCHES-SQ.MILLIMETERS"^10:"AREA-(METRIC TO U.S.)"_10:"--------------------"c8:"(10)SQ.MILLIMETERS-SQ.INCHES"#hC(N): READS DATA TABLE"B,10:"AREA-(U.S.TO METRIC)"b-10:"--------------------"18:"(1)SQ.MILES-SQ.KILOMETERS"68:"(2)SQ.MILES-HECTARES";8:"(3)SQ.MILES-SQ.METERS"@8:"(4)ACRES-SQ.KILOMETERS"E8:"(5)SQ.YARDS-SQ.MSS RETURN FOR INDEX";:A$:> C(18):FOR CONVERSION FACTORS[ :DATA TABLE FOR FACTORS 2.59,259,2.6E+6,.0041,.836,9.0E-8 .093,6.45,645.2,.0016,.155,10.76,1.08E+7 1.196,247.1,3.86E-7,.0039,.386 :INDEX LOOP FOR DATA READ N118 ENTER"4 "ON REQUEST.YOU WILL THEN BE ASKED FOR"c "THE VALUE TO BE CONVERTED.TO STOP ENTER" "777,AND FOR ACCESS TO THE INDEX ENTER" "888 AT ANY INPUT LEVEL.THE VALUE REQUEST" "IS REPEATED UNLESS DIRECTED OTHERWISE." 24:10:"PREH,WEIGHT"5 "VOLUME,TEMPERATURE AND A COMPILATION"] "OF MEASUREMENTS FOR KITCHEN USE." :::8:"HOW THE PROGRAM OPERATES" 8:"------------------------" 2:"ON THE NEXT PAGE IS A LIST OF MEASURE-" "MENTS.NOTE THE INDEX NUMBER AND,SANFRANCISCO,CA.1979! A:15009 d14:"INTRODUCTION"Q i14:"------------" n2:"THIS IS ONE OF A SERIES OF PROGRAMS FOR" s"THE CONVERSION OF MEASUREMENTS TO AND" x"FROM THE METRIC SYSTEM.OTHERS IN THE" }"SERIES INVOLVE UNITS OF LENGTOF THE PROGRAMMING TECHNIQUES USED HAS BEEN ADAPTED AND MODIFIED -:FROM A PROGRAM IN "SOME COMMON BASIC PROGRAMS",BY POOLE & BORCHERS,2ED.1978 2:PERMISSION FOR USE BY PUBLISHER 7:ADADM OSBORNE ASSOC.INC.BERKLEY,CA <:PREPARED BY MAX J.NAREFF:***********************=:***TABLE OF CONTENTS***\ :***INTRODUCTION.100-190*:***DATA ENTRY & LOOP.190-230*:***INDEX OF UNITS.300-400*:***COMPUTATION SETUP.415-530*:***ANSWERS*#:***********************@ (:ONE       6ĺ"WILLIE SAYS THAT YOU WERE TERRIFIC!! ";P$:5000oT17ĺ"WILLIE SAYS YOU DID A VERY GOOD JOB.....";P$T17ĺ"WILLIE WANTS YOU TO PRACTICE SOME MORE, ";P$"WOULD YOU LIKE TO PLAY AGAIN?(YES OR NO) ";N$ "N$"YES"C20:OK0:NO0:T0:P30,R509.C20,R60C10,R60C,R50C,R40C10,R30D8CC20MW530h`C10,R10C20,R:530jC,R10C10,R:530t2:C9,R33C1,R33y3~C10,R25:C9,R26:C8,R27:C1,R25:C,R26:C1,R27:1500TNOOK6T15T1:TO(23)520.M0::: GRAPHICS5R\Z16336:I15:SOUND(Z)(Z):IlOK111065|OK131120OK141130OK151140OK151150$C10,R30C20,R30C30,R40C30,R50&1070)C10,R30C20,R30:CȺ"WOULD YOU LIKE TO KEEP PRACTICING WITH THE SAME KIND OF QUESTIONS? YES OR NO":N$:N$"NO"ĺ::240}N(N$):N11580N$"YES"ĺ"ANSWER YES OR NO!":920:SET GRAPHICS MODE:H((1)5)1H4950HC20:OK0:NO0":NONO1:MM1:M256352"WRONG, TRY AGAIN":535X3" HERE IS THE CORRECT ANSWER"w4W1ĺX"+"Y"="XY:M0:5355W2ĺX" TIMES "Y"="XY:M0:5356W3XYĺX"-"Y"="XY:M0:5357W3XYĺY"-"X"="YX:M0:535::P11Į:P0f14:5430W3XYĺ"WHAT IS "Y" MINUS "X"?":543WW3XYĺ"WHAT IS "X" MINUS "Y"?"gI$:I(I$)v!I11580&W1IXYOKOK1:1000'W2IXYOKOK1:1000(W3XYIXYOKOK1:1000)W3XYIYXOKOK1:10000"":"OQ$:Q(Q$)RQ115806TQ2Q150ĺ"":330aYP0ĺ:"TYPE IN YOUR FIRST NAME ";P$j^935:SET UP NUMBERSW2S0XS:532X((1)Q)1Y((1)Q)1W1ĺ"WHAT IS "X"+"Y"?":543W2ĺ"WHAT IS "X" TIMES "Y"?":@:W1ĺ"CHOOSE THE LARGEST NUMBER YOU WOULD LIKE FOR AN ADDEND."B:W2ĺ"CHOOSE THE HIGHEST NUMBER YOU WOULD LIKE FOR THE MULTIPLICAND."CW3ĺ"CHOOSE THE HIGHEST NUMBER YOU WOULD LIKE TO WORK WITH."J"TYPE IN A NUMBER BETWEEN 2 AND 150"HE MULTIPLICATION TABLES? YES OR NO"AN$:N(N$):N11580WN$"NO"S0:310p N$"YES"ĺ"":285":"WHAT NUMBER DO YOU WISH TO USE FOR THE MULTIPLIER? TYPE A NUMBER 2 TO 20.":S$:S(S$)'S11580(S2S20ĺ"":2906D# :"WOULD YOU LIKE TO PRACTICE"9 10)"1 ADDITION"U 10)"2 MULTIPLICATION"n 10)"3 SUBTRACTION"t  "CHOOSE 1,2 OR 3" W$:W(W$) W11580 W1W3ĺ"":270 W2310&:W2ĺ"WOULD YOU LIKE TO PRACTICE ONE OF T:"TO BEGIN THE GAME PLEASE TYPE CONT AND HIT THE RETURN KEY."E _q ::5)"***WILLIE WORM'S MATH GAME***" :"TO PLAY THE GAME, TYPE IN YOUR ANSWERS AND HIT THE RETURN KEY." "IF YOU WISH TO STOP THE GAME TYPE IN -1 FOR ANY ANSWER."ENT OR THE CHILD." U"WILLIE WILL BE DRAWN DIFFERENTLY EACH TIME. HIS COLOR IS SELECTED RANDOMLY FROM 1 OF 6 COLORS AND HIS POSITION ON THE SCREEN WILL BE ONE OF 11 DIFFERENT ONES. HE HAS A SPECIAL REWARD FOR AN EXCEPTIONAL PERFORMANCE."? ZOWS A CHILD TO PRACTICE NUMBER FACTS WHILE DRAWING A SEGMENT OF WILLIE WITH EACH RIGHT ANSWER.IT TAKES 15 RIGHT ANSWERS TO DRAW WILLIE COMPLETELY." P" THE DEGREE OF DIFFICULTY AND THE TYPE OF MATH PROBLEM MAY BE SELECTED BY A TEACHER, PARKEY TO BEGIN THE GAME. "/ A$:A$"NEW"658 200N A:"INTRODUCTION" F"IT IS MY BELIEF THAT LEARNING BY ROTE CAN BE FUN. THIS IS MY FIRST ATTEMPT TO USE GRAPHICS AND TO WRITE A PROGRAM FOR A LEARNING GAME." K"WILLIE WORM'S MATH GAME ALL :98:"WILLIE WORM'S MATH GAME BY HELEN TUFTSd9:"DECEMBER,1980";:29:"48K SYSTEM" 14:"IF YOU HAVE NEVER PLAYED THIS GAME BEFORE AND WOULD LIKE AN EXPLANATION, PLEASE TYPE NEW AND HIT THE RETURN KEY; OTHERWISE HIT THE RETURN          OUNDS=";R;" KILOGRAMS"$620GL:6:I;" POUNDS=";R;" METRIC TONS"PV620w~:6:I;" POUNDS=";R;" MILLIGRAMS"620:6:I;" TONS(SHORT)=";R;" METRIC TONS"620:6:I;" GRAMS=";R;" OUNCES"620:6:I;" GRAMS=";R;" POUN0,1600,1650- :6:I;" OUNCES=";R;" GRAMS"6*620\R:6:I;" OUNCES=";R;" KILOGRAMS"e\620:6:I;" OUNCES=";R;" MILLIGRAMS"620:6:I;" GRAINS=";R;" MILLIGRAMS"620:6:I;" POUNDS=";R;" GRAMS"620:6:I;" P CONVERTED";I I777Ā/I888450M:EQUATION FOR CONVERSIONvRIC(N):ENTERS FACTOR AND COMPUTES:DIRECTS PROGRAM FOR UNIT COMPUTATION AND PRINTOUT N800,850,900,950,1000,1050,1100,1150,1200,1250,1300,1350,1400,1450,1500,155UNDS"!0"(18)MILLIGAMS-GRAINS"TN24:"SELECT INDEX NUMBER.PRESS RETURN";:A$:xX6);"TO END PROGRAM ENTER 777"b:6:"FOR INDEX ENTER 888"l:5:"ENTER THE SELECTED INDEX NUMBER";vN{N777ĀN888450 :10:"VALUE TO BE"3:"WEIGHT..METRIC TO U.S.":"(10)GRAMS-OUNCES"R "(11)GRAMS-POUNDS"n"(12)KILOGRAMS-OUNCES""(13)KILOGRAMS-POUNDS""(14)METRIC TONS-TONS(SHORT)"!"(15)METRIC TONS-POUNDS"&"(16)MILLIGRAMS-OUNCES"+"(17)MILLIGRAMS-POOUNCES-GRAMS"("(2)OUNCES-KILOGRAMS"D"(3)OUNCES-MILLIGRAMS"`"(4)GRAINS-MILLIGRAMS"w"(5)POUNDS-GRAMS""(6)POUNDS-KILOGRAMS""(7)POUNDS-METRIC TONS""(8)POUNDS-MILLIGRAMS""(9)TONS(SHORT)-METRIC TONS"PAUSE11000:E FOR FACTORS628.35,.0284,2835,64.80,453.59,.4536^4.5E-4,453,.9072,.0353,.0022,35.272.205,1.102,2204.6,3.5E-5,2.2E-6,.0154:INDEX LOOP FOR DATA READN118C(N):READ DATA TABLE3:"WEIGHT..U.S.TO METRIC" "(1)c:6);"ENTER CELSIUS VALUE";&hI<j:TO END OR INDEXImI777ĀXrI888190wR((95)I)32:EQUATION FOR CONVERSION|:I;"DEGREES CELSIUS=";R;"DEGREES FAHRENHEIT"355C(18):FOR THE 18 CONVERSION FACTORS :DATA TABL:"PRESS ESC TO END"? :"<>"V(16384)272100t 756:(16384)322000*:16368,0:4:" INCHES"v8326:I;"MILLIMETERS ";R;" INCHES"?832p:PREPARED BY MAX J.NAREFF,SAN FRANCISCO,CA.5:"METRICS LENGTH":"BY MAX J. NAREFF""DATE: 7-79"::"THIS PROGRAMS DOES METRIC CONVERSIONS""FOR LENGTH"20KILOMETERS ";R;"FEET"J832<r:I;"METERS ";R;" MILES"E|832c:I;"METERS ";R;" YARDS"l832:I;"METERS ";R;" FEET"832:I;"METERS ";R;" INCHES"832::I;"CENTIMETERS ";R;" FEET"D832 l:I;"CENTIMETERS ";R;L:$";TT X  ' G ' WRITTEN BY TONY HUGHES, SAN FRANCISCO TOTAL WILL APPEAR." LE V"TO LIST ALL YOUR ENTRIES, ENTER L"K ` j"TOTAL WAS WRITTEN BY TONY HUGHES OF SAN FRANCISCO" t ~"ENTER EACH FIGURE TO BE TOTALED"  TT0 X1MX A$(X); 30 TTTT(A$(X)):"TOTA8  "TOTAL" & X1380 $"-";6 .? 8"-" B"THIS PROGRAM WILL TOTAL A LIST OF FIG- URES ENTERED BY THE USER. A DESCRIPTION CAN BE ENTERED TO THE RIGHT OF THE FIG- URE. WHEN YOU HAVE ENTERED ALL THE FIG- URES, PRESS RETURN AND THEI 1000: PRINT DESCRIPTION'X0;A$(100),A(100)EXX1U":";A$(X)i((A$(X))0100-A$(X)"L"İ3000:302A(X)(A$(X))<MXXFTTA(X)P25dn"TOTAL $";Tx PRINT DESCRIPTION 1   4. SIMPSON'S RULE"'.15);"5. STOP"8:" WHICH NUMBER ";:S:S1S5ĺ:"***** CORRECT NUMBER PLEASE ! ****":1080BS100,200,300,400,500SN TO CONTINUE ";:X$1000(::W::" **** INTEGRATION DEMO ****"::"CURRENT FUNCTION IS :":20:::" OPTIONS:";15);"1. DIFFERENT FUNCTION"15);"2. TRAP-RECT RULE"15);"3. GAUSS-LEGENDRE"$15);" B = ";B7::"# OF PANELS";20);"INTEGRAL":XXA:20:ENY:XB:20:ENENYjM2:W(BA)2uI1N~NE0J1M2:XAJW:20:NEYNE:JAREAW3(EN4NE)ENEN2NE:WW2:MM23);M4;20);AREAI::"HIT RETURA, B AND THE NUMBER"B"OF TIMES YOU WANT THE INTERVAL HALVED."\::"WHAT IS A ";:At:"WHAT IS B ";:B:"HOW MANY HALVING ";:NN1N18ĺ:" *** FEWER DOUBLINGS PLEASE !! ***"::420:" FUNCTION : ":20:"A = ";A;"UFDW(J)JvZ(J)0XZ(J)CD:20:FY:XZ(J)CD:20:SUSUW(J)(FY)[xJ:GACSU:a5:" I WILL USE SIMPSON'S RULE TO APPRO-""THE INTEGRAL OF THE CURRENT FUNCTION":"FROM THE POINT A TO THE POINT B. I WILL";:"ASK YOU TO GIVE ME GABM15:350:8);M;20);GASD:" ** HIT RETURN TO CONTINUE **";:X$:1000l^I17:MNP%(I)360cI:"**** ERROR ****":I12000:I:1000hJFKE%(I):JLKE%(I1)1:C(BA)2:D(AB)2:SU0mXD:20:FDYrJJFJL tZ(J)0SUS= ";BY4::5);"ORDER";20);"INTEGRAL APPROX.":5);"-----";20);"----------------":u6M2:350:8);M;20);GA8M3:350:8);M;20);GA:M4:350:8);M;20);GA<M5:350:8);M;20);GA>M6:350:8);M;20);GA@M10:350:8);M;20);F INTEGRATION. I WILL":"THEN USE GAUSS-LEGENDRE QUADRATURE ":"FORMULAS OF ORDERS 2,3,4,5,6,10 AND 15"."TO APPROXIMATE THE INTEGRAL.":::" WHAT IS A ";:A0:" WHAT IS B ";:B132::"FUNCTION :":20:::" A = ";A;" B 1;10);AR;25);AZ/I2N:HH2:M2M[J1M2:XAJH:20:TZTZY:TRTRY:JoARTRH:AZTZHM;10);AR;25);AZI::"** HIT RETURN TO CONTINUE **";:X$:1000h,:5:" WHEN REQUESTED, PLEASE GIVE ME THE":"INTERVAL (A,B) O ";:NF N1N18ĺ:" *** FEWER DOUBLINGS PLEASE !! ***"::214L j XA:20:TZY:XB:20:TRY TZ(TZTR)2:HBA ARTRH:AZTZH M1 :" DIV";10);"RECTANGLES";25);"TRAPEZOIDS"" ---";10);"----------";25);"----------":":"CURRENT FUNCTION FROM A POINT A TO A ":"POINT B. I WILL ASK YOU FOR A AND B," "AND THE MAXIMUM NUMBER OF TIMES YOU":"WANT THE NUMBER OF TRAPEZOIDS DOUBLED.": " WHAT IS A ";:A " WHAT IS B ";:B: " NUMBER OF DOUBLINGNG FORM:":9 n"20 Y=F(X) ":"RUN ": s"WHERE F IS AN APPROPRIATE FUNCTION":"OF X. '' INDICATES FOR YOU TO":"HIT THE RETURN KEY." xS :" I WILL USE RECTANGLES AND TRAPEZOIDS":"TO APPROXIMATE THE INTEGRAL OF THE 61573,.171324493,.295524225,.269266719,.219086363,.149451349 .066671344,.202578242,.198431485,.186161,.166269206,.139570678,.107159221,.070366047,.030753242  Y(XX)  d:" PLEASE ENTER THE DESIRED FUNCTION":"IN THE FOLLOWI87,.932469514,.148874339,.433395394,.679409568,.865063367 .973906529,0,.201194094,.394151347,.570972173,.724417731,.848206583,.937273392,.987992518= 1,.888888889,.555555556,.652145155,.347854845,.568888889,.478628671,.236926885,.467913935,.3607 NP%(7),KE%(8),Z(24),W(24)*1000tI17:NP%(I):I:I18:KE%(I):I:I124:Z(I):I:I124:W(I):I2,3,4,5,6,10,151,2,4,6,9,12,17,259  .577350269,0,.774596669,.339981044,.861136312,0,.53846931,.906179846,.238619186,.6612093          CUBIC CENTIMETERS TO PINTS(DRY)"L"(27)CUBIC CENTIMETERS TO QUARTS(LIQ)"x"(28)CUBIC CENTIMETERS TO QUARTS(LIQ)""(29)CUBIC CENTIMETERS TO GALLONS(LIQ)""(30)CUBIC CENTIMETERS TO FLUID OUNCES""(31)LITERS TO PINTS(LIQ)""(32)LI---------"1l"(20)CUBIC METERS TO CUBIC YARDS"Wq"(21)CUBIC METERS TO CUBIC FEET"v"(22)CUBIC METERS TO CUBIC INCHES"{"(23)CUBIC METERS TO BUSHELS""(24)CUBIC METERS TO GALLONS(LIQ)""(25)CUBIC CENTIMETERS TO PINTS(LIQ)" "(26)LLILITERS".S"(18)PINTS(LIQ)TO MILLILITERS"SX"(19)QUARTS(LIQ)TO MILLILITERS"]3:"IF THE CONVERSION WANTED IS ON THIS PAGE,NOTE ITS NUMBER,BUT WAIT UNTIL IT IS ASKED FOR.PRESS RETURN";:A$:g5:"VOLUME-METRIC TO U.S." h5:"-------------IQ)TO CUBIC CENTIMETES"D0"(11)FLUID OUNCES TO CUBIC CENTIMETERS"c5"(12)PINTS(LIQ)TO LITERS":"(13)PINTS(DRY)TO LITERS"?"(14)QUARTS(LIQ)TO LITERS"D"(15)QUARTS(DRY)TO LITERS"I"(16)GALLONS(LIQ)TO LITERS" N"(17)FLUID OUNCES TO MI! "(4)BUSHELS TO CUBUC METERS"G"(5)GALLONS(LIQ)TO CUBIC METERS"p"(6)PINTS(LIQ)TO CUBIC CENTIMETERS""(7)PINTS(DRY)TO CUBIC CENTIMETERS"!"(8)QUARTS(LIQ)TO CUBIC CENTIMETES"&"(9)QUARTS(DRY)TO CUBIC CENTIMETERS"+"(10)GALLONS(LEIGHT""20:"PRESS ESC TO END"M:"<>"d(16384)271800756:(16384)321700:16368,0::S0(@:6:I;" MILLIGRAMS=";R;" POUNDS"1J620Xr:6:I;" MILLIGRAMS=";R;" GRAINS"a|6205:"METRICS TEMPERATURE & WEIGHT":"BY MAX J. NAREFF""DATE: 7-79"::"THIS PROGRAM DOES METRIC CONVERSIONS""FOR TEMPERATURE AND WDS" 6202F:6:I;" KILOGRAMS=";R;" OUNCES";P620ax:6:I;" KILOGRAMS=";R;" POUNDS"j620:6:I;" METRIC TONS=";R;" TONS(SHORT)"620:6:I;" METRIC TONS=";R;" POUNDS"620:6:I;" MILLIGRAMS=";R;" OUNCES"62480 500'ZDBCA:Z0ĺZ:4407"+";Z:440RZDBCA:Z0ĺZ:500b"+";Z:500h TES OF MINOR AXIS--"? " (";C;",";DB;")"j " (";C;",";DB;")" "FOCI-> (";C(A2B2);",";D;")":" (";C(A2B2);",";D;")" "ASSYMTOTES-> Y=";BA;"X";:460" Y=";BA;"X";:HAT IS A (NOT A^2)?";A* ,"WHAT IS B?";B0 68 @10Y J"CENTER-> (";C;",";D;")"g TCC:DD ^"COORDINATES OF MAJOR AXIS--" hPE$"Y"100 r" (";CA;",";D;")" |" (";CA;",";D;")" "COORDINA B" ::"YOU MUST KNOW THE EQUATION FOR THE HYPERBOLA IN THIS STANDARD FORM."::"DOES THE 'X' OR THE 'Y' TERM HAVE THE POSITIVE EXPONENT? (X/Y)?";PE$ PE$"X"PE$"Y"240 PE$"Y"20 :"WHAT IS C?";C "WHAT IS D?";D ""W:5:"THIS PROGRAM WILL FIND THE VARIOUS COMMON PARAMETERS OF HYPERBOLAS."::"WRITTEN BY TODD PETERSON 1-22-80":: : " 2 2" " (X+C) (Y+D)" " ----- - ----- = 1" " 2 2" " A )"- n" (";C;",";DB;")"P x"COORDINATES OF MINOR AXIS--"{ " (";CA;",";D;")" " (";CA;",";D;")" "FOCI-> (";C(A2B2);",";D;")":" (";C(A2B2);",";D;")" 430 i  170J:5:"THIS IS THE FORM THE VARIABLES WILL BE ENTERED IN:"R:k(" 2 2"2" (Y+D) (X+C)"<" ----- - ----- = 1"F" 2 2"P" B A"Z270 d" (";C;",";DB;"  TERS TO PINTS(DRY)"4"(33)LITERS TO QUARTS(LIQ)"U"(34)LITERS TO QUARTS(DRY)"w"(35)LITERS TO GALLONS(LIQ)""(36)MILLILITERS TO FLUID OUNCES""(37)MILLILITERS TO PINTS(LIQ)""(38)MILLILITERS TO QUARTS(LIQ)" 5:"SELECT THE IN   CREATED BY7 JERRY MCFARLANDR 3350 N. CARRIAGEWAYk ARLINGTON HTS,ILL 312-255-8827I "OR PRINTER IS RECOMMENDED"J :"THE NUMBERS TO BE ENTERED SHOULD BE"p "INTEGER VALUES GREATER THAN 0" :"IF A PRINTER IS BEING USED IT IS" "ASSUMED THAT THE INTERFACE CARD IS IN SLOT #1" 22 "HIT ANY KEY TO CONTINUE" 756ONS****   :13+ "INSTRUCTIONS"\ :"THIS PROGRAM WILL TAKE DATA FROM A FILE" "ON DISK AND DISPLAY IT IN A HISTOGRAM" :"A DATA FILE CAN ALSO BE CREATED ON " "DISK IF YOU WISH" :"FOR BEST RESULTS AN 80 COLUMN SCREEN"&0I1CQ0:(X(I));" ";(X(I1)),C(I);8?24FDX1C(I)XNC(I)0ĺ"*";dXX:" "kbItl0::"DO YOU WANT TO RUN""ANOTHER HISTOGRAM? (Y OR N)"W$W$"Y"ī220:"BYE!"0:  ****INSTRUCTII1CQC(I)0:I-- START SORTING8I1NDJ1CQtA(I)X(J)A(I)X(J1)C(J)C(J)1:INĂI{JI  ****PRINT HISTOGRAM**** "CELL WIDTH",:"CELL LIMITS";" ";"FREQ";" HISTOGRAM"BEST RESULTS USE MULTIPLES OF .5"'n/rCWFtCWWSCWWLī1630Lujw:"NOW SORTING THE DATA"py|P1Ċ1:1785,72- SET UP CELL LIMITS CQ(S26)CWX(1)AV3S2X(1)(X(1)).5I2CQ1X(I)X(I1)CWI ",AVS1(EX2TTN)(N1)*S2(S1)<S2ROUND(S2)N:"SIGMA",S2TZ@|B ****SORT DATA INTO CELLS***DH0:JWS(S26)30TWL(S26)6^"INPUT THE CELL WIDTH"hWL;" TO ";WS;" (6 TO 30 CELLS)"j!l:"FOR (31)I1N#TTA(I)2A(I);" ";<SS1LS20S0:bEX2EX2A(I)A(I)iIt" ":zx| ****CALCULATE SIGMA****~:"TOTAL ",TAVTNROUND(X)(100X.5)100AVROUND(AV)"AVERAGEA(J) J D$;"CLOSE ";N$& , 2 L  ***PRINT TITLE***R d P1Ċ1:(1)o (28)y 1100 A$;" DATA" 1100 (31)  LY1(A$) V"="; `Y j"=====" t   ******PRINT DATA*****(4):936: > "ENTER ZERO (0) AFTER LAST DATA POINT"F :P I0:Z II1w "INPUT ENTRY #";I;": "; A(I) A(I)0920 II1: "ENTER THE FILE NAME " N$ D$;"OPEN ";N$ D$;"WRITE ";N$ I J1I  " *** LOAD DATA FILE ***& $4 %D$(4):S &"INPUT NAME OF DATA FILE"[ *Z$a /s 4D$;"OPEN";Z$ 9D$;"READ";Z$ >I HJ1I MA(J) RJ WD$;"CLOSE";Z$ \NI a   ****CREATE A DATA FILE****  D$6 Z800: LOAD DATA FILE$ _142B d900: CREATE DATA FILEJ n76c 1000: PRINT TITLE{ 1200: PRINT DATA 1400: CALCULATE STANDARD DEVIATION 1600: SORT DATA INTO CELLS 1800: PRINT HISTOGRAM 2000:AGAIN  NAME FOR THE DATA" HA$4 JX(50):C(50):A(500)C L:936:5j N" 1 LOAD DATA FILE- FROM DISK": O" 2 CREATE A DATA FILE- ON DISK": P" 3 EXIT" Q20:"MAKE A SELECTION" RF TF1ī90 VF2ī100 XF3ī2027 YF1F3ī7  :936:5:13*"HISTOGRAM PLOT"613:12N"BY J. MCFARLAND"X20:"DO YOU WANT INSTRUCTIONS? (Y OR N)"#IN$(IN$"Y"İ300047"DO YOU WANT PRINTER OUTPUT? (Y OR N)"<P$>P$"Y"P1A F"ENTER A          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:"0) ,L0RADSTP" 6XAXA(L)1 @YAYB(L)Q J(X1X279Y1Y159)350[ TX,Yb ^Lh hp r23 |"DO YOU WANT TO DO THIS AGAIN? ";S$ (S$,1)"Y"10 :AS=";R;" FLUID OUNCES" d#820J ':4:I;" MILLILITERS=";R;" PINTS(LIQ)"S '820 B':4:I;" MILLILITERS=";R;" QUARTS(LIQ)" L'820 N:" LITERS=";R;" PINTS(LIQ)"#b820J:4:I;" LITERS=";R;" PINTS(DRY)"S820{@:4:I;" LITERS=";R;" QUARTS(LIQ)"J820r:4:I;" LITERS=";R;" QUARTS(DRY)"|820(#:4:I;" LITERS=";R;" GALLONS(LIQ)"2#820 Z#:4:I;" MILLILITER8209:2:I;" CUBIC CENTIMETERS=";R;" QUARTS(LIQ)"B820u:2:I;" CUBIC CENTIMETERS=";R;" QUARTS(DRY)"~820p:4:I;" CUBIC CENTIMETERS=";R;" GALLONS"z820:2:I;" CUBIC CENTIMETERS=";R;" FLUID OUNCES"820X:4:I;IC METERS=";R;" CUBIC INCHES"& 820P :4:I;" CUBIC METERS=";R;" BUSHELS"Y 820 :4:I;" CUBIC METERS=";R" GALLONS(LIQ)" 820:2:I;" CUBIC CENTIMETERS=";R;" PINTS(LIQ)"820:2:I;" CUBIC CENTIMETERS=";R;" PINTS(DRY)" MILLILITERS"820B::4:I;" PINTS(LIQ)=";R;" MILLILITERS"KD820xl:4:I;" QUARTS(LIQ)=";R;" MILLILITERS"v820:4:I;" CUBIC METERS=";R;" CUBIC YARDS"820:4:I;" CUBIC METERS=";R;" CUBIC FEET"820:4:I;" CUBINTS(LIQ)=";R;" LITERS" 820G@:4:I;" PINTS(DRY)=";R;" LITERS"PJ820xr:4:I;" QUARTS(LIQ)=";R;" LITERS"|820:4:I;" QUARTS(DRY)=";R;" LITERS"820:4:I;" GALLONS=";R;" LITERS"820 :4:I;" FLUID OUNCES=";R;"820:F:2:I;" QUARTS(LIQ)=";R;" CUBIC CENTIMETERS"CP820vx:2:I;" QUARTS(DRY)=";R;" CUBIC CENTIMETERS"820:4:I;" GALLONS=";R;" CUBIC CENTIMETERS"820:I;" FLUID OUNCES=";R;"CUBIC CENTIMETERS"820:4:I;" PV820+j:*DATA AND LOOP SETUP..200-300*U~:4:I;" BUSHELS=";R;" CUBIC METERS"^820:4:I;" GALLONS=";R;" CUBIC METERS"820:2:I;" PINTS(LIQ)=";R;" CUBIC CENTIMETERS"820:2:I;" PINTS(DRY)=";R;" CUBIC CENTIMETERS"050,3000,3050,4000,4050,5000,5050,6000,6050,7000,7050,8000,8050,9000,9050,10000,10050,11000,11050:4:I;" CUBIC YARDS=";R;" CUBIC METERS"820:4:I;" CUBIC FEET=";R;" CUBIC METERS"$820L:4:I;" CUBIC INCHES=";R;" CUBIC METERS"E TO BE CONVERTED";MI'RI777Ā6WI888500c\:EQUATION FOR CONVERSION OF INPUT VALUEaRIC(N):C(N)OBTAINED FROM ARRAY LOOPafN1000,1050,1100,1150,1200,1250,1300,1350,1400,1450,1500,1550,1600,1650,1700,1750,1800,1850,1900,1950,2000,2DEX NUMBER".10:24:"PRESS RETURN";:A$:4 F%:PROGRAM ENDl*10:"TO END PROGRAM ENTER 777":/10:"FOR INDEX ENTER 888":4:4);"ENTER THE INDEX NUMBER OF THE DESIRED CONVERSION";9N>N777ĀCN888500H:10:"VALU :8"SINE CURVE SUPERIMPOSED ON A REGULAR SPIRAL"e:"HERE ARE THE COORDINATES YOU CHOSE:""X=K1*(ANGLE)*COS(L1*ANGLE)+M1*SIN(N1*ANGLE)*COS(ANGLE)""Y=K2*(ANGLE)*SIN(L2*ANGLE)+M2*SIN(N2*ANGLE)*SIN(ANGLE)" "Z=0 (0>Z<1 ADDS A 3D DI L0RADSTP! L(L)(1L). F1L(L); F2L(L)W C(L)AXF1BX(CXL)c XC(L) S(L)AYF2BY(CYL) YS(L) ZZZC YZYZ* X1ĪX14 X278ĪX278> YZ1ĪYZ1H YZ158ĪYZ158R X,YZ\ Lf  A ? ";CX3N " B ? ";CYSX " Z ? ";ZCgb PI3.1415926536ol R7v RADR(2PI) STPPI32 AX140 ZC0ĪAY80:3225 AY8050(ZC)  :3 1,11,158278,158278,11,1 AX,AY2,A,B."  6 " SUGGESTED STARTING VALUES ARE:"` " K1=30 K2=10 A=1 B=1 Z=0 "NOTE: KEEP Z LESS THAN 1(E.G.:.1)" & "NOW ENTER THESE OR YOUR OWN:"0 " ENTER K1: ";BX: " K2 ? ";BYD " "HERE ARE THE COORDINATES YOU CHOSE:"U :" X= K1 *LOG(1+ANGLE) * COS(A *ANGLE)" :" Y= K2 *LOG(1+ANGLE) * SIN(B *ANGLE)" :" Z=0 (01 ADDS THE 3D DIMENSION)"  "SEE WHAT CURVES RESULT WHEN YOU CHANGE" "THE PARAMETERS K1,K  XC(L)' S(L)AYF2BY(CYL)3 YS(L)> ZZZCI YZYZo (X100X400Y100Y300)2560} X1ĪX1 X278ĪX278 YZ1ĪYZ1 YZ158ĪYZ158 X,YZ L :  : 10)"LOGARITHMIC SPIRAL"& :3.1415926536 R2& RADR(2PI)5 STPPI256@$ AX140W) ZC0ĪAY80:2360j. AY8050(ZC)p8 yB :3L 1,11,158278,158278,11,1V AX,AY` L0RADSTPj E(L).1(L)t F1E(L)~ F2E(L) C(L)AXF1BX(CXL) Z=0"/H"NOTE: KEEP Z LESS THAN 1(E.G.:.1)"5RY\"NOW ENTER THESE OR YOUR OWN:"yf" ENTER K1: ";BXp" K2 ? ";BYz" A ? ";CX" B ? ";CY" Z ? ";ZC PI"0:" Y= EXP( K2 *ANGLE) * SIN( B *ANGLE)"^:" Z=0 (01 ADDS THE 3D DIMENSION)"d "SEE WHAT CURVES RESULT WHEN YOU CHANGE" "THE PARAMETERS K1,K2,A,B."*4" SUGGESTED STARTING VALUES ARE:">6)"K1=1 K2=1 A=5 B=5SSA(I,K)B(K,J)K!.S;" ";5J;BIH!P&:g0"MORE DATA ?";RE$:RE$"Y"RE$"YES"4000D4070009999X:I13:(7):Ib'PE  CYL)XXC(L)YYS(L)8&XXXDX(EXL)(L)Q0YYYDY(EYL)(L)\:YZYZjDX1ĪX1|NX278ĪX278XYZ1ĪYZ1bYZ158ĪYZ158lX,YZvLCX,DY,EX,EY,ZC!PI3.1415926536)R7:RADR(2PI)ISTPPI256TAX140eZC0ĪAY80xAY8050(ZC)~:31,11,158278,158278,11,1AX,AYL0RADSTPC(L)AXLBX(CXL)ZZZCS(L)AYLBY(5 25 25 0"9," 2 2 1 1 25 25 25 25 0"d6" 4 4 1 1 25 25 6 6 0"j@pJT"NOTE: KEEP Z LESS THAN 1(E.G.:.1)"^h"NOW ENTER THESE OR YOUR OWN:"r" K1, K2, L1, L2, M1,M2, N1, N2, Z" |BX,BY,CX,CY,DMENSION)"="SEE WHAT CURVES RESULT WHEN YOU CHANGE"^"THE PARAMETERS K,L,M,N,Z."d" SUGGESTED STARTING VALUES ARE:"" K1 K2 L1 L2 M1 M2 N1 N2 Z""--- --- --- --- --- --- --- --- ---""" 2 2 1 1 5  336) FQ::10518)"LUCKY YOU !"?::`10)"YOU BROKE THE HOUSE !"::::"(BUT ONLY BECAUSE IT WAS LOW IN FUNDS...THIS TIME.)"Z12500:ZpR$"LOSING "zR$"WINNING"RR PROBABILITY OF RUIN WAS ";RUIN<z"WITHIN ";NP;" PLAYS."l"SEE 'LADY LUCK' BY WEAVER (ANCHOR BOOKS)""DO YOU WANT TO GAMBLE AGAIN? ";A$(A$,1)"Y"101016)"VERY WISE!"Z11000:Z:FQ1100TN(16"NO. OF LOSSES: ";L5 "FRACTION WON: ";FS*"HOUSE FUNDS: $";RHq4"PLAYER'S FUNDS: $";RPw>HRUIN(100000(H(HR)))100000RHPCT0ĪNPHR:870\NP(R(HPCT.01).5)f"ACCORDING TO PROBABILITY THEORY," p"YOUS FUNDS: $";R(" BET: $";Be"HOUSE PERCENTAGE IS ";HPCT;" WITH ODDS ";ODDS;" TO 1.""PLAYER'S PROBABILITY OF WIN: ";P" AFTER PLAY"" -----------------""NO. OF PLAYS: ";N "NO. OF WINS: ";WbJ/l24:"YOU HAVE NOW HAD 10,000 PLAYS."cv"CASH IN YOUR CHIPS:PRESS SPACE BAR.":A$:660k24"YOU ARE WIPED OUT ! PRESS SPACE BAR.":A$:" BEFORE PLAY"" -----------------"" HOUSE FUNDS: $";H "PLAYER'ALB) GY! Y159ĪY159/ Y0ĪY0C (50G)0İ6000X (50G)0İ6020o &22:32:50G;" " +22:19:R$ 0LOOP2,Y :NN1:FRW(WL):F(FR1000)1000 DRP0İ4000 NRP0640 PV(16384) RV127ī660 XLOOP05,25225,25 215,15215,352 205,65225,65G 0,50R200,50RO 22p 10)"YOU ARE : $" LOOP1100 PLAY(1) PLAYPĪLL1:RHRHB:RPRPB:520 PLAYPĪWW1:RHRHPA:RPRPPA RH0İ5000:660 Y50(WPODDS: ";ODDSK PW((1(HPCT100))1000(1(ODDS1)).5)1000q " (PROB. OF WIN IS: ";PW " SIZE OF BET: $";B  6RRP @HRH JPPW TPABODDS ^J1100 h:3 r0,00,159 |0,50200,50 2 $1 8 "NOW ENTER THESE VALUES OR YOUR OWN:"\ " HOUSE FUNDS: $";RH " HOUSE PERCENTAGE: ";HPCT " PLAYER'S FUNDS: $";RP RP100ĺ"SORRY......":"WE DON'T ALLOW YOU LOSE MORE THAN $100.":220 " "$ d"IS PLOTTED AFTER EACH PLAY."* nX x" HERE ARE SUGGESTED STARTING VALUES:"| " HOUSE FUNDS: $1000 " HOUSE PERCENTAGE: 5 " " PLAYER'S FUNDS: $25 " ODDS(E.G. 9 TO 1): 9" " SIZE OF BET:  :#12)"GAMBLER'S RUIN")L(8)"H.EDELSTEIN NOV 29,1979"R2|<" SHOWS HOW THE GAMBLER IS RUINED"F"EVEN IF THE ODDS ARE 'FAIR'...THAT IS,"P"EVEN IF HOUSE PERCENT IS CLOSE TO ZERO." Z" THE PLAYER'S NET GAIN OR LOSS       :(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 ---------------------------------------- )210 "BYE!":I)Y I( (Y)510(AC)020001 167E "THAT'S ALL.." :"IF YOU THINK THERE SHOULD BE MORE ROOTS, TRY A SMALLER SPACING." ::"DO YOU WANT TO DO ANOTHER EQUATION?";:IN$:(IN$,1)"Y"Ĭ 3000 "A ZERO APPEARS AT X=";T HE ENDING VALUE?";E. ESĺ"TRY AGAIN":130e "WHAT SHOULD THE SPACING BE BETWEEN":"TRIALS?";P "HOW MANY DECIMAL PLACES OF OF ACCURACY?";A A1A7ĺ"BETWEEN 1 AND 7":163 Y0:TS TTP:TE1000 Y0 ID11 YC(I)(T D1ĺ"TRY AGAIN":20# (C(D)1 2ID01 <"WHAT IS THE COEFFICIENT (INCLUDING MINUS IF NEEDED) FOR THE TERM WITH EXPONENT ";I FC(I) PI Z d n "FOR WHAT VALUE OF THE DOMAIN DO YOU WISH TO START THE SEARCH?";S "AND T  :::"THIS PROGRAM WILL ATTEMPT TO FIND POSSIBLE RATIONAL ZEROS OF AN EQUATION UNDER A GIVEN RANGE OF ACCURACY. THE EXPONENTS OF THE EQUATION IN STANDARD FORM MUST BE RATIONAL AS WELL.":::"WHAT DEGREE IS THE EQUATION?";D    z#Xı ̲!٠ àŠŠϠ ҠӠ ҠӠŠ ӠΠĠؠ ̠ àӠŠ àΠР àΠ àȠ àРàРҠԠàŠ Ӡ ͠Ԡ  ΠȠӠȠŠ͠à ΠԠɠ!ΠҠɠ "ΠҠɠ ΠӠӠΠ Ӡ Ӡ ΠϠŠӠĠŠҠ͠Ӡ ΠԠɠΠԠ!ՠɠŠȠӠϠӠӠĠĠԠӠ 14);TC;28);TK: ECI273.18 :6000% :::1060- :I :"TEMPERATURE =";KI:O ` TCKI273.18s TF(95)TC32} TKKI :6000::::1060 p"DEGREES";14);"DEGREES";28);"DEGREES" z"FAHRENHEIT";14);"CENTEGRADE";28);"KELVIN" :;TF; :' :"TEMPERATURE =";FI:- 7 TFFIJ TC59(TF32)[ TKTC273.18g :6000o :w : $"TYPE 'P' TO PROCEED ";A$ .A$"P"ī100 8999 : :"TEMPERATURE =";CI:  TF(95)CI32 TCCI TK 2A$(2)d::<n"TEMPERATURE CONVERSION PROGRAM"`x:"ENTER SCALE OF TEMPERATURE"x"BEING CONVERTED.":"(1) FAHRENHEIT SCALE""(2) CENTEGRADE SCALE""(3) KELVIN SCALE":"SCALE= ";SS1000,2000,3000 D  (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               MILLILITERS"740<:10:I;"PINTS=";R;" MILLILITERS"E740q:5:I;"QUARTS=";R;"CUBIC CENTIMETERS"z740:10:I;"GALLONS=";R;" LITERS"740F:10:I;"LITERS=";R;" GALLONS"P740x:10:I;"OUNCES(DRY)=";R;" GRAMS"50,1200,1250,1300,1350,1400,1450,1500,1550,1600,1650,1700,1750,1800,1850s:10:I;"TEASPOONS=";R;" MILLILITERS"|740:10:I;"TABLESPOONS=";R;" MILLILITERS"$740L:10:I;"OUNCES(LIQ)=";R;" MILLILITERS"V740 ~::I;"CUPS=";R;" NN777ĀN888500A:5:"VALUE TO BE CONVERTED";HIUI777ĀdI888500:EQUATION FOR CONVERSION OF INPUT VALUE TO ANSWER RIC(N):DIRECT CALCULATION TO TO PROPER NAME FOR ANSWER PRINTOUTH N1000,1050,1100,10OR NEXT PAGE">g24:10:"PRESS RETURN FOR NEXT PAGE";:A$:T: TO END PROGRAMt"TO END PROGRAM ENTER 777": TO RETURN TO INDEX OF MEASUREMENTS:"FOR ACCESS TO INDEX ENTER 888":3:"ENTER INDEX NUMBER OF DESIRED CONVERSION";NTIMETERS TO INCHES";I"(14)SQ.INCHES TO SQ.CENTIMETERS"`N"(15)SQ.FEET TO SQ.CENTIMETERS"S"(16)SQ.YARDS TO SQ.CENTIMETERS"X"(17)FAHRENHEIT TO CELSIUS"]"(18)CELSIUS TO FAHRENHEIT": b"NOTE INDEX NUMBER OF DESIRED CALCULATION.WAIT F5)PINTS TO MILLILITERS"=!"(6)QUARTS TO CUBIC CENTIMETERS"Y&"(7)GALLONS TO LITERS"u+"(8)LITERS TO GALLONS"0"(9)OUNCES(DRY) TO GRAMS"5"(10)POUNDS TO KILOGRAMS":"(11)KILOGRAMS TO POUNDS"?"(12)INCHES TO CENTIMETERS"D"(13)CE ) :LIST OR INDEX OF MEASUREMENTS/ N 10:"KITCHEN-AID METRICS"m 10:"-------------------" "(1)TEASPOONS TO MILLILITERS" "(2)TABLESPOONS TO MILLILITERS" "(3)OUNCES(LIQ) TO MILLILITERS" "(4)CUPS TO MILLILITERS""(OR NEXT PAGE";:A$:: C(18):DIM.FOR CONVESION FACTORSb :DATA TABLE FOR CONVERSION FACTORS 5,15,29.57,236,473.17,946.36,3.785 .227,28.35,.4536,2.205,2.54,.3937 6.452,929.03,8361.3 :INDEX LOOP FOR DATA READ N116 C(N) LIST OF MEASUREMENTS IS PRESENTED"O P"ON THE NEXT PAGE.NOTE THE INDEX NUMB"y U"ER.ENTER THAT NUMBER WHEN QUERIED." Z"THEN ENTER THE VALUE TO BE CONVERTED." _5:"777 ENDS THE PROGRAM" `5:"888 RETURNS THE LIST" d24:8:"PRESS RETURN FOMMON MEASUREMENTS USED IN THE"N :"KITCHEN ARE PRESENTED.FRACTIONAL VALUES"~ ;"MAY BE ENTERED.FOR A MORE EXTENSIVE LIST" <"CONSULT THE OTHER PROGRAMS IN THE LIBRARY" F8:"HOW THE PROGRAM OPERATES" H8:"------------------------"# K3:"AED BY MAX J.NAREFF,SAN FRANCISCO,CA1979*4 $:1900L (16:"INTRODUCTION"e -15:"-------------" 25:"THIS IS ONE OF A SERIES OF PROGRAMS" 7"FOR THE CONVERSION OF MEASUREMENTS TO" 8"AND FROM THE METRIC SYSTEM.HERE SOME OF" 9"THE MORE C'**************************H ***TABLE OF CONTENTS*******i*INTRODUCTION..LINES 0-200**DATA AND LOOP SETUPS..200-260**INDEX OF MEASUREMENTS..500-615**PROGRAM DRIVE..700-800**ANSWER PRINTOUTS..1000-END*( #PREPAR   RD...TWO DISK SIDES+ ARE YOURS WHEN YOUG IDENTIFY WITHOUT DOUBTa THAT A FILE ON THIS { DISK IS COPYRIGHTED! PxAAA HELLO#PUBLIC DOMAIN=BY RONALD D. MALEIKAR721 PIKE STREETjCHEYENNE, WY 82001{28 FEB 198111843,5@"APPLE AVOCATION ALLIANCE, INC."TP11000:Ph1184|(4);"CATALOG" REWA TERS")832:RETURNS FOR ANOTHER INPUTG:I;"MILES ";R;" METERS"P$832rL:I;"YARDS ";R;" KILOMETERS"{V832~:I;"YARDS ";R;" METERS"832:I;"FEET ";R;" KILOMETERS"832:I;"FEET ";R;" METERS"832:I;"FEE;9N>N777Ā$?N888510*@HC"VALUE TO BE CONVERTED";OHI\JI777ĀkKI888510xMRIC(N)RN1000,1050,1100,1150,1200,1250,1300,1350,1400,1450,1500,1550,1600,1650,1700,1750,1800,1850,1900,1950:I;"MILES ";R;" KILOME9)CENTIMETERS TO INCHES"9*"(20)MILLIMETERS TO INCHES"o/22:"NOTE NUMBER,BUT FIRST PRESS RETURN.";:A$:4"TO END ENTER 777 AT ANY INPUT LEVEL"6:"TO RETURN TO LIST ENTER 888 AT ANY INPUT"7:"ENTER LIST NUMBER OF UNIT TO BE CONVERTED" TO MILLIMETERS"/"(11)KILOMETERS TO MILES"N"(12)KILOMETERS TO YARDS"l"(13)KILOMETERS TO FEET""(14)METERS TO MILES""(15)METERS TO YARDS""(16)METERS TO FEET" "(17)METERS TO INCHES""(18)CENTIMETERS TO FEET" "(1TO KILOMETERS"( "(2)MILES TO METERS"F 0"(3)YARDS TO KILOMETERS"` D"(4)YARDS TO METERS"} X"(5)FEET TO KILOMETERS" l"(6)FEET TO METERS" "(7)FEET TO CENTIMETERS" "(8)INCHES TO METERS" "(9)INCHES TO CENTIMETERS""(10)INCHES48,30.48,.0254,2.54,25.4,.6214D 1093.6,3280.8,.0006,1.094,3.281b 39.37,.0328,.3937,.0394 .6214,1093.6,3280.8,6.2E-4,1.094 3.281,39.37,.033,.394,.0394 I120:INDEX OF LOOP C(I):READS DATA THRU LOOP   "(1)MILES "& V"A REQUEST FOR THE VALUE TO BE"P W"CONVERTED WILL THEN APPEAR.PROCEED"} Z20:"PRESS ANY KEY FOR THE LIST";:A$: C(20):SETS DIM.FOR NUMBER OF CONVERSIONS :CONVERSION FACTORS TO BE USED 1.609,1609.35,.0091,.9144,.00031 .30MENTS", ("TO AND FROM THE METRIC SYSTEM."S 210:5:"HOW THE PROGRAM OPERATES"v 75:"------------------------" <:"THE NEXT COMMAND WILL PRESENT THE" F"LIST OF AVAILABLE MEASUREMENTS." P"NOTE THE NUMBER AND ENTER WHEN" U"CALLED FOR. & LOOP SETUP LINES 0-90,200-270I :LIST OF MEASUREMENTS LINES 510-800k :PROGRAM DRIVE LINES 820-850w :2000 10:"METRICS....LENGTH" 10:"-----------------" "THIS IS ONE OF A SERIES OF PROGRAMS" "FOR THE CONVERSION OF MEASURE W:ONE OF THE PROGRAM TECHNIQUES USED HAS BEEN ADAPTED AND MODIFIED FROM THE:BOOK'SOME COMMON BASIC PROGRAMS'.:BY POOLE & BORCHERS.:PERMISSION FOR USE BY PUBLISHER:ADAM OSBORNE & ASSOC.INC.,BERKLEY,CA. :INTROD.& DATA    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    "DEGREES FAHRENHEIT" ::O "DO YOU HAVE ANOTHER PROBLEM (Y/N) ? ";A$^ A$"Y"32l A$"N"Ār  :"PLEASE TYPE Y OR N !":400 WHAT IS THE TEMPERATURE IN DEGREES FAHRENHEIT ? ";FI dC59(F32)Q : F" DEGREES FAHRENHEIT EQUALS "C" DEGREES CENTIGRADE." 400  "WHAT IS THE TEMP IN CELSIUS ? ";C ,F(9C)532 1 6C" DEGREES CELSIUS EQUALS "F ;  936::a"THIS PROGRAM WILL CONVERT ONE TEM- PERATURE SCALE TO THE OTHER."g ::"DO YOU WANT 'F TO C' OR 'C TO F'?";A$"A$"C TO F"ī280#A$"F TO C"ī38$:"INVALID RESPONSE-DOES NOT COMPUTE":32&8 (:" URN TO CONTINUE" T$ 21;:K: L120! Z(RL15). Z01898 WW1B CZCI Lk W0ĺ21);"NO AVERAGE ":200} VCW:21);V C0:RR50:SS1: W0 M19210 :"HIT RETURN TO CONTINUE":T$ M0::: MM1 I  "HIT RETU TO THE MENU" 2A$' <A$"YES"809 FD$;"RUN AAA"? Ph Z::"ENTER STUDENT STARTING NUMBER"o dS n:"ENTER STUDENT ENDING NUMBER" xE zC0:W0:M0 }:: RS:RR50A50 ISE "# ";S;7); K115:P(RK):(P)" BOB LOWREY? 4640 W. 110 TH AVE.;WESTMINSTER, COLO.N 469-2924c D$(4): CTRL DnC(20)zA26050S10::S);"STUDENT GRADE AVERAGES"::"TO CONTINUE TYPE ";::"YES";::" ANYTHING ELSE WILL" ("RETURN YO   FAHRENHEIT VALUE";@I0A:TO END OR INDEX=BI777ĀLDI888190xER(I32)(59):EQUATION FOR CONVERSIONJ:I;"DEGREES FAHRENHEIT=";R;"DEGREES CELSIUS"T315Y^10:"TO END PROGRAM ENTER 777"`10:"FOR INDEX ENTER 888"5:"SELECT DESIRED MEASUREMENT BY LETTER"H:COMMAND DRIVE FOR INDEXk::10:"ENTER INDEX LETTER";qyA$A$"A"300A$"B"345"A$"C"400,15);"TO END PROGRAM ENTER 777"65);"FOR INDEX ENTER 888";:"ENTERPUT"4 "THE PROGRAM CAN BE STOPPED OR THE INDEX"E "RECALLED."e 10);"PRESS RETURN";:A$:k  6:17:"INDEX" 17:"-----" :10)"(A)FAHRENHEIT TO CELSIUS" :10)"(B)CELSIUS TO FAHRENHEIT" :10)"(C)WEIGHT" :* FIRST PAGE IS A GENERAL INDEX.SELECT"S "THE UNIT NEEDED.ENTER THE APPROPRIATE" "LETTER.(C)PRESENTS THE MORE DETAILED" "INDEX OF WEIGHT UNITS.WAIT FOR THE" "REQUEST FOR INDEX NUMBER AND THEN FOR" "THE VALUE TO BE CONVERTED.AT ANY INx"SYSTEM.THIS ONE DEALS WITH TEMPERATURE"W }"AND WEIGHT CONVERSIONS.OTHERS IN THE" "SERIES INVOLVE LENGTH,AREA,VOLUME AND" "A COMPILATION FOR KITCHEN USE. ::8:"HOW THE PROGRAM OPERATES" 8:"------------------------"& 1:"THELISHER0 P:ADAM OSBORNE ASSOC.INC.,BERKLEY,CA.e U:PREPARED BY MAX J.NAREFF,SAN FRANCISCO,CA.1979q Z:1700 d14:"INTRODUCTION" i14:"-------------" n6:"THIS PROGRAM IS ONE OF A SERIES FOR" s"THE CONVERSION,TO AND FROM THE METRIC"+ " -:*UNIT CONVERSIONS..800-END*< 2:*ACKNOWLEDGEMENT..*e 7:SOME OF THE PROGRAMMING TECHNIQUES <:USED HAVE BEEN ADAPTED & MODIFIED A:FROM A PROGRAM IN "SOME COMMON F:BASIC PROGRAMS"BY POOLE & BORCHERS,1978 K:PERMISSION FOR USE BY PUB:**TABLE OF CONTENTS**; :*INTRODUCTION..100-190*[:*INDEX OF UNITS..190-220*:*INDEX COMMAND DRIVE..245-300*:*TEMP.U.S.-METRIC..300-345*:*TEMP.METRIC-U.S..345-390*#:*WEIGHT UNITS..400-590* (:*PROGRAM DRIVE..600-700*   RENCE GUST + &" 1/1/19811 07 := D( THE"0 "ANSWER WITH EVERY DIGIT CORRECT (NO"] "ROUND-OFF ERRORS). THIS PROGRAM ALSO" "HAS A NEAT PRINT ROUTINE THAT INSERTS" "COMMAS IN THE NUMBER." 23:"HIT ANY KEY TO BEGIN...";:A$::     " BY LAWON FOR THE 64 SQUARES OF THE"1 r"CHESS BOARD."7 |Y "THIS IS A VERY, VERY LARGE" "NUMBER AND EASILY EXCEEDS THE LIMITS OF" "THE APPLE IF YOU WANT EVERY DIGIT." "THIS POSED AN INTERESTING TASK--" "PROGRAM THE APPLE TO FIGURE OUTT,1); ,T::> 6:"IT HAS BEEN SAID THE INVENTOR OF THE"j @"GAME OF CHESS PROPOSED THE FOLLOWING" J"PRIZE TO THE WINNER OF THE GAME:" T::"A GRAIN OF WHEAT FOR THE FIRST SQUARE," ^"TWO FOR THE SECOND, FOUR FOR THE THIRD," h"AND SO --------------------------";:210O :"THAT MUCH FOR THE LAST SQUARE ALONE!"U h (A$)1ĺA$: (A$)2ĺ(A$,1);(A$,1): C(A$)(((A$)3))3 C0X3 C1XC C2XC T(A$)11 X0ĺ",";:X3 "XX1:(A$,>  310A$"1":B$""#A$/(A16472F0F<Z1(A$)WFD$(A$,Z,1)iPD(D$):DD2|ZF1DD1:F0dD9DD10:F1nD$(D)xB$B$D$ZF1B$B$"1"A$B$:B$""210A! ::::"--------------       MAY 18, 1980  :7 :::HELP::YOURSELF:::S X**********************Y bt l DONATED TO APPLE PI v BY ED HANLEY  JULY, 1980  **********************d DI$DI$T$(I) I& DI(DI$)< T$(N1)"C"1000R T$(N1)"F"2000n  CHECK FOR INPUT ERROR "DEGREES =";DI "C OR F?";:M$: M$""Ā M$"C"1000 M$"F"2000 : p BY ED HANLEY z AT REMINGTON, INDIANA"Ā A$"N"150" *"OK.":3  INPUT LOOP; N1E NN1P T$(N)\ T$(N);m T$(N)""Ā T$(N)"C"4500 T$(N)"F"4500: CONCATENATE 4010  CONCATENATE   NN1: CUT OFF'C' OR 'F' DI$"" I1N DO(1.8DI)32% DOROUND(DO)G DI;" DEG. C = ";DO;" DEG. F"M W 2050r  FARENHEIT TO CELSIUS DO(DI32)1.8 DOROUND(DO) DI;" DEG. F = ";DO;" DEG. C"  "ANOTHER CONVERSION? (ANY KEY OR 'N')"; A$: A$""HIT ANY KEY TO START.":A$:, A$""Ā@ START PROGRAM_ ROUND(X)(X100.5)100e l 8~ "DEGREES? "; 4000: INPUT LOOP TYPE$: TY$""Ā TY$"C"1000 TY$"F"2000 9 180  CELSIUS TO FARENHEIT6 TEMPERATURE CONVERSION PROGRAM BY ED HANLEYBT$(20)HdPi10yn"THIS PROGRAM WILL CONVERT DEGREES"s"CELSIUS TO FARENHEIT AND DEGREES"x"FARENHEIT TO CELSIUS."}:"ENTER DEGREES FOLLOWED BY 'C' OR 'F'.": T34,0W>X * * MORTGAGE CONSTANT * * DYT]S1(IR12)_bT1NwlMCIR(1(1S(N)))(2):T13)MCT28)SFFT 34,0 $o]p** P.W. OF 1 PER YR AND MORTGAGE PAYMENT FACTORS **cqr:3:"PERIOD"13)"ANNUITY"28)"MORT. PMT."s2:P$t34,5y" "zT1NPW(1(1(ST)))(S1)PMT1PW(2):T13)PW;28)PMT) A11P1& (2):T13)A1;28)P1- T7 #34,0= $C a **AMT OF 1/YR & S.F.F.**g  :3:"PERIOD"12)"AMT. $1/PRD"27)"SINKING FUND" 2:P$ 34,5 " " T1N AMT(ST1)(S1) SFF1AMT(2):T13)AMT;` P$"SEMI ANNUAL"! S1(IR2)+ 2700; P$"ANNUAL"F ( S1IRa C4000,5000,6000,7000g   * * AMT OF 1 & P.W. OF 1 PER PERIOD * * :3:"PERIOD"13)"AMT. OF $1"28)"REVERSION" 2:P$ 34,5 " " T1N P11(STF1F4ė:50 2 " INTEREST RATE (.00)";IR8 X &"NUMBER OF PERIODS ";N^ Xd  " PRESS ANY KEY TO RUN" :A$ lF2100,2250,2400,2550 4P$"MONTHLY" fS1(IR12) 2700 P$"QUARTERLY" S1(IR4) . 2700 =4" 31:"WHICH ? ";C* C1C440R " CHOOSE A PAYMENT FREQUENCY ":q " MONTHLY = 1" " QUARTERLY = 2" " SEMI-ANNUAL = 3" ," ANNUAL = 4" ^" ";F _ =1"? :" ACCUMULATION OF $1 PER PERIOD =2"p :" SINKING FUND FACTOR =2" :" ANNUITY FACTOR =3" :" MORTGAGE PAYMENT FACTOR =3" :" ANNUAL MORTGAGE CONSTANT (,d::(11):" THE INFINITE":Qn(11):"COMPOUND INTEREST TABLE"x:"========================================":"WHICH FUNCTION WOULD YOU LIKE ?":" AMT. OF $1 AT COMPOUND INTEREST =1" :" REVERSION FACTOR      ARRAYN138(C(N):READS ARRAY.O:INDEX(LIST)OF MEASUREMENTSn5:"VOLUME-U.S.TO METRIC"5:"--------------------""(1)CUBIC YARDS TO CUBIC METERS""(2)CUBIC FEET TO CUBIC METERS""(3)CUBIC INCHES TO CUBIC METERS".0038,473.18,550.61,946.36,1101.23j3785.43,29.574,.4732,.5506,.9463,1.1012,3.785,29.57,473.167,946.331.308,35.31,61023,28.38,264.17,.0021,.0018,.0011,.0009,.0003,.03382.114,1.182,1.057,.908,.227,.0338,.0021,.0011:INDEX LOOP FOR DATA AND ENTER":" "ON REQUEST.":R "SUBSEQUENTLY THE USER ENTERS THE VALUE":l "TO BE CONVERTED.": 10);"PRESS RETURN FOR INDEX";:A$: C(38):DIMS CONVERSION FACTORS :DATA TABLE FOR CONVERSON FACTORS".7645,.0283,.00002,.0353,12000** 10:"HOW THE PROGRAM OPERATES"O 10:"-------------------------"| 5:"AN INDEX OF MEASUREMENTS IS LISTED" :"ON TWO PAGES.THE FIRST IS U.S.-METRIC.": "THE SECOND IS METRIC-U.S..SELECT THE": "DESIRED MEASUREMENT BY NUMBER.,BERKLEY,CA.A n:PREPARED BY MAX J.NAREFF,SANFRANCISCO,CA.1979] x:**TABLE OF CONTENTS**z }:*INTRODUCTION..50-200* :*DATA AND LOOP SETUP* :*LIST OF MEASUREMENTS...500-700* :*PROGRAM DRIVE..710-900* :*ANSWER PRINTOUT SETUP..1000-PILATION,KITCHEN METRICS."X U:ONE OF THE PROGRAMMING TECHNIQUES USED HAS BEEN ADAPTED Z:AND MODIFIED FROM THE BOOK"SOME COMMON BASIC PROGRAMS. _:AUTHORED BY POOLE & BORCHERS,1978 d:PERMISSION FOR USE BY PUBLISHER i:ADAM OSBORNE ASSOC.INC21 :16368,0+ 212:"INTRODUCTION"D 712:"-------------"r <5:"THIS IS ONE OF A SERIES OF PROGRAMS" A"FOR THE CONVERSION TO AND FROM THE" F"METRIC SYSTEM.OTHER PROGRAMS DEAL WITH" K"LENGTH,AREA,WEIGHT,TEMPERATURE AND A" P"COM:5:"METRIC VOLUME"5:"BY MAX J. NAREFF"G"DATE: 7-79"w::"THIS PROGRAM DOES METRIC CONVERSIONS" "FOR VOLUME" 20:"PRESS ESC TO END" :"<>" (16384)2720000 756:(16384)3          "G11.253206 ,"CONGRATULATIONS!! GOOD INPUTS!!"? 6340a @"NO GOOD!! TRY NEW INPUTS!"j J130p T32)2)C F3.14((A2)2)BL G(FED.061H.061)(D.0061EH.061)h "YOUR SWEPT VOL IS:";F "YOUR DECK HEIGHT VOL IS:";E "YOUR COMPRESSION RATIO IS: "G;":1"  "COMPRESSION RATIO IS USUALLY 8.00:1 TO 11.25:1" G8320 DECK HEIGHT IS:" C V "THE HEAD GASKET VOL MAY BE FROM 0 TO 10 CUBIC CM"u "THE HEAD GASKET VOL IS:"| H "THE COMBUST CHAMB VOL MAY BE FROM 0 TO 150 CUBIC CM" "THE COMBUSTION CHAMBER VOL IS:" D  E3.14((AVE YOU RESTRICTIONS ON INPUTS."% P "THE BORE MAY BE FROM 3 IN TO 4.5 IN"d "THE BORE IS:"k Aq "THE STROKE MAY BE FROM 2.5 IN TO 4 IN" "THE STROKE IS:" B "THE DECK HEIGHT MAY BE FROM -.03 IN TO .1 IN" "THEOL+HD GASK VOL"M Z"COMP RATIO=-------------------------------------------" d" DK HT VOL+COMB CHAMB VOL+HD GASK VOL" i n"SWEPT VOL=3.14*((BORE/2)^2)*STROKE" p s"DECK HT VOL=3.14*((BORE/2^2)*DECK HEIGHT" x "I WILL GIqB CREATED BY E.J. ROLENC FOR THE DEC PDP 8/I COMPUTER SYSTEMHl "A PROGRAM FOR AUTO MECHANICS"r"PROGRAM TO FIND THE COMPRESSION RATIO OF AN ENGINE"<F"THE FORMULAS ARE:"K P" SWP VOL+DK HT VOL+COMB CHAMB V     ";A$ (A$,1)"Y"100" :4 10:18:"OK"D Q1500:QL : XX79Y79)ĪSSQUARESS1, LSQUARELS1K A(((SSLS)100)100)100x 22:"POINTS PLOTTED: ";LS;" AREA: ";A X,Y K(16384) K127990 130 23 "POINTS INSIDE SMALL SQUARE: ";SS 24:"DO YOU WANT TO DO THIS AGAIN?N IN THIS AREA." 4D 7"THE CALCULATED AREA SHOULD APPROACH 25"g <"AS MANY POINTS ARE PLOTTED."o A: F:"PRESS SPACE BAR TO BEGIN.":K$ d:::3 n0,0159,0159,1590,1590,0 x0,7979,7979,159 X160(1) Y160(1) (N  ::"14)"MONTE CARLO"(L8)"H.EDELSTEIN DEC 26,1979"T:"CALCULATES AN AREA BY A RANDOM PROCESS."#("POINTS ARE RANDOMLY PLOTTED IN AN AREA"-"OF 100 SQ.INCHES. A SMALLER SQUARE " 2"OF 25 SQ.INCHES IS DRAW(C1(K3T1)C1):X1,39(1Y1)S 9:Z(1C2(K1T1)C1(K2T1)):X1,39(1Z)Y  "PLOT OF CONC. VS TIME FOR RXN A(BLUE)->B(GREEN)->C(ORANGE) K1=";K1;",K2=";K2;",TIME=";T1 Z) .h 8"PLOT OF CONC. VS TIME FOR RXN A(BLUE)->B(GREEN)->C(WHITE) K1=";K1;" ,K2=";K2;" ,TIME=";T1n B  THIS SUBROUTINE PRODUCES A LOWRES PLOT. :5:0,3939 I039:X1I:T15K139I 2:X(K1T1):X1,39(1X) 4:Y1(K2T1)(K1T1):X1,YR(1X):; 1:0,159: PLOT (B) VS TIME\ 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)):X1,YR(1O YOU WANT ANOTHER PLOT ?";B$. B$"Y"ī1404 b  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 T1AK1XRI X.WRITTEN BY G.SCOTT OWEN 7-8-78."2 I12000:Iv "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"İ2000 "D& CONSECUTIVE REACTIONS A->B->C RWRITTENBYDR.G.SCOTWEN,LANTAUNIVERSITYXdn"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 RESOLUTION     2767 N K3.14159180U "ANGLE","1=2C0S(G)","2+SIN(2G)","1+2COS(G)-3SIN(G)^2"pR(X)(X100.5)100A(X)12(KX)(B(X)2(2KX)2C(X)12(KX)3(KX)2<G036015FG,R(A(G)),R(B(G)),R(C(G))PG Z3 A(L) "YAYB(L)5 ,(X1X279Y1Y159)320? 6X,YF @LL JT T23~ ^"DO YOU WANT TO DO THIS AGAIN? ";S$ h(S$,1)"Y"10 r: |10:18)"THE END" P11000:P A0,300"  : "ENTER VALUES: ";A1,A2,A3,B1,B2,B3E AX140O AY80m A(X)A1(X)A2(A3X) B(Y)B1(Y)B2(B3Y) PI3.14159265 R1.01 RADR2PI STPPI128 :3 AXA(0),AY L0RADSTP XAXIN(Y)+B2*SIN(B3*X)"9 Z:"SUGGESTED PARAMETRIC VALUES:"[ d15)"A1, A2, A3, B1, B2, B3"~ n14)"--- --- --- --- --- ---" x15)"25, 25, 10, 25, 25, 10" 15)"25, 50, 10, 25, 50, 10" 15)"50, 25, 10, 20, 10, 5" 15)"25, 50,300, 25, 5  ::15)"CYCLOIDS"F:7)"H.EDELSTEIN NOV 4,1979"r(:"TRACES A POINT ON A CIRCLE THAT IS"2"ROLLING AROUND ANOTHER CIRCLE. "<" THE PARAMETRIC COORDINATES ARE:"F:" X=A1*COS(X)+A2*COS(A3*X)" P:" Y=B1*S   SSAJOUX" :14)"SPIRAL"W &:::"PRESS SPACE BAR TO END THIS PROGRAM. ":ANS$a 0::CSNX11,Y1SN AX,AYX,Y, AX,AYX,AY: X,AYX,YA LI 22x " DO YOU WANT TO DO THIS AGAIN ? ";B$ (B$,1)"Y"10 : 10 "THE FOLLOWING PROGRAMS ALSO ILLUSTRATE" :"THE USE OF POLAR COORDINATES:" :14)"LI STPPI64& X(L)AXBX(CXL)? Y(L)AYBY(CYL)H :3V "AXBX,AYh ,LANG0STPt 6XX(L) @YY(L) JX1X(LSTP) TY1Y(LSTP) ^0 hAX,AYX1,Y1 rX,AYX1,AY |X1,AYX1,Y1 3 SN((CYL)) X1,YSTART WITH A=1 AND B=1. THIS WILL GIVE"S "YOU A CIRCLE. THEN TRY OTHER VALUES:"} :" ENTER VALUE FOR A : ";CX :" ENTER VALUE FOR B : ";CY PI3.1415926536 AX140 BX79100 AY80 BY70 ANG2.01PIP11)"Y = SIN (B * ANGLE)"K Z:"THESE ARE THE HORIZONTAL AND VERTICAL"w d"LEGS OF THE RIGHT TRIANGLE FORMED BY" n"THE ROTATING ANGLE." s x" BY SPECIFYING DIFFERENT VALUES FOR" "A AND B,YOU CAN GET DIFFERENT CURVES." ' "b  :):12)"POLAR COORDINATES"Q:8)"H.EDELSTEIN OCT 22,1979"(:"ILLUSTRATES HOW CURVES AROUND A POINT"2"ARE BEST PLOTTED BY POLAR COORDINATES."<" THE X,Y COORDINATES HAVE THE FORM:"F:11)"X = COS (A * ANGLE)" V(SUMM10)10= "EQUIPROBABLE DISTRIB. OF NOS. 1 TO ";M] "AVERAGE FREQUENCY IS ";AV "WITH A HIGH OF ";HI;" AND A LOW OF ";LO "DO YOU WANT TO DO THIS AGAIN? ";A$ (A$,1)"Y"ī10 : 10:18)"THE END" P11000:P :0279,150 R1T& S(M(1)1)? "SSX,150SYB(S)SYO ,B(S)B(S)1V 6Rf @0,YMSX,Yo BHI0z DL1M FB(L)HIHIB(L) HL JLO1000 LL1M NB(L)LOLOB(L) PL T ^22 hL1M rSUMSUMB(L) |L Ax:14)"WHERE THE SET OF INTEGERS"; :14)"IS 1 TO M"C :h "WHAT IS YOUR NUMBER (M) ? ";Ms T1000 F(101000M)10 SX(279M) G100 M50G50 SY(GF) Y150(1000M)SY B(100) :3 0,00,15  16384:=(10)"THE EQUIPROBABLE DISTRIBUTION"h2::8)"H. EDELSTEIN SEPT 30,1979"P::"PLOTS 1000 RANDOM INTEGERS RANGING"Z:"BETWEEN 1 AND 100."d:10)"THE EXPECTED FREQUENCY OF"n:14)"EACH INTEGER IS 1000/M"$     15)"50, 10, 7, 25, 8, 9"" J "ENTER VALUES: ";A1,A2,A3,B1,B2,B3U AX140_ AY80 A(X)A1(A2X)A1(A3X) B(Y)B1(B2Y)B1(B3Y) PI3.14159265 R1.01 RADR2PI STPPI128  :3 "AXA(0),AYB(N(B3*X)". Z:"SUGGESTED PARAMETRIC VALUES:"P d15)"A1, A2, A3, B1, B2, B3"s n14)"--- --- --- --- --- ---" x15)"25, 2, 1, 25, 2, 1" 15)"25, 5, 7, 25, 5, 7" 15)"50, 7, 5, 25, 6, 4 15)"50, 7, 8, 25, 9, 10"   ::15)"ROSETTE"E:7)"H.EDELSTEIN NOV 4,1979"n(:"TRACES 'ROSE PETALS' AROUND THE"2"POINT OF ORIGIN."<" THE PARAMETRIC COORDINATES ARE:"F:" X=A1*SIN(A2*X) + A1*COS(A3*X)" P:" Y=B1*COS(B2*Y) + B1*SI pS:I I1NX(I,0)X(I,0)N0X(I,1)X(I,1)N7I=$QbY1(0)10:Y]Z190TmC279Q:B0v:70,0279,00,25279,250,50279,50I1QS1C B,191B,191ZR(I)W2\B,25PH(I)fBB1k7I1IL2'V1(X(I1,0)U1X(I1,1)U2)FV2(X(I1,1)U1X(I1,0)U2)\X(I1,0)X(I,0)V1rX(I1,1)X(I,1)V2X(I,0)X(I,0)V1X(I,1)X(I,1)V2IU3U1U4U2U1(U3W1U4W2)U2(U4W1U3W2)JLD110601X(I,1)T2KN2&KJ7300JJK:KK2C690MJJKTI^S11kD0790t S11P13.1415926535898 L1M*L12L4L2L12>U11HU20RW1(P1L2)\W2S1(P1L2)fJ1L2pIJNL1zTYPE (GOTO 210)TO START THE PROGRAM"*I"CALCULATION IN PROGRESS"TI12aX(I,0)1hIq110{&N2M:N2N2DN1N1NJ1XI1N1bIJ680vT1X(J,0)T2X(J,1)X(J,0)X(I,0)X(J,1)X(I,1)X(I,0)TX(I,0)01690 X(I,1)0PH(I)P1PH(I):169D PH(I)P1PH(I)W PH(I)PH(I)KH^ Ih 2000 "USE LINES 210 THRU 400 TO ENTER FUNCTION AS X(I,0) FOR THE REAL PART AND X(I,1) FOR THE IMAGINARY PART"$"WHEN YOU HAVE COMPLETED YOUR ENTRY DEG. THE THIRD IS -180 DEG."; "PRESS SPACE TO CONTINUE"K 16384,128j "CALCULATION IN PROGRESS"w KH25P1 I1Q R(I)(X(I,0)X(I,0)X(I,1)X(I,1)) R(I)T157 TR(I) X(I,0)0X(I,0)1E6 PH(I)(X(I,1)X(I,0)) Y1(0)10:Y3 I1;" ";X(I,0);" ";X(I,1): IX "DO YOU WISH A PLOT?";A$i A$"N"5000 "THE PLOT IS OF THE MAGNITUDE (NORMALIZED) IN SOLID AND THE PHASE" "THE PHASE IS ON A GRID OF THREE LINES THE TOP IS +180 DEG. THE MID IS 0 IS" <I1N FI,X(I,0)$ PIC Z"CALCULATION IN PROGRESS"L n550u p"USE PDL(0) TO CONTROL THE LISTING" q"PRESS SPACE TO PRINT TABLE" r16384,128 s"THE TRANSFORMED DATA IS" t"# REAL IMAG." vQN2.56 xI1N z(1025,2),R(202),PH(202)A "ENTER M WHERE NO. OF POINTS=2^M ";MK N2M "DO YOU WISH TO ENTER DATA IN TABULAR FORM (0) OR ANALYTIC (1)?" S !S1200 #"INPUT DATA ARRAY" (I1N ,"POINT ";I -X(I,0) 2I 7"THE DATA ARRAY &"HI-RES FAST FOURIER TRANSFORM"A" BY BILL JACOBS"{" BASED ON AN ARTICLE BY W. WAGGENER EDN OCT.5 1978""WILL RUN THE FORWARD IE. TIME TO FREQ. OR INVERSE IE. FREQ. TO TIME""ENTER 0 FOR FORWARD OR 1 FOR INVERSE"D X      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" -"------------------------------------   " " X "X"E  "1","2","3","4","5","6","7","8","9","+","+"K  T 229 I1N+ Y(I)((Y(I)Y1)Y3.5)2 I> I0Y2F S0Q J1Nb "Y(J)I320l ,SS1t 6TJ{ @J JS0360 TA$((I)10); ^400 hS1390 rA$(T); |400 "*"; I SS1430 "Y";  A$(11) xY1,Y2,Y3 Y2(Y2Y1)Y30 Y270170I "Y-RANGE TOO LARGE"R 110X ^ "X-AXIS CROSSES Y-AXIS AT Y=";Y1 "Y-AXIS CROSSES X-AXOS AT X=";X1 XX1X2X3 - FUNCTIONS Y(1) TO Y(9) SHOULD BE ENTERED AT INES 221 TOM "PLOT OF FUNCTIONS" 1Y(9),A$(11)=(I111H2A$(I)O<IyF"NUMBER OF FUNCTIONS TO BE PLOTTED";PNZ"X-AXIS: LEFT ENDPOINT, RIGHT ENDPOINT, INCREMENT";dX1,X2,X3 n"Y-AXIS: LOWER ENDPOINT, UPER ENDPOINT, INCREMENT";   )"Y"1000 :B11,158278,158278,11,1$ FAX,AY5 PL0RADSTPA xXC(L)M YS(L)[ ZZZ(L)f YZYZt X1ĪX1 X278ĪX278 YZ1ĪYZ1 YZ158ĪYZ158 X,YZ L  23 "DO YOU WANT TO DO THIS AGAIN? ";S$ (S$,1 4' `"ENTER VALUES:";BX,BY,ZC,CX,CY; PI3.1415926536C R7T RADR(2PI)b STPPI32j Z0 C(L)AXBX(L(R2))(CXL) S(L)AYBY(L(R2))(CYL) Z(L)ZC(L(R2)) AX140 AY8050(ZC) ( 2:3 <1,E)" .:" Z=K3*SIN(ANGLE)K 8:"SUGGESTED VALUES OF THE PARAMETERS:"i B15)"K1, K2, K3, A, B" L14)"--- --- --- --- ---" V14)"100, 30, .2, 2, 2" X14)"100, 30, .2, 2, 3" Y14)"100, 50, .3,200,100" Z14)"120, 10, .4, 1, ::,10)"SPHERICAL COORDINATES"T:7)"H.EDELSTEIN NOV 4,1979"::"TRACES A SPIRAL CURVE IN THE FORM OF""A SPHERE. USES SPHERICAL COORDINATES:":" X=K1*SIN(ANGLE)*COS(A*ANGLE)" $:" Y=K2*SIN(ANGLE)*SIN(B*ANGL Y";  A$(11)" " X( "X"Z  "1","2","3","4","5","6","7","8","9","+","+" "WOULD YOU LIKE ANOTHER PLOT?";R$:(R$,1)"Y"ĺ"RUN MENU" 20 RXX1X2X3 Y(1)X2$ I1N@ Y(I)((Y(I)Y1)Y3.5)G IS I0Y2[ S0f J1Nw "Y(J)I320 ,SS1 6TJ @J JS0360 TA$((I)10); ^400 hS1390 rA$(T); |400 "*"; I XX1430 "NT"; dX1,X2,X3L n"Y-AXIS: LOWER ENDPOINT, UPPER ENDPOINT, INCREMENT";Z xY1,Y2,Y3l Y2(Y2Y1)Y3| Y239170 "Y-RANGE TOO LARGE" 110 "X-AXIS CROSSES Y-AXIS AT Y=";Y1 "Y-AXIS CROSSES X-AXIS AT X=";X1 ܦ "PLOT OF FUNCTIONS" k"HAVE YOU ENTERED THE FUNCTIONS ON LINES 221-229?";R$:(R$,1)"Y"ij|Y(9),A$(11)(I1112A$(I)<IF"NUMBER OF FUNCTIONS TO BE PLOTTED";PN Z"X-AXIS: LEFT ENDPO