� Titration
� By Julie Boswell
� (c) Electron User
(� �>&E00 �relocate
2� 1
<�initialise
F�instructions
P�
Z�titles
d�draw_burette
n�draw_beaker
x�fill_beaker
�� titre=1 � 3
�
�start
��titrate
��
�
�finished
��calculation
��another
�� �"Ee",key$)
�� 6
�
*FX4,0
�*FX12,0
��
� 

� �start

� 19,1,1;0;:�fill_burette

 cc=0:� �4,31);cc;" cm";�236;

"�

, 

6� �initialise

@*KEY10,"OLD|MRUN|M"

J*FX11,0

T
*FX4,1

^�characters:� vol(3)

h@%=&20207:titrations=0

r�

| 

�� �characters

�� ** burette **

�,� 23,224,128,128,128,128,128,128,128,128

�� 23,225,1,1,1,7,1,1,1,127

�!� 23,226,128,64,32,16,8,4,2,1

�!� 23,227,1,2,4,8,16,32,64,128

�,� 23,228,129,129,129,129,129,129,129,129

�� 23,229,0,0,1,1,1,1,0,0

�(� 23,230,129,129,255,0,0,255,129,129

�(� 23,231,24,24,216,248,248,216,24,24

�(� 23,232,129,129,231,0,0,231,129,129

�$� 23,233,0,0,216,248,248,216,0,0

�� 23,234,1,1,1,1,1,1,1,127
� ** beaker **
� 23,235,1,1,1,1,1,1,1,1

� ** 3 **
&� 23,236,56,8,24,8,56,0,0,0
0
� * tap *
:*� 23,237,129,129,195,66,66,195,129,129
D� * acid **
N$� 23,238,0,255,0,255,0,255,0,255
X"� 23,239,0,24,24,0,0,102,102,0
b�
l 
v� �draw_burette
�� 0,128:� 0,3
�� 31,5,1,224,32,234
�� i%=2 � 16
�� 31,5,i%,224,32,225,32
��
�$� 31,5,17,226,32,227,31,6,18,228
�%� 31,5,19,229,230,231,31,6,20,228
��
� 
�� �draw_beaker
�� i%=22 � 28
�!� �2,i%);�224;"       ";�235;
��
(�'"  ";�226;"_______";�227'�40,"~");
�
 
 � �fill_burette
*� 0,2:� 0,128
4� i%=411 � 967 � 8
>� 77,207,i%
H�
R�
\ 
f� �fill_beaker
p	� 0,1
z� i%=67 � 255 � 4
�� 77,127,i%
��
�	� 0,3
�� 67,259:� 351,259
��
� 
�� �titrate
�titrations=titrations+1
��
�� �-99 �add_acid
�
� cc>=end
�vol(titre)=cc
�� �13+titre*7,7);cc
� 1,-10,50,5
�pause(200)
�
$ 
.� �add_acid
8� �6,19);�237;�233
B� 17,2,31,6,21,238,8,10,238
L� 3:� 0,130:� 0,0
V	� �=0
`6�5:� 92+�(192),255-�(128):�42,4:� 77,207,963-32*cc
jcc=cc+.25:� �4,31);cc;
t� cc=end � 19,1,0;0;
~� � �>20
�� � �-99 � cc=16
�� �6,19);�230;�231
�"� 17,1,31,6,22,32,8,11,32,17,3
�	� 129
�� i%=28 � 24 � -1
��=0
� � �2,i%);�224;"       ";�235
�� � �>20-end+cc
��
�	� 128
��
� 

� �titles

%� 19,1,1;0;19,2,4;0;23,1,0;0;0;0;
r� �21,1);"TITRATION";�20,2);"-----------";�13,5);"Titre:  1      2      3";�14,7);"cm";�236;�13,11);"Average:"
2� 130:� �15,31);" space bar adds acid ";:� 128
(end=2+�(48)/4
2Macid=�(50)/10
<�pick_reagents
Fq� �16,17);"Titration of ";Macid;" M";�16,19);acid$;" acid";�16,21);"against 10 cm";�236;" of";�16,23);alkali$
P�
Z 
d� �pick_reagents
n
� �dRE
x� i%=1 � �(3)
�� acid$
��
�
� �d\E
�� i%=1 � �(3)
�
� alkali$
��
��
� 
� � hydrochloric,nitric,acetic
�;� sodium hydroxide,potassium hydroxide,ammonia solution
� 
�� �finished
�� �15,31);�(21);
average=(vol(2)+vol(3))/2
 � �21,11);average;" cm";�236
� 1,-10,0,5
"G� 130:� �16,27);" Titration finished ";�18,31);" press space bar ";
,*FX21,0
6�
@
� �=32
J�
T 
^� �calculation
h
� 128 : �
r%� 19,1,2;0;19,2,3;0;23,1,1;0;0;0;
|B�''"Average Titre=";average;" cm";�236;�28);"Acid=";Macid;" M"
�� 2:answer=�
�%� titrations=3 �work_out � �input
�� � answer �work_out
�� end<average �error
��
� 
�� �work_out
�?� �0,5);"1000 cm";�236;" acid will contain ";Macid;" moles"
�;�'"1 cm";�236;" acid will contain ";Macid;"/1000 moles"
�E�';average;" cm";�236;" contain ";average;"x";Macid;"/1000 moles"
�~� 1:�''';average;"x";Macid;"/1000 moles must also be the"''"number of moles of alkali in the 10 cm";�236''"in the beaker."
�C�''"1000cm";�236;" contains 100x";average;"x";Macid;"/1000 mol"
�K� 129:� 3:�'" ";�239;" the alkali is 100x";average;"x";Macid;"/1000 M "
,� 128:�''"Alkali=";average*Macid/10;" M"
 �''"Press the space bar...";
� 7
&�
0
� �=32
:�
D�
N 
X� �input
b�
lJ� �0,5);"What is the molarity of the alkali"''"in the beaker ";alkali$
v� � alkali$
�3� �((average*Macid/10)-� alkali$)>0.01 answer=�
��'"Your calculation is ";
�A� answer � "correct." � � "wrong...":� 1,-15,0,20:�pause(500)
�� 3
��
� 
�� �error
�� 19,1,6;0;
н�''"Your titration however was inaccurate,"''"you added too much acid too quickly"''"and missed the end point. The alkali"''"was actually ";end*Macid/10;" M not ";average*Macid/10;" M."
�g� 2:�''"The indicator changed at ";end;" cm";�236''"your average titration was ";average;" cm";�236
�K� 1:�''"Try to be more careful when you add"''"the acid next time.":� 3
�� 7
��
 
� �another
U�'''"Press the space bar to try another"''"titration or E to end the program...";
 *FX21,0
*�
4
key$=�
>� �"Ee ",key$)
H�
R�
\ 
f� �instructions
p� 12,19,1,6;0;
z�'�14);"TITRATION"
��� 2:�'"Three titrations are carried out, the"''"1st is a rough one then 2 accurate ones."'"The average of the 2nd and 3rd is found."
��� 1:�'"The molarity of the alkali must be"''"calculated given the molarity of the"''"acid, ( by the computer the first time,"''"then by you after that )."
�� 2:�''"The acids and alkalis used have been"''"chosen to make the calculation as easy"''"as posible. The number of moles of acid"''"needed to neutralise the alkali is the"''"same as the number of moles of alkali."
�1� 3:�''"Press the space bar to start...";:� 7
��
�
� �=32
��
��
� 
�� �pause(time%)
��=0
��
�
� �>time%
	�
	 
	� �relocate
	$*FX200,2
	.*KEY9 "OLD|MRUN|M"
	8	*TAPE
	BGD%=�-&E00:� I%=� � �P �4:!(I%-D%)=!I%:�:?(�P-D%)=255:�=&E00:*FX21,0
	L*FX138,0,137
	V�
�

00000000  0d 00 0a 0f f4 20 54 69  74 72 61 74 69 6f 6e 0d  |..... Titration.|
00000010  00 14 16 f4 20 42 79 20  4a 75 6c 69 65 20 42 6f  |.... By Julie Bo|
00000020  73 77 65 6c 6c 0d 00 1e  17 f4 20 28 63 29 20 45  |swell..... (c) E|
00000030  6c 65 63 74 72 6f 6e 20  55 73 65 72 0d 00 28 16  |lectron User..(.|
00000040  e7 20 90 3e 26 45 30 30  20 f2 72 65 6c 6f 63 61  |. .>&E00 .reloca|
00000050  74 65 0d 00 32 07 eb 20  31 0d 00 3c 0f f2 69 6e  |te..2.. 1..<..in|
00000060  69 74 69 61 6c 69 73 65  0d 00 46 11 f2 69 6e 73  |itialise..F..ins|
00000070  74 72 75 63 74 69 6f 6e  73 0d 00 50 05 f5 0d 00  |tructions..P....|
00000080  5a 0b f2 74 69 74 6c 65  73 0d 00 64 11 f2 64 72  |Z..titles..d..dr|
00000090  61 77 5f 62 75 72 65 74  74 65 0d 00 6e 10 f2 64  |aw_burette..n..d|
000000a0  72 61 77 5f 62 65 61 6b  65 72 0d 00 78 10 f2 66  |raw_beaker..x..f|
000000b0  69 6c 6c 5f 62 65 61 6b  65 72 0d 00 82 11 e3 20  |ill_beaker..... |
000000c0  74 69 74 72 65 3d 31 20  b8 20 33 0d 00 8c 0a f2  |titre=1 . 3.....|
000000d0  73 74 61 72 74 0d 00 96  0c f2 74 69 74 72 61 74  |start.....titrat|
000000e0  65 0d 00 a0 05 ed 0d 00  aa 0d f2 66 69 6e 69 73  |e..........finis|
000000f0  68 65 64 0d 00 b4 10 f2  63 61 6c 63 75 6c 61 74  |hed.....calculat|
00000100  69 6f 6e 0d 00 be 0c f2  61 6e 6f 74 68 65 72 0d  |ion.....another.|
00000110  00 c8 11 fd 20 a7 22 45  65 22 2c 6b 65 79 24 29  |.... ."Ee",key$)|
00000120  0d 00 d2 07 eb 20 36 0d  00 dc 0a 2a 46 58 34 2c  |..... 6....*FX4,|
00000130  30 0d 00 e6 0b 2a 46 58  31 32 2c 30 0d 00 f0 05  |0....*FX12,0....|
00000140  e0 0d 00 fa 05 20 0d 01  04 0c dd 20 f2 73 74 61  |..... ..... .sta|
00000150  72 74 0d 01 0e 1d ef 20  31 39 2c 31 2c 31 3b 30  |rt..... 19,1,1;0|
00000160  3b 3a f2 66 69 6c 6c 5f  62 75 72 65 74 74 65 0d  |;:.fill_burette.|
00000170  01 18 20 63 63 3d 30 3a  f1 20 8a 34 2c 33 31 29  |.. cc=0:. .4,31)|
00000180  3b 63 63 3b 22 20 63 6d  22 3b bd 32 33 36 3b 0d  |;cc;" cm";.236;.|
00000190  01 22 05 e1 0d 01 2c 05  20 0d 01 36 11 dd 20 f2  |."....,. ..6.. .|
000001a0  69 6e 69 74 69 61 6c 69  73 65 0d 01 40 17 2a 4b  |initialise..@.*K|
000001b0  45 59 31 30 2c 22 4f 4c  44 7c 4d 52 55 4e 7c 4d  |EY10,"OLD|MRUN|M|
000001c0  22 0d 01 4a 0b 2a 46 58  31 31 2c 30 0d 01 54 0a  |"..J.*FX11,0..T.|
000001d0  2a 46 58 34 2c 31 0d 01  5e 18 f2 63 68 61 72 61  |*FX4,1..^..chara|
000001e0  63 74 65 72 73 3a de 20  76 6f 6c 28 33 29 0d 01  |cters:. vol(3)..|
000001f0  68 1a 40 25 3d 26 32 30  32 30 37 3a 74 69 74 72  |h.@%=&20207:titr|
00000200  61 74 69 6f 6e 73 3d 30  0d 01 72 05 e1 0d 01 7c  |ations=0..r....||
00000210  05 20 0d 01 86 11 dd 20  f2 63 68 61 72 61 63 74  |. ..... .charact|
00000220  65 72 73 0d 01 90 13 f4  20 2a 2a 20 62 75 72 65  |ers..... ** bure|
00000230  74 74 65 20 2a 2a 0d 01  9a 2c ef 20 32 33 2c 32  |tte **...,. 23,2|
00000240  32 34 2c 31 32 38 2c 31  32 38 2c 31 32 38 2c 31  |24,128,128,128,1|
00000250  32 38 2c 31 32 38 2c 31  32 38 2c 31 32 38 2c 31  |28,128,128,128,1|
00000260  32 38 0d 01 a4 1e ef 20  32 33 2c 32 32 35 2c 31  |28..... 23,225,1|
00000270  2c 31 2c 31 2c 37 2c 31  2c 31 2c 31 2c 31 32 37  |,1,1,7,1,1,1,127|
00000280  0d 01 ae 21 ef 20 32 33  2c 32 32 36 2c 31 32 38  |...!. 23,226,128|
00000290  2c 36 34 2c 33 32 2c 31  36 2c 38 2c 34 2c 32 2c  |,64,32,16,8,4,2,|
000002a0  31 0d 01 b8 21 ef 20 32  33 2c 32 32 37 2c 31 2c  |1...!. 23,227,1,|
000002b0  32 2c 34 2c 38 2c 31 36  2c 33 32 2c 36 34 2c 31  |2,4,8,16,32,64,1|
000002c0  32 38 0d 01 c2 2c ef 20  32 33 2c 32 32 38 2c 31  |28...,. 23,228,1|
000002d0  32 39 2c 31 32 39 2c 31  32 39 2c 31 32 39 2c 31  |29,129,129,129,1|
000002e0  32 39 2c 31 32 39 2c 31  32 39 2c 31 32 39 0d 01  |29,129,129,129..|
000002f0  cc 1c ef 20 32 33 2c 32  32 39 2c 30 2c 30 2c 31  |... 23,229,0,0,1|
00000300  2c 31 2c 31 2c 31 2c 30  2c 30 0d 01 d6 28 ef 20  |,1,1,1,0,0...(. |
00000310  32 33 2c 32 33 30 2c 31  32 39 2c 31 32 39 2c 32  |23,230,129,129,2|
00000320  35 35 2c 30 2c 30 2c 32  35 35 2c 31 32 39 2c 31  |55,0,0,255,129,1|
00000330  32 39 0d 01 e0 28 ef 20  32 33 2c 32 33 31 2c 32  |29...(. 23,231,2|
00000340  34 2c 32 34 2c 32 31 36  2c 32 34 38 2c 32 34 38  |4,24,216,248,248|
00000350  2c 32 31 36 2c 32 34 2c  32 34 0d 01 ea 28 ef 20  |,216,24,24...(. |
00000360  32 33 2c 32 33 32 2c 31  32 39 2c 31 32 39 2c 32  |23,232,129,129,2|
00000370  33 31 2c 30 2c 30 2c 32  33 31 2c 31 32 39 2c 31  |31,0,0,231,129,1|
00000380  32 39 0d 01 f4 24 ef 20  32 33 2c 32 33 33 2c 30  |29...$. 23,233,0|
00000390  2c 30 2c 32 31 36 2c 32  34 38 2c 32 34 38 2c 32  |,0,216,248,248,2|
000003a0  31 36 2c 30 2c 30 0d 01  fe 1e ef 20 32 33 2c 32  |16,0,0..... 23,2|
000003b0  33 34 2c 31 2c 31 2c 31  2c 31 2c 31 2c 31 2c 31  |34,1,1,1,1,1,1,1|
000003c0  2c 31 32 37 0d 02 08 12  f4 20 2a 2a 20 62 65 61  |,127..... ** bea|
000003d0  6b 65 72 20 2a 2a 0d 02  12 1c ef 20 32 33 2c 32  |ker **..... 23,2|
000003e0  33 35 2c 31 2c 31 2c 31  2c 31 2c 31 2c 31 2c 31  |35,1,1,1,1,1,1,1|
000003f0  2c 31 0d 02 1c 0d f4 20  2a 2a 20 33 20 2a 2a 0d  |,1..... ** 3 **.|
00000400  02 26 1f ef 20 32 33 2c  32 33 36 2c 35 36 2c 38  |.&.. 23,236,56,8|
00000410  2c 32 34 2c 38 2c 35 36  2c 30 2c 30 2c 30 0d 02  |,24,8,56,0,0,0..|
00000420  30 0d f4 20 2a 20 74 61  70 20 2a 0d 02 3a 2a ef  |0.. * tap *..:*.|
00000430  20 32 33 2c 32 33 37 2c  31 32 39 2c 31 32 39 2c  | 23,237,129,129,|
00000440  31 39 35 2c 36 36 2c 36  36 2c 31 39 35 2c 31 32  |195,66,66,195,12|
00000450  39 2c 31 32 39 0d 02 44  0f f4 20 2a 20 61 63 69  |9,129..D.. * aci|
00000460  64 20 2a 2a 0d 02 4e 24  ef 20 32 33 2c 32 33 38  |d **..N$. 23,238|
00000470  2c 30 2c 32 35 35 2c 30  2c 32 35 35 2c 30 2c 32  |,0,255,0,255,0,2|
00000480  35 35 2c 30 2c 32 35 35  0d 02 58 22 ef 20 32 33  |55,0,255..X". 23|
00000490  2c 32 33 39 2c 30 2c 32  34 2c 32 34 2c 30 2c 30  |,239,0,24,24,0,0|
000004a0  2c 31 30 32 2c 31 30 32  2c 30 0d 02 62 05 e1 0d  |,102,102,0..b...|
000004b0  02 6c 05 20 0d 02 76 13  dd 20 f2 64 72 61 77 5f  |.l. ..v.. .draw_|
000004c0  62 75 72 65 74 74 65 0d  02 80 11 e6 20 30 2c 31  |burette..... 0,1|
000004d0  32 38 3a e6 20 30 2c 33  0d 02 8a 17 ef 20 33 31  |28:. 0,3..... 31|
000004e0  2c 35 2c 31 2c 32 32 34  2c 33 32 2c 32 33 34 0d  |,5,1,224,32,234.|
000004f0  02 94 0f e3 20 69 25 3d  32 20 b8 20 31 36 0d 02  |.... i%=2 . 16..|
00000500  9e 1b ef 20 33 31 2c 35  2c 69 25 2c 32 32 34 2c  |... 31,5,i%,224,|
00000510  33 32 2c 32 32 35 2c 33  32 0d 02 a8 05 ed 0d 02  |32,225,32.......|
00000520  b2 24 ef 20 33 31 2c 35  2c 31 37 2c 32 32 36 2c  |.$. 31,5,17,226,|
00000530  33 32 2c 32 32 37 2c 33  31 2c 36 2c 31 38 2c 32  |32,227,31,6,18,2|
00000540  32 38 0d 02 bc 25 ef 20  33 31 2c 35 2c 31 39 2c  |28...%. 31,5,19,|
00000550  32 32 39 2c 32 33 30 2c  32 33 31 2c 33 31 2c 36  |229,230,231,31,6|
00000560  2c 32 30 2c 32 32 38 0d  02 c6 05 e1 0d 02 d0 05  |,20,228.........|
00000570  20 0d 02 da 12 dd 20 f2  64 72 61 77 5f 62 65 61  | ..... .draw_bea|
00000580  6b 65 72 0d 02 e4 10 e3  20 69 25 3d 32 32 20 b8  |ker..... i%=22 .|
00000590  20 32 38 0d 02 ee 21 f1  20 8a 32 2c 69 25 29 3b  | 28...!. .2,i%);|
000005a0  bd 32 32 34 3b 22 20 20  20 20 20 20 20 22 3b bd  |.224;"       ";.|
000005b0  32 33 35 3b 0d 02 f8 05  ed 0d 03 02 28 f1 27 22  |235;........(.'"|
000005c0  20 20 22 3b bd 32 32 36  3b 22 5f 5f 5f 5f 5f 5f  |  ";.226;"______|
000005d0  5f 22 3b bd 32 32 37 27  c4 34 30 2c 22 7e 22 29  |_";.227'.40,"~")|
000005e0  3b 0d 03 0c 05 e1 0d 03  16 05 20 0d 03 20 13 dd  |;......... .. ..|
000005f0  20 f2 66 69 6c 6c 5f 62  75 72 65 74 74 65 0d 03  | .fill_burette..|
00000600  2a 11 e6 20 30 2c 32 3a  e6 20 30 2c 31 32 38 0d  |*.. 0,2:. 0,128.|
00000610  03 34 16 e3 20 69 25 3d  34 31 31 20 b8 20 39 36  |.4.. i%=411 . 96|
00000620  37 20 88 20 38 0d 03 3e  0f f0 20 37 37 2c 32 30  |7 . 8..>.. 77,20|
00000630  37 2c 69 25 0d 03 48 05  ed 0d 03 52 05 e1 0d 03  |7,i%..H....R....|
00000640  5c 05 20 0d 03 66 12 dd  20 f2 66 69 6c 6c 5f 62  |\. ..f.. .fill_b|
00000650  65 61 6b 65 72 0d 03 70  09 e6 20 30 2c 31 0d 03  |eaker..p.. 0,1..|
00000660  7a 15 e3 20 69 25 3d 36  37 20 b8 20 32 35 35 20  |z.. i%=67 . 255 |
00000670  88 20 34 0d 03 84 0f f0  20 37 37 2c 31 32 37 2c  |. 4..... 77,127,|
00000680  69 25 0d 03 8e 05 ed 0d  03 98 09 e6 20 30 2c 33  |i%.......... 0,3|
00000690  0d 03 a2 16 ec 20 36 37  2c 32 35 39 3a df 20 33  |..... 67,259:. 3|
000006a0  35 31 2c 32 35 39 0d 03  ac 05 e1 0d 03 b6 05 20  |51,259......... |
000006b0  0d 03 c0 0e dd 20 f2 74  69 74 72 61 74 65 0d 03  |..... .titrate..|
000006c0  ca 1b 74 69 74 72 61 74  69 6f 6e 73 3d 74 69 74  |..titrations=tit|
000006d0  72 61 74 69 6f 6e 73 2b  31 0d 03 d4 05 f5 0d 03  |rations+1.......|
000006e0  de 14 e7 20 a6 2d 39 39  20 f2 61 64 64 5f 61 63  |... .-99 .add_ac|
000006f0  69 64 0d 03 e8 0d fd 20  63 63 3e 3d 65 6e 64 0d  |id..... cc>=end.|
00000700  03 f2 11 76 6f 6c 28 74  69 74 72 65 29 3d 63 63  |...vol(titre)=cc|
00000710  0d 03 fc 17 f1 20 8a 31  33 2b 74 69 74 72 65 2a  |..... .13+titre*|
00000720  37 2c 37 29 3b 63 63 0d  04 06 10 d4 20 31 2c 2d  |7,7);cc..... 1,-|
00000730  31 30 2c 35 30 2c 35 0d  04 10 0f f2 70 61 75 73  |10,50,5.....paus|
00000740  65 28 32 30 30 29 0d 04  1a 05 e1 0d 04 24 05 20  |e(200).......$. |
00000750  0d 04 2e 0f dd 20 f2 61  64 64 5f 61 63 69 64 0d  |..... .add_acid.|
00000760  04 38 16 f1 20 8a 36 2c  31 39 29 3b bd 32 33 37  |.8.. .6,19);.237|
00000770  3b bd 32 33 33 0d 04 42  1f ef 20 31 37 2c 32 2c  |;.233..B.. 17,2,|
00000780  33 31 2c 36 2c 32 31 2c  32 33 38 2c 38 2c 31 30  |31,6,21,238,8,10|
00000790  2c 32 33 38 0d 04 4c 15  fb 20 33 3a e6 20 30 2c  |,238..L.. 3:. 0,|
000007a0  31 33 30 3a e6 20 30 2c  30 0d 04 56 09 f5 20 d1  |130:. 0,0..V.. .|
000007b0  3d 30 0d 04 60 36 ef 35  3a ec 20 39 32 2b b3 28  |=0..`6.5:. 92+.(|
000007c0  31 39 32 29 2c 32 35 35  2d b3 28 31 32 38 29 3a  |192),255-.(128):|
000007d0  ef 34 32 2c 34 3a f0 20  37 37 2c 32 30 37 2c 39  |.42,4:. 77,207,9|
000007e0  36 33 2d 33 32 2a 63 63  0d 04 6a 1a 63 63 3d 63  |63-32*cc..j.cc=c|
000007f0  63 2b 2e 32 35 3a f1 20  8a 34 2c 33 31 29 3b 63  |c+.25:. .4,31);c|
00000800  63 3b 0d 04 74 18 e7 20  63 63 3d 65 6e 64 20 ef  |c;..t.. cc=end .|
00000810  20 31 39 2c 31 2c 30 3b  30 3b 0d 04 7e 0c f5 20  | 19,1,0;0;..~.. |
00000820  fd 20 91 3e 32 30 0d 04  88 14 fd 20 ac 20 a6 2d  |. .>20..... . .-|
00000830  39 39 20 84 20 63 63 3d  31 36 0d 04 92 16 f1 20  |99 . cc=16..... |
00000840  8a 36 2c 31 39 29 3b bd  32 33 30 3b bd 32 33 31  |.6,19);.230;.231|
00000850  0d 04 9c 22 ef 20 31 37  2c 31 2c 33 31 2c 36 2c  |...". 17,1,31,6,|
00000860  32 32 2c 33 32 2c 38 2c  31 31 2c 33 32 2c 31 37  |22,32,8,11,32,17|
00000870  2c 33 0d 04 a6 09 fb 20  31 32 39 0d 04 b0 15 e3  |,3..... 129.....|
00000880  20 69 25 3d 32 38 20 b8  20 32 34 20 88 20 2d 31  | i%=28 . 24 . -1|
00000890  0d 04 ba 07 d1 3d 30 0d  04 c4 20 f1 20 8a 32 2c  |.....=0... . .2,|
000008a0  69 25 29 3b bd 32 32 34  3b 22 20 20 20 20 20 20  |i%);.224;"      |
000008b0  20 22 3b bd 32 33 35 0d  04 ce 13 f5 20 fd 20 91  | ";.235..... . .|
000008c0  3e 32 30 2d 65 6e 64 2b  63 63 0d 04 d8 05 ed 0d  |>20-end+cc......|
000008d0  04 e2 09 fb 20 31 32 38  0d 04 ec 05 e1 0d 04 f6  |.... 128........|
000008e0  05 20 0d 05 00 0d dd 20  f2 74 69 74 6c 65 73 0d  |. ..... .titles.|
000008f0  05 0a 25 ef 20 31 39 2c  31 2c 31 3b 30 3b 31 39  |..%. 19,1,1;0;19|
00000900  2c 32 2c 34 3b 30 3b 32  33 2c 31 2c 30 3b 30 3b  |,2,4;0;23,1,0;0;|
00000910  30 3b 30 3b 0d 05 14 72  f1 20 8a 32 31 2c 31 29  |0;0;...r. .21,1)|
00000920  3b 22 54 49 54 52 41 54  49 4f 4e 22 3b 8a 32 30  |;"TITRATION";.20|
00000930  2c 32 29 3b 22 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |,2);"-----------|
00000940  22 3b 8a 31 33 2c 35 29  3b 22 54 69 74 72 65 3a  |";.13,5);"Titre:|
00000950  20 20 31 20 20 20 20 20  20 32 20 20 20 20 20 20  |  1      2      |
00000960  33 22 3b 8a 31 34 2c 37  29 3b 22 63 6d 22 3b bd  |3";.14,7);"cm";.|
00000970  32 33 36 3b 8a 31 33 2c  31 31 29 3b 22 41 76 65  |236;.13,11);"Ave|
00000980  72 61 67 65 3a 22 0d 05  1e 32 fb 20 31 33 30 3a  |rage:"...2. 130:|
00000990  f1 20 8a 31 35 2c 33 31  29 3b 22 20 73 70 61 63  |. .15,31);" spac|
000009a0  65 20 62 61 72 20 61 64  64 73 20 61 63 69 64 20  |e bar adds acid |
000009b0  22 3b 3a fb 20 31 32 38  0d 05 28 11 65 6e 64 3d  |";:. 128..(.end=|
000009c0  32 2b b3 28 34 38 29 2f  34 0d 05 32 12 4d 61 63  |2+.(48)/4..2.Mac|
000009d0  69 64 3d b3 28 35 30 29  2f 31 30 0d 05 3c 12 f2  |id=.(50)/10..<..|
000009e0  70 69 63 6b 5f 72 65 61  67 65 6e 74 73 0d 05 46  |pick_reagents..F|
000009f0  71 f1 20 8a 31 36 2c 31  37 29 3b 22 54 69 74 72  |q. .16,17);"Titr|
00000a00  61 74 69 6f 6e 20 6f 66  20 22 3b 4d 61 63 69 64  |ation of ";Macid|
00000a10  3b 22 20 4d 22 3b 8a 31  36 2c 31 39 29 3b 61 63  |;" M";.16,19);ac|
00000a20  69 64 24 3b 22 20 61 63  69 64 22 3b 8a 31 36 2c  |id$;" acid";.16,|
00000a30  32 31 29 3b 22 61 67 61  69 6e 73 74 20 31 30 20  |21);"against 10 |
00000a40  63 6d 22 3b bd 32 33 36  3b 22 20 6f 66 22 3b 8a  |cm";.236;" of";.|
00000a50  31 36 2c 32 33 29 3b 61  6c 6b 61 6c 69 24 0d 05  |16,23);alkali$..|
00000a60  50 05 e1 0d 05 5a 05 20  0d 05 64 14 dd 20 f2 70  |P....Z. ..d.. .p|
00000a70  69 63 6b 5f 72 65 61 67  65 6e 74 73 0d 05 6e 0a  |ick_reagents..n.|
00000a80  f7 20 8d 64 52 45 0d 05  78 11 e3 20 69 25 3d 31  |. .dRE..x.. i%=1|
00000a90  20 b8 20 b3 28 33 29 0d  05 82 0b f3 20 61 63 69  | . .(3)..... aci|
00000aa0  64 24 0d 05 8c 05 ed 0d  05 96 0a f7 20 8d 64 5c  |d$.......... .d\|
00000ab0  45 0d 05 a0 11 e3 20 69  25 3d 31 20 b8 20 b3 28  |E..... i%=1 . .(|
00000ac0  33 29 0d 05 aa 0d f3 20  61 6c 6b 61 6c 69 24 0d  |3)..... alkali$.|
00000ad0  05 b4 05 ed 0d 05 be 05  e1 0d 05 c8 05 20 0d 05  |............. ..|
00000ae0  d2 20 dc 20 68 79 64 72  6f 63 68 6c 6f 72 69 63  |. . hydrochloric|
00000af0  2c 6e 69 74 72 69 63 2c  61 63 65 74 69 63 0d 05  |,nitric,acetic..|
00000b00  dc 3b dc 20 73 6f 64 69  75 6d 20 68 79 64 72 6f  |.;. sodium hydro|
00000b10  78 69 64 65 2c 70 6f 74  61 73 73 69 75 6d 20 68  |xide,potassium h|
00000b20  79 64 72 6f 78 69 64 65  2c 61 6d 6d 6f 6e 69 61  |ydroxide,ammonia|
00000b30  20 73 6f 6c 75 74 69 6f  6e 0d 05 e6 05 20 0d 05  | solution.... ..|
00000b40  f0 0f dd 20 f2 66 69 6e  69 73 68 65 64 0d 05 fa  |... .finished...|
00000b50  14 f1 20 8a 31 35 2c 33  31 29 3b 89 28 32 31 29  |.. .15,31);.(21)|
00000b60  3b 0d 06 04 1d 61 76 65  72 61 67 65 3d 28 76 6f  |;....average=(vo|
00000b70  6c 28 32 29 2b 76 6f 6c  28 33 29 29 2f 32 0d 06  |l(2)+vol(3))/2..|
00000b80  0e 20 f1 20 8a 32 31 2c  31 31 29 3b 61 76 65 72  |. . .21,11);aver|
00000b90  61 67 65 3b 22 20 63 6d  22 3b bd 32 33 36 0d 06  |age;" cm";.236..|
00000ba0  18 0f d4 20 31 2c 2d 31  30 2c 30 2c 35 0d 06 22  |... 1,-10,0,5.."|
00000bb0  47 fb 20 31 33 30 3a f1  20 8a 31 36 2c 32 37 29  |G. 130:. .16,27)|
00000bc0  3b 22 20 54 69 74 72 61  74 69 6f 6e 20 66 69 6e  |;" Titration fin|
00000bd0  69 73 68 65 64 20 22 3b  8a 31 38 2c 33 31 29 3b  |ished ";.18,31);|
00000be0  22 20 70 72 65 73 73 20  73 70 61 63 65 20 62 61  |" press space ba|
00000bf0  72 20 22 3b 0d 06 2c 0b  2a 46 58 32 31 2c 30 0d  |r ";..,.*FX21,0.|
00000c00  06 36 05 f5 0d 06 40 0a  fd 20 a5 3d 33 32 0d 06  |.6....@.. .=32..|
00000c10  4a 05 e1 0d 06 54 05 20  0d 06 5e 12 dd 20 f2 63  |J....T. ..^.. .c|
00000c20  61 6c 63 75 6c 61 74 69  6f 6e 0d 06 68 0d fb 20  |alculation..h.. |
00000c30  31 32 38 20 3a 20 db 0d  06 72 25 ef 20 31 39 2c  |128 : ...r%. 19,|
00000c40  31 2c 32 3b 30 3b 31 39  2c 32 2c 33 3b 30 3b 32  |1,2;0;19,2,3;0;2|
00000c50  33 2c 31 2c 31 3b 30 3b  30 3b 30 3b 0d 06 7c 42  |3,1,1;0;0;0;..|B|
00000c60  f1 27 27 22 41 76 65 72  61 67 65 20 54 69 74 72  |.''"Average Titr|
00000c70  65 3d 22 3b 61 76 65 72  61 67 65 3b 22 20 63 6d  |e=";average;" cm|
00000c80  22 3b bd 32 33 36 3b 8a  32 38 29 3b 22 41 63 69  |";.236;.28);"Aci|
00000c90  64 3d 22 3b 4d 61 63 69  64 3b 22 20 4d 22 0d 06  |d=";Macid;" M"..|
00000ca0  86 10 fb 20 32 3a 61 6e  73 77 65 72 3d b9 0d 06  |... 2:answer=...|
00000cb0  90 25 e7 20 74 69 74 72  61 74 69 6f 6e 73 3d 33  |.%. titrations=3|
00000cc0  20 f2 77 6f 72 6b 5f 6f  75 74 20 8b 20 f2 69 6e  | .work_out . .in|
00000cd0  70 75 74 0d 06 9a 18 e7  20 ac 20 61 6e 73 77 65  |put..... . answe|
00000ce0  72 20 f2 77 6f 72 6b 5f  6f 75 74 0d 06 a4 18 e7  |r .work_out.....|
00000cf0  20 65 6e 64 3c 61 76 65  72 61 67 65 20 f2 65 72  | end<average .er|
00000d00  72 6f 72 0d 06 ae 05 e1  0d 06 b8 05 20 0d 06 c2  |ror......... ...|
00000d10  0f dd 20 f2 77 6f 72 6b  5f 6f 75 74 0d 06 cc 3f  |.. .work_out...?|
00000d20  f1 20 8a 30 2c 35 29 3b  22 31 30 30 30 20 63 6d  |. .0,5);"1000 cm|
00000d30  22 3b bd 32 33 36 3b 22  20 61 63 69 64 20 77 69  |";.236;" acid wi|
00000d40  6c 6c 20 63 6f 6e 74 61  69 6e 20 22 3b 4d 61 63  |ll contain ";Mac|
00000d50  69 64 3b 22 20 6d 6f 6c  65 73 22 0d 06 d6 3b f1  |id;" moles"...;.|
00000d60  27 22 31 20 63 6d 22 3b  bd 32 33 36 3b 22 20 61  |'"1 cm";.236;" a|
00000d70  63 69 64 20 77 69 6c 6c  20 63 6f 6e 74 61 69 6e  |cid will contain|
00000d80  20 22 3b 4d 61 63 69 64  3b 22 2f 31 30 30 30 20  | ";Macid;"/1000 |
00000d90  6d 6f 6c 65 73 22 0d 06  e0 45 f1 27 3b 61 76 65  |moles"...E.';ave|
00000da0  72 61 67 65 3b 22 20 63  6d 22 3b bd 32 33 36 3b  |rage;" cm";.236;|
00000db0  22 20 63 6f 6e 74 61 69  6e 20 22 3b 61 76 65 72  |" contain ";aver|
00000dc0  61 67 65 3b 22 78 22 3b  4d 61 63 69 64 3b 22 2f  |age;"x";Macid;"/|
00000dd0  31 30 30 30 20 6d 6f 6c  65 73 22 0d 06 ea 7e fb  |1000 moles"...~.|
00000de0  20 31 3a f1 27 27 27 3b  61 76 65 72 61 67 65 3b  | 1:.''';average;|
00000df0  22 78 22 3b 4d 61 63 69  64 3b 22 2f 31 30 30 30  |"x";Macid;"/1000|
00000e00  20 6d 6f 6c 65 73 20 6d  75 73 74 20 61 6c 73 6f  | moles must also|
00000e10  20 62 65 20 74 68 65 22  27 27 22 6e 75 6d 62 65  | be the"''"numbe|
00000e20  72 20 6f 66 20 6d 6f 6c  65 73 20 6f 66 20 61 6c  |r of moles of al|
00000e30  6b 61 6c 69 20 69 6e 20  74 68 65 20 31 30 20 63  |kali in the 10 c|
00000e40  6d 22 3b bd 32 33 36 27  27 22 69 6e 20 74 68 65  |m";.236''"in the|
00000e50  20 62 65 61 6b 65 72 2e  22 0d 06 f4 43 f1 27 27  | beaker."...C.''|
00000e60  22 31 30 30 30 63 6d 22  3b bd 32 33 36 3b 22 20  |"1000cm";.236;" |
00000e70  63 6f 6e 74 61 69 6e 73  20 31 30 30 78 22 3b 61  |contains 100x";a|
00000e80  76 65 72 61 67 65 3b 22  78 22 3b 4d 61 63 69 64  |verage;"x";Macid|
00000e90  3b 22 2f 31 30 30 30 20  6d 6f 6c 22 0d 06 fe 4b  |;"/1000 mol"...K|
00000ea0  fb 20 31 32 39 3a fb 20  33 3a f1 27 22 20 22 3b  |. 129:. 3:.'" ";|
00000eb0  bd 32 33 39 3b 22 20 74  68 65 20 61 6c 6b 61 6c  |.239;" the alkal|
00000ec0  69 20 69 73 20 31 30 30  78 22 3b 61 76 65 72 61  |i is 100x";avera|
00000ed0  67 65 3b 22 78 22 3b 4d  61 63 69 64 3b 22 2f 31  |ge;"x";Macid;"/1|
00000ee0  30 30 30 20 4d 20 22 0d  07 08 2c fb 20 31 32 38  |000 M "...,. 128|
00000ef0  3a f1 27 27 22 41 6c 6b  61 6c 69 3d 22 3b 61 76  |:.''"Alkali=";av|
00000f00  65 72 61 67 65 2a 4d 61  63 69 64 2f 31 30 3b 22  |erage*Macid/10;"|
00000f10  20 4d 22 0d 07 12 20 f1  27 27 22 50 72 65 73 73  | M"... .''"Press|
00000f20  20 74 68 65 20 73 70 61  63 65 20 62 61 72 2e 2e  | the space bar..|
00000f30  2e 22 3b 0d 07 1c 07 ef  20 37 0d 07 26 05 f5 0d  |.";..... 7..&...|
00000f40  07 30 0a fd 20 a5 3d 33  32 0d 07 3a 05 db 0d 07  |.0.. .=32..:....|
00000f50  44 05 e1 0d 07 4e 05 20  0d 07 58 0c dd 20 f2 69  |D....N. ..X.. .i|
00000f60  6e 70 75 74 0d 07 62 05  f5 0d 07 6c 4a e8 20 8a  |nput..b....lJ. .|
00000f70  30 2c 35 29 3b 22 57 68  61 74 20 69 73 20 74 68  |0,5);"What is th|
00000f80  65 20 6d 6f 6c 61 72 69  74 79 20 6f 66 20 74 68  |e molarity of th|
00000f90  65 20 61 6c 6b 61 6c 69  22 27 27 22 69 6e 20 74  |e alkali"''"in t|
00000fa0  68 65 20 62 65 61 6b 65  72 20 22 3b 61 6c 6b 61  |he beaker ";alka|
00000fb0  6c 69 24 0d 07 76 0f fd  20 a9 20 61 6c 6b 61 6c  |li$..v.. . alkal|
00000fc0  69 24 0d 07 80 33 e7 20  94 28 28 61 76 65 72 61  |i$...3. .((avera|
00000fd0  67 65 2a 4d 61 63 69 64  2f 31 30 29 2d a0 20 61  |ge*Macid/10)-. a|
00000fe0  6c 6b 61 6c 69 24 29 3e  30 2e 30 31 20 61 6e 73  |lkali$)>0.01 ans|
00000ff0  77 65 72 3d a3 0d 07 8a  1d f1 27 22 59 6f 75 72  |wer=......'"Your|
00001000  20 63 61 6c 63 75 6c 61  74 69 6f 6e 20 69 73 20  | calculation is |
00001010  22 3b 0d 07 94 41 e7 20  61 6e 73 77 65 72 20 f1  |";...A. answer .|
00001020  20 22 63 6f 72 72 65 63  74 2e 22 20 8b 20 f1 20  | "correct." . . |
00001030  22 77 72 6f 6e 67 2e 2e  2e 22 3a d4 20 31 2c 2d  |"wrong...":. 1,-|
00001040  31 35 2c 30 2c 32 30 3a  f2 70 61 75 73 65 28 35  |15,0,20:.pause(5|
00001050  30 30 29 0d 07 9e 07 fb  20 33 0d 07 a8 05 e1 0d  |00)..... 3......|
00001060  07 b2 05 20 0d 07 bc 0c  dd 20 f2 65 72 72 6f 72  |... ..... .error|
00001070  0d 07 c6 0f ef 20 31 39  2c 31 2c 36 3b 30 3b 0d  |..... 19,1,6;0;.|
00001080  07 d0 bd f1 27 27 22 59  6f 75 72 20 74 69 74 72  |....''"Your titr|
00001090  61 74 69 6f 6e 20 68 6f  77 65 76 65 72 20 77 61  |ation however wa|
000010a0  73 20 69 6e 61 63 63 75  72 61 74 65 2c 22 27 27  |s inaccurate,"''|
000010b0  22 79 6f 75 20 61 64 64  65 64 20 74 6f 6f 20 6d  |"you added too m|
000010c0  75 63 68 20 61 63 69 64  20 74 6f 6f 20 71 75 69  |uch acid too qui|
000010d0  63 6b 6c 79 22 27 27 22  61 6e 64 20 6d 69 73 73  |ckly"''"and miss|
000010e0  65 64 20 74 68 65 20 65  6e 64 20 70 6f 69 6e 74  |ed the end point|
000010f0  2e 20 54 68 65 20 61 6c  6b 61 6c 69 22 27 27 22  |. The alkali"''"|
00001100  77 61 73 20 61 63 74 75  61 6c 6c 79 20 22 3b 65  |was actually ";e|
00001110  6e 64 2a 4d 61 63 69 64  2f 31 30 3b 22 20 4d 20  |nd*Macid/10;" M |
00001120  6e 6f 74 20 22 3b 61 76  65 72 61 67 65 2a 4d 61  |not ";average*Ma|
00001130  63 69 64 2f 31 30 3b 22  20 4d 2e 22 0d 07 da 67  |cid/10;" M."...g|
00001140  fb 20 32 3a f1 27 27 22  54 68 65 20 69 6e 64 69  |. 2:.''"The indi|
00001150  63 61 74 6f 72 20 63 68  61 6e 67 65 64 20 61 74  |cator changed at|
00001160  20 22 3b 65 6e 64 3b 22  20 63 6d 22 3b bd 32 33  | ";end;" cm";.23|
00001170  36 27 27 22 79 6f 75 72  20 61 76 65 72 61 67 65  |6''"your average|
00001180  20 74 69 74 72 61 74 69  6f 6e 20 77 61 73 20 22  | titration was "|
00001190  3b 61 76 65 72 61 67 65  3b 22 20 63 6d 22 3b bd  |;average;" cm";.|
000011a0  32 33 36 0d 07 e4 4b fb  20 31 3a f1 27 27 22 54  |236...K. 1:.''"T|
000011b0  72 79 20 74 6f 20 62 65  20 6d 6f 72 65 20 63 61  |ry to be more ca|
000011c0  72 65 66 75 6c 20 77 68  65 6e 20 79 6f 75 20 61  |reful when you a|
000011d0  64 64 22 27 27 22 74 68  65 20 61 63 69 64 20 6e  |dd"''"the acid n|
000011e0  65 78 74 20 74 69 6d 65  2e 22 3a fb 20 33 0d 07  |ext time.":. 3..|
000011f0  ee 07 ef 20 37 0d 07 f8  05 e1 0d 08 02 05 20 0d  |... 7......... .|
00001200  08 0c 0e dd 20 f2 61 6e  6f 74 68 65 72 0d 08 16  |.... .another...|
00001210  55 f1 27 27 27 22 50 72  65 73 73 20 74 68 65 20  |U.'''"Press the |
00001220  73 70 61 63 65 20 62 61  72 20 74 6f 20 74 72 79  |space bar to try|
00001230  20 61 6e 6f 74 68 65 72  22 27 27 22 74 69 74 72  | another"''"titr|
00001240  61 74 69 6f 6e 20 6f 72  20 45 20 74 6f 20 65 6e  |ation or E to en|
00001250  64 20 74 68 65 20 70 72  6f 67 72 61 6d 2e 2e 2e  |d the program...|
00001260  22 3b 0d 08 20 0b 2a 46  58 32 31 2c 30 0d 08 2a  |";.. .*FX21,0..*|
00001270  05 f5 0d 08 34 0a 6b 65  79 24 3d be 0d 08 3e 12  |....4.key$=...>.|
00001280  fd 20 a7 22 45 65 20 22  2c 6b 65 79 24 29 0d 08  |. ."Ee ",key$)..|
00001290  48 05 db 0d 08 52 05 e1  0d 08 5c 05 20 0d 08 66  |H....R....\. ..f|
000012a0  13 dd 20 f2 69 6e 73 74  72 75 63 74 69 6f 6e 73  |.. .instructions|
000012b0  0d 08 70 12 ef 20 31 32  2c 31 39 2c 31 2c 36 3b  |..p.. 12,19,1,6;|
000012c0  30 3b 0d 08 7a 16 f1 27  8a 31 34 29 3b 22 54 49  |0;..z..'.14);"TI|
000012d0  54 52 41 54 49 4f 4e 22  0d 08 84 88 fb 20 32 3a  |TRATION"..... 2:|
000012e0  f1 27 22 54 68 72 65 65  20 74 69 74 72 61 74 69  |.'"Three titrati|
000012f0  6f 6e 73 20 61 72 65 20  63 61 72 72 69 65 64 20  |ons are carried |
00001300  6f 75 74 2c 20 74 68 65  22 27 27 22 31 73 74 20  |out, the"''"1st |
00001310  69 73 20 61 20 72 6f 75  67 68 20 6f 6e 65 20 74  |is a rough one t|
00001320  68 65 6e 20 32 20 61 63  63 75 72 61 74 65 20 6f  |hen 2 accurate o|
00001330  6e 65 73 2e 22 27 22 54  68 65 20 61 76 65 72 61  |nes."'"The avera|
00001340  67 65 20 6f 66 20 74 68  65 20 32 6e 64 20 61 6e  |ge of the 2nd an|
00001350  64 20 33 72 64 20 69 73  20 66 6f 75 6e 64 2e 22  |d 3rd is found."|
00001360  0d 08 8e 9e fb 20 31 3a  f1 27 22 54 68 65 20 6d  |..... 1:.'"The m|
00001370  6f 6c 61 72 69 74 79 20  6f 66 20 74 68 65 20 61  |olarity of the a|
00001380  6c 6b 61 6c 69 20 6d 75  73 74 20 62 65 22 27 27  |lkali must be"''|
00001390  22 63 61 6c 63 75 6c 61  74 65 64 20 67 69 76 65  |"calculated give|
000013a0  6e 20 74 68 65 20 6d 6f  6c 61 72 69 74 79 20 6f  |n the molarity o|
000013b0  66 20 74 68 65 22 27 27  22 61 63 69 64 2c 20 28  |f the"''"acid, (|
000013c0  20 62 79 20 74 68 65 20  63 6f 6d 70 75 74 65 72  | by the computer|
000013d0  20 74 68 65 20 66 69 72  73 74 20 74 69 6d 65 2c  | the first time,|
000013e0  22 27 27 22 74 68 65 6e  20 62 79 20 79 6f 75 20  |"''"then by you |
000013f0  61 66 74 65 72 20 74 68  61 74 20 29 2e 22 0d 08  |after that )."..|
00001400  98 da fb 20 32 3a f1 27  27 22 54 68 65 20 61 63  |... 2:.''"The ac|
00001410  69 64 73 20 61 6e 64 20  61 6c 6b 61 6c 69 73 20  |ids and alkalis |
00001420  75 73 65 64 20 68 61 76  65 20 62 65 65 6e 22 27  |used have been"'|
00001430  27 22 63 68 6f 73 65 6e  20 74 6f 20 6d 61 6b 65  |'"chosen to make|
00001440  20 74 68 65 20 63 61 6c  63 75 6c 61 74 69 6f 6e  | the calculation|
00001450  20 61 73 20 65 61 73 79  22 27 27 22 61 73 20 70  | as easy"''"as p|
00001460  6f 73 69 62 6c 65 2e 20  54 68 65 20 6e 75 6d 62  |osible. The numb|
00001470  65 72 20 6f 66 20 6d 6f  6c 65 73 20 6f 66 20 61  |er of moles of a|
00001480  63 69 64 22 27 27 22 6e  65 65 64 65 64 20 74 6f  |cid"''"needed to|
00001490  20 6e 65 75 74 72 61 6c  69 73 65 20 74 68 65 20  | neutralise the |
000014a0  61 6c 6b 61 6c 69 20 69  73 20 74 68 65 22 27 27  |alkali is the"''|
000014b0  22 73 61 6d 65 20 61 73  20 74 68 65 20 6e 75 6d  |"same as the num|
000014c0  62 65 72 20 6f 66 20 6d  6f 6c 65 73 20 6f 66 20  |ber of moles of |
000014d0  61 6c 6b 61 6c 69 2e 22  0d 08 a2 31 fb 20 33 3a  |alkali."...1. 3:|
000014e0  f1 27 27 22 50 72 65 73  73 20 74 68 65 20 73 70  |.''"Press the sp|
000014f0  61 63 65 20 62 61 72 20  74 6f 20 73 74 61 72 74  |ace bar to start|
00001500  2e 2e 2e 22 3b 3a ef 20  37 0d 08 ac 05 f5 0d 08  |...";:. 7.......|
00001510  b6 0a fd 20 a5 3d 33 32  0d 08 c0 05 db 0d 08 ca  |... .=32........|
00001520  05 e1 0d 08 d4 05 20 0d  08 de 13 dd 20 f2 70 61  |...... ..... .pa|
00001530  75 73 65 28 74 69 6d 65  25 29 0d 08 e8 07 d1 3d  |use(time%).....=|
00001540  30 0d 08 f2 05 f5 0d 08  fc 0d fd 20 91 3e 74 69  |0.......... .>ti|
00001550  6d 65 25 0d 09 06 05 e1  0d 09 10 05 20 0d 09 1a  |me%......... ...|
00001560  0f dd 20 f2 72 65 6c 6f  63 61 74 65 0d 09 24 0c  |.. .relocate..$.|
00001570  2a 46 58 32 30 30 2c 32  0d 09 2e 16 2a 4b 45 59  |*FX200,2....*KEY|
00001580  39 20 22 4f 4c 44 7c 4d  52 55 4e 7c 4d 22 0d 09  |9 "OLD|MRUN|M"..|
00001590  38 09 2a 54 41 50 45 0d  09 42 47 44 25 3d 90 2d  |8.*TAPE..BGD%=.-|
000015a0  26 45 30 30 3a e3 20 49  25 3d 90 20 b8 20 b8 50  |&E00:. I%=. . .P|
000015b0  20 88 34 3a 21 28 49 25  2d 44 25 29 3d 21 49 25  | .4:!(I%-D%)=!I%|
000015c0  3a ed 3a 3f 28 b8 50 2d  44 25 29 3d 32 35 35 3a  |:.:?(.P-D%)=255:|
000015d0  d0 3d 26 45 30 30 3a 2a  46 58 32 31 2c 30 0d 09  |.=&E00:*FX21,0..|
000015e0  4c 10 2a 46 58 31 33 38  2c 30 2c 31 33 37 0d 09  |L.*FX138,0,137..|
000015f0  56 05 e0 0d ff                                    |V....|
000015f5