ࡱ> #%"` bjbj .```````    hqR ` ``  ``  `` U   0 `  $t``````   h=-hG 4gd=-,1h/ =!"#$% @@@ XNormalOJQJ_HmH sH tH DAD Default Paragraph FontViV  Table Normal :V 44 la (k(No List \\  Biblequote$]^a$B*CJOJQJphXX Scripture<7$8$H$^CJH*OJQJaJ!z0*@908@0(  B S  ?$#:@eYid) AF#r.c`Z)q[g_45jM jQ -W  0U  ON v Wx YW%GqOC WAk&!I0>XXL\2B"/#H$8k$co%ci&' (g(q*S,g-J>-fF/ux/')0 22|-2G 4s4G 55C6565618`8E9:}:;9+;J<9>X*?#>?a?R*@;@BE5BE G7QGOrG kI=J)jJ}JDKt&Mp4M@N[N5OOzPQ"QRR.S;U+mU *VxV_AW3X.YwZE \g:\%]M ^Qc^_N`dcTd5Ee.f'!iEk_kClOlJ0pDHpUr}r+sBs ws^Dtv:uiu w%!wd0wfwx>xy+QySy}y}zR{-l{|l |K|}p9}~`)@8sz)5VbQK}bI4 ~E ?9AZt]900ur^x&;M*P &1 7K%c*? J072Wi.OR$A" L1b"seJy X |pVD| c8y&1MY&=%M{c9m?n=-FI~pba2-\:y&e* X>"6 0(-/[XE't7BWHv$JwJCdV_e*s6/j;S!G=j~oV V.V.V.V.V.Project.Module1.DNAtoDNAProject.Module1.DNAtoRNAProject.Module1.RNAtoDNAProject.Module1.RNAtoAAProject.Module1.AAtoRNAProject.Module1.AutoexecPROJECT.MODULE1.AATORNAPROJECT.MODULE1.RNATOAA PROJECT.MODULE1.AUTOEXECPROJECT.MODULE1.DNATODNAPROJECT.MODULE1.DNATORNAPROJECT.MODULE1.RNATODNA@@@UnknownGz Times New Roman5Symbol3& z ArialA& Arial Narrow"h'!~4d%W3HX)?:2 Mike Huber Mike HuberOh+'0p   , 8 DPX`h Mike HuberDnaCode Mike Huber3Microsoft Office Word@KL@"@3 ՜.+,0 hp|    Title  !$)'(hg+,-./01<3456789:;*=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdevijktmnopqrsfuwRoot Entry FP%U &@1Table WordDocument.SummaryInformation(DocumentSummaryInformation8MacrossU U VBA sU 0OU ThisDocument   "#$%&'()*+,-./0123456789:;<=?@ACEFGHIJL<jxdw#<+CyXL Fhuv.@Te[Vxhuv.@Te[V+CyXLME(SLSS6"N0{00020906-0000-0000-C000-000000000046}(%` % %`h8@0QC $*\Rffff*0=4300dc234xAttribute VB_Name = "ThisDocument" Bas0{00020P906-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2rU  9 a 4  [`rU @n__SRP_4__SRP_5 BModule1 2v_VBA_PROJECTl $,p;    ! 0 @P `p J0  @"'P'x  $2 "    . 08@X  ` x"  $(* . H-hp;   ( 0 @!X p   0   <0:Np  2  "    . 8 @ H `  h  " $ ( * . P -p p;      ( 0  8 H !`  x            0   (  <8 :Nx 2 2   "    .0 ` h p      (  $   (0  $H X hx "$ $@] FH ; @ )Ppx (,^;X` h ,x!>YH /` *=>YH*=`*=*= !8P /h!!!!0H!`x!*=>YH!`x   <:^ JP2 "    .   8 P h p x ( $    $  (0 &H$px $@] >:W8 Lx ; $!  %0 HPXpx  % (0HPhp(1^xME,(<4<8<<< <<<<< <<<$<0<<<8 `p@99V@ l @"\ `$Xx`&Va1 :X`T@88@.l 0.@ \ ' @<L '"`$H'(`(Fo ze >`T@88@.l $ ,@@\ to e@"L `BH`(F D`@rr@.l @@\ @FL `BH@&h8 @H( `J& Z`@!!q@.l @\\ (@<L `^8H@&8 @`( `J&,%(%,%,%(%x,%,%`t p h` th8`<@..+`DP.i pi Pp+`(@ D) Pi(i tX(%0`n z.X ` d @` @P L @J 8(D @@ <0`  p  @x    l pWa1@\ ( X @T  HD @4 @$  `  n   (H 0 0z   0 p `H  @ x` @P  (@ @0 , `  ( )` ") ) * *)h) *x) -  *-:)) *H-0- 8-)*  -*  8* 80+ <h+ <+ 8+ > , <`, >, &,*#**#h**#P-*#8**#- :- ) )))*B-  0- ( .  H. X. `)+h. $x.7.p))  .:. .. .. B.  D/ FP/ 0/ /  /)/ /  /  0 000 0 "   .( X x,"   " 8 2`$  %    (8  P%` x  % 08@X`x   %  ( 0 8 P X p x      %    !!(!0!H!P!h!  p!%! !!!!!!!"" "  ("%8" P"X"`"x"""  "%" """""##0#  8#%H# `#h#p####  #%# ###$$ $  ($%8$ P$X$`$x$$$  $%$ $$$$$%  %%(% @%H%P%h%p%%  %%% %%%%%&  &%& 0&8&@&X&`&x&  &%& &&&&&&&''0'  8'%H' `'h'p'''''''''((((  0(@( X( `( <p(:^( J(2@) P)00 DNAtoDNA Macro' Macro recorded 10/2/2004 by Mike HuberCopyright 2004 Mike Huberdefine variables]@Xp# old dna, new dna]Dlength of sequence prime the variables' Old DNA'"New DNA'(reset length to zero, set sequence to all caps for proper parsing *'$ *'  $ ,' check to ensure it is not RNA &   &$ UKThis appears to be an RNA strand already. Do you still want to convert it? 2DNA->RNA error$0'. . 4gXdP'&k@k8 &parse the sequence (   ($ CKT "G '"GKT "C '"AKT "T '"TKT "A '"SX "  ($  '"*' leave all non-dna characters identicaln (: check end of sequence to see if paragraph mark is present $ $$ $6  $ $8 '$khInsert new code after old code $ " '*o( DNAtoRNA Macro' Macro recorded 10/2/2004 by Mike Huber]](]@' Old DNA'<New RNA'&reset length to zero *'$ *' set operation to selection $ ,'  set sequence to caps'check to see if sequence is already rna &   &$ UKThis appears to be an RNA strand already. Do you still want to convert it? 2DNA->RNA error$0'. . 4gd'&kk & &   &$ CKT <G '<GKT <C '<AKT <U '<TKT <A '<S <  &$  '<n &6correctly parse the possible paragraph mark at the end $ $$ $6 G $ $8 '$j paste it in $ < '*o X RNAtoDNA Macro' Macro recorded 10/2/2004 by Mike Huber]]]'@Old RNA'"New DNA'&reset length to zero *'B *'@set operation to selection @$ ,'@ set sequence to caps'check to see if sequence is already rna & @ @ &$ TKThis appears to be an DNA strand already. Do you still want to convert it? 2RNA->DNA error$0'. . 4gd'&kk & & @ @ &$ CKT "G '"GKT "C '"AKT "T '"UKT "A '"S " @ &$  '"n &6correctly parse the possible paragraph mark at the end B B$ $6 G B $8 'Bj+paste it in using original saved RNA strand B " '*o RNAtoAA Macro' Macro recorded 10/2/2004 by Mike Huber]P]hD]reset variables'@'F'&!remove spaces and paragraph marks *!L 9d5N(dq TR *!LB@P *!L^p9d5N(dq TR *!LB@Pset rna sequence to all caps *'B *'@ @$ ,'@get rid of trailing para mark @ @$$6 G @ @ $'@j?check for sequence to be in mod 3 and if not suggest truncation @'& & eThis strand is not in groups of 3 for encoding. Would you like to truncate the sequence at a triple? V codon error$0'. . X @ & &  $'@dgkxkp! check to ensure no T in sequence & @ @ &$T ̶9This appears to be an DNA strand. it cannot be converted XDNA->RNA error$0'.mgk &&all good -- convert rna sequence to AA & @ @ &$UUUKUUCKT FPhe- 'FUUAKUUGKCUUKCUCKCUAKCUGKT FLeu- 'FAUUKAUCKAUAKT FIle- 'FAUGKT FMet- 'FGUGKGUUKGUCKGUAKT7` FVal- 'FageUCUKUCCKUCAKUCGKAGUKAGCKT FSer- 'FCCUKCCCKCCAKCCGKT FPro- 'F\bFACUKACCKACAKACGKTard FThr- 'FGCUKGCCKGCAKGCGKT FAla- 'FUAUKUACKT FTyr- 'FUAAKUAGKUGAKT FSSS- 'FCAUKCACKT FHis- 'FCAAKCAGKT FGln- 'FAAUKAACKT FAsn- 'FAAAKAAGKT FLys- 'FGAUKGACKT FAsp- 'FGAAKGAGKT FGlu- 'FGGUKGGCKGGAKGGGKT FGly- 'FCGUKCGCKCGAKCGGKAGAKAGGKT FArg- 'FUGUKUGCKT FCys- 'FUGGKT FTrp- 'Fn@ &6correctly parse the possible paragraph mark at the end B B$$6 G B $8 'BjCgo to end of sequenced sample and insert paragraph and AA sequence. B F '*oH AAtoRNA Macro' Macro recorded 10/2/2004 by Mike Huber]8]PhD]reset variables'\'<'&!remove spaces and paragraph marks *!L 9d5N(dq  TR *!LB@P *!L^p9d5N(dq TR *!LB@P get sequence and set to all caps *'^ *'\ \$ ,'\get rid of trailing para mark \ \$$6 G \ \ $'\j8tag trailing dash if none exists (setup for mod 4 check) \ \$$6-G \-$8 '\jFcheck for sequence to be in mod 4 and if not suggest aa coding failure \'& & This amino acid is not correctly formed. Errors could occur. Check dnacoder.swmses.org for more information. Would you still like to encode? V codon error$0'. . XGgjk8all good -- convert aa to rna & \ \ &$PHE-KT b '` `KT <UUU '<KT <UUC '<nhLEU-KT b '` `KT <UUA '<KT <UUG '<KT <CUU '<KT <CUC '<KT <CUA '<KT <CUG '<npILE-KT b '` `KT <AUU '<KT <AUC '<KT <AUA '<nMET-KT <AUG '<VAL-KT b '` `KT <GUG '<KT <GUU '<KT <GUC '<KT <GUA '<nSER-KT b '` `KT <UCU '<KT <UCC '<KT <UCA '<KT <UCG '<KT <AGU '<KT <AGC '<nPRO-KT`9p b '` `KT <CCU '<KT <CCC '<KT <CCA '<TKT <CCG '<nHTHR-KTSER- b '` `KT <ACU '< jKT <ACC '<KTKT <ACA '<KT <ACG '< jnALA-KTTHR- b '` `KT <GCU '<hKT <GCC '<TYR-KT <GCA '<'hKT <GCG '<nTYR-KT j b '` `KT <UAU '<'hKT <UAC '<TCAn`SSS-KT'h b '` `KT <UAA '<LYS-KT <UAG '<'hKT <UGA '< jnHIS-KT b '` `KT <CAU '<TGAKT <CAC '<hnPGLN-KT  b '` `KT <CAA '<KT <CAG '<nASN-KTKT b '` `KT <AAU '< KT <AAC '< sequen`LYS-KTrt p b '` `KT <AAA '< and sKT <AAG '<k for nASP-KTd 3  b '` `KT <GAU '<na +h KT <GAC '<trailinpGLU-KTts ( b '` `KT <GAA '<ly forKT <GAG '< ChecknCYS-KT for b '` `KT <UGU '< codoKT <UGC '<nGLY-KT b '` `KT <GGU '<A 'KT <GGC '<, "AGCKT <GGAA '<KTKT <GGG '<U 'nARG-KT ' b '` `KT <CGU '<KT <CGC '<KT <CGA '<KT <CGG '<G 'KT <AGA '<U 'KT <AGG '<nTRP-KT <UGC '<G 'n &6correctly parse the possible paragraph mark at the end ' ^ ^$$6 G ^ $8 '^jA 'Cgo to end of sequenced sample and insert paragraph and AA sequence.p" ^ < '*o]'DNAcode'9 9 !g qk]  v%.]D o( DNA->DNADNAtoDNAA from  AA->RNAAAtoRNAA the m DNA->RNADNAtoRNAA]D`]DxDNAcode' (ton =k  $.2 Note: The following use of the MsgBox function in2 the OnAction property setting will work only with6 command bars in Microsoft Access. In the other Office6 applications, you call built-in VBA functions for the2 OnAction property setting. To call a built-in VBA8 function from a command bar control in the other Office6 applications, you must create a custom procedure that8 uses the VBA function and call that custom procedure in the OnAction property setting.@8  v%.t ond (rol 2.g RNA->AARNAtoAAAected  RNA->DNARNAtoDNAAem 3#see if codebar exists / turn it on.A) Add the menu named in strMenuName to the" command bar named in strCBarName.]D]D $.   %.  5%.  (q # .i# > Add a button control to the menu specified in cbrMenu and set? its Caption and OnAction properties to the values specified in* the strCaption and strOnAction arguments.]H  5%.  9 959q!q!i!"QAttribute VB_Name = "Module1" Sub Autoexec()D Dim strCBar As Sng @Menu@cbr@<ACommandVControlLisitoneBooleandnacodebarA X DNA3ȆS On Error GoTo nomj  'see if Bexists / turn it on.Set W= Applicati3\s(WIfI.VblTrue The @ Endlse$L   If A:B5s= CBAddAT1,Y4' Note:0 following use of the MsgBox funcI i:'OnACproperty settAwill work@_ly withcØ s@ Microsoft Access. Inor Offi"cCJ' aks, you cabuilt-in@AF*s3r*. @a I F>from am/BɁ1Jb,must cr|ea@@@ 'c edureat$0s stha 33b.C'ED~($I, "t->", _bytoHA->RNAou ->AK`to`#BAAAto "!!$"=Wd(#.R.Poౠ`mso8Top !` Few2#Ǩ<)E`Ȇ.)kH B' X n@d!fy to(CWU,"tla# FResu@NexsD : <> 0) 5.h 0p0r `#  = .sR#Popu p4cj.Cap_=9df&& '[(( o)nuH?&O*'@% */-a6._*b.ctAc C- R/specifie/!5\s4i@ A^ k ie`r2 valuIDah8qarg`,nts=4"`3TB&1 & &Buq&e'? )Tags,14wi* T ]2o' ' MaЋ recordP10/2/2@004 by ke HuberCopyrighdt Mid efineriZa s KO`,t NRSP1s[ @' old newgQlengthRQInte`ger '4Ps`equen1pri`NQ$va*@"" "'O0q N =`P're/ D2zeroQA>'!03 14Acap󜃦 pars`=UleҨS Se_= UCase$(1`(ApcheckeLnsa`ist ~Jǘ= L,en1ep -1Mid5,d, d1)U"V` pon=T("T6hPPe beO@B!W 13 Then- " =+ Chr(13) IfInsert new c@ode af 8old#ionIN=  vub Sub DNAtoRhNA(2'u `Macro recorded 10/2/2004 by Mike HuberA Dims,poPOyNrna,jAs String Integ% ^"" |'OoN& N3a '= 0't lzeA5?@@JOEset operatT} UCase$(A-) 'tljcapschABalre0ady 7 Fors3To 1@Qep -1uw, JU"@CgMsgBox("Thppea@@&bn S stra%. Do (youiwantconvit?", vbYesNo, " j->errodr" * v8bNo&ABElseJs: BÂ NO1 &&( < 6Xs'""C"aX@'+ "Gcn ,#A-UhT2bF# ?`}i%'z`{(tlyshe possibl+a > `9?#CϚpast@at irbm @Kt~oM`O`q, a`a= H`s fF& '޿9`fbo Ta)KK->aKTK @KhKP K_K0cKWGK', K =/KKCLK> ,K Kod4%PCKKuKu*S~ Q@GbHK usP original savВp$( 9MP1toAM@ߛӖwMa#M), bt, pgmdavaria cpq"lNaa 01zmove spaces With F.FindMl.T3`V ssb.Replm$f.Execu ht:=wdAl ?? "^pOeOd OndOMb\A6W`ͣ*1c_Q`^bgrid ilQ,Ӂ g~(#q2kt2= ALeft -;!;2f୹ `in mod 3 `noPuggesZrunc|r[ X&M0߯=> گp!`groups3 odp0Wouۀal6Pt & Fa plesOKCa`lP ٙeOKq-c- ()_ŴA0030auPD ensudre0 T@v ɐ )D (} #/)G}`it can'#$edOK error") End( If Next codelength 'all good --hnvert rna sequence to AA Fort = 1 To Len(O\) Step 3 Sct Case Mid,9, 3"UUU", C"NaaX+ "Phe-U)A)GC7CUC CUGELeu"AA(AUA ;Il;A*Met*VGbG.G.G.ValUCRCcUCqCqARG AG @STer#C#C#C=CU 8ProAAARAThGGGGAlaiUA>A7L8TRyIUAFAFUGnSSSCC@His BFC@RLGlnH AeCAU.AsK ALyI"GGjpH"GCEG-_G#JG JU`(fDGly( CcCcCcCG$U#'QJ-Arg U Uk R-C!Ue * Tr 3correctly parthe p@ossiblaragraph mark at e¥If Asc(S`,!), 1)) <> 13 Then @+ C0hr(1"go#a@ ofƩd sampand insdAA.ũion `! aB ububtoRNA(' MaXcro `"orded 10/2/2004 by@ke Huber A Dim@Hspo` Oaa, N"s`$ring, ron, pgmdInt egA reset varia1s "@ D 0'remove spaces A%'8@ `With cB@&.Fi9a[`.T0= " .Repl ment?!+ (0 .Execute :=wdDAllA^p 'g0&|Ac|~cap1=/uUx$(P%ridA-`trail 6a4 3 33`30pLeft3w -06tag dash if none exists (0 up fm4 checkP ?Paa;45;CQ;452PӢbe0; A t suggest P1p+fure z,ҒpRM `E0b QP270MsgBo@x("Thi`/mino acnoeNmedP. E!s@uBlpccur@C! dnar.swmses.o4rgr !at!3 Woyo u stiPli/ B $P ?vbOKCa@l, "`PJڧpv s- -Q G4}: BAK#, 4"PHEiJpJ((2 * Rnd) +(aBC1cMkr1 `rL ᭉ2U!? "LEU 6 PN V $ 0a1Q5C%`բ6aP"0Pv r"ILt((3$r aywM$ )" xMET"VAL, b/4_/Р nUpbn?b5$n+6SER?((3 AHNu NU BN7B2H* + "AGU" Case 6XNrna ,= CEnd Select n"PRO-Frcodon|Int((4 * Rnd)1){h p,1 CC 2$I3$A$4G x"THJRwAwACwArCwAC;;C;A\LA;SwGa;Gua;Ga;GS; 13 Then Q+ Chr(13go to  of sequencedmpaпins8ert tAAA. i2Cub _B_var_IfPnoj^ _B_var_nonomenuonerror_B_var_onerrorn _B_var_On6T  $ Applications*\G{00020905-0000-0000-C000-000000000046}#8.3#0#C:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLB#Micrdir__SRP_0!2__SRP_1 >PROJECTwmBA0* pHdProjectQ(@= l QC J< rstdole>stdoleP h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\system32\e2.tlb#OLE Automation`EOfficEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files\@CommonMicrosoft Shared\OFFICE11\MSO.DLL#M 11.0 Ob LibraryKӈThisDocumentGTisDcumon]* 2  HB1BxB,!dw"B+BModule1GM!d!|1m 2O7M,!CK*yrU~~~~~~~~~c :\XIkDU  $   ThisDocumentModule1ProjectF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  90 F5C:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLBWord 1@0FC:\WINDOWS\system32\stdole2.tlbstdole APL-[DR?C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLLOffice 1`AutoOpen CBAddMenu FCBAddMenuControlDNAtoDNADNAtoRNARNAtoDNARNAtoAAAAtoRNA  DNAcode F Fp F F F DNA->DNA DNAtoDNA DNA->RNA DNAtoRNA RNA->AA RNAtoAA ay  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020905-0000-0000-C000-000000000046}#8.3#0#C:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLB#Microsoft Word 11.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL#Microsoft Office 11.0 Object Library QC ThisDocument0=4300dc23ThisDocumentdwModule10?4300dc51Module17^8LrۈJrE8 FԆ^McwHz46 Asboolean=DimDelseRFalse_IfSetThenToTruewithWordkVBAWin16~Win32MacVBA6#Project1 stdole`Project- ThisDocument< _EvaluateNormalOfficeuDocumentjModule1bDNAtoDNAaOdnaNdnaSdnaq codelengthY dnalength2 SelectionZUCase5 responseMsgBoxRvbYesNovbNo%Asc!uChrK~DNAtoRNAάNrnaMRNAtoDNALOrnaYSrna*RNAtoAANaa basetpgmdAFindn ReplacementExecuteYReplacef wdReplaceAllu# vbOKCancelx?vbOK%AAtoRNAOaacsaarcodonRndR_B_var_dnalength _B_str_UCaseK _B_str_MidX_B_var_response  _B_var_Chr\;_B_var_codelength0 _B_var_Midp _B_var_LeftQof Application*objAutoexec CreateObjectInit\[AutoExitUninitI CBAddMenuDemo/i strCBarName strMenuNamecbrMenu%CommandBarControlP CBAddMenu0CBAddMenuControlCBDeleteCBControlV@_B_var_CBAddMenu* AutoExjkhec  AutjoExjkhec%kl]klkjhi~trie8 _B_var_Subtrial5cbrBar; CommandBarctlCBarControl CommandBars ErroAddrControlsKmsoControlPopupl)Captionx strCaption strOnActionBmsoControlButtonnOnActionTag&ItemzNumber-make,makebarP _B_var_Set dnacodebas dnacodebae dnacodebarVisible_B_var_CommandBar|vwiht=J _B_var_wihtPosition msoBarTopy msoBarLeftAutoOpen*See_ _B_var_Seepisitonr Visibility AA->RNA AAtoRNA RNA->DNA RNAtoDNAfĤIx8< FVBE6.DLL   ControlsAddk F+CyXL Fhuv.@Te[V FDocument @rU~~{  i strCBarName strMenuNamecbrMenu strCaption strOnAction  YThisDocumentThisDocumentModule1Module1ID="{932F695C-927E-4712-BA51-60045F6E2CEF}" Document=ThisDocument/&H00000000 Module=Module1 Name="Project" HelpContextID="0" VersionCompatible32="393222000" CMG="090BDCE4E0E4E0E4E0E4E0" DPB="1210C7ECD1EDD1EDD1" GC="1B19CEE7D6E8D6E829" [Host ExtePROJECTDCompObjKqnder Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDocument=0, 0, 0, 0, C Module1=44, 58, 471, 543, Z   FMicrosoft Office Word Document MSWordDocWord.Document.89q