' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#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 < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`P(     ,BK,97,(247)*^ CALIFORNIUM,CF,98,(251)Gh EINSTEINIUM,E,99,(254)br FERMIUM,FM,100,(253)| MENDELEEVIUM,MV,101,(256) NOBELIUM,NO,102,(253)  LAWRENTIUM,LW,103,(256) DONE,DD,1,16,355,POTATO SALAD,1 CUP,99 '34,0:/13]"THANK YOU FOR CHECKING YOUR DIET WITH "c"US TODAY. PLEASE USE THIS PROGRAM AS "" MUCH AS YOU LIKE.":9)"G O O D B Y E "I7,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,25 TURKEY,4 OZ,221,TOMATO,1 SMALL,22,MACARONI SAL,1 CUP PECANS,1 TEAS,51,GREEN PEPPER,1 AVERAGE,14,PICKLE RELISH,1 TEAS SWEET,21,POTATO,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,346,BEAN SOUP,1 CUP,1 CHICKEN SOUP,1 CUP,6GUM,1 STICK,9,JELLIE-JAM,1 TEAS,55,LEMON,1 AVERAGE,19 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,ONION,1/2 LB,79,PEAR,1 AVE,100,PEAS,1/2 CUP,57OTS,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 5 SALTINES,1 OZ,123,CUCUMBER,1 MEDIUM,29,EGGPLANT,1/4 LB BOIL,19,FLOUR,1 CUP,449,GRAPEFRUIT,1/2 MEDIUM,58,GRAPE JUICE,6 OZ,122,CHEWING AUCE,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,539tx BEETS,1/2 CUP,27,BOLOGNA,4 OZ,312,BROCCOLI,1 CUP SPEARS,39,PEANUTBUTTER,1 TEAS,82 ,CANTALOPE,1/2 MELON,58,CARR1 OZ DRY RST, 180,WALNUTS,1 TBSP,49,PEANUTS, 1 OZ DRY RST, 179 d 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,15n SUGAR,1 TEAS,46,SUGAR,1 CUP,770,APPLESN,1 SLICE,50,STEAK,6 OZ, 200,HAM,2 SLICES,167P 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 ,54?Z POTATO CHIPS, 1 EA, 13, PRETZELS, 3 1/2 OZ, 390,ALMONDS, 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-F LEMON JUICE, 1 TBSP,4,LEMONADE,8 OZ,103,ORANGE JUICE, 4 OZ, 58,PINEAPPLE JUICE, 6 OZ, 104,BACO3,YLL:L110X1,YLX1,YL9L:C0ēOP(I,1),OP(I,2)OP((O(I,J)),1),OP((O(I,J)),2)9FJ@PIOZ1:I1NCpdXCP(I,1):YCP(I,2):1450:InNO01420x2:I1NOXOP(I,1):YOP(I,2):1450:I3:I1NHXHP(I,1):YHP(I,2):1480:IL33X3,YLX,2)3CP(C(I,J),1)3,CP(C(I,J),2)3`FF2ēCP(I,1)3,CP(I,2)3CP(C(I,J),1)3,CP(C(I,J),2)3gJn I}NO01370I1NO:J12(O(I,J)013502O(I,J)100ēOP(I,1),OP(I,2)HP((O(I,J)100),1),HP((O(I,J)100),2):13502<O(I,J) @ @(@ PP@ @  P@  @(@ @@@%P   @(@@Q? Q @ ?@(@  A P(@ @   @ P(@  I1 R J IJ 380% TYA(I,J)5 ^ K1 R1P hA(I,K)A(I,K)YA(J,K)X r K` | Ih  Jn |  I1 R "X";I;"=";(A(I,R1)10005)1000  I  A(J,I) I J) J1 R6 IJ RM A(I,J) 0 230U Io "NO UNIQUE SOLUTION"y 440 K1 R1 XA(J,K) A(J,K)A(I,K) A(I,K)X  K Y1A(J,J) " K1 R1 ,A(J,K) YA(J,K) 6 K @ :(K);":1";" MOTOR SHAFT TORQUE";:30:K1;" ";K$ RRENT";:30:IR;" AMPS"=X" WATTAGE";:30:P;" WATTS"ob" WITH GEAR TRAIN TORQUE";:30:TF;" FT-LBS"g23:"OR ";TI;" IN-OZS"l:"OR SEPERATE GEAR TRAIN"q" WITH MOTOR SHAFT SPEED";:30:RM;" RPM" v" GEAR RATIO";:30LBS"&" SPEED";:30:S;" RPM"L" WHEEL DIA.";:30:D;" IN"R&q0"MOTOR SPECIFICATIONS:"::" HORSEPOWER";:30:HP;" HP"?" VOLTAGE";:30:ES;" VOLTS"D" MAX CURRENT";:30:IP;" AMPS"N" RUNNING CU:" THE GEAR SYSTEM SHOULD HAVE A STEP-DOWN RATIO OF ";(K);":1 AND BE":"CAPABLE OF HANDLING A ";K1;" ";K$:"TORQUE AT ITS OUTPUT.":::"HIT 'RETURN' TO CONTINUE...";A$:16:"SUMMARY":"GIVEN:":"ROBOT WEIGHT";:30:W;" NECESSARY." O` T" DO YOU WISH TO CALCULATE (Y/N) ";:A$:(A$,1)"N"500 ^::"WHAT IS THE MOTOR SHAFT SPEED (RPM)": h10:RM: rKRMRG:TM(TFK.5):TN((TIK)10.5)10:K1TM:K$"FT-LB" wK11K1TN:K$"IN-OZ"|"TORQUE - ";TF;" FT-LBS"= ,10:" OR ";TI;" IN-OZS":d 610:IP;" AMPS (START-UP/STALL)": @10:IR;" AMPS (RUNNING)": J" IF THE ABOVE MOTOR/GEAR TRAIN ASSEMBLY IS NOT AVAILABLE AS A UNIT, ADDITIONAL CALCULATIONS WILL BE IR100.5)100 :" A ROBOT DRIVE MOTOR TO HANDLE ";W:"POUNDS AND RATED AT ";ES;" VOLTS WOULD":"REQUIRE A GEAR TRAIN TO TURN THE WHEEL AT ";RG;" RPM.": " THE MOTOR NEEDED:": 10:HP;" HORSEPOWER": 10:P;" WATTS": "10:1):200 HP.11601 HP(HP101)10:200H HP(HP1001)100Y HP.1E.7n HP.1HP1E.8~ HP1E.9 P1.36SWE:P1P:P10230 P(P1):240 P(P101)10 IPP1ES:I1IP:IP(IP100.5)100 IRI1(1E):IR(FT/SEC)"::20:S:C F"DRIVE WHEEL DIAMETER (INCHES)"::20:D:r P"MOTOR SUPPLY VOLTAGE (VOLTS) "::20:ES ZRG7203.14159SD:RG(RG.5) dTFW24D:TF(TF10.5)10 nTI8WD:TI(TI10.5)10 xHP(1.8SW)1000:HP1140 HP(HP= 16298,0_ ::7:15:"R O B O T"::10:"D R I V E M O T O R"::15:"D E S I G N"k:::}A14000::(" MOTOR SHAFT TORQUE";:30:T1;" ";K$2"MAXIMUM EXPECTED WEIGHT (LB)"::20:W: <"MAXIMUM STRAIGHT-LINE SPEED (   Q ? NEEDED FOR THE BEAM IN FEET IS ";(1.51030F)(1.51005F)(1.5975F);" FOR THREE ELEMENTS. ADD ";1.5975F;" FEET FOR EACH EXTRA DIRECTOR.""REDESIGN? (0=YES 1=NO) ";A:A04000"0=MENU 1=END ";A:A060A4,(1.51005F)4,(1.5975F)4::"THIS MEANS A 15M BEAM IS AS BIG AS A NORMAL 20M BEAM, BUT THIS HAS MORE GAIN.":"BANDWIDTH IS ";14.3F;" KHZ"::"SPIDERS ARE"1.5((((1030F4)2)((1030F4)2))(2));" FEET LONG MAXIMUM":"TOTAL WIREAL WIRE NEEDED IS ";(.321030F)(.321005F)(.32975F);" FEET INCLUDING STUBS"| "REDESIGN? (0=YES 1=NO) ";A:A03000 "0=MENU 1=END ";A:A060 :2:"EXPANDED MINI QUAD"::"WHAT SINGLE FREQUENCY (MHZ) ";F:400q12:(1.51030F)1030F4)2)((.181030F4)2))(2),(((.181005F4)2)((.181005F4)2))(2),(((975.18F4)2)((.18975F4)2))(2):: "TUNING STUBS ARE MANDANTORY !"::"STUB LENGTHS IN FEET ARE": (.141030)F,(1005.14)F,(975.14)F:Q "TOT=NO) ";A:A02000:A02000;f"0=MENU 1=END ";A:A060Apy :2:"MINI QUAD"::"WHAT FREQUENCY (MHZ) ";F:400 12:L;(1030.18)F4,(1005.18)F4,(975.18)F4::"BANDWIDTH IS ";13.3F;" KHZ"::"LENGTH OF SPIDER SUPPORTS IS" (((.182:FF2:800#VFF3:FF3:FF3:800X::"TOTAL WIRE NEEDED IS ";(1030F1)(1030F2)(1030F3)(1005F1)(1005F2)(1005F3)(975F1)(975F2)(975F3);" FEET PLUS ";(975F1)(975F2)(975F3);" FEET FOR EA ADDITIONAL DIRECTOR"\"REDESIGN? (0=YES 1 FOR MORE ";A$::8:"BANDWIDTH OF EACH LOOP (KHZ) IS"K4:"1","2","3":>14.3F1,14.3F2,14.3F3::"THIS MAXIMIZES GAIN AND F/B RATIO WITHIN YOUR PARAMETERS"H:"DISTANCE ALONG SPIDER FROM CENTER OF BOOM FOR EACH LOOP IS"RFF1:800 SFFQUENCY (MHZ) ";F1.400:FF1:422:424:426V:"SPACING DEPENDS ON IMPEDANCE": "READY FOR SPACING? HIT RETURN ";A$:FF1:600:"READY FOR SECOND? HIT RETURN ";A$:FF2:600%"READY FOR LAST? HIT RETURN ";A$:FF3:FF3:6006*"HIT RETURN";Z3;" FEET. ADD ";Z3;" FEET FOR EACH ADDITIONAL DIRECTOR."g"REDESIGN (0=YES 1=N0) ";A:A01000"0=MENU 1=END ";A:A060:2:"TRI-BAND QUAD":"LARGEST FREQUENCY (MHZ) ";F3" SECOND FREQUENCY (MHZ) ";F2" THIRD FRE "WHAT FREQUENCY (MHZ) ";F- 400:422s :"SPACING DEPENDS ON FEEDPOINT IMPEDANCE":"HIT RETURN";A$:600 L"BANDWIDTH IS ";14.3F;" KHZ." VZ3(1030F)(1005F)(975F):Z3(Z3100.5)100:Z4((975F)100.5)100<["TOTAL WIRE NEEDED = :"SPACING ";X5;" FEET GIVES THE BEST GAIN AND F/B RATIO AT THIS IMPEDANCE": X6(((1030F4)2)((1030F4)2))(2):X7(((1005F4)2)((1005F4)2))(2):X8(((975F4)2)((975F4)2))(2):X6,X7,X8 *  :2:"SINGLE BAND QUAD":40 OHMS ? ";A:A0S.07:A0700N l18:" 52 OHMS ? ";A:A0S.08:A0700{ v18:" 65 OHMS ? ";A:A0S.12:A0700 18:" 72 OHMS ? ";A:A0S.13:A0700 18:"140 OHMS ? ";A:A0S.25 A1610N X5S(1005F):X5(X5100.5)100:470: (L100.5)100;:? (((1030F)4)100.5)100:V (L100.5)100,:x (((1005F)4)100.5)100: (L100.5)100,,: (((975F)4)100.5)100: X:8:"WHAT FEEDPOINT IMPEDANCE (0=YES 1=NO)" Y,F;" MHZ"! b18:" :"WHICH ONE ? ";M1 M1000,2000,3000,4000,975L  **** DIMENSIONS ****j 10:"LENGTH OF ONE SIDE" 11:"REFLECTOR","DRIVEN","DIRECTOR"  12:450:12:460:12:470: FF2:13:450:13:460:13:470: FF3:14:450:14:460:14: :16298,0:1098:"QUAD ANTENNA DESIGN"C#L(5)](23:"HIT RETURN ";A$f<:8F6:"1. SINGLE BAND QUAD":P6:"2. TRI-BAND QUAD":Z6:"3. MINI QUAD":d6:"4. EXPANDED MINI QUAD":n6:"5. NONE": x:6     Ӡ͠ӠŠΠӠŠƠŠŠӠΠŠΠɠҠϭӮŠƠΠΠΠՠĠϠŠΠΠӠӠŠ٠͠ϠšӠĠӠŠҠ͠͠ƠΠΠŠȠŠͮԠ̠Ӡ̠͠ŠĠŠӠƠԠΠĠӮŠ13);"VAR.DIFF.";:26);"STD.DEV.DIFF."D" ";R;:13);Q;:27);WL:"T RATIO ";RW:"ON ";D;" DEGREES OF FREEDOM.":"T RATIO ";RW:"ON ";N(1);N(2)2;" DEGREES OF FREEDOM."T$255:6);N(I);:13);(M(I)10000.5)10000;:21);(V(I)10000.5)10000;:32);(D(I)10000.5)10000khIrQV(1)N(1)V(2)N(2)|W(Q)RM(1)M(2)KV(1)N(1)QD1(KK(N(1)1)(1K)(1K)(N(2)1)):'"MEAN DIFF.";:N(P)NP2280P2&110E NOW WE PRINT THE ANSWERS"GROUP";:6);"NUMBER";:13);"MEAN";:21);"VARIANCE";:32);"STD.DEV.",6I12@M(I)S(I)N(I)JV(I)(N(I)Z(I)S(I)S(I))N(I)(N(I)1)TD(I)(V(I))d^I;NUE HIT RETURN";:U1$:Ab5:"YOU MAY ENTER YOUR DATA NOW"::GcMdvgS(10),Z(10),N(10),M(10),V(10),D(10)iP1nS0xS20N0XX999999210SSXS2S2XXNN1140S(P)SZ(P)S2 100";::" TO GET RESULTS."H _::"HIT RETURN TO CONTINUE";::U1$: `"AFTER GETTING YOUR RESULTS IF YOU WANT":"TO ENTER ANOTHER SET OF DATA THEN TYPE":"'DEL 900,2000' AND HIT RETURN"::"THEN TYPE 'RUN' TO RESTART PROGRAM."a:20:"TO CONTI FOR ALL PARTS OF ANY PLANE TRIANGLE GIVEN ONE SIDE & ANY TWO OTHER PARTS OF THE TRIANGLE.kJ USERST SURVEYORS,HIGH SCHOOL STUDENTS, AND ANYONE ELSE WHO USES TRIGONOMETRY CAN FIND USE FOR THIS PROGRAM.^ U----------------------"!34,3( 5.M"INSTRUCTIONS Y/N ";:Q$]Q$"Y"940q Q$"N"ė:1405{ 5000 20(T$)2) T$ YWRITTEN! BY PAUL PAGE FROM A< PROGRAM NAMED STAT 1U PAGE 504 VOLUME IIq USERS SOFTWARE MANUALz200T$"MEAN,VARIANCE,AND STANDARD DEVIATION"3000T$"PROGRAM BY PAUL PAGE 7/17/78"3000"----------------- OTHER DATA THAT YOU WOULD LIKE"N"TO CHECK THEN TYPE 'DEL 1,300' AND HIT"~"RETURN. YOU CAN THEN ENTER YOUR NEW DATA"::"HIT RETURN TO CONTINUE":U1$10"YOU MAY ENTER YOUR DATA NOW..." 9E20 THIS PROGRAM RE:80Z"NOTE THAT NUMBERS 1 - 299 HAVE BEEN "Wd"LEFT AVAILABLE FOR DATA ENTRIES"ai::n"DO YOU WANT TO SEE THE INSTRUCTIONS"s"AGAIN ? Y/N ";:U1$xU1$"Y"ė:940}:"IF AFTER THE RUNING OF THE PROGRAM YOU " "HAVE" 1 DATA 8,1,5,4,2"4" 2 DATA 6,7,4,7"Q" 3 DATA 0,4,1,5,4,3"k " 4 DATA 7,6,11,2""OR EQUIVALENTLY:"(" 1 DATA 8,1,5,4,2,6,7,4,7,0,4,1,5 ETC."F" THEN TYPE 'RUN'."P"HIT RETURN TO CONTINUE INSTRUCTIONS":U1$U100014(I1),159NIP(I)100014(I1),1592 11a 2I147,159AVG(I)(I1)147,159AVG(I1)h 6I (22):" 1 2 3 4 5 6 7 8 9 10" SNIP(20),AVG(20)( :16298,0:D"ENTER RECENT NIPS:":NSUM0ZI110u("DAY ";I;":";:NIP(I)-SUMSUMNIP(I):AVG(I)SUMI10002IZ_3d0,0279,0279,1590,1590,0I110"3+ ,14I,15914I,159NIP(I) ӠӠĠԭϠҠϠӠƠĠǮԠԠӠӠŠŠԠӠŠӡΠŠĠΠٮŠӠ̠͠ĠŠΠӠƠ٠ŠΠŠŠĠ٠ϠҠӮĠРЮӠ͠ӠŠӠŠӠŠӠŠӠŠҍӠĠɮԠҠРΠǠҠĭIJ٠͠ϠŠŠҠƠŠΠ̠ԮӠӠӠŠӡנϠנҠŠԠŠԠҠϭӠĠӠƠĠǮӠԠԠҠӡĠΠŠĠɭĠɠĠӮͧӠנӠŠԠŠŠΠ٠ϮɭԠΠҠŠƠՠϠŠϠӠĠӡԠΠŠĠӠӠͮ٠ҡؠӠΠΠҠΠؠήàΠ٠ԠŠԠӠ̠ƠŠĠϠΠԮǠŠàӠͮàŠԠӠŠǠҠؠĠ٠ϭӮؠΠŠӠƠؠӠӠĠؠӮ̠ŠԠӠŠԠǠҠԠƠؠĠ٠ϭӮŠӠӠΠӠƠŠϠŠӠĠΠ̠ӠӠŠȠҠŠġӠӠӠŠƠŠӠŮŠӠӠ͠ĠؠƠӠE / A:"INTERSEPT = ";A0< "DO YOU WANT THE GRAPHED RESULTS?"D B$[ (B$,1)"Y"İ2000{ "DO YOU WANT TO CONTINUE?" A$ (A$,1)"Y"ī8  3 X1190 YAO(XA) Y190Y Y1ī2090 X,Y X *E11000:xRS((ZA)((ZB)(ZC)))v y"SLOPE =";A:"Y-AVERAGE = ";YA:"X-AVERAGE = ";XA:"INTERCEPT = ";XA:"INTERCEPT M = ";AD z"R-SQUARED = ";RS |Y0:X0 } ~"Y=A*(X^B), TO FIGURE Y, ENTER IN X ";X YAO(XA) "Y = ";Y:"X = ";X:"SLOPE = ";,Y 4Y(Y):X(X)d FEXEXX:EYEYY:EEXYEEXY(XY):SXSX(X2):SYSY(Y2):SSXYSSXY(XY)(2)l P I dA ((EEXY(EXEYN))(SX(EX2N))) nYAEYN:XAEXN pAO (YAAXA) uZA(EEEXEYN)2 vZB(SX(EX2)N) wZC(SY(EY2)N) :16298,0:112:8:"POWER CURVE FIT"7a EX0:EY0:EEXY0:SX0:SY0:SSXYO:N0 A0:B0:YA0:XA0:RS0:AO0:N0'3("ENTER IN NUMBER OF PAIRS OF X AND")"Y COORDINATES ";N*I1N2"ENTER IN X,Y FOR POINT ";I 3X  6B. JYY4.69221995404E2(C(AC)C(AC))G TC7.22359807913E2Br ^YY4.78193600396E2(C(AC)C(AC)) hC2.41538328438E2B rYB(Y4.82700442573E2(C(AC)C(AC))) "THE INTEGRAL IS:",Y  60 * YY3.90969478935E2(C(AC)C(AC))@ C.253449954466Bk YY4.16559621134E2(C(AC)C(AC)) C.210675638065B "YY4.38260465022E2(C(AC)C(AC)) ,C.165934301141B 6YY4.55869393478E2(C(AC)C(AC)) @C.11964368112YY2.54990296311E2(C(AC)C(AC))> C.397241897983Bi YY2.93420467392E2(C(AC)C(AC))~ C.36609105937B YY3.29111113881E2(C(AC)C(AC)) C.331522133465B YY3.61728970544E2(C(AC)C(AC)) C.29385787862BY8.13719736545E3(C(AC)C(AC)): C.482381127793Be YY1.26960326546E2(C(AC)C(AC)){ C.467453037968B YY1.71369314565E2(C(AC)C(AC)) C.448160577883B YY2.14179490111E2(C(AC)C(AC)) C.424683806866B( ARE READY TYPE 'CONT' (RET)"" 2> 7:::::::::::X <"ENTER LOWER LIMIT:"a A X1{ F"ENTER UPPER LIMIT:" K X2 dA.5(X1X2) nBX2X1 xC.498631930924B Y(3.50930500473E03)(C(AC)C(AC)) C.492805755772B$ YPI3.14159265359' C(X)(X)9:16298,0:@5p"***** 32 POINT GUASSIAN QUADRATURE *****"z!::%"THE FUNCTION TO BE INTEGRATED IS LOCATED IN LINE 10"':"ENTER THE FUNCTION YOU WISH TO USE IN LINE 10" ,::"WHEN YOU  50 4090 pITCH OF COIL (TURNS/INCH)=";P' D1P@ X(5DL3)(R3R3) S Y((9R3)L3)i N((XX)(YY)) s NNX ::"NUMBER OF TURNS=";N :"TYPE 'J' TO JUGGLE COIL SIZE" "TYPE 'G' TO RETURN TO PI-NET" A$:A$"J"4000  A$"G"30OIL FOR L1, TYPE 'D'" < "TO TRY ANOTHER SETUP, TYPE 'A'"b "TO TERMINATE PROGRAM, TYPE 'T'"w A$:A$"F"2040  A$"A"2010  A$"T"6000  A$"D"4000 & :"DOES NOT COMPUTE":3050 : "RADIUS OF COIL (IN INCHES)=";R3 "P1R2X2C)(QQ1)% C11(P2FX1C)9 *C21(P2X2CF)K L3X3L(P2F)l "C1=";C11E12;" PICOFARADS" "C2=";C21E12;" PICOFARADS" "L1=";L31E6;" MICROHENRIES" L3L31E6 :"TO TRY ANOTHER FREQUENCY, TYPE 'F'" "TO DESIGN THE C :16298,0:'P26.2832:936D"PI NETWORK DESIGN"::h"INPUT RESISTANCE IN OHMS=";R1"OUTPUT RESISTANCE IN OHMS=";R2"DESIRED Q=";Q"FREQUENCY IN HERTZ";FX1CR1Q X2CR2((R1R2)(QQ1(R1R2))) X3L(QR1R  55ĺ"END": 10 -- E=";E D( N"CURRENT------ I=";I. SH X"RESISTANCE--- R=";RN ]h b"WATTS-------- W=";Wp l: v"HIT 'RETURN' KEY TO DO ANOTHER PROBLEM" w"HIT 'ESC' KEY TO EXIT" {X(16384):X128635 }16368,0:X141X155635 ~X1 R0FLAGFLAG1* W0FLAGFLAG1: "FLAG2500C ,180^ E0I0REI:WEIy E0R0IER:WEI E0W0IWE:REI I0R0EIR:WEI I0W0EWI:REI &R0W0E(RW):IER 0 :"VOLTAGE----ANCE" "TYPE 'W' FOR WATTS"% < "THEN THE VALUE "D X${ X$"E"X$"I"X$"R"X$"W"ĺ"WRONG KEY":180 X$"E"Ą"E=";E X$"I"Ą"I=";I X$"R"Ą"R=";R X$"W"Ą"W=";W FLAG0 E0FLAGFLAG1 I0FLAGFLAG1 :16298,0:.FLAG0:E0:I0:R0:W0617F"OHMS LAW"L(T213ZZd"----------------------------------------"n"LIST ANY TWO VARIABLES"sx"TYPE 'E' FOR VOLTAGE""TYPE 'I' FOR CURRENT" "TYPE 'R' FOR RESIST  0- QUARTS TO LITERS0H 11- GALLONS TO LITERS LR 12- BUSHELS TO LITERSf\ 13- PECKS TO LITERSf 14- OUNCES TO GRAMSp 15- POUNDS TO KILOGRAMSz 16- TONS TO KILOGRAMS 17- DEGREES FAHRENHEIT TO DEGREES CELSIUSRS  2- FEET TO CENTIMETERS9 3- FEET TO METERSS 4- YARDS TO METERSq  5- MILES TO KILOMETERS 6- TEASPOONS TO CUBIC CENTIMETERS  7- TABLESPOONS TO CUBIC CENTIMETERS* 8- CUPS TO LITERS4 9- PINTS TO LITERS> 1 ANGLO TO METRIC\ THIS PROGRAM CONVERTS A MEASURE GIVEN IN ANGLO UNITS TO METRIC UNITS. YOU MUST PROVIDE THE VALUE OF THE ANGLO MEASUREMENT & THE NUMBER OF THE CONVERSION WHICH YOU WISH TO PERFORM (AS LISTED BELOW). 1- INCHES TO CENTIMETElR(I32)599vI;"DEGREES FARENHEIT =";R;"CELSIUS"?W - RESTART PROGRAM`170f PUBLISHED BY ADAM OSBORNE & ASS., INC. P.O. BOX 2036 BERKLEY, CALIF. 94702 **** SOME COMMON BASIC PROBLEMS **** PAGE 187 S" 640) I;"BUSHELS =";R;"LITERS"2 640N I;"PECKS =";R;"LITERS"W 640s &I;"OUNCES =";R;"GRAMS"| 0640 :I;"POUNDS =";R;"KILOGRAMS" D640 NI;"TONS =";R;"KILOGRAMS" X640 b - CONVERT FROM DEGREES FARENHEIT TO CELSIUS"KILOMETERS" |640< I;"TSP. =";R;"CUBIC CENTIMETERS"E 640l I;"TBSP. =";R;"CUBIC CENTIMETERS"u 640 I;"CUPS =";R;"LITERS" 640 I;"PINTS =";R;"LITERS" 640 I;"QUARTS =";R;"LITERS" 640 I;"GALLONS =";R;"LITERULTSO N290,310,330,350,370,390,410,430,450,470,490,510,530,550,570,590,620q "I;"INCHES =";R;"CENTIMETERS"z ,640 6I;"FEET =";R;"CENTIMETERS" @640 JI;"FEET =";R;"METERS" T640 ^I;"YARDS =";R;"METERS" h640 rI;"MILES =";R;OU NEED"; N% - END PROGRAM?2 N0670M -CONVERSION AVALABLE?[ N17170y "VALUE TO BE CONVERTED"; I -PERFORM CONVERSION USING PROPER CONVERSION FACTOR RIC(N) -DIRECT PROGRAM TO PROPER CONVERSION UNITS, PRINT RES FACTORSL 0.3937,3.281E-2,3.281,1.094,0.6214,.01136,.003785,.2366,2.113 1.057,0.2642,0.02838,2.104,0.3527,2.205,9.842E-4,0.6214,0 -GET NUMBER OF CONVERSION FROM PROGRAM DESCRIPTION "(TO END PROGRAM ENTER 0)" "WHICH CONVERSION DO Y  :16298,0: 740,900&=("ANGLO TO METRIC"C2y< - ESTABLISH VARIABLES FOR 17 CONVERSION FACTORSFC(17)P - LOOP TO ASSIGN CONVERSION FACTORS INTO C( )ZN117dC(N)nN x - DATA TABLE OF SEVENTEEN CONVERSION     "THE RESULTANT MATRIX IS:"::- I1 R1<# J1 C2D(S0R- K1 C1h2SSA(I,K)B(K,J)p7 K|9S;" ";< JFP Ix 10000' J  I!::1"MATRIX 2"? J1 R2M I1 C2g"ENTER B(";J;I;")=";t B(J,I)~ I,J::"THE MATRIX YOU ENTERED WAS:"  I1 R2 J1 C2B(I,J); J  I::ENSION"* D:"MATRIX 1 WAS ";R1;" X ";C1M E:"MATRIX 2 WAS ";R2;" X ";C2X L 1010g V J1 R1u ` I1 C1 j"ENTER A(";J;I;")="; t A(J,I) ~ I,J ::: "THE MATRIX YOU ENTERED WAS"  I1 R1  J1 C1 A(I,J);1=YES, 0=NO"  D#  D1 60/  10000=  I1 25C K  In "MATRIX MULTIPLICATION":::t  "DIMENSION OF MATRIX 1 (I,J)";  R1,C1 $"DIMENSION OF MATRIX 2 (I,J)"; . R2,C2 8 C1R2 1110 B"ILLEGAL MATRIX DIM3 310 ': , K 1:H 6:"THE RESULTANT MATRIX IS:":::V ; J1 Rc @ I1 Ct J D2 350 TB(J,I)B(J,I) ^ D3 380 h A(J,I)B(J,I);" "; r 390 | A(J,I)S;" ";  I   J  "RUN AGAIN ? J;I;")"; K2 260% A(J,I)/ 270<  B(J,I)F  I,JX ::::::e  I1 Rr  J1 C  K2 283 A(I,J);" ";  J   I  K2 290  I1 R  J1 C B(I,J);  J  ! I " D DO YOU WANT ?"; \ D0 _D120,120,100,1000N d"ENTER VALUE OF SCALAR";V n Sx x"DIMENSION OF MATRIX (I,J)"; R,C K1 2 K2 180 "MATRIX 1:" 190 "MATRIX 2:" J1 R I1 C "ENTER ELEMENT A(";:16298,0:+2 A(10,10),B(10,10)5<:10`E"---------MATRIX OPERATIONS---------"tH:::::::K"ADDITION = 1 SUBTRACTION = 2 "N:"SCALAR MULTIPLICATION = 3 "Q:"MATRIX MULTIPICATION = 4"W: Z"WHICH OPERATION     R B(I,J);" ";  J & .  I4 AR 6A(J,K)TA(J,K)) @B(J,K)TB(J,K)1 J K> T L1 RN ^ LJ 410\ hTA(L,J)i r K1 R |A(L,K)A(L,K)TA(J,K) B(L,K)B(L,K)TB(J,K)  K  L  J  : "THE INVERSE MATRIX IS :"::::  I1 R  J1 B(J,J)1 J! J1 R. IJ RD A(I,J)0 210L Ii ::"SINGULAR MATRIX":s 500 K1 R SA(J,K) A(J,K) A(I,K) A(I,K)S SB(J,K) B(J,K)B(I,K) B(I,K)S  K "T1A(J,J) , K1 6:16298,0: 123 "MATRIX INVERSION"9_:::"SQUARE MATRIX ONLY":::w A(10,10),B(10,10)("ENTER DIMENSION OF MATRIX"2 R<"MATRIX ELEMENTS :"F J1 RP I1 RZ"A(";J;I;") = ";d A(J,I)x I   X E11000:E  ;A:"INTERCEPT = ";A0= ,"DO YOU WANT THE GRAPHED RESULTS?"E 6A$[ @(A$,1)"Y"İ370{ J"DO YOU WANT TO CONTINUE?" TB$ ^(B$,1)"Y"ī40 h r |3 X1190 YA(X)AO Y190Y Y1ī460 Y189Y189 X,Y ZC(SY(EY2)N)- RS((ZA)((ZB)(ZC)))z "SLOPE = ";A:"Y-AVERAGE = ";YA:"X-AVERAGE = ";XA:"INTERCEPT M = ";AO "R-SQUARED = ";RS Y0:X0 "Y=M*LOG(X)+B, TO FIND Y, ENTER X" X YA(X)AO ""Y = ";Y:"X = ";X:"SLOPE = "Y COORDINATES FOR POINT ";I$ xX,Y/ X(X) EXEXX:EYEYY:EEXYEEXY(XY):SXSX(X2):SYSY(Y2):SSXYSSXY(XY)(2) I A ((EEXY(EXEYN))(SX(EX2N))) YAEYN:XAEXN AOYAAXA ZA(EEEXEYN)2 ZB(SX(EX2)N)" :16298,0:712:8:"LOGARITHMIC CURVE FIT"KPAUSE12000:Q({2EX0:EY0:EEXY0:SX0:SY0:SSXYO:N0<A0:B0:YA0:XA0:RS0:AO0:N0F3P"ENTER IN NUMBER OF PAIRS OF"Z"X,Y COORDINATES ";NdI1N n"ENTER IN X,    z#?  ӠӠ Ӡ ŠĠРЮ ǮԠ ɭԠΠ ԠΠŠ ҠŠԠӠԠĠΠ ԠҠ ٠ !ŠӠ "ǠŠàŠԠؠΠؠӠ àΠ ͧӠנ ŠӠŠƠΠΠ̠Ӡ ӠŠӠ6Ӡ ̠ŠԠϠԠů͠ΠŠҠҠ͠ Ԡ̠ NM":" NOSE TIP."`:]j"TALK TO YOU LATER ";A$;" . . ."::" 'BYE FOR NOW ! ! ! !"ct~~TECHNICAL INFORMATION REPORT - 33 AVAILABLE FROM:CENTURI ENGINEERING CO. P.O.BOX 1988PHOENIX, ARIZONA 85001GRATULATIONS, ";A$;", YOUR ROCKET"T$:" IS STABLE AND SHOULD FLY BEAUTIFULLY!!"^.11008:"YOUR ROCKET IS OVERLY STABLE AND WILL"::"NOT FLY VERTICALLY IN CROSS WINDS!"B1020L:V"CENTER OF PRESSURE IS ";(100C6)100;" INCHES FRO)1040 G"SORRY, ";A$;", BUT YOUR ROCKET IS":" UNSTABLE.":UYGDC6"CENTER OF PRESSURE MUST BE ";(100Y)100;" INCHES":" FURTHER BACK."::"**** BACK TO THE OL' DRAWIN' BOARD! ****"1100C6G2D1080":"CON(V(SV))\880*fX1((.5V)(SV))7pF6XF5JzY(AB)(AB)_Y(16)(ABY)rZM(A(2B))ZZ(3(AB))C5HZYF7FF1F2F3F4F6W(FC)(F1C1)(F2C2)(F3C3)(F4C4)(F6C5)C6WF7C6(GD.05((PQ)2)'C3T((L23)(1(YZ)))f:"DO YOU HAVE ANOTHER BOTTTAIL?"::" YES=1 NO=2 ";Iw:I760,790F4F3C4C3 610Y(2E)(AB) Y1(Y2)*Y1((Y))4Z((SJ)2)4U>F5ZYHU6870 RX1 ";L2 l3v"BOATTAIL TOP DIAMETER 'P' IS ";P9c"BOATTAIL BOTTOM DIAMETER 'Q' IS ";Qi:"WHAT IS THE DISTANCE FROM THE NOSE TIP"::" TO THE BOATTAIL 'T'? ";TY(QJ)2Z(PJ)2F32(YZ)Y1(PQ) Z1O((L1C)(1(YZ)))S:"DO YOU HAVE ANOTHER SHOULDER?"::" YES=1 NO=2 ";Id&:I560,590o0F2F1z:C2C1D460N:"DO YOU HAVE A BOATTAIL? YES=1 NO=2 ";IX:I610,790b:"WHAT IS THE LENGTH OF THE "::" BOATTAIL, 'L2'?:" THE SHOULDER, 'K'? ";Ke:"WHAT IS THE BOTTOM DIAMETER OF"::" THE SHOULDER, 'N'? ";N:"WHAT IS THE DISTANCE FROM THE NOSE"::" TIP TO THE SHOULDER, 'O'? ";OF12(((NJ)2)((KJ)2))Y1(KN)Z1(KN)2C1З:I390,410,430 C.66L& 4404 C.466L= 440I C.5L :"DOES YOUR ROCKET HAVE A CONICAL"::" SHOULDER? YES=1 NO=2 ";I :I460,590 :"WHAT IS THE LENGTH OF SHOULDER 'L1'? ";L1:"WHAT IS THE TOP DIAMETER OF": TIP TO THE TOP OF THE FINS? ";Hi T:"WHAT IS THE DIAMETER 'J' AT THE BASE"::" OF THE NOSE? ";J ^:"WHAT IS THE NOSE CONE LENGTH, 'L'? ";L h:"WHICH IS THE NOSE CONE TYPE:" r:" CONICAL=1":" OGIVE=2 ":" PARABOLIC=3 ";I |T IS FIN DIMENSION 'B'? ";BD ":"WHAT IS FIN DIMENSION 'M'? ";M ,:"WHAT IS THE RADIUS 'V' OF THE BODY"::" TUBE BETWEEN THE FINS? ";V 6:"HOW MANY FINS, 'U', ARE THERE? ";U @R5D" J:"WHAT IS THE DISTANCE 'H' FROM THE NOSE"::" S THE LENGTH OF 'S'"::" ON THE FIN? ";Sv :"WHAT IS THE DIAMETER OF YOUR LARGEST"::" BODY TUBE, 'D'? ";D F30 F40 C30 C40 :"WHAT IS FIN DIMENSION 'E'? ";E :"WHAT IS FIN DIMENSION 'A'? ";A :"WHA13000 <H F:10B P" HI THERE, WHAT'S YOUR NAME?"::A$o Z:5:"HELLO ";A$;", LET'S GET TO WORK."v d9 n"WHERE IS THE CENTER OF GRAVITY": x" ON THE MODEL? ";G F2 F10 F20 C10 C20 :, "WHAT I  ADAPTED BY BLAKE C. RAMSDELL CREATIVE COMPUTING MAY, 1980:10"THIS PROGRAM WILL DETERMINE THE"(:"CENTER OF PRESSURE OF A MODEL ROCKET." 2H     :16298,0:1 "SIMULTANEOUS EQUATIONS"7E A(9,10)a("NUMBER OF EQUATIONS";i2 R<" COEFFICIENT MATRIX:"F J1 RP"EQUATION";JZ I1 R1d IR1 130n " COEFFICIENT";I;x 140" CONSTANT"; $(C):FT$(C):DE$(C):SP(C)'P:13805Z768:ER1Md"CLOSE PROG.LIST"Zn216,0:D80A$"2"1250#A$"3"9608SS1:SX1960B1130|(FT$(S),1)"B"(FT$(S),2,1)"B"CMD$"BLOAD":1270CMD$"LOAD"D$;CMD$;T$(S) 1370ER0"OPEN PROG.LIST"("READ PROG.LIST"2X<C1XFTS1SX1020j)tFT$(S);" ";T$(S)7~:DE$(S)h(FT$(S),1)"T"(FT$(S),2,1)"T"Ģ20:118018:"'1' RUN THIS PROGRAM":"'2' LOAD THIS PROGRAM""'3' RETURN TO LIST":"'ANY OTHER KEY' .. NEXT ENTRY";16368,0:A$:A$"1"10+ '#' FOR PROGRAM DESCRIPTION ? ";S$4S$"R"960HS$"C"CXė:^(S$,1)"D"1110y$S(S$):S1S701020.SP(S)210208(FT$(S),1)"B"(FT$(S),2,1)"B"CMD$"BRUN":1100BCMD$"RUN"LD$;CMD$;T$(S)VS((S$,2,2)) `LISTED IN FILE AT THIS TIME":::-C1XLC;".";:SP(C)2Ė4:"*";Z5:T$(C)m(37)171020s$20:958:"'#' OF SELECTION TO RUN (* WILL NOT RUN)'C' TO CONTINUE LIST 'R' TO RESTART LIST 'D' & USE.%z ************************-:768,104:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96D$"": CONTROL D"NOMONI,C,O"T$(70),FT$(70),DE$(70),SP(70)1290":ER1Ģ10::"NO PROGRAMS 224,150,208,242,136,208,237,96( ?* BY BOB AND BLAKE]4 ***********************z> * AUTHOR- JIM PFEIFFERH * NORTHWEST SUBURBANR * APPLE USERS GROUP\ * (NSAUG) --PERMISSIONf * GRANTED FOR FREEp * REPRODUCTION INITIALIZE SOUNDS P776790' Q0 P,Q6 O  162,100,173,48,192g  188,0,186,136,208  253,232,208,244,96   INITIALIZE PHASERS P769790 Q P,Q  160,6,162,0,138,24,233 1,208,252,141,48,192,232" PLAY SOME RANDOM TONES!& N1X; R(120)(1)10F 768,RR 769,50[ 770a g ~  INITIALIZE TONES &P770790 0Q :P,Q D N173,48,192,136,208,5 X206,1,3,240,9,202,208 b245,174,0,3,76,2,3,96 l v 7:"N":776U @21:"T":776:25:"I":776:29:"F":776:33:"I":776:37:"C":776m J::15:"VOLUME ";v T"6" ^720 h769:769:769 r255 |PAUSE12000: 810  PLAY THAT TONE! 768,T 769,10 770 TT1 ";:460:"P ";:460:"L ";:460:"E":4601 X1G 12:19:"\":460b 15:14:"B O S T O N"j X6s 460 PAUSE11500: 255 : 5:15:"PRESENTS" "630 ,150 67:1:"S":776:5:"C":776:9:"I":776:13:"E":776:1414 ** Z ************************6 dD$(4)H n::16298,0Q x550[ T134w I139:I:"*";:400: I123:39:I:"*";:400: I3911:23:I:"*";:400: I2311:I:1:"*";:400: 80) 9:15:"A ";:460:"P [ " ************************C * HELLO *d * WRITTEN BY *( * ROBERT E. RAMSDELL *2 * PANSOPHICS, LTD. *< * WHISTLESTOP MALL *F * ROCKPORT, MA 01966 * P * (617) 546-3     NDARD ")"DEVIATION OF THE NUMBERS :"H" 1,5,4,2,6,7,4,7 "Ns"AND ALSO FOR THE DISTRIBUTION""CONSISTING OF :"" 5-1'S, 3-4'S, 6-7'S, AND 2-11'S ""THESE TWO CASES COULD BE RUN BY TYPING""THE FOLLOWING:"'"INTERMIXED FREELY WITH STRAIGHT"D"LIST DESCRIBED ABOVE."L:{"---------------------------------------""TO CONTINUE INSTRUCTIONS HIT RETURN"U1$"AS AN EXAMPLE, SUPPOSE WE WERE""INTERESTED IN THE MEAN AND STAD"0o"DATA, THE N IS THE NUMBER OF DIFFERENT"_t"VALUES TO BE GIVEN, AND THE F(I)ARE THE"~"OF TIMES THE X(I) OCCUR. DATA ""STATEMENTS FOLLOWING MAY BE USED TO""EXTEND THE LIST AS NECESSARY, AND ""BLOCKS OF GROUPED DATA MAY BE"*8"TO CONTINUE INSTRUCTIONS HIT RETURN"3=U1$9@fB"THE INPUT FOR GROUPED VALUES HAS THE "G"FOLLOWING FORMAT:"LV" 1 DATA 0,N, X(1), F(1), X(2), F(2)..."[".......,X(N), F(N)"`j"WHERE THE INITIAL ZERO SIGNALS GROUPE(N). IF NEEDED, ADDITIONAL DATA"L "STATEMENTS MAY BE USED TO GIVE THE "w $"ENTIRE LIST OF VALUES. ADDITIONAL " )"CASES MAY BE GIVEN IN SUBSEQUENT DATA" ."STATEMENTS IN THE SAME FORMAT." 3 4"---------------------------------------" "VALUES OR FREQUENCY DISTRIBUTIONS.". \ "DATA FOR EACH SET OF INDIVIDUAL VALUES" "IS ENTERED INTO THE PROGRAM AS FOLLOWS:"  " 1 DATA N, X(1), X(2), X(3),....,X(N)"  "WHERE THE N VALUES OF THE SET ARE X(1)"! "THRU X)" \" VARIANCE = ";V1( f. p7 z360H "ESTIMATES"h "OF POPULATION PARAMETERS"n t z  "THIS PROGRAM CALCULATES THE MEAN," "VARIANCE, AND THE STANDARD DEVIATION " "FOR EACH OF SEVERAL SETS OF INDIVIDUAL"(UM LIKELIHOOD "; 9009 " NUMBER OF VALUES = ";NY " ARITHMETIC MEAN = ";A| " STANDARD DEVIATION = ";(V) " SAMPLE VARIANCE = ";V * 4"UNBIASED "; >900 H" ARITHMETIC MEAN = ";A R" STANDARD DEVIATION = ";(V12S2MXX "X,M &P$ 0710. D::O N"INDIVIDUAL SET NUMBER ";HW X:m b"SAMPLE VALUES:"v vNC P1N X S1S1X S2S2XX X;" "; P  AS1N V(S2AS1)N V1VN(N1)  "MAXIMO:16298,0:TO0!Y3^O09E202000:hCErHH1V|C9E201500`S10jS20xC0590"FOR GROUPED DATA SET ";HQN0" X-VALUE"," FREQUENCY"P1QX,MNNMS1S1MX S      FILE";N$:D$;"BLOAD";N$;",A16384,L8192"3 :2009 ? 0ES)";A1" ,A1P2A1C:A1(N),D(N)( 6< @D(1)DS(1N)2G JI1N^ TD(I)D(1)(I1)DSr ^A1(I)A1(NI) h:SCV2N r150 |"":R$  10:"WANT TO SAVE ON DISK" R$:R1$(R$,1):R1$"N"440 R1$"Y"400( "NAME THEB1C 30  0 6.2832,360,95,140@ P2,C,V2,H2G 3Q 936y "PATTERN PLOTTER FOR POINT SOURCE" "ANTENNA ARRAYS" : "HOW MANY ELEMENTS";N:N0450 "SPACING IN WAVELENGTHS (IE .5)";DS ""DELTA PHASE (IN DEGREA :16298,0:200(X0:Y03(I1NM2ADA1(I)P2D(I)(B)e<XX(AD):YY(AD)kFPGSC(XXYY)ZGXH2G(B):GYV2G(B):YGV2G(B)dG1(GX):G3(GY)nG4(YG)xG1,G3G1,G4B11180 BP2   C(I,J)),1),OP((C(I,J)),2)^FF1ēCP(I,1)3,CP(I,2)3OP((C(I,J)),1)3,OP((C(I,J)),2)3h1280FF0:C(I,J)I1280K14:KJ1240C(I,J)C(I,K)FFFF1KCP(I,1),CP(I,2)CP(C(I,J),1),CP(C(I,J),2)#FF0ēCP(I,1)3,CP(I(K,2)FF1:10908KB1L:936:21:3DVI1NC:J14`C(I,J)100ēCP(I,1),CP(I,2)HP((C(I,J)100),1),HP((C(I,J)100),2):1280jC(I,J)01210tFF0~K14:KJ1170C(I,K)C(I,J)FF1KCP(I,1),CP(I,2)OP((,2)NO(I,2)100HP((O(I,2)100),1)OP(I,1)7:HP((O(I,2)100),2)OP(I,2)UI[{K1NC:KC(I,J)FF01040TXCP(K,1)TYCP(K,2)FF1:1090K:NO01090K1NO:K(C(I,J))FF01080$KIFF11080.TXOP(K,1)TYOPP(I,0)1I:730#NO01010>I1NO:OP(I,1)0980SJ1NO:JI970O(J,1)IOP(I,1)OP(J,1):OP(I,2)OP(J,2)20:TXOP(I,1):TYOP(I,2):FF1:1020:FF1700JO(I,1)100HP((O(I,1)100),1)OP(I,1)7:HP((O(I,1)100),2)OP(IF1KK3KKKK1:770*HFF1KK27008RNO0880J\C(I,J)0890zfC(I,J)0C(I,J)100OP((C(I,J)),1)0910pC(I,J)0C(I,J)100OP((C(I,J)),1)X:OP((C(I,J)),2)Y:910zCP(C(I,J),1)0910CP(C(I,J),1)X:CP(C(I,J),2)YJ:CXCP(I,1):YCP(I,2)208XX2XCP(I,1)20:YCP(I,2)Y XX3XCP(I,1):YCP(I,2)20p*XXXX1:XX4XX04C(I,J)100HP((C(I,J)100),1)((XCP(I,1))720)CP(I,1):HP((C(I,J)100),2)((YCP(I,2))720)CP(I,2):910>TXX:TYY:FF0:1020:FI1NC:J02:CP(I,J)0:J,IHNO0āI1NO:J02:OP(I,J)0:J,IhFF0:CP(1,1)120:CP(1,2)75II1NC:CP(II,0)0750II:930IIINC:CP(I,0)1CP(I,1)0920XX((1)4):J14:KK0XX0XCP(I,1)20:YCP(I,2) XX1X16368,0bKK196540+lKK201140:vKK19840@oX1((1)NC)1:Y1((1)NC)1:X1Y1650X2((1)3)2:Y2((1)3)2:X1((1)NC)1:Y1((1)NO)1X2((1)3)2:X1((1)NO)1:Y1((1)NO)1:X1Y1690:05404I1NO:O(I,2)0O(I,2)(101HU):HUHU1;IKNHHU140T700^&11000"HIT 'D' TO DRAW THIS DIFFERENTLY":"HIT 'I' FOR A NEW ISOMER (SAME FORMULA)"D"HIT 'F' FOR A NEW MOLECULAR FORMULA"NKK(16384):KK128590 70A C(X1,X2)0O(Y1,2)0C(X1,X2)Y1:O(Y1,2)X1:UNUN1:360O NO1360X 690 O(X1,2)0O(Y1,2)0O(X1,2)Y1:O(Y1,2)X1:UNUN1:360 NC1C(1,1)101:HUHU1 I1NC:J24 C(I,J)0C(I,J)(101HU):HUHU1 J,INO6C(X,2)0C(X,2)I:O(I,1)X:350I @C(X,3)0C(X,3)I:O(I,1)X:350o JC(X,4)0C(X,4)I:O(I,1)X:350x T280 ^I hUNEU460 rNC1400 |650 C(X1,X2)0C(Y1,Y2)0C(X1,X2)Y1:C(Y1,Y2)X1:UNUN1:UNEU460 NO0380 6(X,2)I:2501 C(X,3)0C(I,1)X:C(X,3)I:250V C(X,4)0C(I,1)X:C(X,4)I:250_ 200f It NO0360 I1NO X((1)(NCI1))1 "XNC300:O((XNC),2)0O(XNC,2)I:O(I,1)(XNC):350 ,XNC310:O((XNC),2)0280# 0" n(NH2)NH2NH2NC2130+ x100B EU((2NC2)NH)2c I1NC:J14:C(I,J)0:J,I I1NO:J12:O(I,J)0:J,I HU0:OU0:UN0 NC1260 C(1,1)2:C(2,1)1:NC2260 I3NC X((1)(I1))1 C(X,2)0C(I,1)X:CE"D P" 'C' = THE NUMBER OF CARBON ATOMS":"IN THE MOLECULE, ETC."m ZNC,NH,NO:NC(NC):NH(NH):NO(NO) dNC1NH2NO0NC15NO6ĺ(7):"IMPROPER DATA.":"C MUST BE >= 0 AND < 16":"H MUST BE EVEN, >=2 AND < 2*C+2":"O MUST BE >=0 AND < 7"::7: :16298,0:2CP(15,2),OP(6,2),HP(34,2)FC(15,4),O(6,2)m(:936:5:8);"APPLE-CHEM I":102"THIS PROGRAM WILL DRAW A MOLECULE":"FOR A GIVEN MOLECULAR FORMULA."<:: F"ENTER A MOLECULAR FORMULA":"IN THE FORM 'C,H,O' , WHER      ND SOLLUTION IS :"R916R(3)3.14159265R(3)?770EKh"ANOTHER CASE (1=YES)";oQ{Q120I13B(I)B(I)C(I)60I", ******* TRIANGLE *******6 DESCRIPTIONZ@ TRIANGLE WILL SOVLE (SEC)";S(1),S(2),S(3)2A<"ALT TO SIDE";H(1),H(2),H(3)GFMPwZ"RADIUS OF CIRCUMSCR CIRCLE = ";R1d"RADIUS OF INSCRIBED CIRCLE = ";Rn" AREA OF TRIANGLE = ";WxR911480R801480"A SECO2)(R(1))R911250%?"";" 1"," 2"," 3"["";"----","---","----"a|"SIDE";S(1),S(2),S(3)"ANGLE (RAD)";R(1),R(2),R(3) "ANGLE (DEG)";A(1),A(2),A(3)" (MIN)";(B(1)),(B(2)),(B(3))(" (X1A(I))&$(60B(I))0.0000510902.B(I)0C8A(I)A(I)1\B(B(I))0.00011110hLB(I)0nV`R(I)(A(I)B(I)60)57.2957795jt960~WRPR1S(1)(2(R(1)))H(1)S(3)(R(2))H(2)S(1)(R(3)) H(3)S(SOLUTION POSSIBLE........"$1480ES(I)(S(3)(R(3)))(R(I))KeP(S(1)S(2)S(3))2R(((PS(1))(PS(2))(PS(3)))P)I13R(I)2(R(PS(I)))1030IX157.2957798R(I)A(I)(X1) B(I)600001760R(3)1.57079632&770>R(3)(T(1T2))]R(2)3.14159265R(1)R(3)f I2o940z I23*10304I>R91900HS(3)S(1)860R890\f"ONE SOLUTION IS:"p900zR801140"NO I132 N1120 XI7 bR(2)3.14159265R(1)R(3)@ lI2J v1030S 510y "WHAT ARE SIDE1, SIDE3, ANGLE1"; S(1),S(3),A(1),B(1),C(1) 1540 R81 I1 1120 T(S(3)(R(1)))S(1) T10.00000019101T0.0000A(1),B(1),C(1),S(3),A(2),B(2),C(2). 15409 I12C 1120J Ii R(3)3.14159265R(1)R(2)r I3| 1030 I12 940 I 1140 &"WHAT ARE ANGLE3, ANGLE1, SIDE3"; 0A(3),B(3),C(3),A(1),B(1),C(1),S(3) :1540 DE2, SIDE3"; 6S(1),S(2),S(3)( @9602 J1140X T"WHAT ARE SIDE1, ANGLE3, SIDE2";v ^S(1),A(3),B(3),C(3),S(2) h1540 rI3 |1120 S(3)(S(1)2S(2)22S(1)S(2)(R(3))) 960 1140 "WHAT ARE ANGLE1, SIDE3, ANGLE2";$ PLEASE............" 130* N1300f "NOTE: SPECIFY ANGLES AS DEGREES, MINUTES, SECONDS OR" " DEGREES, MINUTES.DECIMAL, 0 (I.E. , SECONDS =0)" N2340 N4420 N5550 "N3650 ,"WHAT ARE SIDE1, SIDURES OF ANY TRIANGLE,"E n"GIVEN ONE SIDE AND ANY TWO OTHER PARTS."K xQ "WHAT WILL BE GIVEN (1=SSS, 2=SAS, 3=SSA, 4=ASA, 5=AAS)"; N R80 R90 (N1)(N2)(N3)(N4)(N5)0220 "ANSWER 1, 2, 3, 4, OR 5 $ ********* TRIANGLE *********-200?:16298,0:a(:"INFO STARTS AT LINE 860":k2::t<100FA(10),B(10),C(10),H(10),R(10),S(10)PZS(I).01(6000(B(I)(B(I))).5) d"THIS PROGRAM WILL FIND THE UNKNOWN FEAT   ";XS;" DEGREES":7 d"ARCCOS(";X;") = ";XC;" DEGREES"B n::30XC :16298,0:0"ARCSIN AND ARCCOS"::[:"SIN OR COS (RADIANS) ? ";X:X030{(CF.017453294:DF57.29577472C(X)X(((1XX)).0001)<D(X)((1XX))XFX3(C(X)):X4(D(X))PXSX3DF:XCX4DF Z:"ARCSIN(";X;") =  UNA FISH,3 1/2 OZ,145,CRABMEAT,4 OZ,86,LOBSTER,12 OZ,308,FRIED SHRIMP, 3 1/2 OZ,2252 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,1 EA,73,PINEAPPLE,1 SLICE,39< RAISINS,3 1/UP,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 S( FRIED EGG, 1 EA,120,SCRAMBLED EGG,1 EA,135,TD 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 1 CREAM CHEESE,1 OZ,105,MARGARINE,1 TBSP,72,BROWNIE,1 EA,146,CUPCAKE,1 EA,175,JELLO, 1/2 C 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,MILK CHOCOLATE,1 OZ BAR,152,CEREAL,1 CUP,100,BAKE20080, DATA STARTS HEREq TO SET COUNTING NUMBER IN SEARCH LOOP OF 1300 (FOR I=1 TO N) x  BEVERAGES COKE,6 OZ,78,GINGERALE,8 OZ,80,PEPSI,8 OZ,106,MILKSHAKE,10 OZ,421,TOMATO JUICE,3.5 0Z,19,V8 JUICE,3.5 OZ,17s 1300 AND 3100.OO1&8M$,M1$,M=BM$,M1$;:36,32:MGLKK1VK18ĺ:"HIT ANY KEY TO CONTINUE LIST";:U2$::K0`Ij34,0t:~K0"THIS IS ALL THE DATA IN MY MEMORY BANK""HIT ANY KEY TO RETURN TO MENU":U2$R0:R107504 TOTAL PRINT OUT SUBe TO SET COUNTING LOOP TO SAME VALUE AS 1300ku34,0{255"ITEM","AMOUNT","CALORIES"34,2I1150  DATA COUNTER FOR TEST$ TOTAL IN O MUST BE IN LINESMANY PORTIONS DOES THIS RECIPE "0>"MAKE ";P;HR1RPCR:m\"EACH PORTION SERVED BY THIS RECIPE"f"CONTAINS ";R1" CALORIES"p:z"DO YOU HAVE ANY MORE FOOD ITEMS TO ADD""TO THIS RECIPE SERVING Y/N ";:U2$U2$"Y"750 M$,M1$,M34,1516"U" HOW MANY ";M1$;" ARE YOU GOING TO USE ";:N`N1NMkTTN1vRRN1|"CALORIES SO FAR THIS RECIPE "R"TOTAL CALORIES SO FAR "T 350 FIGURE RECIPE SERVING *:16 4"HOW R NO R " I AM ";::"SORRY"::"BUT ";F$;" IS NOT IN MY MEMORY BANK"X a &350g 0 : RETURN FOR MORE INPUT D N X PRINT DATA b l v34,0 YY1 Y14ė:Y1:"FOOD ITEM","AMOUNT","CALORIES" Y1 U LOOKING FOR ";F$ r |A  HERE WE CHECK DATA FOR INPUTG M a F$"STOP"1460 F$"CLEAR"T0:R0:34,0:320 F$"CHECK"ī790 F$"TOTAL"Y0:940 I1150 M$,M1$,M F$M$620 I   HERE WE TELL USEE PROGRAM"6 :"IF YOU WANT A PRINT OUT OF ALL THE"k "DATA IN FILE TYPE ";::"TOTAL";::" PLEASE."q | "50,63 ,"HIT ANY KEY TO CONTINUE.":U1$ 6 @:"FOOD ITEM","AMOUNT","CALORIES" J34,15 T16 ^: h"WHAT FOOD ARE YOOF A SERVING IN A RECIPE THEN TYPE"S :"CHECK";::" WHEN ASKED FOR FOOD ITEM." :"IF YOU WANT TO CLEAR THE COUNTERS AND" "THE PRINT OUT LIST THEN TYPE ";::"CLEAR": "PLEASE TYPE ";::"STOP";::" WHEN YOU HAVE FINISHED USING THCALORIE VALUE OF ANY FOOD"G "OR OF A LIST OF FOODS SUCH AS A MEAL."M y "IT ALSO CAN BE USED TO FIND OUT THE " "CALORIE VALUE OF A SERVING OF FOOD " "FROM YOUR FAVORITE RECIPE." "IF YOU WANT TO KNOW THE CALORIE VALUE"# " :16298,0:2 CALORIE COUNTING PROGRAML START = FRE(0) 8188T(10z208):"CALORIE COUNTING PROGRAM"<I12000:IF200P PROGRAM STARTS HEREZ34,0d:3n"THIS PROGRAM ALLOWS YOU TO DETERMINE" x"RAPIDLY THE           1000 DATA 51,41,43,.........68N X" 1010 DATA 67,68,71,.........999999": Z"PLEASE LIMIT THE NUMBER OF DATA ENTRIES":"IN EACH DATA LINE NUMBER TO LESS THAN":"FIFTEEN(15) ITEMS." ["AFTER ALL DATA HAS BEEN ENTERED THAN ":"TYPE ";:50,63:"RUNRIES OF DATA"9 J"THE SAME WAY BUT STARTING WITH LINE "f L"NUMBER 1000 AND ENTERING IT AS 'DATA'" N"SEPARATING EACH WITH COMMAS AS BEFORE." P"DON'T FORGET TO MAKE THE LAST ENTRY OF" R"DATA 999999 AS IN GROUP ONE.": T"EXAMPLE:": V""C @"WHEN ALL DATA IS ENTERED TYPE THE LAST":"ENTRY AS 999999 "W A"FOR EXAMPLE:" C:" 900 DATA 73,43,47,......52":" 905 DATA 54,45,49,........87,999999" D:: E:"HIT RETURN TO CONTINUE";::U1$ F H" NOW TYPE IN YOUR SECOND SETA. THIS PROGRAM ASSUMES"B #"THAT THE GROUPS MAY HAVE UNEQUAL "U ("VARANCES.": 2" TO USE THIS PROGRAM ENTER YOUR ITEMS" 7"FROM THE FIRST GROUP STARTING WITH LINE" <"NUMBER 900 AS 'DATA' ENTRIES,SEPARATING" >"EACH ENTRY WITH A COMMA. :16298,0: 200L T$"PROGRAM FOR COMPARING 2 UNPAIRED GROUP"S1[T$"---------------------------------------":34,3" THIS PROGRAM COMPUTES THE MEANS,""VARANCES, AND T-RATIO FOR TWO GROUPS" "OF UNPAIRED DAANGEYL:!bY0Y(YY0):630/lY(Y)Y0CvXX3XLXRANGEMX,YTIZ 4,(Y0YT):YTYTYN:I4MIN(MIN):NM(MIN2000)>YTYNkI1NM:0,(Y0YT)4,(Y0YT):YTYTYN:IX1(XLXRANGE):Y1(CAL(1)YRANGEYL)Y1(Y1)&Y10Y1(Y1Y0):5700Y1(Y1)Y0:1:X1,Y1DXX1NI217XYCAL(I)YRNITIAL X AXIS TICK MARKdI110:X0,Y0X0,(Y04):X0X028:I: PUT TICKS EVERY 5 NM ON X AXIS vXL279:YL159YN(2000YRANGEYL): PUT TICK MARKS EVERY 2000 DEGREES ON Y AXIS YTYNNP(MAX2000)NP0500I1NP:0,(Y0YT) @I217* J(CAL(I)MAX)0MAXCAL(I)I T(CAL(I)MIN)0MINCAL(I)P ^I| h THIS SECTION PRODUCES THE HIRES PLOT. r:3:0,00,159 |YRANGEMAXMIN:XRANGE50 XL279:YL159 Y0(MAXYRANGEYL):Y00Y00 0,Y0279,Y0X027: I70,234,-11300,3540,160,237,-6250,2410,-90}  240,-2950,3370,-1040,243,-1230,2040,-930,246,-703,1183,-540,249,-172,285,-130  " THIS SUBROUTINE PRODUCES A PLOT OF THE CALCULATED DATA , THIS FINDS THE MIN/MAX VALUES. 6MAXCAL(1):MINCAL(1)0` 201,16800,8810,-23300,204,-9120,300,-11300,207,-22300,-4320,-5770,210,-26400,-8190,-2200 213,-24800,-8680,-850,216,-26600,-9210,1230,219,-28900,-6890,1720,222,-30000,-3360,1580)  225,-28700,1540,260,228,-24000,4390,-480,231,-17300,4580,-7BP(I)RANRP(I) ID :"CALCULATED SPECTRUM WAVELENGTH":P I117x "THETA= ";CAL(I),"LAMBDA= ";LAM(I) I "HIT ANY KEY FOR A HIRES PLOT OF THE DATA":758 290 758: "DO YOU WANT ANOTHER PLOT(Y/N)";A$ A$"Y"8; <"THE SECONDARY STRUCTURE PERCENTAGES MUST TOTAL 1.0"A F P"INPUT THE PERCENTAGES AS FOLLOWS; %HELIX,%B-SHEET,%RANDOM ";HELIX,BSHT,RAN Z(HELIXBSHTRAN)180 d nI117 xLAM(I),HP(I),BP(I),RP(I) CAL(I)HELIXHP(I)BSHT\ :16298,0:=CAL(40),LAM(40),HP(40),RP(40),BP(40)"THIS PROGRAM CALCULATES AND PLOTS THE CIRCULAR DICHROISM SPECTRUM OF A PROTEININ THE WAVELENGTH RANGE 200-250 NM."("THE CD DATA COMES FROM CHEN,ETAL.BIOCHEM,1974." 2I11000:I:     ͠ӠŠΠĠӠ͠ΠӮŠҠӠ͠ӠӠŠӠĠӠ͠ҠΠՠĠ٠ӮҠ͠Ӡ͠ԠӠӠΠҠҠԠŠӮů͠Ӡ̠͠נŠҠΠҠΠ         RHW,.3578+ 3/0,RHW,.4151,4/0,RHW,.4840C 250 MCM,RHW,.5917[ 350 MCM,RHW,.7620s 500 MCM,RHW,.9834 .3,.53,.86,1.5,2.04,3.36,4.79 7.38,9.90' ***"! :"TRY PARALLEL RUNS."6 I1 3000: IA 2160J 17l 18,THHN,.0064,16,THHN,.0079 14,THW,.0135,12,THW,.0251 10,THW,.0311,8,THW,.0598 6,RHW,.1238,4,RHW,.1605 2,RHW,.2067,1,RHW,.2715  1/0,RHW,.3107,2/0,-----------------".4::"MORE DATA (Y/N)";8> RE$MH RE$"Y" 2160bR RE$"N" 9999\"PLEASE ANSWER 'Y' OR 'N'."f 2100p I1 SrAY(I)0t IvS1:SUM0:CT.5z 300 : ::"*** CONDUIT SIZE GREATER THAN 3.5I1 S""CONDUCTOR: #";AY$(I)A"# OF CONDUCTORS: ";AY(I)c "TYPE OF CONDUCTOR: ";BY$(I)k I "TOTAL A/SQ.IN.=";SUM%"FILL:";:CFCF100:(CF.5);"%";" --- ";*"CONDUIT SIZE: ";CT;2" INCH(ES)"3:"-----------------------MCS 2000p 1000!z 850E 1010:REM ROUTINE COMPUTE CSZ CT1.5 1040hCTCT.25s 1060CTCT.5 CT3.6 3000$:"----------------------------------------"50,63:"IN CONDUIT :":50,255 DI) b 480:"SS1:TN0(/N= I1 NMCO$,TY$,ARU Ic I1 SsTNTNAY(I){  I TN2 CF.31  TN2 CF.35* TN0 8304 850>"INSUFFICIENT DATA"H 9999RC\CSCFC f SU80  I,  "INVALID INPUT; TRY AGAIN."6  370C AY(S)NUR AY$(S)CO$a BY$(S)TY$n STNUAR| STA(S)ST SUMSUMST SS1: 300 &: 0:"DIAMETER IN INCHES"; : DI DAR((DI2)2)3.141593 NCO$"DIAMETER"XTY$(IZE)"; @ NU J NU0 7001 T NU0 370R ^"INVALID INPUT; TRY AGAIN."\ h 310 r:"TYPE OF CONDUCTOR (ENTER -1 IF" w"DIAMETER ONLY IS KNOWN)"; | TC$  TC$"-1" 550  N  I1 N CO$,TY$,AR  TC$CO$ 4OR","TYPE","A/SQ.IN."E "----------------------------------------"S I1 Nc CO$,TY$,ARs CO$,TY$,AR{ I : "HIT ANY KEY TO CONTINUE...";  RE$ " ,:10 6"NUMBER OF CONDUCTORS (ENTER 0 TO" ;"COMPUTE CONDUIT SDUCTOR'."3 x:"WOULD YOU LIKE A SCHEDULE OF THE"Z "CONDUCTORS NOW IN MEMORY (Y/N)";d RE$x RE$"N" 300 RE$"Y" 190 "PLEASE ANSWER 'Y' OR 'N'." 120 N: NUMBER OF CONDUCTORS IN MEMORY 2);"" "CONDUCTANCE OF" F"N.E.C. 1968."K P:"THE PROGRAM WILL UTILIZE 31% FILL FOR"v Z"2 CONDUCTORS, AND 35% FILL FOR MORE" _"THAN 2 CONDUCTORS." d:"IF THE DIAMETER ONLY OF THE CONDUCTOR" n"OR CABLE IS KNOWN, ENTER -1 WHEN ASKED" s"'TYPE OF CON 5AY(10),AY$(10),BY$(10),STA(10):S1:SUM0:CT.5; :M:16298,0:Z 2);""| 10);"*** CONDUIT FILL ***"(::2"THIS PROGRAM WILL COMPUTE STANDARD"<"CONDUIT TRADE SIZES BETWEEN .5 AND" A"3.5 INCHES, REQUIRED FOR COMPLI     "PLOT OF CONC. VS TIME FOR RXN A(BLUE)->B(GREEN)->C(ORANGE) K1=";K1;",K2=";K2;",TIME=";T1_ ITIME=";T1 ,= 6 THIS SUBROUTINE PRODUCES A LOWRES PLOT.O @:5:0,3939m JI039:X1I:T15K139I T2:X(K1T1):X1,39(1X) ^4:Y1(K2T1)(C1(K3T1)C1):X1,39(1Y1) h9:Z(1C2(K1T1)C1(K2T1)):X1,39(1Z) rY |Y1(K2T1)(C1(K3T1)C1):X1,YR(1Y1):Q 3:0,159: PLOT (C) VS TIMEr I12794:X1I:T1AK1XRI Z(1C2(K1T1)C1(K2T1)):X1,YR(1Z)  ""PLOT OF CONC. VS TIME FOR RXN A(BLUE)->B(GREEN)->C(WHITE) K1=";K1;" ,K2=";K2;" ,LOT& :3:0,00,159:0,159279,159S A5:XR279:YR159: SET RANGE PARAMETERSm 2: PLOT (A) VS TIMEv 0,0 I12794:X1I T1AK1XRI X(K1T1):X1,YR(1X): 1:0,159: PLOT (B) VS TIME I12794:X1I:T1AK1XRI0 SOLUTON(LR) PLOT?" <A$O F"INPUT THE RELATIVE VALUES OF K1 AND K2?";K1,K2n PK3K2K1:C1K1K3:C2K2K3 Z(A$,1)"H"İ140 d(A$,1)"L"İ310 n"DO YOU WANT ANOTHER PLOT ?";B$ xB$"Y"ī50  THIS SUBROUTINE PRODUCES A HIGHRES P` :16298,0:"THIS PROGRAM PLOTS THE CONCENTRATION, VERSUS TIME,OF THE THREE COMPONENTS IN A CONSECUTIVE REACTION.":"THE PLOT CAN BE IN EITHER HIGH OR LOW RESOLUTION."(I12000:I 2"DO YOU WANT A HIGH RESOLUTION(HR) OR LOW RE     X199999 160 D0+ N1 10 4 D1DB XX1.5N^ D(C(X)C(X1))(XX1)f N " IS";2DD1 50 F :16298,0:1" DERIVATIVE"::b"YOU MUST PUT YOUR EQUATION IN LINE 30"::w("ARE YOU READY"2 A$< A$"YES" 16FPC(X)(X21)2Z"ENTER X=99999 TO END PROGRAM"::d"DERIVATIVE AT X="; n X1 x I1 40 I"(#T5HF(I) IXX.5H#1 I1 NFP(I)P(I)2F(I)^Y(I)S(I).5HF(I)f Ilz  I1 N*P(I)P(I)2F(I)4Y(I)S(I)HF(I)> IHXX.5HR I1 NY(I)S(I)(P(I)F(I))H6 I 700 500 800% 500/ 900@ XX4 200R X,Y(1),Y(2)_X4X4X2p" XX1 200{, 9000Y(1)1Y(2)0F(1)Y(2)F(2) .3(Y(2))Y(1)NX I1 NbS(I)Y(I)lP(I)F(I)vY(I)S(I)., x "INCREMENT OF X FOR INTEGRATION = ";HV "INCREMENT OF X FOR PRINTOUT = ";X2d I1 N "INITIAL VALUE FOR Y(";I;") = "; Y(I) I :: " X Y(1) Y(2)" X4XX2 500 600 500NT FOR INTEGRATION = .1"A Z " X INCREMENT FOR PRINTOUT = .2"f \ " INITIAL VALUE OF Y(1) = 1" ^ " INITIAL VALUE OF Y(2) = 0" b:: d "NUMBER OF FIRST ORDER EQUATIONS = ";N n "STARTING VALUE OF X = ";X s "END VALUE OF X = ";X1" E:1 F "CONTINUE INSTRUCTIONS? (Y/N)";Q$D H Q$"^" 100N J::u L "X IS THE INDEPENTDENT VARIABLE"~ N:: P "FOR THIS EXAMPLE USE" R " NUMBER OF EQUATIONS = 2" T " STARTING X = 0 V " END X = 10 X " X INCREME2 " Y(2)'=-.3Y(2)-SIN(Y(1))"/ 4::^ < "F(1),F(2),ETC ARE DEFINED AS" > " Y(1)',Y(2)',ETC IN PROGRAM" @ " INSERT THE EQUATIONS FOR F(1),F(2),ETC" B " AT LINES 500,510,ETC" D " LIST 500-510 TO SEE FOR THIS EXAMPLE Q$"N" 100 $ 1000> & "EXAMPLE Y''+.3Y'+SIN(Y)=0"m (: "EQUATIONS MUST FIRST BE CHANGED TO A" * " SET OF FIRST ORDER EQUATIONS" ,: "E.G. LET Y(1)=Y AND Y(2)=Y'" . " THEN THE EQUATION BECOMES" 0 " Y(1)'=Y(2)"% $:16298,0: 1000N " ORDINARY DIFFERENTIAL EQUATION SOLVER"V:v " USING"~: " 4TH ORDER RUNGE KUTTA METHOD"::::::::::: "DO YOU WANT INSTRUCTIONS? (Y/N)";Q$ "     UM,RA,88,226.05* ACTINIUM,AC,89,(227)E THORIUM,TH,90,232.12e PROTOACTINIUM,PA,91,(231)" URANIUM,U(UR),92,238.07, NEPTUNIUM,NP,93,(237)6 PLUTONIUM,PU,94,(244)@ AMERICIUM,AM,95,(243)J CURIUM,CM,96,(248) T BERKELIUM,195.09 GOLD,AU,79,197.09 MERCURY,HG,80,200.61U THALLIUM,TL,81,204.39m LEAD,PB,82,207.21 BISMUTH,BI,83,209.00 POLONIUM,PO,84,(209) ASTATINE,AT,85,(210) RADON,RN,86,(222) FRANCIUM,FR(FA),87,(223) RADI(TU),69,168.94+F YTTERBIUM,YB,70,173.04KP LUTECIUM,LU(CP),71,174.99fZ HAFNIUM,HF,72,178.50d TANTALUM,TA,73,180.95n TUNGSTEN,W,74,183.86x RHENIUM,RE,75,186.22 OSMIUM,OS,76,190.2 IRIDIUM,IR,77,192.2 PLATINUM,PT,780,144.27% PROMETHIUM,PM,61,(147)E SAMARIUM,SM(SA),62,150.35` EUROPIUM,EU,63,152.0~  GADOLINIUM,GD,64,157.26 TERBIUM,TB,65,158.93 DYPROSIUM,DY(DS),66,162.51( HOLMIUM,HO,67,164.942 ERBIUM,ER,68,167.27< THULIUM,TMB,51,121.76( TELLURIUM,TE,52,127.61D IODINE,I(J),53,126.91` XENON,XE(X),54,131.91z CESIUM,CS,55,132.91 BARIUM,BA,56,137.36 LANTHANUM,LA,57,138.92 CERIUM,CE,58,140.13 PRASEODYMIUM,PR,59,140.92 NEODYMIUM,ND,6OLYBDENUM,MO,42,95.9558 TECHNETIUM,TC(MA),43,(99)QB RUTHENIUM,RU,44,101.1lL RHODIUM,RH,45,102.91V PALLADIUM,PD,46,106.4` SILVER,AG,47,107.880j CADMIUM,CD,48,112.41t INDIUM,IN,49,114.82~ TIN,SN,50,118.70  ANTIMONY,S2.60 ARSENIC,AS,33,74.919 SELENIUM,SE,34,78.96T BROMINE,BR,35,79.916n KRYPTON,KR,36,83.80 RUBIDIUM,RB,37,85.48 STRONTIUM,SR,38,86.63 YTTRIUM,Y,39,88.92 ZIRCONIUM,ZR,40,91.22$ NIOBIUM,NB(CB),41,92.91. M7.90p VANADIUM,V,23,50.959z CHROMIUM,CR,24,52.01U MANGANESE,MN,25,54.94l IRON,FE,26,55.85 COBALT,CO,27,58.94 NICKEL,NI,28,58.71 COPPER,CU,29,63.54 ZINC,ZN,30,65.38 GALLIUM,GA,31,69.72 GERMANIUM,GE,32,7INUM,AL,13,26.98* SILICON,SI,14,28.09G  PHOSPHORUS,P,15,30.975`* SULFUR,S,16,32.066|4 CHLORINE,CL,17,35.457> ARGON,AR(A),18,39.944H POTASSIUM,K,19,39.100R CALCIUM,CA,20,40.08\ SCANDIUM,SC,21,44.96f TITANIUM,TI,22,4ITHIUM,LI,3,6.940,  BERYLLIUM,BE,4,9.013B  BORON,B,5,10.82Z  CARBON,C,6,12.011t  NITROGEN,N,7,14.008  OXYGEN,O,8,16.0000  FLUORINE,F,9,19.00  NEON,NE,10,20.183  SODIUM,NA,11,22.991  MAGNESIUM,MG,12,24.32  ALUM :EL$,SY$,AN$,AW$( DEL$"DONE"ī490: NAN$IN$İ630A XLJ b500Y l936:255 v:"ELEMENT";16);"SYMBOL";24);"AT.#";30);"AT.WEIGHT" ::EL$;16);SY$;24);AN$;30);AW$ ::  HYDROGEN,H,1,1.008  HELIUM,HE,2,4.003  L936 150) "TABLE OF THE ELEMENTS"7 L11103L EL$,SY$,AN$,AW$` EL$"DONE"ī30i 630q L1y 30 936:255 ::"ENTER ATOMIC NUMBER"  "TO EXIT OPTION ENTER 'OUT'"  IN$ &IN$"OUT"ī30 0L1103L1103 EL$,SY$,AN$,AW$3 EL$"DONE"ī170E EL$IE$İ630L LU 170d "936:255x ,"ENTER SYMBOL" 6:IS$ @IS$"OUT"ī30 J TL11103 ^EL$,SY$,AN$,AW$ hEL$"DONE"ī300 rSY$IS$İ630 |L1 300 : SYMBOL"( d"3. LIST BY ATOMIC NUMBER"F n"4. AUTOMATIC SLOW LIST"L xf "ENTER OPTION (1-4)"m O O160,290,490,400 936:255 ::"ENTER ELEMENT NAME" "TO EXIT OPTION ENTER 'OUT' " IE$ IE$"OUT"ī30 # EL$(15),SY$(6),AN$(3),AW$(7)EIE$(15),IS$(6),IN$(3),IW$(7)W:16298,0:y("TABLE OF THE ELEMENTS FILE"2"FOR APPLE II COMPUTER"<"BY RICHARD W. WAGNER":F"ENTER DESIRED OPTION"P"1. LIST BY ELEMENT NAME" Z"2. LIST BY     NTAL POINTS,BEGINNING AT 32000)R32000e\32000,1:32001,0:32002,4:32003,0:32004,18:32005,63f32006,32:32007,100:32008,45:32009,21:32010,54:32011,30p32012,7:43013,0z232,0:233,125:NTS% XRANGEVMAXKM:YRANGEVMAX:9u*I1NDA:XVEL(NEX,I)S(NEX,I)39XRANGE:Y39(1VEL(NEX,I)YRANGE):X,Y:I4"EADIE-HOFSTEE PLOT FOR ENZYME KINETICS VMAX= ";VMAX;" KM= ";KM>756:::H THIS LOADS THE SHAPE TABLE FOR THE EXPERIME DEVIATION OF RESIDUALS = ";SY::"STANDARD DEVIATION OF SLOPE = ";SM:t"STANDARD DEVIATION OF INTERCEPT = ";SB:"PRESS ANY KEY FOR A LORES E-H PLOT":756:15:0,3939:0,390 2:I039:I,I:I: PLOT CALC. POINTS PLOT EXP. POI;VEL(NEX,I);" V(CALC) = ";YCALC(I)]SDEVSDEV(VEL(NEX,I)YCALC(I))2:SXSX(XXBAR)2:SY(SDEV(NDA1)): STD. DEV. OF RESIDUALSSM(SY2SX): STD. DEV. OF SLOPESB((SY2SQVSUM)(NDASX)): STD. DEV. OF INTERCEPTG:"STANDARD(SVMVELBSSVSUM)NDA&VMAXA:KMBG:"VMAX = ";VMAX,"KM = ";KMi COMPUTE STANDARD DEVIATIONSSX0:SDEV0:XBARSSVUMNDAI1NDA:X(VEL(NEX,I)S(NEX,I)):YCALC(I)ABX:SDEVSDEV(VEL(NEX,I)YCALC(I))2$:"V/S = ";X;" V(EXPT) = "0I1NDA: COMPUTE LEASTSQUARES SUMSC:SVMVELSVMVELVEL(NEX,I)iDSSVSUMSSVSUMVEL(NEX,I)S(NEX,I)NS2VSUMS2VSUMVEL(NEX,I)2S(NEX,I)XSQVSUMSQVSUM(VEL(NEX,I)S(NEX,I))2bIlB(SSVSUMSVMVELNDAS2VSUM)(SSVSUM2NDASQVSUM)vA+I1NDA:DX(I)SRCIP(NEX,I)270XRANGEMDY(I)VRCIP(NEX,I)148YRANGEy1(DX(I)X0),(150DY(I))::756::: EADIE-HOFSTEE PLOT&SVMVEL0:SSVSUM0:S2VSUM0:SQVSUM0: SVMVEL=SUM-VEL,SSVUM=SUM-S/V,S2VSUM=SUM V^2/S,SQVSUM=SUM-(V/S)^2&:" STANDARD DEVIATION OF INTERCEPT= ";SLOPE]"HIT ANY KEY FOR A HIRES LB PLOT.":756p HIGHRES PLOTXRANGESRCIP(NEX,1)1KM:YRANGEVRCIP(NEX,1):3:0,159279,159X0270(1KM)XRANGE:X0,0X0,1591:6,159270,02:0:1X(SRCIP(NEX,I)SBAR)2:HSY(SDEV(NDA1)): STD.DEV. OF RESIDUALSpSM(SY2SX): STD. DEV. OF SLOPE SLOPE((SY2SQMSQ)(NDASX)): STD. DEV. OF SLOPE:"STANDARD DEVIATION OF RESIDUALS= ";SY::"STANDARD DEVIATION OF SLOPE= ";SM/X;" KM= ";KM8 J: CALCULATE THE STANDARD DEVIATIONSX TSDEV0:SX0:SBARSSMSUBNDA ^I1NDA:YCALC(I)ABSRCIP(NEX,I):SDEVSDEV(VRCIP(NEX,I)YCAL(I))2 h r"1/S = ";SRCIP(NEX,I),"1/V(EXPT) = ";VRCIP(NEX,I),"1/V(CALC) = ";YCALC(I)|SXSSVMVELVRCIP(NEX,I)3 SSMSUBSSMSUBSRCIP(NEX,I)Y SUMSUMSRCIP(NEX,I)VRCIP(NEX,I)u SQMSQSQMSQS2(NEX,I):  COMPUTE KM,VMAX "B(SSMSUBSVMVELNDASUM)(SSMSUB2NDASQMSQ) ,A(SVMVELBSSMSUB)NDA 6VMAX1A:KMBA @"VMAX= ";VMA EH.";A$ :A$"LB"İ200/ A$"EH"İ540J A$"EH"A$"LB"140S 140Y u LINEWEAVER-BURKE PLOT SVMVEL0:SSMSUB0:SUM0:SQMSQ0:I1NDA SRCIP(NEX,I)1S(NEX,I):VRCIP(NEX,I)1VEL(NEX,I) S2(NEX,I)SRCIP(NEX,I)2 SVMVEL FOR THISEXPERIMENT ";NDA x:"INPUT THE EXPERIMENTAL DATA IN THE FORMAT (S),VELOCITY-WITH ONE PAIR OF POINTS PER LINE." I1NDA:S(NEX,I),VEL(NEX,I):I: "FOR A LINE-WEAVER BURKE ANALYSIS INPUT LB.FOR AN EADIE-HOFSTEE ANALYSIS INPUTS ANALYSIS(LINEWEAVER-BURKE OR EADIE- HOFSTEE) OF ENZYME KINETIC DATA,PLOTS THE DATA AND CALCULATES KM AND VMAX." PI13000:I: Z"INPUT THE NUMBER OF EXPERIMENTS TO BE ANALYSED ";NEX dI1NEX: n"INPUT THE NUMBER OF DATA POINTS4 :16298,0:840*::::S(" ENZYME KINETICS ANALYSIS"::2:" ATLANTA UNIVERSITY":I12000:I:<S(5,20),VEL(5,20),S2(5,20),SRCIP(5,20),VRCIP(5,20),DX(20),DY(20),YCALC(20)y F"THIS PROGRAM PERFORMS A LEAST SQUARE                17501770):I13:(7):I/5P0 I1C2&" VALUE COLUMN ";I;2B(J,I)9I@JFR"I1R1^,J1C2f6S0r@K1C1JSSA(I,K)B(K,J)TK^hS;" ";rJ|I:"MORE DATA ?";RE$RE$"Y"RE$"YES"128030PC1R21390YZ(7);(7);::"CANNOT BE MULTIPLIED"::"OTHER DIMENSIONS NECESSARY."cd1690tn"MATRIX 1:"xJ1R1"ROW ";JI1C1" VALUE COLUMN ";I;A(J,I)IJ"MATRIX 2:"J1R2"ROW ";J;" "; IJ":4"MORE DATA";=RE$XRE$"Y"RE$"YES"800`30j1750 5:"*** MATRIX MULTIPLICATION ***":"DIMENSION OF MATRIX 1 (R,C)";(R1,C12"DIMENSION OF MATRIX 2 (R,C)";<R2,C2F"ROW";JI1C4"VALUE COLUMN";" ";I;" ";BK21070NA(J,I)X$1080d.B(J,I)k8IrBJLD31120VK`:J1RjI1CtD21160~B(J,I)B(J,I)D31190A(J,I)B(J,I);" ";1200A(J,I)SR MULTIPLICATION"!f:"WHICH";5pD:D0D3870;zID3930a"VALUE OF SCALAR";hS"DIMENSION OF MATRIX (R,C)";R,C:R1R4930:C1C10930K12K2990"MATRIX 1:"1000"MATRIX 2:"J1R "X";I;"=";A(I,R1)I':9"MORE DATA";Y RE$:RE$"Y"RE$"YES"330a30k 1750*" *** MATRIX ADDITION,SUBTRACTION ***"45:"*** SCALAR MULTIPLICATION ***">:H"1. ADDITION"R"2. SUBTRACTION"\"3. SCALAOLUTION": 760 &K1R1- 0XA(J,K)? :A(J,K)A(I,K)L DA(I,K)XS NKb XY1A(J,J)o bK1R1 lA(J,K)YA(J,K) vK I1R IJ700 YA(I,J) K1R1 A(I,K)A(I,K)YA(J,K) K I J :I1R:"COEFFICIENT MATRIX:"" J1R5 "EQUATION ";JB I1R1Q IR1450j " COEFFICIENT ";I;s 460 " CONSTANT "; A(J,I) I J J1R IJR A(I,J)0550 I (7);(7);(7);"SORRY--;"::"NO UNIQUE SR(2A)= :::"ROOTS"::" (COMPLEX)";::R1;"+OR- ";R2I :::[ ""MORE DATA";d ,RE$ 6RE$"Y"RE$"YES"130 @30 J1750 T5:"*** SIMULTANEOUS EQUATIONS ***" ^: h"NUMBER OF EQUATIONS (9 MAX)"; rR:R2R9360 |---"8 ::"EQUATION MUST BE IN THE FORM:AX^2+BX+C=0"W ::"COEFFICIENTS A,B,C";b A,B,Cv S(B2)(4AC) R((S)) S0250 R1(BR)(2A) R2(BR)(2A) :::"ROOTS (REAL): ";R1;", ";R2 280 R1B(2A) R2UBTRACTION--":" SCALAR MULTIPLICATION"W P:"4. MATRIX MULTIPLICATION (10X10 MAX)"h Z:"5. QUIT"~ d19:"WHICH ?";RE nRE1RE530 xRE130,330,800,1280,1730 1750 6:"ROOTS OF QUADRATIC EQUATIONS":5:"---------------------------7  :16298,0:*A(10,10),B(10,10)\::"SIMULTANEOUS EQ. AND MATRIX OPERATIONS"("---------------------------------------"2::"1. ROOTS OF QUADRATIC EQUATIONS"<:"2. SIMULTANEOUS EQUATIONS (9 MAX)") F:"3. MATRIX ADDITION & S      Y190Y Y1ī480! X,Y( X9 E11000:E? E P ";Y:"X = ";X:"SLOPE = ";A:"INTERCEPT = ";AOW 6"DO YOU WANT THE GRAPHED RESULTS?"_ @A$r JA$"YES"İ400 TA$"Y"İ400 ^"DO YOU WANT TO CONTINUE?" hB$ rB$"Y"ī40 |B$"YES"ī40   3 X1190 YAO(AX) N) ZC(SY(EY2)N)2 RS((ZA)((ZB)(ZC))) "SLOPE = ";A:"Y-AVERAGE = ";YA:"X-AVERAGE = ";XA:"INTERCEPT M = ";AD "R-SQUARED = ";RS Y0:X0  "Y=B*EXP(SLOPE 'M'*X), TO FIND " "Y, ENTER IN X ";X "YAO(AX)/ ,"Y =Y COORDINATES FOR POINT ";I$ xX,Y/ Y(Y) EXEXX:EYEYY:EEXYEEXY(XY):SXSX(X2):SYSY(Y2):SSXYSSXY(XY)(2) I A ((EEXY(EXEYN))(SX(EX2N))) YAEYN:XAEXN AO (YAAXA) ZA(EEEXEYN)2 ZB(SX(EX2)G :16298,0:712:8:"EXPONENTIAL CURVE FIT"KPAUSE12000:Q({2EX0:EY0:EEXY0:SX0:SY0:SSXYO:N0<A0:B0:YA0:XA0:RS0:AO0:N0F3P"ENTER IN NUMBER OF PAIRS OF"Z"X,Y COORDINATES ";NdI1N n"ENTER IN X,  -:"MAINTENANCE FACTOR:";MFD-:"FOOTCANDLE LEVEL DESIRED:";FL^(-:"CAVITY DEPTH:";CDh2-::p4-12}6- 50,127<- MC0 "MANUAL CU"F- MC1 "AUTO CU"H- 50,255P- I1 4000: IZ-...: +"LUMENS/LAMP";LL8+:"MAINTENANCE FACTOR";MFU +:"MANUAL CU (Y/N)";CU$w*+ CU$"Y" CU$"N" 110404+ CU$"Y" MC0>+ CU$"N" MC1H+ 410,, (7),:::-"VALUES NOW IN EFFECT:" -:"LUMENS/LAMP:";LL:*4"MAINTAINED FOOTCANDLE LEVEL=";FA78 50,255A>::MC:::XH 9000bR 740o(# 50,255,# "HIT ANY KEY TO CONTINUE..."2# Z$<#F#'' 50,255'"COEFFICIENT OF UTILIZATION";CU' 50,63$' 610*+:::: 9000!:. 50,255H"# OF FIXTURES USED"t"(ENTER -1 FOR NEW ROOM;0 TO QUIT)";FU FU 0 460 FU0 12000 "# OF LAMPS/FIXTURE";LFFA(FULFLLMFCU)AR FA(FA100.5)100" 50,63*=";LR : 9000 :H"FOR";FL;"MAINTAINED FOOTCANDLES:"P:uL4(LR4):L3(LR3):L2(LR2) 50,63"# OF 4-LAMP FIXTURES REQ'D.=";L4:"# OF 3-LAMP FIXTURES REQ'D.=";L3:"# OF 2-LAMP FIXTURES REQ'D.=";L2WR &RCR((LRWR)5CD)AR6 +RCR(RCR100.5)100B - 50,63Q 0"RCR=";RCd : MC0 10000z DCUAG((RCRBG)) N X"COEFFICIENT OF UTILIZATION=";CU bLR(FLAR)(LLMFCU) lLR(LR100.5)100v:"LAMPS REQ. FOR";FL;"FOOTCANDLESNGE INITIAL VALUES)";FL*  FL0 11000E ::"CAVITY DEPTH";CDQ  11500W _ :u "LENGTH OF ROOM" "(ENTER -1 TO CHANGE PREVIOUS VALUES;0 TO QUIT)";LR  LR0 12000  LR0 410 : "WIDTH OF ROOM";WR : ARLRRCR/CU CURVE:": ,"80% CEILING-50% WALL-20% FLOOR REFL."L @AG.807902573` JBG.1024804458s T "RCR","C.U." ^ I1 10 | I,CD$(I)  I :  9000  ::  "MAINTAINED FOOTCANDLE LEVEL DESIRED"  "(ENTER -1 TO CHA! 10:"INITIAL CONDITIONS:"J : "LAMP:DELUXE WHITE FLUORESECENT"x "TROFFER:LITHONIA 2GP WITH ACRYLIC LENS" : "LUMENS/LAMP:3150" LL3150 "MAINTENANCE FACTOR:.75" MF.75 :::: :  9000 ":"BUILT-IN ANALYSIS *********"" <::::5 F "PROJECT";A$; PN Z "JOB NO.";B$Z dA(A$)f nB(B$) xD(40A)2:E(40B)2 }DD2:EE2 "******** FOOTCANDLE ANALYSIS ********" D:A$ E:B$ 34,5 35,23  MC1 CD$(10)]CD$(1)".73":CD$(2)".66":CD$(3)".59":CD$(4)".54":CD$(5)".48"CD$(6)".44":CD$(7)".39":CD$(8)".36":CD$(9)".32":CD$(10)".29" :16298,0:"****************************************" "********* FOOTCANDLE!! ! ! ! ! !!!!!5 ::: (7))."25. OPERATING COST/YR/FOOTCANDLE =";T4ET5T2LM:T5A(T5)o"26. OWNING COST/YR/FOOTCANDLE =";T5{ 50,63T6T4T5:T6A(T6)"27. TOTAL COST/YR/FOOTCANDLE =";T6 50,255:::"TO START OVER, HIT ANY KEY...";: A$ =";C9#T1C6C7C8C9:T1A(T1)M"22. TOTAL OPERATING COST/YEAR =";T1sT2((C1C2C3)LI)1.15:T2A(T2)"23. TOTAL OWNING COST/YEAR =";T2T3T1T2:T3A(T3) 50,63"24. TOTAL COST/YEAR =";T3 50,255T4T1LM:T4A(T4AL COST =";C54 50,2554>C6BUTLRP:C6A(C6)UH"18. ENERGY COST/YEAR =";C6lRC7LRNC:C7A(C7)\"19. LAMP COST/YEAR =";C7fC8RLLR:C8A(C8)p"20. RELAMPING COST/YEAR =";C8zC9CONL:C9A(C9)"21. CLEANING LABOR COST/YEAR1C2WCTL:C2A(C2)E"14. WIRING AND DISTRIBUTION COST =";C2\C3CLNL:C3A(C3)"15. INSTALLATION LABOR COST =";C3C4NCNU:C4A(C4) "16. NET INITIAL LAMP COST =";C4C5C1C2C3C4:C5A(C5)  50,63 *"17. TOTAL INITIv"LR(BUNU)A2:LRA(LR)M"12. NO. OF LAMPS REPLACED/YEAR =";LRk::::::::::::"HIT ANY KEY TO CONTINUE...";: A$ " *** COST DATA ***"C1CLNL:C1A(C1)"13. NET LUMINAIRE COST =";CCD:SHA(SH)="9. SPACING TO MT. HEIGHT RATIO =";SHg&:"HIT ANY KEY TO CONTINUE...";: A$m0s:y?D " *** OPERATING DATA ***"N:X"10. BURNING HOURS/YEARS =";BUbl"11. REPLACEMENT METHOD---SPOT OR GROUP"A(AL)# "5. AREA/LUMINAIRE =";AL) B LS(ANL):LSA(LS)k "6. AVERAGE LUMINAIRE SPACING =";LSq  TLKLNL:TLA(TL) "7. TOTAL LIGHTING LOAD =";TL  SF(TL1000)A:SFA(SF) "8. TOTAL WATTS/SQUARE FOOT =";SF SHLS ,:$ 6NL(ALM)(LLCUMFLU)2 @NLA(NL)V J"1. NUMBER OF LUMINAIRES =";NL\ Ti ^NULLNLw hNUA(NU) r"2. NUMBER OF LAMPS =";NU | "3. MAINTAINED FOOTCANDLES =";LM  "4. TOTAL AREA LIGHTED =";A  ALANL:ALRS";BU; 1000:"KW/LUMINAIRE INCLUDING BALLAST LOSS";KLi 1000:"COST OF WIRING AND DISTRIBUTION" "PER KW LIGHTING LOAD";WC  1000:"ELECTRICAL RATE/KW-HOUR";RP  1000:"RELAMP COST/LAMP";RL   ":10:"*** SYSTEM DATA ***" 1000:"FOOTCANDLE LEVEL MAINTAINED";LMV 1000:"AVERAGE LAMP LIFE (HOURS)";A2k 1000:"AREA";A 1000:"CAVITY DEPTH";CD 1000:"CLEANING COST/LUMINAIRE";CO 1000:"LIFE OF INSTALLATION (YEARS)";LI 1000:"BURNING HOURS/YEANAIRE";LL) Z 1000:"COST/LUMINAIRE";CLM d 1000:"MAINTENANCE FACTOR";MFy n 1000:"COEFFICIENT OF UTILIZATION";CU x 1000:"MAXIMUM SPACING-TO-MOUNTING-HEIGHT":"RATIO";MH 1000:"NET COST PER LAMP";NC 1000:"INITIAL LAMP LUMENS";LU+  A(X)(X100.5)100/ :16298,0:]:::" *** SYLVIA SIMULATION ***"::3:"SYLVANIA ECONOMIC ANALYSIS PROGRAM"(:::10:"*** DATA ENTRY ***"2 34,11: 35,23< I1 400: IF 1000 P"NUMBER OF LAMPS/LUMI"" " " " " """""""