' +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*` I (#XX.5H I1 N4P(I)P(I)2F(I)LY(I)S(I).5HF(I)T IZh  I1 N}*P(I)P(I)2F(I)4Y(I)S(I)HF(I)> IHXX.5HR I1 NY(I)S(I)(P(I)F(I))H6 I I1 40  800 500 900. XX4 200@ X,Y(1),Y(2)MX4X4X2^" XX1 200i, 9000tY(1)1Y(2)0F(1)Y(2)F(2) .3(Y(2))Y(1)NX I1 NbS(I)Y(I)lP(I)F(I)vY(I)S(I).5HF(I) I OF X FOR INTEGRATION = ";HD "INCREMENT OF X FOR PRINTOUT = ";X2R I1 Ny "INITIAL VALUE FOR Y(";I;") = "; Y(I) I :: " X Y(1) Y(2)" X4XX2 500 600 500 700 500 = .1"/ Z " X INCREMENT FOR PRINTOUT = .2"T \ " INITIAL VALUE OF Y(1) = 1"y ^ " INITIAL VALUE OF Y(2) = 0" b:: d "NUMBER OF FIRST ORDER EQUATIONS = ";N n "STARTING VALUE OF X = ";X s "END VALUE OF X = ";X1 x "INCREMENT ONTINUE INSTRUCTIONS? (Y/N)";Q$2 H Q$"^" 100< J::c L "X IS THE INDEPENTDENT VARIABLE"l N:: P "FOR THIS EXAMPLE USE" R " NUMBER OF EQUATIONS = 2" T " STARTING X = 0 V " END X = 10 X " X INCREMENT FOR INTEGRATION=-.3Y(2)-SIN(Y(1))" 4::L < "F(1),F(2),ETC ARE DEFINED AS" q > " Y(1)',Y(2)',ETC IN PROGRAM" @ " INSERT THE EQUATIONS FOR F(1),F(2),ETC" B " AT LINES 500,510,ETC" D " LIST 500-510 TO SEE FOR THIS EXAMPLE" E: F "C$ 1000, & "EXAMPLE Y''+.3Y'+SIN(Y)=0"[ (: "EQUATIONS MUST FIRST BE CHANGED TO A" * " SET OF FIRST ORDER EQUATIONS" ,: "E.G. LET Y(1)=Y AND Y(2)=Y'" . " THEN THE EQUATION BECOMES" 0 " Y(1)'=Y(2)" 2 " Y(2)'  1000< " ORDINARY DIFFERENTIAL EQUATION SOLVER"D:d " USING"l: " 4TH ORDER RUNGE KUTTA METHOD"::::::::::: "DO YOU WANT INSTRUCTIONS? (Y/N)";Q$" Q$"N" 100        97,(247)& CALIFORNIUM,CF,98,(251)C EINSTEINIUM,E,99,(254)^ FERMIUM,FM,100,(253)~@ MENDELEEVIUM,MV,101,(256)A NOBELIUM,NO,102,(253) B LAWRENTIUM,LW,103,(256)'# DONE,DD,1,1'OA,88,226.05& ACTINIUM,AC,89,(227)A THORIUM,TH,90,232.12a PROTOACTINIUM,PA,91,(231) URANIUM,U(UR),92,238.07 NEPTUNIUM,NP,93,(237) PLUTONIUM,PU,94,(244) AMERICIUM,AM,95,(243) CURIUM,CM,96,(248) BERKELIUM,BK,.09 GOLD,AU,79,197.05 MERCURY,HG,80,200.61Q THALLIUM,TL,81,204.39i 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)  RADIUM,R,69,168.94' YTTERBIUM,YB,70,173.04G LUTECIUM,LU(CP),71,174.99b HAFNIUM,HF,72,178.50~ TANTALUM,TA,73,180.95 TUNGSTEN,W,74,183.86 RHENIUM,RE,75,186.22 OSMIUM,OS,76,190.2 IRIDIUM,IR,77,192.2 PLATINUM,PT,78,1954.27! PROMETHIUM,PM,61,(147)A SAMARIUM,SM(SA),62,150.35\ EUROPIUM,EU,63,152.0z GADOLINIUM,GD,64,157.26 TERBIUM,TB,65,158.93 DYPROSIUM,DY(DS),66,162.51 HOLMIUM,HO,67,164.94 ERBIUM,ER,68,167.27  THULIUM,TM(TU),121.76$ TELLURIUM,TE,52,127.61@ IODINE,I(J),53,126.91\ XENON,XE(X),54,131.91v 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,60,14DENUM,MO,42,95.951 TECHNETIUM,TC(MA),43,(99)M RUTHENIUM,RU,44,101.1h RHODIUM,RH,45,102.91 PALLADIUM,PD,46,106.4 SILVER,AG,47,107.880 CADMIUM,CD,48,112.41 INDIUM,IN,49,114.82 TIN,SN,50,118.70 ANTIMONY,SB,51x ARSENIC,AS,33,74.915y SELENIUM,SE,34,78.96Pz BROMINE,BR,35,79.916j{ 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 MOLYBn VANADIUM,V,23,50.955o CHROMIUM,CR,24,52.01Qp MANGANESE,MN,25,54.94hq IRON,FE,26,55.85r COBALT,CO,27,58.94s NICKEL,NI,28,58.71t COPPER,CU,29,63.54u ZINC,ZN,30,65.38v GALLIUM,GA,31,69.72w GERMANIUM,GE,32,72.60,AL,13,26.98&e SILICON,SI,14,28.09Cf PHOSPHORUS,P,15,30.975\g SULFUR,S,16,32.066xh CHLORINE,CL,17,35.457i ARGON,AR(A),18,39.944j POTASSIUM,K,19,39.100k CALCIUM,CA,20,40.08l SCANDIUM,SC,21,44.96m TITANIUM,TI,22,47.90UM,LI,3,6.940( [ BERYLLIUM,BE,4,9.013> \ BORON,B,5,10.82V ] CARBON,C,6,12.011p ^ NITROGEN,N,7,14.008 _ OXYGEN,O,8,16.0000 ` FLUORINE,F,9,19.00 a NEON,NE,10,20.183 b SODIUM,NA,11,22.991 c MAGNESIUM,MG,12,24.32 d ALUMINUML$,SY$,AN$,AW$# \EL$"DONE"ī8006 fAN$IN$İ6000= pLF u805U z936:255 p:"ELEMENT";16);"SYMBOL";24);"AT.#";30);"AT.WEIGHT" z::EL$;16);SY$;24);AN$;30);AW$ :: X HYDROGEN,H,1,1.008 Y HELIUM,HE,2,4.003 Z LITHI]150# b"TABLE OF THE ELEMENTS"1 lL11103F vEL$,SY$,AN$,AW$Z {EL$"DONE"ī35d 6000l L1t 35 936:255 %::"ENTER ATOMIC NUMBER" * /"TO EXIT OPTION ENTER 'OUT'" 4 9IN$ >IN$"OUT"ī35 HL1103 RE3 EL$,SY$,AN$,AW$+ EL$"DONE"ī202> EL$IE$İ6000E LN 202] 936:255q "ENTER SYMBOL"| :IS$ IS$"OUT"ī35  L11103 0EL$,SY$,AN$,AW$ 5EL$"DONE"ī410 :SY$IS$İ6000 DL1 N410 X:936 d"3. LIST BY ATOMIC NUMBER"> q"4. AUTOMATIC SLOW LIST"D s^ x"ENTER OPTION (1-4)"e }O| O200,400,800,600 936:255 ::"ENTER ELEMENT NAME" "TO EXIT OPTION ENTER 'OUT' " IE$ IE$"OUT"ī35 L110#EL$(15),SY$(6),AN$(3),AW$(7)EIE$(15),IS$(6),IN$(3),IW$(7)O#936q("TABLE OF THE ELEMENTS FILE"2"FOR APPLE II COMPUTER"7"BY RICHARD W. WAGNER":<"ENTER DESIRED OPTION"P"1. LIST BY ELEMENT NAME" Z"2. LIST BY SYMBOL"           NT TO CONTINUE?" A$' A$"Y"ī8- 3 : 3G X1190V YAO(XA)b Y190Yq Y1ī2090z X,Y X *E11000:E / X"R-SQUARED = ";RS |Y0:X0% }R ~"Y=A*(X^B), TO FIGURE Y, ENTER IN X ";Xa YAO(XA) "Y = ";Y:"X = ";X:"SLOPE = ";A:"INTERSEPT = ";A0 "DO YOU WANT THE GRAPHED RESULTS?" B$ B$"Y"İ2000 B$"YES"İ2000 "DO YOU WAXY(EXEYN))(SX(EX2N)))0 nYAEYN:XAEXNC pAO (YAAXA)Y uZA(EEEXEYN)2n vZB(SX(EX2)N) wZC(SY(EY2)N) xRS((ZA)((ZB)(ZC))) y"SLOPE =";A:"Y-AVERAGE = ";YA:"X-AVERAGE = ";XA:"INTERCEPT = ";XA:"INTERCEPT M = ";AD zXA0:RS0:AO0:N0; ("ENTER IN NUMBER OF PAIRS OF X AND"S )"Y COORDINATES ";N^ *I1N 2"ENTER IN X,Y FOR POINT ";I 3X,Y 4Y(Y):X(X) FEXEXX:EYEYY:EEXYEEXY(XY):SXSX(X2):SYSY(Y2):SSXYSSXY(XY)(2) P I dA ((EE::::::::::68);"POWER CURVE FIT"Q8);"BY T.D. MOTELES"o8);"AND NEIL D. LIPSON":8);"COPYRIGHT 10,9,78"8);"ALL RIGHTS RESERVED":X11300:X:: EX0:EY0:EEXY0:SX0:SY0:SSXYO:N0 A0:B0:YA0:  Q Q? ?Q @ ?@(@ @ A P( @  @ @ P(  @ @ P@(  P@@ @   P( @@ @@@ %P(  @@@ P(  125:  Q THIS LOADS THE SHAPE TABLE FOR THE EXPERIMENTAL POINTS,BEGINNING AT 32000\ 32000 32000,1:32001,0:32002,4:32003,0:32004,18:32005,63 32006,32:32007,100:32008,45:32009,21:32010,54:32011,30 32012,7:43013,0 232,0:233,39:I,I:I: PLOT CALC. POINTS6 PLOT EXP. POINTSXXRANGEVMAXKM:YRANGEVMAX:9I1NDA:XVEL(NEX,I)S(NEX,I)39XRANGE:Y39(1VEL(NEX,I)YRANGE):X,Y:I"EADIE-HOFSTEE PLOT FOR ENZYME KINETICS VMAX= ";VMAX;" KM= ";KM756:::NDASX)): STD. DEV. OF INTERCEPTz:"STANDARD DEVIATION OF RESIDUALS = ";SY::"STANDARD DEVIATION OF SLOPE = ";SM:"STANDARD DEVIATION OF INTERCEPT = ";SB:"PRESS ANY KEY FOR A LORES E-H PLOT":756:15:0,3939:0,3902:I0EX,I)YCALC(I))2WR:"V/S = ";X;" V(EXPT) = ";VEL(NEX,I);" V(CALC) = ";YCALC(I)\SDEVSDEV(VEL(NEX,I)YCALC(I))2:SXSX(XXBAR)2:fSY(SDEV(NDA1)): STD. DEV. OF RESIDUALSpSM(SY2SX): STD. DEV. OF SLOPE"zSB((SY2SQVSUM)(SUMSVMVELNDAS2VSUM)(SSVSUM2NDASQVSUM)H*A(SVMVELBSSVSUM)NDAY4VMAXA:KMBz9:"VMAX = ";VMAX,"KM = ";KM> COMPUTE STANDARD DEVIATIONSBSX0:SDEV0:XBARSSVUMNDAHI1NDA:X(VEL(NEX,I)S(NEX,I)):YCALC(I)ABX:SDEVSDEV(VEL(NSVUM=SUM-S/V,S2VSUM=SUM V^2/S,SQVSUM=SUM-(V/S)^2YI1NDA: COMPUTE LEASTSQUARES SUMSvSVMVELSVMVELVEL(NEX,I)SSVSUMSSVSUMVEL(NEX,I)S(NEX,I)S2VSUMS2VSUMVEL(NEX,I)2S(NEX,I) SQVSUMSQVSUM(VEL(NEX,I)S(NEX,I))2I, B(SSVRANGE:X0,0X0,159&1:6,159270,032:0:1^I1NDA:DX(I)SRCIP(NEX,I)270XRANGEDY(I)VRCIP(NEX,I)148YRANGE1(DX(I)X0),(150DY(I))::756::: EADIE-HOFSTEE PLOT0SVMVEL0:SSVSUM0:S2VSUM0:SQVSUM0: SVMVEL=SUM-VEL,SUALS= ";SY::"STANDARD DEVIATION OF SLOPE= ";SMb:" STANDARD DEVIATION OF INTERCEPT= ";SLOPE"HIT ANY KEY FOR A HIRES LB PLOT.":756 HIGHRES PLOTXRANGESRCIP(NEX,1)1KM:YRANGEVRCIP(NEX,1):3:0,159279,159X0270(1KM)X) = ";VRCIP(NEX,I),"1/V(CALC) = ";YCALC(I)LySXSX(SRCIP(NEX,I)SBAR)2:{zSY(SDEV(NDA1)): STD.DEV. OF RESIDUALS~SM(SY2SX): STD. DEV. OF SLOPE SLOPE((SY2SQMSQ)(NDASX)): STD. DEV. OF SLOPE0:"STANDARD DEVIATION OF RESIDBSSMSUB)NDA! jVMAX1A:KMBAA n"VMAX= ";VMAX;" KM= ";KMk p: CALCULATE THE STANDARD DEVIATIONS rSDEV0:SX0:SBARSSMSUBNDA tI1NDA:YCALC(I)ABSRCIP(NEX,I):SDEVSDEV(VRCIP(NEX,I)YCAL(I))2 v*x"1/S = ";SRCIP(NEX,I),"1/V(EXPTz #  ӯ̠Ӡ  ӯŠӠ ӯǠŠŠ!ӯŠӠ"ӯҠ͠ "ӯŠӠ6 ӯҠŠԠ ӯӠ ӯɭԠΠӯԠ ӯĠΠ ӯԠ̠  ӯӠӯԠҠ ӯΠ  ӯӠ ӯĠРЮ ӯؠӠ  ӯؠΠӯԠΠŠ ӯӠӠ ӯŠƠΠΠϠ ӯŭ͠ ӯϠϠàӠ ӯŠӯͧӠנ ӯԠҠǠӯǮԠPL:N$(Z)R$Ģ20:1:868::B$:"DUPLICATE NAME";::1030@LZWVA$"DELETE"1140`19:1:868:"PRESS 'D' TO DELETE FILE ";K$:"OR ANY OTHER KEY TO CANCEL.";:R$:R$"D"810t(A$"RUN"A$"LOAD")T$(JPLK)"B"A$"B"A$J~A$A$" "N$(JB$;"FILE ";K$;"LOCKED"::8204A$"RENAME"1110e19:1:868:"RENAME ";K$;:RR$:RR$""810(RR$)65(RR$)90Ģ20:1:868::B$;"INVALID NAME";::1030R$"":I1(RR$):R$R$(((RR$,I,1))128):I:R$R$(BL$,30(R$))9BZ1L%RENAME"!A$;::K$:K(K$)484K17K31810OKK16:(JPLK)C810gN$(JPLK)"1"810(A$"RUN"A$"LOAD")T$(JPLK)"T"Ģ19:1:868::B$;"FILE ";K$;" IS TEXT"::820(A$"DELETED"A$"RENAME")L$(JPLK)"*"Ģ19:1:868::K(16384):K128830OR16368,0:19:1:958:K$(K):KK176:K0K9970]fK01340opK6K71260zK8K9300"PRESS 'LETTER' YOU WISH TO ";:K1A$"LOAD"K2A$"LOCK"K3A$"UNLOCK"K4A$"DELETE":K5A$"GE ";P;"OF ";L%::JP1:I1PL:(JPLI)C810f N$(JPLI)"1"ĺ(TI);" ";::"DELETED FILE":N$(JPLI)"1"ĺ(TI);" ";L$(JPLI);T$(JPLI);" ";S$(JPLI);" ";N$(JPLI) I*19:1:9584A$"RUN":21:1:M1$:M2$:M3$:M4$;>T$(C)"A"Z4T$(C)"B"4N$(C)(INP$,ZZ,30)>Y:X[L%CPL:CL%PLL%L%1V$((VOL)):(V$)1V$"00"V$(V$)2V$"0"V$F$(F):(F$)1F$"00"F$(F$)2F$"0"F$/:"SL:";S;"DR:";D;"VOL:";V$;" FREE:";F$;" PAZ34:YF1F735:ZZZZ35:Z(Y33):Z0690P&CC1:(Y)255N$(C)"1":670:FFZ:S$(C)(Z):(S$(C))1S$(C)"00"S$(C)X(S$(C))2S$(C)"0"S$(C)bZ(Y2):L$(C)" ":Z4L$(C)"*":ZZ128lZ0T$(C)"T"vZ1T$(C)"I" Z2(13)ĺ:440)I$"0"I$"7"Ģ3:1:370VI$:S(I$):OS,(CS):OD,(CD):CS,S16:"CURRENT DRIVE IS ";D:"PRESS RETURN OR ENTER DRIVE #";:I$:I$(13)490I$"1"I$"2"Ģ5:1:958:440I$:D(I$):CD,D-X1511:SEC,X:768:Zp\q"ENOUGH OF MY IDEAS.":BN1150:BN:::::"LET'S GET GOING!!":SW1600:SW:irK0490|K8ĺ"INSERT NEW DISK IN SLOT:";S;",DRIVE:";D:"AND PRESS RETURN.";:R$:490 "CURRENT SLOT IS ";S:"PRESS RETURN OR ENTER SLOT #";:I$:I$ f] h(5):"ROOM 300"::(5):"18 DUNCAN DRIVE"::(5):"NEW PORT RICHEY, FLORIDA 34653"w i:" 813-848-0413" jSD11200:SD m::"OF COURSE THEY WILL GIVE YOU YOUR":"$5.00 BACK WITH YOUR FIRST ORDER." nNB1600:NBoLK1600:LK:WE11000:WEF [:"FOR YOUR OWN CATALOG LISTING OVER":UY11:UYt ^::(12):"2,000 PROGRAMS":IO1500:IO _:(6)::"FOR LESS THAN 25 CENTS EACH!!"::QP11:QP a::"SEND $5.00 TO:":TG1600:TG d:(5):"DUNCAN INSTITUTE LIBRARY":(15):"AND GET MORE WORK DONE"N J:"BY USING MORE OF THE":TH1100:THw O:(5):"FASCINATING,":RD1100:RD R:(10):"LOW COST,":PO1300:PO U:(15):"PUBLIC DOMAIN PROGRAMS":WR1100:WR X:"AVAILABLE FROM THE DUNCAN INSTITUTE."OCK 6=PAGE AHEAD 9=RESET DRIVE":S(18455)16:D(18454):K0:CS,S16:CD,Do ,TKR,17:F496:P1:C0:: /K8K9370 2:(18):"HI!" 3Q1400:Q: 5 6"YOU AND I CAN" : ;(5):"LEARN MORE," ?:(10):"HAVE MORE FUN,"" C:IOB777:T64:PL15:RB27136:CSIOB1:CDIOB2:TRKIOB4:SECIOB5:VOLIOB14:OSIOB15:ODIOB16:F1RB11:F7RB221:M1$"TYPE'LETTER' TO RUN, OR 0=EXIT"Q "M2$"1=LOAD 4=DELETE 7=PAGE BACK":M3$"2=LOCK 5=RENAME 8=NEW DISK":M4$"3=UNLDdINP$"":VS(106)256(105):VS2,240:VS3,14:VS4,150: 169,3,160,9,32,217,3,96,0,1,96,1,0,17,15,251,183,0,150,0,0,1,0,254,96,1:I768793:X:I,X:I:BL$""I140:BL$BL$(160):I:N$(105),S$(105),T$(105),L$(105):1290 D$(4):B$(7)      I:830NO010805I1NO:OP(I,1)01064KJ1NO:JI1060O(J,1)IOP(I,1)OP(J,1):OP(I,2)OP(J,2)20:TXOP(I,1):TYOP(I,2):FF1:2000:FF1800$J(O(I,1)100HP((O(I,1)100),1)OP(I,1)7:HP((O(I,1)100),2)OP(I,2)F*KK1:890FF1KK2800+NO0960=C(I,J)0970nC(I,J)0C(I,J)100OP((C(I,J)),1)01000C(I,J)0C(I,J)100OP((C(I,J)),1)X:OP((C(I,J)),2)Y:1000CP(C(I,J),1)01000CP(C(I,J),1)X:CP(C(I,J),2)YJ:CP(I,0)1 P(I,2)20*XX2XCP(I,1)20:YCP(I,2)KXX3XCP(I,1):YCP(I,2)20bXXXX1:XX4XX0C(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):1000 TXX:TYY:FF0:2000:FF1KK3KK:CP(I,J)0:J,I8*NO0āI1NO:J02:OP(I,J)0:J,IX4FF0:CP(1,1)120:CP(1,2)75u>II1NC:CP(II,0)0850HII:1020RIIINC:CP(I,0)1CP(I,1)01010fXX((1)4):J14:KK0zXX0XCP(I,1)20:YCP(I,2) XX1XCP(I,1):YCKK196300^KK201144*hKK1981000r_XX1((1)NC)1:Y1((1)NC)1:X1Y1600]X2((1)3)2:Y2((1)3)2:bX1((1)NC)1:Y1((1)NO)1gX2((1)3)2:lX1((1)NO)1:Y1((1)NO)1:X1Y1620: I1NC:J02:O(I,2)0O(I,2)(101HU):HUHU1*)I:+NHHU144C,800M.2500u2"HIT 'D' TO DRAW THIS DIFFERENTLY"4"HIT 'I' FOR A NEW ISOMER (SAME FORMULA)"6"HIT 'F' FOR A NEW MOLECULAR FORMULA"@KK(16384):KK128320J16368,0 T0O(Y1,2)0C(X1,X2)Y1:O(Y1,2)X1:UNUN1:240> NO1240G 620 O(X1,2)0O(Y1,2)0O(X1,2)Y1:O(Y1,2)X1:UNUN1:240 NC1C(1,1)101:HUHU1 I1NC:J24 C(I,J)0C(I,J)(101HU):HUHU1 "J,I 'NO0300#(I1NO)I:O(I,1)X:2358 C(X,3)0C(X,3)I:O(I,1)X:235^ C(X,4)0C(X,4)I:O(I,1)X:235g 210n I} UNEU280 NC1255 600 C(X1,X2)0C(Y1,Y2)0C(X1,X2)Y1:C(Y1,Y2)X1:UNUN1:UNEU280 NO0245 6100 C(X1,X2)ЭC(X,3)0C(I,1)X:C(X,3)I:190E C(X,4)0C(I,1)X:C(X,4)I:190N 165U Ic NO0240o I1NO X((1)(NCI1))1 XNC220:O((XNC),2)0O(XNC,2)I:O(I,1)(XNC):235 XNC225:O((XNC),2)0210 C(X,2)0C(X,22NH2NC2142 x1151 EU((2NC2)NH)2R I1NC:J14:C(I,J)0:J,Is I1NO:J12:O(I,J)0:J,I HU0:OU0:UN0 NC1200 C(1,1)2:C(2,1)1:NC2200 I3NC X((1)(I1))1 C(X,2)0C(I,1)X:C(X,2)I:190 E NUMBER OF CARBON ATOMS":"IN THE MOLECULE, ETC."[ rNC,NH,NO:NC(NC):NH(NH):NO(NO) sNC1NH2NO0NC15NO6ĺ(7):"IMPROPER DATA.":"C MUST BE >= 0 AND < 16":"H MUST BE EVEN, >=2 AND < 2*C+2":"O MUST BE >=0 AND < 7"::112 w(NH2)NH2 bCP(15,2),OP(6,2),HP(34,2)4cC(15,4),O(6,2)[d:936:5:8);"APPLE-CHEM I":10n"THIS PROGRAM WILL DRAW A MOLECULE":"FOR A GIVEN MOLECULAR FORMULA."o::p"ENTER A MOLECULAR FORMULA":"IN THE FORM 'C,H,O' , WHERE"2 q" 'C' = TH       D;" LINE ";LOC2:820:<:10:12:"MASH 6502 ENDED"BF: I(JPLK)):7306(A$,4)"RENA"N$(JPLK)(R$,30)?750XK6PP1:PL%P1qK7PP1:P1PL%z750 ECD(222):LOC(219)256(218):19:1:958::ECD4ĺB$;"WRITE PROTECTED"(A$,1)"B"ĝ:1350(ECD4ĺB$;"ERROR ";ECPLK):19:1:958:(A$,4)"RENA"ĺA$:20:8:(R$,30):A$A$","(R$,30)c(A$,4)"RENA"ĺA$D$;A$;",S";S;",D";D:(A$,1)"B"1350(A$,4)"LOCK"L$(JPLK)"*"(A$,4)"UNLO"L$(JPLK)" "(A$,4)"DELE"N$(JPLK)"1":FF(S$ 2- FEET TO CENTIMETERS18 3- FEET TO METERSK8 4- YARDS TO METERSi8 5- MILES TO KILOMETERS8 6- TEASPOONS TO CUBIC CENTIMETERS8 7- TABLESPOONS TO CUBIC CENTIMETERS8 8- CUPS TO LITERS8 9- PINTS TO LITERS 9 10- QUARTO METRICT7q THIS PROGRAM CONVERTS A MEASURE GIVEN IN ANGLO UNITS TO METRIC UNITS.7v YOU MUST PROVIDE THE VALUE OF THE ANGLO MEASUREMENT & THE NUMBER OF THE CONVERSION WHICH YOU WISH TO PERFORM (AS LISTED BELOW).7 1- INCHES TO CENTIMETERS832)5916I;"DEGREES FARENHEIT =";R;"CELSIUS"76O6 - RESTART PROGRAMX6100^66X PUBLISHED BY ADAM OSBORNE & ASS., INC. P.O. BOX 2036 BERKLEY, CALIF. 947026b **** SOME COMMON BASIC PROBLEMS ****6g PAGE 1877l ANGLO T520!5I;"BUSHELS =";R;"LITERS"*5520F5I;"PECKS =";R;"LITERS"O5520k5I;"OUNCES =";R;"GRAMS"t55205I;"POUNDS =";R;"KILOGRAMS"55205I;"TONS =";R;"KILOGRAMS"55205 - CONVERT FROM DEGREES FARENHEIT TO CELSIUS6R(IERS" 452044I;"TSP. =";R;"CUBIC CENTIMETERS"=4"520d4,I;"TBSP. =";R;"CUBIC CENTIMETERS"m465204@I;"CUPS =";R;"LITERS"4J5204TI;"PINTS =";R;"LITERS"4^5204hI;"QUARTS =";R;"LITERS"4r5204|I;"GALLONS =";R;"LITERS"5N180,200,220,240,260,280,300,320,340,360,380,400,420,440,460,480,500i3I;"INCHES =";R;"CENTIMETERS"r35203I;"FEET =";R;"CENTIMETERS"35203I;"FEET =";R;"METERS"35203I;"YARDS =";R;"METERS"35204I;"MILES =";R;"KILOMET;2nN2w - END PROGRAM?*2xN0540E2-CONVERSION AVALABLE?S2N17100q2"VALUE TO BE CONVERTED";x2I2-PERFORM CONVERSION USING PROPER CONVERSION FACTOR2RIC(N)2-DIRECT PROGRAM TO PROPER CONVERSION UNITS, PRINT RESULTSG3D1F 0.3937,3.281E-2,3.281,1.094,0.6214,.01136,.003785,.2366,2.1131P 1.057,0.2642,0.02838,2.104,0.3527,2.205,9.842E-4,0.6214,01Y-GET NUMBER OF CONVERSION FROM PROGRAM DESCRIPTION1Z"(TO END PROGRAM ENTER 0)"2d"WHICH CONVERSION DO YOU NEED" 00600,7170::50 "ANGLO TO METRIC";0q0 - ESTABLISH VARIABLES FOR 17 CONVERSION FACTORS|0C(17)0' - LOOP TO ASSIGN CONVERSION FACTORS INTO C( )0(N11702C(N)0<N1E - DATA TABLE OF SEVENTEEN CONVERSION FACTORSL:L11(X1,YLX1,YL1L:S1),OP(I,2)OP((O(I,J)),1),OP((O(I,J)),2)1 J8 IG 1:I1NCh XCP(I,1):YCP(I,2):4000:Iw NO02850 2:I1NO XOP(I,1):YOP(I,2):4000:I" 3:I1NH, XHP(I,1):YHP(I,2):4500:IT L33X3,YLX3,YL(C(I,J),1)3,CP(C(I,J),2)3Xd FF2ēCP(I,1)3,CP(I,2)3CP(C(I,J),1)3,CP(C(I,J),2)3_n Jfx Iu NO02800 I1NO:J12 O(I,J)02750 O(I,J)100ēOP(I,1),OP(I,2)HP((O(I,J)100),1),HP((O(I,J)100),2):2750* O(I,J)0ēOP(I,1),OP((C(I,J)),2)V FF1ēCP(I,1)3,CP(I,2)3OP((C(I,J)),1)3,OP((C(I,J)),2)3` 2670x( FF0:C(I,J)I26702 K14:KJ2630< C(I,J)C(I,K)FFFF1F KP CP(I,1),CP(I,2)CP(C(I,J),1),CP(C(I,J),2)Z FF0ēCP(I,1)3,CP(I,2)3CP1:2060K ) :936:21:3< I1NC:J14 C(I,J)100ēCP(I,1),CP(I,2)HP((C(I,J)100),1),HP((C(I,J)100),2):2670 C(I,J)02600 FF0 K14:KJ2560 C(I,K)C(I,J)FF1 K CP(I,1),CP(I,2)OP((C(I,J)),O(I,2)100HP((O(I,2)100),1)OP(I,1)7:HP((O(I,2)100),2)OP(I,2)M.IS8sK1NC:KC(I,J)FF02020TXCP(K,1)TYCP(K,2)FF1:2060K:NO02060K1NO:K(C(I,J))FF02050KIFF12050 TXOP(K,1)TYOP(K,2)FF   E GIVEN ONE SIDE & ANY TWO OTHER PARTS OF THE TRIANGLE.Hg USERSh SURVEYORS,HIGH SCHOOL STUDENTS, AND ANYONE ELSE WHO USES TRIGONOMETRY CAN FIND USE FOR THIS PROGRAM.' NR(3)3.14159265R(3)445# )%F*"ANOTHER CASE (1=YES)";M/QX4Q12^9i>I13CB(I)B(I)C(I)60HIM\ ******* TRIANGLE *******a DESCRIPTION7f TRIANGLE WILL SOVLE FOR ALL PARTS OF ANY PLANE TRIANGL!"ALT TO SIDE";H(1),H(2),H(3)'-W"RADIUS OF CIRCUMSCR CIRCLE = ";R1"RADIUS OF INSCRIBED CIRCLE = ";R" AREA OF TRIANGLE = ";WR91800R80800 "A SECOND SOLLUTION IS :"R91"";" 1"," 2"," 3";"";"----","---","----"A\"SIDE";S(1),S(2),S(3)b"ANGLE (RAD)";R(1),R(2),R(3)"ANGLE (DEG)";A(1),A(2),A(3)" (MIN)";(B(1)),(B(2)),(B(3))" (SEC)";S(1),S(2),S(3)0005605SB(I)0%XA(I)A(I)1=](B(I))0.0001615IbB(I)0OgslR(I)(A(I)B(I)60)57.2957795yqv540{WRPR1S(1)(2(R(1)))H(1)S(3)(R(2))H(2)S(1)(R(3))H(3)S(2)(R(1))R91685 800)S(I)(S(3)(R(3)))(R(I))/IP(S(1)S(2)S(3))2r!R(((PS(1))(PS(2))(PS(3)))P)}&I13+R(I)2(R(PS(I)))05755I:?X157.2957798R(I)DA(I)(X1)IB(I)60(X1A(I))N(60B(I))0.09632 445%R(3)(T(1T2))DR(2)3.14159265R(1)R(3)MI2V530aI23j575qIR91510S(3)S(1)490505"ONE SOLUTION IS:"510R80630"NO SOLUTION POSSIBLE........"I! mR(2)3.14159265R(1)R(3)* rI23 w575< |315b "WHAT ARE SIDE1, SIDE3, ANGLE1"; S(1),S(3),A(1),B(1),C(1) 830 R81 I1 620 T(S(3)(R(1)))S(1) T10.0000001515 1T0.00000001440R(3)1.5707,S(3),A(2),B(2),C(2) 830( I121 "6208 'IW ,R(3)3.14159265R(1)R(2)` 1I3i 6575t ;I12} @530 EI J630 O"WHAT ARE ANGLE3, ANGLE1, SIDE3"; TA(3),B(3),C(3),A(1),B(1),C(1),S(3) Y830 ^I132 c620 h S(1),S(2),S(3) 540% 630K "WHAT ARE SIDE1, ANGLE3, SIDE2";i S(1),A(3),B(3),C(3),S(2)r 830{ I3 620 S(3)(S(1)2S(2)22S(1)S(2)(R(3))) 540 630 "WHAT ARE ANGLE1, SIDE3, ANGLE2"; A(1),B(1),C(1)......." 125 N1210Z "NOTE: SPECIFY ANGLES AS DEGREES, MINUTES, SECONDS OR" " DEGREES, MINUTES.DECIMAL, 0 (I.E. , SECONDS =0)" N2230 N4270 N5335 N3385 "WHAT ARE SIDE1, SIDE2, SIDE3";TRIANGLE,"9 s"GIVEN ONE SIDE AND ANY TWO OTHER PARTS."? xE } "WHAT WILL BE GIVEN (1=SSS, 2=SAS, 3=SSA, 4=ASA, 5=AAS)"; N R80 R90 (N1)(N2)(N3)(N4)(N5)0170 "ANSWER 1, 2, 3, 4, OR 5 PLEASE..... $ ********* TRIANGLE *********-2003U:"INFO STARTS AT LINE 860":_::h110 A(10),B(10),C(10),H(10),R(10),S(10)diS(I).01(6000(B(I)(B(I))).5) n"THIS PROGRAM WILL FIND THE UNKNOWN FEATURES OF ANY      S TO LITERS(9 11- GALLONS TO LITERS D9 12- BUSHELS TO LITERS^9 13- PECKS TO LITERSx9 14- OUNCES TO GRAMS9 15- POUNDS TO KILOGRAMS9 16- TONS TO KILOGRAMS9 17- DEGREES FAHRENHEIT TO DEGREES CELSIUSDATA 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 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      155635 ~X155ĺ"END":# 10) }: 耲 OHM'S LAW Q 進 BY MIKE REINHARTf ꀲ & CHRIS OBERTH 뀲 9-15-78 12:58:35 AM` :"VOLTAGE------ E=";E D8 N"CURRENT------ I=";I> SX X"RESISTANCE--- R=";R^ ]x b"WATTS-------- W=";W l: v"HIT 'RETURN' KEY TO DO ANOTHER PROBLEM" w"HIT 'ESC' KEY TO EXIT" {X(16384):X128635 }16368,0:X141XϭI0FLAGFLAG1% R0FLAGFLAG1: W0FLAGFLAG1J "FLAG2500S ,180n E0I0REI:WEI E0R0IER:WEI E0W0IWE:REI I0R0EIR:WEI I0W0EWI:REI &R0W0E(RW):IER 0E 'R' FOR RESISTANCE"/ "TYPE 'W' FOR WATTS"5 L "THEN THE VALUE "T 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   936&FLAG0:E0:I0:R0:W0.17>"OHMS LAW"D(L213d<"BY MIKE REINHART"jZd"----------------------------------------"n"LIST ANY TWO VARIABLES"sx"TYPE 'E' FOR VOLTAGE""TYPE 'I' FOR CURRENT" "TYP Y E " V',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,421THAT YOU WOULD LIKE"B"TO CHECK THEN TYPE 'DEL 1,300' AND HIT"r"RETURN. YOU CAN THEN ENTER YOUR NEW DATA"::"HIT RETURN TO CONTINUE":U1$10"YOU MAY ENTER YOUR DATA NOW..." 9E20 THIS PROGRAM REWRITTENOTE THAT NUMBERS 1 - 299 HAVE BEEN "Kd"LEFT AVAILABLE FOR DATA ENTRIES"Ui::n"DO YOU WANT TO SEE THE INSTRUCTIONS"s"AGAIN ? Y/N ";:U1$xU1$"Y"ė:940}:"IF AFTER THE RUNING OF THE PROGRAM YOU ""HAVE OTHER DATA DATA 8,1,5,4,2"(" 2 DATA 6,7,4,7"E" 3 DATA 0,4,1,5,4,3"_ " 4 DATA 7,6,11,2"w"OR EQUIVALENTLY:"(" 1 DATA 8,1,5,4,2,6,7,4,7,0,4,1,5 ETC."F" THEN TYPE 'RUN'."P"HIT RETURN TO CONTINUE INSTRUCTIONS":U1$U:8$Z"N"DEVIATION OF THE NUMBERS :"<" 1,5,4,2,6,7,4,7 "Bg"AND ALSO FOR THE DISTRIBUTION"~"CONSISTING OF :"" 5-1'S, 3-4'S, 6-7'S, AND 2-11'S ""THESE TWO CASES COULD BE RUN BY TYPING""THE FOLLOWING:"" 1 MIXED FREELY WITH STRAIGHT"8"LIST DESCRIBED ABOVE."@:o"---------------------------------------""TO CONTINUE INSTRUCTIONS HIT RETURN"U1$"AS AN EXAMPLE, SUPPOSE WE WERE""INTERESTED IN THE MEAN AND STANDARD "A, THE N IS THE NUMBER OF DIFFERENT"St"VALUES TO BE GIVEN, AND THE F(I)ARE THE"z~"OF TIMES THE X(I) OCCUR. DATA ""STATEMENTS FOLLOWING MAY BE USED TO""EXTEND THE LIST AS NECESSARY, AND ""BLOCKS OF GROUPED DATA MAY BE""INTERTINUE INSTRUCTIONS HIT RETURN"'=U1$-@ZB"THE INPUT FOR GROUPED VALUES HAS THE "sG"FOLLOWING FORMAT:"yLV" 1 DATA 0,N, X(1), F(1), X(2), F(2)..."[".......,X(N), F(N)"`j"WHERE THE INITIAL ZERO SIGNALS GROUPED"$o"DATDED, ADDITIONAL DATA"@ "STATEMENTS MAY BE USED TO GIVE THE "k $"ENTIRE LIST OF VALUES. ADDITIONAL " )"CASES MAY BE GIVEN IN SUBSEQUENT DATA" ."STATEMENTS IN THE SAME FORMAT." 3 4"---------------------------------------"8"TO CONOR FREQUENCY DISTRIBUTIONS."" P "DATA FOR EACH SET OF INDIVIDUAL VALUES" "IS ENTERED INTO THE PROGRAM AS FOLLOWS:"  " 1 DATA N, X(1), X(2), X(3),....,X(N)"  "WHERE THE N VALUES OF THE SET ARE X(1)" "THRU X(N). IF NEE VARIANCE = ";V1 f" p+ z360< "ESTIMATES"\ "OF POPULATION PARAMETERS"b h n  "THIS PROGRAM CALCULATES THE MEAN," "VARIANCE, AND THE STANDARD DEVIATION " "FOR EACH OF SEVERAL SETS OF INDIVIDUAL" "VALUES D "; 900- " NUMBER OF VALUES = ";NM " ARITHMETIC MEAN = ";Ap " STANDARD DEVIATION = ";(V) " SAMPLE VARIANCE = ";V * 4"UNBIASED "; >900 H" ARITHMETIC MEAN = ";A R" STANDARD DEVIATION = ";(V1) \" "X,M &P 0710" D::C N"INDIVIDUAL SET NUMBER ";HK X:a b"SAMPLE VALUES:"j vNCu P1N| X S1S1X S2S2XX X;" "; P  AS1N V(S2AS1)N V1VN(N1)  "MAXIMUM LIKELIHOOOTO0Y'^O09E202000.hC9rHH1J|C9E201500TS10^S20lC0590"FOR GROUPED DATA SET ";HQN0" X-VALUE"," FREQUENCY"P1QX,MNNMS1S1MXS2S2MXX    14(I1),159NIP(I)100014(I1),159, 11[ 2I147,159AVG(I)(I1)147,159AVG(I1)b 6I (22):" 1 2 3 4 5 6 7 8 9 10" SNIP(20),AVG(20)" :936>"ENTER RECENT NIPS:":HSUM0TI110o("DAY ";I;":";:NIP(I)-SUMSUMNIP(I):AVG(I)SUMI10002IZ_3d0,0279,0279,1590,1590,0I110"3% ,14I,15914I,159NIP(I)1000 \ D _D120,120,100,1000< d"ENTER VALUE OF SCALAR";D n Sf x"DIMENSION OF MATRIX (I,J)";p R,C~ K1 2 K2 180 "MATRIX 1:" 190 "MATRIX 2:" J1 R I1 C "ENTER ELEMENT A(";J;I;")"; K22 A(10,10),B(10,10)#<:10NE"---------MATRIX OPERATIONS---------"bH:::::::K"ADDITION = 1 SUBTRACTION = 2 "N:"SCALAR MULTIPLICATION = 3 "Q:"MATRIX MULTIPICATION = 4"W:Z"WHICH OPERATION DO YOU WANT ?";    <"MEAN DIFF.";:13);"VAR.DIFF.";:26);"STD.DEV.DIFF."Y" ";R;:13);Q;:27);Wa:"T RATIO ";RW:"ON ";D;" DEGREES OF FREEDOM.":"T RATIO ";RW:"ON ";N(1);N(2)2;" DEGREES OF FREEDOM."PT$'255"D(I)(V(I))y^I;:6);N(I);:13);(M(I)10000.5)10000;:21);(V(I)10000.5)10000;:32);(D(I)10000.5)10000hIrQV(1)N(1)V(2)N(2)|W(Q)RM(1)M(2)KV(1)N(1)QD1(KK(N(1)1)(1K)(1K)(N(2)1)):)SZ(P)S2N(P)N)P22802P2;110Z NOW WE PRINT THE ANSWERS"GROUP";:6);"NUMBER";:13);"MEAN";:21);"VARIANCE";:32);"STD.DEV.",6I12@M(I)S(I)N(I)JV(I)(N(I)Z(I)S(I)S(I))N(I)(N(I)1) T,a:20:"TO CONTINUE HIT RETURN";:U1$:Vb5:"YOU MAY ENTER YOUR DATA NOW"::\cbdgS(10),Z(10),N(10),M(10),V(10),D(10)iP1nS0xS20N0XX999999210SSXS2S2XXNN1140S(P"TYPE ";:50,63:"RUN 100";::" TO GET RESULTS."] _::"HIT RETURN TO CONTINUE";::U1$:`"AFTER GETTING YOUR RESULTS IF YOU WANT":"TO ENTER ANOTHER SET OF DATA THEN TYPE":"'DEL 900,2000' AND HIT RETURN"::"THEN TYPE 'RUN' TO RESTART PROGRAM.""EXAMPLE:":5 V" 1000 DATA 51,41,43,.........68c X" 1010 DATA 67,68,71,.........999999": Z"PLEASE LIMIT THE NUMBER OF DATA ENTRIES":"IN EACH DATA LINE NUMBER TO LESS THAN":"FIFTEEN(15) ITEMS."1 ["AFTER ALL DATA HAS BEEN ENTERED THAN ":YPE IN YOUR SECOND SERIES OF DATA"N J"THE SAME WAY BUT STARTING WITH LINE "{ L"NUMBER 1000 AND ENTERING IT AS 'DATA'" N"SEPARATING EACH WITH COMMAS AS BEFORE." P"DON'T FORGET TO MAKE THE LAST ENTRY OF" R"DATA 999999 AS IN GROUP ONE.": T ENTRY WITH A COMMA. "X @"WHEN ALL DATA IS ENTERED TYPE THE LAST":"ENTRY AS 999999 "l A"FOR EXAMPLE:" C:" 900 DATA 73,43,47,......52":" 905 DATA 54,45,49,........87,999999" D:: E:"HIT RETURN TO CONTINUE";::U1$ F" H" NOW T. "OF UNPAIRED DATA. THIS PROGRAM ASSUMES"W #"THAT THE GROUPS MAY HAVE UNEQUAL "j ("VARANCES.": 2" TO USE THIS PROGRAM ENTER YOUR ITEMS" 7"FROM THE FIRST GROUP STARTING WITH LINE" <"NUMBER 900 AS 'DATA' ENTRIES,SEPARATING" >"EACH  200A T$"PROGRAN FOR COMPAIRING 2 UNPAIRED GROUP"H1pT$:" BY PAUL A PAGE 9/7/78""---------------------------------------":34,3" THIS PROGRAM COMPUTES THE MEANS," "VARANCES, AND T-RATIO FOR TWO GROUPS"    ----------"34,3 5"A"INSTRUCTIONS Y/N ";:Q$QQ$"Y"940e Q$"N"ė:1405o 5000 20(T$)2) T$ O BY PAUL PAGE FROM A0 PROGRAM NAMED STAT 1I PAGE 504 VOLUME IIe USERS SOFTWARE MANUALn200T$"MEAN,VARIANCE,AND STANDARD DEVIATION"3000T$"PROGRAM BY PAUL PAGE 7/17/78"3000 "-----------------------------311E2(C(AC)C(AC)). C.397241897983BY YY2.93420467392E2(C(AC)C(AC))n C.36609105937B YY3.29111113881E2(C(AC)C(AC)) C.331522133465B YY3.61728970544E2(C(AC)C(AC)) C.29385787862B YY3.9096943(C(AC)C(AC))* C.482381127793BU YY1.26960326546E2(C(AC)C(AC))k C.467453037968B YY1.71369314565E2(C(AC)C(AC)) C.448160577883B YY2.14179490111E2(C(AC)C(AC)) C.424683806866B YY2.54990296CONT' (RET)" 2. 7:::::::::::H <"ENTER LOWER LIMIT:"Q A X1k F"ENTER UPPER LIMIT:"t K X2 dA.5(X1X2) nBX2X1 xC.498631930924B Y(3.50930500473E03)(C(AC)C(AC)) C.492805755772B YY8.13719736545EPI3.14159265359' C(X)(X)0:5`"***** 32 POINT GUASSIAN QUADRATURE *****"j!::%"THE FUNCTION TO BE INTEGRATED IS LOCATED IN LINE 10"':"ENTER THE FUNCTION YOU WISH TO USE IN LINE 10" ,::"WHEN YOU ARE READY TYPE '";  J    I$ R(J,K) @B(J,K)TB(J,K)! J K. T L1 R> ^ LJ 410L hTA(L,J)Y r K1 Rt |A(L,K)A(L,K)TA(J,K) B(L,K)B(L,K)TB(J,K)  K  L  J  : "THE INVERSE MATRIX IS :"::::  I1 R  J1 R B(I,J);" J J1 R IJ R4 A(I,J)0 210< IY ::"SINGULAR MATRIX":c 500q K1 R SA(J,K) A(J,K) A(I,K) A(I,K)S SB(J,K) B(J,K)B(I,K) B(I,K)S  K "T1A(J,J) , K1 R 6A(J,K)TA& :15# "MATRIX INVERSION")O:::"SQUARE MATRIX ONLY":::g A(10,10),B(10,10)("ENTER DIMENSION OF MATRIX"2 R<"MATRIX ELEMENTS :"F J1 RP I1 RZ"A(";J;I;") = ";d A(J,I)x IB(J,J)1 TRIX IS:":: I1 R1*# J1 C22(S0@- K1 C1V2SSA(I,K)B(K,J)^7 Kj9S;" ";r< JxFP Ix 10000'; I::"MATRIX 2"- J1 R2; I1 C2U"ENTER B(";J;I;")=";b B(J,I)l I,Jv::"THE MATRIX YOU ENTERED WAS:"  I1 R2 J1 C2B(I,J); J  I: :"THE RESULTANT MATRIX 1 WAS ";R1;" X ";C1; E:"MATRIX 2 WAS ";R2;" X ";C2F L 1010U V J1 R1c ` I1 C1} j"ENTER A(";J;I;")="; t A(J,I) ~ I,J ::: "THE MATRIX YOU ENTERED WAS"  I1 R1  J1 C1 A(I,J);  J   D  D1 60  10000+  I1 251 9  I\ "MATRIX MULTIPLICATION":::b  "DIMENSION OF MATRIX 1 (I,J)";  R1,C1 $"DIMENSION OF MATRIX 2 (I,J)"; . R2,C2 8 C1R2 1110 B"ILLEGAL MATRIX DIMENSION" D:"MA , K 1:6 6:"THE RESULTANT MATRIX IS:":::D ; J1 RQ @ I1 Cb J D2 350u TB(J,I)B(J,I) ^ D3 380 h A(J,I)B(J,I);" "; r 390 | A(J,I)S;" ";  I   J  "RUN AGAIN ? 1=YES, 0=NO"  260 A(J,I) 270*  B(J,I)4  I,JF ::::::S  I1 R`  J1 Cp  K2 283 A(I,J);" ";  J   I  K2 290  I1 R  J1 C B(I,J);  J  ! I " D3 310 ':  4090 p(COIL (TURNS/INCH)=";P D1P8 X(5DL3)(R3R3) K Y((9R3)L3)a N((XX)(YY)) k NNX ::"NUMBER OF TURNS=";N :"TYPE 'J' TO JUGGLE COIL SIZE" "TYPE 'G' TO RETURN TO PI-NET" A$:A$"J"4000 A$"G"3050 L1, TYPE 'D'" 4 "TO TRY ANOTHER SETUP, TYPE 'A'"Z "TO TERMINATE PROGRAM, TYPE 'T'"o A$:A$"F"2040  A$"A"2010  A$"T"6000  A$"D"4000 & :"DOES NOT COMPUTE":3050 : "RADIUS OF COIL (IN INCHES)=";R3 "PITCH OF )(QQ1) C11(P2FX1C)1 *C21(P2X2CF)C L3X3L(P2F)d "C1=";C11E12;" PICOFARADS" "C2=";C21E12;" PICOFARADS" "L1=";L31E6;" MICROHENRIES" L3L31E6 :"TO TRY ANOTHER FREQUENCY, TYPE 'F'" "TO DESIGN THE COIL FOR   2000P26.2832:936<"PI NETWORK DESIGN"::`"INPUT RESISTANCE IN OHMS=";R1"OUTPUT RESISTANCE IN OHMS=";R2"DESIRED Q=";Q"FREQUENCY IN HERTZ";FX1CR1Q X2CR2((R1R2)(QQ1(R1R2))) X3L(QR1R1R2X2C PD0 Z N1 10 " dD1D0 nXX1.5NL xD(C(X)C(X1))(XX1)T Ny " IS";2DD1 50  " DERIVATIVE"::P"YOU MUST PUT YOUR EQUATION IN LINE 30"::e"ARE YOU READY"n A$ A$"YES" 16C(X)(X21)2("ENTER X=99999 TO END PROGRAM"::2"DERIVATIVE AT X="; < X1F X199999 160 IJ 380 TYA(I,J)) ^ K1 R1D hA(I,K)A(I,K)YA(J,K)L r KT | I\  Jb p  I1 R "X";I;"=";(A(I,R1)10005)1000  I  I J J1 R* IJ RA A(I,J) 0 230I Ic "NO UNIQUE SOLUTION"m 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 @ I1 R J% "SIMULTANEOUS EQUATIONS"+9 A(9,10)U("NUMBER OF EQUATIONS";]2 Rz<" COEFFICIENT MATRIX:"F J1 RP"EQUATION";JZ I1 R1d IR1 130n " COEFFICIENT";I;x 140" CONSTANT"; A(J,I)   221995404E2(C(AC)C(AC))7 TC7.22359807913E2Bb ^YY4.78193600396E2(C(AC)C(AC)){ hC2.41538328438E2B rYB(Y4.82700442573E2(C(AC)C(AC))) "THE INTEGRAL IS:",Y  60 J78935E2(C(AC)C(AC))0 C.253449954466B[ YY4.16559621134E2(C(AC)C(AC))q C.210675638065B "YY4.38260465022E2(C(AC)C(AC)) ,C.165934301141B 6YY4.55869393478E2(C(AC)C(AC)) @C.119643681126B JYY4.69F3);" FEET FOR EA ADDITIONAL DIRECTOR"[\"REDESIGN? (0=YES 1=NO) ";A:A02000:A02000zf"0=MENU 1=END ";A:A060p :2:"MINI QUAD"::"WHAT FREQUENCY (MHZ) ";F:4002 12:L;(1030.18)F4,(1005.18)F4,(975.18)F4::"BANDWIDTH ISDER FROM CENTER OF BOOM FOR EACH LOOP IS"7RFF1:800JSFF2:FF2:800bVFF3:FF3:FF3:800&X::"TOTAL WIRE NEEDED IS ";(1030F1)(1030F2)(1030F3)(1005F1)(1005F2)(1005F3)(975F1)(975F2)(975F3);" FEET PLUS ";(975F1)(975F2)(975EADY FOR LAST? HIT RETURN ";A$:FF3:FF3:600u*"HIT RETURN FOR MORE ";A$::8:"BANDWIDTH OF EACH LOOP (KHZ) IS"4:"1","2","3":>14.3F1,14.3F2,14.3F3::"THIS MAXIMIZES GAIN AND F/B RATIO WITHIN YOUR PARAMETERS")H:"DISTANCE ALONG SPI(MHZ) ";F3-" SECOND FREQUENCY (MHZ) ";F2P" THIRD FREQUENCY (MHZ) ";F1m400:FF1:422:424:426:"SPACING DEPENDS ON IMPEDANCE": "READY FOR SPACING? HIT RETURN ";A$:FF1:600:"READY FOR SECOND? HIT RETURN ";A$:FF2:600.%"R100.5)100:Z4((975F)100.5)100{["TOTAL WIRE NEEDED = ";Z3;" FEET. ADD ";Z3;" FEET FOR EACH ADDITIONAL DIRECTOR.""REDESIGN (0=YES 1=N0) ";A:A01000"0=MENU 1=END ";A:A060:2:"TRI-BAND QUAD": "LARGEST FREQUENCY )2))(2):X6,X7,X8 * ? :2:"SINGLE BAND QUAD":^ "WHAT FREQUENCY (MHZ) ";Fl 400:422 :"SPACING DEPENDS ON FEEDPOINT IMPEDANCE":"HIT RETURN";A$:600 L"BANDWIDTH IS ";14.3F;" KHZ."$VZ3(1030F)(1005F)(975F):Z3(Z3:A0S.25 A1610 X5S(1005F):X5(X5100.5)100::"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 FEEDPOINT IMPEDANCE (0=YES 1=NO)"3 Y,F;" MHZ"` b18:" 40 OHMS ? ";A:A0S.07:A0700 l18:" 52 OHMS ? ";A:A0S.08:A0700 v18:" 65 OHMS ? ";A:A0S.12:A0700 18:" 72 OHMS ? ";A:A0S.13:A0700 18:"140 OHMS ? ";AF2:13:450:13:460:13:470:E FF3:14:450:14:460:14:470:\ (L100.5)100;:~ (((1030F)4)100.5)100: (L100.5)100,: (((1005F)4)100.5)100: (L100.5)100,,: (((975F)4)100.5)100:$ X:8:"WHAT d6:"4. EXPANDED MINI QUAD":6 n6:"5. NONE":Q x:6:"WHICH ONE ? ";Mp M1000,2000,3000,4000,975  **** DIMENSIONS **** 10:"LENGTH OF ONE SIDE" 11:"REFLECTOR","DRIVEN","DIRECTOR"  12:450:12:460:12:470: F ::10x8:"QUAD ANTENNAE DESIGN":20:20:"L. TOOLE WB4UTT":20:"BIRMINGHAM, ALA":20:"OCTOBER 1978"#L(5)(23:"HIT RETURN ";A$<:8F6:"1. SINGLE BAND QUAD":P6:"2. TRI-BAND QUAD":Z6:"3. MINI QUAD":!      $;"BLOAD";N$;",A16384,L8192"( :2000. 4 P2A1C:A1(N),D(N) *- D(1)DS(1N)28 I1NO D(I)D(1)(I1)DSc A1(I)A1(NI) q :SCV2N{ 1000 "":R$  10:"WANT TO SAVE ON DISK"  R$:R1$(R$,1):R1$"N"4020 R1$"Y"3080 "NAME THE FILE";N$:D  6.2832,360,95,1400 P2,C,V2,H27 3A 936i "PATTERN PLOTTER FOR POINT SOURCE" "ANTENNA ARRAYS" : "HOW MANY ELEMENTS";N:N04030 "SPACING IN WAVELENGTHS (IE .5)";DS "DELTA PHASE (IN DEGREES)";A1 A16  2000dX0:Y0"nI1N<xADA1(I)P2D(I)(B)TXX(AD):YY(AD)ZnGSC(XXYY)GXH2G(B):GYV2G(B):YGV2G(B)G1(GX):G3(GY)G4(YG)G1,G3G1,G4B11180BP2B1C100 "CONDUCTOR: #";AY$(I)5"# OF CONDUCTORS: ";AY(I)W "TYPE OF CONDUCTOR: ";BY$(I)_ Iz "TOTAL A/SQ.IN.=";SUM%"FILL:";:CFCF100:(CF.5);"%";" --- ";*"CONDUIT SIZE: ";CT;2" INCH(ES)"3:"----------------------------------- p 1000z 8509 1010:REM ROUTINE COMPUTE CSN CT1.5 1040\CTCT.25g 1060tCTCT.5 CT3.6 3000$:"----------------------------------------"50,63:"IN CONDUIT :":50,255 I1 S0:SS1:TN0#N1 I1 NACO$,TY$,ARI IW I1 SgTNTNAY(I)o  I TN2 CF.31  TN2 CF.35* TN0 8304 850>"INSUFFICIENT DATA"H 9999RC\CSCFCf SUMCS 2000  "INVALID INPUT; TRY AGAIN."*  3707 AY(S)NUF AY$(S)CO$U BY$(S)TY$b STNUARp STA(S)ST SUMSUMST SS1: 300 &: 0:"DIAMETER IN INCHES"; : DI DAR((DI2)2)3.141593 NCO$"DIAMETER" XTY$(DI)b 48 NU J NU0 700% T NU0 370F ^"INVALID INPUT; TRY AGAIN."P h 310x r:"TYPE OF CONDUCTOR (ENTER -1 IF" w"DIAMETER ONLY IS KNOWN)"; | TC$  TC$"-1" 550  N  I1 N CO$,TY$,AR  TC$CO$ 480  I A/SQ.IN."9 "----------------------------------------"G I1 NW CO$,TY$,ARg CO$,TY$,ARo Iw : "HIT ANY KEY TO CONTINUE...";  RE$ " ,:10 6"NUMBER OF CONDUCTORS (ENTER 0 TO" ;"COMPUTE CONDUIT SIZE)"; @x:"WOULD YOU LIKE A SCHEDULE OF THE"N "CONDUCTORS NOW IN MEMORY (Y/N)";X RE$l RE$"N" 300 RE$"Y" 190 "PLEASE ANSWER 'Y' OR 'N'." 120 N: NUMBER OF CONDUCTORS IN MEMORY 2);"" "CONDUCTOR","TYPE",""N.E.C. 1968."? P:"THE PROGRAM WILL UTILIZE 31% FILL FOR"j 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 CONDUCTOR'."' 5AY(10),AY$(10),BY$(10),STA(10):S1:SUM0:CT.5; :AN 2);""p 10);"*** CONDUIT FILL ***"z(::2"THIS PROGRAM WILL COMPUTE STANDARD"<"CONDUIT TRADE SIZES BETWEEN .5 AND"A"3.5 INCHES, REQUIRED FOR COMPLIANCE OF" F 16K"0=MENU 1=END ";A:A060USER ASSUMES ALL LIABILITY FOR THE USE OF THIS PROGRAM AND BY USING WAIVES ALL RIGHTS FOR LOSS OR DAMAGES HE MAY INCUR AUTHOR NOT RESPONSIBLE FOR ANY LOSS OR DAMAGE THE USER MAY INCUR DEL 5000,5040 TO RUN IN)((1030F4)2))(2));" FEET LONG MAXIMUM":"TOTAL WIRE 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:"WHAT SINGLE FREQUENCY (MHZ) ";F:40012:(1.51030F)4,(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)2T ARE":5 (.141030)F,(1005.14)F,(975.14)F: "TOTAL 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": ";13.3F;" KHZ"::"LENGTH OF SPIDER SUPPORTS IS" (((.181030F4)2)((.181030F4)2))(2),(((.181005F4)2)((.181005F4)2))(2),(((975.18F4)2)((.18975F4)2))(2):: "TUNING STUBS ARE MANDANTORY !"::"STUB LENGTHS IN FEE 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" -"------------------------------------    3/0,RHW,.4151,4/0,RHW,.48407 250 MCM,RHW,.5917O 350 MCM,RHW,.7620g 500 MCM,RHW,.9834 .3,.53,.86,1.5,2.04,3.36,4.79 7.38,9.90'2"TRY PARALLEL RUNS."* I1 3000: I5 2160> 17` 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,RHW,.3578-----""4::"MORE DATA (Y/N)";,> RE$AH RE$"Y" 2160VR RE$"N" 9999w\"PLEASE ANSWER 'Y' OR 'N'."f 2100p I1 SrAY(I)0t IvS1:SUM0:CT.5z 300 : ::"*** CONDUIT SIZE GREATER THAN 3.5 ***" :      REES":- d"ARCCOS(";X;") = ";XC;" DEGREES"8 n::30M9  :&"ARCSIN AND ARCCOS"::Q:"SIN OR COS (RADIANS) ? ";X:X030q(CF.017453294:DF57.29577472C(X)X(((1XX)).0001)<D(X)((1XX))XFX3(C(X)):X4(D(X))PXSX3DF:XCX4DF Z:"ARCSIN(";X;") = ";XS;" DEG"5q" WITH MOTOR SHAFT SPEED";:30:RM;" RPM"]v" GEAR RATIO";:30:(K);":1"" MOTOR SHAFT TORQUE";:30:K1;" ";K$:30:ES;" VOLTS";D" MAX CURRENT";:30:IP;" AMPS"iN" RUNNING CURRENT";:30:IR;" AMPS"X" WATTAGE";:30:P;" WATTS"b" WITH GEAR TRAIN TORQUE";:30:TF;" FT-LBS"g23:"OR ";TI;" IN-OZS"l:"OR SEPERATE GEAR TRAINTINUE...";A$:316:"SUMMARY":"GIVEN:":V"ROBOT WEIGHT";:30:W;" LBS"x" SPEED";:30:S;" RPM"" WHEEL DIA.";:30:D;" IN"&0"MOTOR SPECIFICATIONS:"::" HORSEPOWER";:30:HP;" HP"?" VOLTAGE";(TFK.5):TN((TIK)10.5)10:K1TM:K$"FT-LB"MwK11K1TN:K$"IN-OZ"|:" THE GEAR SYSTEM SHOULD HAVE A STEP-DOWN RATIO OF ";(K);":1 AND BE":"CAPABLE OF HANDLING A ";K1;" ";K$:"TORQUE AT ITS OUTPUT." :::"HIT 'RETURN' TO CON ASSEMBLY IS NOT AVAILABLE AS A UNIT, ADDITIONAL CALCULATIONS WILL BE NECESSARY."f O T" DO YOU WISH TO CALCULATE (Y/N) ";:A$:(A$,1)"N"500 ^::"WHAT IS THE MOTOR SHAFT SPEED (RPM)": h10:RM:2rKRMRG:TM THE MOTOR NEEDED:":3 10:HP;" HORSEPOWER":I 10:P;" WATTS":k "10:"TORQUE - ";TF;" FT-LBS" ,10:" OR ";TI;" IN-OZS": 610:IP;" AMPS (START-UP/STALL)": @10:IR;" AMPS (RUNNING)":` J" IF THE ABOVE MOTOR/GEAR TRAIN 40 P(P101)10< IPP1ES:I1IP:IP(IP100.5)100` IRI1(1E):IR(IR100.5)100 :" A ROBOT DRIVE MOTOR TO HANDLE ";W:"POUNDS AND RATED AT ";ES;" VOLTS WOULD":"REQUIRE A GEAR TRAIN TO TURN THE WHEEL AT ";RG;" RPM.": ".5)10& nTI8WD:TI(TI10.5)10F xHP(1.8SW)1000:HP1140Z HP(HP1):200i HP.1160 HP(HP101)10:200 HP(HP1001)100 HP.1E.7 HP.1HP1E.8 HP1E.9 P1.36SWE:P1P:P10230 P(P1):2. 2"MAXIMUM EXPECTED WEIGHT (LB)"::20:W:e <"MAXIMUM STRAIGHT-LINE SPEED (FT/SEC)"::20:S: F"DRIVE WHEEL DIAMETER (INCHES)"::20:D: P"MOTOR SUPPLY VOLTAGE (VOLTS) "::20:ES ZRG7203.14159SD:RG(RG.5) dTFW24D:TF(TF10 Q ::7:15:"R O B O T"::10:"D R I V E M O T O R"::15:"D E S I G N"]:::13:"JERRY JENKINS":14:"APPLE CORPS":12:"BIRMINGHAM, ALA.":14:"OCT. 3, 1978"::::A14000::(" MOTOR SHAFT TORQUE";:30:T1;" ";K$     SSA(I,K)B(K,J)K!.S;" ";5J;BIH!P&:g0"MORE DATA ?";RE$:RE$"Y"RE$"YES"4000D4070009999X:I13:(7):Ib'PE5 1000:"KW/LUMINAIRE INCLUDING BALLAST LOSS";KLc 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 ***" ,000:"FOOTCANDLE LEVEL MAINTAINED";LMP 1000:"AVERAGE LAMP LIFE (HOURS)";A2e 1000:"AREA";A 1000:"CAVITY DEPTH";CD 1000:"CLEANING COST/LUMINAIRE";CO 1000:"LIFE OF INSTALLATION (YEARS)";LI 1000:"BURNING HOURS/YEARS";BU;LL# Z 1000:"COST/LUMINAIRE";CLG d 1000:"MAINTENANCE FACTOR";MFs 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% 1  A(X)(X100.5)100#) W:::" *** SYLVIA SIMULATION ***"::3:"SYLVANIA ECONOMIC ANALYSIS PROGRAM"(:::10:"*** DATA ENTRY ***"2 34,11: 35,23< I1 400: IF 1000 P"NUMBER OF LAMPS/LUMINAIRE"    !!! ! ! ! ! !!"MAINTENANCE FACTOR:";MF>-:"FOOTCANDLE LEVEL DESIRED:";FLX(-:"CAVITY DEPTH:";CDb2-::j4-12w6- 50,127<- MC0 "MANUAL CU"F- MC1 "AUTO CU"H- 50,255P- I1 4000: IZ-... +"LUMENS/LAMP";LL2+:"MAINTENANCE FACTOR";MFO +:"MANUAL CU (Y/N)";CU$q*+ CU$"Y" CU$"N" 110404+ CU$"Y" MC0>+ CU$"N" MC1H+ 410,, (7),:::-"VALUES NOW IN EFFECT:" -:"LUMENS/LAMP:";LL-:4"MAINTAINED FOOTCANDLE LEVEL=";FA18 50,255;>::GC:::RH 9000\R 740i(# 50,255,# "HIT ANY KEY TO CONTINUE..."2# Z$<#F#'' 50,255'"COEFFICIENT OF UTILIZATION";CU' 50,63$' 610*+:: 9000:( 50,255B"# OF FIXTURES USED"n"(ENTER -1 FOR NEW ROOM;0 TO QUIT)";FU FU 0 460 FU0 12000 "# OF LAMPS/FIXTURE";LFFA(FULFLLMFCU)AR FA(FA100.5)100" 50,63*:$: 9000:B"FOR";FL;"MAINTAINED FOOTCANDLES:"J:oL4(LR4):L3(LR3):L2(LR2){ 50,63"# OF 4-LAMP FIXTURES REQ'D.=";L4:"# OF 3-LAMP FIXTURES REQ'D.=";L3:"# OF 2-LAMP FIXTURES REQ'D.=";L2:::RCR((LRWR)5CD)AR0 +RCR(RCR100.5)100< - 50,63K 0"RCR=";RC^ : MC0 10000t DCUAG((RCRBG))z N X"COEFFICIENT OF UTILIZATION=";CU bLR(FLAR)(LLMFCU) lLR(LR100.5)100 v:"LAMPS REQ. FOR";FL;"FOOTCANDLES=";LRITIAL VALUES)";FL$  FL0 11000? ::"CAVITY DEPTH";CDK  11500Q Y :o "LENGTH OF ROOM" "(ENTER -1 TO CHANGE PREVIOUS VALUES;0 TO QUIT)";LR  LR0 12000  LR0 410 : "WIDTH OF ROOM";WR : ARLRWR & CURVE:"4 ,"80% CEILING-50% WALL-20% FLOOR REFL."F @AG.807902573Z JBG.1024804458m T "RCR","C.U."| ^ I1 10 | I,CD$(I)  I :  9000  ::  "MAINTAINED FOOTCANDLE LEVEL DESIRED"  "(ENTER -1 TO CHANGE IN10:"INITIAL CONDITIONS:"D : "LAMP:DELUXE WHITE FLUORESECENT"r "TROFFER:LITHONIA 2GP WITH ACRYLIC LENS"z : "LUMENS/LAMP:3150" LL3150 "MAINTENANCE FACTOR:.75" MF.75 :::: :  9000 ":"BUILT-IN RCR/CUSIS *********" <::::/ F "PROJECT";A$5 PH Z "JOB NO.";B$T dA(A$)` nB(B$)z xD(40A)2:E(40B)2 }DD2:EE2 "******** FOOTCANDLE ANALYSIS ********" D:A$ E:B$ 34,5 35,23  MC1 CD$(10)]CD$(1)".73":CD$(2)".66":CD$(3)".59":CD$(4)".54":CD$(5)".48"CD$(6)".44":CD$(7)".39":CD$(8)".36":CD$(9)".32":CD$(10)".29" "****************************************" "********* FOOTCANDLE ANALY(C1(K3T1)C1):X1,39(1Y1)S 9:Z(1C2(K1T1)C1(K2T1)):X1,39(1Z)Y  "PLOT OF CONC. VS TIME FOR RXN A(BLUE)->B(GREEN)->C(ORANGE) K1=";K1;",K2=";K2;",TIME=";T1 IZ) .h 8"PLOT OF CONC. VS TIME FOR RXN A(BLUE)->B(GREEN)->C(WHITE) K1=";K1;" ,K2=";K2;" ,TIME=";T1n B  THIS SUBROUTINE PRODUCES A LOWRES PLOT. :5:0,3939 I039:X1I:T15K139I 2:X(K1T1):X1,39(1X) 4:Y1(K2T1)(K1T1):X1,YR(1X):; 1:0,159: PLOT (B) VS TIME\ I12794:X1I:T1AK1XRI Y1(K2T1)(C1(K3T1)C1):X1,YR(1Y1): 3:0,159: PLOT (C) VS TIME I12794:X1I:T1AK1XRI $Z(1C2(K1T1)C1(K2T1)):X1,YR(1O YOU WANT ANOTHER PLOT ?";B$. B$"Y"ī1404 b  THIS SUBROUTINE PRODUCES A HIGHRES PLOT :3:0,00,159:0,159279,159 A5:XR279:YR159: SET RANGE PARAMETERS 2: PLOT (A) VS TIME 0,0 I12794:X1I T1AK1XRI X.WRITTEN BY G.SCOTT OWEN 7-8-78."2 I12000:Iv "DO YOU WANT A HIGH RESOLUTION(HR) OR LOW RESOLUTON(LR) PLOT?"~ A$ "INPUT THE RELATIVE VALUES OF K1 AND K2?";K1,K2 K3K2K1:C1K1K3:C2K2K3 A$"HR"İ1000 A$"LR"İ2000 "D& CONSECUTIVE REACTIONS A->B->C RWRITTENBYDR.G.SCOTWEN,LANTAUNIVERSITYXdn"THIS PROGRAM PLOTS THE CONCENTRATION, VERSUS TIME,OF THE THREE COMPONENTS IN A CONSECUTIVE REACTION."! x:"THE PLOT CAN BE IN EITHER HIGH OR LOW RESOLUTION!!!!!!::: (7)!"25. OPERATING COST/YR/FOOTCANDLE =";T4?T5T2LM:T5A(T5)i"26. OWNING COST/YR/FOOTCANDLE =";T5u 50,63T6T4T5:T6A(T6)"27. TOTAL COST/YR/FOOTCANDLE =";T6 50,255:::"TO START OVER, HIT ANY KEY...";: A$ 5T1C6C7C8C9:T1A(T1)G"22. TOTAL OPERATING COST/YEAR =";T1mT2((C1C2C3)LI)1.15:T2A(T2)"23. TOTAL OWNING COST/YEAR =";T2T3T1T2:T3A(T3) 50,63"24. TOTAL COST/YEAR =";T3 50,255T4T1LM:T4A(T4)(T =";C54 50,255.>C6BUTLRP:C6A(C6)OH"18. ENERGY COST/YEAR =";C6fRC7LRNC:C7A(C7)\"19. LAMP COST/YEAR =";C7fC8RLLR:C8A(C8)p"20. RELAMPING COST/YEAR =";C8zC9CONL:C9A(C9)"21. CLEANING LABOR COST/YEAR =";C9C2WCTL:C2A(C2)?"14. WIRING AND DISTRIBUTION COST =";C2VC3CLNL:C3A(C3)~"15. INSTALLATION LABOR COST =";C3C4NCNU:C4A(C4) "16. NET INITIAL LAMP COST =";C4C5C1C2C3C4:C5A(C5)  50,63*"17. TOTAL INITIAL COSLR(BUNU)A2:LRA(LR)G"12. NO. OF LAMPS REPLACED/YEAR =";LRe::::::::::::"HIT ANY KEY TO CONTINUE...";: A$ " *** COST DATA ***"C1CLNL:C1A(C1)"13. NET LUMINAIRE COST =";C1A(SH) 7"9. SPACING TO MT. HEIGHT RATIO =";SHa&:"HIT ANY KEY TO CONTINUE...";: A$g0m:s?D " *** OPERATING DATA ***"N:X"10. BURNING HOURS/YEARS =";BUbl"11. REPLACEMENT METHOD---SPOT OR GROUP"v "5. AREA/LUMINAIRE =";AL# < LS(ANL):LSA(LS)e "6. AVERAGE LUMINAIRE SPACING =";LSk  TLKLNL:TLA(TL) "7. TOTAL LIGHTING LOAD =";TL  SF(TL1000)A:SFA(SF) "8. TOTAL WATTS/SQUARE FOOT =";SFSHLSCD:SH: 6NL(ALM)(LLCUMFLU), @NLA(NL)P J"1. NUMBER OF LUMINAIRES =";NLV Tc ^NULLNLq hNUA(NU) r"2. NUMBER OF LAMPS =";NU | "3. MAINTAINED FOOTCANDLES =";LM  "4. TOTAL AREA LIGHTED =";A  ALANL:ALA(AL)VEL(NEX,I)( S2(NEX,I)SRCIP(NEX,I)2G SVMVELSVMVELVRCIP(NEX,I)f $SSMSUBSSMSUBSRCIP(NEX,I) .SUMSUMSRCIP(NEX,I)VRCIP(NEX,I) 8SQMSQSQMSQS2(NEX,I): L COMPUTE KM,VMAX VB(SSMSUBSVMVELNDASUM)(SSMSUB2NDASQMSQ) `A(SVMVELSIS INPUT LB.FOR AN EADIE-HOFSTEE ANALYSIS INPUT EH.";A$O :A$"LB"İ1000b A$"EH"İ2000} A$"EH"A$"LB"180 ,180   LINEWEAVER-BURKE PLOT SVMVEL0:SSMSUB0:SUM0:SQMSQ0:I1NDA SRCIP(NEX,I)1S(NEX,I):VRCIP(NEX,I)1I1NEX:K "INPUT THE NUMBER OF DATA POINTS FOR THISEXPERIMENT ";NDA :"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 ANALYLEAST SQUARES ANALYSIS(LINEWEAVER-BURKE OR EADIE- HOFSTEE) OF ENZYME KINETIC DATA,PLOTS THE DATA AND CALCULATES KM AND VMAX." n"WRITTEN BY G.SCOTT OWEN 7-78." xI13000:I: "INPUT THE NUMBER OF EXPERIMENTS TO BE ANALYSED ";NEX 4 3000*::::_," ENZYME KINETICS ANALYSIS"::" BY DR. G. SCOTT OWEN"2:" ATLANTA UNIVERSITY":I14000:I:<S(5,20),VEL(5,20),S2(5,20),SRCIP(5,20),VRCIP(5,20),DX(20),DY(20),YCALC(20) d"THIS PROGRAM PERFORMS A """""               (Y1)"Y10Y1(Y1Y0):12002Y1(Y1)Y0@1:X1,Y1IXX1UI217mYCAL(I)YRANGEYL:Y0Y(YY0):1255Y(Y)Y0XX3XLXRANGEX,YI TKS EVERY 2000 DEGREES ON Y AXIS *YTYN=NP(MAX2000)MNP01170zI1NP:0,(Y0YT)4,(Y0YT):YTYTYN:IMIN(MIN):NM(MIN2000)YTYNI1NM:0,(Y0YT)4,(Y0YT):YTYTYN:IX1(XLXRANGE):Y1(CAL(1)YRANGEYL)Y1AXMIN:XRANGE50"jXL279:YL159DtY0(MAXYRANGEYL):Y00Y00Uv0,Y0279,Y0z|X027: INITIAL X AXIS TICK MARK~I110:X0,Y0X0,(Y04):X0X028:I: PUT TICKS EVERY 5 NM ON X AXIS XL279:YL159 YN(2000YRANGEYL): PUT TICK MARDUCES A PLOT OF THE CALCULATED DATAH  THIS FINDS THE MIN/MAX VALUES.b MAXCAL(1):MINCAL(1)n I217 (CAL(I)MAX)0MAXCAL(I) (CAL(I)MIN)0MINCAL(I) I L THIS SECTION PRODUCES THE HIRES PLOT. V:3:0,00,159`YRANGEM,-6890,1720,222,-30000,-3360,1580  225,-28700,1540,260,228,-24000,4390,-480,231,-17300,4580,-770,234,-11300,3540,160,237,-6250,2410,-90  240,-2950,3370,-1040,243,-1230,2040,-930,246,-703,1183,-540,249,-172,285,-130 X#  THIS SUBROUTINE PROPLOT OF THE DATA":758! 1000- 758:U "DO YOU WANT ANOTHER PLOT(Y/N)";A$d A$"Y"40  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(HELIXBSHTRAN)140 .( 2I117F <LAM(I),HP(I),BP(I),RP(I)r FCAL(I)HELIXHP(I)BSHTBP(I)RANRP(I)y KI P:"CALCULATED SPECTRUM WAVELENGTH": ZI117 d"THETA= ";CAL(I),"LAMBDA= ";LAM(I) nI "HIT ANY KEY FOR A HIRES ELENGTH RANGE 200-250 NM."P "THE CD DATA COMES FROM CHEN,ETAL.BIOCHEM,1974."c I11000:I: #"THE SECONDARY STRUCTURE PERCENTAGES MUST TOTAL 1.0" & ("INPUT THE PERCENTAGES AS FOLLOWS; %HELIX,%B-SHEET,%RANDOM ";HELIX,BSHT,RAN ,::::=" CIRCULAR DICHROISM BY DR.G.SCOTT OWEN"^:" ATLANTA UNIVERSITY"oI12000:Iu CAL(40),LAM(40),HP(40),RP(40),BP(40) "THIS PROGRAM CALCULATES AND PLOTS THE CIRCULAR DICHROISM SPECTRUM OF A PROTEININ THE WAV"" " " " " """