Microsoft Windows [Version 6.1.7600]
Copyright (c) 2009 Microsoft Corporation.  All rights reserved.

C:\Users\x>cd desktop

C:\Users\x\Desktop>drawrna.pl

 Please enter the mRNA sequence as A,T,G & C(.txt): t1.txt

 The mRNA containing U in place of T:

 AGAAGCCCUUCCCCCGGUAUUU   

 Please enter the RNA folding as a .txt file   

 from the output of 1st step [as (..(())..etc.]: t2.txt  

#### I don't know how to correct the following for getting the structure: 

/rnaline { pt setlinewidth moveto lineto stroke} def
/rnabase { moveto -0.12 -0.12 rmoveto show} def
/rnapicture {

-2.65358979323338e-007 0.199999999999824 -1.06143591729335e-006 0.79999999999929
6 0 rnaline
(5') 0 0 rnabase
0.199998673204399 1.00000053071708 0.799998673202287 1.00000212287095 0 rnaline
-0.0618054323093417 1.19021107365562 -0.247217748852677 1.76084429462513 0 rnali
ne
(A) -1.32679489661669e-006 0.99999999999912 rnabase
-0.147219017000719 2.06861319158651 0.338189495098491 2.42128666150115 0 rnaline

(G) -0.309021854367122 1.95105536828163 rnabase
0.661796417623143 2.4212883789412 1.14720867309789 2.06862006134672 0 rnaline
0.617548223648782 2.70064872593698 0.970215897200448 3.18606144932982 0 rnaline
(A) 0.499992332464894 2.53884448480603 rnabase
1.2495761854877 3.23031001395802 1.73498937679778 2.87764298444979 0 rnaline
1.10867561610605 3.54677026553781 1.17138709927121 4.14348399076896 0 rnaline
(A) 1.08777178838434 3.34786569046077 rnabase
1.37499918384373 4.42373776915214 1.92312395439612 4.66778537907054 0 rnaline
1.0584631229551 4.49101601575487 0.656979710841618 4.93689836548147 0 rnaline
(G) 1.19229092699293 4.342388565846 rnabase
0.623149761925029 5.25873213447585 0.923143327288744 5.77835109173238 0 rnaline
(C) 0.52315190680379 5.08552581539034 rnabase
1.21877126160757 5.90997770286862 1.80566149920032 5.78523857902081 0 rnaline
(C) 1.02314118240998 5.95155741081789 rnabase
2.02219970496771 5.54475401333257 2.08492408467712 4.94803944011565 0 rnaline
(C) 2.00129157839791 5.74365887107154 rnabase
(U) 2.10583221124692 4.74913458237668 rnabase
1.37499918384373 4.42373776915214 1.92312395439612 4.66778537907054 1 rnaline
(G) 1.19229092699293 4.342388565846 rnabase
2.26763692029425 4.63157933523685 2.75305104743626 4.27891359381735 0 rnaline
(U) 2.10583221124692 4.74913458237668 rnabase
2.8939524565731 3.96245371613098 2.83124255684161 3.36573982449139 0 rnaline
3.11048473225742 4.20294324583196 3.69737165957888 4.3276979432953 0 rnaline
(U) 2.91485575648359 4.16135834667752 rnabase
3.99300308662394 4.19607917695809 4.29301044043765 3.67646818048313 0 rnaline
4.06620416816146 4.46928552352663 4.58581476658773 4.76929356675729 0 rnaline
(C) 3.8930006353527 4.36928284244974 rnabase
4.85902121027885 4.69609284770862 5.15902994292594 4.17648264733194 0 rnaline
4.89284176501818 5.01792760404477 5.29431216188326 5.46382167267655 0 rnaline
(C) 4.75901829939649 4.86929624783418 rnabase
5.61084625881948 5.53110915877608 6.15897815276308 5.2870775484429 0 rnaline
(C) 5.42813562750495 5.61245302888714 rnabase
6.32078706760167 5.00682888138526 6.25808191817385 4.41011449054553 0 rnaline
(C) 6.34168878407761 5.20573367833184 rnabase
6.04155073211999 4.16962360432044 5.45466232338622 4.0448653364849 0 rnaline
(C) 6.23718020169791 4.21120969359895 rnabase
(G) 5.2590328538083 4.00327924720638 rnabase
4.85902121027885 4.69609284770862 5.15902994292594 4.17648264733194 3 rnaline
(C) 4.75901829939649 4.86929624783418 rnabase
5.08582886138842 3.9032763007634 4.56621688412877 3.60326746143446 0 rnaline
(G) 5.2590328538083 4.00327924720638 rnabase
(G) 4.39301289170888 3.50326451499148 rnabase
3.99300308662394 4.19607917695809 4.29301044043765 3.67646818048313 3 rnaline
(C) 3.8930006353527 4.36928284244974 rnabase
4.25918903168101 3.35463351389399 3.8577174515974 2.90874051060153 0 rnaline
(G) 4.39301289170888 3.50326451499148 rnabase
3.54118272464185 2.84145464639221 2.9930501238588 3.0854900570567 0 rnaline
(U) 3.72389359156953 2.76010950950405 rnabase
(A) 2.81033925693112 3.16683519394486 rnabase
2.8939524565731 3.96245371613098 2.83124255684161 3.36573982449139 2 rnaline
(U) 2.91485575648359 4.16135834667752 rnabase
2.62763016032512 3.0854856167453 2.07950287050714 2.84143688514661 0 rnaline
(A) 2.81033925693112 3.16683519394486 rnabase
(U) 1.89679377390114 2.76008730794705 rnabase
1.2495761854877 3.23031001395802 1.73498937679778 2.87764298444979 2 rnaline
(A) 1.08777178838434 3.34786569046077 rnabase
1.77923757077214 2.59828263745402 1.42656896138514 2.11286862597493 0 rnaline
(U) 1.89679377390114 2.76008730794705 rnabase
(U) 1.30901275825614 1.9510639554819 rnabase
0.661796417623143 2.4212883789412 1.14720867309789 2.06862006134672 2 rnaline
(A) 0.499992332464894 2.53884448480603 rnabase
1.24720994124523 1.7608516951033 1.06180149021249 1.19021491396751 0 rnaline
(U) 1.30901275825614 1.9510639554819 rnabase
(U) 0.999998673201583 1.00000265358891 rnabase
0.199998673204399 1.00000053071708 0.799998673202287 1.00000212287095 2 rnaline
(A) -1.32679489661669e-006 0.99999999999912 rnabase
0.999998938561266 0.80000212287113 0.999999734640317 0.200000530717783 0 rnaline
(U) 0.999998673201583 1.00000265358891 rnabase
(3') 1 0 rnabase
} def
/pt {88.5200325285177 div} def
/Helvetica findfont 8 pt scalefont setfont
23.0354980737536 0 translate
88.5200325285177 dup scale
rnapicture showpage
C:\Users\x\Desktop>