[bionet.software] Multiple DNA sequence editor for Mac

rgonzal@elbereth.rutgers.edu (Ralph Gonzalez) (06/17/91)

MultiDNA -- HyperCard stack for Macintosh computers.

Hi.  My mother is a molecular geneticist, and expressed a need for a way
to edit and compare multiple DNA sequences conveniently.  She's been using
a word processor for this, but this is unsatisfactory because of the usual
line wrap-around limitations.

I wrote the small Macintosh HyperCard stack below to fill this
need.  It lets you edit up to 6 DNA sequences at once, comparing them
with each other by means of the vertical positioning.  Several groups of
6 rows each are used to allow sequences of up to 880 characters in length.
When you reach the end of the line for sequence 3, for example, the wrap-
around continues with row 3 in the NEXT group of 6 rows.

The stack supports importing and exporting sequences to text files.  It
is freeware, so feel free to pass copies to others who might find it
useful.  I've only posted to bionet.software, so let me know if there
is another BBS where it should be posted.  

Requirements: any Mac which can run HyperCard 2.0 or later.  Use
Stuffit to unbinhex and unstuff the file below.

Ralph Gonzalez
PO Box 54
Newark, DE 19711
USA

Internet:  rgonzal@elbereth.rutgers.edu

------------------------ (cut here) ----------------------------

(This file must be converted with BinHex 4.0)
:$%eeE(4T4%j",R0TG!"6593K8dP8)3!!!!!8)J!!!!!,KP0*9#%!!3!!&#*b6'&
e!4`!!!!@!#d#!JK0G@adD8413@9b+'*PG'%T!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"69%&,9dP-4!%!T"C&qU4p0SF!!!8
C!!!Y!!!!!TN!!"%$9`44S3!!!!!!!-M"!!!%#!L!3*Q!!`i'T%93!3!"S!KL)8L
aSS'!#Y)3P,!!54iiCH43+G-'$SJB!JK1S4*NbC8N6)K8V,LbjFZB-h2U*%LUMie
#!9X3,*!!33!-LJ(!#3#dXkR6Te#M5Te+G5E6UP+["J!@8!$AJPm4r'-+!3"A%'B
"!%R,P1[DXfR,FKA,PF!rVPi$ELAi95h@R9Ir2JhF0f*!5!(r)3S)L!$MP!!!$Ba
-@6*A3!1B!MU3!0K4`$qF#1)L#)mJ1)*V"9Y9h66!2(i#A`Z8i$J!EB%6B!H3!&I
lGS$FXh[A"VlEm82M!f!IliTFZ3$Mca%UVaUB08+"Q,0[j3`!R)1!F$J%a)%M)!F
i!4fF"R$JDqD!lG1[2cqq2)$`!Ed,"-BjXhrXeK&8AB$rM"8!(RF*J-Xri"6!`6r
`+2$!2rK3F-!rr+!``$rq`$%3!40N-!-0)BjB)Jd3I*KL35A5dQ+,+3j!b!F&6KH
JJ(m&81"$M"(3(K!%I!!2'!6`J!H421"!*!C+1RBN!3%-5F!!`"$*'C%A%6N!!%3
'T#@A2J*LTCK6FJNC1$VH"8#"!kU@a%#"$4#$#c$id%3GE0#4"K&1"(%5R5b!)%F
CFG54aU"cJ1!45()-%BBFC)!J!jdZJ!##%B1@FFHMCB!J4KiJ5&(T%@qiS8FBE*5
KKei%'B53!%)!-&5"*[!83!K"iJNL8"*$21%%!!8!))%G)Fe"N!!@!pJ6%&S%9C!
!#4d$e!2!!XcH1LXq&63"J!9S"B!!45h-!S!(h6*#d3$c!%!#@J+898%R!)5K#J!
TX%X*!"9X`SC!1`)`!!B8+3$&S(D!%)3FFVaaK`*1P)%((3BMV2!"Gk6K"KP[T%&
'!@-N2-FF"#$a4KYP)0"%'C%L83BEF!!!!#J!-)9+N!!Pra,q#mJ`i%!!,4JqE%J
4J!#(MaJ1#,JJ9d!%4bU+E&JJ))54+!0H"'3a!%X",PZb[&DXQb1++!"!#G"0!*5
'!F!*!#4JAXUM5*-UAFUdUG1R8+0+R8Ue+Y-'5`)bb%)!e8@VB-1+(8ZfV0Qb,$m
b4!4!"!#fEK%K%L&#,Pe%UN5S`UZAQDSCU[`#GUGUPbV#KYhYfZ91-H0rZrkjJbb
CFX,)r`""%!!L!!)J""5+rMHhG&d4%8333C4k06&!$0!-%3$$4#`B!cCJ!mDJN5S
![i1r&9(PG(&%aDXJ*hkR@r2RhG*59&@&Z[8U!`JKJF%!CJ""4()3%45J2#)+)S)
J#L+#!L"!3A`J3%"KR!J#M1L)Z)!*JLp!L##`$J+)!&)#-M)N3JB*6%JL#LG"q+*
#-K5X!`3S!4(`%#"!J'!4!3J!"`",E,'8fAXS!S)!"b)%!dJ!!S5'iMrc)B#2INF
mFS%)FI`#`#qr`#)N,2rmi8XASJ6"NMle-!N+&%qH*H@89&CTjC9BCURPPPa@fF+
AB)BTjTKNPQRQQ@Bfm#8)8p!4aKKVk!"#%h@`38FD4$J4K*SYJ""%(A5JmBBFFNV
K!JK([1''(Q'`8BBHI)*!4"KdP#&R%f()-3BD)-L3!!-,)-53!%-1-84+4"Tcd#&
('Q)!QSDLFTSK4aPPh*&T'DD@-FFBUm*a*kaceRPR#fbNi8BCNZS*`KaPa&&('@k
-J@`CC+4"ak#JQM%S#'1md3BFQ4Tl4U3J,0[XXp(UkJ+ID,EVlV[Y0Y#!SL#m!3H
dUEkj4J0RX2''')f#8'FCGT6"4J0`!!T#S-M@`D`FMKE-"JM'ALY`a!Bh`#`G#k2
4m--B6f`a$4S,HJF)GaK,aKXRLl#V('q``BB))&!+!JdeI#V$$$!d!#dCpGlV4Vj
`bN[['2ib5r5qrIiEm-!50i"''Q3JQl)E+lImFX`cDe`'a``,$$,""LrmaX9N(r`
cYdRVkQE4$3!!m-43Ccaee5LVc$)),[2+Y3MX`L[ii'K'QJ6(BF"aEkCcG'ac(Qr
8!F,+ETc!m4PIeq`'#'A)!E-F&*X"!Z55)rd'Xc@cI6UeN9kG0DKcR(d(XT4E$X+
ae(D-+JMqfUY$i)3(,h`,I')1YXGjBmhb((c1ZMM(+3G+-3JpK'VflA@d)8ERpBT
Hl,'0'dXa(AbQiEfab+E4rIJ80bk#%@NB6!E0$,[4J1QSZllhqr'c-6qIDc-I!,%
'!ZH9J9*H1pl(1KHbkp90E36%Rp[dCE60VD`*d#UGS0)JV3DBMeXEP&Elq$B%Ei&
V$"aVNllSjc(l5G"$&J&!%i*3%0&)"3`K!3!CX"!38Q3N!$M`5!$'N!!&!!5!$&N
*!!Cb%J!BS-1)2E#&%@IJ!b2Z`#eGbU)@YmM&,RVaLeN#""158*!!Mq53!#)"8)Y
'!)#"'*CN)dCd`4STNJ!H`K'-8!N4&)*`K#)%T)i9!3N*L&)'MZ3#$&'4!-fL!J&
EJ1-2rpM(0a6bMAdST"qL`53H0mR*6RVbNk!-T5K(5FT5Q[+8U%bP+PI*bPDkmT@
`M+8XCdR,@Nl*!B!3`K+13!5-9-3"1DR)9al`4!!3%`!RqF!IC4"$!"$!3l)!J!6
5#!!+"#!C!&K"!-M4N!!"f-1)$'%!3di#!(Ue)A,-UJ)F2#LkX,NKHpX$h4[D1EA
'M5&630ZG'pkJ31aTMh[cl"Lbc*!!"MQNLP[i&+Mpl)#U1J5X$'B`3aP3Z#brbDb
!D6J$'XKhKV0C$!kcBLJk%5S(-[L-J!*FfcNG9JCeaJd!`!$!"+KTcA&N-`$pk'B
p`+Q9F3E%R1KXk6Srk%ji!T5HZlYR58Hichkqmjrb0)-`'K!f0S6KS%V0jqB#Y6Z
!`HN--+X$!H[A!)E1`D%6JkK%+EUeLcV+$"cek0Q1K3H1CI@Nq63$AN'`dR5Z-b!
XU#BeZ`#!MD3"Tb+K*J$%D4)Re!S%3J$8YGa!%48!S!-#5!!!lJ#!#"$!%!&Bb%J
)!!$0"J3-6ifRZ"VL&J0m"3fG*F!G!T!!$j53!0Dd!%!NDbhb&4c%GVDe(@eT'D*
EKVL&!&rjL@H"Dp[KRTBLELR!9lM`@pSf&lI&$BKE"[#9ALlAZX,&,R50q*A!IMH
i)VNYF5N5f!V%#!#"h8JC%(X!N@b%XFJNJUjiP3CI[BUb!3N!$c&!d`"S9J8"k!3
SlKMJF)kc#(L!`k!i0S3kH!jD()1Ir(kkZEi+Y3&AA3-)#1SS[N&B`R+`Ui9Rj3D
1%94q0CZ$$QJ@28kT4Nmd-m&88hY8hGNcS5EJQ`Yb6$'J"G5VD`"Vj!MiB[q"i!E
XC*mqqFQjEp%K$jS$@YKQG9Bl-CA+)KK#'0)e-i8L6'(@SPL,cdEL-MJK$'h!PEf
J0H)dP,M0Eijc!qk`UNU"!-P+&L[3QJbd'eb[cA9f9*jap8*%iaR1Z!UJAP8D9*I
'E3"U!%!'D!U!0J!!`3*B-"SGE*)NI'[#)+M`K9X-!JhlMm0mVI3kacb(fB%1d5)
`0BV"9SDkMKKQE8!C'Qc@jKQ[lmVhiKX9LS!&+J$ZJfQH-XI+B'8XMcQI(*-f#FF
XV6*IHkTEeT@`[Xba-(2EB#b%eTQcRHde*pV0N!"ZJ,rJ90&CUA[1Qh1dRH'Yjie
abm+a!jh&@M@(2+bEEc5VQ%HT[Fk%F5`'DVEBpk$eKJE-+Jb$"[DlhleSJEABcJA
mQSAYCr%b2%rBqjCbijTDC9pCQi!6hbF)H&#p'%#mA#$iNXFbZY(e%EVN*lr$e%S
FlC96QH&AcM,[d#GcQSIUjPp+'4QN&p#I1ab%QE+HaA!!Jr@P13a`j9kP[Y@!UMR
+cj[+1X5hh[@!@J[%C!$DfXm@miU[cB!)K(Df'iGd,*2eiKRheXBI(@H2hfPLXk,
$b2HD8J,LRAchDp[JplhS+"IpGNH[YTQhCh)3$mh@I)0ILDp&Gd@G)HGeKV'Ua(V
25T&Kb(Q6RVR*6,0YLH!*5hLfk#jrqpbEqHTMKd2%c`ESX$+jIi9Qr+6C`+b$"hr
iIpCAS)m2BbK,@[PlpE!k'8*G$A#DY)%Y36H0SPMm3J!*hN+@#Z%%Dqf[dkaSR4b
UBXH'J[(VE#)39*`"4fQ@ZM3JZ!!!'m"TPK9B3Y!3BI!Ej6G1(X-'F0"qXRCQFm!
TG`9r!3-`FQ""El!Yq(Cr*!8d)K!'BK!j(*-Rl!&d"m3aBR9i!K9V,$8%a9)dGfG
b+9K@$A@"QD+"fb*"#'-[(jKp%FJ3R!!!(b!![V8'KI9CRA9Ge-3!-(-(F`#",*8
epQ-m,BJd(,3'%qFeMN*4EfH&BF-XAHKkP9*APVGhQ&GZk@BrF*!!KB3f2YMAIma
#"#a$FJc4!31`"`#!Fh`B+PhAKq8L!hm)L$`$L19#!i2BKc@3!)KmD!1-L(-hm)M
P`R80B)JJN!!$NKJ$-*!!LCTSL$%JL*jBL)!B!iMSLB[SLBjBLD-BLCl)GCk)LBB
SL*)S!jd)L$)!LVBSLRdS!iLSLVYiLVESL,()LVESLVB)Li5iLBBi!lABKc-JL,l
)Kc1JLp*BLS3)M-iSM)4)M-jSM-k)M(f)L$eML$63M(a)!lJBMY5)Fc4JMH')MHH
SMH()MHG)LH3)MRbiL**B!qD)Fc@3!)ljZ)lP8J2ZQ)r`k)qTD)Je3)rqk)hjL)m
ijiL5D!2p@#if!*!!%5Q3!#"J!leSL$C`N!!@+Bq0b*!!&ZQ3!"%*NH85LC*i!aA
jC0"SL$HJN6G3N!#3!!L56bD5N!")NNpQNLQ*NL$!GH-)L$M3NML!NC1SN6K!Nj0
SNcL!Nj1SNcM!G3'K6*X!!+8L!`d`!`e!-MA3!$BJ,`e`P9QjP3h3P9mT,f+TP9c
TP@#CPQ4TPQhC!&LTPQA*PQJTPf1jPQFCPRK*Ph"jPh2jPRE*Pi'TPh&CQ(@jPfj
TQ2)#Dfd)*fp)D%q932pQ80YL-EC#"jY#QI1f"Lp$+e[P8A,`,&`i85k'I%@@H[i
cQBpRH#"A9&$PFkK*0DT*"Nme3P#f-R(f6R`M"+[L"UF(JkXM"rcRH$5)3*ZbJDJ
M"Nq)1U4h-2l@QCp*CaCM"Sh5I'[cQ'[`Fbm&&4XK"$2d%`!!6#LK@!c4&9paRPj
"%HLj&!)!$,p!#2%CRkY!#)`!!H!`$Kj`!)N!!cm"#12!!3fJ#2KC!5!`!B!J!3)
`!3J`!3HDS![DS!qUS!cUS!LUS#1!!!I`#iE!SEYJ#2HCRrXj#S5!RrV*Rrij)J%
kS!8kS4&US4"DS5iUSaFU!"QkS4eU#"mDSLG+SLDkRrhjRbY+S1"JS$9+Sc%US8H
UT""kSacUS5$kS`IJSb++SN)US%4UT%N+Sa6+T&h+T6DUS8qUSe&DT94kSN'USPM
DSNX+TNMkT5lUT$QkSe*kTN#DSJ#kTN8kSelkSR`+TR)+T6`kSL9DT@QDTbbkTfh
kTiaDSi&+TS-kTB@+TRJkT'bkTBf+UBiUTR0DTMdkUAGkTBQUTA#kU+EDT*`UU(8
+UPDUTU1DUD@UUDL+SkTUTUakU*DUU,)DUl`DTV4U#,`3TA#JR`-3Rb4+A,V%5`&
a6"34!998%G5N!"NK%$r%8fdK%Qi")fQ8!SX9!$i3!2MJ62De@$lP&+!!RN%JRXj
DRKA4RJhKVZUCRNN""I-TRrCDVrKkVrUDVrbkVrlDV`$VVkj!#$NkTJCV#+`3TG)
""N-3"&,35`$3%9)"504DVJb4RZ*8!6%80k4e%Gdj&N$3X!mE%)SdX6a8X99"!-!
JXK$E5#DlV-9NV3hQ6(4J4!6`J(a)*hD#*mUb1f%!!NL3!!Ih)JGLYP4,-f,E3Lh
@)Ljm*5cp9@)S8!I#Cc%f8$1)Xc"T%'FTN!!X3@!ZcJ)YdM)(K`)#9)!m#5-(%SB
kZf-aE4!'Dj!!2Y0f9Ajh0Yhb,EI5Y$X,"bA',&qE,Q)EM6Tl*bE),BSb"kK#"id
68-a5-()3-)%'"iNV1P8lFBf6+Bd,R,R$Z(Gb6c+6"f1E"C($9f'!C9K)Er3#Qr&
NY5fi2@GJ,'l!Y!(eXa1RG2A$1GA56i2,YqJL3Z)6+-5'I'0l"5dd1U&lFC[5JQX
6ZdYh,+#5CLPc85,!CiP6-mBh2pF60P-3"%e3"-ZE2PZ&2(4e1@%&"f-E")e$1J8
N9[@L-)V,+k#j,#G8"U!L!Q63Z'H3!'iJB&DX8Q+hmV-"&6EJJMPL`l4KdcF`)c-
dTMG8Xbjm#,UP-fB8FfSTPMUjHbjJ1e!Dpl0PH*T%jfjK-`BVKQ%eJd*T8$#e1F$
!fB+j*X%8&X+XjQV@fbTd-&QJFQe,plBTJcUpYQYAU#L9dQ+4fi*[FLFQr)BeTX)
RKQUUaQ)CKR`d)m16aF!ijm!)Y6RZ5bR)FL`R%m#kmQHN+bLR`l3Li&JR8l6@+bZ
#&cC"1l4Qc&FC&(eb-,CPLbaYp6fRpiBf%cEA)R`"G8$(bm8MT#fJ3cUJde6U!VK
11lLl)bZdBLZcmVQKflCBpLpZ)Mirfbe`J'9S('`r+b[aJc@JXLh-3N#&4`)eF$h
G`VMb0`FLeLfT!MY6ScML8X-%0'aBBmGMQ`3RF&('JM4eJ$Ha8hMmj$'hTVj,)lE
P!J@1FP9@dfIT)cVS1f`Q2'DNkbflLEMe!MTRG3DBNbVrpEF0)!@0!JHFNLL,dLL
2!LT3m!53!28'H!!#"!NUC*`TD`!U4-#pSX+5-5##*-Le6-%Q9#!%6+!94C35jLN
5B'!%!6h3!)!9ipT04`!Y""-'jpN%L[)QEp!33c!epp444X3"!*!!!Th!$3N`Z)'
E"LR`"3%@)L,0$F-9K8T"YN'3!!4-B%--m3"1)$Q+!$T9`c&c`!D!NJbZVJ!!: