' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJxL Lȿ L`lJJJJJ IL `L巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&Hh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"`K ߼ 켩)```K ߼ 켩)`ij  !"#$%&'()*+,-./0123456789:;<=>?ֽ0LɪL??L#   NEBK1:HH9 8L80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`5`?`ȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /Q֩b_L`L[LLL`ª`LQLY[LXLeLee ўQH\(h0L& Ꝥ$`( 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 e3L &RL &QL d L4 Ne)n `@-eff ``` f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@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@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( [ Ԡ-@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0L JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵ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 ~(` d ֠z#?Ϡ\\zz]]`@nà 32,32,32, 70,111,114,109,117,108,97,115,0: 1) CONT'D xà 50,41,32,87,114,105,116,105,110,103,32,67,104,101,109,105,99,97,108,0: 2) à 32,32,32, 70,111,114,109,117,108,97,115,0 : 2) CONT'DPà 67,104,111,111,115,101,32,69,110,11>15000:A3$Q$: CONSTRUCT DISPLAY STRING 2>ePà 70,111,114,109,117,108,97,115,0 : TITLEZà 147,147,147,147,147,147,147,147,0: ------dà 49,41,32,73,110,116,101,114,112,114,101,116,105,110,103,32,67,104,101,109,105,99,97,108,0 : 1)C2)CC0:WRWR1:16060: RESET CC & INC WR CC. y>R1$"2"CC2(CC2)WRWR1:16050: INC WR CC.>:14000::(4);"RUN START">CCCC2:DC((CC1)2):16080>CCCC1>DC((CC2)1): FIX DISPLAY,Q$" ":Q$Q$(PER%)"%":F>R1$"1"CC0RTRT1:16050:INCRTCC.>R1$"1"CC2(CC2)CC0:RTRT1:16050: CLEAR CC & INC RT CC.>R1$"1"CC2(CC2)RTRT1:16050: INC RT CC.>R1$"2"CC0WRWR1:16060A>R1$"2"CC2(C127ľA$: NO BUFFER.h2Q1: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):RTWR0Q$Q$" 0%"::PER%RT(RTWR)100:Q$.*A4$A4$(A8): BUILD RETURN STRING 0d'A1$(1):Q0:Q10:Q290::11000:1000: TITLE{'Q112:11000:1000'Q20$'Q1309020:11000:1000:Q1:*A1:Q$(A1): START READ +A1:A10ı +Q$Q$(A1):11010.(16384)(B110)"E-1":70002gQ$(B1100)"E-2":7000SlA7((Q$,A61)): GET EXP.vA4$(Q$,1,A61):A4$A4$"X10": CONVERT TO X 10A70A4$A4$(147): ADD EXP. SIGNA8(A7):A810A4$A4$(137):A8A810A8A8136: SELECT EXP. CHARS)5:pA2$;"READ COMPOUNDS"(zA18Q$"":AA1GA116090OA1^A106070nQ$Q$(A1)x6030COMP$(A)Q$6020XA51(Q$):(Q$,A5,1)"E"A6A5:A5(Q$)::7020: ISOLATE SIG. DIGITSb:B1(Q$):B1.099Q$% " * * * * * * * * * * * *"G 8:"* *"N 8l "* NOW LOADING ";A1$;"*" 8:"* *" 8 "* * * * * * * * * * * *"  ** PAUSE ROUTINE **S11S:S1:Q2(140((Q$)102) 2ND WARNING B *Q$" ...":1000:2120:1052: FINAL WARNING _ 4Q1:Q2R1:Q$" ":1000:s > CHECK ROUTINE HR2150:(16384)1282130 JA$:(A$)32(A$)902130 MR1$A$:R250:::2070: RE-START RR2: ** LOAD SCREEN **(R1$)32(R1$)902060" 2070R Q1R20:Q$(154):Q$Q$"?":Q0:1000:2040 Q0:Q2R1:Q$(154):1000:Q$R1$"?"(32)(154)(154)(154)(154):1000: ECHO Q0:Q2R122:Q$" .":1000:2120: 1ST WARNING  %Q$" ..":1000:2120:(Q$)1:944Q4,((Q$,Q41,1)):Q4: FILL OBUF E $3584:Z(0):o Q0:Q1R:Q2R1:Q$R$:1000: PROMPT z 12000 R1$" ": CLEAR IBUF Q1R20:Q2R1:Q$(150)"?":SET MASK 1000: & DISPLAY (16384)1282065 R1$"":R1$:000 :CH400,410( A2$;"RUN I-A"; A2$;"RUN I-B"Z  ** SYSTEM SUBROUTINES **j Q$Q$(13) Q01040: TEST ERASE STATUS Q5Q1Q20:Q5191Q5191 Q4Q1Q5 0:0,Q4279,Q4:Q4: ERASE Q LINES 786,Q2:787,Q12 Q40PLAY MENU" SF0: CLEAR SF IND.X R130:R10:11000:R$Q$:2000: GET ENTRY LEVELf CH(R1$) R1$"1"R1$"2"300 R1$"0"290 14000: CLR SCREEN :(4);"RUN START" "13000::A16:11000::230 , DOWNLOAD UNITS |14! ** FORMULAS 6/1/82 ** 8 COMP$(11),KA$(11)WA2$(4): DOS INDICATOR n14000: SET HIRESA800811:A,0:A: CLEAR ALL CC, RT, & WRd ** FILE DEFINITIONS ** ** PROGRAM CONTROL **14000: SET HI-RES 10000: DIS      ΥϿΥύϿӥϿӿϿϿϿȿȿåϿå̍ϿϿƥŨȩå̍ƥå̿ȿύ̿ύȿύӍϿӿϿΥϿΥϿϿϿΥȿύΥȍȿȿ̿Ͽå̍å̿ȿύύȿύ̍ȿ¥å̿¥å̿ՍՍÿȿύϿϿȿύύȿύϿ̨ȩ̨ϿȿύģȍȍӥϿÍӥÍύύύ̿Ͽڥ΍Ͽڥ΍å̿ǫ̏ȩå̍ȩå̍ӥ΍ϿӥΨϿǍǍӥΨϿӥϿϿϿ¥ҿ̍ӿ̿ӿӿ̥ɿϿ¥Ͽ̥Ͽ¥Ͽ¥ȿοȿȿ̍ڥϿΥϿХ¨ϿΥϿХ¿ϿХ¿ƥōӿƥſӿӿڥ΍̨ȿϩڥΨȿϩ̍ڥΨȿϩƥ¥ҿƿƥƿ¥ҿڥå̿Ͽå̿ϿΥåϿΥå̍Ͽ̍ϿåҍϿåҿϿϿпϿпϿڥ΍åå̿ڥå̿åՍåՍΥå̍ȿϿΥϿå̍Ͽå̍ӥΨȩӥϿȿύύȿύڥΨåϿȿϿȿύύͥǍϿͥǨϿȿȿȿ¥ҿ¥ҍ¥ҍХϿХύύåըϿǍǍ¥å̿ΥϿ¥ϿΥå̍ϿΥå̍ӿϿӿϿӿϿͥϿͥοϿϿϿϿɍϿϿƥōå̿ƥå̿å̿ڥ΍å̍ڥå̿ȿȿåՍϿå̍ȿå̿̿åϿ¥å̿åå̿¥Ͽ¥Ͽ˿åϿåϿåϿǿåϿǿåϿ¥ύ¥ϿϿ     0,0)ı?XuN4:N1A%(T0,1)ı/?buN5: KCAL5?luU?u ** ASSIGN COEF & WT **n?uN5N2H(T0):N30:?uN2CO(N,T0): COEF?uN3W(N,T0): WEIGHT?u?u ** BASICS - UNITS **?vUAI:UBH? vN55UA2?vN65UB2? vBN@O%3,63,@CR,52,@BA@CL%2,208.3,@NA%2@CR@O%4,162,@NA@CL,58.5,@C%3@H%8,44,@N@O,30,@K@H@C@O%3,100.1l>VJB114>[JQ$:8110:D$(B,0)T$:D$(B,1)>_JB>`J>0u ** DETERMINE RELATIVE EL# **>:uN1:N1B%(T0,0)ı>DuN2:N1B%(T0,1)ı?NuN3:N1A%(T1018100=G13000="G6200(=,G71003=1G4500J=@GA20İ4100:18260^=JGCASE$"L":7500y=TGCASE$" ":9500:18210=NHQ1X1:18200=8J =BJ @C@O%2,44,@AL,27,@H%2@O,18,@N%2@O%4,92,@H%2@S@O%4,98,(@N@H%4)%2@C@O%3,96`>LJ @H@ICE":M$(1)" "S$"GRAM-"S$"MOLE "S$"CONVERSIONS":M$(2)" "S$"MOLES IN "S$"EQUATIONS" KEY. "S$"THE":8100u;VDQ$"COMPUTER WILL ASSUME THE":8100;XDQ$"CORRECT UNITS":8100;ZDQ$"("S$"LITERS OR "S$"MOLES).":8100;[D;PF ]DQ$"EACH PROBLEM BY TYPING":8100:HDQ$"THE CORRECT VALUES AND":8100;RDQ$"THEN PRESSING THE":81"R"S$"E"S$"T"S$"U"S$"R"S$"N>":8100A9CQ$"KEY.":8100G9C`9C14000:K0:CASE$"L"9DQ$S$"IN THESE PROBLEMS YOU":81009 DQ$"WILL PRACTICE CONVERTING":81009DQ$"MOLES TO LITERS AND":81009DQ$"LITERS TO MOLES AT":8100: DQ$"STCQ$"AMOUNT OF HEAT WHICH IS":8100M8CQ$"INVOLVED IN THE REACTION.":8100l8C9500:14000:K1:CASE$"L"8CQ$S$"WHEN YOU HAVE AN ANSWER":81008CQ$"TO A QUESTION TYPE YOUR":81008CQ$"ANSWER ON THE KEYBOARD":8100-9CQ$"AND PRESS THE <"S$7CQ$"CALCULATE YOUR ANSWER":8100H7CQ$"TYPE IT AND PRESS THE":81007CQ$"<"S$"R"S$"E"S$"T"S$"U"S$"R"S$"N> KEY.":81007C7C14000:K1:CASE$"L"7CQ$S$"YOU WILL BE WORKING WITH":81007CQ$"CHEMICAL EQUATIONS AND THE":8100$8:DE(0,C8)yO20390yyOID21C8:E(1,I)260((C3$)10)E(0,I):I:C9E(0,1):DE(0,D2):C0E(1,D21):D1E(1,C8)yO2500: S.SCRIPT INPUTyOy0u(4);"CLOSE EQU$ II-A/B":y`(4);"SAVE II-B"::Bx8OC6$"X"ı)xBOCASE$"L":Q0WxLOQ10:Q$S$"BALANCE THIS "S$"EQUATION:"gxVO5000:1000ux`OCASE$" "xjOC6$"X"ıxtO(C2$)(C3$)2620380x~OQ$C2$C3$:5000::I1D2:E(0,I)E(0,I)Q2:IyOIIC8:E(0,I)E(0,I)((C2$)10)Q2:I:C9E(0,1)2$)10)Q2:I:C9E(0,1):DE(0,C8)4wO20390wOID21C8:E(1,I)260((C3$)10)E(0,I):I:C9E(0,1):DE(0,D2):C0E(1,D21):D1E(1,C8)wO2500: S.SCRIPT INPUTwOw0u(4);"CLOSE EQU$ II-A/B":A2): RIGHT COMPD.x$OC7C8C3$C3$"+"x.OC7C8C3$C3$"+"v.OC7.v8OC6$"X"ı@vBOCASE$"L":Q0nvLOQ10:Q$S$"BALANCE THIS "S$"EQUATION:"~vVO5000:1000v`OCASE$" "vjOC6$"X"ıvtO(C2$)(C3$)2620380v~OQ$C2$C3$:5000::I1D2:E(0,I)E(0,I)Q2:I)wOIIC8:E(0,I)E(0,I)((CMPOUND .uNC7D2C2$C2$"+":20270fuNC2$C2$" "(95)" ":20270: AT ARROW POS.... uNC91C6$" "C3$C3$" ":20230uNC3$C3$(C9):RIGHT COEF. uOC6$"X"20250uOE(0,C7)(C3$)1010vOC3$C3$EQ$(C2,C7,2): RIGHT COMPD.v$OC7IT OF COMPDS. POS.spNC0(EQU$(C2,C6,1)): GET ACTUAL COEF.tzNC71C8: SET LIM((CC2)1): FIX DISPLAYer>15000:A3$Q$: CONSTRUCT DISPLAY STRING kr>r N14000:I04:E(0,I)9E9:E(1,I)9E9:R3(I)0:I: RESET ALL TABS r*NC2$"":C3$""r4NC6$"X"20060r>NLEVEL0C320:C50:20050sHNC345:C520/sR1$"2"CC0WRWR1:16060zq>R1$"2"CC2(CC2)CC0:WRWR1:16060: RESET CC & INC WR CC. q>R1$"2"CC2(CC2)WRWR1:16050: INC WR CC.q>:14000::(4);"RUN START"q>CCCC2:DC((CC1)2):16080r>CCCC16r>DCRTWR0Q$Q$" 0%":Up:PER%RT(RTWR)100:Q$Q$" ":Q$Q$(PER%)"%":p>R1$"1"CC0RTRT1:16050:INCRTCC.p>R1$"1"CC2(CC2)CC0:RTRT1:16050: CLEAR CC & INC RT CC.q>R1$"1"CC2(CC2)RTRT1:16050: INC RT CC.#q>0:140:::A2$;"RUN EQUATIONS":Lo.(16384)127ľA$: NO BUFFERRo.o2Q1:Q1171:Q280:Q$"":1000:S1200:4000:Q1:Q$" ":1000:Q0:o6::16302,0:p:Q$"CC= ":Q$Q$(DC):Q$Q$" R= ":Q$Q$(RT):Q$Q$" W= ":Q$Q$(WR)p:,1))32):9044GnR#A$"?"CHCH1:A$(((E$,CH,1))70):9044]nS#A$"@"A$(128)pnT#EQ$EQ$A$:CHnU#EQU$(C2,I,2)EQ$nV#Ind#A2$nn#n%12000:Q$"Q= QUIT, C= CONTINUE":Q1179:5000:1000n&%A$:A$"C"Č1052:n0%A$"Q"9510)o:%14000:Q$"ZERO FOR THAT PLACE.":5000:1000Emf!CASE$" ":9500:_m(#:A2$;"READ"F$",R"C2~m2#EQU$(C2,0,0),EQU$(C2,0,1)m4#CN(EQU$(C2,0,1))m<#I1CNmA#EQ$""mF#EQU$(C2,I,1),E$mP#LL(E$):CH1LLnQ#A$(E$,CH,1):A$"%"CHCH1:A$(((E$,CH"S$"T"S$"U"S$"R"S$"N""> TO ENTER":1000ll*!Q120:Q215:Q$"YOUR ANSWER WHEN YOU ARE":1000l4!Q140:Q260:Q$"FINALLY READY.":1000l>!Q180:Q$S$"IF NO ENTRY IS MADE":5000:1000lH!Q1100:Q$"THE COMPUTER WILL ASSUME A":Q21:1000/mR!Q112MISTAKE, KEEP GOING,":1000Vk!Q1100:Q227:Q$"THE UNDERLINE (CURSOR)":1000k !Q1120:Q250:Q$"WILL COME AROUND":1000k!Q1140:Q235:Q$"TO THAT SPOT AGAIN.":1000k!CASE$" ":9500:140008l !CASE$"L":Q0:Q10:Q215:Q$S$"PRESS <"S$"R"S$"E00:14000Sj CASE$"L":Q0:Q10:Q210:Q$S$"IF YOU PRESS THE SPACE":1000j Q120:Q220:Q$"BAR THE COMPUTER WILL":1000j Q140:Q215:Q$"ASSUME YOU WANT A ONE IN":1000j Q160:Q212:Q$"THAT PLACE. "S$"IF YOU MAKE A":1000#k Q180:Q230:Q$"60:Q25:Q$S$"EQUATION IS DISPLAYED, YOU":1000li Q180:Q220:Q$"SHOULD TYPE THE CORRECT":1000i Q1100:Q235:Q$"NUMBER FOR EACH BLANK":1000i Q1120:Q230:Q$"WHEN UNDERLINED ON THE":1000i Q1140:Q2100:Q$"SCREEN.":1000j CASE$" ":95$,1,3)(Q$,A6):Q$A$::7000+hFh@B3((B3.05)10)10:Qhl 14000hv CASE$"L":Q0:Q10:Q220:Q$S$"IN THIS SECTION YOU WILL":1000h Q120:Q25:Q$"HAVE PRACTICE IN BALANCING":1000i Q140:Q245:Q$S$"EQUATIONS. "S$"WHEN AN":10009i Q1A61)): GET EXP.OgvA4$(Q$,1,A61):A4$A4$"X10": CONVERT TO X 10xgA70A4$A4$(147): ADD EXP. SIGNgA8(A7):A810A4$A4$(137):A8A810gA8A8136: SELECT EXP. CHARS.gA4$A4$(A8): BUILD RETURN STRING g%hA64A$(Q$"+"fC0+f5000:1000:9500LfQ1Q120:Q1171İ14000:Q10SfEYffXA51(Q$):(Q$,A5,1)"E"A6A5:A5(Q$)::7080:7020: ISOLATE SIG DIGITSfb:B2(Q$):B2.099Q$(B210)"E-1":7000fgQ$(B2100)"E-2":7000glA7((Q$,00:X1#e ** PLOTTING **6eX1,Y1X2,Y2:BepE045vezC(EQ$(E,0,1)):A(EQ$(E,0,0)):Q$"":Q10:Q20eC01CeQ$Q$EQ$(E,C0,1): COEF eQ$Q$EQ$(E,C0,2): COMPD.eAC0Q$Q$(95):5000:1000:Q1Q120:Q$"":6060 fC0CQ$QQ$Q$(13)d4025/dQ2(786)105dVdD((2(1))1((2(1))4))tdNX10:X2270:Y105:Y2Y1dX5800:Y1dbY10:Y2191:X1265270:X2X1dl5800:X1dvX1270:X20:Y1186191:Y2Y1d5800:Y1eY1191:Y20:X105:X2X1e580c I0Hc A$R3$(UL,I):(A$)47(A$)58JJ1:R3(J)(A$)^c II1:I262800uc ULUL1:UL22790{c cT ** REM ERASE CURSOR **c^ YLINE11LINE12ch 0:HCUR10,YHCUR1010,Ycr Y:c ** PAUSE ROUTINE **dS11S:S1:d -S.SCRIPT? _ HCURC910: LEVEL 1 STARTU_ LINE60: LEVEL 1 l_ 12000: NO BUFFER_ Q0:Q1181:Q$"PRESS WHEN DONE":5000:1000_ Q$C2$:Q1$C3$:1500: DISP. EQ.` Q1LINE11:Q$CUR$:Q2HCUR10:1000: DISP. CURSOR `Q1:Q2R1:Q$" ":1000:5^> CHECK ROUTINEV^HR2150:(16384)1282130v^JA$:(A$)32(A$)902130^MR1$A$:R250:::2070: RE-START ^RR2:^ ** BI-HORIZONAL INPUT RTN. **_ O01:I026:R3$(O,I)" ":I:R3(O)0:R3(O2)0:O_:1000:2040o]Q0:Q2R1:Q$(154):1000:Q$R1$"?"(32)(154)(154)(154)(154):1000: ECHO ] Q0:Q2R122:Q$" .":1000:2120: 1ST WARNING ]%Q$" ..":1000:2120: 2ND WARNING ^*Q$" ...":1000:2120:1052: FINAL WARNING !^41\Q0:Q1R:Q2R1:Q$R$:1000: PROMPT <\12000U\R1$" ": CLEAR IBUF\Q1R20:Q2R1:Q$(150)"?":SET MASK \1000: & DISPLAY \ (16384)1282065\R1$"":R1$:(R1$)32(R1$)902060\2070]Q1R20:Q$(154):Q$Q$"?":Q0191[Q4Q1Q51[0:0,Q4279,Q4:Q4E[786,Q2:787,Q1W[944,(CASE$)g[Q$Q$(13)s[$3584:[E4C6:C9$(D1):(Q$)(Q1$)26D91:1540[D90:Q$Q$Q1$:Q160:5000:1000:\Q160:Q20:1000:Q2260((C3$)10):Q180:Q$Q1$:1000:BEFORE OR = TO <= POS.3ZE1E120: VTAB:Z CZ630yZQ0:Q1E1:Q2E:CASE$" ":I15: # OF FLASHES ZQ$(154):1000: ERASEZQ$C9$:1000: OUTPUT COEF.ZS100:4000: PAUSEZI:ZZQ01040 [Q5Q1Q20:Q5191Q54)+YC9$"1"İ700: FLASH ITFY&600: - CORRECT SEC. aYDE4D2EE(0,E4):540zYNE180:EE(1,E4):540YXE1160: CORRECT PORTIONY]EQ$(C2,E4,1)"1"ıYbD90640: - 2 PARTYlYvC9$EQ$(C2,E4,1):700:ZE1140:E4D2670: - Ĺ(803),CC:(804),RT:(805),WR::A2$;"RUN II-A"]XCC0: CLEAR IF STAYING IN UNITxX450: JUST CONTINUEXCC5450XLELE1:CC0:LE1LE1:450X9500:14000:220XC9$(R3(E4))XE160: VTABXD90580: - 2 PART YEE(0,E:5000:1000:3606WTQ1140:Q20:Q$C2$:1000_W^Q1160:Q2260(C3$)10:Q$C3$:1000WhE41C8:(EQ$(C2,E4,1))R3(E4)İ500WrE4W ** CONSISTANCY **W16000: UPDATE CC,RT, & WR. WR1$"1"440WCC54308XLEVELLEVEL1:LEVEL0:V"Q0:Q120:Q$"NOT "S$"BALANCED.":5000:1000oV,Q1100:Q$S$"HERE IS THE CORRECTLY":5000:1000V6Q1120:Q$S$"BALANCED "S$"EQUATION:":5000:1000V@D90:(C2$)(C3$)26D91VECASE$" ":C6$"X":20010:C6$" "WJD90Q1160:Q$C2$C3$EX$((7(1))):5000:1000jUCASE$"L":Q180:Q$S$"THE "S$"EQUATION IS PROPERLY":5000:1000U Q1100:Q$S$"BALANCED!":5000:1000:CASE$" ":400U ** INCORRECT RESP. **VCASE$"L":Q1:Q10:Q$S$"YOUR "S$"EQUATION IS STILL":5000:1000TxA2$;"OPEN "F$",L70"(T200ET(4);"CLOSE EQU II-A/B"KThT ** PROGRAM CONTROL **zT8300: COPYT20000T ** ANALYSIS **TI1C8:(EQ$(C2,I,1))R3(I)R1$"2":IC8:I:270TITR1$"1"#U14000:CASE$" ":Q0:Q160:Q$803):RT(804):WR(805)SFEX$(0)"GOOD JOB!":EX$(1)"VERY NICE!":EX$(2)"NICELY DONE!":EX$(3)"WELL DONE!":EX$(4)"FANTASTIC!":EX$(5)"EXCELLENT!":EX$(6)"VERY GOOD!"SPLEVEL0:C6$" "SZCASE$" "Sd ** FILE DEFINITIONS **TnF$"EQU$ II-A/B"%$R ** II-B 6/1/82 **MR EQU$(45,4,2),R3$(1,26),R3(4),E(1,4)nRA2$(4): DOS INDICATOR R14000:S$(21): SET HIRESR#(803)050R(Q0:Q195:CASE$"L":Q$S$"BALANCING "S$"EQUATIONS":5000:1000:CASE$" ":S500:4000 S2CC(                         ":8100-6bCQ$"MOLES OF ONE SUBSTANCE":810046gC ]6lCQ$"WHICH ARE INVOLVED WHEN A":81006vCQ$"GIVEN NUMBER OF MOLES OF":81006CQ$"ANOTHER SUBSTANCE ARE":81006CQ$"ALSO INVOLVED.":81006C9500:14000:K0:CASE$"L":Q$S$"WHEN YOU":8100#HESE":8100$5?Q$"PROBLEMS.":8100*5 ?C50C14000:K1:CASE$"L"n5:CQ$S$"IN THIS SECTION YOU WILL":81005DCQ$"WORK WITH CHEMICAL":81005NCQ$"EQUATIONS.":81005SC9500:14000:K0:CASE$"L":Q$S$"YOU WILL":81006XCQ$"DETERMINE THE NUMBER OFN> TO ENTER":8100%4V;Q$"IT.":8100D4[;9500:14000:K1:CASE$"L"o4>Q$S$"THE COMPUTER WILL SUPPLY":81004>Q$"THE UNITS (GRAMS AND":81004>Q$"MOLES). "S$"YOU WILL PROBABLY":81004?Q$"NEED A TABLE OF ATOMIC":8100 5 ?Q$"WEIGHTS TO DO TOU":8100.3;Q$"WILL CONVERT MOLES TO":8100W3;Q$"GRAMS AND GRAMS TO MOLES.":81003$;Q$S$"FOR EACH PROBLEM, TYPE":81003.;Q$"YOUR ANSWER TO THE":810038;Q$"NEAREST HUNDREDTH.":81004L;Q$S$"PRESS <"S$"R"S$"E"S$"T"S$"U"S$"R"S$" COPY DISTRIBUTION l228500{2214000:K122Q115100,17200,17300,17400,12400229500:26::16302,0:(0):2:14000:K1:CASE$"L" 3;Q$S$"IN THESE EXERCISES Y16,22110 1,16.042,2,32,1,44.01,2,18.016,212^10 2,26.036,5,32,4,44.01,2,18.016,600 10 4,17.034,7,32,4,46.01,6,18.016,27010 2,58.12,13,32,8,44.01,10,18.016,1270 12(16384)127ľA$12b22 E):00H(E)00::00 1,92.02,0,0,2,46.01,0,0,14.5e00 1,2.016,1,159.8,2,80.908,0,0,17.200 1,28.02,2,32,0,0,2,46.01,16.2 00 2,2.016,1,32,2,18.016,0,0,115.600 2,20.008,0,0,1,2.016,1,38,128.410 2,17.034,0,0,1,28.02,3,2.0:/ 0&/ 0 1,0,3,0,4,5,6,0,7,8,0,3S/0 4,8,9,0,10,0,4,2,11,0,7,4 / 0 13,8,12,9,14,8,12,9,11,8,3,9 /*0 15,8,12,9/40B110/>0B%(B,0),B%(B,1),A%(B,0),A%(B,1)/H0B:/p0E1100z0Q14:CO(Q,E),W(Q,%2,@C@O%2+2@H%2@O+212@KCALT./ 2@C%2@H%2+5@O%2,4@C@O%2+2@H%2@O+600@KCAL./ 4@N@H%3+7@O%2,4@N@O%2+6@H%2@O+270.4@KCAL./ 2@C%4@H%1%0+13@O%2,8@C@O%2+10@H%2@O+1270@KCAL ./B110:Q$:8110:B$(B,0)T$//Q$:8110:B$(B,1)T$:B2 /-N/ @H%2+@BR%2,2@H@BR+17.2@KCAL]-X/ @N%2+2@O%2+16.2@KCAL,2@N@O%2-b/ 2@H%2+@O%2,2@H%2@O+115.6@KCAL-l/ 2@H@F+128.4@KCAL,@H%2+@F%2-v/ 2@N@H%3+22@KCAL,@N%2+3@H%2./ @C@H%4+2@OA$"Q"9610,%14000:>,. @N%2@O%4,@F%2,@N@O%2,@H%2`,. @BR%2,@H@BR,@N%2,@O%2,. @H%2@O,@H@F,@N@H%3,@C@O%2,. @C@H%4,@C%2@H%2,@C%4@H%1%0,@KCAL,/B116:Q$:8110:C$(B,0)T$:B,/-D/ @N%2@O%4+14.5@KCAL,2@N@O%S$"N"">.":8100+$"9500:_+%12990:CASE$" ":K$"Q= QUIT, C= CONTINUE":L179:5000:1000x+&%A$:A$"C"Č1052:+0%A$"Q"9510+:%14000:::18000+%12990:CASE$" ":K$"Q= QUIT, C= CONTINUE":L179:5000:1000+%A$:A$"C"Č1052: ,% CURSOR TO THE":8100;*!Q$"NEXT ENTRY POSITION ON":8100V*!Q$"THE SCREEN.":8100`*!9500}*!14000:K1:O0:CASE$"L"*"Q$S$"WHEN YOU HAVE COMPLETED":8100*"Q$"TYPING IN YOUR ANSWER":8100+"Q$"PRESS <"S$"R"S$"E"S$"T"S$"U"S$"R"2000soOC8$R1$/stOR1$"Y"R1$"N"ıSsyOR1$"Q"ĺ:A2$;"RUN EQUATIONS"es~O13000:20330s`(4);"SAVE II-A"::R1$_mtOR1$"Y"R1$"N"ı}m~O13000:S900:4000:20330m`(4);"SAVE II-A"::LQ0ND2(EQU$(C2,0,0)): => POS.lCNC6NC WR CC. Jj>R1$"2"CC2(CC2)WRWR1:16050: INC WR CC.kj>:14000::(4);"RUN START"j>CCCC2:DC((CC1)2):16080j>CCCC1j>DC((CC2)1): FIX DISPLAYj>15000:A3$Q$: CONSTRUCT DISPLAY STRING k>k N16050:INCRTCC.bi>R1$"1"CC2(CC2)CC0:RTRT1:16050: CLEAR CC & INC RT CC.i>R1$"1"CC2(CC2)RTRT1:16050: INC RT CC.i>R1$"2"CC0WRWR1:16060j>R1$"2"CC2(CC2)CC0:WRWR1:16060: RESET CC & IENTER>":1000:S1200:4000:Q1:Q$" ":1000:Q0:Mh6::16302,0:h:Q$"CC= ":Q$Q$(DC):Q$Q$" R= ":Q$Q$(RT):Q$Q$" W= ":Q$Q$(WR)h:RTWR0Q$Q$" 0%":h:PER%RT(RTWR)100:Q$Q$" ":Q$Q$(PER%)"%":i>R1$"1"CC0RTRT1:gU#EQU$(C2,I,2)EQ$$gV#I-gd#A2$3gn#kg%12000:Q$"Q= QUIT, C= CONTINUE":Q1179:5000:1000g&%A$:A$"C"Č1052:g0%A$"Q"9510g:%14000:140:::A2$;"RUN EQUATIONS":g.(16384)127ľA$: NO BUFFERg.9h2Q1:Q1171:Q280:Q$" CHECK ROUTINE`HR2150:(16384)1282130`JA$:(A$)32(A$)902130aMR1$A$:R250::: & DISPLAY ,_ (16384)1282065V_R1$"":R1$:(R1$)32(R1$)902060`_2070_Q1R20:Q$(154):Q$Q$"?":Q0:1000:2040_Q0:Q2R1:Q$(154):1000:Q$R1$"?"(32)(154)(154)(154)(154):1000: ECHO "` Q0:Q2R122:Q$" .":$)(Q1$)26D91:1540F^D90:Q$Q$Q1$:Q160:5000:1000:^Q160:Q20:1000:Q2260((C3$)10):Q180:Q$Q1$:1000:^Q0:Q1R:Q2R1:Q$R$:1000: PROMPT ^12000^R1$" ": CLEAR IBUF^Q1R20:Q2R1:Q$(150)"?":SET MASK _1000:1000: ERASE4]Q$C9$:1000: OUTPUT COEF.L]S100:4000: PAUSEU]I:[]i]Q01040]Q5Q1Q20:Q5191Q5191]Q4Q1Q5]0:0,Q4279,Q4:Q4]786,Q2:787,Q1]944,(CASE$)]Q$Q$(13)]$3584:^E4C6:C9$(D1):(QRE2(E4): HTAB 5\qE4D2EE((C2$)10)Q\vC9$EQ$(C2,E4,1):700:{\E4D2670:- BEFORE OR = TO <= POS.\E1E120: VTAB\E260((C3$)10)E2(E4):630\EE2(E4):630\Q0:Q1E1:Q2E:CASE$" ":I15: # OF FLASHES ]Q$(154):EECQ:E4D2560: PAST => POS.>[700: FLASH IT X[&600:- CORRECT SEC. s[0EE((C2$)10): HTAB|[:540[DE4D2540:- = OR BEFORE <= POS.[NE120:E260E0E:540[XEQ$(C2,E4,1)"1"ı[]E1E3: VTAB \bD90640:- 2 PART\lEC:Q0:Q160:Q$S$"YOU WILL NOW BE PRACTICING":5000:1000ZQ180:Q$S$"BALANCING "S$"EQUATIONS":5000:1000:CASE$" "Z140::A2$;"RUN II-B":Z9500:14000:220ZC9$"1"600:- SKIP INCORRECT FLASH ZE10[D90580:- 2 PART ([T, & WR.!YR1$"1"440/YCC5430RYLEVELLEVEL1:LEVEL0LEVEL0vYCC0: CLEAR IF STAYING IN UNITY450: JUST CONTINUEYCC5450YLELE1:CC0:LE2450Y(803)0448YS900:4000: PAUSE BEFORE TRANSFERAZ14000:CASE$"L"91Q20:Q$C2$:1000:Q2260(C3$)10:Q$C3$:Q1Q120:1000:396dXQ$C2$C3$:5000:1000}XCRQ2: SAVE HTAB XQ1Q140:CASE$"L":Q$"IS THE CORRECT "S$"EQUATION.":5000:1000:C6$" "XCASE$" ":500: FLASH COEFS.Y16000: UPDATE CC, RQ120:1000:Q1Q120:360=WbQ$C2$C3$:5000:1000QWhCQQ2:CASE$"L"WrQ1Q140:Q$S$"SORRY, THIS "S$"EQUATION":5000:1000W|Q1Q120:Q$"IS NOT BALANCED.":5000:1000WCASE$" "XQ1Q140:E3Q1:C6$"X":20002: GET CORRECT EQ.IXD20%V:Q$C2$C3$:5000:1000iV@CASE$"L":Q0:Q$S$"SORRY, THIS EQUATION":Q1Q140:5000:1000VJQ1Q120:Q$"IS BALANCED CORRECTLY.":5000:1000VTCASE$" ":400V^14000"W`Q0:Q10:(C2$)(C3$)26Q20:Q$C2$:1000:Q2260(C3$)10:Q$C3$:Q1CASE$"L":Q180:Q$S$"YOU ARE CORRECT!":5000:1000:CASE$" ":400aUC60C8$"Y"350pU,Q0:14000U6Q0:Q10:C6$"X":20002:C6$" ": DISPLAY EQUATION V8Q0:Q10:(C2$)(C3$)26Q20:Q$C2$:1000:Q2260(C3$)10:Q$C3$:Q1Q120:1000:3$"EQU$ II-A/B"0TxA2$;"OPEN "F$",L70"9T200WT(4);"CLOSE EQU$ II-A/B"]TyT ** PROGRAM CONTROL **T8300: COPYT20000TTC7$R1$R1$"1":250TR1$"2":270U14000:CASE$" ":Q0:Q160:Q$EX$((7(1))):5000:1000KU5000:1000:CASE$" ">S2CC(800):RT(801):WR(802)SFEX$(0)"GOOD JOB!":EX$(1)"VERY NICE!":EX$(2)"NICELY DONE!":EX$(3)"WELL DONE!":EX$(4)"FANTASTIC!":EX$(5)"EXCELLENT!":EX$(6)"VERY GOOD!"SPLEVEL0:ME16384Td ** FILE DEFINITIONS **TnF#R ** II-A 6/1/82 ** 5R EQU$(45,4,2)JR ** 06/29/83 **jRA2$(4): DOS INDICATOR R14000:S$(21): SET HIRESR C6$" "R#(803)050S(Q0:Q160:CASE$"L":Q$S$"SELECTING "S$"BALANCED":5000:1000:Q180:Q$S$"EQUATIONS":                      ALREADY ON THE":8100-)p!Q$"SCREEN.":81007)z!9500T)!14000:K1:O0:CASE$"L"})!Q$S$"YOU CAN ENTER A NUMBER":8100)!Q$"WHEREVER THE UNDERLINE":8100)!Q$"(CURSOR) IS LOCATED OR":8100)!Q$"PRESS THE SPACE BAR":8100*!Q$"TO MOVE THE000 (b KK1(g +(l K0:M10:O1:140003(v K0P(4!14000:K1:O0:CASE$"L"|(>!Q$S$"IN THE FOLLOWING SECTIONS":8100(H!Q$"WHEN TYPING IN YOUR":8100(R!Q$"RESPONSE YOU WILL SEE":8100(\!Q$"THAT THE FORMAT FOR THAT":8100)f!Q$"RESPONSE IS:8140'N2758170'N20D'T$T$(((Q$,RV,1))N2):N20:J'X' i' M126M126x' M10M10' K8K8'& K0K0'0 P2M110:Q2K20:'1 14000': 'D 8190'N K$Q$:NP2:LQ2'S O118280'U 5000(X 11)08&tC(Q1)3A(Q1)A(Q1)1:C(Q1)0:A(Q1)3A(Q1)3k&~(800)0A((800))3ĺ:(4)"RUN COMPLEX"::q&{&8250&8300&N20&Q$""ı&T$"":RV1(Q$)&O2((Q$,RV,1))&O264T$T$(21):N232::'O237N275:RVRV1100:Q$"ARE INVOLVED WHEN ":RZH2:5500:Q$Q$RP$:8100:Q$S$"KCAL OF HEAT ARE ALSO":8100:Q$"INVOLVED?":8100v%~%LO0%V74:14000:CASE$"L":L80:K$J$:O0%`5000:1000:K5:Q$S$"YOUR ANSWER IS CORRECT.":8100:CASE$" "&jC(Q1)C(Q1)1:B(QVED?":8100:CASE$" ":7170+$C207165$Q$S$"HOW MANY "S$"KCAL OF HEAT ARE":8100:Q$"INVOLVED WHEN ":RZH2:5500:Q$Q$RP$:8100:Q$"MOLES OF "C$(F2,0):8100:Q$"ARE ALSO INVOLVED?":8100:CASE$" ":p%Q$S$"HOW MANY MOLES OF "C$(F2,0):8100:CASE$" ":7170m#CASE$"L":Q$S$"GIVEN THE EQUATION:":8100:Q$B$(Z1,0)(95):8100:Q$B$(Z1,1):8100$Q12Q$S$"HOW MANY MOLES OF "C$(F2,0):8100:Q$"WOULD BE INVOLVED WHEN":8100:RZH2:5500:Q$RP$" MOLES OF "C$(G2,0):8100:Q$"ARE INVOLOLES OF GASEOUS":8100:Q$C$(Z1,0)" OCCUPY HOW":8100:Q$"MANY LITERS AT "S$"S"S$"T"S$"P?":8100:CASE$" ":7170#CASE$"L":RZY1:5500:Q$RP$" LITERS OF GASEOUS":8100:Q$C$(Z1,0)" EQUALS HOW MANY":8100:Q$"MOLES AT "S$"S"S$"T"S$"P?":8":: BCHG()qdà ANAMES,15, AIONS ,15, BNAMES,18, BIONS,18`(4);"SAVE I-B":: :BRC(2))+XuRC(2)4C0$"("C0$")"A]uC0$C0$(123C3)QbuC6$C6$C0$WluPà 1,3,2,1,2,2,3,2,2,1,1,2,4,2,2: ACHG()Zà 1,1,1,1,2,2,1,1,1,3,2,2,1,1,1,2,1,1: BCHG()dà ANAMES,15, AIONS ,15, BNAMES,18, BIONS,18OBSAVE I-BRC6$C6$(C3123): ADD S.SCRIPT/bRGU ** LCD ROUTINE **}UD12(D12)D22(D22)D1D12:D2D22:22010V0u ** MAKE RESP STR FROM INPUT 08/16/83 **Ɔ:uC6$AI0N$(RC(1))DuRC(1)0C6$"("C6$")"IuC6$C6$(123C4)NuC0$BI0N$($"("C5$")":C5$A$7RC6$C4$: PUT IN AION&R(C4)1(C4)(C3)21050: SKIP BVAL IF COEF. =1 OR BOTH A & B SAME 0RC6$C6$(C4123):21060: ADD S.SCRIPTʅ:RC8$" "C6$C6$" "DRC6$C6$C5$: ADD BI0NNR(C3)1(C3)(C4)21090)X:2500:: FORMULA INPUT RTN.;8OCASE$"L":Q180jBOQ$"(ENTER CORRECT SUBSCRIPTS)":Q22:1000LOCASE$" ":2900:: SUBSCRIPT INPUT RTN.ބRC10(C3)(C4)C41A$"("C4$")":C4$A$: ADD BRACKETS RC24(C3)(C4)C5$" "(C3)1A" ":Q0: INIT & SAVE ANSWER STRING IN C7$WNQ10:Q$S$"WHAT IS THE CORRECT"gO5000:1000 OQ120:Q$S$"FORMULA FOR":5000:1000OCASE$" ":Q140:Q$C2$" "C3$"?"ȃO5000:1000߃$O QUES. BEEN DISP.'.OLEVEL1E514:R3$" "REV OF 3/21/83 FOR NON-REP RND.TNC2$ANAME$(C1):C3$BNAME$(C2): NAMES NC4$AI0N$(C1):C5$BI0N$(C2): IONS NC3ACHG(C1)NC4BCHG(C2)΂ND1C3:D2C4:22000:D3D1:D4D2:C3D1:C4D2ႧNC8$"X":210002NC7$C6$:C31:C41:CASE$"L":C8$AL0>NC2(5(1)): BNAME,BION, BVAL;HN20100cRNC1(15(1)): ANAME, AION, AVAL\NC517: UPPER BION LIMITfNC10C65:20090pNC60ҁzNC2((C5C6)(1))C6: BNAME, BION, BVAL NRC(1)C1RC(2)C220010'NRC(1)C1:RC(2)C2: :14000::(4);"RUN START"F>CCCC2:DC((CC1)2):16080R>CCCC1>DC((CC2)1): FIX DISPLAY>15000:A3$Q$: CONSTRUCT DISPLAY STRING >ǀ N14000*NLEVEL1LEVEL320050 4NC1(14(1))1: ANAME, AION, AVEAR CC & INC RT CC.S>R1$"1"CC2(CC2)RTRT1:16050: INC RT CC.t>R1$"2"CC0WRWR1:16060>R1$"2"CC2(CC2)CC0:WRWR1:16060: RESET CC & INC WR CC. >R1$"2"CC2(CC2)WRWR1:16050: INC WR CC.$>~:Q$"CC= ":Q$Q$(DC):Q$Q$" R= ":Q$Q$(RT):Q$Q$" W= ":Q$Q$(WR)o~:RTWR0Q$Q$" 0%":~:PER%RT(RTWR)100:Q$Q$" ":Q$Q$(PER%)"%":~>R1$"1"CC0RTRT1:16050:INCRTCC.>R1$"1"CC2(CC2)CC0:RTRT1:16050: CLSE$" ":Q$C7$:5000:1000_}*Q1100:CASE$"L":Q$"IS THE CORRECT ANSWER.":5000:1000z}*CASE$" ":R1$"2":300}.(16384)127ľA$: NO BUFFER}.}2Q1:Q1171:Q280:Q$"":1000:S1200:4000:Q1:Q$" ":1000:Q0:~6::16302,0:T0!|* PAREN. ERROR RTN.6|*14000:CASE$"L"m|*Q0:Q10:Q$S$"YOU MADE A MISTAKE IN":5000:1000|*Q120:Q$"YOUR USE OF PARENTHESES.":5000:1000|*Q140:CASE$" ":Q$C6$:5000:1000|*Q160:CASE$"L":Q$"IS INCORRECT.":5000:1000"}*Q180:CA$" ":Q$BNAME$(C2)" "(105)(115)" "BI0N$(C2)".":5000:1000{*CASE$"L":Q1120:Q$S$"THE CORRECT ANSWER IS":5000:1000{&*Q1140:CASE$" ":Q$C7$".":5000:1000:R1$"2":300{0* S. SCRIPT ERROR RTN. |:*C4(RS$(3)):C3(RS$(6)):R1$"2":2908)(97)" "(102)(111)(114)" "ANAME$(C1):5000:1000z)Q160:CASE$" ":Q$(105)(115)" "AI0N$(C1)" "(97)(110)(100)" "(116)(104)(101)z*5000:1000:CASE$"L"z*Q180:Q$"CORRECT "S$"FORMULA FOR":5000:1000K{*Q1100:CASEBY$(C6$,RP,1):4y) FORMULA ERROR RTN. Py)14000:CASE$"L":10450y)Q0:Q10:Q$S$"I'M SORRY, YOUR "S$"FORMULA":5000:1000y)Q120:Q$"IS INCORRECT. "S$"THE CORRECT ":5000:1000Ez)Q140:CASE$" ":Q$(70)(111)(114)(109)(117)(1$(1)RS$(2)AS$(2)RS$(4)AS$(4)RS$(5)AS$(5)PAR$"X"10900Yx(R1$"1":270x(LL(C6$):I1LL:(C6$,I,1)" "LMI:ILL:C6$(C6$,1,LM1)x(Ix(LL(C7$):I1LL:(C7$,I,1)" "LMI:ILL:C7$(C7$,1,LM1)x(I:y)BY$(C7$,AP,1):yh)RS$(6)"1",wn(10600:BY$" "10420Bwx(RS$(6)"1"10400cw((BY$)123(BY$)13210400w(RS$(6)RS$(6)((BY$)75):RPRP1w(10350w(BY$"("BY$")"10410w(10700w(PAR$"X"w(10450:RS$(3)AS$(3)RS$(6)AS$(6)10800Hx(RS$(1)AS10290v((AS$(5)" "Kv2(10600:BY$")"RS$(5)BY$:RPRP1:10310Zv<(RS$(5)" "vF(10500:(BY$)122(BY$)133BY$((BY$)75):AS$(6)BY$:APAP1:10330vP(AS$(6)"1"wZ(10600:(BY$)122(BY$)133BY$((BY$)75):RS$(6)BY$:RPRP1:10350wd(BY$)133BY$((BY$)75):RS$(3)RS$(3)BY$:RPRP1:10190: MULT. S. SCRIPTS|u'BY$"("RS$(4)BY$:RPRP1:10240u'RS$(4)" "u(LL(BI0N$(C2)):BS$(C6$,RP,LL)u (BS$BI0N$(C2)10700u(APAPLL:RPRPLLv(10500:BY$")"AS$(5)BY$:APAP1:: ANS. S. SCRIPT #1+t'AS$(3)"1"t'10600:(BY$)122(BY$)133BY$((BY$)75):RS$(3)BY$:RPRP1:10170: RES. S. SCRIPT #1t'RS$(3)"1"t'10500:BY$"("AS$(4)BY$:APAP1:10190t'AS$(4)" "t'10600:RS$(3)"1"10220Uu'(BY$)122(0N$(C1)10700: FORMULA ERROR RTN.As`'APAPLL:RPRPLLosj'10500:BY$")"AS$(2)BY$:APAP1:10110~st'AS$(2)" "s~'10600:BY$")"RS$(2)BY$:RPRP1:10130s'RS$(2)" "t'10500:(BY$)122(BY$)133BY$((BY$)75):AS$(3)BY$:APAP1:10150: r' STRING ANALYSIS\r'AP1:RP1:PAR$" ": INIT POS. IND. & PAREN ERROR IND.r$'10500:BY$"("AS$(1)BY$:APAP1:10040r.'AS$(1)" "r8'10600:BY$"("RS$(1)BY$:RPRP1:10060rB'RS$(1)" "rL'LL(AI0N$(C1)):BS$(C6$,RP,LL)+sV'BS$AI(116)(101)(114):5000:10006qp!CASE$"L"qz!Q1160:Q$"YOUR COMPLETED ANSWER.":5000:1000:CASE$" ":9500:14000:q%12000:Q$"Q= QUIT, C= CONTINUE":Q1179:5000:1000q&%A$:A$"C"Č1052:q0%A$"Q"9510 r:%14000:::A2$;"RUN FORMULAS""L":Q180:Q$S$"YOU CAN ENTER A NUMBER":5000:1000op*!Q1100:Q$"WHEREVER THE UNDERLINE":5000:1000p4!Q1120:Q$"(CURSOR) IS LOCATED.":5000:1000(qf!CASE$" ":Q1140:Q$"P"(114)(101)(115)(115)" "(116)(111)(32)(101)(110)E$" ":9500o 14000^o 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:1000o !Q160:Q$"IS ALREADY ON THE SCREEN.":5000:1000

n Q1120:Q$"ELECTRICALLY NEUTRAL.":5000:1000Yn CASE$" ":9500:14000n Q10:CASE$"L":Q$S$"ENTER THE CORRECT NUMBER":5000:1000n Q120:Q$"FOR EACH "S$"ION TO MAKE A":5000:1000o Q140:Q$"NEUTRAL "S$"MOLECULE.":5000:1000:CAS Q120:Q260:Q$"PRACTICE WRITING":1000hm Q140:Q252:Q$S$"CHEMICAL "S$"FORMULAS.":1000m Q160:Q215:Q$S$"REMEMBER THAT THE "S$"FORMULA":1000m Q180:Q220:Q$"CANNOT BE CORRECT UNLESS":1000 n Q1100:Q270:Q$"THE "S$"MOLECULE IS":1000HlQ1140:Q$"YOUR "S$"FORMULA IS COMPLETE,":5000:1000l Q1160:Q$"PRESS <"S$"R"S$"E"S$"T"S$"U"S$"R"S$"N"">.":5000:1000l CQ1:CASE$" ":9500:ll 14000mv CASE$"L":Q0:Q10:Q220:Q$S$"IN THIS SECTION YOU WILL":10001m60:Q$"THE "(34)S$"S"S$"H"S$"I"S$"F"S$"T"(34)" KEY TO TYPE":5000:1000kQ180:Q$"LOWER CASE LETTERS OR":5000:1000kQ1100:Q$"PARENTHESES. "S$"USE THE <"(96)">":5000:1000 lQ1120:Q$"KEY TO BACKSPACE. "S$"WHEN":5000:j'j@B3((B3.05)10)10:2j14000IjQ0:Q10:CASE$"L"jQ$S$"TYPE THE CORRECT "S$"FORMULA":5000:1000jQ120:Q$"FOR EACH "S$"COMPOUND GIVEN.":5000:1000kQ140:Q$S$"USE THE <"S$"E"S$"S"S$"C> KEY LIKE":5000:1000_kQ1,1,A61):A4$A4$"X10": CONVERT TO X 10YiA70A4$A4$(147): ADD EXP. SIGNiA8(A7):A810A4$A4$(137):A8A810iA8A8136: SELECT EXP. CHARS.iA4$A4$(A8): BUILD RETURN STRING ijA64A$(Q$,1,3)(Q$,A6):Q$A$::7000 hBNAME$(A)Q$:60204hBI0N$(A)Q$:6020:hhXA51(Q$):(Q$,A5,1)"E"A6A5:A5(Q$)::7080:7020: ISOLATE SIG DIGITShb:B2(Q$):B2.099Q$(B210)"E-1":7000hgQ$(B2100)"E-2":7000hlA7((Q$,A61)): GET EXP.0ivA4$(Q$OUTINE **#gS11S:S1:3gQ$Q$(13)=g4025NgQ2(786)10TgfgpA2$;"READ"F$ogzA1gQ$"":AA1gAC06130gA1gA106080gQ$Q$(A1)g6040gD6090,6100,6110,6120gANAME$(A)Q$:6020hAI0N$(A)Q$:60200C403200Sfl C9Q2:Q1170:Q1:Q$"YOU MUST ENTER 2 NUMBERS":5000:1000fv S1800:4000:Q$"PRESS WHEN DONE":5000:1000:Q0:Q1135:Q2C9:3120f C8$"X":C4$AI0N$(C1):C5$BI0N$(C2):21000:C8$" ":: ADJ./STORE IN C6$ g ** PAUSE RS. SCRIPT #2 .e 1000: DISP. CURSOR6e A$Re (A$)47(A$)583130ee& (A$)133170e0 3090: INVALID ENTRYe: R3(A$): RESPONSEeD Q1120:Q$(154):1000:Q$(R3123):1000: ERASE PREV. & ECHOeN C81C4R3:2950fX C3R3:2950fb C3$d C82C81:3000'd C828d Q$C6$:5000Vd Q2: ERASE 2 PREV. LINES`d 1000vd C7Q2: SAVE HTABd Q$"-": CURSOR d Q1135:Q0d Q2C7((C4$)10): CURSOR POSITION FOR S. SCRIPT #1e C82Q2Q2((C5$)10)10: CURSOR POS. FOR 1000:Q1:Q1181:Q$" ":Q20:1000Nc C6$"":A0E5:C6$C6$R3$(A):jc C6$C6$" ":C7$C7$" "pc xcT Q0c^ Q1170ch Q$"PRESS WHEN DONE"cr 5000:1000c| Q1120:C82c C4$AI0N$(C1)c C5$BI0N$(C2) d 21000: ADJ./ STORE IN C6W CURSOR+bG ADD ADD'L CODES HERE5bK 2590VbP HCURHCUR1:HCURE5HCURE5`bZ 2580fbd bn (A$)47(A$)58R3$(HCUR)((A$)123):2690bx R3$(HCUR)A$:CP0b Q$(154):Q1150:Q2QQHCUR10:1000:Q$R3$(HCUR):1000:2640*c Q$(154):Q1162:HCUR10:Q$(154):1000:R3$(HCUR)" ": ERASE LAST CHAR.~a= Q1162:Q2QQHCUR10:Q$(154):1000: ERASE ORIG CURSORa> HCURHCUR1:HCUR0HCUR0aA Q1150:Q2QQHCUR10:1000:R3$(HCUR)" ": ERASE LAST OUTPUT CHAR.bF Q$CUR$:Q1162:1000:2590: NEz#??    Ӡ9 դɭ ӠӠӠ Ӡ ؠ-Р  ŠԱʰɭ""ɭ 8 ɭ# ɭ )ӠԠӠӠӠîϠ"ԠԱ $Q$(A1):11010<`.(16384)127ľA$: NO BUFFERB`.`2Q1:Q1171:Q280:Q$"":1000:S1200:4000:Q1:Q$" ":1000:Q0:`6::16302,0:`Pà 83,84,79,73,67,72,73,79,77,69,84,82,89,0: TITLE -aZà 147,147,147,147,147,147,147,147,A116090_A1*_A106070:_Q$Q$(A1)D_6030T_COMP$(A)Q$^_6020d__'A1$(1):Q0:Q10:Q275::11000:1000_'Q112:11000:1000_'Q20_$'Q13011030:11000:1000::_*A1:Q$(A1): START READ `+A1:A10ı` +Q&^ "* NOW LOADING ";A1$;"*"H^ 8:"* *"O^ 8n^ "* * * * * * * * * * * *"t^ ^ ** PAUSE ROUTINE **^S11S:S1:^Q$Q$(13)^4025^Q2(786)10^^pA2$;"READ COMPOUNDS"^zA1_Q$"":AA1_R1:Q$" ":1000:-]> CHECK ROUTINEN]HR2150:(16384)1282130n]JA$:(A$)32(A$)902130]MR1$A$:R250:::2070: RE-START ]RR2:] ** LOAD SCREEN **] " * * * * * * * * * * * *"^ 8:"* *"^ 82040g\Q0:Q2R1:Q$(154):1000:Q$R1$"?"(32)(154)(154)(154)(154):1000: ECHO \ Q0:Q2R122:Q$" .":1000:2120: 1ST WARNING \%Q$" ..":1000:2120: 2ND WARNING \*Q$" ...":1000:2120:1052: FINAL WARNING ]4Q1:Q2Q1R:Q2R1:Q$R$:1000: PROMPT 4[12000M[R1$" ": CLEAR IBUFx[Q1R20:Q2R1:Q$(150)"?":SET MASK [1000: & DISPLAY [ (16384)1282065[R1$"":R1$:(R1$)32(R1$)902060[2070 \Q1R20:Q$(154):Q$Q$"?":Q0:1000::A$" "Č1052:14000:CZfTIMETIME1:TIME800İ14000:LZp850kZ SCREEN OUTPUT SUBROUTINEyZQ01040ZQ5Q1Q20:Q5191Q5191ZQ4Q1Q5Z0:0,Q4279,Q4:Q4Z786,Q2:787,Q1Z944,(CASE$)ZQ$Q$(13)Z$3584:)[Q0:WITHOUT";Y" THE WRITTEN PERMISSION OF"fY " ENCYCLOPAEDIA BRITANNICA"Y*" EDUCATIONAL CORPORATION,"Y4" CHICAGO, ILL."Y>TIME0YH22:7:"PRESS SPACE BAR TO CONTINUE"ZR(16384)127870 Z\A$ED BY"9X" TELEVISION, OR OTHER ELEC-"dX" TRONIC DEVICES, NOR COPIED,"X" RECAST, TRANSFORMED, ADAPTED,"X" NOR UTILIZED IN ANY INFOR-"X" MATION OR RETRIEVAL SYSTEM"Y" IN WHOLE OR IN PART S$"CONSULTANTS":5000:1000[WQ1105:Q$S$"CHICAGO, "S$"ILLINOIS":5000:1000aWgW~WS750:4000:14000W::W 4:" WARNING: ":W" ALL RIGHTS RESERVED. THIS WORK"X" MAY NOT BE TRANSMITTLE V^T360,370,3809Vh:(4);"RUN FORMULAS"UVr:(4);"RUN EQUATIONS"oV|:(4);"RUN COMPLEX"uV{VVQ0:Q145:Q$S$"CREATED BY":5000:1000VQ165:Q$S$"J. "S$"FRAZIN & "S$"PARTNERS,":5000:1000$WQ185:Q$S$"EDUCATIONAL "14000:Q0:Q160:Q25:11000:1000: ADV. MES. & CLR. SCREENvU6Q180:Q265:11000:1000: ADV. CONT'D U@:A1T1:11000:: DATA PTR. UJ11000:Q$(Q$,3): JUSTIFY VTQ0:Q1Q120:Q2(140((Q$)102))5:1000: CENTER & DISPLAY TITSTOICHIOMETRY":5000:1000:S1500:4000IT14000:700:CASE$" "cT10000: DISPLAY MENUTR130:R10:11000:R$Q$:2000: GET ENTRY LEVELT TEST ENTRYTT(R1$)TT0T4300TR1$"0"290T::U"13000::A15:11000::230HU,S2CASE$" ":S$(21);S<INIT800821:INIT,0:XSd ** FILE DEFINITIONS **tS ** PROGRAM CONTROL **S14000: SET HI-RESS(795)12220S795,12:3:1,1:62454:A2$;" BLOAD PIC.GHLLOGO":S1000:4000/T14000:Q0:Q190:CASE$"L":Q$S$"4%R:::(4)"BRUN RBOOT"1R21000MR ** START 6/1/82 **lRA2$(4): DOS INDICATOR R14000: SET HIRESRA2$;"BLOAD TABLE 1":A2$;"BLOAD PLOT14.OBJ0":A2$;"BLOAD SET14":S(BIT701:772BIT,2BIT:BIT: INIT TEST BIT BYTES          ,111,0: TRANSP TRANSFER zà 67,97,108,99,117,108,97,116,105,110,103,32,75,151,32,38,32,91,72,146,93,0: ADV. TITLE à 102,111,114,32,114,101,109,101,100,105,97,116,105,111,110,0000: "FOR REMEDIATION"`(4);"SAVE FORMULAS"::2,110,111,119,32,98,101,32,112,114,97,99,116,105,99,105,110,103,0000: ADV MESà 119,105,116,104,32,112,114,111,98,108,101,109,115,32,105,110,0000: ADV CONT'D à 84, 114,97,110,115,112,97,114,101,110,116,32,84,114,97,110,115,102,101,114,32,846,114,121,32,76,101,118,101,108,44,32,48,61,69,110,100,63,0 : INPUT PROMPT eà 20,0: FILLERà 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 Nà 89,111,117,32,119,105,108,108,3T'D`(4);"SAVE START"::S114,111,98,108,101,109,115,32,105,110,0: ADV. CONT'Dzf`(4);"SAVE START"::A,98,108,101,109,115,32,105,110,0: ADV. CONT'D`(4);"SAVE START"::E01,118,101,108,44,32,48,61,69,110,100,63,0000: INPUT PROMPTà 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,0: ADV. MES.à 119,105,116,104,32,112,114,111,98,108,101,109,115,32,105,110,0: ADV. CON: ------------Fdà 49,41,32,70,111,114,109,117,108,97,115,0: 1) ~nà 50,41,32,69,113,117,97,116,105,111,110,115,0: 2)xà 51,41,32,77,111,108,101,32,67,111,110,99,101,112,116,115,0: 3)=à 67,104,111,111,115,101,32,69,110,116,114,121,32,76,1,105,110,0: ADV. CONT'D;c`(4);"SAVE START":: 80:Q$"":1000:S1200:4000:Q1:Q$" ":1000:Q0:6::16302,0:Pà 83,84,79,73,67,72,73,79,77,69,84,82,89,0: TITLE Zà 147,147,147,147,147,147,147,147,147,147,147,147,147,00,116,114,121,32,76,101,118,101,108,44,32,48,61,69,110,100,63,0000: INPUT PROMPTbà 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,0: ADV. MES. cà 119,105,116,104,32,112,114,111,98,108,101,109,115,32147,147,147,147,147,0: ------------cadà 49,41,32,70,111,114,109,117,108,97,115,0: 1) anà 50,41,32,69,113,117,97,116,105,111,110,115,0: 2)axà 51,41,32,77,111,108,101,32,67,111,110,99,101,112,116,115,0: 3)Zbà 67,104,111,111,115,101,32,69,11,117,97,116,105,111,110,115,0: 1) CONT'D \xà 50,41,32,66,97,108,97,110,99,105,110,103,32,69,113,117,97,116,105,111,110,115,0: 2)#]à 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 : INPUT PROM0:A3$Q$: CONSTRUCT DISPLAY STRING K[>}[Pà 69,113,117,97,116,105,111,110,115,0: TITLE[Zà 147,147,147,147,147,147,147,147,147,0:----- \dà 49,41,32,83,101,108,101,99,116,105,110,103,32,66,97,108,97,110,99,101,100,0: 1.)K\nà 32,32,32,69,1130:WRWR1:16060: RESET CC & INC WR CC. Z>R1$"2"CC2(CC2)WRWR1:16050: INC WR CC.Z>:14000::(4);"RUN START"Z>CCCC2:DC((CC1)2):16080Z>CCCC1[>DC((CC2)1): FIX DISPLAYE[>1500":Q$Q$(PER%)"%":_Y>R1$"1"CC0RTRT1:16050:INCRTCC.Y>R1$"1"CC2(CC2)CC0:RTRT1:16050: CLEAR CC & INC RT CC.Y>R1$"1"CC2(CC2)RTRT1:16050: INC RT CC.Z>R1$"2"CC0WRWR1:16060ZZ>R1$"2"CC2(CC2)CC: NO BUFFER2X.X2Q1:Q1171:Q280:Q$"":1000:S1200:4000:Q1:Q$" ":1000:Q0:X6::16302,0:X:Q$"CC= ":Q$Q$(DC):Q$Q$" R= ":Q$Q$(RT):Q$Q$" W= ":Q$Q$(WR)X:RTWR0Q$Q$" 0%":5Y:PER%RT(RTWR)100:Q$Q$" 4$A4$(A8): BUILD RETURN STRING IW}W'A1$(1):Q0:Q10:Q290::11000:1000: TITLEW'Q112:11000:1000W'Q20W$'Q1307020:11000:1000:Q1:W*A1:Q$(A1): START READ W+A1:A10ı X +Q$Q$(A1):11010,X.(16384)127ľA$0)"E-1":7000KVgQ$(B1100)"E-2":7000lVlA7((Q$,A61)): GET EXP.VvA4$(Q$,1,A61):A4$A4$"X10": CONVERT TO X 10VA70A4$A4$(147): ADD EXP. SIGNVA8(A7):A810A4$A4$(137):A8A810WA8A8136: SELECT EXP. CHARS.CWAUpA2$;"READ COMPOUNDS"AUzA1QUQ$"":AA1`UA116090hUA1wUA106070UQ$Q$(A1)U6030UCOMP$(A)Q$U6020UUXA51(Q$):(Q$,A5,1)"E"A6A5:A5(Q$)::7020: ISOLATE SIG. DIGITS.Vb:B1(Q$):B1.099Q$(B11 * * * * * * * * * * * *"`T 8:"* *"gT 8T "* NOW LOADING ";A1$;"*"T 8:"* *"T 8T "* * * * * * * * * * * *"T T ** PAUSE ROUTINE **TS11S:S1:UQ2(140((Q$)102))5:8ARNING [S*Q$" ...":1000:2120:1052: FINAL WARNING xS4Q1:Q2R1:Q$" ":1000:S> CHECK ROUTINESHR2150:(16384)1282130SJA$:(A$)32(A$)902130SMR1$A$:R250:::2070: RE-START TRR2:T ** LOAD SCREEN **>T " 32(R1$)902060;R2070kRQ1R20:Q$(154):Q$Q$"?":Q0:1000:2040RQ0:Q2R1:Q$(154):1000:Q$R1$"?"(32)(154)(154)(154)(154):1000: ECHO R Q0:Q2R122:Q$" .":1000:2120: 1ST WARNING 'S%Q$" ..":1000:2120: 2ND W(Q$)1:944Q4,((Q$,Q41,1)):Q4: FILL OBUF ^Q$3584:QQ0:Q1R:Q2R1:Q$R$:1000: PROMPT Q12000QR1$" ": CLEAR IBUFQQ1R20:Q2R1:Q$(150)"?":SET MASK Q1000: & DISPLAY R (16384)12820651RR1$"":R1$:(R1$)03P:CH400,410GPA2$;"RUN II-A"[PA2$;"RUN II-B"zP ** SYSTEM SUBROUTINES **PQ$Q$(13)PQ01040: TEST ERASE STATUS PQ5Q1Q20:Q5191Q5191PQ4Q1Q5Q0:0,Q4279,Q4:Q4: ERASE Q LINESQ786,Q2:787,Q1RQQ40PLAY MENUBOSF0: CLEAR SF IND.vOR130:R10:11000:R$Q$:2000: GET ENTRY LEVELOCH(R1$)OR1$"1"R1$"2"300OR1$"0"290O14000: CLR SCREENO:(4);"RUN START"P"13000::A15:11000::230P, DOWNLOAD UNITS!P|1400AN ** EQUATIONS 6/1/82 **XN COMP$(11),KA$(11)wNA2$(4): DOS INDICATOR N14000: SET HIRESNA800811:A,0:A: CLEAR ALL CC, RT, & WRNd ** FILE DEFINITIONS **N ** PROGRAM CONTROL **O14000: SET HI-RES)O10000: DIS         ,146,93,0: ADV. TITLE _à 102,111,114,32,114,101,109,101,100,105,97,116,105,111,110,0000: "FOR REMEDIATION"_`(4);"SAVE EQUATIONS"::);"SAVE EQUATIONS"::AC104,32,112,114,111,98,108,101,109,115,32,105,110,0000: ADV CONT'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: TRANSP TRANSFER 8_à 67,97,108,99,117,108,97,116,105,110,103,32,75,151,32,38,32,91,72PT ]à 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: ADV MESd^à 119,105,116,X ] MENU DRIVER2] 14000:CASE$"L"S] L1:K$M$(0):O0:5000:1000] KK1:Q$"":L11(K$)2:(K$,L1,1)S$Q$Q$"-"] 3214] Q$Q$" "] L1:K$Q$:LL7:1000] K2:M10 ^ CASE$"L":O11:N11M:Q$(N1)")"M$(N1):O11:8100:N1 GN9N7:(\ GN9(22.4N7):B\ G(N922.4)(N7N8):W\ G(N922.4)N7:e\ GN9N7:\0 ASSIGN DATA READ DELIMS.\: F12E16:FC%:3145\= G14H1:IJ:F16:EB%(H1,I1):3150\? EB%(H1,I1)\D FA%(H1,J1)\I HK1:IJ]N T0H1:3000 ]OR KNOWN>[ NN6:30100:N9N2:N0N3: FOR UNKNOWNZ[ 30200: GET UNITSy[ ZUA((UB1)3): ZONE[ Z3081,3082,3083,3084,3085,3086,3087,3088,3089[ G(N9N0)(N7N8):[ G(N9N0)N7:[ G(N9N0)(22.4N7):\ GN9(N7N8):\$(2)O$(3)"."O$(5)O$(6)):RZC1:5500SZ N$RP$:K$" ":L181:N0:1000:vZ ** FACTOR CALCULATION **Z N1E:30000:N5N: DET. REL. EL# FOR KNOWNZ N1F:30000:N6N: FOR UNKNOWN [ NN5:30100:N7N2:N8N3: ASSIGN COEF & WT F0,RR260,RR:,YP A1A11:A1ZA10TYZ A10A11A12A13A15A162580^Yd 2640Yn A16O$(A1)((A$)136):2690Yx O$(A1)A$Y K$(154):L155:NB1A110:1000:K$O$(A1):1000:2630Y 0:RR167169:0,RR260,RR::O1/Z C1(O$(0)O$(1)OPRESS WHEN DONE":L181:5000:1000TX L155:K$O$:5000:B1N:1000yX O0:L167:NB1A110:K$P$:1000X A$:A$(13)2700X( (A$)47(A$)582670X2 A$" "2590X7 A182630X< K$(154):L155:1000:O$(A1)" "YF 0:RR167169:0:2120:10525W4O1:NX:K$" ":1000:O0:_WHY150:(16384)127Y50:::2060gWR:W ROTARY INPUTW O$" . ":Z7W L$" ":O$(0)" ":O$(1)" ":O$(2)" ":O$(3)" ":O$(5)" ":O$(6)" "W P$(147):A103X 12999:CASE$" ":K$":K$K$"?"V10009V (16384)127ľN$:2070hVLR20:K$(154):K$K$"?":O0:1000:2040VO0:NX:K$(154):1000:K$N$"?"(32)(154)(154)(154)(154):1000V O0:NX22:K$" .":1000:2120V%K$" ..":1000:2120W*K$" ...":10000U230U .UK$K$(13) !R C$@AD @D !1``@@x~x@ Da"`p`~`?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?`` @p@``?`.\xpA!\pCG<pA!`` ltB@G?8qcC @<8iQ!.``   !BD B H1D! H$Bb@~~@ E( `|~`?~`@xx?```? 1b C!!b$H#BC!!0Q$"PROBLEMS INVOLVING":8100Mw0Q$"CHEMICAL EQUATIONS AND":8100w0Q$S$"GRAM, "S$"LITER, "S$"MOLE, "S$"KCAL":8100w0Q$"CONVERSIONS.":8100:CASE$" "w09500:14000:K0:O0w0CASE$"L":Q$S$"FOR ALL PROBLEMS ASSUME":8100$x0Q$"ALL 2,26.037,5,32,4,44.01,2,18.015,600 bvj0 4,17.031,7,32,4,46.00,6,18.015,270.4 vl0 2,58.124,13,32,8,44.01,10,18.015,1270 vp0 COPYvz014000:CASE$"L":K0:O0:Q$S$"IN THIS SECTION YOU WILL":8100w0Q$"PRACTICE SOLVING":8100'w 1,28.014,2,32,0,0,2, 46.00,16.2 gu`0 2,2.016,1,32,2,18.015,0,0,115.6 ub0 2,20.006,0,0,1,2.016,1,37.997,128.4ud0 2,17.031,0,0,1, 28.014,3,2.016,22 uf0 1,16.043,2,32,1,44.01,2,18.015,212 0vh0 ,12,9,11,8,3,9 1t*0 15,8,12,9=t40B110bt>0B%(B,0),B%(B,1),A%(B,0),A%(B,1)itH0ButR0E110tT0Q14:CO(Q,E),W(Q,E):tV0H(E)tX0:tZ0 1,91.99,0,0,2,46.00,0,0,14.5u\0 1,2.016,1,159.81, 2,80.911,0,0,17.28u^0+270.4@KCALPs/ 2@C%4@H%1%0+13@O%2,8@C@O%2+10@H%2@O+1270@KCAL qs/B110:Q$:8110:B$(B,0)T$s/Q$:8110:B$(B,1)T$:B:s 0s 0 1,0,3,0,4,5, 6,0,7,8,0,3s0 4,8,9,0,10,0,4,2,11,0,7,4 t 0 13,8,12,9,14,8 2@H%2+@O%2,2@H%2@O+115.6@KCALPrl/ 2@H@F+128.4@KCAL,@H%2+@F%2yrv/ 2@N@H%3+22@KCAL,@N%2+3@H%2r/ @C@H%4+2@O%2,@C@O%2+2@H%2@O+212@KCALr/ 2@C%2@H%2+5@O%2,4@C@O%2+2@H%2@O+600@KCALs/ 4@N@H%3+7@O%2,4@N@O%2+6@H%2@O@N%2,@O%23q. @H%2@O,@H@F,@N@H%3,@C@O%2\q. @C@H%4,@C%2@H%2,@C%4@H%1%0,@KCALq/B116:Q$:8110:C$(B,0)T$:B:qD/ @N%2@O%4+14.5@KCAL,2@N@O%2 qN/ @H%2+@BR%2,2@H@BR+17.2@KCALqX/ @N%2+2@O%2+16.2@KCAL,2@N@O%2'rb/ $"C"Č1052:(p0%A$"Q"9510>p:%14000:::18000p%12999:CASE$" ":K$"Q= QUIT, C= CONTINUE":L179:5000:1000p%A$:A$"C"Č1052:p%A$"Q"9610p%795,12:14000::(4)"RUN START"p. @N%2@O%4,@F%2,@N@O%2,@H%2q. @BR%2,@H@BR, K8K8o& K0K05o0 P2M110:Q2K20:@o1 14000Ko: UoD 8190ioN K$Q$:NP2:LQ2xoS O118280oU 5000oX 1000ob KK1og ol K0:M10:O1:14000ov K0o%12999:CASE$" ":K$"Q= QUIT, C= CONTINUE":L179:5000:1000p&%A$:A50n8300nN20*nQ$""ı@nT$"":RV1(Q$)UnO2((Q$,RV,1))vnO264T$T$(21):N232::nO237N275:RVRV1:8140nN2758170nN20nT$T$(((Q$,RV,1))N2):N20:nn n M126M126o M10M10o8100:CASE$" ":9500:@m CPLX RESP. INPUT /ANALYS._m3120:R160:2500:I2(N$)mU1(((GP1).005)100)100m(U1I2).019999999999996140: REV 07/10/83m6000:6190m3995: 05/21/83m3600m40000: REV 07/06/83n. n82RZ((RZ.005)100)100:.lp ?lzB(J)06025WlB(J)0:C(J)1:6050jlDD1:D3D3lC(J)C(J)1:C(J)46050lA(Q1)A(Q1)1:A(Q1)2A(Q1)2mO0:74:14000:O0:CASE$"L":K$J$:L80:5000:1000:K5:Q$S$"YOUR ANSWER IS CORRECT.":3/83 xkL60:K$S$"LET'S SEE HOW YOU":5000:1000:L80:K$"CALCULATED YOUR ANSWER...":5000:1000:CASE$" ":k PAUSE RTN.kS11S:S1:kK$K$(13)k4025kQ2(786)10kNQ2kk|RZ(RZ)RP$(RZ)".0":lRP$(RZ):#l3910jP;jn3955:"3950*":H4H1:E16E16Vjo"3951*":I4I1:F16djsE16I1rjtF16H1xjj14000jL20:CASE$"L"jK$S$"YOUR ANSWER IS":5000:1000 kL40:K$"INCORRECT.":5000:1000:(J2F12G14)CASE$" ":: 05/2``? @@`?p?"THE CORRECT ANSWER IS:":L80:5000:1000[}^CASE$" ":K$(U1):L100:5000:1000g}h9500:u ** ASSIGN COEF & WT **>|uN5N2H(T0):N30:V|uN2CO(N,T0): COEFs|uN3W(N,T0): WEIGHTy|u|u ** BASICS - UNITS **|vUAI:UBH| vN55UA2|vN65UB2| v|@ * DISP CORRECT ANSWER **|J140002}TCASE$"L":K$S$$S$"BASIC "S$"SKILLS "S$"PRACTICE":5000:1000:CASE$" "L{Fb{F(4)"RUN BASICS"h{F{0u ** DETERMINE RELATIVE EL# **{:uN1:N1B%(T0,0)ı{DuN2:N1B%(T0,1)ı{NuN3:N1A%(T0,0)ı{XuN4:N1A%(T0,1)ı{buN5: KCAL|lu%|z~@zPFzZFM3:M$(0)S$"MOLE "S$"CONCEPTS":M$(1)" "S$"BASIC "S$"SKILLS "S$"PRACTICE":M$(2)" "S$"COMPLEX "S$"PROBLEM "S$"SOLVING":M$(3)" "S$"END"zdF3200znFR$"2"220zxFR$"3"İ14000:9600:18000F{F14000:CASE$"L":L85:K VALUE":81007y1Q$"AND THEN PRESS THE":8100y1Q$"<"S$"R"S$"E"S$"T"S$"U"S$"R"S$"N> KEY.":8100:CASE$" "y19500y$1y2(16384)127ľA$y2y212990y6::16302,0:zt@I1I85I177NN1:LL1:CASE$"L":1000:CASE$" " SUBSTANCES ARE GASES":8100\x0Q$"AT "S$"S."S$"T."S$"P. AND THAT ALL":8100x0Q$"REACTIONS PROCEED TO":8100x0Q$"COMPLETION.":8100:CASE$" "x09500:14000:K0:O0x0CASE$"L":Q$S$"TO ENTER YOUR ANSWER":8100y1Q$"TYPE THE CORRECT0L@` g RgƖ8PgPQhQghe Ӣi  g y  gh^_8^eP^ȱ^ eQ^^_Ll8ePeQ`9LLLL`ª`LQLY8LXLeLee͠ŠṢ̌ΠƠα¥԰ΠΠΠƠα¥԰ΠΠΠƠα԰ΠΠϠҠѠϠĠϨѬũרѬũԠĠȨũԠΠΠǠιΰηΠǠιηθΠǠιηΠǠιηΠǠιηθΠǠιηΠǠιηΠҠŠιβΰγ͠Ҡ΍ ͠ԠӍڠ ͠ōΠڠϠǠιΰηθΠǠιΰηҍ͠ҠΠαź εκ͠Ԯ̮̣Ҡ΍αƺ ζκ͠ҠΠΠε ηβθγ͠ΠƠԠҠ΍Πζ  | ll`|@@@@@@@   *(HH(n|BBb(H| ll`|@@@@@@@ @@$p||BBb(H/8/@@@@@@@@@@@@ @ @ @ @ @@@@@@@@@ @ @@@@ @ @ @@@|<@@! !  @@@@@@!!!@!a! `` **@@@@@@@@@@@@@@@@@@@ @ @ @ @ @@TTTt@@@!@@@@@@@@@@@O@@@@@@@@@"A@@@@@@@@  @@ ?@@@@@?p@@@@@p@`@@@@@C@@@@@<@@@@@@@`@@@@@Ȁ "B@@@@@@@@@@Gw@@@@@wx@@@@@333@3 !@@@@! @@`?@@@@@L@8@(HH(@@@@@w@@@@@@@@@@@!PHDB!`eJ@@@|@@@`@!@@@@!A""A`@@@@@@@@@@     ͠ӠӠɺ ȍƠεΠƠζΠ ΠΠƠα԰ΠΠΠ̍͠Π͠ΠƠԠƠΠΠβȨ԰γΠβϨά԰͠ƍγרά԰͠ԍΠ$2BILLLL*8FTbp~ &4BP^lz"0>LZhv,:HVdr (6DR`n|$2@N\jx .LZhv,:HVdr (6DR`n| @@@@@@@@@@@@@@@@@@@AAAAAAAAAAAAAAAAAABBBBBBBBBBBBBBBBBBCCCCCCCCCCCCCCCCCCCDDDDDDDDDDDDDDDDDDEEEEEEEEEEEEEEEEEEFFFFFFFFFFFFFFFEEEEEEEEEEEEEEEEEFFFFFFFFFFFFFFFFFFGGGGGGGGGGGGGGGGGGGHHHHHHHHHHHHHHHHHHIIIIIIIIIIIIIIIIIIJJJJJJJJJJJJJJJJJJJKKKKKKKKKKKKKKKKKK  :IJN T0H1:3000X / MENU DRIVERD 14000:CASE$"L"e L1:K$M$(0):O0:5000:1000 KK1:Q$"":L11(K$)2:(K$,L1,1)S$Q$Q$"-" 3214 Q$Q$" " L1:K$Q$:LL7:1000 K2:M10 CASE$"L":O11:N11M:Q$(N1) GN9(N7N8): GN9N7:4 GN9(22.4N7):N G(N922.4)(N7N8):c G(N922.4)N7:q GN9N7:0 ASSIGN DATA READ DELIMS.: F12E16:FC%:3145= G14H1:IJ:F16:EB%(H1,I1):3150? EB%(H1,I1)D FA%(H1,J1)I HK1 ASSIGN COEF & WT FOR KNOWNL NN6:30100:N9N2:N0N3: FOR UNKNOWNg 30200: GET UNITS ZUA((UB1)3): ZONE Z3081,3082,3083,3084,3085,3086,3087,3088,3089 G(N9N0)(N7N8): G(N9N0)N7: G(N9N0)(22.4N7)::O1B C1(O$(0)O$(1)O$(2)O$(3)"."O$(5)O$(6)):RZC1:5500f N$RP$:K$" ":L181:N0:1000: ** FACTOR CALCULATION ** N1E:30000:N5N: DET. REL. EL# FOR KNOWN N1F:30000:N6N: FOR UNKNOWN  NN5:30100:N7N2:N8N3:1)" "(F 0:RR167169:0,RR260,RR:?P A1A11:A1ZA10gZ A10A11A12A13A15A162580qd 2640n A16O$(A1)((A$)136):2690x O$(A1)A$ K$(154):L155:NB1A110:1000:K$O$(A1):1000:2630 0:RR167169:0,RR260,RR:0F 12990:CASE$" ":K$"PRESS WHEN DONE":L181:5000:1000g L155:K$O$:5000:B1N:1000 O0:L167:NB1A110:K$P$:1000 A$:A$(13)2700( (A$)47(A$)5826702 A$" "25907 A182630< K$(154):L155:1000:O$(A2120& *K$" ...":1000:2120:1052E 4O1:NX:K$" ":1000:O0:o HY150:(16384)127Y50:::2060w R: ROTARY INPUT O$" . ":Z7 L$" ":O$(0)" ":O$(1)" ":O$(2)" ":O$(3)" ":O$(5)" ":O$(6)" " P$(147):A1" "" LR20:K$(150):K$K$"?", 1000I (16384)127ľN$:2070x LR20:K$(154):K$K$"?":O0:1000:2040 O0:NX:K$(154):1000:K$N$"?"(32)(154)(154)(154)(154):1000 O0:NX22:K$" .":1000:2120 %K$" ..":1000:OGRAM CONTROL C1 18000.  > K$K$(13)L O01035f PLO20:P191P191q QLP 0:0,Q279,Q:Q U0U0 N0N0 944,(CASE$) 786,N:787,L $QQ$K$:3584: O3:LR:NX:K$L$ 12990 N$Э(800)0Q1(800):182105 (A(2)1:A(3)1: LEVELSB 2A6:210 JI$(0)S$"GOOD JOB!":I$(1)S$"VERY NICE!":I$(2)S$"NICELY DONE!":I$(3)S$"WELL DONE!":I$(4)S$"FANTASTIC!":I$(5)S$"EXCELLENT!":I$(6)S$"VERY GOOD!" KJ$I$((B)7): PR Z A%(11,1),B$(11,1),B%(11,1),C$(18,1),D$(15,1),CO(5,10),W(5,10),H(10)q S$(21):CASE$" " G$(4):12000:12100:12300:12400:19000: READ DATA H$(1)S$"GRAMS":H$(2)S$"MOLES":H$(3)S$"LITERS":H$(4)S$"KCAL" 14000:7"::11:15:"PLEASE WAIT !" ** BASICS 6/1/82 ** RELEASE 2.0 09/04/83    ! ! ! ! ! !!!!!!!!!           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 A4$(A8): BUILD RETURN STRING .`\`A64A$(Q$,1,3)(Q$,A6):Q$A$::7000b`}`@B3((B3.05)10)10:`14000`CASE$"L"`Q0:Q10:Q220:Q$S$"IN THIS SECTION YOU WILL":1000aQ120:Q240:Q$"BE ASKED TO GIVE THE":10006aQ1"E-1":70000_gQ$(B2100)"E-2":7000Q_lA7((Q$,A61)): GET EXP._vA4$(Q$,1,A61):A4$A4$"X10": CONVERT TO X 10_A70A4$A4$(147): ADD EXP. SIGN_A8(A7):A810A4$A4$(137):A8A810_A8A8136: SELECT EXP. CHARS.(`A4$READ COMPOUNDS" ^zA10^Q$"":AA1?^A556090G^A1V^A106070f^Q$Q$(A1)p^6030^COMP$(A)Q$^6020^^XA51(Q$):(Q$,A5,1)"E"A6A5:A5(Q$)::7080:7020: ISOLATE SIG DIGITS_b:B2(Q$):B2.099Q$(B210)1:Q$" ":1000:,]> CHECK ROUTINEM]HR2150:(16384)1282130m]JA$:(A$)32(A$)902130]MR1$A$:R250:::2070: RE-START ]RR2:] ** PAUSE ROUTINE **]S11S:S1:]Q$Q$(13)]4025]Q2(786)10]^pA2$;"040f\Q0:Q2R1:Q$(154):1000:Q$R1$"?"(32)(154)(154)(154)(154):1000: ECHO \ Q0:Q2R122:Q$" .":1000:2120: 1ST WARNING \%Q$" ..":1000:2120: 2ND WARNING \*Q$" ...":1000:2120:1052: FINAL WARNING ]4Q1:Q2R1R:Q2R1:Q$R$:1000: PROMPT 3[12000L[R1$" ": CLEAR IBUFw[Q1R20:Q2R1:Q$(150)"?":SET MASK [1000: & DISPLAY [ (16384)1282065[R1$"":R1$:(R1$)32(R1$)902060[2070 \Q1R20:Q$(154):Q$Q$"?":Q0:1000:2NG":5000:1000MZfQ180:Q$S$"CHEMICAL "S$"FORMULAS":5000:1000dZh:A2$;"RUN I-B":jZxZQ01040ZQ5Q1Q20:Q5191Q5191ZQ4Q1Q5Z0:0,Q4279,Q4:Q4Z786,Q2:787,Q1Z944,(CASE$)ZQ$Q$(13)Z$3584:([Q0:QLLEVEL1:LEVEL0LEVEL0+Y0530OYXCC0:LEVELLEVEL1:LEVEL3530xY](803)0616: TRANSPARENT TRANSFERY_S500:4000: PAUSEYb14000:CASE$"L":Q0:Q140:Q$S$"YOU WILL NOW BE PRACTICING":Q20:1000ZdQ160:Q$"WITH PROBLEMS IN "S$"WRITI00: INC CC, RT & WRIXCC2(CC2)CC3540: 3 /ROW WRONG XPER%79(RTWR)4R1$"1"LEVEL2600: ADV. OUTXCC2(CC2)CC5600: ADV. OUT X9500:220: JUST CONTINUEX800,CC:801,RT:802,WR: SAVE CC, RT, & WR "Y&CC0:LEVE102)" "C3$*W$Q140:5000:1000JW&Q$"REPRESENTED.":CASE$"L"`W(Q160:5000:1000sW*CASE$" ":400~W,14000W6Q0:Q180:Q$EX$((7(1))):5000:1000W@CASE$"L":Q1100:Q$S$"YOUR ANSWER WAS CORRECT!":5000:1000WJCASE$" ":400X160:Q$C2$", "(116)(104)(101)(114)(101)" "^VC41Q$Q$(105)(115):280|VQ$Q$(97)(114)(101)VQ120:5000:1000V"Q$(C4)" "(65)(116)(111)(109):C41Q$Q$" "(111)(102)" "C3$:292W#Q$Q$(115)" "(111)(UA2$;"OPEN ATOMS"'U9000>UA2$;"CLOSE ATOMS"ZU ** PROGRAM CONTROL **kU8100: COPYvU20000U14000: ANALYSISU(R1$)C4R1$"1":300UR1$"2"UCASE$"L":Q0:Q$S$"I'M SORRY, IN COMPOUND"UQ10:5000:1000;VCASE$" "035:L0PAR%(A,0):L0PAR%(A,1):L0PAR%(A,2):jTPA088:L1PAR%(A,0):L1PAR%(A,1):L1PAR%(A,2):TZA024:L2PAR%(A,0):L2PAR%(A,1):L2PAR%(A,2):T_LEVEL1Td ** FILE DEFINITIONS **TnA2$;"OPEN COMPOUNDS"Tx6000UA2$;"CLOSE COMPOUNDS"$"CHEMICAL":5000:1000:Q180:Q$S$"FORMULAS":5000:1000:CASE$" "oS2CC(800):RT(801):WR(802)T<EX$(0)"GOOD JOB!":EX$(1)"VERY NICE!":EX$(2)"NICELY DONE!":EX$(3)"WELL DONE!":EX$(4)"FANTASTIC!":EX$(5)"EXCELLENT!":EX$(6)"VERY GOOD!"5TFA'R ** I-A 6/1/82 **mR COMP$(54),AOM$(18),EX$(7),L0PAR%(35,2),L1PAR%(88,2),L2PAR%(24,2)RA2$(4): DOS INDICATOR RS$(21)R14000:S$(21)R#(803)050: SKIP TITLE IF A REMED.MS(Q0:Q160:CASE$"L":Q$S$"INTERPRETING "S                !!(4);"SAVE I-A"::8,2 ,3,27,0,2,27,6,2,27,2,7,28,0,1: L1PAR% CONT'D&xà 28,7,1,28,2,3,29,0,2,29,5,1,29,2,4,30,0,2,30,8,2,30,2,4,31,0,3,31,9,1,31,2,4,32,7,1,32,4,4,32,1,1,33,7,1,33,4,4,33,14,1,34,7,1,34,4,5,34,2,1: L1PAR% CONT'D '}à 46,15,1,4,8,2,53,2,4,54,15,3,54,9,1,54,2,4: L1PAR% CONT'Dpà 35,7,2,35,4,8,35,5,1,35,2,4,36,7,2,36,4,8,36,6,2,36,2,7,37,10,1,37,1,2,37,2,6,38,10,1,38,7,2,38,2,6,39,10,3,39,9,2,39,2,8,40,18,2,40,6,6,41,18,1,41,1,3,41,2,9,42,18,1,42,7,3,42,2,9: L2PAR% `7,1,32,4,4,32,1,1,33,7,1,33,4,4,33,14,1,34,7,1,34,4,5,34,2,1: L1PAR% CONT'D 9o}à 46,15,1,46,1,1,46,2,3,47,15,1,47,3,1,47,2,4,48,15,1,48,4,1,48,5,1,48,2,4,49,15,1,49,4,1,49,5,1,50,15,2,50,6,2,50,2,7,51,15,1,51,7,1,51,2,3,52,15,2,52,5,1,52,2,4,53,15,2,531,15, 2,4,17,10,1,17,5,1,17,2 ,3,12,11,1,12,8,1,12,2,3,14,11,1,14,6,2,14,2,7,16,11,1,16,5,1,16, 2,4,18,11,1,18,5,1,18,2 ,3,27,0,2,27,6,2,27,2,7,28,0,1: L1PAR% CONT'DVnxà 28,7,1,28,2,3,29,0,2,29,5,1,29,2,4,30,0,2,30,8,2,30,2,4,31,0,3,31,9,1,31,2,4,32,,26,6,2,26,2,3,20,11,1,20,17,2,43,11,1,43,1,2,44,11,1,44,5,1,45,11,1,45,16,2: L0PAR% CONT'Dldà 7,0,1,7,1,1,7,2,3,8,0,1,8,3,1,8,2,4,9,0,1,9,4,1,9,5,1,9,2,4,10,0,1,10,4,1,10,5,1,11,10,1,11,8,1,11,2,3,13,10,1,13,6,2,13,2,7: L1PAR% mnà 15,10,1,15,5,"kBO(R1$)47(R1$)58ı4kLO13000:20280kPà 0,15,1,0,1,1,1,15,2,1,5,1,2,15,1,2,16,1,3,15,1,3,17,1,4,10,1,4,1,2,5,10,1,5,5,1,6,10,1,6,16,2,19,10,1,19,17,2,21,18,1,21,1,3,22,18,2,22,5,3,23,18,1: L0PAR%dlZà 23,16,3,24,18,1,24,17,3,25,18,2,25,2,3OQ140:Q$(65)(116)(111)(109)(115)(32)(111)(102)(32)C3$(32)(97)(114)(101): ATOMS OF COMPD. ARE jO5000:Q20Q20jO1000j$OQ160:CASE$"L":Q$"REPRESENTED?"j.O5000:1000:CASE$" "k8OR140:R1100:R$"ATOMS=":2000%(C2,1)): SELECT ATOM 5iNC4L2PAR%(C2,2)LiNCASE$"L":Q0:Q10niNQ$S$"IN THE "S$"COMPOUND"~iN5000:1000iNCASE$" ":Q120iNQ$C2$(44)(32)(104)(111)(119)(32)(109)(97)(110)(121): (COMPD.) "HOW MANY"jO5000:1000j%(C2,2): ANSWER7hN20180: DISPLAY PROBLEMfhNC2$COMP$(L1PAR%(C2,0)): SELECT COMPOUNDhNC3$AOM$(L1PAR%(C2,1)): SELECT ATOM hNC4L1PAR%(C2,2)hN20180: DISPLAY PROBLEMhNC2$COMP$(L2PAR%(C2,0)): SELECT RND COMPD.!iNC3$AOM$(L2PARg N140000g*NLEVEL120020,20030,20040Ag4NC536:20050Rg>NC561:20050\gHNC525|gRNC2(C5(1)): EQ SELECT g\NLEVEL120070,20110,20150gfNC2$COMP$(L0PAR%(C2,0)): SELECT RND COMPD.gpNC3$AOM$(L0PAR%(C2,1)): SELECT RND ATOMhzNC4L0PAR& INC WR CC. Mf>R1$"2"CC2(CC2)WRWR1:16050: INC WR CC.nf>:14000::(4);"RUN START"f>CCCC2:DC((CC1)2):16080f>CCCC1f>DC((CC2)1): FIX DISPLAYg>15000:A3$Q$: CONSTRUCT DISPLAY STRING g>1:16050:INCRTCC.ee>R1$"1"CC2(CC2)CC0:RTRT1:16050: CLEAR CC & INC RT CC.e>R1$"1"CC2(CC2)RTRT1:16050: INC RT CC.e>R1$"2"CC0WRWR1:16060f>R1$"2"CC2(CC2)CC0:WRWR1:16060: RESET CC RE-ENTER>":1000:S1200:4000:Q1:Q$" ":1000:Q0:Pd6::16302,0:d:Q$"CC= ":Q$Q$(DC):Q$Q$" R= ":Q$Q$(RT):Q$Q$" W= ":Q$Q$(WR)d:RTWR0Q$Q$" 0%":d:PER%RT(RTWR)100:Q$Q$" ":Q$Q$(PER%)"%":e>R1$"1"CC0RTRTQ$Q$(A1)cd#9030,cn#AOM$(A)Q$6cx#9020 KEY TO ENTER YOUR":1000b Q1160:Q295:Q$"ANSWER.":1000b CASE$" ":9500:b(#A2$;"READ ATOMS"b2#A1b<#Q$"":AA1bA#A199090bF#A1cP#A109070cZ#40:Q240:Q$"NUMBER OF "S$"ATOMS OF A":1000kaQ160:Q215:Q$"PARTICULAR TYPE WHICH ARE":1000aQ180:Q220:Q$"IN SOME "S$"COMPOUND. "S$"IN ALL":1000aQ1100:Q25:Q$"CASES TYPE THE APPROPRIATE":1000bQ1120:Q210:Q$"NUMBER AND THEN P"D$(Z1,0):8100:Q$"REPRESENT HOW MANY MOLES":8100:Q$"OF "D$(Z1,0)"?":8100:7170!RZE2:5500:Q$RP$" MOLES OF "D$(Z1,0):8100:Q$"REPRESENT HOW MANY GRAMS":8100:Q$"OF "D$(Z1,0):8100:CASE$" ":7170w"C20CASE$"L":RZD2:5500:Q$RP$" M(1))1)10):Z1Y1:Y1(D$(Z1,1)):D2D2((10(1))10):R Z1Y1:Y1(D$(Z1,1))l D2((10(1)).5)Y1 E2(10(1)).5   14000:K1:OO:M11:CASE$"L" Q12Q137150 Q147135V!C20RZD2:5500:Q$RP$" GRAMS OF Q116280*yY1((1)141):C2((1)2)i~A(Q1)1D2((1)1991)10:Z1Y1:Y1((1)409010)10:D2((1)201):Z1Y1:Y1(((((1)2910)10)22.4)10)10:Y1((3)141):C2((1)2)9 A(Q1)1D2(239(1))10:E2(10(1))(((9)101:D(2)(2)101:D(1)5C215WD(2)5D(0)1UZF2A%(Z1,C2):G2B%(Z1,D(0))o[F20G20F2G26250`A(Q1)16243bH2((1)101):cH2((1)401)2djF2B%(Z1,C2):G2A%(Z1,D(0)):F20G20F2G26210l6240o t!|RZ(RZ)RP$(RZ)".0":1RP$(RZ):ORZ((RZ.005)100)100:Z8 nBQ12Q136260DA(Q1)0Z1(2(1))1FA(Q1)1Z1(4(1))3GA(Q1)1Z1(2(1))8HY1(1(Z1)11)LZ1Y16212"VC20:D(0)0:D(1)(114570"C20U1D222.4:45807U1Y122.4:4580PC20U1D2Y1:4580jU1E2Y1: M/G ANSWERRZU1:5600:U1RZR160:2500A2((U1(N$)).019999999): REV 08/26/83K$K$(13)4025Q2(786)10NQ2$" "C(Q1)0:B(Q1)B(Q1)1SB(Q1)3B(Q1)0:A(Q1)A(Q1)1:A(Q1)0A(Q1)0Yd xQ12Q134550Q12EG2:FF2:H2:I2:4535C20EF2:F16:H1:I2:4535E16:FF2:H2:I1T0Z1:3000U1H2G4580Q1ME":8100EQ$"OF ONE MOLE OF "C$(Z1,0)".":8100:CASE$" ":417014000:CASE$"L":K1:O0:Q$S$"YOUR ANSWER SHOULD HAVE":8100:Q$"BEEN:":8100C20Q$(D2)" X 22.4 = "(U1):8100:CASE$" ":4300Q$(Y1)" / 22.4 = "(U1):8100:CASE"S$"DID YOU USE":8100@Q$"22.4 LITERS/MOLE AS YOUR":8100gQ$"MOLAR VOLUME OF THE GAS":8100Q$C$(Z1,0)"?":8100:CASE$" "3900:N$"1"4260 14000:CASE$"L":K1:O0:Q$S$"RECALCULATE YOUR ANSWER":8100:Q$"USING 22.4 AS THE VOLUrC20RZU1:5500:Q$(D2)" / "(Y1)" = "RP$:8100:Q$"MOLES.":8100:CASE$" ":4300|RZU1:5500:Q$(E2)" X "(Y1)" = "RP$:8100:Q$"GRAMS.":8100:CASE$" ":430014000:CASE$"L":K1:O0:Q$S$"YOUR ANSWER IS":8100Q$"INCORRECT. $" "J9500:14000&O7100:4500TA20CASE$"L":74:14000:O0:K$J$:L80:5000:1000:K5:Q$S$"YOUR ANSWER IS CORRECT":8100:CASE$" ":4300^Q114260h14000:CASE$"L":K1:O0:Q$S$"YOUR ANSWER SHOULD HAVE":8100:Q$"BEEN:":8100[A MOLECULAR":8100X/Q$"MASS OF "(Y1)" FOR":8100:Q$D$(Z1,0)" ?":8100:CASE$" "b13900s6N$"1"4200;14000:CASE$"L":K1:O0:Q$S$"TRY CALCULATING THE":8100@Q$"ANSWER USING "(Y1):8100EQ$"AS THE MOLECULAR MASS.":8100:CASE000:CASE$"L":K1:O0:Q$S$"I'M SORRY, YOUR ANSWER":8100Q$"IS INCORRECT. "S$"THE CORRECT":8100:Q$"ANSWER IS "(U1)".":8100:CASE$" ":4300Q114230"14000:CASE$"L":K1:O0:Q$S$"THAT'S NOT CORRECT.":8100,Q$S$"DID YOU USE ")"M$(N1):O11:8100:N1:O10O R159:X0:2000:R$N$:(R$)M(R$)13230U c< nAL$"?"FK7:O0:Q$"1-YES 2-NO":8100:R159:X0:2000:N$"1"N$"2"3910P PAUSE RTN.S11S:S1:Q12Q134120:146,4,8,36,6,2,36,2,7,37,10,1,37,1,2,37,2,6,38,10,1,38,7,2,38,2,6,39,10,3,39,9,2,39,2,8,40,18,2,40,6,6,41,18,1,41,1,3,41,2,9,42,18,1,42,7,3,42,2,9: L2PAR% (`(4);"SAVE I-A"::6,1,1,46,2,3,47,15,1,47,3,1,47,2,4,48,15,1,48,4,1,48,5,1,48,2,4,49,15,1,49,4,1,49,5,1,50,15,2,50,6,2,50,2,7,51,15,1,51,7,1,51,2,3,52,15,2,52,5,1,52,2,4,53,15,2,53,8,2,53,2,4,54,15,3,54,9,1,54,2,4: L1PAR% CONT'D(à 35,7,2,35,4,8,35,5,1,35,2,4,36,7,2,3A$"8"A$"9")A$((A$)16):2670: ( OR )_`( (A$)47(A$)582670: SUBSCRIPTSn`* CP02610`- (A$)64(A$)91A$((A$)32):2670: LOWER CASE `2 (A$)64(A$)912670: UPPER CASE `7 A$(8)2631@a< HCURE5Q1150:Q2QQSS WHEN DONE":Q1181:5000:1000a_ Q1150:Q$R3$:5000:QQQ2:1000: ILINE_ Q0:Q1162:Q2QQHCUR10:Q$CUR$:1000: CURSOR _ A$:A$(13)2700_ A$"1"2590: DISABLE A 1_# A$(27)CP1:2590: LOWER CASE IND. 6`% CP1(000:!^> CHECK ROUTINEB^HR2150:(16384)1282130b^JA$:(A$)32(A$)902130^MR1$A$:R250:::2070: RE-START ^RR2:^ MASKING MULTI INPUT^ R$" ":A0E5:R3$(A)" ":^ CUR$(147):HCUR0^ CP0^ 1_ 12000:Q$"PRE:Q2R1:Q$(154):1000:Q$R1$"?"(32)(154)(154)(154)(154):1000: ECHO ] Q0:Q2R122:Q$" .":1000:2120: 1ST WARNING ]%Q$" ..":1000:2120: 2ND WARNING ]*Q$" ...":1000:2120:1052: FINAL WARNING ^4Q1:Q2R1:Q$" ":1$R$:1000: PROMPT (\12000A\R1$" ": CLEAR IBUFl\Q1R20:Q2R1:Q$(150)"?":SET MASK \1000: & DISPLAY \ (16384)1282065\R1$"":R1$:(R1$)32(R1$)902060\2070]Q1R20:Q$(154):Q$Q$"?":Q0:1000:2040[]Q0(114)" "(105)(115)" "C7$".":5000:1000: ANSWER IS (ANS)... Y[300_[m[Q01040[Q5Q1Q20:Q5191Q5191[Q4Q1Q5[0:0,Q4279,Q4:Q4[786,Q2:787,Q1[944,(CASE$)[Q$Q$(13)[$3584:\Q0:Q1R:Q2R1:QASE$" "GZC4C3Q$"YOUR ANSWER":CASE$"L":5000:1000:710^ZQ$C6$:5000:1000ZQ140:CASE$"L":Q$"IS NOT GIVEN IN":5000:1000ZQ160:Q$"SIMPLEST FORM. "S$"THE CORRECT":Q22:1000P[Q180:CASE$" ":Q$(97)(110)(115)(119)(101)INCCOUNTERS$Y6R1$"1"3302Y@CC5325YBLEVELLEVEL1:LEVEL0Ĺ803,CC:804,RT:805,WR::(4);"RUN I-A": REGRESS YDCC0: CLEAR IF STAYING IN UNITYE340: JUST CONTINUEYJCC5LELE1:CC0:LE3LE3YT9500:14000:220ZQ120:C0:Q$C6$" "(105)(115)" "(110)(111)(116):5000:1000: RESP. IS NOT...X(CASE$"L":Q140:Q$"ELECTRICALLY NEUTRAL.":5000:1000X*Q160:Q$S$"IT HAS A CHARGE OF":5000:1000:Q180:Q$(CH)".":5000:1000X+CASE$" ": NORMALY,16000:SE$:5000:1000:Q1100:CASE$"L":Q$S$"YOUR ANSWER IS CORRECT.":5000:1000gWCASE$" ":300W"14000:30000:CASE$"L":Q0:Q10: REV 08/16/83W$Q$S$"THAT'S NOT QUITE RIGHT.":5000:1000W%CH(C4AC(C1)(BC(C2))C3):CH0700YX&CASE$" ":Q1299 REV 08/16/83 )V8300: COPYAVLEVEL1CQ1İ8100PVD0:20000jV ** ANALYSIS RTN. **VLEVEL110000: STRING ANALYSISVR1$"2"VC7$C6$C3D3C4D4290VR1$"1"VSE$EX$((7(1))): EXCLAIMATION TW14000:Q0:Q180:Q$xF$,C0"UA2$;"OPEN"F$,U6000AU:A2$;"CLOSE"F$HUDdU ** PROGRAM CONTROL **U CHANGED 20132,10070 03/22/83 R. COHEN V 290,30000-399'T@D10D:A1ćACHG(D1):685TBBCHG(D1)@TDD1:ATFEX$(0)"GOOD JOB!":EX$(1)"VERY NICE!":EX$(2)"NICELY DONE!":EX$(3)"WELL DONE!":EX$(4)"FANTASTIC!":EX$(5)"EXCELLENT!":EX$(6)"VERY GOOD!"TPLEVEL1Td ** FILE DEFINITIONS **UnD14US INDICATOR (S14000:S$(21)TS#(803)050: SKIP IF RET. FROM REMED.S(Q0:Q160:CASE$"L":Q$S$"WRITING "S$"CHEMICAL":5000:1000:Q180:Q$S$"FORMULAS":5000:1000:CASE$" "S2CC(803):RT(804):WR(805)S<A12:A1D14:64T>D175R ** I-B 6/1/82 ** REV 08/16/83 R ANAME$(14),AI0N$(14),ACHG(14),BNAME$(17),BI0N$(17),BCHG(17),EX$(7),R3$(15),AS$(6),RS$(6)SA2$(4): DO"" " " " " """""""""