' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./0123456789:;<=>?  ( 9 +"  "*  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0).).*#!.*'!.8)(#/-)(#/-,,eb)++$ h( ,!!"@h !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HH ᥠ L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD# H8`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  L IH  /JJJJ"LL뷩 ᷩ췩 ɛ LDLSAVBPILOCUNLOCIBPIBPIBPPRBPIBLISCALBPIBUZZOFӜsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\  OÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L׭Lܫ &RL &QL d L4 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@ ,\Z[PRR3\ɄSɊ"RQJ(0Fw6. ^-%p 㩠RP.Q I* P\L˵B̵C8pB߮Z\ @ յյ\BIR Z-^ Jp\IZLLӜv  Ԡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B / / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8`  XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` ᥠ hh`ĵµ`ڿ8.ڿ.ۿ`êL`õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH x(`F d£àĠz# u`1160900[A1?[A106070O[Q$Q$(A1)Y[6030i[COMP$(A)Q$s[6020y[[XA51(Q$):(Q$,A5,1)"E"A6A5:A5(Q$)::7080:7020[b:B2(Q$):B2.099Q$(B210)"E-1":7000\gQ$(B2100)"E-2":7000\lA7((Q$,A61));\vA4$ *"1Z 8OZ "* NOW LOADING ";A1$;"*"qZ 8:"* *"xZ 8Z "* * * * * * * * * * * *"Z ZZS11S:S1:ZQ$Q$(13)Z4025ZQ2(786)10Z[pA2$;"READ COMPOUNDS" [zA1[Q$"":AA1([A20:1000JY R3$(7)" "EX$(1)" ":2730fY EX$(1)((R3$(7))136)Y R3$(8)" "EX$(2)" ":2750Y EX$(2)((R3$(8))136)Y R3(R3$(0)"."R3$(2)"E-"EX$(1)EX$(2))Y R1$(R3):Z " * * * * * * * * * * * *"*Z 8:"* XP HCURHCUR1:HCURE5HCUR0kXZ HCUR0HCUR2HCUR3HCUR8HCUR92580uXd 2640Xn HCUR7R3$(HCUR)((A$)136):2690Xx R3$(HCUR)A$X Q$(154):Q1150:Q2QQHCUR10:1000:Q$R3$(HCUR):1000:2630)Y Q$(154):Q1162:1000:Q1:Q1181:Q$" ":Q05,111,110,0000,1,109,115,32,105,110,0000yà 84, 114,97,110,115,112,97,114,101,110,116,32,84,114,97,110,115,102,101,114,32,84,111,0à 67,97,108,99,117,108,97,116,105,110,103,32,75,151,32,38,32,91,72,146,93,0à 102,111,114,32,114,101,109,101,100,105,97,116,10000fà 49,61,32,83,117,99,99,101,115,115,32,50,61,32,70,97,105,108,32,48,61,32,69,110,100,63,0 à 89,111,117,32,119,105,108,108,32,110,111,119,32,98,101,32,112,114,97,99,116,105,99,105,110,103,0000à 119,105,116,104,32,112,114,111,98,108,10,110,103,32,112,72,32,119,47, 76,111,103,32,84,97,98,108,101,115,0Oà 20,0à 67,104,111,111,115,101,32,69,110,116,114,121,32,76,101,118,101,108,44,32,48,61,69,110,100,63,0 à 67,104,111,111,115,101,32, 84,101,115,116,32,112,97,116,104,58,7,147,147,147,147,147,147,147,147,147,147,147,147,147,147,147,147,147,147,0 dà 49,41,32,70,105,110,100,105,110,103,32,91,72,146,93,32,38,32,91,79,72,147,93,0nà 50,41,32,70,105,110,100,105,110,103,32,112,72,0Dxà 51,41,32,70,105,110,100,105(A1):11010# .(16384)127ľA$) .x 2Q1:Q1171:Q280:Q$"":1000:S1200:4000:Q1:Q$" ":1000:Q0: 6::16302,0: Pà 69,113,117,105,108,105,98,114,105,117,109,32,111,102,32,87,97,116,101,114,45,75,151,0OZà 147,147,147,14:2070 RR2: ) S11S:S1:9 Q$Q$(13)C 4025T Q2(786)10Z  'A1$(1):Q0:Q10::11000:5000:1000 'Q112:11000:Q220:1000 'Q20 $'Q1307020:11000:1000::11000: *A1:Q$(A1) +A1:A10ı +Q$Q$"?"(32)(154)(154)(154)(154):1000S Q0:Q2R122:Q$" .":1000:2120m %Q$" ..":1000:2120 *Q$" ...":1000:2120:1052 4Q1:Q2R1:Q$" ":1000: HR2150:(16384)1282130 JA$:(A$)32(A$)902130 MR1$A$:R250:: Q0:Q1R:Q2R1:Q$R$:1000) 120005 R1$" "U Q1R20:Q2R1:Q$(150)"?"_ 1000w (16384)1282065 R1$"":R1$:(R1$)32(R1$)902060 2070 Q1R20:Q$(154):Q$Q$"?":Q0:1000:2040, Q0:Q2R1:Q$(154):1000:Q$R1$0ĺ:A2$;"RUN START") :T400,410,420= A2$;"RUN II-1"Q A2$;"RUN II-2"e A2$;"RUN II-3"k y Q01040 Q5Q1Q20:Q5191Q5191 Q4Q1Q5 0:0,Q4279,Q4:Q4 786,Q2:787,Q1 944,(CASE$) Q$Q$(13) $3584:  ** MENU3 6/1/82 ** (A2$(4)314000JA800811:A,0:AX2CASE$" "c14000n10000wSF0R130:R10:11000:R$Q$:2000T(R1$):T47T58T(R1$):250T99T1T2T3T0İ13000:22014000 T     (79)(126)(147):10080""`':3"*A1:Q$(A1)C"+A1:A10ıZ" +Q$Q$(A1):11010q".(16384)127ľA$w"."2Q1:Q1171:Q280:Q$"":1000:S1200:4000:Q1:Q$" ":1000:Q0:"6::16302,0:(#:Q$"CC= ":Q$Q$(DC):Q$Q$" R=(72)(125)(80)(79)(127):10080A!8'I4COMP$(A)(70):10080j!B'I4COMP$(A)(78)(79)(125):10080!L'I4COMP$(A)(72)(67)(79)(126):10080!V'I4COMP$(A)(72)(83):10080!X'I4COMP$(A)(72)(80)(79)(127):10080"Z'I4COMP$(A)(83)iaQ$(65)(115)(115)(117)(109)(101)(32)(97)(108)(108)a Q$Q$(32)(114)(101)(97)(99)(116)(105)(111)(110)(115)a Q180:5000:1000Ob Q$(97)(114)(101)(32)(97)(116)(32)(69)(113)(117)(105)(1010)(103)@`Q120:5000:1000`Q$(75)(152)(32)(97)(110)(100)" "(91)(72)(146)(93)(32)(102)(111)(114)`Q140:5000:1000 aQ$(119)(101)(97)(107)(32)(65)(99)(105)(100)(115)"."aQ160:5000:1000$(84)(104)(101)(115)(101)(32)(97)(114)(101)(32)(80)(114)(97)(99)(116)(105)(99)(101)_Q0:Q10:5000:1000*`Q$(80)(114)(111)(98)(108)(101)(109)(115)(32)(114)(101)(108)(97)(116)(105)(1U22:7580d^`A41U3A4.005:U3((U3100)):U3U310:U21:7580j^j^~U2((Q1$,(Q1$)2))^U3((Q1$,1,(Q1$)3))^U3((U3.05)10)10^U310U31:U2U21^A$(U3)"E"(U2):A4(A$):_@B3((B3.05)10)10:_14000_Q0: REV 07/06/83 _]A89A0A01:A8A810:7052n]A007060]A4$A4$(A0136)]A4$A4$(A8136)]]A64A$(Q$,1,3)(Q$,A6):Q$A$::7000]]LQ1$(A4):A4.017550+^VA4.1U3A4.0005:U3((U31000)):U3U310:PRESSION":Q10:5000:1000] Q$"YOU MAY PRESS "(34)S$"Y"(34)" IF YOU":Q120:5000:1000] Q$"THINK IT IS CORRECT,":Q140:5000:1000]& Q$(34)S$"N"(34)" IF YOU THINK IT IS":Q160:5000:1000;^0 Q$" INCORRECT, OR "(34)S$"U"(34)":Q1181:5000:1000XW Q1150:Q$R3$:5000:QQQ2:1000W Q0:Q1162:Q2QQHCUR10:Q$CUR$:1000W A$:A$(13)2700W( (A$)47(A$)582670W2 A$" "2590W7 HCUR92630X< Q$(154):Q1150:1000:R3$(HCUR)" "XF Q$(154):Q1162:1000>2130DVJA$:(A$)32(A$)902130_VMR1$A$:R250:::2070iVRR2:yV R3$R3$UN$V R$" ":R3$(0)" ":R3$(2)" ":R3$(3)" ":R3$(7)" ":R3$(8)" "V CUR$(147):HCUR0V Q$R1$V Q0:Q1130:5000:10004W 12000:Q$"PRESS WHEN DONE"?":Q0:1000:2040UQ0:Q2R1:Q$(154):1000:Q$R1$"?"(32)(154)(154)(154)(154):1000U Q0:Q2R122:Q$" .":1000:2120U%Q$" ..":1000:2120U*Q$" ...":1000:2120:1052V4Q1:Q2R1:Q$" ":1000:$VHR2150:(16384)1282:787,Q1;T944,(CASE$)KTQ$Q$(13)WT$3584:vTQ0:Q1R:Q2R1:Q$R$:1000T12000TR1$" "TQ1R20:Q2R1:Q$(150)"?"T1000T (16384)1282065TR1$"":R1$:(R1$)32(R1$)902060U20703UQ1R20:Q$(154):Q$Q$VSQ$S$"THE CORRECT ANSWER WAS:":Q160:Q220:1000S CASE$" ":LEVEL0Q$(A4):7000:Q$A4$:787SB3A4:8000:Q$(B3)SQ180:5000:1000SSSQ01040SQ5Q1Q20:Q5191Q5191SQ4Q1Q5T0:0,Q4279,Q4:Q4)T786,QRUN I-3"1RX530IR14000:R1$"2"750eR:A1(7(1)):E$:ARQ0:Q180:Q$E$:5000:1000RCASE$"L"RQ$S$"YOUR ANSWER IS CORRECT!":Q1100:Q220:1000RCASE$" ":RCASE$"L" SQ$S$"YOUR ANSWER IS INCORRECT.":Q140:Q210:100046,93,0Là 102,111,114,32,114,101,109,101,100,105,97,116,105,111,110,0000<ʣ@@QQYLQPULQQVLQPTLSRLQQRLQQTLQQQLYXLQPXLQPQLQPYLQQULSRLQPULQQPLPPPPZ@@!$6@#ONT'D à 84, 114,97,110,115,112,97,114,101,110,116,32,84,114,97,110,115,102,101,114,32,84,111,0à 67,97,108,99,117,108,97,116,105,110,103,32,75,151,32,38,32,91,72,1:20130F&NC5%(A)26B4$(155):Q2C3(A10):20140:B3$(A)A$:20130&NC6%(A)26B4$(156):Q2C3(A10):20140:B3$(A)A$:20130&NA:20250&N12000&NQ0:Q$B4$:1000&N(16384)127ľA$:20180&NQ$(154):1000:20150 'N(A$)32(A$)(Q120):Q$B2$:5000:C3Q2$%*N10004%>NA1(B2$)]%HN((B2$,A,1))150C4%(A1)A:20070%RN((B2$,A,1))155C5%(A1)A:20070%\N((B2$,A,1))156C6%(A1)A:20070%fNA%zNA0(B2$)1&NC4%(A)26B4$(150):Q2C3(A10):20140:B3$(A)A$)(111)(108)(97)(114)(32)(83)(111)(108)(117)(116)(105)(111)(110)(32)(111)(102)uZZQ160:5000:1000udZQ$COMP$(A2):Q$Q$".":Q180:5000:1000unZu0u ** REV 05/23/83 **u:uEZ0:ENBvDuEN10EN1.0300402vNuENENOMP$(A2)(32)(105)(115)(32)A6$(46)bt(ZQ120:5000:1000t2ZQ$(70):Q$Q$(105)(110)(100)(32)(116)(104)(101)(32)(91)(72)(146)(93)(32)(111)(102)(32)(97)t":5000:1000k$OA$k)OA$"Q"ġ:14000::A2$;"RUN MENU3"k.O(A$)020000l8O(A$)120260lBO$lU1 DISPLAY MASK NjN(16384)127ľA$:20180ijNQ$(154):1000:20150jN(A$)32(A$)9020150: IGNOREjNQ$(154):1000: ERASE MASK jN(B4$)14920230,20200,20200,20200,20200,20210,20220kNC7(A$):C748C75720230%kNA$(C775):^Q$Q$(32)(111)(102)(32)COMP$(A2)"?"djL^Q180:5000:1000jjV^ja14000:A2(9(1)):A9(KA$(A2)):LL1E11A9:UL1E7A9jaA3((ULLL)(1))LL:Q$(A3):7000jaA5$A4$7kaB1(((A3A9))2.30258509):B3B1:8000:B1B3:A8$(B1):A4A9:Q(32)(98)(101)Hi^Q140:5000:1000i$^Q$(116)(104)(101)(32)(112)(72)(32)(111)(102)(32)(97)(32)A5$i.^Q160:5000:1000j8^Q$(77)(111)(108)(97)(114)(32)(83)(111)(108)(117)(116)(105)(111)(110)NjB10:5000:1000rh^Q$(67)(111)(110)(115)(116)(97)(110)(116)(32)h^Q$Q$(102)(111)(114)(32)COMP$(A2)(32)(105)(115)h^Q120:5000:10002i^Q$A6$", "(119)(104)(97)(116)(32)(119)(111)(117)(108)(100)/8/@@@@@@@@@@@@ @ @ @ @ @@@@@@@@@ @ @@@@ @ @ @@@|<@@! !  @@@@@@!!!@!a! `` **@@@@@@@@@@@@@@@@@@@ @ @ @ @ @@TTTtP$(A2)"?"@sRQ140:5000:1000FsRsPà GOOD JOB!,VERY NICE!,NICELY DONE!,WELL DONE!,FANTASTIC!,EXCELLENT!,GOOD!s`(4);"SAVE II-1"::EP$(A2)"?"~qRQ140:5000:1000qRqPà GOOD JOB!,VERY NICE!,NICELY DONE!,WELL DONE!,FANTASTIC!,EXCE-"(B4):A3(A$):Q$(A3):7000LmVA5$A4$imVA3(A3)A5$(A3)".0"m"VA25A4((10E14A3)2.30258509):22065: ANS. FOR BASESm,VA4((A3)2.30258509): ANS. FOR ACIDSm1VB3A4:8000:A4B3: ROUND ANSWER .1n6VQ$(87)(104)(97)(116)0::A2$;"RUN MENU3"Gl.O(A$)020000[l8O(A$)120260alBOllU14000lUA2(18(1)): SELECT II-2COMP$()lUA2622015lUA2(3(1))6:22017: 3 TO 1 BASE RATIOlUB18:B0:A2622020lVB110:B6mVB4((B1B)(1))B@m VA$"1EB,20200,20210,20220VkNC7(A$):C748C75720230mkNA$(C775):20230kNC7(A$):C748C75720230kNA$(C788)kOQ$A$:1000: ECHO ENTRY kOlO12000:Q1:Q1171:Q$"< 1= ACCEPT 0= REJECT >":5000:1000 l$OA$4l)OA$"Q"ġ:1400(108)(97)(114)(32)(83)(111)(108)(117)(116)(105)(111)(110)jTVQ120:5000:1000j^VQ$(111)(102)(32)II2COMP$(A2)"?"jhVQ140:5000:1000jrV kPà GOOD JOB!,VERY NICE!,NICELY DONE!,WELL DONE!,FANTASTIC!,EXCELLENT!,GOOD! %(A1)A:20070Xm\N((B2$,A,1))156C6%(A1)A:20070_mfNAqmzNA0(B2$)1mNC4%(A)26B4$(150):Q2C3(A10):20140:B3$(A)A$:20130mNC5%(A)26B4$(155):Q2C3(A10):20140:B3$(A)A$:20130.nNC6%(A)26B4$(156):Q2C3(A10):20140:B3l>:14000::(4);"RUN START"al>CCCC2:DC((CC1)2):16080ml>CCCC1l>DC((CC2)1)l>15000:A3$Q$l>l NQ1C0:Q10(Q120):Q$B2$:5000:C3Q2l*N1000l>NA1(B2$)mHN((B2$,A,1))150C4%(A1)A:20070/mRN((B2$,A,1))155C5":Mk>R1$"1"CC0RTRT1:16050:INCRTCC.|k>R1$"1"CC2(CC2)CC0:RTRT1:16050k>R1$"1"CC2(CC2)RTRT1:16050k>R1$"2"CC0WRWR1:16060k>R1$"2"CC2(CC2)CC0:WRWR1:16060l>R1$"2"CC2(CC2)WRWR1:16050?oj2Q1:Q1171:Q280:Q$"":1000:S1200:4000:Q1:Q$" ":1000:Q0:j6::16302,0:j:Q$"CC= ":Q$Q$(DC):Q$Q$" R= ":Q$Q$(RT):Q$Q$" W= ":Q$Q$(WR)j:RTWR0Q$Q$" 0%":#k:PER%RT(RTWR)100:Q$Q$" ":Q$Q$(PER%)"%":5000:1000:CASE$" ":9500:14000:~i%12000:Q$"Q= QUIT, C= CONTINUE":Q1179:5000:1000i&%A$:A$"C"Č1052:i0%A$"Q"9510i:%14000:::A2$;"RUN MENU2":i*A1:Q$(A1)i+A1:A10ıj +Q$Q$(A1):11010j.(16384)127ľA$ j.1000Zh#Q1120:Q$"THAT YOU WANT TO CHANGE.":5000:1000h#CASE$" ":Q1140:Q$"P"(114)(101)(115)(115)" "(116)(111)(32)(101)(110)(116)(101)(114):5000:1000h#CASE$"L"Fi#CASE$"L":Q1160:Q$"YOUR COMPLETED ANSWER.ŭŭŭŭŭŭŭŭŭŭŭIMATIONZ[Q0:Q120:Q$"GOOD LAB WORK, YOUR":5000:1000[Q140:Q$"ANSWER IS CORRECT!":5000:1000[ 9000:14000:350[ 14000:Q$"YOU'VE RUN OUT OF HC"(108)"!":Q0:Q190:5000:1000:S1800:4000:850/\R14000:Q0:Q10:Q$"YOU HAVE 4 OPTION| ll`|@@@@@@@   *(HH(n|BBb(H| ll`|@@@@@@@ @@$p||BBb(H0:Q$"THE "(91)"OH"(147)(93)" YOU GAVE":5000:1000ZQ0:Q120:Q$"FOR THE UNKNOWN":5000:1000ZQ140:Q$"IS INCORRECT BY "((E4100))"%.":5000:1000Z9000:850: OPTIONS'[:L1(5(1))1:Q$:L:Q0:Q10:5000:1000: EXCLA(32)(83)(111)(108)(117)(116)(105)(111)(110)riTVQ120:5000:1000i^VQ$(111)(102)(32)II2COMP$(A2)"?"ihVQ140:5000:1000irV jPà GOOD JOB!,VERY NICE!,NICELY DONE!,WELL DONE!,FANTASTIC!,EXCELLENT!,GOOD! A0:Q$B4$:1000:380PofSA3(B1$(3))121380: SKIP IF EXP. =1opSA3Q$Q$((B1$(3))136):21380: CONV. TO EXP.ozSQ$Q$(91)B1$(A)(93):A3oSAoSQ0:Q198:5000:1000: DISPLAY (4)(5)(6) pS(Q$)C1C1(Q$):CQ2:C,85CC11012,85=pSB5$"TS FOR COEF.OnSQ$(91)B1$(A)(93): (ELEM)Vn SAvn*SA03:PBR%(B9,A)521330n4SA3(B1$(A))121330: SKIP IF EXP. =1n>SA3Q$Q$((B1$(A))136):21330: CONV. TO EXP.nHSQ$Q$(91)B1$(A)(93):A3oRSA#o\SA03:PBR%(B9,A)621POS. (1)(2)(3) BmRCQ2:C1(Q$)emRQ$(75)(152)" =": KA = ~mRQ0:Q180:Q20:1000mR3:C,85CC110,85: ------ mSQ$"":A03:PBR%(B9,A)421280m SA3(B1$(A))121280: SKIP IF COEF. X=1 ,nSA3Q$B1$(3):21280: NO BRACKE(93):A3: (ELEM):lRAZlRA03:PBR%(B9,A)321190lRA3(B1$(3))121190: SKIP IF EXP. X=1lRA3Q$Q$((B1$(3))136):21190: CONV. TO EXP. lRQ$Q$(91)B1$(A)(93):A3: (ELEM)lRA0mRQ3:Q160:5000:1000: DISPLAY ,VERY NICE!,NICELY DONE!,WELL DONE!,FANTASTIC!,EXCELLENT!,GOOD!A)(93):A3: (ELEM)kbRAklRA03:PBR%(B9,A)221140kvRA3(B1$(3))121140: SKIP IF EXP. X=1lRA3Q$Q$((B1$(3))136):21140: CONV. TO EXP.3lRQ$Q$(91)B1$(A)N"R1$"U"İ13000:21445?jSjPà 11,1,0,1,1,1,2,1,2,7,1,3,10,1,4,3,1,5,4,1,6,5,1,7,9,1,8,6,1,9,12,1,10,6,2,10,11,2,1,2,3,4,5,2,8kZà 4,1,3,2,1,4,6,5,3,1,4,2,2,5,1,4,5,1,4,2,6,5,1,4,1,5,6,4,2,5,4,1,2,4,1,5,5,2,4,1,6,4,1,5,3,2,4,1_kdà GOOD JOB!A3Q$Q$((B1$(3))136):21380cizSQ$Q$(91)B1$(A)(93):A3jiSAiSQ0:Q198:5000:1000iS(Q$)C1C1(Q$):CQ2:C,85CC11012,85iSB5$"X"ıiSQ180:Q2CC110:Q$"?":1000jSR$" ":R151:R140:20009jSR1$"Q"R1$"Y"R1$"A3Q$B1$(3):21280OhSQ$(91)B1$(A)(93)Vh SAvh*SA03:PBR%(B9,A)521330h4SA3(B1$(A))121330h>SA3Q$Q$((B1$(A))136):21330hHSQ$Q$(91)B1$(A)(93):A3hRSAi\SA03:PBR%(B9,A)621380ifSA3(B1$(3))121380BipS(10(1))1:B5(B510)10:B51B51026057: REV 05/04/83l)eB51:(2(1))11B510: REV 05/04/83)eA9$(B5): REV 05/04/83)eB52(B52)A9$A9$".0")eB6(100(1))1:B6B6100:Q$(B6):7000:B$A4$*eA9(KA$(A2)):Q$KA$(A2):7000X$(1))>nDuEX$(2)" "NN10PnNuNN(EX$(2))YnXuN11|nbu(A410N110)(A410N11)ınduA410N11N1N11:30050nluN1N11:30050nPà GOOD JOB!,VERY NICE!,NICELY DONE!,WELL DONE!,FANTASTIC!,EXCELLENT!,GOOD!LLENT!,GOOD!A2)(72)(32)(115)(32)(116)(104)(101)(32)(118)(97)(108)(117)(101)m*bQ$Q$(32)(111)(102)(32)(75)(152)m4bQ160:5000:1000m>bQ$(102)(111)(114)(32)COMP$(A2)"?"mHbQ180:5000:1000mRbn0u ** LEAST SIG +- 1 **&n:uN(E16)(105)(111)(110)laQ$Q$(32)(111)(102)(32)(116)(104)(101)(32)(97)(99)(105)(100)laQ120:5000:1000l bQ$COMP$(A2)(32)(105)(115)(32)A8$"."lbQ140:5000:1000hm bQ$(87)(104)(97)(116)(32)(105)$KA$(A2):7000:A6$A4$LkaB17B1125000bkaB3B1:8000:B1B3kaQ$(84)(104)(101)(32)(112)(72)(32)(111)(102)(32)(97)(32)A5$kaQ0:Q10:5000:10008laQ$(77)(111)(108)(97)(114)(32)(83)(111)(108)(117)(1(101)" K"(152)"."LrJVQ140:5000:1000Rr|V|rY14000:A2(11(1)):A3(100(1))1rYA3A31000:Q$(A3):7000rYA5$A4$rYA9(KA$(A2))rYA4(A9(A924A9A3))2sYBB1:30100:(BBA4BB(A9A3))123000sY7500sZQ$(84):Q$$(A)A$:20130":5000:1000f$OA$f)OA$"Q"ġ:14000::A2$;"RUN MENU3"g.O(A$)020000g8O(A$)120260gBO(g116)(101)(114)(109)(105)(110)(101)(32)(116)(104)(101)OQ0:Q160:5000:1000OQ$(67)(111)(110)(99)(101)(110)(116)(114)(97)(116)(105)(111)(110)(32)(111)(102)6PQ$Q$(32)(85)(110)(107)(110B:N ** III-1 6/1/82 **`N COMP$(12),I1COMP$(10),PAR%(14,2)NA2$(4): DOS INDICATOR N14000: SET HIRESN(S$(21): SHIFTN2CASE$" "Nd ** FILE DEFINITIONS **N ** PROGRAM CONTROL ** O14000: SET HIRESiOQ$(68)(101)(                         @~~@ E( `|~`?~`@xx?```? 1b C!!b$H#BC!!`` @A@``!  ! @ H!~! $BB~@  CB@~`~?`?~~`|? ` ``? !BB!!B$H!BB!!`` pA@``  #B B H1BD! #3dBb~~@ @A|~`?|~`@p?LY DONE!,WELL DONE!,FANTASTIC!,EXCELLENT!,GOOD! n`(4);"SAVE II-2"::"(4);"SAVE II-2"::LWELL DONE!,FANTASTIC!,EXCELLENT!,GOOD!sn`(4);"SAVE II-2":: Lo^VQ$(111)(102)(32)II2COMP$(A2)"?"bohVQ140:5000:1000horVoPà GOOD JOB!,VERY NICE!,NICELY DONE!,WELL DONE!,FANTASTIC!,EXCELLENT!,GOOD! o`(4);"SAVE II-2"::(A2)"?"mhVQ140:5000:1000mrVmPà GOOD JOB!,VERY NICE!,NICE(32)(105)(115)(32)(116)(104)(101)(32)(112)(72)(32)(111)(102)(32)(97)n@VQ0:Q10:5000:1000 oJVQ$A5$(32)(77)(111)(108)(97)(114)(32)(83)(111)(108)(117)(116)(105)(111)(110) oTVQ120:5000:100020260+hBO6hU14000HhUA2(18(1))XhUA2622015rhUA2(3(1))6:22017hUB18:B0:A2622020hVB18:B14hVB4((B1B)(1))Bh VA$"1E-"(B4):A3(A$):Q$(A3):7000hVA5$A4$iVA3(A3)A5$(A3)".0"3i"VA25A4((1E14A3)C748C75720230IgNA$(C775):20230igNC7(A$):C748C75720230ygNA$(C788)gOQ$A$:1000gOgO12000:Q1:Q1171:Q$"< 1= ACCEPT 0= REJECT >":5000:1000g$OA$g)OA$"Q"ġ:14000::A2$;"RUN MENU3"h.O(A$)020000%h8O(A$)13(A10):20140:B3$(A)A$:20130NfNA:20250YfN12000nfNQ0:Q$B4$:1000fN(16384)127ľA$:20180fNQ$(154):1000:20150fN(A$)32(A$)9020150fNQ$(154):1000gN(B4$)14920230,20200,20200,20200,20200,20210,202202gNC7(A$): ````? 1B C!#b H#B C!#@BAx!`` @A@``!/|``<qA@G.<8!p`pR#\|~@@|A~Ax~~~`?x~``x@?@RtpCG?8yaC @?<8 !.``x@``?`.BxpBA\@G":5000:1000o$OA$o)OA$"Q"ġ:14000::A2$;"RUN MENU3"o.O(A$)020000p8O(A$)120260pBO5pR14000:$2BILLLL*8FTbp~ &4BP^lz"0>LZhv,:HVdr (6DR`n|$2@N\jx .LZhv,:HVdr (6DR`n| @@@@@@@@@@@@@@@@@@@AAAAAAAAAAAAAAAAAABBBBBBBBBBBBBBBBBBCCCCCCCCCCCCCCCCCCCDDDDDDDDDDDDDDDDDDEEEEEEEEEEEEEEEEEEFFFFFFFFFFFFFFFEEEEEEEEEEEEEEEEEFFFFFFFFFFFFFFFFFFGGGGGGGGGGGGGGGGGGGHHHHHHHHHHHHHHHHHHIIIIIIIIIIIIIIIIIIJJJJJJJJJJJJJJJJJJJKKKKKKKKKKKKKKKKKK 0L@` g RgƖ8PgPQhQghe Ӣi  g y  gh^_8^eP^ȱ^ eQ^^_Ll8ePeQ`9LLLL`ª`LQLY8LXLeLee ISPLAY MASK JnN(16384)127ľA$:20180enNQ$(154):1000:20150nN(A$)32(A$)9020150: IGNOREnNQ$(154):1000: ERASE MASKnN(B4$)14920230,20200,20200,20200,20200,20210,20220 oNC7(A$):C748C75720230 oNA$(C775):20230Q120:5000:1000mRQ$(83)(111)(108)(117)(116)(105)(111)(110)(32)(111)(102)(32)COMP$(A2)"?"mRQ140:5000:1000mRnPà GOOD JOB!,VERY NICE!,NICELY DONE!,WELL DONE!,FANTASTIC!,EXCELLENT!,GOOD!,nNQ0:Q$B4$:1000: D(117)(116)(105)(111)(110)Zq"VQ0:Q10:5000:1000q,VQ$(111)(102)" "COMP$(A2)" "(104)(97)(115)" "(97)" "(91)(72)(146)(93)q6VQ120:5000:10006r@VQ$(111)(102)" "A7$". ""F"(105)(110)(100)" "(116)(104)4000:A2(11(1)):A3(100(1))1apVA3A31000:Q$(A3):7000mpVA5$A4$pVA9(KA$(A2)):A4A9:B(A3A4):30000:Q$(A9):7000:A6$A4$:Q$(B):7000:A7$A4$: 05/23/83AqVQ$"A "A5$" "(109)(111)(108)(97)(114)" "(115)(111)(108)7oNA$(C775):20230WoNC7(A$):C748C75720230goNA$(C788)woOQ$A$:1000}oOoO12000:Q1:Q1171:Q$"< 1= ACCEPT 0= REJECT >":5000:1000o$OA$o)OA$"Q"ġ:14000::A2$;"RUN MENU2"o.O(A$)020000p8O(A$)120260pBOCpU10:B3$(A)A$:20130@eNA:20250KeN12000`eNQ0:Q$B4$:1000~eN(16384)127ľA$:20180eNQ$(154):1000:20150eN(A$)32(A$)9020150eNQ$(154):1000fN(B4$)14920230,20200,20200,20200,20200,20210,20220$fNC7(A$):C748C75725C5%(A1)A:20070\d\N((B2$,A,1))156C6%(A1)A:20070cdfNAudzNA0(B2$)1dNC4%(A)26B4$(150):Q2C3(A10):20140:B3$(A)A$:20130dNC5%(A)26B4$(155):Q2C3(A10):20140:B3$(A)A$:201302eNC6%(A)26B4$(156):Q2C3(A10):2014`~`?x~p?p~@|@x@?``? pp`?``pF   @  !R B`OAqq'@~ !!```@p~|@ $pQ``p@~`?`~~`?|`?``? @@`?```?|p`@` !R B HAD $ @BD2a1``0F? |p`!<8qA@G.<8!p`0p$\`~~@|IH `x~`?@~`p~p?98)(101)(32)(116)(104)(101)(32)llRB71Q$Q$(91)(72)(146)(93)(32):21120lvRQ$Q$(91)(79)(72)(147)(93)(32)lRQ0:Q10:5000:1000mRQ$(105)(110)(32)(97)(32)A5$(32)(77)(111)(108)(97)(114)1mR210208kRA2(3(1))6PkRB4((B1B)(1))B{k&RA$"1E-"(B4):A3(A$):Q$(A3):7000k0RA5$A4$k:RA31A5$"1.0"kXRA4(1E14)A3kZRA$(A4):A4(A$)k]R7500KlbRQ$(87)(104)(97)(116)(32)(119)(111)(117)(108)(100)(32)((C788)7jOQ$A$:1000=jO|jO12000:Q1:Q1171:Q$"< 1= ACCEPT 0= REJECT >":5000:1000j$OA$j)OA$"Q"ġ:14000::A2$;"RUN MENU3"j.O(A$)020000j8O(A$)120260jBOjR14000:B70B1:B17:21010k RB8:B115%kRA2(6(1)):B70N(16384)127ľA$:20180UiNQ$(154):1000:20150riN(A$)32(A$)9020150iNQ$(154):1000iN(B4$)14920230,20200,20200,20200,20200,20210,20220iNC7(A$):C748C75720230iNA$(C775):20230jNC7(A$):C748C75720230'jNA$1hzNA0(B2$)1phNC4%(A)26B4$(150):Q2C3(A10):20140:B3$(A)A$:20130hNC5%(A)26B4$(155):Q2C3(A10):20140:B3$(A)A$:20130hNC6%(A)26B4$(156):Q2C3(A10):20140:B3$(A)A$:20130hNA:20250iN12000iNQ0:Q$B4$:1000:i() )trdà GOOD JOB!,VERY NICE!,NICELY DONE!,WELL DONE!,FANTASTIC!,EXCELLENT!,GOOD!r`(4);"SAVE I-1"::0,4,2,5,4,1,2,4,1,5,5,2,4,1,6,4,1,5,3,2,4,1: DIST PARAMETERS (PBR%() )pdà GOOD JOB!,VERY NICE!,NICELY DONE!,WELL DONE!,FANTASTIC!,EXCELLENT%qSqPà 11,1,0,1,1,1,2,1,2,7,1,3,10,1,4,3,1,5,4,1,6,5,1,7,9,1,8,6,1,9,12,1,10,6,2,10,11,2,1,2,3,4,5,2,8: PROB. PARAMETERS$rZà 4,1,3,2,1,4,6,5,3,1,4,2,2,5,1,4,5,1,4,2,6,5,1,4,1,5,6,4,2,5,4,1,2,4,1,5,5,2,4,1,6,4,1,5,3,2,4,1: DIST PARAMETERS (PBR%50Cc>:14000::(4);"RUN START"ec>CCCC2:DC((CC1)2):16080qc>CCCC1c>DC((CC2)1)c>15000:A3$Q$c>c NQ1C0:Q10(Q120):Q$B2$:5000:C3Q2c*N1000c>NA1(B2$) dHN((B2$,A,1))150C4%(A1)A:200703dRN((B2$,A,1))15,32,48,61,69,110,100,63,0 (à 20,0à 49,61,32,83,117,99,99,101,115,115,32,50,61,32,70,97,105,108,32,48,61,32,69,110,100,63,0 Và 89,111,117,32,119,105,108,108,32,110,111,119,32,98,101,32,112,114,9WLYYLQQVLQPULYYLQPULQQPLQPSLPPPPZ@!$6@-%3`16,105,110,103,32,75,152,32,38,32,91,72,146,93,0xà 51,41,32,67,97,108,99,117,108,97,116,105,110,103,32,75,152,32,38,32,112,72,0à 52,41,32, 66,117,102,102,101,114,115,0à 67,104,111,111,115,101,32,69,110,116,114,121,32,76,101,118,101,108,4417,105,108,105,98,114,105,97,0vZà 147,147,147,147,147,147,147,147,147,147,147,147,147,147,147,147,147,147,147,147,0dà 49,41,32,69,113,117,105,108,105,98,114,105,117,109,32,69,113,117,97,116,105,111,110,115,00nà 50,41,32,67,97,108,99,117,108,97,19020:11000:1000::' *A1:Q$(A1)7 +A1:A10ıN +Q$Q$(A1):11010e .(16384)127ľA$k . 2Q1:Q1171:Q280:Q$"":1000:S1200:4000:Q1:Q$" ":1000:Q0: 6::16302,0:Pà 65,99,105,100,47,66,97,115,101,32, 69,113,1``? @@`?p?``0E  @! > !R C$@AD @D !1``@@x~x@ Da"`pTER YOUR":5000:1000i\"Q120:Q$"ANSWER YOU WILL SEE THAT":5000:1000\"Q140:Q$"THE FORMAT FOR THAT ANSWER":5000:1000\"Q160:Q$"IS ALREADY ON THE SCREEN.":5000:1000\"CASE$" ":9500:14000-]"CASE$"L":Q10:Q$S$"YOU CAN ENTER A NUMBER:5000:1000f[Q$"HAVE COMPLETELY "S$"IONIZED.":Q180:5000:1000[Q$S$"YOU WILL NEED "S$"LOG":Q1100:5000:1000[Q$S$"TABLES FOR THESE PROBLEMS.":Q1120:5000:1000[CASE$" ":9500["140005\"CASE$"L":Q0:Q10:Q$S$"WHEN YOU ENB3.05)10)10:EZ14000:CASE$"L"~ZQ$S$"IN THIS SECTION YOU CAN":Q10:Q0:5000:1000ZQ$"PRACTICE CALCULATING P"S$"H":Q120:5000:1000ZQ$"FOR STRONG "S$"ACIDS AND "S$"BASES":Q140:5000:1000,[Q$"WHICH YOU SHOULD ASSUME":Q16000?YgQ$(B2100)"E-2":7000TYlA7((Q$,A61))wYvA4$(Q$,1,A61):A4$A4$"X10"YA70A4$A4$(147)YA8(A7):A89A4$A4$(137):A8A810YA8A8136YA4$A4$(A8)YZA64A$(Q$,1,3)(Q$,A6):Q$A$::7000Z0Z@B3((X 8:"* *"GX 8fX "* * * * * * * * * * * *"lX rXXS11S:S1:XQ$Q$(13)X4025XQ2(786)10XXXA51(Q$):(Q$,A5,1)"E"A6A5:A5(Q$)::7080:7020"Yb:B2(Q$):B2.099Q$(B210)"E-1":70HCUR10:1000:Q$R3$(HCUR):1000:2630~W Q$(154):Q1162:1000:Q1:Q1181:Q$" ":Q20:1000W R3(R3$(0)R3$(1)"."R3$(3))W R1$(R3):W " * * * * * * * * * * * *"W 8:"* *"X 8X "* NOW LOADING ";A1$;"*"@$" "2590=V7 HCUR82630fV< Q$(154):Q1150:1000:R3$(HCUR)" "VF Q$(154):Q1162:1000VP HCURHCUR1:HCURE5HCUR0VZ HCUR0HCUR1HCUR32580Vd 2640Vn HCUR6R3$(HCUR)((A$)136):2690Wx R3$(HCUR)A$FW Q$(154):Q1150:Q2QQU CUR$(147):HCUR0@U Q$R1$[U Q0:Q1130:5000:1000U 12000:Q$"PRESS WHEN DONE":Q1181:5000:1000U Q1150:Q$R3$:5000:QQQ2:1000U Q0:Q1162:Q2QQHCUR10:Q$CUR$:1000U A$:A$(13)2700V( (A$)47(A$)582670+V2 A2120>T%Q$" ..":1000:2120_T*Q$" ...":1000:2120:1052|T4Q1:Q2R1:Q$" ":1000:THR2150:(16384)1282130TJA$:(A$)32(A$)902130TMR1$A$:R250:::2070TRR2:T R3$R3$UN$U R$" ":R3$(0)" ":R3$(1)" ":R3$(3)" "50)"?"0S1000HS (16384)1282065rSR1$"":R1$:(R1$)32(R1$)902060|S2070SQ1R20:Q$(154):Q$Q$"?":Q0:1000:2040SQ0:Q2R1:Q$(154):1000:Q$R1$"?"(32)(154)(154)(154)(154):1000$T Q0:Q2R122:Q$" .":1000::Q0:5000:10006RA2$(4)I14000`A800811:A,0:An2CASE$" "y1400010000SF0R130:R10:11000:R$Q$:2000CH(R1$)R1$"1"R1$"2"R1$"3"R1$"4"300R1$"0"290 14)"%":Qb>R1$"1"CC0RTRT1:16050:INCRTCC.b>R1$"1"CC2(CC2)CC0:RTRT1:16050b>R1$"1"CC2(CC2)RTRT1:16050b>R1$"2"CC0WRWR1:16060b>R1$"2"CC2(CC2)CC0:WRWR1:16060"c>R1$"2"CC2(CC2)WRWR1:160a.sa2Q1:Q1171:Q280:Q$"":1000:S1200:4000:Q1:Q$" ":1000:Q0:a6::16302,0:a:Q$"CC= ":Q$Q$(DC):Q$Q$" R= ":Q$Q$(RT):Q$Q$" W= ":Q$Q$(WR)a:RTWR0Q$Q$" 0%":'b:PER%RT(RTWR)100:Q$Q$" ":Q$Q$(PER%$"C"Č1052:@`0%A$"Q"9510b`:%14000:::A2$;"RUN MENU3":`'A1$(1):Q0:Q10:Q240::11000:1000`'Q112:11000:1000`'Q20`$'Q1309020:11000:1000::`*A1:Q$(A1)`+A1:A10ıa +Q$Q$(A1):11010a.(16384)127ľA$$R.":5000:1000:CASE$" ":9500:14000:b_(#A2$;"READ II-2COMPS"k_2#A1{_<#Q$"":AA1_F#A99100_P#A1_Z#A109080_d#Q$Q$(A1)_n#9040_x#II2COMP$(A)Q$_#9020_#`%12000:Q$"Q= QUIT, C= CONTINUE":Q1179:5000:1000.`&%A$:AMBER":5000:1000f^#Q1120:Q$"THAT YOU WANT TO CHANGE.":5000:1000^#CASE$" ":Q1140:Q$"P"(114)(101)(115)(115)" "(116)(111)(32)(101)(110)(116)(101)(114):5000:1000^#CASE$"L"H_#Q1160:Q$"YOUR COMPLETED ANSWE":5000:1000_]#Q120:Q$"WHEREVER THE UNDERLINE":5000:1000] #Q140:Q$"(CURSOR) IS LOCATED, OR":5000:1000]#Q160:Q$"PRESS THE "S$"SPACE BAR TO":5000:1000]#Q180:Q$"ADVANCE THE CURSOR UNTIL":5000:10001^#Q1100:Q$"IT IS BELOW THE NU$"WHEN YOU ENTER YOUR":5000:1000w]"Q120:Q$"ANSWER YOU WILL SEE THAT":5000:1000]"Q140:Q$"THE FORMAT FOR THAT ANSWER":5000:1000]"Q160:Q$"IS ALREADY ON THE SCREEN.":5000:1000]"CASE$" ":9500:14000;^"CASE$"L":Q10:Q$S$"YOU CAN z#?   Р&Աʠ ˠӠ ŠӠɭӠӠɭӠР!Աʰ ɭ("ɭ$ɭ$ ɭE ԠԱ îϠ"Ԡ!ղ ɭ'ɭ/ɭ&ɭ+ճ  147,147,147,147,147,147,147,147,147,147,147,147,147,147,147,147,147,0000dà 49,41,32,65,99,105,100,47,66,97,115,101,32, 69,113,117,105,108,105,98,114,105,97,0000 nà 50,41,32,69,113,117,105,108,105,98,114,105,117,109,32,111,102,32,87,97,116,101,110ı +Q$Q$(A1):110101.(16384)127ľA$7.2Q1:Q1171:Q280:Q$"":1000:S1200:4000:Q1:Q$" ":1000:Q0:6::16302,0:Pà 65,67,73,68,32,47,32,66,65,83,69,32,82,69,65,67,84,73,79,78,83,0000HZà 147,147,147,147,A1Q$"":AA1#A116090+A1:A106070JQ$Q$(A1)T6030dCOMP$(A)Q$n6020t'A1$(1):Q0:Q10:Q240::11000:1000'Q112:11000:1000'Q20$'Q13011030:11000:1000::*A1:Q$(A1)+A1:A1 *"% 8:"* *", 8J "* NOW LOADING ";A1$;"*"l 8:"* *"s 8 "* * * * * * * * * * * *" S11S:S1:Q$Q$(13)4025Q2(786)10pA2$;"READ COMPOUNDS"z:Q2R122:Q$" .":1000:21209%Q$" ..":1000:2120Z*Q$" ...":1000:2120:1052w4Q1:Q2R1:Q$" ":1000:HR2150:(16384)1282130JA$:(A$)32(A$)902130MR1$A$:R250:::2070RR2: " * * * * * * * * * * *"!Q1R20:Q2R1:Q$(150)"?"+1000C (16384)1282065mR1$"":R1$:(R1$)32(R1$)902060w2070Q1R20:Q$(154):Q$Q$"?":Q0:1000:2040Q0:Q2R1:Q$(154):1000:Q$R1$"?"(32)(154)(154)(154)(154):1000 Q0000:(fTIMETIME1:TIME800İ14000:1p8507EQ01040cQ5Q1Q20:Q5191Q5191qQ4Q1Q50:0,Q4279,Q4:Q4786,Q2:787,Q1944,(CASE$)Q$Q$(13)$3584:Q0:Q1R:Q2R1:Q$R$:100012000R1$" THE WRITTEN PERMISSION OF"K " ENCYCLOPAEDIA BRITANNICA"v*" EDUCATIONAL CORPORATION,"4" CHICAGO, ILL.">TIME0H22:7:"PRESS SPACE BAR TO CONTINUE"R(16384)127870\A$:A$" "Č1052:14ELEVISION, OR OTHER ELEC-"I " TRONIC DEVICES, NOR COPIED,"t " RECAST, TRANSFORMED, ADAPTED," " NOR UTILIZED IN ANY INFOR-" " MATION OR RETRIEVAL SYSTEM" " IN WHOLE OR IN PART WITHOUT" " 00:1000? Q1105:Q$S$"CHICAGO, "S$"ILLINOIS":5000:1000E K c S5000:4000:14000m :: 4:" WARNING: ": " ALL RIGHTS RESERVED. THIS WORK" " MAY NOT BE TRANSMITTED BY" " T1000 ^T360,370,380/ h:(4);"RUN MENU2"G r:(4);"RUN MENU3"_ |:(4);"RUN III-1" Q0:Q145:Q$S$"CREATED BY":5000:1000 Q165:Q$S$"J. "S$"FRAZIN & "S$"PARTNERS,":5000:1000 Q185:Q$S$"EDUCATIONAL "S$"CONSULTANTS":50T0T4300 R1$"0"290) ::K "13000::A15:11000::230r ,14000:Q0:Q160:Q25:11000:1000 6Q180:Q265:11000:1000 @:A1T1:11000: J11000:Q$(Q$,3) OT3Q$(Q$,1,10) TQ0:Q1Q120:Q2(140((Q$)102))5:220F 795,12:3:1,1:62454:A2$;" BLOAD PIC.GHLLOGO":S5000:4000 14000:Q0:Q190:CASE$"L":Q$S$"ACID / "S$"BASE "S$"REACTIONS":5000:1000:S2500:4000 14000:700:CASE$" " 10000 R130:R10:11000:R$Q$:2000 T(R1$) :::(4)"BRUN RBOOT")20000H ** START 6/1/82 ** UA2$(4)`14000A2$;"BLOAD TABLE 1":A2$;"BLOAD PLOT14.OBJ0":A2$;"BLOAD SET14":(BIT701:772BIT,2BIT:BIT2CASE$" "<S$(21)14000 (795)12     (111)(117)(108)(100)(32)(98)(101)(32)(116)(104)(101)]+eLEVEL026085+eQ$Q$(32)(112)(72)(32)(111)(102):26090+eQ$Q$(32)(91)(72)(146)(93)(32)(111)(102)+eQ0:Q10:5000:1000E,eQ$A9$(32)(7:A6$A4$E*eA4(A9A3)(B6B5):A41E3A41E626010: REV 05/04/83^*e7500: REV 05/04/83q*eLEVEL026080*eB1(3(1))3:A4B1:B6A9A3B510B1:B3B6:8000:B$(B3)*eB61Q$(B6):7000:B$A4$J+eQ$(87)(104)(97)(116)(32)(119)JECT >":5000:1000($OA$C()OA$"Q"ġ:14000::A2$;"RUN MENU2"V(.O(A$)020000j(8O(A$)120260p(BO{(e14000(eA2(3(1))3: REV 05/04/83(eA3(10(1))1:A3A3100: REV 05/04/83(eQ$(A3):7000: REV 05/04/83(eA5$A4$?)eB59020150'NQ$(154):1000W'N(B4$)14920230,20200,20200,20200,20200,20210,20220w'NC7(A$):C748C75720230'NA$(C775):20230'NC7(A$):C748C75720230'NA$(C788)'OQ$A$:1000'O(O12000:Q1:Q1171:Q$"< 1= ACCEPT 0= RE10:EZEZ1:30020FvXuBB(.0510EZ)LvbuivuBBBB10:BBA41030100ovuvPà GOOD JOB!,VERY NICE!,NICELY DONE!,WELL DONE!,FANTASTIC!,EXCELLENT!,GOOD!,GOOD!AATIONvYA3A31000:Q$(A3):7000 wYA5$A4$: CONCENTRATION!wYA9(KA$(A2)): K20:5000:1000bp bQ$COMP$(A2)(32)(105)(115)(32)A8$"."xpbQ140:5000:1000p bQ$(87)(104)(97)(116)(32)(105)(115)(32)(116)(104)(101)(32)(118)(97)(108)(117)(101)!q*bQ$Q$(32)(111)(102)(32)(75)(152(111)(102)(32)(97)(32)A5$[oaQ0:Q10:5000:1000oaQ$(77)(111)(108)(97)(114)(32)(83)(111)(108)(117)(116)(105)(111)(110)paQ$Q$(32)(111)(102)(32)(116)(104)(101)(32)(97)(99)(105)(100)/paQ1>R1$"2"CC0WRWR1:16060K$>R1$"2"CC2(CC2)CC0:WRWR1:16060u$>R1$"2"CC2(CC2)WRWR1:16050$>:14000::(4);"RUN START"$>CCCC2:DC((CC1)2):16080$>CCCC1$>DC((CC2)1)$>15000:A3$Q$$>% NQ1C0:Q10 ":Q$Q$(RT):Q$Q$" W= ":Q$Q$(WR)C#:RTWR0Q$Q$" 0%":z#:PER%RT(RTWR)100:Q$Q$" ":Q$Q$(PER%)"%":#>R1$"1"CC0RTRT1:16050:INCRTCC.#>R1$"1"CC2(CC2)CC0:RTRT1:16050#>R1$"1"CC2(CC2)RTRT1:16050$(116)(104)(101)(32)drNQ$Q$(67)(111)(114)(114)(101)(99)(116)(32)(75)(152)":"dtNQ120:Q220:1000duNQ0:Q$"Y= YES, N= NO":Q1122:Q270:1000evNQ$"U= UNDECIDED, Q= QUIT":Q1138:Q240:1000ewN-ezNAA4B71:EQU(A)NA3127c(NB8A3:10000Yc*NQ0:Q10:Q$COMP$(PAR%(B4,0))qc4NQ$Q$" "(92)" "c>NPAR%(B4,1)1Q$Q$(PAR%(B4,1))cHNQ$Q$"H"(146)" + "cRNQ$Q$I1COMP$(PAR%(B4,2))c\N5000:1000;dpNQ0:Q$(73)(115)(32)(116)(104)(105)(115)(32)"2"CC2(CC2)WRWR1:16050ab>:14000::(4);"RUN START"b>CCCC2:DC((CC1)2):16080b>CCCC1b>DC((CC2)1)b>15000:A3$Q$b>b N14000:B4((B7A4)(1))A4:20090:EQU(B4)120000 c"NLEVEL120004,20006c$NA36:20008&c&R)100:Q$Q$" ":Q$Q$(PER%)"%":oa>R1$"1"CC0RTRT1:16050:INCRTCC.a>R1$"1"CC2(CC2)CC0:RTRT1:16050a>R1$"1"CC2(CC2)RTRT1:16050a>R1$"2"CC0WRWR1:16060b>R1$"2"CC2(CC2)CC0:WRWR1:16060@b>R1$%`$'<`.(16384)127ľA$B`.`2Q1:Q1171:Q280:Q$"":1000:S1200:4000:Q1:Q$" ":1000:Q0:`6::16302,0:`:Q$"CC= ":Q$Q$(DC):Q$Q$" R= ":Q$Q$(RT):Q$Q$" W= ":Q$Q$(WR)a:RTWR0Q$Q$" 0%":Ea:PER%RT(RTWQ= QUIT, C= CONTINUE":Q1179:5000:1000a_&%A$:A$"C"Č1052:s_0%A$"Q"9510_:%14000:::A2$;"RUN MENU2":_'(123),D1PTR:(124),D2PTR:(125),D3PTR:(126),D4PTR`'A011:A1:PBR%(A,0)A1:A1:PBR%(A,1)A1:A1:PBR%(A,2)A1:A1:PBR%(A,3)A1:" IF YOU":Q180:5000:1000f^: Q$"ARE UNDECIDED.":Q1100:5000:1000|^D CASE$" ":9500:^(#A2$;"READ I-1COMPS"^2#A1^<#Q$"":AA1^F#A119100^P#A1^Z#A109080^d#Q$Q$(A1)^n#9040_x#I1COMP$(A)Q$ _#9020_#H_%12000:Q$"110)(101)(32)GijQ120:5000:1000itQ$(116)(104)(101)(32)(97)(109)(111)(117)(110)(116)(32)(111)(102)(32)i~Q$Q$(72)(67)(108)(32)(117)(115)(101)(100)(44)jQ140:5000:1000mjQ$(112)(114)(1(101)(97)(100)(105)(110)(103)(32)(111)(110)(32)vhLQ10:5000:1000hVQ$(116)(104)(101)(32)(98)(117)(114)(101)(116)(116)(101)(32)1i`Q$Q$(116)(111)(32)(100)(101)(116)(101)(114)(109)(105)((116)(104)(101)(32)(83)(112)(97)(99)(101)(32)(98)(97)(114)"."g$Q1120:5000:1000g.9000: TO ADV.h814000:Q$(84)(111)(32)(99)(104)(101)(99)(107)(32)(116)(104)(101)(32)ahBQ$Q$(82)04)(111)(108)(100)(32)(116)(104)(101)ifQ180:5000:1000fQ$" "(107)(101)(121)(32)(119)(104)(105)(108)(101)(32)gQ$Q$(112)(114)(101)(115)(115)(105)(110)(103)gQ1100:5000:1000wgQ$(32)(98)(101)(97)(107)(101)(114)(46)eQ$Q$(32)(70)(111)(114)(32)(97)eQ160:5000:1000fQ$(99)(111)(110)(116)(105)(110)(117)(111)(117)(115)(32)(102)(108)(111)(119)(44)(32)SfQ$Q$(1)(101)(116)(116)(105)(110)(103)(32)".05"(32)(109)(108)(32)dQ$Q$(111)(102)(32)(72)(67)(108)(32)(100)(114)(105)(112)(32)dQ140:5000:1000ReQ$(105)(110)(116)(111)(32)(116)(104)(101)(110)(115)GczQ0:Q10:5000:1000cQ$(83)(112)(97)(99)(101)(32)(98)(97)(114)(32)(111)(112)(101)(110)(115)cQ$Q$(32)(116)(104)(101)(32)(118)(97)(108)(118)(101)dQ120:5000:1000qdQ$(108bJA$:(A$)32(A$)902130gbMR1$A$:R250:::2070: RE-START qbRR2:b ** PAUSE ROUTINE **bS11S:S1:bQ$Q$(13)b4025bQ2(786)10b.cp14000:Q$(73)(110)(115)(116)(114)(117)(99)(116)(105)(111)(154):1000: ECHO na Q0:Q2R122:Q$" .":1000:2120: 1ST WARNING a%Q$" ..":1000:2120: 2ND WARNING a*Q$" ...":1000:2120:1052: FINAL WARNING a4Q1:Q2R1:Q$" ":1000:a> CHECK ROUTINEbHR2150:(16384)1282130>Q1R20:Q2R1:Q$(150)"?":SET MASK ``1000: & DISPLAY x` (16384)1282065`R1$"":R1$:(R1$)32(R1$)902060`2070`Q1R20:Q$(154):Q$Q$"?":Q0:1000:20407aQ0:Q2R1:Q$(154):1000:Q$R1$"?"(32)(154)(154)(154)1040: TEST ERASE STATUS W_Q5Q1Q20:Q5191Q5191e_Q4Q1Q5_0:0,Q4279,Q4:Q4: ERASE Q LINES_786,Q2:787,Q1_944,(CASE$)_Q$Q$(13)_$3584:_Q0:Q1R:Q2R1:Q$R$:1000: PROMPT `12000`R1$" ": CLEAR IBUFH`(111)(119)(110):Q180:1000{^Q$"4) Q"(117)(105)(116):Q1100:1000:15000:6:^6:20300:5:20190:E31:^6:20190:5:20300:E30:^6:131,147131,D1:5:120,150140,150:3:D12,DD2,D:_ ** SYSTEM SUBROUTINES **9_Q0(114)(114)(101)(99)(116)(32){]zQ$Q$(65)(110)(115)(119)(101)(114)]|1000]~Q$"3) T"(114)(121)(32)(97)(32)(100)(105)(102)(102)(101)(114)(101)(110)(116)(32)?^Q$Q$(117)(110)(107)(110)S:":5000:1000\\Q140:Q$"1) R"(101)"-"(100)(111)(32)(116)(104)(101)(32)(116)(105)(116)(114)(97)(116)(105)\fQ$Q$(111)(110):Q20:1000H]pQ160:Q$"2) S"(101)(101)(32)(116)(104)(101)(32)(99)(111)$(3):21090IfXRQ$(91)B1$(A)(93):A3PfbRApflRA03:PBR%(B9,A)221140fvRA3(B1$(3))121140fRA3Q$Q$((B1$(3))136):21140fRQ$Q$(91)B1$(A)(93):A3fRAfRA03:PBR%(B9,A)321190gRA3(B1$(3))121190 WHEN DONE":Q1181:5000:1000:bs'6:1,1:62454:ys +Q$Q$(A1):11010s.(16384)127ľA$: NO BUFFERs.s2Q1:Q1171:Q280:Q$"":1000:S1200:4000:Q1:Q$" ":1000:Q0:t6::16302,0:7t:R140:R$"ENTER 1-4?":114):5000:1000>r#CASE$"L"r#Q1160:Q$"YOUR COMPLETED ANSWER.":5000:1000:CASE$" ":9000:14000:r(#12000:Q$"Q= QUIT, C= CONTINUE":Q1179:5000:1000r2#A$:A$"C"Č1052:r<#A$"Q"9010sA#14000:::A2$;"RUN START":MsF#12000:Q$"PCE THE CURSOR UNTIL":5000:1000sq#Q1100:Q$"IT IS BELOW THE NUMBER":5000:1000q#Q1120:Q$"THAT YOU WANT TO CHANGE.":5000:10000r#CASE$" ":Q1140:Q$"P"(114)(101)(115)(115)" "(116)(111)(32)(101)(110)(116)(101)(" ":9000:14000op"CASE$"L":Q10:Q$S$"YOU CAN ENTER A NUMBER":5000:1000p#Q120:Q$"WHEREVER THE UNDERLINE":5000:1000p #Q140:Q$"(CURSOR) IS LOCATED, OR":5000:1000 q#Q160:Q$"PRESS THE "S$"SPACE BAR TO":5000:1000@q#Q180:Q$"ADVAN.05)10)10:8o"14000wo"CASE$"L":Q0:Q10:Q$S$"WHEN YOU ENTER YOUR":5000:1000o"Q120:Q$"ANSWER YOU WILL SEE THAT":5000:1000o"Q140:Q$"THE FORMAT FOR THAT ANSWER":5000:1000p"Q160:Q$"IS ALREADY ON THE SCREEN.":5000:10001p"CASE$ SIGNPnA8(A7):A89A4$A4$(137):A8A810tnA8A8136: SELECT EXP. CHARS.nA4$A4$(A8): BUILD RETURN STRING nnA64A$(Q$,1,3)(Q$,A6):Q$A$::7000nnU310U31:U2U21oA$(U3)"E"(U2):A4(A$):-o@B3((B31)"E"A6A5:A5(Q$)::7080:7020: ISOLATE SIG DIGITSmb:B2(Q$):B2.099Q$(B210)"E-1":7000mgQ$(B2100)"E-2":7000mlA7((Q$,A61)): GET EXP.mvA4$(Q$,1,A61):A4$A4$"X10": CONVERT TO X 10%nA70A4$A4$(147): ADD EXP.)(110)(116)(101)(114)(32)lQ$Q$(121)(111)(117)(114)(32)(97)(110)(115)(119)(101)(114)lQ1120:5000:1000lQ$(112)(114)(101)(115)(115)" .":Q1140:5000:1000m9000:8900:YmXA51(Q$):(Q$,A5,)(44)=kQ180:5000:1000kQ$(112)(114)(101)(115)(115)" . W"(104)(101)(110)(32)(121)(111)(117)(32)(97)(114)(101)(32)kQ1100:5000:1000ClQ$(114)(101)(97)(100)(121)(32)(116)(111)(32)(6901)(115)(115)(32)(116)(104)(101)" "(107)(101)(121)"."jQ160:5000:1000jQ$(84)(111)(32)(99)(111)(110)(116)(105)(110)(117)(101)(32)'kQ$Q$(84)(105)(116)(114)(97)(116)(105)(110)(103000:1000]e Q140:Q$S$"MOLECULE, ASSUME ONLY":5000:1000e Q160:Q$"ONE "S$"HYDROGEN "S$"ION":5000:1000e Q180:Q$"DISASSOCIATES.":5000:1000e CASE$" ":9500e"14000:(806)0ı)f"CASE$"L":Q0:Q10:Q$S$"WHEN YOU ENTER YOUR":5$Q$(100)(101)(99)(105)(109)(97)(108)(32)(112)(108)(97)(99)(101)"."dX Q1160:5000:1000:9500dl 14000:CASE$"L"dv Q0:Q10:Q$S$"FOR ALL "S$"ACIDS WITH MORE":5000:1000)e Q120:Q$"THAN ONE "S$"HYDROGEN IN THE":5(105)(110)(32)(83)(99)(105)(101)(110)(116)(105)(102)(105)(99)(32)c< Q$Q$"N"(111)(116)(97)(116)(105)(111)(110)"."cD Q1140:5000:1000dN Q$(119)(105)(116)(104)(32)(111)(110)(101)(32)~dS Q8)(105)(98)(114)(105)(117)(109)"."fb Q1100:5000:1000b& Q$(89)(111)(117)(114)" "(97)(110)(115)(119)(101)(114)c+ Q$Q$(32)(115)(104)(111)(117)(108)(100)(32)(98)(101)c0 Q1120:5000:1000}c: Q$:5000:1000GFRD1$" "D2$" "21070bHRA31A4$"1.0":21066uIRQ$(A3):7000JRQ$"(LAST TIME YOU CHOSE":Q160:Q0:Q160:5000:1000*KRA4$A4$(32)(109)(111)(108)(101)(115)(47)(108)(105)(116)(101)(114)")":Q180:Q$A4$:(116)(104)(101)(32)(67)(111)(110)(99)(101)(110)(116)(114)(97)(116)(105)(111)(110)(32)(111)(102)0RQ120:5000:1000:RQ$(83)(116)(97)(110)(100)(97)(114)(100)(32)(72)(67)(108)"?",DRQ140D2150:D388:D4123:D5139:D60:D91: RESET PLOTTING POINTERSˁ R14000:Q$(68)(111)(32)(121)(111)(117)(32)(119)(97)(110)(116)(32)(116)(111)RQ$Q$(32)(99)(104)(111)(111)(115)(101)RQ10:5000:1000&RQ$D6D6E1:E21E1:D6D61TPD650(D650)20700PDD1:3:D12,DD2,D: NEW NAOH LEVELPD1151D1161D1171D1181ē141,D1D2,D1:20690րPD2(D2)20690P3:145,D1D2,D1P ** TITRATION **PE2:`RD175:D1110:"X"20607B}PD65(D65)20640[PD30D3D31:20640}PD396Ē6:D4,97D5,97:20640P6:D4,D3D5,D3:D3D31P5:D4,D3D5,D3: NEW HCL LEVEL PD3132D3172ē131,D31D5,D31:20640P(D31)4((D31)4)ē136,D31D5,D319P DRAW DROP3 ~dP3:130,D:129,D1:128,D2128,D6:129,D7131,D7:132,D6132,D2:131,D1: XDRAW DROP3 ~nP3:D12,DD2,D: REDRAW NAOH LEVEL xPA0A0(E1.05):B1B1(E1.05):D6D6E1: INC. DROP COUNTER & ADJ. INTERNAL LEVELS)zPD$8,157128,161:129,162131,162:132,161132,157:131,156: DRAW DROP2}PP6:130,155:129,156:128,157128,161:129,162131,162:132,161132,157:131,156: XDRAW DROP2-~ZP5:130,D:129,D1:128,D2128,D6:129,D7131,D7:132,D6132,D2:131,D1: ,147:129,148:128,149128,153:129,154131,154:132,153132,149:131,148: DRAW DROP|2P6:130,147:129,148:128,149128,153:129,154131,154:132,153132,149:131,148: XDRAW DROP}xNQ$"":Q0:Q1170:Q2220:Q1170:1000:yN VALVE CLOSEDyN155,110155,106156wN113,114113,116:115,114115,116:117,112117,116:119,112119,116:121,112121,116:123,112123,116wN153,111152,112152,118153,119xN108,150153,150:154,151:153,152:152,153152,190:151,191110,191:109,190109,153:108,152:107,1513x122150,123150,124135,122132,146iv>N129,146126,120111,118111,109vHN111,111110,111110,117111,117vRN109,113108,113108,116109,116v\N111,109125,108122,99122,0vfNX131:Y4964 wpNY32Y72ēX,Y138,Y:20100wzN136,Y138,Y!wN0Sg#Q120:Q$"WHEREVER THE UNDERLINE":5000:1000g #Q140:Q$"(CURSOR) IS LOCATED, OR":5000:1000g#Q160:Q$"PRESS THE "S$"SPACE BAR TO":5000:1000g#Q180:Q$"ADVANCE THE CURSOR UNTIL":5000:1000%h#Q1100:Q$"IT IS BELOW THE NUMBER":5000:000:1000]f"Q120:Q$"ANSWER YOU WILL SEE THAT":5000:1000f"Q140:Q$"THE FORMAT FOR THAT ANSWER":5000:1000f"Q160:Q$"IS ALREADY ON THE SCREEN.":5000:1000f"CASE$" ":9500:14000!g"CASE$"L":Q10:Q$S$"YOU CAN ENTER A NUMBER":5000:100:20140:B3$(A)A$:20130FkNA:20250QkN12000fkNQ0:Q$B4$:1000kN(16384)127ľA$:20180kNQ$(154):1000:20150kN(A$)32(A$)9020150kNQ$(154):1000 lN(B4$)14920230,20200,20200,20200,20200,20210,20220*lNC7(A$):C748C1))155C5%(A1)A:20070bj\N((B2$,A,1))156C6%(A1)A:20070ijfNA{jzNA0(B2$)1jNC4%(A)26B4$(150):Q2C3(A10):20140:B3$(A)A$:20130jNC5%(A)26B4$(155):Q2C3(A10):20140:B3$(A)A$:201308kNC6%(A)26B4$(156):Q2C3(A10)1:16050Ii>:14000::(4);"RUN START"ki>CCCC2:DC((CC1)2):16080wi>CCCC1i>DC((CC2)1)i>15000:A3$Q$i>i NQ1C0:Q10(Q120):Q$B2$:5000:C3Q2i*N1000i>NA1(B2$)jHN((B2$,A,1))150C4%(A1)A:200709jRN((B2$,A,(PER%)"%":Wh>R1$"1"CC0RTRT1:16050:INCRTCC.h>R1$"1"CC2(CC2)CC0:RTRT1:16050h>R1$"1"CC2(CC2)RTRT1:16050h>R1$"2"CC0WRWR1:16060h>R1$"2"CC2(CC2)CC0:WRWR1:16060(i>R1$"2"CC2(CC2)WRWRľA$*g.yg2Q1:Q1171:Q280:Q$"":1000:S1200:4000:Q1:Q$" ":1000:Q0:g6::16302,0:g:Q$"CC= ":Q$Q$(DC):Q$Q$" R= ":Q$Q$(RT):Q$Q$" W= ":Q$Q$(WR)g:RTWR0Q$Q$" 0%":-h:PER%RT(RTWR)100:Q$Q$" ":Q$Q$L'I4COMP$(A)(72)(67)(79)(126):10080nfV'I4COMP$(A)(72)(83):10080fX'I4COMP$(A)(72)(80)(79)(127):10080fZ'I4COMP$(A)(83)(79)(126)(147):10080f`':f*A1:Q$(A1)f+A1:A10ı g +Q$Q$(A1):11010$g.(16384)127 MENU2":4e'A08se'A110020,10080,10030,10040,10050,10060,10070,10072,10074e$'I4COMP$(A)(72)(83)(79)(126):10080e.'I4COMP$(A)(72)(125)(80)(79)(127):10080e8'I4COMP$(A)(70):10080fB'I4COMP$(A)(78)(79)(125):10080Lf1)(110)(116)(101)(114):5000:1000Xd#CASE$"L"d#Q1160:Q$"YOUR COMPLETED ANSWER.":5000:1000:CASE$" ":9500:14000:d%12000:Q$"Q= QUIT, C= CONTINUE":Q1179:5000:1000d&%A$:A$"C"Č1052:e0%A$"Q"9510)e:%14000:::A2$;"RUN:1000Zc#Q180:Q$"ADVANCE THE CURSOR UNTIL":5000:1000c#Q1100:Q$"IT IS BELOW THE NUMBER":5000:1000c#Q1120:Q$"THAT YOU WANT TO CHANGE.":5000:1000Jd#CASE$" ":Q1140:Q$"P"(114)(101)(115)(115)" "(116)(111)(32)(10EN.":5000:1000Kb"CASE$" ":9500:14000b"CASE$"L":Q10:Q$S$"YOU CAN ENTER A NUMBER":5000:1000b#Q120:Q$"WHEREVER THE UNDERLINE":5000:1000b #Q140:Q$"(CURSOR) IS LOCATED, OR":5000:1000&c#Q160:Q$"PRESS THE "S$"SPACE BAR TO":5000UFFER.":5000:1000Ga0 CASE$" ":9500Ra"14000a"CASE$"L":Q0:Q10:Q$S$"WHEN YOU ENTER YOUR":5000:1000a"Q120:Q$"ANSWER YOU WILL SEE THAT":5000:1000a"Q140:Q$"THE FORMAT FOR THAT ANSWER":5000:10000b"Q160:Q$"IS ALREADY ON THE SCRE:Q1140:5000:1000:CASE$" ":9500X`14000:CASE$"L"` Q0:Q10:Q$S$"IN ALL PROBLEMS, IGNORE":5000:1000` Q120:Q$"THE EFFECT OF THE "S$"ION":5000:1000` Q140:Q$"WHICH IS COMMON TO THE":5000:10003a& Q160:Q$S$"ACID AND THE "S$"B(146)(93)" FOR A":Q160:5000:1000}_Q$S$"BUFFERED SOLUTION OF A":Q180:5000:1000_Q$"WEAK "S$"ACID AT "S$"EQUILIBRIUM.":Q1100:5000:1000_Q$S$"ALWAYS GIVE YOUR ANSWER IN":Q1120:5000:1000C`Q$S$"SCIENTIFIC "S$"NOTATION."):A4(A$):G^@B3((B3.05)10)10:\^CASE$"L":14000^Q$S$"THIS SECTION OFFERS":Q0:Q10:5000:1000^Q$"PRACTICE IN "S$"BUFFER":Q120:5000:1000^Q$"PROBLEMS. "S$"YOU WILL BE":Q140:5000:1000H_Q$"CALCULATING "(91)S$"H"310:U22:7580i]`A41U3A4.005:U3((U3100)):U3U310:U21:7580o]j]~U2((Q1$,(Q1$)2))]U3((Q1$,1,(Q1$)3))]U3((U3.05)10)10]U310U31:U2U21 ^U310ĺ"SYSTEM ERROR #1 CONTACT DISTRIBUTOR":,^A$(U3)"E"(U2(Q$,1,A61):A4$A4$"X10"T\A70A4$A4$(147)\A8(A7):A89A4$A4$(137):A8A810\A8A8136\A4$A4$(A8)\\A64A$(Q$,1,3)(Q$,A6):Q$A$::7000\\LQ1$(A4):A4.0175500]VA4.1U3A4.0005:U3((U31000)):U3U120:5000:1000f\Q$"CORRECT "S$"EQUILIBRIUM ":Q140:5000:1000\Q$S$"EXPRESSION FOR "S$"ACID":Q160:5000:1000\Q$S$"EQUILIBRIUM "S$"REACTIONS.":Q180:5000:1000\CASE$" ":9500]CASE$"L":14000:] Q$S$"WHEN YOU SEE AN EXA4$(137):A8A810B[A8A8136T[A4$A4$(A8)Z[[A64A$(Q$,1,3)(Q$,A6):Q$A$::7000[[@B3((B3.05)10)10:[14000:CASE$"L"[Q$S$"IN THIS SECTION YOU WILL"[Q0:Q10:5000:10000\Q$"BE ASKED TO IDENTIFY THE":QZ6020.ZkZXA51(Q$):(Q$,A5,1)"E"A6A5:A5(Q$)::7080:7020Zb:B2(Q$):B2.099Q$(B210)"E-1":7000ZgQ$(B2100)"E-2":7000ZlA7((Q$,A61))ZvA4$(Q$,1,A61):A4$A4$"X10" [A70A4$A4$(147)4[A8(A7):A89A4$(A$)902130HYMR1$A$:R250:::2070RYRR2:XYjYS11S:S1:zYQ$Q$(13)Y4025YQ2(786)10YYpA2$;"READ COMPOUNDS"YzA1YQ$"":AA1YA136090YA1YA106070ZQ$Q$(A1)Z6030ZCOMP$(A)Q$(Q0:Q2R1:Q$(154):1000:Q$R1$"?"(32)(154)(154)(154)(154):1000X Q0:Q2R122:Q$" .":1000:2120X%Q$" ..":1000:2120X*Q$" ...":1000:2120:1052X4Q1:Q2R1:Q$" ":1000: YHR2150:(16384)1282130-YJA$:(A$)32SE$)4WQ$Q$(13)@W$3584:_WQ0:Q1R:Q2R1:Q$R$:1000jW12000vWR1$" "WQ1R20:Q2R1:Q$(150)"?"W1000W (16384)1282065WR1$"":R1$:(R1$)32(R1$)902060W2070XQ1R20:Q$(154):Q$Q$"?":Q0:1000:2040mX220JV{LEVEL0LEVEL1:A411:B715:630V(803)0Ĺ(800),CC:(801),RT:(802),WR::A2$;"RUN I-2":V:A2$;"RUN MENU2"VVVQ01040VQ5Q1Q20:Q5191Q5191VQ4Q1Q5V0:0,Q4279,Q4:Q4W786,Q2:787,Q1$W944,(CAFU:R1$"4"İ14000::A2$;"RUN MENU2"UD14000:Q0:CASE$"L":Q$S$"THE CORRECT EXPRESSION IS:":Q10:Q25:1000UNCASE$" ":A2B8:B80:B5$"X":21000:B8A2:9500UXB5$" ":470UbPER%79(RTWR)4R1$"1"635VlCC2(CC2)CC5635$Vv9500:60:Q20:1000dTQ$"3) "S$"TRY ANOTHER PROBLEM":Q180:Q20:1000TQ$"4) "S$"QUIT":Q1100:Q20:1000TCASE$" "TR140:Q$"ENTER 1-4?":5000:R1Q2:R$Q$:2000T!R1$"1"R1$"4"İ13000:540U&R1$"1"İ14000:20010:230U0R1$"3"220R "S$"REACTANTS.":Q180:Q265:1000pSCC2(CC2)CC3LEVEL0:A40:B711SCASE$" ":9500S14000SQ0:Q$"YOU HAVE 4 OPTIONS:":Q10:Q240:1000SCASE$"L":Q$"1) "S$"KEEP LOOKING":Q140:Q20:1000-TQ$"2) "S$"SEE THE ANSWER":Q1а16000dR14000:CASE$"L":Q$S$"THIS IS NOT":Q10:Q275:Q0:1000RQ$"THE CORRECT RESPONSE.":Q120:Q230:1000RQ$S$"REMEMBER THAT THE":Q140:Q250:1000SQ$S$"K"(152)(32)S$"EXPRESSION HAS "S$"PRODUCTS":Q160:Q20:1000ESQ$"OVEPBR%(A,3)PBR%(A1,3):AIQ,B8B81:230TQ616000Q8123,DP(1):124,DP(2):125,DP(3):126,DP(4):A(7(1))1:L1A:E$:LQ:14000:Q0:Q$E$:Q180:5000:1000R<CASE$"L":Q$S$"YOUR ANSWER IS CORRECT!":Q1100:Q220:1000R@CASE$" ":610&RP200004P21000[PR1$"Q"İ14000::A2$;"RUN MENU2"lPR1$"U"230PR1$"Y"B90EQU(B4)1:R1$"1":310PR1$"N"B90280PR1$"2":400PB9B813008Q"AB9B82:PBR%(A,0)PBR%(A1,0):PBR%(A,1)PBR%(A1,1):PBR%(A,2)PBR%(A1,2):(123):DP(2)(124):DP(3)(125):DP(4)(126)dO2CASE$" ":S$(21)vO<LEVEL0:B711OFCC(800):RT(801):WR(802)OnA2$;"OPEN COMPOUNDS"Ox6000OA2$;"CLOSE COMPOUNDS"OA2$;"OPEN I-1COMPS"O9000PA2$;"CLOSE I-1COMPS"P8100)@9N ** I-1 8/26/82 **yN COMP$(12),I1COMP$(10),PAR%(14,2),PBR%(11,3),B1$(3),EQU(14)NA2$(4)N14000NA014:A1:PAR%(A,0)A1:A1:PAR%(A,1)A1:A1:PAR%(A,2)A1: O(D1PTR(123):D2PTR(124):D3PTR(125):D4PTR(126)O-10000MO.DP(1)                 )Q$.\60204\q\XA51(Q$):(Q$,A5,1)"E"A6A5:A5(Q$)::7080:7020\b:B2(Q$):B2.099Q$(B210)"E-1":7000\gQ$(B2100)"E-2":7000\lA7((Q$,A61))\vA4$(Q$,1,A61):A4$A4$"X10"]A70A4$A4$(147)>]A8(A7):A0 *"3[ 8R[ "* * * * * * * * * * * *"X[ ^[p[S11S:S1:[Q$Q$(13)[4025[Q2(786)10[[pA2$;"READ COMPOUNDS"[zA1[Q$"":AA1[A116090[A1[A106070 \Q$Q$(A1)\6030$\COMP$(A)BZ R3$(8)" "EX$(2)" ":2750^Z EX$(2)((R3$(8))136)Z R3(R3$(0)"."R3$(2)"E-"EX$(1)EX$(2))Z R1$(R3):Z " * * * * * * * * * * * *"Z 8:"* *"Z 8 [ "* NOW LOADING ";A1$;"*",[ 8:"* 825800Yd 2640YYn HCUR6R3$(HCUR)((A$)136):2690jYx R3$(HCUR)A$Y Q$(154):Q1150:Q2QQHCUR10:1000:Q$R3$(HCUR):1000:2630Y Q$(154):Q1162:1000:Q1:Q1181:Q$" ":Q20:1000Z R3$(7)" "EX$(1)" ":2730!Z EX$(1)((R3$(7))136Q0:Q1162:Q2QQHCUR10:Q$CUR$:1000]X A$:A$(13)2700yX( (A$)47(A$)582670X2 A$" "2590X7 HCUR82630X< Q$(154):Q1150:1000:R3$(HCUR)" "XF Q$(154):Q1162:1000YP HCURHCUR1:HCUR9HCUR0&YZ HCUR0HCUR2HCUR7HCURR2:GW R3$" . X10"(147)" "UN$~W R$" ":R3$(0)" ":R3$(2)" ":R3$(7)" ":R3$(8)" "W CUR$(147):HCUR0W Q$R1$W Q0:Q1130:5000:1000W 12000:Q$"PRESS WHEN DONE":Q1181:5000:1000X Q1150:Q$R3$:5000:QQQ2:1000FX (154)(154)(154)(154):1000hV Q0:Q2R122:Q$" .":1000:2120V%Q$" ..":1000:2120V*Q$" ...":1000:2120:1052V4Q1:Q2R1:Q$" ":1000:VHR2150:(16384)1282130WJA$:(A$)32(A$)902130WMR1$A$:R250:::2070&WRR:Q2R1:Q$R$:1000>U12000JUR1$" "jUQ1R20:Q2R1:Q$(150)"?"tU1000U (16384)1282065UR1$"":R1$:(R1$)32(R1$)902060U2070UQ1R20:Q$(154):Q$Q$"?":Q0:1000:2040AVQ0:Q2R1:Q$(154):1000:Q$R1$"?"(32)ANSWER WAS:":Q160:Q220:1000tT CASE$" ":Q$(A4):7000:Q$A4$:Q180:5000:1000zTTTQ01040TQ5Q1Q20:Q5191Q5191TQ4Q1Q5T0:0,Q4279,Q4:Q4T786,Q2:787,Q1T944,(CASE$)UQ$Q$(13)U$3584:3UQ0:Q14000:R1$"2"750MS:A1(7(1)):E$:AmSQ0:Q180:Q$E$:5000:1000{SCASE$"L"SQ$S$"YOUR ANSWER IS CORRECT!":Q1100:Q220:1000SCASE$" ":SCASE$"L"TQ$S$"YOUR ANSWER IS INCORRECT.":Q140:Q210:1000>TQ$S$"THE CORRECT 00:16000ERCC2(CC2)CC3540hRPER%79(RTWR)4R1$"1"600RCC2(CC2)CC5600R9500:220R803,CC:804,RT:805,WRR&:A2$;"RUN I-1"SX(806)0Ĺ(803),CC:(804),RT:(805),WR::A2$;"RUN I-3":Sb:A2$;"RUN MENU2"1S1(116)(101)(114)ZQR1$(91)(72)(146)(93)"="dQ2500QRS(R3$(0)"."R3$(2)):RE(EX$(1)EX$(2)):Q$(A4):7000:AS((A4$,3)):AEA010A8: REV 07/06/83 RRSAS.11RSAS.11REAER1$"1":490RR1$"2")R7(R3$(0)"."R3$(2)):RE(EX$(1)EX$(2)):Q$(A4):7000:AS((A4$,3)):AEA010A8: REV 07/06/83 PRSAS.11RSAS.11REAER1$"1":490PR1$"2":490P230005QUN$(32)(109)(111)(108)(101)(115)(47)(108)(105)$" "?OnA2$;"OPEN COMPOUNDS"IOx6000dOA2$;"CLOSE COMPOUNDS"yOA2$;"OPEN KA'S"OA2$;"READ KA'S"OA010:KA$(A):OA2$;"CLOSE KA'S"O8100O(2(1))1230,400O22000OUN$" " PR1$(75)(152)"="P2500PRS(HN ** I-2 6/1/82 ** REV 05/23/83 **N COMP$(11),KA$(11),C4%(25),C5%(25),C6%(25),B3$(25)N ** REV 06/29/83 **NA2$(4)N14000NA025:C4%(A)26:C5%(A)26:C6%(A)26:B3$(A)" ":AN(S$(21)O2CC(803):RT(804):WR(805)%O<CASE                \A106070=\Q$Q$(A1)G\6030W\COMP$(A)Q$a\6020g\\XA6(Q$): GET VALUE\bA70\lA8A610A7.05:A89.900000001A7A71:7020\vA81A7A71:7020]A6A610A7.05: ROUND TO X.S X 10^A7 WHERE S=SIG DIGIT?]A6(A61=[ "* NOW LOADING ";A1$;"*"_[ 8:"* *"f[ 8[ "* * * * * * * * * * * *"[ [[S11S:S1:[Q$Q$(13)[4025[Q2(786)10[[pA2$;"READ COMPOUNDS"[zA1\Q$"":AA1\A116090\A1-" ":2730FZ EX$(1)((R3$(7))136)gZ R3$(8)" "EX$(2)" ":2750Z EX$(2)((R3$(8))136)Z R3(R3$(0)R3$(1)"."R3$(2)R3$(3)"E-"EX$(1)EX$(2))Z R1$(R3):Z " * * * * * * * * * * * *"[ 8:"* *"[ 82580KY_ B71(HCUR0HCUR2HCUR3)2580UYd 2640~Yn HCUR6R3$(HCUR)((A$)136):2690Yx R3$(HCUR)A$Y Q$(154):Q1150:Q2QQHCUR10:1000:Q$R3$(HCUR):1000:2630 Z Q$(154):Q1162:1000:Q1:Q1181:Q$" ":Q20:1000*Z R3$(7)" "EX$(1)2:Q2QQHCUR10:Q$CUR$:1000TX A$:A$(13)2700pX( (A$)47(A$)582670X2 A$" "2590X7 HCUR82630X< Q$(154):Q1150:1000:R3$(HCUR)" "XF Q$(154):Q1162:1000XP HCURHCUR1:HCURE5HCUR0%YZ B72(HCUR0HCUR2HCUR7HCUR8)R3$UN$uW R$" ":R3$(0)" ":R3$(1)" ":R3$(2)" ":R3$(3)" ":R3$(7)" ":R3$(8)" "W CUR$(147):HCUR0W Q$R1$W Q0:Q1130:5000:1000W 12000:Q$"PRESS WHEN DONE":Q1181:5000:1000X Q1150:Q$R3$:5000:QQQ2:1000=X Q0:Q116(154)(154):1000ZV Q0:Q2R122:Q$" .":1000:2120tV%Q$" ..":1000:2120V*Q$" ...":1000:2120:1052V4Q1:Q2R1:Q$" ":1000:VHR2150:(16384)1282130VJA$:(A$)32(A$)902130WMR1$A$:R250:::2070WRR2:(W R3$10000U12000Q25000JQUN$" "cQR1$(75)(152)"="QR3$" . X10"(147)" ":E59:2500Q30000:(A410N1R310N).111111111R1$"1":490: REV 08/29/83QR1$"2"Q700:16000 RCC2(CC2)CC35400RPER%79(RTWPA010:KA$(A):JPA2$;"CLOSE KA'S"aP PROGRAM CONTROL P 270,440, 25000,30000 08/16/83 P8100PB7(2(1))1:B7230,400P24000PUN$" "PR1$(112)(72)"="PR3$" . ":E53:2500"Q(A4R3).011111111111R1$"1":4,B3$(25)5OA2$(4)@O14000MOS$(21)oO(CC(806):RT(807):RW(808)}O2CASE$" "OZA025:C4%(A)26:C5%(A)26:C6%(A)26:B3$(A)" ":AOnA2$;"OPEN COMPOUNDS"Ox6000OA2$;"CLOSE COMPOUNDS" PA2$;"OPEN KA'S"PA2$;"READ KA'S"4 N ** I-3 6/1/82 ** REV 08/29/83 O COMP$(10),KA$(10)(O C4%(25),C5%(25),C6%(25)            !4RSA4BB1A3:A050I\S14000:CASE$"L"fSQ0:Q10:Q$S$"YOU WILL BE "S$"TITRATING":Q225:1000̉pSQ120:Q$"40 ML OF "S$"NA"S$"O"S$"H"" UNKNOWN":5000:1000NzSCASE$" ":Q140:Q$(119)(105)(116)(104)(32)A5$(32)(109)(111)(250@ SA2(R1$):R1$"N":21100zSD1$" "B(100(1))1:BB100: SELECT NAOH CONC.SB140: ASSIGN NAOH LITERS SA0$"Y"21330Ɉ*S ** SELECT A CLOSE BASE܈4SD1$"X"21330>SBA3(((30(1))1)100):21320HSB1B1MSB.01B.0114)GRQ160:Q20:Q$"1) 1.0"A$:1000wRQ180:Q$"2) 5.0X10"(147)(137)A$:1000RQ1100:Q$"3) 1.0X10"(147)(137)A$:1000هRQ1120:Q$"4) 1.0X10"(147)(138)A$:1000SR140:R10:R$"ENTER 1-4?":2000#S(R1$)1(R1$)4İ13000:2110)(99)(101)(110)(116)(114)(97)(116)(105)(111)(110)RQ$Q$(32)(111)(102):Q0:Q10:5000:1000ʆRQ$(72)(67)(108)".":Q120:5000:1000#RA$(32)(109)(111)(108)(101)(115)(47)(108)(105)(116)(101)(1130,21140CvRA31:A5$"1.0":21150kRA3.5:Q$(A3):7000:A5$A4$:21150RA3.1:Q$(A3):7000:A5$A4$:21150RA3.01:Q$(A3):7000:A5$A4$ȅRR1$"N"21270R14000:Q$(67)(104)(111)(111)(115)(101)gRQ$Q$(32)(67)(111)(15000:1000sNRR140:R125:R$"Y= YES, N= NO, Q= QUIT?":2000:A0$R1$: SAVE CHOICESRA0$"N"D2$" "URA0$"Y"D2$"X"˄XRR1$"Y"R1$"N"R1$"Q"İ13000:21070]RR1$"Q"ġ:14000:6: bRA2(4(1))1: RANDOM INC. )lRA221110,21120,210:WRWR1:16060[f>R1$"2"CC2(CC2)WRWR1:16050|f>:14000::(4);"RUN START"f>CCCC2:DC((CC1)2):16080f>CCCC1f>DC((CC2)1)f>15000:A3$Q$f>g]14000:A2(9(1)):A9(KA$(A2)):LL1E11A9:UL1E7A9:g]A3((ULL$" 0%":`e:PER%RT(RTWR)100:Q$Q$" ":Q$Q$(PER%)"%":e>R1$"1"CC0RTRT1:16050:INCRTCC.e>R1$"1"CC2(CC2)CC0:RTRT1:16050e>R1$"1"CC2(CC2)RTRT1:16050f>R1$"2"CC0WRWR1:160601f>R1$"2"CC2(CC2)CC1:A10ı@d +Q$Q$(A1):11010Wd.(16384)127ľA$]d.d2Q1:Q1171:Q280:Q$"":1000:S1200:4000:Q1:Q$" ":1000:Q0:d6::16302,0:e:Q$"CC= ":Q$Q$(DC):Q$Q$" R= ":Q$Q$(RT):Q$Q$" W= ":Q$Q$(WR))e:RTWR0Q$Q000:10007c#CASE$"L"c#Q1160:Q$"YOUR COMPLETED ANSWER.":5000:1000:CASE$" ":9500:14000:c%12000:Q$"Q= QUIT, C= CONTINUE":Q1179:5000:1000c&%A$:A$"C"Č1052:c0%A$"Q"9510d:%14000:::A2$;"RUN MENU2":d*A1:Q$(A1))d+ACURSOR UNTIL":5000:1000lb#Q1100:Q$"IT IS BELOW THE NUMBER":5000:1000b#Q1120:Q$"THAT YOU WANT TO CHANGE.":5000:1000)c#CASE$" ":Q1140:Q$"P"(114)(101)(115)(115)" "(116)(111)(32)(101)(110)(116)(101)(114):5500:14000ha"CASE$"L":Q10:Q$S$"YOU CAN ENTER A NUMBER":5000:1000a#Q120:Q$"WHEREVER THE UNDERLINE":5000:1000a #Q140:Q$"(CURSOR) IS LOCATED, OR":5000:1000b#Q160:Q$"PRESS THE "S$"SPACE BAR TO":5000:10009b#Q180:Q$"ADVANCE THE 14000:(809)0ıp`"CASE$"L":Q0:Q10:Q$S$"WHEN YOU ENTER YOUR":5000:1000`"Q120:Q$"ANSWER YOU WILL SEE THAT":5000:1000`"Q140:Q$"THE FORMAT FOR THAT ANSWER":5000:1000a"Q160:Q$"IS ALREADY ON THE SCREEN.":5000:1000*a"CASE$" ":900:1000b_Q$(21)"ASSUME ALL REACTIONS ARE":Q180:5000:1000_Q$"AT "(21)"EQUILIBRIUM AND GIVE":Q1100:5000:1000_Q$"YOUR ANSWER IN "(21)"SCIENTIFIC":Q1120:5000:1000`Q$(21)"NOTATION.":Q1140:5000:1000:CASE$" ":95001`"+^14000f^CASE$"L":Q0:Q10:Q$(21)"IN THIS SECTION YOU WILL"v^5000:1000^Q$"HAVE PRACTICE IN":Q120:5000:1000^Q$(21)"CALCULATING "(21)"K"(152)" AND P"(21)"H":Q140:5000:1000(_Q$"FOR WEAK "(21)"ACIDS.":Q160:500)10: TRUNCATE NON-SIG-DIGITS}]A4$(A6)"X10":A70A7(A7):A4$A4$"-": BUILD STRING]A8A7: ASSIGN EACH EXP. DIGIT]A89A8(A710):A7A7A810]A4$A4$(((A8))88): EXP CHR$]A7A87070^ ^@B3((B3.005)100)100:Q2(786)10-pA2$;"READ COMPOUNDS"6zA1FQ$"":AA1UA116090]A1lA106070|Q$Q$(A1)6030COMP$(A)Q$6020XA6(Q$): GET VALUEbA70lA8A610A7.005:A89.900000001A7A71:7020v R1$(R3):5 " * * * * * * * * * * * *"W 8:"* *"^ 8| "* NOW LOADING ";A1$;"*" 8:"* *" 8 "* * * * * * * * * * * *" S11S:S1:Q$Q$(13)4025 1:Q$" ":Q20:1000C R3$(8)" "EX$(1)" ":2730: REV 05/04/83_ EX$(1)((R3$(8))136) R3$(9)" "EX$(2)" ":2750: REV 05/04/83 EX$(2)((R3$(9))136): REV 05/04/83 R3(R3$(0)"."R3$(2)R3$(3)"E-"EX$(1)EX$(2)): REV 05/04/8362:1000(P HCURHCUR1:HCURE5HCUR0UZ HCUR0HCUR2HCUR3HCUR8HCUR92580_d 2640n HCUR7R3$(HCUR)((A$)136):2690x R3$(HCUR)A$ Q$(154):Q1150:Q2QQHCUR10:1000:Q$R3$(HCUR):1000:2630 Q$(154):Q1162:1000:Q1:Q118 WHEN DONE":Q1181:5000:1000B Q1150:Q$R3$:5000:QQQ2:1000m Q0:Q1162:Q2QQHCUR10:Q$CUR$:1000 A$:A$(13)2700( (A$)47(A$)5826702 A$" "25907 HCUR92630< Q$(154):Q1150:1000:R3$(HCUR)" "F Q$(154):Q11JA$:(A$)32(A$)902130:MR1$A$:R250:::2070DRR2:T R3$R3$UN$ R$" ":R3$(0)" ":R3$(2)" ":R3$(3)" ":R3$(8)" ":R3$(9)" ": REV 05/04/83 CUR$(147):HCUR0 Q$R1$ Q0:Q1130:5000:1000 12000:Q$"PRESS 0:1000:2040_Q0:Q2R1:Q$(154):1000:Q$R1$"?"(32)(154)(154)(154)(154):1000 Q0:Q2R122:Q$" .":1000:2120%Q$" ..":1000:2120*Q$" ...":1000:2120:10524Q1:Q2R1:Q$" ":1000:HR2150:(16384)12821307,Q1944,(CASE$)&Q$Q$(13)2$3584:QQ0:Q1R:Q2R1:Q$R$:1000\12000hR1$" "Q1R20:Q2R1:Q$(150)"?"1000 (16384)1282065R1$"":R1$:(R1$)32(R1$)9020602070Q1R20:Q$(154):Q$Q$"?":QQ$S$"THE CORRECT ANSWER WAS:":Q160:Q220:1000c CASE$" ":LEVEL0Q$(A4):7000:Q$A4$:787|B3A4:8000:Q$(B3)Q180:5000:1000Q01040Q5Q1Q20:Q5191Q5191Q4Q1Q50:0,Q4279,Q4:Q4786,Q2:78-3" X530$ 14000:R1$"2"750@ :A1(7(1)):E$:A` Q0:Q180:Q$E$:5000:1000n CASE$"L" Q$S$"YOUR ANSWER IS CORRECT!":Q1100:Q220:1000 CASE$" ": CASE$"L" Q$S$"YOUR ANSWER IS INCORRECT.":Q140:Q210:1000111111R1$"1":490# R1$"2":4903 700:16000` LEVEL1CC2(CC2)CC3LEVEL0:530| CC2(CC2)CC3540 LEVEL0CC2(CC2)CC5LEVEL1:530 CC2(CC2)CC5600 9500:220 809,CC:810,RT:811,WR &:A2$;"RUN I)(72)(146)(93)"="B R3$" . X10"(147)" ":E510:2500 30000:(A410N1R310N).111111111R1$"1":490: REV 08/29/83 R1$"2":490 26000 UN$" " R1$(112)(72)"=" R3$" . ":E53:2500 (A4R3).0111111 A2$;"CLOSE COMPOUNDS". A2$;"OPEN KA'S"C A2$;"READ KA'S"Y A010:KA$(A):o A2$;"CLOSE KA'S"y 8100 LEVEL1230,400 26000 UN$(32)(109)(111)(108)(101)(115)(47)(108)(105)(116)(101)(114) R1$(91A$(11),I4COMP$(8)6 C4%(25),C5%(25),C6%(25),B3$(25)C A2$(4)N 14000Y 10000f (S$(21)t 2CASE$" " <CC(809):RT(810):WR(811) ZA025:C4%(A)26:C5%(A)26:C6%(A)26:B3$(A)" ":A _LEVEL0 nA2$;"OPEN COMPOUNDS" x6000g' ** I-4 6/1/82 ** RELEASE 2.0 08/29/83  COMP$(11),K          !     04:Q$((D7)):1000R_ZD750D0%100E%:23147qdZD0%191ē130,D0%180,D0%iZD0%181Q1D0%:Q2104:Q$((D71)):1000kZD749.14EGD0%:23170ǏlZEG190nZ(D7)0AA100E%:23170xZAA0'ZAA(AA):EG(EG):3:A1AAEG10:150,A117990,8894,9197,93100,94107,97115,99120,100126,101130,101 Z134,100140,99146,98152,97158,95164,92169,89175,85180,80FZ3׎PZA(D7(D7).00005)100:E%A10:E%E%10UZD0%100E%1004ZZ100E%10ē130,100E%180,100E%:Q1100E%:Q21D9Y:VA:D$" "22195XV(16384)128ľA$:22195fV920:910tVT:920:Y ** READ BURETTE RTN **Y10000:5:Q0YD749.44ē80,080,17090,190:180,0180,170170,190:23035Y80,080,190Y180,0180,190Y5^Z84,8086,85EN ADDED. THE SAMPLE":5000:1000:Q140:Q$"IS BEYOND THE ENDPOINT.":5000:1000:12000:TVD9022140YVAD190^VA2(A2)Ē3:22130hV2ΌrVD12,AD22,A::ߌ|VX130:YDD9팆VT12:2VT2Ē3VA2001%VX,Y(A)D9X,(A)A4.05)D97:22090Q6VD7(A4.05)D91:22090m;VD90: +-.05 OF NEUTRAL@V ** MAKE SOL RED **JVD9022100LV2:AD190:D12,AD22,A:A:0:XX0:YX065:XX,YX279,YX::Q0:Q10:Q$"WARNING: TOO MUCH ACID HAS":5000:1000yNVQ120:Q$"BE108)(97)(114)(32)(72)(67)(108)"."d|SQ140:5000:1000zSCASE$" ":9000:UD7D6.05UD8A4D7: FIGURE HOW CLOSE ΊVD8.5ı: NOT WITHIN .5 ML.VD8.4D92:22090VD8.3D94:22090"VD8.2D96:220903,VD7("Q= QUIT, C= CONTINUE":Q1179:5000:1000B &%A$:A$"C"Č1052:T 0%A$"Q"9510v :%14000:::A2$;"RUN MENU2": 'A08 'A110020,10080,10030,10040,10050,10060,10070,10072,10074 $'I4COMP$(A)(72)(83)(79)(126):10080%!.'I4COMP$(A)E.":5000:1000#CASE$" ":Q1140:Q$"P"(114)(101)(115)(115)" "(116)(111)(32)(101)(110)(116)(101)(114):5000:1000#CASE$"L"#Q1160:Q$"YOUR COMPLETED ANSWER.":5000:1000:CASE$" ":9500:14000:) %12000:Q$00:1000; #Q140:Q$"(CURSOR) IS LOCATED, OR":5000:1000s#Q160:Q$"PRESS THE "S$"SPACE BAR TO":5000:1000#Q180:Q$"ADVANCE THE CURSOR UNTIL":5000:1000#Q1100:Q$"IT IS BELOW THE NUMBER":5000:1000#Q1120:Q$"THAT YOU WANT TO CHANG THAT":5000:1000H"Q140:Q$"THE FORMAT FOR THAT ANSWER":5000:1000}"Q160:Q$"IS ALREADY ON THE SCREEN.":5000:1000"CASE$" ":9500:14000"CASE$"L":Q10:Q$S$"YOU CAN ENTER A NUMBER":5000:1000#Q120:Q$"WHEREVER THE UNDERLINE":50"ION":5000:1000G Q140:Q$"WHICH IS NOT COMMON TO THE":5000:1000& Q160:Q$S$"ACID AND THE "S$"BUFFER.":5000:10000 CASE$" ":9500"14000"CASE$"L":Q0:Q10:Q$S$"WHEN YOU ENTER YOUR":5000:1000"Q120:Q$"ANSWER YOU WILL SEE00:1000BQ$S$"ALWAYS GIVE YOUR ANSWER IN":Q1120:5000:1000Q$S$"SCIENTIFIC "S$"NOTATION.":Q1140:5000:1000:CASE$" ":950014000:CASE$"L" Q0:Q10:Q$S$"IN ALL PROBLEMS, IGNORE":5000:1000 Q120:Q$"THE EFFECT OF THE "S$20:5000:1000EQ$"PROBLEMS. "S$"YOU WILL BE":Q140:5000:1000Q$"CALCULATING "(91)S$"H"(146)(93)" FOR A":Q160:5000:1000Q$S$"BUFFERED SOLUTION OF A":Q180:5000:1000Q$"WEAK "S$"ACID AT "S$"EQUILIBRIUM.":Q1100:5000)100U310U31:U2U21SU310ĺ"SYSTEM ERROR #1 CONTACT DISTRIBUTOR":uA$(U3)"E"(U2):A4(A$):@B3((B3.05)10)10:CASE$"L":14000Q$S$"THIS SECTION OFFERS":Q0:Q10:5000:1000Q$"PRACTICE IN "S$"BUFFER":Q1EXP CHR$A7A87070:LQ1$(A4):A4.017550vVA4.1U3A4.0005:U3((U31000)):U3U310:U22:7580`A41U3A4.005:U3((U3100)):U3U310:U21:7580j~U2((Q1$,(Q1$)2))U3((Q1$,1,(Q1$)3))U3((U3.005)1A81A7A71:7020,A6A8: REV 05/04/83\A6(A6100)100: TRUNCATE NON-SIG-DIGITSA4$(A6)"X10":A70A7(A7):A4$A4$"-": BUILD STRINGA8A7: ASSIGN EACH EXP. DIGITA89A8(A710):A7A7A810A4$A4$(((A8))88): 4,58,0000: TEST PATH PROMPT\à 49,61,32,83,117,99,99,101,115,115,32,50,61,32,70,97,105,108,32,48,61,32,69,110,100,63,0 : TEST CHOICES %]à 89,111,117,32,119,105,108,108,32,110,111,119,32,98,101,32,112,114,97,99,116,105,99,105,110,103,0000: ADONE!,WELL DONE!,FANTASTIC!,EXCELLENT!,GOOD!L108)(101)(115)(32)(111)(102)(32)(78)(97)I4COMP$(A2)(32)(105)(115)q&fQ180:5000:1000q0fQ$(105)(110)(116)(114)(111)(100)(117)(99)(101)(100)"?"q:fQ1100:5000:1000qXfKrPà GOOD JOB!,VERY NICE!,NICELY D:5000:1000pfQ$A5$(32)(77)(111)(108)(97)(114)(32)(83)(111)(108)(117)(116)(105)(111)(110)p fQ140:5000:1000p fQ$(111)(102)(32)COMP$(A2)(32)(105)(102)(32)B$ qfQ160:5000:1000xqfQ$(77)(111)(LEVEL026085foeQ$Q$(32)(112)(72)(32)(111)(102):26090oeQ$Q$(32)(91)(72)(146)(93)(32)(111)(102)oeQ0:Q10:5000:1000peQ$A9$(32)(76)(105)(116)(101)(114)(115)(32)(111)(102)(32)(97),peQ120)(B6B5):7500BneLEVEL026080neB1(3(1))3:A4B1:B6A9A3B510B1:B3B6:8000:B$(B3)neB61Q$(B6):7000:B$A4$oeQ$(87)(104)(97)(116)(32)(119)(111)(117)(108)(100)(32)(98)(101)(32)(116)(104)(101).oeà GOOD JOB!,VERY NICE!,NICELY DONE!,WELL DONE!,FANTASTIC!,EXCELLENT!,GOOD!Q5000:1000qfQ$(77)(111)(108)(101)(115)(32)(111)(102)(32)(78)(97)I4COMP$(A2)(32)(105)(115)q&fQ180:5000:1000q0fQ$(105)(110)(116)(114)(111)(100)(117)(99)(101)(100)"?"r:fQ1100:5000:1000rXflrP111)(102)(32)(97)MpeQ120:5000:1000pfQ$A5$(32)(77)(111)(108)(97)(114)(32)(83)(111)(108)(117)(116)(105)(111)(110)p fQ140:5000:1000q fQ$(111)(102)(32)COMP$(A2)(32)(105)(102)(32)B$*qfQ160:)(32)(116)(104)(101)OoeLEVEL026085oeQ$Q$(32)(112)(72)(32)(111)(102):26090oeQ$Q$(32)(91)(72)(146)(93)(32)(111)(102)oeQ0:Q10:5000:10007peQ$A9$(32)(76)(105)(116)(101)(114)(115)(32)($(A2):7000:A6$A4$PneA4(A9A3)(B6B5):7500cneLEVEL026080neB1(3(1))3:A4B1:B6A9A3B510B1:B3B6:8000:B$(B3)neB61Q$(B6):7000:B$A4$":5000:1000l$OA$l)OA$"Q"ġ:14000::A2$;"RUN MENU2" m.O(A$)020000m8O(A$)120260#mA4$"-": BUILD STRINGZOA8A7: ASSIGN EACH EXP. DIGIT|OA89A8(A710):A7A7A810OA4$A4$(((A8))136): EXP CHR$ OA7A87070O A)136): EXP CHR$ OA7A87070O A:NXA6(Q$): GET VALUECNbA70uNlA8A610A7.05:A89.900000001A7A71:7020NvA81A7A71:7020NA6A610A7.05: ROUND TO X.S X 10^A7 WHERE S=SIG DIGITNA6(A610)10: TRUNCATE NON-SIG-DIGITS7OA4$(A6)"X10":A70A7(A7):A4$ 0-g>CCCC1@g>DC((CC2)1)Rg>15000:A3$Q$Xg>g NQ1C0:Q10(Q120):Q$B2$:5000:C3Q2g*N1000g>NA1(B2$)gHN((B2$,A,1))150C4%(A1)A:20070gRN((B2$,A,1))155C5%(A1)A:20070h\N((B2$,A,1))156C6%(A1)A:20070hfNA(CC2)CC0:RTRT1:16050ef>R1$"1"CC2(CC2)RTRT1:16050f>R1$"2"CC0WRWR1:16060f>R1$"2"CC2(CC2)CC0:WRWR1:16060f>R1$"2"CC2(CC2)WRWR1:16050f>:14000::(4);"RUN START"!g>CCCC2:DC((CC1)2):1608" ":1000:Q0:Ce6::16302,0:e:Q$"CC= ":Q$Q$(DC):Q$Q$" R= ":Q$Q$(RT):Q$Q$" W= ":Q$Q$(WR)e:RTWR0Q$Q$" 0%":e:PER%RT(RTWR)100:Q$Q$" ":Q$Q$(PER%)"%": f>R1$"1"CC0RTRT1:16050:INCRTCC.R1$"1"CC2d'A1$(1):Q0:Q10:Q240::11000:1000`d'Q112:11000:1000id'Q20d$'Q1309020:11000:1000::d*A1:Q$(A1)d+A1:A10ıd +Q$Q$(A1):11010d.(16384)127ľA$d./e2Q1:Q1171:Q280:Q$"":1000:S1200:4000:Q1:Q$R3)A4.1R1$"1":490HQR1$"2":490XQ700:16000QLEVEL1CC2(CC2)CC3LEVEL0:530QCC2(CC2)CC3540QLEVEL0CC2(CC2)CC5LEVEL1:530QCC2(CC2)CC5600Q9500:220R809,CC:810,RT:811,WR(R&:A2$;"0,111,119,32,98,101,32,112,114,97,99,116,105,99,105,110,103,0à 119,105,116,104,32,112,114,111,98,108,101,109,115,32,105,110,0@03,0]à 119,105,116,104,32,112,114,111,98,108,101,109,115,32,105,110,0 A,A1:A1dZQ$"":Q0:Q1150:Q2220:1000:Q$"":Q1170:1000:y[PC6:YXDPC3[PC[XX,YX:ΐPà VERY NICE!,NICELY DONE!,WELL DONE!,FANTASTIC!,EXCELLENT!`(4);"SAVE III-1"::"PROGRAM SAVED":A":I-1"::"PROGRAM SAVED":(116)(101)(114):5000:1000Mc#CASE$"L"c#Q1160:Q$"YOUR COMPLETED ANSWER.":5000:1000:CASE$" ":9500:14000:c%12000:Q$"Q= QUIT, C= CONTINUE":Q1179:5000:1000c&%A$:A$"C"Č1052:c0%A$"Q"9510d:%14000:::A2$;"RUN MENU3":IQ180:Q$"ADVANCE THE CURSOR UNTIL":5000:1000b#Q1100:Q$"IT IS BELOW THE NUMBER":5000:1000b#Q1120:Q$"THAT YOU WANT TO CHANGE.":5000:1000?c#CASE$" ":Q1140:Q$"P"(114)(101)(115)(115)" "(116)(111)(32)(101)(110)1000@a"CASE$" ":9500:14000~a"CASE$"L":Q10:Q$S$"YOU CAN ENTER A NUMBER":5000:1000a#Q120:Q$"WHEREVER THE UNDERLINE":5000:1000a #Q140:Q$"(CURSOR) IS LOCATED, OR":5000:1000b#Q160:Q$"PRESS THE "S$"SPACE BAR TO":5000:1000Ob#CASE$" ":9500G`"14000:(803)0ı`"CASE$"L":Q0:Q10:Q$S$"WHEN YOU ENTER YOUR":5000:1000`"Q120:Q$"ANSWER YOU WILL SEE THAT":5000:1000`"Q140:Q$"THE FORMAT FOR THAT ANSWER":5000:1000%a"Q160:Q$"IS ALREADY ON THE SCREEN.":5000:0[_Q$"HAVE COMPLETELY "S$"IONIZED.":Q180:5000:1000_Q$S$"USE "S$"K"(151)"= 1X10"(147)(137)(140)" AND GIVE":Q1100:5000:1000_Q$"YOUR ANSWER IN "S$"SCIENTIFIC":Q1120:5000:1000`Q$S$"NOTATION.":Q1140:5000:10000`(47)(108)(105)(116)(101)(114)nPR1$(91)(72)(146)(93)"="PR3$" . X10"(147)" ":E510:2500P(A4R3)A4.01R1$"1":490PR1$"2":490P26000PUN$" "PR1$(112)(72)"="QR3$" . ":E53:25007Q(A4N11N1N11:30050GOluN1N11:300505(JN(A4R3).011111111111R1$"1":490N30000:(A410N1R310N).111111111R1$"1":490: REV 08/29/83N0u ** LEAST SIG +- 1 **N:uN(EX$(1))NDuEX$(2)" "NN10NNuNN(EX$(2))NXuN11Obu(A410N110)(A410N11)ı4OduA410 A70A4$A4$(147)^\A8(A7):A89A4$A4$(137):A8A810l\A8A8136~\A4$A4$(A8)\\A64A$(Q$,1,3)(Q$,A6):Q$A$::7000\\LQ1$(A4):A4.017550]VA4.1U3A4.0005:U3((U31000)):U3U310:U22:7580H]`A41U3A4[Q$Q$(A1)8[6040H[COMP$(A)Q$R[6020X[[XA51(Q$):(Q$,A5,1)"E"A6A5:A5(Q$)::7080:7020[b:B2(Q$):B2.099Q$(B210)"E-1":7000[gQ$(B2100)"E-2":7000[lA7((Q$,A61))\vA4$(Q$,1,A61):A4$A4$"X10"3\ADING ";A1$;"*"QZ 8:"* *"XZ 8wZ "* * * * * * * * * * * *"}Z ZZS11S:S1:ZQ$Q$(13)Z4025ZQ2(786)10ZZpA2$;"READ II-2COMPS"ZzA1ZQ$"":AA1[A96100[A1[A106080." ":2730FY EX$(1)((R3$(7))136)gY R3$(8)" "EX$(2)" ":2750Y EX$(2)((R3$(8))136)Y R3(R3$(0)"."R3$(2)"E-"EX$(1)EX$(2))Y R1$(R3):Y " * * * * * * * * * * * *" Z 8:"* *"Z 8/Z "* NOW LOCUR0KXZ HCUR0HCUR2HCUR7HCUR82580UXd 2640~Xn HCUR6R3$(HCUR)((A$)136):2690Xx R3$(HCUR)A$X Q$(154):Q1150:Q2QQHCUR10:1000:Q$R3$(HCUR):1000:2630 Y Q$(154):Q1162:1000:Q1:Q1181:Q$" ":Q20:1000*Y R3$(7)" "EX$(1) Q1150:Q$R3$:5000:QQQ2:1000kW Q0:Q1162:Q2QQHCUR10:Q$CUR$:1000W A$:A$(13)2700W( (A$)47(A$)582670W2 A$" "2590W7 HCUR82630W< Q$(154):Q1150:1000:R3$(HCUR)" "XF Q$(154):Q1162:1000%XP HCURHCUR1:HCUR9H02130AVMR1$A$:R250:::2070KVRR2:lV R3$" . X10"(147)" "UN$V R$" ":R3$(0)" ":R3$(2)" ":R3$(7)" ":R3$(8)" "V CUR$(147):HCUR0V Q$R1$V Q0:Q1130:5000:1000W 12000:Q$"PRESS WHEN DONE":Q1181:5000:1000@W R1:Q$(154):1000:Q$R1$"?"(32)(154)(154)(154)(154):1000U Q0:Q2R122:Q$" .":1000:2120U%Q$" ..":1000:2120U*Q$" ...":1000:2120:1052U4Q1:Q2R1:Q$" ":1000:VHR2150:(16384)1282130&VJA$:(A$)32(A$)9Q$Q$(13)9T$3584:XTQ0:Q1R:Q2R1:Q$R$:1000cT12000oTR1$" "TQ1R20:Q2R1:Q$(150)"?"T1000T (16384)1282065TR1$"":R1$:(R1$)32(R1$)902060T2070UQ1R20:Q$(154):Q$Q$"?":Q0:1000:2040fUQ0:Q2S$"THE CORRECT ANSWER WAS:":Q160:Q220:1000|S CASE$" ":A4$(A4):A41Q$(A4):7000SQ$A4$:Q180:5000:1000SSSQ01040SQ5Q1Q20:Q5191Q5191SQ4Q1Q5S0:0,Q4279,Q4:Q4 T786,Q2:787,Q1T944,(CASE$)-TNU3":14000::(4);"RUN START"sd>CCCC2:DC((CC1)2):16080d>CCCC1d>DC((CC2)1)d>15000:A3$Q$d>d NQ1C0:Q10(Q120):Q$B2$:5000:C3Q2d*N1000d>NA1(B2$)eHN((B2$,A,1))150C4%(A1)A:20070AeRN(":Q$Q$(PER%)"%":_c>R1$"1"CC0RTRT1:16050:INCRTCC.c>R1$"1"CC2(CC2)CC0:RTRT1:16050c>R1$"1"CC2(CC2)RTRT1:16050c>R1$"2"CC0WRWR1:16060d>R1$"2"CC2(CC2)CC0:WRWR1:160600d>R1$"2"CC2(CC2   nh)  m 8$-8錐i8FiFLJHi h8#i#L[Hih8iLMI1LLLL` mm`    `o LJ 8`LoLoLHLHA0[i  LJ KJL KJJLK  K L KJ׭ɚ L,   L  L`m HH)JJ h)8JJJJ!!)7q4bQ160:5000:1000gq>bQ$(102)(111)(114)(32)COMP$(A2)"?"}qHbQ180:5000:1000qRbqPà GOOD JOB!,VERY NICE!,NICELY DONE!,WELL DONE!,FANTASTIC!,EXCELLENT!,GOOD!q`(4);"SAVE I-3"::CCOMP$(A2)"?"oHbQ180:5000:1000oRbpPà G6)(105)(116)(101)(114)(115)(32)(111)(102)(32)(97)[,eQ120:5000:1000,fQ$A5$(32)(77)(111)(108)(97)(114)(32)(83)(111)(108)(117)(116)(105)(111)(110), fQ140:5000:1000"- fQ$(111)(102)(32)COMP384)127ľA$2b.b2Q1:Q1171:Q280:Q$"":1000:S1200:4000:Q1:Q$" ":1000:Q0:b6::16302,0:b:Q$"CC= ":Q$Q$(DC):Q$Q$" R= ":Q$Q$(RT):Q$Q$" W= ":Q$Q$(WR)b:RTWR0Q$Q$" 0%":5c:PER%RT(RTWR)100:Q$Q$" 000 "(116)(111)(32)(101)(110)(116)(101)(114):5000:1000 `#CASE$"L"V`#Q1160:Q$"YOUR CENTER A NUMBER":5000:1000m^#Q120:Q$"WHEREVER THE UNDERLINE":5000:1000^ #Q140:Q$"(CURSOR) IS LOCATED, OR":5000:1000^#Q160:Q$"PRESS THE "S$"SPACE BAR TO":5000:1000 _#Q180:Q$"ADVANCE THE CURSOR UNTIL":5000:1000?_#Q1100:Q$"IT IONS WILL ASK":Q0:Q10:5000:1000^Q$"YOU TO CALCULATE "(91)S$"H"(146)(93)" AND ":Q120:5000:1000^Q$(91)S$"O"S$"H"(147)(93)" FOR "S$"ACIDS AND "S$"BASES":Q140:5000:1000!_Q$"WHICH YOU SHOULD ASSUME":Q160:5000:100.005:U3((U3100)):U3U310:U21:7580N]jh]~U2((Q1$,(Q1$)2))]U3((Q1$,1,(Q1$)3))]U3((U3.05)10)10]U310U31:U2U21]A$(U3)"E"(U2):A4(A$):]@B3((B3.05)10)10:^14000:CASE$"L"B^Q$S$"THESE QUESTI5000:1000d\Q$"HAVE COMPLETELY "S$"IONIZED.":Q180:5000:1000\Q$S$"YOU WILL NOT NEED "S$"LOG":Q1100:5000:1000\Q$S$"TABLES FOR THESE PROBLEMS.":Q1120:5000:1000\CASE$" ":9500]"14000:(806)0ıC]"CASE$"L":Q0:Q10:Q$S.05)10)10:C[14000:CASE$"L"|[Q$S$"IN THIS SECTION YOU CAN":Q10:Q0:5000:1000[Q$"PRACTICE CALCULATING P"S$"H":Q120:5000:1000[Q$"FOR STRONG "S$"ACIDS AND "S$"BASES":Q140:5000:1000*\Q$"WHICH YOU SHOULD ASSUME":Q160:=ZgQ$(B2100)"E-2":7000RZlA7((Q$,A61))uZvA4$(Q$,1,A61):A4$A4$"X10"ZA70A4$A4$(147)ZA8(A7):A89A4$A4$(137):A8A810ZA8A8136ZA4$A4$(A8)Z [A64A$(Q$,1,3)(Q$,A6):Q$A$::7000[.[@B3((B3 8:"* *"EY 8dY "* * * * * * * * * * * *"jY pYYS11S:S1:YQ$Q$(13)Y4025YQ2(786)10YYXA51(Q$):(Q$,A5,1)"E"A6A5:A5(Q$)::7080:7020 Zb:B2(Q$):B2.099Q$(B210)"E-1":7000UR10:1000:Q$R3$(HCUR):1000:2630|X Q$(154):Q1162:1000:Q1:Q1181:Q$" ":Q20:1000X R3(R3$(0)R3$(1)"."R3$(3))X R1$(R3):X " * * * * * * * * * * * *"X 8:"* *"X 8Y "* NOW LOADING ";A1$;"*">Y" "2590;W7 HCUR82630dW< Q$(154):Q1150:1000:R3$(HCUR)" "WF Q$(154):Q1162:1000WP HCURHCUR1:HCURE5HCUR0WZ HCUR0HCUR1HCUR32580Wd 2640Wn HCUR6R3$(HCUR)((A$)136):2690Xx R3$(HCUR)A$DX Q$(154):Q1150:Q2QQHC CUR$(147):HCUR0>V Q$R1$YV Q0:Q1130:5000:1000V 12000:Q$"PRESS WHEN DONE":Q1181:5000:1000V Q1150:Q$R3$:5000:QQQ2:1000V Q0:Q1162:Q2QQHCUR10:Q$CUR$:1000V A$:A$(13)2700W( (A$)47(A$)582670)W2 A$20