Sharp PC-E500/E500S Technikersoftware

AMINO.241

Formlen der Aminosäuren

AMINO.241 (4.947 Bytes)

10 ' AMINO.241 (Amino acid)
15 CLEAR
20 MERGE "G:COMN.00$"
30 GOSUB *CG
40 GOTO 10000
100 PRINT "G (Gly) glycine"
101 LOCATE 10,1:PRINT "CH";CHR$ &D3;"(NH";CHR$ &D3;")COOH"
102 PRINT "A (Ala) alanine"
103 LOCATE 10,3:PRINT "CH";CHR$ &D4;"CH(NH";CHR$ &D3;")COOH":RETURN
110 PRINT "V (Val) valine"
111 LOCATE 10,1:PRINT "(CH";CHR$ &D4;")";CHR$ &D3;"CH";CHR$ &EA;"CH(NH";CHR$ &D3;")COOH"
112 PRINT "L (Leu) leucine"
113 LOCATE 10,3:PRINT "(CH";CHR$ &D4;")";CHR$ &D3;"CH";CHR$ &EA;"CH";CHR$ &D3;CHR$ &EA;"CH(NH";CHR$ &D3;")COOH":RETURN
120 PRINT "I (Ile) isoleucine"
121 LOCATE 10,1:PRINT "CH";CHR$ &D4;"CH";CHR$ &D3;CHR$ &EA;"CH(CH";CHR$ &D4;")";CHR$ &EA;"CH(NH";CHR$ &D3;")COOH"
122 PRINT "M (Met) methionine"
123 LOCATE 10,3:PRINT "CH";CHR$ &D4;CHR$ &EA;"S";CHR$ &EA;"CH";CHR$ &D3;CHR$ &EA;"CH";CHR$ &D3;CHR$ &EA;"CH(NH";CHR$ &D3;")";CHR$ &EA;"COOH":RETURN
130 PRINT "P (Pro) proline":LOCATE 11,2:PRINT "N  COOH"
131 LOCATE 11,3:PRINT "H"
132 LINE (60,8)-(77,8):LINE (60,8)-(60,15):LINE (60,15)-(65,20)
133 LINE (77,8)-(77,15):LINE (77,15)-(72,20):LINE (77,15)-(81,19):RETURN
140 PRINT "F (Phe) phenylalanine"
141 LOCATE 18,2:PRINT "CH";CHR$ &D3;CHR$ &EA;"CH(NH";CHR$ &D3;")COOH"
142 LINE (58,11)-(78,11):LINE (58,11)-(49,20):LINE (78,11)-(87,20)
143 LINE (49,20)-(58,29):LINE (58,29)-(78,29):LINE (78,29)-(87,20)
144 LINE (60,11)-(50,21):LINE (56,27)-(80,27):LINE (76,11)-(86,21):LINE (87,20)-(97,20):RETURN
150 PRINT "W (Trp)":LOCATE 1,1:PRINT "tryptophane"
151 LOCATE 19,0:PRINT "C":LOCATE 22,0:PRINT "CH";CHR$ &D3;CHR$ &EA;"CH(NH";CHR$ &D3;")"CHR$ &EA;"COOH"
152 LOCATE 17,3:PRINT "H":LOCATE 17,2:PRINT "N CH"
153 LINE (92,1)-(86,7):LINE -(86,16):LINE -(92,22):LINE -(98,16):LINE -(98,7):LINE -(92,1)
154 LINE (98,7)-(111,7):LINE (93,2)-(87,8):LINE (86,14)-(92,20)
155 LINE (96,18)-(96,5):LINE (98,16)-(102,20):LINE (108,22)-(112,18):LINE (120,4)-(129,4):LINE (115,9)-(115,14)
156 LINE (118,9)-(118,14):RETURN
160 PRINT "S (Ser) serine"
161 LOCATE 10,1:PRINT "CH";CHR$ &D3;"(OH)";CHR$ &EA;"CH(NH";CHR$ &D3;")";CHR$ &EA;"COOH"
162 PRINT "T (Thr) threonine"
163 LOCATE 10,3:PRINT "CH";CHR$ &D4;CHR$ &EA;"CH(OH)";CHR$ &EA;"CH(NH";CHR$ &D3;")";CHR$ &EA;"COOH":RETURN
170 PRINT "C (Cys) cysteine"
171 LOCATE 10,1:PRINT "CH";CHR$ &D3;"(SH)";CHR$ &EA;"CH(NH";CHR$ &D3;")";CHR$ &EA;"COOH":RETURN
180 PRINT "Y (Tyr) tyrosine"
181 LOCATE 5,2:PRINT "HO":LOCATE 18,2:PRINT "CH";CHR$ &D3;CHR$ &EA;"CH(NH";CHR$ &D3;")";CHR$ &EA;"COOH"
182 LINE (58,11)-(78,11):LINE (58,11)-(49,20):LINE (78,11)-(87,20)
183 LINE (49,20)-(58,29):LINE (58,29)-(78,29):LINE (78,29)-(87,20)
184 LINE (60,11)-(50,21):LINE (56,27)-(80,27):LINE (76,11)-(86,21):LINE (87,20)-(97,20):LINE (40,20)-(49,20):RETURN
190 PRINT "N (Asn) asparagine"
191 LOCATE 10,1:PRINT "H";CHR$ &D3;"NCOCH";CHR$ &D3;CHR$ &EA;"CH(NH";CHR$ &D3;")";CHR$ &EA;"COOH"
192 PRINT "Q (Gln) glutamine"
193 LOCATE 10,3:PRINT "H";CHR$ &D3;"NCOCH";CHR$ &D3;"CH";CHR$ &D3;CHR$ &EA;"CH(NH";CHR$ &D3;")";CHR$ &EA;"COOH":RETURN
200 PRINT "D (Asp) aspartic acid"
201 LOCATE 10,1:PRINT "HOOCCH";CHR$ &D3;CHR$ &EA;"CH(NH";CHR$ &D3;")";CHR$ &EA;"COOH"
202 PRINT "E (Glu) glutamic acid"
203 LOCATE 10,3:PRINT "HOOCCH";CHR$ &D3;"CH";CHR$ &D3;CHR$ &EA;"CH(NH";CHR$ &D3;")";CHR$ &EA;"COOH":RETURN
210 PRINT "K (Lys) lysine"
211 LOCATE 10,1:PRINT "H";CHR$ &D3;"N(CH";CHR$ &D3;")";CHR$ &D5;CHR$ &EA;"CH(NH";CHR$ &D3;")";CHR$ &EA;"COOH":RETURN
220 PRINT "R (Arg) arginine"
221 LOCATE 10,1:PRINT "H";CHR$ &D3;"NCNH(CH";CHR$ &D3;")";CHR$ &D4;CHR$ &EA;"CH(NH";CHR$ &D3;")";CHR$ &EA;"COOH"
222 LOCATE 13,3:PRINT "NH"
223 LINE (81,16)-(81,21):LINE (84,16)-(84,21):RETURN
230 PRINT "H (His) histidine"
231 LOCATE 16,1:PRINT "CH";CHR$ &D3;CHR$ &EA;"CH(NH";CHR$ &D3;")";CHR$ &EA;"COOH"
232 LOCATE 10,2:PRINT "N  NH"
233 LINE (60,9)-(94,9):LINE (60,11)-(82,11):LINE (67,22)-(73,28):LINE (66,24)-(71,29)
234 LINE (72,29)-(77,24):LINE (60,9)-(60,13):LINE (82,9)-(82,13):RETURN
10000 CLS :LOCATE 7,0:PRINT "*  AMINO ACIDS FORMULAS  *"
10010 PRINT " 1";CHR$ &EA;CHR$ &EA;CHR$ &EA;"Monoamino-monocarboxylic acid"
10020 PRINT " 2";CHR$ &EA;CHR$ &EA;CHR$ &EA;"Monoamino-dicarboxylic   acid"
10030 PRINT " 3";CHR$ &EA;CHR$ &EA;CHR$ &EA;"Diamino-monocarboxylic   acid"
10040 '
10050 Q4$=INKEY$ &1:P1=ASC Q4$
10060 '
10070 IF P1=&31 THEN QMI=100:QTA=QMI:QMA=190:GOTO 10110
10080 IF P1=&32 THEN QMI=200:QTA=QMI:QMA=200:GOTO 10110
10090 IF P1=&33 THEN QMI=210:QTA=QMI:QMA=230:GOTO 10110
10100 GOTO 10040
10110 CLS :GOSUB QTA:QX=QTA
10120 GOSUB 10140
10130 IF QRT=1 THEN 10000 ELSE 10110
10140 QRT=0
10150 Q4$=INKEY$ &1:P1=ASC Q4$
10160 '
10170 IF P1=&E THEN QTA=QTA+40:GOTO 10230
10180 IF P1=&F THEN QTA=QTA-40:GOTO 10230
10190 IF P1=&4 THEN QTA=QTA-10:GOTO 10230
10200 IF P1=&5 THEN QTA=QTA+10:GOTO 10230
10210 IF P1=&D THEN QRT=1:RETURN ELSE 10140
10220 '
10230 IF QTA>QMA THEN QTA=QMA
10240 IF QTA<QMI THEN QTA=QMI
10245 IF QX<>QTA RETURN ELSE 10140
10250 '

Generated by (c) Casio FX-850P/FX-880P Notepad 2.02

(c) by mani.becker@web.de - http://blog.manib.bplaced.net