' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (  ŠɠΠˠ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠Ġz# u`(Ӡ),<#a()a(ՠĠ)FE(٠)F#a()a(ŠԠٮ)=P#oPa(ҠŠҠӠԠӠ)FdE()'Q()9Zqձ@p(ʩŻٻ)2dղ@p(ŠŠĠŠŠŠ)&nճ@p(ҠŠ)x\a@E(Π IJ)1(#@p(ՠŠĠӠԮ)\xo ,2#a()a(ƠŠ)FE@p(ʩ٠)+ղ@p(ŠĠԠŠӠĠ).(ճ@p(ӠԠΠǠĠӭ)2մ@p(Š)<\ Fqj\h@p()QPѱ@p()Ѳ@p()ѳ@p()Ѵ@p()ѵ@p(٠@p()(qձ@p(ʩǻ)=ղ@p(ɠˠŠӠŠ)ճ@p()\"qi\h@p()U ѱ@p()Ѳ@p()ѳ@p()Ѵ@p()Ѵ@p()+qձ()ѵ@p()5qձ@p(ʩͬԠ٠)'ղ@p(ŠŠӠ̠)!ճ@p(à)\!qh\h@p()Lѱ@p()Ѳ@p()ѳ@p()Ѵ@p()ѵ@p()Ѳ@p()ѳ@p()Ѵ@p()ѵ@p()#tqձ@p(ʩ)@~ղ@p(ǠŠҬɠŠϠŠ)ճ@p(Ġ)\"qg\h@p()Kѱ@p()Ѳ@p()ѳ@p()Ѵ@p@p()ѱ@p()Ѳ@p() $ѳ@p()Ѵ@p().ѵ@p() 8ձ@p(֩ˬ)1Bղ@p(ŠԠŠҠԠ)(Lճ@p(ΠȠŠ)V\`qf\h@p()Hjѱ)ѳ@p()Ѵ@p()ѵ@p() qձ@p(Ω)2ղ@p(Ӡ٠ӠŠĠ).ճ@p(ĠӠȠŠ٠ŭ)*մ@p(ĠϠӠΠŠ§)\qe\hձ@\da()@pղ@\dJ@pճ@\d@pմ@\dT@pյ@\d ^\n_5hqձ@p()ղ@p()ճ@p()մ@p()յ@p()rq[|[qqq qd\h@p()ѱ@p()Ѳ@p(ԠŠqq,@p(ҠҠӠ)\d\n[DM6a()a(٬ҠҠƠ)FE(Ӡ)\ q"a()Pa@9,UVW;@r@Brp()YPa@@p()#@@pѲ@4\xa(Π)FE(ŠĠӠ)E@E()\a()a()a()Eѱ@E()EѲ@a()a()Eѳ@E()EѴ@a()P a()Eѵ@ a()a()PS(ҠҠ)'`%_4`%_]ǽΠɝ _ ]ŠĠ ıN@"(r@p()\n a()Qda()a@@p()[1noS(ԠΧϠŠ)&@[xM6a()a@@p()[0a()[ a()Eѱ@Pa()E        ǠϠŠ̠)\d9H@p(ĠҠŠҠƠҠ)\d\n @p()a@H(Π ı)\hQ)\d\n0@p()\x\a()5 @p(ȠΠΠӠԠӠ)\d@p()\d' @p(Š)\d:*a()@p(ŠŠŠԠӠԠ)\d64@p(Ҡά)\d7@p(ĠέԠӠƠҠŮ)\d/@p(ӠȠŠԠӠ)\d7@p(ƭĠŠԠӠ͠Š)\d1@p(ΠϠŠԠӠ٠)\d0@p(ԠӠŠ@p(̠̠ӠϠĠ)\d5@p(ΠҠŠԯԠӠŭ)\d7@p(Ġ٠ԠӠĠ)\d\n7@p(ȠԠƠŠӠӠĬ)\x7@p(ŭŠӠΠCճ@"(rCյ@"(r#sNմ@"(rC@"(rC@"rX]Ԡ 7b@p(ԯԠנӠ٠)\xl\5v@p(ӠӠӠ̠)\d6@p(̠ҠנĠΠƠ)\d2@pձ@\da()@pղ@\dJ@pճ@\d@pմ@\dT@pյ@\d ^\n_5hqձ@p()ղ@p()ճ@p()մ@p()յ@p()rq[|[q;pN@"rCѱ@"rCѲ@"rCѳ@"rCѴ@"rCѵ@"r,rNձ@"(rCղ@"(rΠԠŠqq,@p(ҠҠӠ)\d\n[DM6a()a(٬ҠҠƠ)FE(Ӡ)\ q"a()Pa@9,UVW;@r@Brp()YPa@@p()#@)EѲ@4\xa(Π)FE(ŠĠӠ)E@E()\a()a()a()Eѱ@E()EѲ@a()a()Eѳ@E()EѴ@a()P a()Eѵ@ a()a()PS(ҠҠ)'`%_4`%_]ǽ_# ]ŠĠ٠קN@"(r@p()\n a()Qda()a@@p()[1noS(ԠΧϠŠ)&@[xM6a()a@@p()[0a()[ a()Eѱ@Pa(         AKE SURE YOU DO VERTICAL LINES IN WHITE. VIOLET DOES NOT APPEAR AT ODD X VALUES.{ AND GREEN WON'T SHOW AT EVEN VALUES. XARAMETERS IN LINE 240  THIS ALLOWS FULL SCREEN GRAPHICS BY CHANGING 'HGR' IN LINE 640 TO 'HGR2'. CHANGING LIMITS ALSO ALLOWS SCALING X & Y AXIS TO SAME SCALE.P SUCH AS 191 BY 191 ( MAKES A CIRCLE LOOK LIKE A CIRCLE). NOTE: IF YOU LIKE COLORS, MHAVE A PROBLEM WITH YOUR EQUATION. CHECK LINE 10 FOR AN ERROR.":]XXSR:LINE420,490v MATTHEW NOEL. GEORGIA TECH BOX 34283 ATLANTA, GEORGIA 30332 TO CHANGE PLOT SIZE FOR THIS PROGRAM, CHANGE THE P1)"N"200l290?v *** THIS LAST BLOCK PLOTS THE Y AXIS.S(933)255690\:3YA(XH(XN)(XMXN)):YA0YA0YAXTYAXTYA,0YA,YT:16304,0:(222)133715(222)255ij(222)254ĦD"YOU SEEM TO INUE. ";:A$`:"DO YOU WISH THE NEXT PLOT SUPERIMPOSED OVER THIS PLOT? ";A$:(A$,1)"N"580t?933,255::600D933,0::"DO YOU WISH ANOTHER PLOT? ";A$N(A$,1)"N"ĀX:"DO YOU WISH TO CONTINUE WITH THE SAME EQUATION? ";A$ b(A$,K PLOTS X-AXIS, OUTPUTS END OF PLOT DATA, AND CHECKS FOR ANOTHER RUN.hXA(YHY2(Y2Y1)):XA0XA0yXAYTXAYT0,XAXT,XA&(7):15:"PLOT DONE." 0"Y-MAX=";YM;" & Y-MIN=";YN:"THE LAST Y=0 OCCURS AT X=";X0:" HIT ANY KEY TO CONTYN:Y1YN:YUYM:Y2YM<(7):"Y-MAX=";YM;" & Y-MIN=";YN:`"THE PLOT WILL NOW PROCEED.":wYRYMYN:YSCYHYRQ0:"HIT A KEY WHEN YOU ARE DONE VIEWING PLOT":Z02000:640:XXN10:80:XXSR:LINE2:XXM490E*** THE 500 BLOC RANGE OF Y? ";YN,YM0hYLYN:Y1YN:YUYM:Y2YMNrYRYMYN:YSCYHYR::470| *** FOLLOWING SECTION DRIVES PLOT ROUTINES AND OUTPUTS MAX AND MIN DATA.:"BE PATIENT, THE RANGE MUST BE FOUND":Q0XXN10:XXSR:LINE1:XXM420YLHE FORM; LOW VALUE,HIGH VALUE. E.G. '-3,12.2'."c ,:"WHAT IS THE RANGE OF X? ";XN,XM 6:"AND WHAT IS THE INCREMENT FOR X? ";SR @XRXMXN:XSCXHXR J:"DO YOU KNOW YOUR RANGE OF Y? ";A$ T(A$,1)"N"400^:"THEN WHAT IS THEKE SURE, IS THIS CORRECT?":10B "PLEASE ANSWER YES OR NO. ";A$W (A$,1)"N"170 *** THE 300 BLOCK GATHERS THE DATA FOR A PLOT THEN JUMPS TO THE 400 BLOCK FOR CALCULATIONS AND PLOTTING.; ":"NOTE: WHEN ENTERING THE RANGE OF X OR Y,ENTER IN TGRAM. IF YOU HAVE PROBLEMS TYPE" "CTRL C THEN TYPE 'RUN' THEN HIT RETURN. IF YOU WANT TO SEE A SAMPLE EQUATION JUST TYPE 'RUN 240' ALONE THEN RETURN." 700 XT279:YT159:XH280:YH160 PI3.141592654:E2.718281828 "JUST TO MAE LIMITS OF Y." C " THE FUNCTION MUST BE ENTERED IN THE"p "FORM Y=F(X), E.G. Y=2*X+3*X^2+SIN(X)." "IN ORDER TO DO THIS, WHEN THE ] APPEARS" "TYPE IN 10 Y=F(X) THEN HIT RETURN. NEXT" "TYPE 'RUN 240' TO CONTINUE WITH THE PROYP0YP0 ZYPYTYPYT( dXP,YP:d n933,0:936:" THIS PROGRAM WILL PLOT THE GRAPH OF A" x"FUNCTION ENTERED AT LINE 10, WHEN GIVEN" "THE HIGH AND LOW LIMITS OF X. THE PLOT" "WILL TAKE ABOUT HALF AS LONG IF YOU CAN" "SUPPLY TH} ]110: *** JUMP TO THEINSTRUCTIONS. PLOT ROUTINE BEGINS AT 400. SEE 720 FOR COMMENTS.g Y1XsQ140YNY:YMY:BOLD(Y):Q1(YYNYNY2YYMYMY<B(Y):BBOLDX0XSRFBOLDB: PXP((XXN)XSC):YPYT((YYL)YSC):   q[]٠ҠϠ͢UVWde.?r Y M6[e  Y []ŠUVWdede`%de Yde `%q`%qq\q q de *Y4[ ]Π q UVWX61 q.?r.?r q `$  q q dq q8r$de.q 8YB[]Π qUVWX6+q.?r.?r q`$  qӺ)cb.?rE()G!UVW` $:0`.?r %a()G:b.?rG DYNcXQ]ΠqqUVWq.?rqq\`%\`%\qq6*qq-r\`%\`$ ,Y]ԠŠccBa(ŠŠƠɠϠ)F8drE(̠M6q `$2qdq8r!2qq q0-<qqq qq6FO4r-rq-rqd]Π}UVW \ \q=]ŠɠΠٺ )]͠ϠϠǠǯԬZ]Ӡ̠ŠӠΠӬԡ٠ҠԠԠ3M6o Pa(נ٠ӠϠՠ)G T      SSA(I,K)B(K,J)K!.S;" ";5J;BIH!P&:g0"MORE DATA ?";RE$:RE$"Y"RE$"YES"4000D4070009999X:I13:(7):Ib'PI 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" -"------------------------------------      Y E " V'I,4 OZ,221,TOMATOE,1 SMALL,22,MACARONI SAL,1 CUP,355,POTATO SALID,1 CUP,99U'34,0:]$'13.'"THANK YOU FOR CHECKING YOUR DIET WITH "3'8'"US TODAY. PLEASE USE THIS PROGRAM AS "='B'" MUCH AS YOU LIKE."L':9) Q'"G O O D B6,BEAN SOUP,1 CUP,167 CHICKEN SOUP,1 CUP,67,MUSHROOM SOUP,1 CUP,133,ONION SOUP,1 CUP,64,PEA SOUP,1 CUP,142,TOMADO SOUP,1 CUP,86,VEGETABLE SOUP,1 CUP,77,POTATO SOUP,1 CUP,179,SPAGHETTI,1 CUP W/SAUCE,172,SPINACH,1 CUP,43,ZUCCHINI,1 CUP,25I TURKEY,1/2 LB,79,PEAR,1 AVE,100,PEAS,1/2 CUP,57 PECANS,1 TEAS,51,GREEN PEPPER,1 AVERAGE,14,PICKLE RELISH,1 TEAS SWEET,21,POTATOE,1 SMALL,85,FRENCH FRIES,10 EACH,156,RICE,1 CUP,187,ROLLS,2 OZ EA,170,TARTAR SAUCE,1 TEAS,74,SAUSAGE,4 OZ,481,POLISH DOG,4 OZ,34UIT,1/2 MEDIUM,58,GRAPE JUICE,6 OZ,122,CHEWING GUM,1 STICK,9,JELLIE-JAM,1 TEAS,55,LEMON,1 AVERAGE,19)r LETTUCE,1 HEAD 4 IN,59,LETTUCE,3 LEAVES,6,LIVERWURST,4 OZ,350,MACARONI,1 CUP,175,MUSHROOMS,1/2 LB,61,EGG NOODLES,1 CUP,200,SALAD OIL,1 TABL,124,ONIONUTBUTTER,1 TEAS,82 ,CANTALOPE,1/2 MELON,58,CARROTS,1 MEDIUM,21,CASHEW NUTS,1/4 LB,639,CATSUP,1 TBLS,18,CELERY,1 STALK,7,CHICKEN,4 OZ BROILED,155,COLESLAW,4 OZ,108 d^ SALTINES,1 OZ,123,CUCUMBER,1 MEDIUM,29,EGGPLANT,1/4 LB BOIL,19,FLOUR,1 CUP,449,GRAPEFR156 SUGAR,1 TEAS,46,SUGAR,1 CUP,770,APPLESAUCE,1/2 CUP,116,AVOCADOS,1/2 EA,185,BACON,4 OZ,696,GREEN BEANS,1/2 CUP,16,LINA BEANS,1/2 CUP,89,CHUCK STEAK,4 OZ,329,T BONE STEAK,4 OZ,539J BEETS,1/2 CUP,27,BOLOGNA,4 OZ,312,BROCCOLI,1 CUP SPEARS,39,PEANS, 1 EA, 13, PRETZELS, 3 1/2 OZ, 390,ALMONDS, 1 OZ DRY RST, 180,WALNUTS,1 TBSP,49,PEANUTS, 1 OZ DRY RST, 179 " HOT DOG, 1 EA, 124, HOT DOG ROLL, 1 EA,113,PIZZA,1 SLICE,185,CRANBERRY SAUCE, 1 TBSP, 29,MUSTARD,1 TEAS,11,OLIVES,2,15,SWEET PICKLE,1 TBSP,JUICE, 4 OZ, 58,PINEAPPLE JUICE, 6 OZ, 104,BACON,1 SLICE,50,STEAK,6 OZ, 200,HAM,2 SLICES,167 CALVES LIVER,1 SLICE,74,CHICKEN LIVER,1 EA, 74,HAMBURGER, 4 OZ,224,PORK CHOP, 6 OZ, 314, FRITOS,1 OZ,164,DORITOS,1 OZ,149,POPCORN,1 CUP ,54n POTATO CHIP1 EA,73,PINEAPPLE,1 SLICE,39 RAISINS,3 1/2 OZ, 289,STRAWBERRIES, 1 EA,3,WATERMELON,1/16 MELON,234,BARBECUE SAUCE,1 OZ,26,BREAD CRUMBS, 1/2 CUP,175,APPLE JUICE,4 OZ, 56,CRANBERRY JUICE,3 1/2 OZ, 65\ LEMON JUICE, 1 TBSP,4,LEMONADE,8 OZ,103,ORANGE  FRIED EGG, 1 EA,120,SCRAMBLED EGG,1 EA,135,TUNA FISH,3 1/2 OZ,145,CRABMEAT,4 OZ,86,LOBSTER,12 OZ,308,FRIED SHRIMP, 3 1/2 OZ,225 CRAB CAKE,1 EA, 110,TUNA SALAD,1 SERV,170,APPLE, 1 EA,70,BANANA,1 EA,85,GRAPEFRUIT, HALF, 41,GRAPES,3 1/2 OZ,69,ORANGE,,BROWNIE,1 EA,146,CUPCAKE,1 EA,175,JELLO, 1/2 CUP,81,ICE CREAM,1/3 CUP,174, ICE MILK,1/3 CUP,137 CHERRY PIE,1 SLICE,258,APPLE PIE,1 SLICE,255,POPSICLE, 1-3 OZ, 95,SHERBERT,1/3 CUP,152,COOL WHIP, 1 TBSP,16,DIET SAL DRESS,1 TBSP,10,EGGS,1 LGE,88 LK CHOCOLATE,1 OZ BAR,152,CEREAL,1 CUP,100,BAKED BEANS,1 CUP,275 CHOC CH COOKIE,1EA,51,VANILLA WAFER,1 EA,15,ANIMAL CRACKER,1EA,9,BUTTER,1 TBSP,100,AMERICAN CHEESE,1OZ,112,COTTAGE CHEESE,1/2 CUP, 120 ` CREAM CHEESE,1 OZ,105,MARGARINE,1 TBSP,72,TOMATO JUICE,3.5 0Z,19,V8 JUICE,3.5 OZ,17 EGGNOG,6 OZ,233,SKIM MILK,8 OZ,116,MILK,8 OZ,159,WHITE BREAD,1 SLICE,62,DOUGHNUT,1 AVE,125,PANCAKES,2-4'CAKES,322@ FRENCH TOAST, 1 SLICE,183,BREAD,1 SLICE, 62,HAMBURGER ROLL,1 EA,89,WAFFLE,1 5 IN,209,MI"HIT ANY KEY TO RETURN TO MENU":U2$+q 4s 200>v 1000D[ DATA STARTS HERE TO SET COUNTING NUMBER IN SEARCH LOOP OF 1300 (FOR I=1 TO N)   BEVERAGES* COKE,6 OZ,78,GINGERALE,8 OZ,80,PEPSI,8 OZ,106,MILKSHAKE,10 OZ,421DATA COUNTER FOR TESTE$ TOTAL IN O MUST BE IN LINES 1300 AND 3100O& OO1]0 M$,M1$,Mk: M$,M1$,MuD KK1N K18ĺ:"HIT ANY KEY TO CONTINUE LIST":U2$::K0X IZ 34,0] :` K0b "THIS IS ALL THE DATA IN MY MEMORY BANK"%l z#        ı   ٠ ΠӠ ԠҠǠӠРӠɠ Ҡ ٠נ  ٠ ŠҠĠΠ'ǠԠٯԠΠΠŠԠ àŠ "ŠɠΠˠ" ĠƠŠɠ" ΠԠ̠Ө̩ŠӨΩ THIS RECIPE SERVING Y/N ";:U2$3 U2$"Y"1557A%R0:R10K*1557Q k TOTAL PRINT OUT SUB TO SET COUNTING LOOP TO SAME VALUE AS 1300  34,0  255 "ITEM","AMOUNT","CALORIES" 34,2 I1150! #  FIGURE RECIPE SERVING *:16U"HOW MANY PORTIONS DOES THIS RECIPE "e"MAKE ";PpR1RPx:"EACH PORTION SERVED BY THIS RECIPE""CONTAINS ";R1" CALORIES" :"DO YOU HAVE ANY MORE FOOD ITEMS TO ADD"!"TO:Y1:"FOOD ITEM","AMOUNT","CALORIES"/Y1=M$,M1$,MH34,15P16V" HOW MANY ";M1$;" ARE YOU GOING TO USE ";:NN1NMTTN1RRN1"CALORIES SO FAR THIS RECIPE "R"TOTAL CALORIES SO FAR "T@1200 FF$M$1500 _I s7 t HERE WE TELL USER NO= u x" I AM ";::"SORRY"::"BUT ";F$;" IS NOT IN MY MEMORY BANK"  1200   RETURN FOR MORE INPUT    PRINT DATA   34,0 YY1&Y1434,15 16 :@ "WHAT FOOD ARE YOU LOOKING FOR ";F$F L o  HERE WE CHECK DATA FOR INPUTu {  F$"STOP"10000 F$"CLEAR"T0:R0:34,0:1170 F$"CHECK"ī2000 F$"TOTAL"Y0:3000 I1150 -M$,M1$,M:"STOP";::" WHEN YOU HAVE FINISHED USING THE PROGRAM"d :"IF YOU WANT A PRINT OUT OF ALL THE" "DATA IN FILE TYPE ";::"TOTAL";::" PLEASE."  50,63 "HIT ANY KEY TO CONTINUE.":U1$  :"FOOD ITEM","AMOUNT","CALORIES" "IF YOU WANT TO KNOW THE CALORIE VALUE"Q e"OF A SERVING IN A RECIPE THEN TYPE" j:"CHECK";::" WHEN ASKED FOR FOOD ITEM." l:"IF YOU WANT TO CLEAR THE COUNTERS AND" n"THE PRINT OUT LIST THEN TYPE ";::"CLEAR": o8 t"PLEASE TYPE ";:AM ALLOWS YOU TO DETERMINE"H "RAPIDLY THE CALORIE VALUE OF ANY FOOD"u "OR OF A LIST OF FOODS SUCH AS A MEAL."{  "IT ALSO CAN BE USED TO FIND OUT THE " "CALORIE VALUE OF A SERVING OF FOOD " "FROM YOUR FAVORITE RECIPE." L' `Z&_ CALORIE COUNTING PROGRAM@d START = FRE(0) 8188Hi10nn08):"CALORIE COUNTING PROGRAM"s:12):"BY PAUL A. PAGE"x:14):"JULY 2,1978"}I12000:I200 PROGRAM STARTS HERE34,0:3 "THIS PROGR      (ҮƠ)FdE()"cca(ӽ)Fa(Ҡ) a(ҮƠ)FddE();cca(Š)a(ŠƠ)a(ӯ)bE(Ϡ)FY_(q nd2e? sa()G ud2exY}`%qq6 q.?%rqqq`%q`%q3d ed!ed%e`%M6qd%ecca(Ġ)F cca(ӽ)Fa(Ҡ)a qd"ed#ed ed!eM6 UVW(qUVWdY`%qd"ed#e*d ed!ed%ed$ea() UVW (^q/?r2`$ZP_sZ]àӠŠƠ dM6M6-N@"r@p(ҠƠӠĠ)Ld"ed ed!e'd#eM6d#ed%eccd%e&a@GT`X%qXcca@E()F6qqqqqqdqqqd]սƠӯ    # DONATED TO"<# APPLE PI.F# BYCP# R.A.JUSTICEIU#fZ#***********************dW"%h(12):"HAVE ";:C$:" CHOICES"gr(14):"THE PROBABILITY OF HAVING AT LEAST ONE DUPLICATE IS"z|(16):(20):Q(23):"TO CONTINUE PUSH RETURN";G$2105 W$"*** THE END ***":11(#***********************2# *PROBABILITY*7GOOD YOUR TOTAL NUMBER OF CHANCES IS ";:(B$){(10):"ENTER THE NUMBER OF PERSONS IN THE GROUPOR THE NUMBER OF TRIALS""C$,A1:E(B$):F(B$)6B1(C$)@AA(EF):EE1JB:B(C$)ī340TQ1A^:(10):"IF ";:B$;:" PEOPLEETURN";A$ ::(8) "ENTER THE TOTAL NUMBER OF CHANCES. AS ANEXAMPLE: SAME BIRTHDAYS-365, CARDS-52, DAYS OF THE WEEK-7" (14):"ENTER NUMBER ";B$ (B$)1ī270 :(14):"PLEASE FOLLOW INSTRUCTIONS!" I11000:I:210.:(6):"L NAME THE SAME CARD OUT OF A"; "DECK OF 52 CARDS. REMEMBER 1 MEANS IT WILL HAPPEN ALL THE TIME, 0 MEANS IT WILL NOT HAPPEN, .5 MEANS IT WILL HAPPEN1/2 OF THE TIME AND .71 MEANS IT WILL HAPPEN 71 TIMES OUT OF 100." " ":"TO CONTINUE PUSH RIES. HE FOUND OUT, AS UNPROBLBLE ASIT SEEMS, IF THERE ARE 30 OR MORE PEOPLE"; "AT A GATHERING IT IS VERY LIKELY THAT ATLEAST TWO OF THEM WILL HAVE THE SAME BIRTHDAY. IF THERE IS A GROUP OF12 PEOPLE IT IS VERY LIKELY THAT AT LEAST 2OF THEM WIL01102 (6):A$"PROBABILITY OF LIKE HAPPENINGS"P X(40(A$))21:X):A$e (8):"*";:MM1s M40150} (10)N "HISTORY TELLS US THAT CHRISTOPHER COLUMBUS USED TO USE THE PROBABILITY OF LIKE HAPPENINGS TO WIN MONEY AT DINNER PARTROGRAM THAT TELLS THE PROBABILITY":11F 2W$"OF LIKE HAPENINGS)":11N 321} 4W$"":11 5W$"PRESS 'ESC' TO END":11 :(16384)1558245 <(16384)16058 P16368,0 d::(4) n"*";:NN1 xN4hA$(25),W$(40). 16298,0::936:20I PRINT CENTER ROUTINEc X(40(W$))21:(X)k W$" ": CONTROL G5:W$"*** PROBABILITY ***":11W$"BY"#W$"R.A.'DICK' JUSTICE":11%(W$"MAY,1980":11& -W$"(A PҠ]ΠK M6Qde-rdeM[T}dede0dededededed ed e_}d ed ed ededededeLdedede`[]ԠԠ]Y sf\2 uf\ zf\Y6a(ՠԠ)F8rE(Ơ)FE(Ԭ)E@E()a(ԠϠ٠οٯΩ)R@`@9()$`@9()$_8a(ҠŠҠƠӠՠ)a(Ġź) qT$_ rr ,`$*-q4q88rr7`%q9q8r >f\2C\#Ha(ԠӠӠŠ)E@E() MqRR@\`@9@*#r$p fa(٭٠)qk_Hpa(ԡ)\qUVWŠƠŠŠ)a(Ġՠ̠̠ŠӠŮ)a(ŠŠϠӠҠӮ)qca(ԠӠҠſ) rR@Pvca(ҠŠҠƠӠՠ)a(ĠŠϠŠĠ)E@E()cT\\ UVW*q 8/?UVWg-rh-rY[LfUVW'ij'kYf&UVW0ij#k8r:YD[ XM6Nba(Ӡ̠͠РՠΠ)a(ŠӠƠŠ̠Ů)nla(ɠ̠נՠԶUVWg-rh-rY` $,`$,`$, `$,`$,`$^`$^`$^"[,f6ijk@[^fcijkijkh[fl mn A-rqI-rqN-rqW[!-rqd- rqh- rqu- rq- rq- rq-rq-rq#_X2`%ijk3`%ijkP`%ijkZUVWng-rh-rxY[frqf-rq6-rq-rq-rq6-rq-rq6-rq-rqf-rq6-rq6-rq6-rq-rq-rq-rq-rqP-rq1-rq4-rq;-rqrq -rq -rq -rq -rq -rq q-rq -rq -rq-rq-rq-rq-rq-rq- rq- rq[- rq- rq- rq-rq-rq-rq-rq-) %O4rO4rO4rO4r N@"r O4r\} N@"r @p() N@"rq-rq -rq -rq -rq -rq-rq-rq-rq- rq- rq[- rq - rq -      <E11000:FP#Z30dX1190AnYA3B3(X)MxY190Y[Y15280dX,YjzE11000:3X1190YA4XB4Y190YY15380X,YE11000:NQ2L2((LYLY)N))R4(QQ)(Q1Q2)?RAR4:BAB4:AAA4EKR3_X1190mYA1B1XyY190YY15080X,YE11000:3X1190 YA2(B2X)Y190YY15180(X,Y2OGARITHMIC QL3((LXY1)N)5 Q1L1((LXLX)N)A B3QQ1W A3(Y1(B3LX))Nm Q2Y2((Y1Y1)N) R3(QQ)(Q1Q2) RAR3:BAB3:AAA3  POWERQTL((LXLY)N)Q1L1((LXLX)N)B4QQ1A4((LYN)(B4(LXN)))(X1N)Q2Y2(Y1Y1)N/$R1(QQ)(Q1Q2)E.RAR1:BAB1:AAA1K8] EXPONENTIALrQL4((X1LY)N)Q1X2((X1X1)N)B2QQ1A2((LYN)(B2(X1N)))Q2L2((LYLY)N) R2(QQ)(Q1Q2)RAR2:BAB2:AAA2   LB3)::::"X=";X;" Y=";Y:990OYA4XB4::::"X=";X;" Y=";Y:990X(YA4)(1B4)::::"X=";X;" Y=";Y:990"ANY MORE";A$(A$,1)"Y"700 LINEARQT1(X1Y1)NQ1X2(X1X1)NB1QQ1A1Y1NB19101RYB1XA1:::::"X=";X;" Y=";Y:990`\X(YA1)B1::::"X=";X;" Y=";Y:990fYA2(B2X)::::"X=";X;" Y=";Y:990pX(YA2)B2::::"X=";X;" Y=";Y:990zYA3B3(X)::::"X=";X;" Y=";Y:990"X((YA3)Q2(A$)? (A$,Q,1)(("0"))(A$,Q,1)(("9"))800V (A$,Q,1)"."800m (A$,Q,1)"-"800s  "IMPROPER FORMAT":240 (A$,1)"X"X((A$,(A$)Q1)):840 *Y((A$,(A$)Q1)) 4LI860,880,900,920HLI850,870,890,::" &"Y=(";A3;")+(";B3;")INX"( 05 X"POWER"= ]:N b"B= ";B4_ l"A= ";A4p v"R^2 ";R4z :: "Y=(";A4;")X^(";B4;")"   "X OR Y=#";A$ (A$)3900 (A$,1)"X"(A$,1)"Y"ĺ"IMPROPER FORMAT":710 ";R1 T::+ ^"Y=(";B1;")X+(";A1;")"1 hD "EXPONENTIAL"L :] "B= ";B2n "A= ";A2 "R^2 ";R2 :: "Y=(";A2;")EXP(";B2;")X"  "LOGARTHMIC" : "B= ";B3 "A= ";A3 "R^2 ";R3 0,500,6008 ::"WOULD YOU LIKE TO PREDICT POINTS";A$N (A$,1)"Y"İ700 :"WOULD YOU LIKE A GRAPH OF THE FUNCTION";A$ (A$,1)"Y"ĴLI5000,5100,5200,5300  + ,"LINEAR" 1: 6"B= ";B1 @"A= ";A1 J"R^2= )(X(T))):L2L2((Y(T))(Y(T)))> xTLTL((X(T))(Y(T)))l L3L3(Y(T)(X(T))):L4L4(X(T)(Y(T)))r A0:B0:R0 C114 C11000,2000,3000,4000 (RA)RR(RA):LIC1 CHOOSE WHAT KIND OF CURVE LI300,40   INIZATION6"NUMBER OF DATA POINTS";NE(X(N),Y(N)P2T1Nv<"POINT #";T;" (X,Y)";:X(T),Y(T)FX1X1X(T):Y1Y1Y(T)PX2X2(X(T)X(T)):Y2Y2(Y(T)Y(T))ZT1T1(X(T)Y(T))dLXLX(X(T)):LYLY(Y(T))" nL1L1((X(T)     Y/ORBIT ***& *** SIMULATION ***A *** BY ***\ *** ROB WENTWORTH ***w *** *** ********************* G3)R2 VXVXF:VYVYF+ XXVX:YYVYA X0X0:VXVX2[ X279X279:VXVX2q Y0Y0:VYVY2 Y191Y191:VYVY2 0:X0,Y0:3:X,Y:X0X:Y0Y 100 ********************* *** *** *** GRAVIT05 2H(5)2010:V(5)2010:R2HHVV:R210050X dDXX2X:DYY2Y:R2DXDXDYDYh iR210010s nAGR2 s(DX)0TH(DYDX):120 vTH1.57(DX) xAXA(TH):AYA(TH) }AX(AX)(DX):AY(AY)(DY) VXVXAX:VYVYAY F(R2ɚG:21:8:"GRAVITY/ORBIT SIMULATION"::8:" BY ROB WENTWORTH"RG1000c X2140:Y296X(5)280:Y(5)192:VX(5)2010:VY(5)105:3(I1100*H(5)2010:V(5)2010:R2HHVV:R210042,HX2,VY2: .16302,Y `$\!`%Y q@Brp@*#r& !d6?eo8rPa@qY\!qM6[Χ$ q`$ qq+ UVWq.?6?r.?6?rY_ > o8rP qbE()F E()Gq.?6@r `$ q o8rPa@*#r @Brp@*#;@rr o8 rPa@ d6?eĠԠ? `$ qN@"rC@"FrC@"r@p()H @p(ڨ)' qd6?e@p()qq UVW8 ]ҠŠϠԠؠǠƠؽΠM6a()FE(ӮԠΧ)]Š$q8rq;@r`$q8r`$q8 r+o8rPbGE(ͮ)o8rP[a(ԮԠή) ccc\R@q_] ]@r'`8r%a(٠ή)_]ŠӬ,UV;@rW;@r@Brp@*#rY1UVW;@r`;@r%q`;@r%Y&`@*#r:@*#r%qY4ccM6a()FE(ӮԠή)_.ǠĠǠԮ)cIxa(ŠŠԠŠǠΠŠΠӠԠӠՠή)]٠ƠͭM6q q ] qo8 rPa@\ o8rP`@9@$]q;@rq;m(N@"rM6d!e$CPS(ϠՠȠϠŠРҠΠԠŠٯΩ)&@T`@:()$Zc*Ua(ҠԠ)ccR@_dBZ@p(ŠΠŠΠӠȬŠԠӮ)o \o\d2eo\o \o\+o \o\o\o\0[ ]ŠӠUVW'q[h]ԠȩrM6_|UVW;@r a@*#rGY["@p(ӫʨٮϡզز)\|$@p(լҪ˥ŬٻԺޫ)\|[+o\o\o\o\*od2e\o\o\4o\l$m&nl!m#nA* fij'k ij'k fij'kij'k4 [Q]٠ЩUVW,Y[]٠ҩM6a()G!d.?)r.?(r.?$re`#"UVWdYnlmnlmnlmnlmn"lmn$ [ ]Ӡ Lf UVW' ij'k YA f l!m#n l$m&nf l$m&n l!m#nA fl!m#nl$m&nf>'/-.g--?666$$$-66..%%$$&65.6$%,$&66..$$66%%$$&..677,,55<<$%%&..66$$%%&-->>677--G6$?-$6-?:$-6GUI2'27/ I77755=--=?/-E*..>>>EI*,557& 176..=''$,,55>><4,-=E1766$--6$$<&-&'-G66$?--?$ I27/ --GI>,I177>>&I176..%%$<67DI1)666/=$$d*,557777--G*,557?-.>>'/I6.-=6&$$4 6-55>>?E/-=I>>>65-,<<& -->>>6&$-175>..%%'?-,<?/5$$$.E.>77f 5'EHI&?6555&<>><,,D I>>%eI9>665=556>>%%$DK: 600:::L1100::2860L 0:140,70140X,70Y:140,70140XX,70YY:2050 %.:I`k~!0@Nm|0@MZk~I 6&$d6d 6d,166&<--7&$?/5$$$.E.>77f 5'E TIME HH:MM U 24:19);1 ^ G$:G$(13)3000\ h A$A$G$:19J);:24:G$;:JJ1:2910h A(A$)y B((A$,2)) V100AB  100K2K1VĢ24::18);"RIGHT!":I11000::3500 PP1:P32867 ::22:13);"WRONG, TRY AGAIN":I1100K212K2 K20K212. K20K212K24 " < ' P0D , J0R 1 P32867\ 2 2870 3 :K1$(K1):23:8);"SORRY, THE CORRECT TIME IS:"::((K1))2K1$"0"(K1) 4 K2$(K2):19);K2$;":";K1$:I15000::3500 6 A$"" T 24:13);"ENTER3)5:K10K160K1' 4Z(THETA12)GN9 f6:60140,70@ 3X X55(Z):Y55(Z)l JN((1)111)~ JN((1)12) ZZ(THETA12)JN(THETA60)K112 XX35(ZZ):YY35(ZZ):140,70140XX,70YY 140,70140X,70Y K2JN3 K220 ("6")31137,1300 ("7")31105,121E x("8")3182,96Z ("9")3175,68 @("1")3179,38:("0")3185,38 ("1")31102,13:("1")31108,13 ("1")31135,3:("2")31142,3 THETATHETA100 GN((1)12) K1(GN0: THETA23.1415926100G ZTHETA:XR(Z):YR(Z):140X,70YT 2I1101b <ZTHETAIo dXR(Z)| YR(Z) ,140X,70Y  ("1")31170,12 ("2")31192,37 ("3")31200,68 ("4")31192,99 L("5")31170,1 :10A">>>>>>>>>>>>>>TIME TEACHER<<<<<<<<<<<<<<"b15:13);"STEPHEN C. SHANK"rI15000:z : 232,00:233,151:0:3R70I19:(("WHAT TIME",I,1))3107I,20: I16:(("IS IT?",I,1))312107I,2     00!& 10)T;"+";A;"=";TA:TTA+&( ::5&2 3000b&P " YOUR LIFE EXPECTANCY IS ";T;" YEARS"l&Z 3000v&d ::& :::& 8)::8)"AND MAY IT BE A HAPPY ONE":& & ::::& & X139:"-";:X:"-":N&% (A$,1)"N"ĺ10)T;"+0=";T:2530A% 10)T;"+1=";T1:TT1G% % "ON THE FOLLOWING SCALE HOW WOULD YOU"::"RATE YOURSELF?"% :% " HAPPY: 3 2 1 0 -1 -2 -3 :UNHAPPY"% :12);% A% & A0ĺ10)T;"+";A;"=";TA:TTA:26E AND COMPETITIVE"-$~ :"PERSON ARE YOU.":p$ "(5 IS THE MOST AGGRESSIVE, INTENSE":"AND/OR COMPETITIVE) ";w$ A}$ $ 10)T;"-";A;"=";TA:TTA$ $ "DO YOU USE YOUR CAR'S SEAT BELTS AND"::"FOLLOW SPEED LIMITS REGULARLY";$ A$% ";A;"=";TA:TTA#8 f#B "ON A SCALE OF 0 TO 3 HOW MUCH OF A"::"CALM, PASSIVE PERSON ARE YOU?"#L :"(3 IS THE MOST CALM)";#V A#[ #` 10)T;"+";A;"=";TA:TTA#j ::$t "ON A SCALE OF 0 TO 5, HOW MUCH OF AN"::"AGGRESSIVE, INTENS YOU MARRIED OR LIVING WITH SOMEONE"::"ON A PERMANENT BASIS";G"A$M"{"(A$,1)"Y"ĺ10)T;"+3=";T3:TT3:2360" AAY25" A0A0:2350" "HOW MANY OF THE PAST ";A;" YEARS WERE "::"YOU SINGLE";" A"$ AA10") #. 10)T;"-"N"ĺ10)T;"+0=";T:21703!p10)T;"+2=";T2:TT29!zC!3000_!"PART IV LIFESTYLE"i!3000o!!"DO YOU LIFE IN A RURAL OR AN URBAN AREA?"!A$!(A$,1)"R"ĺ10)T;"+1=";T1:TT1:2260!10)T;"-1=";T1:TT1!?""AREESS EARNING THEM":6 "AND CONSUME MORE RICH FOOD."< c "IF YOUR JOB ACTIVE OR SEDENTARY"i %q *A$ 4(A$,1)"A"ĺ10)T;"+3=";T3:TT3:2120 >10)T;"-3=";T3:TTS H RAY612180 \"ARE YOU STILL WORKING";:A$!f(A$,1)ZX7b::"IS YOUR ANNUAL INCOME OVER $40,000 ";?lA$Ek(A$,1)"N"ĺ10)T;"-0=";T:202010)T;"-2=";T2:TT2:E$;A$(A$,1)"N"ī2070"PEOPLE WITH HIGHER INCOMES USUALLY" "EXPERIENCE MORE STRE A GREATER CHANCE OF BEING""'P("INVOVLED IN AN ACCIDENT IF YOU WORK AT"V)s*"RUGGED HEAVY LABOR. "y+,"PEOPLE WHO WORK AT JOBS ASSOCIATED WITH"-."OVEREATING ALSO HAVE A LOWER LIFE"/0"EXPECTANCE.":Z15000:T2:TT2:1780"10)T;"+0=";T-:E$;5A$L(A$,1)"N"ī1880:"PROFESSIONALS USUALLY LIVE LONGER"::"EXCEPT MUSICIANS, ARCHITECTS AND":"PHARMACISTS. WHY THIS IS TRUE IS"::"UNKNOWN AT THE PRESENT TIME":&5)"YOU HAVYOU A MUSICAN, ARCHITECT OR":"PHARMACIST";3A$9g(A$,1)"N"ĺ10)T;"+2=";T2:TT2:178010)T;"-1=";T2:TT1:1780"DO YOU WORK IN RUGGED HEAVY WORK OR AS":"A COOK, CHEF OR BAKER";A$(A$,1)"N"177010)T;"-2=";OES NOT":"MAKE YOU LIVE LONGER, MORE EDUCATION"}h"CORRELATES WITH INCREASED INCOME,":"OPPORTUNITY AND ACCESS TO BETTER"m"HEALTH CARE."r|"IS YOUR OCCUPATION CLASSIFIED AS":"PROFESSIONAL ";A$(A$,1)"N"1730+"ARE YOU ATTENDED":"SCHOOL";AFA12ĺ10)T;"-2=";T2:TT2:1600e"A14ĺ10)T;"+0=";T:1600,A17ĺ10)T;"+1=";T1:TT1:16006A17ĺ10)T;"+3=";T3:TT3@:E$;JA$T(A$,1)"N"ī1650Y0^"ALTHOUGH ATTENDING SCHOOL DST ONCE A YEAR";A$>(A$,1)"N"ĺ10)T;"+0=";T:1480Y10)T;"+2=";T2:TT2g::::o:y3000"PART III EDUCATION AND OCCUPATION"3000"STARTING FROM THE FIRST GRADE, WHAT ARE":"THE TOTAL NUMBER OF YEARS S$,1)"M"1440]n"DO YOU HAVE A BREAST EXAMINATION AND":"PAP SMEAR AT LEAST ONCE A YEAR";exA$k}(A$,1)"N"ĺ10)T;"+0=";T:142010)T;"+2=";T2:TT21490"DO YOU HAVE A PHYSICAL AND PROCTOSCOPIC":"EXAMINATION AT LEALTS THAT SLEEP TOO MUCH USE TOO MANY":"HOURS IN NONPHYSICAL ACTIVITY AND MAY"2"BE UNHAPPY AND SLEEP AS AN ESCAPE OR":"MAY BE ILL. DEPRESSED PEOPLE HAVE"<"SHORTER LIFE EXPECTANCIES."PZ(S$,1)"F"AY30(S$,1)"M"AY401490d(=";T:1230%10)T;"+3=";T3:TT3+X"HOW MANY HOURS DO YOU SLEEP EACH DAY";_AeA9ĺ10)T;"-0=";T:1290A9ĺ10)T;"-4=";T4:TT4:1290A10ĺ10)T;"-6=;T-6:T=T-6: :E$;A$(A$,1)"N"1360N(:"ADUGID":"VALUE SYSTEMS AND MAY UNDERGO STRESS"J~"IN MAINTAINING THEM.":R:"DO YOU EXERCISE MODERATELY--JOG, BIKE"::"RIDE, TAKE LONG WALKS, SWIM AT LEAST""TWO OR THREE TIMES A WEEK"A$ (A$,1)"N"ĺ10)T;"+0F THIS":E$;BA$+L(A$,1)"N"ī11701V`"MODERATE DRINKING (UP TO TWO DRINKS PER":"DAY) REDUCES STRESS AMD AIDS DIGESTION."j"HEAVY DRINKING, HOWEVER, PRODUCES":"PHYSIOLOGICAL DAMAGE. AS FOR",t"TEETOTALERS, THEY MAY HAVE RATHER RI00010)T;"-";B;"=";TB&TTB,Y"HOW MANY DRINKS DO YOU HAVE EACH DAY";`AfA0ĺ10)T;"-1=";T1:TT1:1080$A2ĺ10)T;"+3=";T3:TT3:1080.A2ĺ10)T;"-8=";T8:TT8:1080 8:E$"DO YOU WANT AN EXPLANATION O10)T;"-";B;"=";TBpTTB#z^"HOW MANY PACKS OF CIGARETS DO YOU SMOKE"::"A DAY";eAxA0B0:1000A1B2:1000A1B4:1000A1.5B5.5:1000A2B7:1000A2B8:1000A3B10:1000A4B12:1D IN YOUR"::"PARENTS AND GRANDPARENTS."/6A<[10)T;"-3 X ";A;"=";T3Ai TT3A:s3000 "PART II HEALTH AND DIET"*30004>"HOW MANY POUNDS OVERWEIGHT ARE YOU";HAIRA0B0:870\BA10f10)T;"-0=";T:710&10)T;"-2=";T20TT26"WHAT IS THE TOTAL NUMBER OF INCIDENCES"::"OF DIABETES, THYROID DISORDER, BREAST":"CANCER (WOMEN), DIGESTIVE SYSTEM"::"CANCER, ASTHEMA, EMPHYSEMA AND/OR":)"CHRONIC BRONCHITIS FOUNSTERS DIE OF A HEART">D:"ATTACK OR STROKE BEFORE AGE 50?"FXA$kb(A$,1)"N"ĺ10)T;"-0=";T:640l10)T;"-4=";T4vTT4"DID ANY OF THE ABOVE DIE OF HEART"::"ATTACK OR STROKE BEFORE AGE 60";A$(A$,1)"N"ĺS AGE?"A,A80ĺ10)T;"+0=";T:510M10)T;"+1.5=";T1.5:TT1.5Sy"WHAT IS/WAS YOUR FATHER'S AGE?"AA80ĺ10)T;"+0=";T:560&10)T;"+2=";T2:TT20:"DID ANY OF YOUR GRANDPARENTS, PARENTS,"::"BROTHERS OR SI ";BA(C) h:TBA(C)! r3000; |"PART I HEREDITY"E 3000 :"DID AT LEAST TWO OF YOUR GRANDPARENTS"::"LIVE TO AGE 80 OR MORE" A$ (A$,1)"N"ĺ10)T;"+0=";T:460 10)T;"+2=";T2 TT2 "WHAT IS/WAS YOU MOTHER'.8 . 77.8,77.9Q 6 78.0,78.0, 78.1, 78.2, 78.3, 78.4, 78.5, 78.6, 78.7,78.9 @ 79.0,79.1,79.3,79.4, 79.6,79.7,79.9, 80.1, 80.3, 80.5 J 80.7, 80.9,81.2,81.4, 81.6,81.9,82.2,82.4,82.7,83.0 T 83.3,83.6 ^:"YOUR BASE LIFE EXPECTANCY AGE IS.2,72.3,72.5,72.6,72.8,73.0,73.2X  73.4,73.6,73.8,74.1,74.3,74.6,74.9,75.2,75.5,75.8  76.2,76.5,76.9,77.3,77.7,78.1,78.6,79.0,79.0,79.5,79.9 " 80.4,77.0,77.0,77.1,77.1,77.2,77.2,77.3,77.3,77.4, , 77.4,77.5,77.5,77.5 - 77.6,77.6,77.7,77LD.": :"WHAT IS YOUR SEX"( S$5 I0101@ BA(I)G IS CAY20k (S$,1)"F"CC51 69.9,70.0,70.1,70.2 70.3,70.4,70.5,70.6 70.7,70.8 70.9,70.9,71.0,71.1,71.2,71.3,71.4,71.5,71.6,71.7  71.8,71.9,72.0,727:14)"LONGEVITY": d150* n:::X o"THIS PROGRAM IS BASED ON THAT DATA AND" x"STARTS WITH INDIVIDUALS AT LEAST 20":"YEARS OLD." BA(101) :"WHAT IS YOUR AGE IN YEARS" AY AY20ĺ"SORRY, YOU MUST BE AT LEAST 20 YEARS":"O  93663:5)"* * * * * * * * * * * * * * *"C7:14:[(7:14)"LONGEVITY"a*215:6)"ADAPTED BY WINDELL H. GANN"717:12)"NOVEMBER, 1978"<N13000:NA936F3:5)"* * * * * * * * * * * * * * *"K7:14: P          ٠ΠϠŠ®Q]٠ĠΠ٠٠Š٠ή8]͠ĠàΠ, Pa(ԮէŠԠΡ)_0 Pa(Ԯ̠١)_0 Pa(ԮէŠŠԡ)_( ]2 ]Šӧ]x]Ӡ͠ΠϠŠŠƠΠϠҠŠƠ@p()_x+@p(Ԡ)@p()_x$@p()@p()_x#@p()@p()_x!`.?6@r%_d6?e[/ Pa(ԮէŠǠԡ)_- Pa(ԮէŠԡ)_@p()_x&x@p(Ƞ)@p()_x&@p()@p()_x@p()@p()_x&@p()@p(ԠŠ)_x%@p()@p()_x$@p()@p()_x%@p()ñx(2@p(Ƞ)@p()_x <@p()@p()_x)F@p()@p()_xP@p()@p()_x*Z@p()@p()_x*d@p(Š)@p()_x*n@p(Ƞ)@p()@p()_x%@p()@p(Π)_x(@p(נ)@p()_x% @p(נ)@p()_x'@p(נ)@p(Ů)_x"@p(נ)@p()_x)(@p(Ƞ)@p()_)@p()_x'@p()@p()_x#@p()@p()_x%@p()@p(Ԯ)_x&@p()@p()_x*@p()@p(Π)_x!@p()@p()_x#p()@p()_x'j@p()@p()_x"t@p()@p(Ӡ)_x ~@p()@p()_x%@p()@p()_x(@p()@p(Π)_x @p()@p()_x%@p()_x"@p()@p()_x'$@p()@p()_x!.@p()@p()_x%8@p()@p()_x"B@p()@p()_x"L@p()@p()_xV@p()@p()_x'`@)P a()UVWYM6Q,d2e[6d2e[%@p()@p()_x @p()@p()_x"@p()@p()_x'@p()@p(Š)_x(@p()@p(_n>M6o a(ՠĠ)FE(ԠƠ)FE(ӠԮ)2ca(ϠՠȠϠŠӠҠϩ)GR@`@9()$n,M6o P a()a()Ro P a()P a(ŠĠ)P a(R@'`@9()$n`@9()$q2`@9@$cca(Š̠Ӯ)G\,a@UVWdY\68ca(ӠŠŠҠϠŮ)\M6_x)q8/?rr ccq_ UVW YM6Pa(Ġˡ):Zoa(ӠŠŠҠϠŮ)\9dN@"rN@"rN@"rN@" rqqM6nM6q8/?2rr _xoPa(Š)c!q;@rP88rra@cc"Pa(̠)cP a(ŠĠ̠ՠԠԠԮ)2Poa(ƠՠԠԠŠҠ)0Qoa(ŠקĠҠŠ̠)Roa(Į)4Uoa(ΠՠȠϠԠŠŧ)$Voa(ՠ̠ԠҠŮ)WoŠӠĠŠԠǠƠŠ٠Ӯ)b<ca(ҠȠŠӠΠŠΠŠŠƠŠ̠Ġ٠Χ)0Fca(ƠՠӠŠ̠Š)/Ga(Š̠ŠΠĠŠΠ)1Ho>]Π٠ˠΠŬ̠ M6+oPa()o Pa()Do Pa(Ơ)oPa(Ġ)oPa()(UVW YM6k2oa(Ӡ̠͠РՠΠ     PROGRAM CLASSIFIED - PUBLIC DOMAIN -3!2T MONTVALE, NEW JERSEY/  ( 201 ) 391 0984F  MAY 25TH 1979...L   THIS PROGRAM GIVEN TO APPLE CORE OF SAN FRANCISCO FOR USE OF MEMBERS BY JUDD ELLMERS..  JUNE 30 1979 ENTERED IN LIBRARY BY LE ROY LARSEN..-!( NTMAN--------0 ORIGINALLY APPEARED INL THE FEBRUARY 79 ISSUEg 'PERSONAL COMPUTING' AND WAS WRITTEN BY PAT TANNER FOR A POLYMORPH 16K SYSTEM. CONVERSION TO APPLESOFT II DONE BY JUDD ELLMERS 2440ELSEI5C330004 I4C42450ELSEI6C43000S C5I73000ELSEC5I83000l A$:LL1:L143020r  "------THAT'S ALL----HAPPY PLANTING------" :::"=====INPUT 0 TO CONTINUE, 1 TO EXIT=====":I9 I90200 -------PLAI6623052280L ::::"ENTER MIN,MAX ROOM TEMPERATURE "::I7,I8\ I7I82305` ::::"I RECOMMEND THE FOLLOWING PLANTS":::"<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>":j :L1t I1T1:1130:C1I13000~ C2I23000ELSEI3C3ĝ I3,I5-I30ĭI38ĭI50ĭI58222072190h::S$;"ATMOSPHERE CODES";S$:::"1=HUMID""2=HUMID WITHOUT SPRAYING LEAVES":"3=DRY""4=ROOM AIR":"5=ANY":::S$;"ENTER 2 ATMOSPHERE CODES";S$;::I4,I6 I40ĭI46ĭI60"+R"2=DRY":"3=MODERATE, CAN'T DRY OUT"If"4=MODERATE LET DRY OUT"\p"5=SEASONAL-"tq" MORE IN SUMMER"r" LESS IN WINTER"z"6=REST PERIOD NEEDED YEARLY""7=SPECIAL WATERING NEEDED":::::S$;"ENTER 2 WATERING CODES";S$;:,C5:1:::S$;"LIGHT CODES";S$::"1=SHADE"p"2=SEMI-SHADY":"3=SEMI-SUNNY":"4=INDIRECT":"5=SUNNY":::S$;:"ENTER MIN,MAX CODE FOR ROOM ";I1,I2:I2I1ĭI10ĭI262110 2050>:::S$;"WATER CODES";S$:::"1=EVENLY MOISTHEN YOU'RE DONE LOOKING":W$&200."++++++++++++++++++++++++++++++++++++++++":"0=CONTINUE LIST":"ENTER PLANT CODE TO VIEW PROFILE.":"++++++++++++++++++++++++++++++++++++++++"/IBI0300:I1T11000LL1e1060jA$,C1,C2,C3,C44ĺ"ROOM AIR":C45ĺ"ANY"9"TEMPERATURE: ";C5::290\:"CODE PLANT"::L1I11T1:1130:I1;" --- ";A$:LL1L171070$%:"========================================":"THAT'S ALL THE PLANTS I HAVE !!":" HIT ANY KEY W4ĺ"MODERATE-LET DRY OUT"OlC35ĺ"SEASONAL, MORE IN SUMMER, LESS IN WINTER"vvC36ĺ"REST PERIOD NEEDED YEARLY"C37ĺ"SPECIAL WATERING NEEDED""ATMOSPHERE: ";:C41ĺ"HUMID"C42ĺ"HUMID WITHOUT SPRAYING LEAVES":C43ĺ"DRY"C4кA$:::"LIGHT: ";)C12ĺ"SHADY, ";JC13ĭC21ĺ"SEMI-SHADY, ";kC14ĭC22ĺ"SEMI-SUNNY, ";C15ĭC23ĺ"INDIRECT, ";C24ĺ"SUNNY."0:"WATER: ";:C31ĺ"EVENLY MOIST"NC32ĺ"DRY":C33ĺ"MODERATE,CAN'T DRY OUT"bC3;I:I22000:I#1230O"<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>"::"DO YOU WANT A LIST OF AVALIABLE PLANTS ?(Y/N)";I$I$"Y"1000:I$"N"260"::::"INPUT PLANT CODE #";I:,I11000:IT1200J:I11I:1130:I1:::2,4,1,1,652K"BEGONIA E.-WATERMELON",2,4,1,4,60\L"ACALYPHA-CHENILLE PLANT",2,4,1,4,65fT176oP17A$(50):S$" * * * ":::S$;"PLANT MAN";S$:::"PLANT GROWTH NEEDS=1":"PLANTS FOR YOUR HOME=2"::S$;:"OPTION ?",4,1,4,65.E"SENECIO M.-WAX IVY",2,5,4,4,60]F"GIBASIS-TAHITIAN BRIDAL VEIL",3,5,4,4,60G"AECHMEA F.-SILVER VASE B",2,4,7,4,60H"PILEA C.-ALUMINUM PLANT",2,4,1,4,65I"EUPHORBIA S.-CROWN OF THORNS",2,4,4,4,65 J"RUELIA M.-MONKEY PLANT",LE",1,3,1,1,659?"ABUTILON-FLOWERING MAPLE",3,5,1,4,60h@"DAVALLIA S.-RABBIT FOOT FERN",2,4,1,1,65A"HOWEIA-KENTIA PALM",2,4,1,4,65B"BEAUCARNEA-PONY TAIL PALM",3,5,1,4,65C"DRACENA S.-RIBBON PLANT",2,4,1,4,65 D"CISSUS R.-GRAPE IVY",2 RIPPLE",2,4,4,4,65:9"FICUS B.-WEEPING FIG",3,5,4,4,65b:"BOWIEA-CLIMBING ONION",2,4,4,4,65;"POLYSCIAS F.-MING ARALIA",3,5,1,4,65<"MIMOSA P.-SENSITIVITY PLANT",3,5,1,4,65="SCILLA-SILVER SQUILL",2,4,1,4,60>"HEMIGRAPHIS-PURPLE WAFF65+2"CRASSULA A.-JADE PLANT",3,5,4,4,60G3"KALANCHOE",3,5,4,4,60q4"ECHEVERIA-CHICKS & HENS",3,5,2,4,605"SEDUM-JELLY BEANS",3,5,2,4,606"ZEBRINA-INCH PLANTS",2,4,4,4,607"CALATHEA Z.-ZEBRA PLANT",2,4,1,1,658"PEPEROMIA C.-EMERALDCEROPEGIA-ROSEARY VINE",2,4,4,4,65D,"BROMLIAD FAMILY",2,5,7,4,60i-"MAMMILLARIA CACTUS",3,5,2,3,60."RHOEO-MOSES IN THE CRADLE",3,5,1,4,60/"PODOCARPUS",3,5,1,4,600"HELXINE-BABY TEARS",2,4,1,1,601"PILEA M.-ARTILLERY PLANT",2,4,4,1,,3,4,605%"PLECTRANTHUS A.-SWEDISH IVY",2,4,4,4,60V&"HOYA-WAX VINES",2,4,4,4,60}'"LITHOPS-STONE PLANTS",3,5,4,3,65("BEGONIA M.-IRON CROSS",2,4,1,1,60)"CALADIUM-ELEPHANT EARS",2,4,1,4,65*"SCHEFFLERA-UMBRELLA TREE",2,4,1,4,65"+"IAEUM-CROTONS",3,5,3,1,65C "CISSUS A.-KANGAROO VINE",2,4,4,4,60r "SAXIFRAGA-STRAWBERRY BEGONIA",3,5,4,4,55 !"COLUMNEA M.-GOLDFISH",2,4,4,2,65 ""AESCHYNANTHUS-LIPSTICK VINE",2,4,1,1,65 #"FITTONIA-NERVE PLANT",2,4,1,1,65$"COLEUS",3,5 "ADIANTUM R.-MAIDENHAIR FERN",2,4,1,1,65Y "PLATYCERIUM-STAG HORN FERN",2,4,7,1,65 "CHRYSALIDOCARPUS-ARECA PALM",2,4,1,4,65 "SPATHIPHYLLUM-WHITE FLAG",2,4,1,4,65 "ASPARAGUS SPRENGERII",2,4,4,4,60 "YUCCA TREE",3,5,4,3,60 "COD,60. "TOLMIEA PIGGY BACK PLANT",2,4,1,1,60X "DIZYGOTHECA-FALSE ARALI",2,4,1,4,65 "HEDERA H.-ENGLISH IVY",2,4,1,4,60 "SAINTPAULIA-AFRICAN VIOLET",2,4,1,4,60 "GYNURA-PURPLE PASSION",3,5,1,4,60 "FATSIA-JAPANESE ARALIA",2,4,1,4,55,",1,4,4,4,656 "AGAVE P.-PRINCESS AGAVE",3,5,2,3,65] "MARANTA-PRAYER PLANT",2,4,1,4,60 "PEPEROMIA O.-BABY RUBBER PLANT",2,4,4,4,65 "FICUS E.-RUBBER TREE",3,5,4,4,65 "CACTUS FAMILY",5,5,2,3,60 "AEONIUM-PINWHEEL SUCCULENTS",2,5,4,3,4,1,4,606 "TRADESCANTIA-WANDERING JEW",2,4,4,4,60a "ALOE VERA-MEDICINE PLANT",2,4,4,3,60 "CHLOROPHYTUM-SPIDER PLANT",2,4,1,4,60 "DRACENA M.-DRAGON TREE",2,4,1,4,65 "HAWORTHIA P.-PEARLY DOTS",2,4,2,3,60 "SANSEVIERA T.SNAKE PLANT4* ****************PLANTMAN**********Z"ARAUCARIA-NORFOLK ISLAND PINE",1,3,1,4,60"DIFFENBACHIA-DUMBCANE",2,4,4,4,60"MONSTERA D.-SPLIT LEAF PHILO",2,4,1,4,60"PHILODENDRON-HEART LEAF",2,4,1,4,60 "SYNGONIUM P.-TRILEAF WONDER",2          RECT": R1R150:650, TT1:T3662H :"IT'S ";A$:662::S  QUIT[ 90s ::"AGAIN ? ";Q$ (Q$,1)"Y"1250  600dDORT DEFINITION ";E$$ 040: OPEN 4 :70: WRITEA DR1R150J E530P IX N70` S90p X READ BACKv b~ 40 R10 50 A991200 T0 :A;". ";B$ :" SPELL THE WORD ";W$ W$A$1000 : :A$;" CORCLOSE";FI$ `!  INPUT DATA7 ::"DATA INPUT"Y :" WHATS YOUR NAME ? ";FI$ "DO YOU WISH TO READ OR WRITE ";X$ (X$,1)"R"600 R10 "A NUMBER( -99 TO READ BACK )";P P99585 " A SPELLING WORD ";C$ &:" A SH  D$(4)#D$;"NOMON I,O,C",500<( OPEN FILEO*D$;"OPEN";FI$U,e2 READ FILE4D$;"READ";FI$;",R";R16A,A$,B$8D$:F WRITE FILEHD$;"WRITE";FI$;",R";R1JP:C$:E$LD$NZ CLOSE FILE \D$;"XNX:YNY16368,0:920&""1520:XD INTENCITY)."10,0:0,159279,159279,00,0M"HIT ANY KEY TO STOP "cXA:YB:XV5:YV5wNXXXV:NYYYVNX279NX279:XVXVNX0NX0:XVXV(16384)127990NY159NY159:YVYVNY1NY1:YVYV7:NX,NY (RRXX)2:XX1,Y1Y:X:490-520:9003l24:" HIT RETURN TO CONTINUE  ";A$::24:"STARTING POINT OF LIGHT REFLECTION PATTERN (X,Y)=";A,B:16368,0::24:"THEY REFLECT ON THE SURFACE, BUT LOSE THEIR ENERGIES (SPEED AN1:XX1,Y1Y:X:455%520:510:24:"BUT, LIGHT TRAVELS DIFFERENT SPEED AND DISTANCE IN DIFFERENT DENCITY SPACES"R5::5:0,50259,50:6X1138:Y150:RR7RX1,Y1XRR6:Y(RRXX)1:XX1,YY1:XXRR3:YSS AT THE SAME POINT"23:160,0160,50100,159A520:475|"LIGHT TRAVELS SAME DISTANCE AND SPEED FROM SOURCE"R5::1X1138:Y179:RR716301,0:RX1,Y1XRR6:Y(RRXX)1:XX1,YY1:XXRR6:Y(RRXX)X)3:X130,Y50:X@XRR1:Y(RRXX)3:X130,50Y:Xo520:"CENTERED LIGHT GO STRAIGHT THROUGH"2:130,0130,159520:"LIGHT BENT INWARD AND CROSS AT R/2 LOCATION"3:100,0100,50160,159520:"LIGHT VENTS INWARD AND CROL LOCATION"m130,0130,150'r""_w520:"LIGHT WILL BE REFLECTED AND CROSS R/2 POINT"{|1:101,0101,145200,0520:" IN ANY DIRECTIONS"3:160,0160,14560,0520::R50:24:" A DOUBLE CONVEX LENS"XRR:Y(RRX"LONG WAVE OR RED COLOR CAN REACH LONGER DISTANCE"WE1:X0250:Y(X60)50:X,80YbJX:""O520:" SINGLE CONCAVE REFLECTER"T:3:R50YXRR:Y(RRXX)2^X130,Y130:Xc"" h520:"LIGHT WILL REFLECT BACK TO ORIGINAFILTER SHIELD OTHER SPECTRAMS"%2G"X0100:Y(X40)50:X,80YN'X,520:"SHORT WAVE LIGHT HAVE MORE CHANCE TO BE REFLECTED BY PARTICLES IN AIR"12:200,30200,70:200,100200,1306X0200:Y(X10)50:X,80Y;X:""2@520:WAVE WITHOUT FILTER"L:0,80250,80:3:X0250:Y(X31.415)50:X,80Yl0,300,130:250,30250,130yX:"" 520:" SAME COLOR PENATRATE FILTER"7:100,40100,60:100,90100,130X0250:Y(X20)50:X,80Y:X520:" 0520:"RED CANNOT GO THROUGH"35:0,60100,60520::" PRISM":3:110,5080,100140,100110,50:0,10098,705:98,70120,70259,90:1:98,70115,72259,110:6:98,70125,78259,130:2:98,70135,85259,159520:"BASIC SINE UBTRACTED BY BLUE COLOED SURFACE":5:0,6060,159:520o::24:"BLUE LIGHT CAN GO THROUGH BLUE FILTER"6:100,0100,159:0,80259,80:520:"GREEN CANNOT GO THROUGH"1:0,20100,20:520:"VIOLET LIGHT CANNOT GO THROUGH"3:0,40100,42095,100M520:"BLUE LIGHT WILL REFLECT FROM THE BLUE COLORED SURFACE":6:0,159259,159:0,0125,159259,0:520:"BUT, YELLOW CANNOT REFLECT"1:0,20100,159:520:"VIOLE IS ABSORBED IN BLUE SURFACE"!2:0,4080,159:520:"THEY ARE S DIMENSION"6 :3:0,0130,100259,0:0,100259,100d 520:"REFLECTION FROM TRANSPARENT SHEET" 2:0,120259,120:0,2095,100115,120130,100 520:"REFLECTION FROM DOUBLE SHEET":1:0,145259,145 0,4565,10085,120100,145115,120:85,1,130:250,30250,130! X:""M 520::24:" DIFFERENT INTENCITY"v 2:X0250:Y(X31.415)80:X,80Y} X 520::24:" DIFFERENT WAVE LENGTH" 1:X0250:Y(X25)50:X,80Y:X 520::24:"INCIDENT RAY REFLECT IN SAME6)(16336)(16336). d0,Y259,75:Y:520d i"INTERFERENCE BY OTHER PARTICLES IN SHORT WAVES" n:6:I12594:130,159I,0:I s520:"BASIC SINE WAVE OF SINGLE LIGHT ELEMENT" x:0,80250,80:3:X0250:Y(X31.415)50:X,80Y }0,300RAVEL 186,283 MILES/SECOND IN THE AIR"E K:5:X0155:Y015910m PSOUND(16336)(16336)(16336) U:5:0,X259,Y:Y,X:520 Z:"LIGHTS INTERFERE EACH OTHERS TO CREATE WAVE EFFECTS" _:5:Y01596:0,Y259,60:SOUND(16336)(1633(4096,3J -:1:N1111:MN111:A(N1)6.283211:B(M1)6.283211| 2SOUND(16336)(16336)(16336)(16336) 7(90(A)130),(.7290(A)90)(90(B)130),(.7290(B)90) <M,N AT12000:T:I17:(7):I& F520:"LIGHT T316298,0; :"AMERICAN AVICULTURAL ART & SCIENCE"m220:X219:X:1:" ":"PRESENTS":X250:I115:20:I:" APPLE ][ ASSISTED PROGRAM":IP12000:P:24:"STUDIES IN PHYSICAL PROPERTY OF LIGHTS"#(4096)370      'TITRATION'dIF3ī20302003/0:0,39K:0,39L?KK1:LL1JK0ıT2030\: DONATED TO APPLE CORE OF SAN FRANCISCO BY THE APPLE PI CLUB JULY 1979 MOD. TO ADD LAST LINES TO SHOW ACQUISITION..   tX2228y0:19,X X11:18,2029C0:W,Y:WW1SW21ī1200\700lZ60ī1070u975~W18YY11181F0:J0:K0:L0JJ1J0,39K:0,39LKK1:LL1J10ī2003J0:FF126:12,2639 29,3912!1.X1325;29,38XB$XR%922:922)"PRESS T TO ADD THE BASE TO THE ACID."+Z0:W18:Y0.A$/B$"T"0A$B$ī108511070=ZZ1:2B2LX2228Q19,XoXp18,2029922 I180["BURET EMPTY! REPEAT TITRATION WITH A STRONGER BASE OR LESS ACID."d600j|I020:922I18015:0,2017:0,202117,1821:20,21212:0,2020:0,2119:0,2018 15:29,3912:29,39HE""CONCENTRATION.":922N"CON(BASE)*VOL(BASE)=CON(ACID)*VOL(ACID)"TfI020:922mIw2000I020:"CONGRATULATIONS!!!!!!""REPEAT TITRATION WITH WEAKER BASE OR LARGER SAMPLE ACID."600I020:L.":9226A;" ML ACID IN 500 ML DISTILLED WATER."@922"ENTER THE VALUE YOU CALCULATED FOR THE ACID CONTRATION.":U922:K(UC)100UK2ī944I1100:SOUND(16336)(16336)I"YOU HAVE NOT CORRECTLY CALCULATED T0DHQ2935!J15,23Q(LQ.N5R2BTX1325OV29,38XVXX`z922oZ16ī950"TITRATION SUCCESSFUL"600I020:922I"THE BASE CONCENTRATION= ";B;" N.":922 "THE BASE VOLUME= ";Z;" M]A$_B$"T" bA$B$ı)g6053PEZ>P4ıPP4P3ī800bP3P2ī800tP2P1ī825P1P0ī825P0ī850 2"810$1&810(*Q2935,18,20Q.Q092;840>1@84 922922320aA;" ML UNKNOWN ACID IS BEING ADDED TO 500 ML DISTILLED WATER."j600s250 D=CONC(ACID) AFTER MIXING WITH 500ML D.W.DAC(500A) E=VOL(BASE)ED(500A)B1000X"PRESS T TO CONTINUE""1'"****************************************"<,X05F1922M6XX;34,20l@"ML ACID= ";AzEA10400J"SAMPLE TOO SMALL. REENTER VALUE."O922T922Y320150A300ī450"SAMPLE TOO LARGE. REENTER VALUE."/ "****************************************"_ "* *"h 150 "* HOW MANY ML OF UNKNOWN ACID WOULD *" "* YOU LIKE? *" !250""* ******************************"A 922:922:922:922:34,20W "NORMALITY= ";Bh B1.00ī250y B2.00ī250 B4.00ī250 B5.00ī250 "NOT A VALID MOLARITY. REENTER VALUE." 922:922:225 34,0 X020:922 XYOU HAVE 1.00, 2.00, 4.00, AND *"U "* 5.00 NORMAL SODIUM HYDROXIDE *" "* AVAILABLE. WHICH WOULD YOU LIKE IN *" "* THE BURET? (60 ML BURET) *" 250 "* *" "***********"* NORMAL. *"4 250d "****************************************"s 922:600 X020:922 X "****************************************" "* *" 150% "* THE *"; }"* NORMALITY OF AN UNKNOWN ACID BY *"k "* NEUTRALIZING IT WITH BASE OF KNOWN *" "* CONCENTRATION. YOUR BURRET HOLDS *" "* 60 ML OF BASE. THE UNKNOWN ACID *" "* IS LESS THAN 5 BUT GREATER THAN .1 *"+ PZI020\922$^I<d TITRATION 7/20/78Mi VERSION #1`j C=CONC(ACID)rkC(1)4.9.1n"****************************************"o150s"* !!TITRATION!!! *" x"* THE OBJECT IS TO DETERMINE              ժժժծ~paaya~|?@@@@@U*U*W*W*U*qayC`~@pC@s @ @`\*U?CU*Uc ~@  pX@ @ p89`p`+0p@(U*U*UzW.UxD~y<@@mx@xA8< <F9<@@*U@תժժ@@@ p@P*`px@p@@ @x@ @@@U*U*ujU*U*U`xsx?@@@i @0@`L@@Ъվժժ`C@c@!@@0@ժժժpa[~|?@` @ @@o@ժծպժxva1pC@~@x`C@s ` @@@oL*U?@T*UpsGcp@0 H\ X0@8|Gp@@ 0@(U*_*U.u?U>xgFA|?`/>@@G(@@A|0 F8 `@*U@ݪժժ`@@@@0 @@@*|~@s|}@ƪՀЪՀp `` @<@@@}*U*ujU*+U`say@s~?@@O(@@@X@@P*U*}+U*U*U`vp~ pp@0 @`2@ժժժxaOC|?@p @@`80@ժժxAsa`gy@(pxp@s8 @@8(UP P*p^ac~ @;@``  h @`g}6; 0 @ U*+}/U>Uzl @`@`|0@@8@@s@0108f<8@@(U@ߪժժ `x`@ @@@*`NL@ԪՊԪՂ8x3@ @@@@}*U*U*W*U.xsay@s@?@n8@@@p@@P*Uj]/U*U*U`|@Pa@`@@@"@ժժժպae|?@0 0@@pO@0`@ժժժppa@o_s@<^x@s 0 @@vP *` .@@<p < `@`l` @ U*.W*U*U*>X?`p>@@@?`? @810x|x64|@(U@ߪժժ00@c @  @@*?xApA@ԪժժՊ ^ @`@@ @@@@u+U*WjW*Uz~say@s?_a?@80@ @@`@@T*UjU.U*U*U`x @ '@@@"@ժժժժa}x?@ `q@`x0@@p@ժժߪpa@{#@Bx@`O`@@P*``[8@``  @@X@`@`U/W~W*U*U*fCO:m9@0~@@@#`c@1p 8 @@@ U@߫ݪժժ`0@n @ @@*@@ծժժժs@``@0@@U+UjUj]+U*Osay@s|?@8 @s0@`@@T*U*W*U*U*U``pC@L@@ @"@ժժժՃ}?H`?@@3P@@@0`@|@~|@ժժծypa@_O?@@?@@@P*8x0@@ `@@8@p@@@w{U*(U*U @{3`@8`@@#@7?p  80 `@@@߮ݪժժՀ``@0?d| @@*Up@ժժժ 8p1@ 0`x@@U+UjUj]*U*{ayAs|?@~~@s @ @@T*U*w*U*U*U``@0N@@`"@ժժժߺՃ~g?L?@,@@9P@@`@ 0ppxp<sxg@ժժժծ{pa1@[CA?~@@@@P* 0 p@`@@ `|@@@@0V*U.G U*U ||"@  @p@  @` >18pxp\7xx@@@ЪծժժՀ `@A`@pG!@@*U@תժժ `@ x0@ U*UjUj]*U*}{ayAs|?@@?&@s? @ @@T*U*wjU*U*U`|@`K@``0f@" " " " """""""""!!! ! ! ! ! !!!!!!!!!   Pò*********************** ** DONATED TO ** APPLE PI USER'S GROUP ** P.O.BOX 17467 ** DENVER-COLORADO 80217 ** *****************************  :6"BLOAD WORLD OF APPLE PI,A$4000"FPAUSE125R(1)7` 16302,0#0,0279,0279,1910,1910,0:1,1278,1278,1901,1901,1(PAUSE<:F10:8:"APPLE PI - EDUCATION DISK 8"KPAUSE1500:P"CATALOG""""