' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL]浍 x m浅DeCE `m浅maDLi 鷎귭෍ᷩ췩緈JJJJx 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)*++`FG8`0($ p,&"8 흠 BȱBȄ  ȿL߼  !"#$%&'()*+,-./0123456789:;<=>?  1 /" *. $ (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(/;-%-%';-24<2/)(:-ER 4h00#h Լ ռ ռ ռ`HJ>݌h Hh݌`﷕AC ȿLHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`  巬 LҦcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e< 8浅`JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\ HH ^hh`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ў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ˆʆ8L õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L 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- ( 9 Ϡ@跻~!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 C & sƴi0DȴH h  紅D贅E C ɴ  ) 0 Ν ɃhhL`D٤E EDD ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLȵCǵB`,յ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# u`OGRAM":" PRESS TO RETURN TO THE MENU";:16368,0:ZZ$ 'ZZ$"R"ĉ::10:"RUN HELLO TO RETURN TO THIS MENU PROGRAM":TM11000:TM:800,0::D$F$ '25'23:6:16368,0:"PRESS TO CONTINUE";ZZ$:ISY.":P "--A DATA TABLE WOULD BE HELPFUL TO MAKE FOR THE STUDENTS TO USE.": "--THE INSTRUCTIONS IN THE PROGRAM ARE A LITTLE LONG, BUT THEY MAKE SENSE. GOOD LUCK."X F$"RUN SIX SOLUTION PROBLEM":9995? '22:6:"PRESS TO RUN THIS PRPPT (YELLOW) SILVER CHLORIDE PPT (WHITE) ACID + CARBONATE (BUBBLES)": "--IF YOU ARE USING A GREEN SCREEN RATHERTHAN A COLOR MONITOR, YOU MIGHT HAVE A BIT OF TROUBLE DISTINGUISHING BETWEEN THE COLORS, BUT THE BUBBLES ARE EA (H+) 0.1 M SODIUM BROMIDE (BR-)" " 0.1 M SODIUM CHLORIDE (CL-) 0.1 M SODIUM CARBONATE(CO3-2)" 9999::3_ "--THE CHEMISTRY YOU WILL SEE INCLUDES:"::" SILVER BROMIDE PPT (YELLOW) SILVER CARBONATE BELS.":h "--BY MIXING THE SOLUTIONS TOGETHER, THE STUDENT MUST DETERMINE WHICH SOLUTION ISWHICH.":/ "--THE SIX SOLUTIONS ARE: PURE WATER (H2O) 0.1 M SILVER NITRATE (AG+) 0.1 M NITRIC ACID ERFORD'S EXPERIMENT":9995m ::3:"SIX SOLUTION PROBLEM -- BY BELL":"-------------------------------": "--THIS IS A LO-RESOLUTION LABORATORY SIMULATION OF THE QUALITATIVE ANALYSIS PROBLEM IN WHICH A STUDENT IS GIVEN SIX SOLUTIONS AND SIX LADY TO SEE THE ENTIRE SHAPE AND VERIFY HIS GUESS, TYPE IN THE COMMAND 'READY' WHEN ASKED FOR A SHOT POSITION.":"--THE COMPUTER WILL ASK FOR A <> (TO PREVENT GIVING UP TOO QUICKLY). THAT PASSWORD IS 'AVOGADRO'."F$"RUN RUTHN GAIN ALL THE INFORMATION NEEDED TO DETERMINE THE SIZEAND SHAPE OF THE OBJECT.":c 9999::3 "--THE STUDENT INPUTS COMMANDS SUCH AS 'T,50' (POSITION 50 FROM THE TOP) OR 'L,25' (POSITION 25 FROM THE LEFT).":p"--WHEN THE STUDENT IS REA "--THE STUDENT IS SHOWN A SMALL SCREEN. BEHIND THE SCREEN IS AN ODD GEOMETRIC SHAPE. THE STUDENT MAY FIRE A LINE AT THE SHAPE FROM 100 POSITIONS ON EACH OF THE FOUR SIDES.":T "--BY KEEPING TRACK OF WHERE EACH LINE ISEXITING, THE STUDENT CARROR IN HIS CALCULATION."6 F$"RUN SPECTRAL LINES"@ 9995 ::3:"RUTHERFORD'S EXPERIMENT -- GROUND":"---------------------------------": "--THIS IS A SIMULATION OF THE REASONING NEEDED BY RUTHERFORD IN HIS CLASSIC GOLDFOIL EXPERIMENT.":HE HYDROGEN ATOM." :"--THE PROGRAM GIVES A FORMULA FOR THE CALCULATION, SHOWS A DIAGRAM OF THE SET-UP, AND ASKS THE STUDENT TO INPUT THE EXPERIMENTAL INFORMATION." :"--THE PROGRAM THEN DOES THE CALCULATION AND GIVES THE STUDENT AN IDEA OF EZ$)1(ZZ$)5ĺ(7):25= F(ZZ$)1000,2000,3000,4000,5000 ::3:"SPECTRAL LINES--BY GROUND":"-------------------------": "--THIS PROGRAM LEADS THE STUDENT THROUGHA CALCULATION FOR THE WAVELENGTHS OF THETHREE MAIN LINES IN THE SPECTRUM OF T  ::D$(4)" (800)525< 230,32:62450:800,5SD$"BLOAD SCRUNCH"y:D$"BLOAD NETWORK TITLE,A$4000"25003D$"BLOAD MAIN MENU1,A$4000"999925003:16297,0:16302,0:16304,0:21 <16368,0:ZZ$:(Z,1I$:$ "R"$`s2 A    @cC#`Qaca\O&""D!$D " BH I@@@>B|!xIxnI"Kbx@X$rK$@G0,,qy N?~g|@_s?@x c|f @1 ~30x "R)yHB`s $D  rp`ax",,"lp L8D< X I 2@LHxd$HL$H22 @#@'`bcc$bLDpD8Dc0,AXH=|g|@O~s:"b  ,G%HH 0  ,<qy ,c~f @1 30|""J%* (BiDcsq @$dDD $F"D$DD)BHH 5 @HHP`s|DD$HH$G"" q d# $B<$DD$2AdH@$"<"2@ &HHG H q<2  <"2cf @1L00"""F  #"F BP@ @$bDDD@#$dD|$DDqBHqx4@  @ @@HI H$"& D>"N@scc x9@G`@f@A30~ LLA@3`` 8n@sBDDlD$A A fgx @3 f0`` f@a10 L?LAyG3`` `a`Ap88DDD|OgGaq`a7 L?pOsg`|a?d0``x{c0xOLAycGxq?cRBDDDDA A0`?xF30 LLxOsg`|q?d0``p{a~8pO?LAyCpa?cRrBpq8D<TD<<A`#A)`A0`pfA30~ LLa@3`` 80n@sBP@DT|A AI0`` @g| @3 f0`` f@qp0 LAqO3`` j0` @3 f0``Lf@9`7 `LAL3`` c`arrss88||D<|A`Gcgqbq0` @0 f0``g@@7 `LALs`a8d2BDDD(DA A 0`p~30  aa cŠa a c̤a a `LbحaaaaɀL>ca)̴aiimaiLScLSc8aa cȠĠ `hhɦ LcHH`aLaLb ?@,حaaLaɀLa8aaӭaaaa L-bVQLL-baaa ʹaL2b aȑiimaiLbLb8aaLb8aa  $HHH ""> q"""cf @1L900>>>B!>y r @ @$DLD $$DD$DL (OH \OFpIox6 @ ,I<`rcsFcb0<K$<@D6DD0lpbbx^"2q2"  BDD@>B'dxayAAP`@qq0@%0 qID'0>,NOs#dq 8G` 2I@ "F@@"OL$@DID$ c]|"" ""y BDD8"B "$@0@HI0DDD$2HH$@@""   $d'pr$BDdDD$p"ADH@`C@$""""@&" "& BDL"bb'qAPOP8xD$rQIHO<"<qhp $$dd2$BD$DD$"CDH @`C@$""""@ dHIH """  """~cf @1Lq00~4@ bsx4x @G'Dx<8\84qIGqq2+ TcBqD%K `Dx@f `C@ by""G'HFGHpi<"<qhp""~cf @1La10~7@ 7>>>"B!<>y B DCq S@# $&@LHH D  &H q H$ D1"D!$B  "BH "I8BpcF@@">@HH$>@DID$ "rp^D ESS TO RUN THIS PROGRAM":" PRESS TO RETURN TO THE MENU";:16368,0:ZZ$ 'ZZ$"R"ĉ::10:"RUN HELLO TO RETURN TO THIS MENU PROGRAM":TM11000:TM:800,0::D$F$ '25'23:6:16368,0:"PRESS TO CONTINUE";ZZ$:IS MENURMINES THE AMOUNTOF CHLORIDE REMAINING BY TITRATING A SOLUTION OF THE SUBSTANCE WITH SILVER NITRATE.":"--THE ANSWERS ARE NEVER ACTUALLY GIVEN TO THE STUDENT, ONLY THE DATA NEEDED TO GET THE ANSWERS."F$"RUN FORMULA*":9995U '22:6:"PRL BALANCE WHICH READS TO 4 DIGITSAFTER THE DECIMAL PLACE (E.G.24.2557)."W9999::3"--THE STUDENT DETERMINES THE AMOUNT OF OXYGEN IN THE SAMPLE BY HEATING A SAMPLEOF THE SOLID AND DRIVING OFF THE OXYGEN AS A GAS.":l"--THE STUDENT THEN DETEDIFFERENT VERSION THAN THE ONE I RECEIVED IN THAT IT IS IN UPPER AND LOWER CASE WITH SUB- SCRIPTS AND SUPERSCRIPTS AND ALLOWS THE TITRATION WITHOUT PADDLES.":H"--AS IN HIS OTHER PROGRAM 'RAST', THE STUDENT WILL BE USING A TOP LOADING, AN-ALYTICA BENDALL":"---------------------":"--THIS PROGRAM USES HI-RES GRAPHICS TO SIMULATE THE EXPERIMENTAL METHODS USED TO GATHER ENOUGH DATA NEEDED TO PERFORM A PERCENTAGE COMPOSITION OF POTASSIUM CHLORATE, KCLO4.":"--THIS PROGRAM IS A LITTLE ES BEFORE THE SOLUTION TURNS COLOR.":"--THE INSTRUCTIONS IN THE PROGRAM ARE A BIT LONG, BUT GIVE A VERY CLEAR IDEA OF THE EXPERIMENT. THEY ALSO GIVE YOU SOMESAMPLE QUANTITIES TO GET YOU STARTED."F$"RUN RATES":9995$::3:"FORMULA -- BY '22:6:"PRESS TO RUN THIS PROGRAM":" PRESS TO RETURN TO THE MENU";:16368,0:ZZ$ 'ZZ$"R"ĉ::10:"RUN HELLO TO RETURN TO THIS MENU PROGRAM":TM11000:TM:800,0::D$F$ '24'23:7:16368,0:"PRESS TO CONTINUE";ZZWHICH WILL RUN EFFECTIVELY WITHOUT ANY QUESTIONS BEING WRITTEN FIRST. YOU WILLUSE IT TO INPUT THE QUESTIONS AND THEN USE THE OTHER PROGRAMS AFTERWARDS."& :"--THE 'EDITOR' PROGRAM IS THE ONE WHICH WILL RUN IF YOU TYPE NOW."X F$"RUN EDITOR"c999::3 "TUTORIAL (TE)":"-------------":"THIS IS THE TEACHER'S EDITION OF THE TUTORIAL WHICH ALLOWS THE TEACHER TO SEEHOW THE TUTORIAL LOOKS AND TO MAKE OTHERUSE OF THE INFORMATION.": "--NOTE--"::"--THE 'EDITOR' PROGRAM IS THE ONLY ONE KS AND PUT YOUR QUESTIONS ON THEM.":: "TUTORIAL (LIBRARY)":"------------------":"THIS PROGRAM IS THE ONE THE STUDENT RUNSTO BE ASKED THE QUESTIONS. THE STUDENT MAY CHOOSE THE NUMBER OF QUESTIONS HE ORSHE WANTS TO TRY AND ALSO THE TOPIC.": 9TUDENTS AND HAVE HIM/HER FIGURE OUT HOW TO USE IT. IT IS A GOOD SET OF PROGRAMS AND VERY USEFUL FOR WHAT IT DOES." 9999::3' "--THE TUTORIAL ITSELF IS ACTUALLY THREE DIFFERENT PROGRAMS:":::"EDITOR":"------":"ALLOWS YOU TO SET UP DATA DIS "--THIS TUTORIAL WRITES 'FILES' ONTO THE DISK WHICH HOLDS YOUR QUESTIONS AND THE POSSIBLE ANSWERS, THEREFORE, IF YOU TRY TO USE THIS PROGRAM, YOU WILL NEED SOME EMPTY DISKS.":v "--MY BEST ADVICE IS TO GIVE THIS DISK TOONE OF YOUR GOOD COMPUTER ST ARRANG":9995Z ::3:"STUDENT TUTORIAL -- DANIELS":"---------------------------": "--THIS TUTORIAL IS FOR YOU TO USE TO PUTA SERIES OF MULTIPLE CHOICE QUESTIONS INTHE LIBRARY OR COMPUTER CENTER TO ALLOW THE STUDENTS TO REVIEW ON THEIR OWN.":LSO TELLS THE STUDENTS ABOUT THE MNEMONIC FOR THE ORDER OF OCCUPANCY.": "--THERE IS A TEACHER UTILITY PROGRAM TO SEE HOW A STUDENT HAS DONE ON THE TUTOR-IAL, BUT YOU WILL HAVE TO FIGURE THAT OUT FOR YOURSELF. (CHECK THE 'CATALOG')"F$"RUN ELECL PROGRAM ABOUT HOW THE ELECTRONS ARE ARRANGED IN THE ATOM. IT IS ENTIRELY IN HI-RESOLUTION GRAPHICSAND USES SHAPE TABLES FOR THE TEXT.":H "--THE TUTORIAL COVERS THE NAMES OF EACH OF THE ORBITALS, THEIR CAPACITY, AND THEORDER IN WHICH THEY FILL. IT AHE TEACHER, HITTING THE KEY WHENA QUESTION IS ASKED WILL CAUSE THE RIGHTANSWER TO BE DISPLAYED ON THE SCREEN." F$"RUN TTT.START" 9995 ::3:"ELECTRON ARRANGEMENT -- ARLOTTO":"-------------------------------": "--THIS IS A TUTORIATO EARN A SQUARE.": "--THE QUESTIONS IN THE MIDDLE ROW OF THEGRID REQUIRE THE USE OF A CALCULATOR. PARTS OF THE GRID ARE STRATEGICALLY MOREVALUABLE AND, THEREFORE, MATHEMATICALLY MORE DIFFICULT.":r "--DON'T TELL THE STUDENTS, BUT AS A HELPTO T,0:ZZ$:(ZZ$)1(ZZ$)3ĺ(7):25? F(ZZ$)1000,2000,3000 ::3:"EQUILIBRIUM TIC-TAC-TOE -- OLNEY":"--------------------------------": "--THIS IS AN ALMOST STANDARD TIC-TAC-TOEGAME EXCEPT THAT EACH PLAYER MUST WORK EQUILIBRIUM PROBLEMS   ::D$(4)" (800)524< 230,32:62450:800,5SD$"BLOAD SCRUNCH"y:D$"BLOAD NETWORK TITLE,A$4000"25003D$"BLOAD MAIN MENU1,A$4000"99992500316297,0:16304,0:21:"YOUR CHOICE: ";$ <16368    px?0>3>3333300>333>3?633>03333 00000333 ?[[[[33333333333>003>063333>333 ckkk>3 3333>0? ?0|~~|?xpU>U3?333333333333?##??#3;33333?333? ?00003333?3?33333337;3333333333333?s333303? 333333>3333 33333?333 33333 ?0 ?8p`6c8888866$$~$~$>> >B%$R! *,88888>>>>`p83;733  ?30 ?30038<63?00?0333?3 333333>0   ~~ 0 0066>00AAIAI>06>0 666<0I*I*@`pxp`@666~>6660066>006>06y0@<>0 666<0    5`H XN7<6NWRU@ TPhhHNɍ-Ɍ+*+*++8 $%ll%J) +%j )* * (je$*h-HJJJ'hH*&'*&'*&')&&OH**hQ**O+i+$$! $%%#"%Nh`<@0(Apxp( @xC 0$D@+ Pb``@a`^a`>`?@P` xx@p0T0 px@` *`p`@q`q`p(p`@ pT0x`@ x<Tx3~GA10fL3@c  @p0(A0@@ (`@`C 08 @/<Pz ``@q`q`p?`@x<@`@0 P`x0 @@`x*?0`@a`~a`>` @`@ @T@` `pT`?~GC10fLCsLc  @<@)10|`@ `@?C 0p)0Pz x`@98`@c98`@c9`x@j@p@`p< Pb`<x~@A7fL}0@acpx`@/p<``` ` 0T@p`* @\`<10fLqO  xTpx`@'=0`@y ``p p0(0@ `@`@A`@A``Cjp`0 Pb `~^a?fL1@qc0@)@ ``` x`* @0x\ x,b8 `* `\`~10fL}0G; `T0`x8<xxpa0 `@*@@x<( 0@ <<`@>`@A>`@Ay?`Oj?xT`<P< ?q8fLC3@9c0<@)~O~~08``* @0S q$2DI`* x`S`@T<`@  @0@!x*@@@ =p@ p0`@>`@A>`@Ay?x< ` `W` @p ~p@@c10fL3@c 0~W0@)x~O~~@*p0<S  $""DIO(``S`x`@<P `p  p0<@E*@@|@ u@@ @`@`@A`@A0p+~ W``@ @ T@@@@A10fL3@c <@@Tpp!`@@(0ppS  $""DIH(`C``~fL@xpP `?x ?0p~U (@@@ E*x@`@98`@C98`@c98@+ P``@  Tp@A10fL3@c  @@T@0 <` ~<(<@C<x$<"bDG(<xC x?~fL@T<            1,120,6,125,1,120,17& 120,2,125,1,120,1,115,1,120,1[& 135,1,160,1,135,4,150,3,160,1&& 150,1,150,2,160,1,150,1,130,2&0 135,1,150,1,75,5,200,1,180,1&: 150,1,100,1,200,1,180,1,150,1&D 100,1,200,1,180,1,120,1,135,4'N 150,3,755,1,120,1,120,6,125,1,120,1?% 120,2,125,1,120,1,100,2,120,1d% 100,1,112,4,135,3,135,1,135,2% 140,1,135,1,135,2,140,1,135,1% 112,6,120,1,135,1,120,1,100,2% 100,1,89,2,89,2,135,6% 100,2,100,2,112,1,120,1,120,2& 125,1,120,:800$hI:$r $| MUSICG$800,173:801,48:802,192:803,136t$804,208:805,4:806,198:807,1:808,240$809,8:810,202:811,208:812,246:813,166$814,0:815,76:816,32:817,03:818,96$$100,2,100,2,112,1,120,1,120,2% 121ĺ:"The CORRECT answer is: ";ANS(I,J):0#A# HAPPYMUSICR#PT89645g#0,PT:1,15:800o#PTu## SADMUSIC#"PT801005#,0,PT:1,20:800:PT#6#@ STARS & STRIPES#JI176#TPT,TM$^0,PT:1,TM42:(S$,I,1);lid has a molar mass of "Y" g/mole":u"11:"and is enough solid to exactly saturate"::"100 ml of solution."::""What is the unknown's Ksp? ":V16:H28:10"((ANS(I,J)P)P).05A(I,J)C:::"That's right! Good!!":1510:"1560*#TT)"::#!_ANS(I,J)(110Y)(2E5)I!d"Your answer is: ":V17:H17:10S!x1470v!X(4(1)2):Y50(2(1)1)!ZXY:ANS(I,J)4Z3!"You are given ".1X"00 grams of a slightly"::"soluble solid with the formula, XY"(21)".":%""The so21470( <X.5(6(1))10:Y2(X14) F"The dissociation constant, Kb, of NH"(23)"OH"::"(ammonia water) is 2E-5.":: P"Calculate the concentration of NH"(23)"OH "::"at which its pH would be "X".":!Z"(A CALCULATOR MIGHT PROVE HELPFUL!H":7"is dissolved into "Y" liters of solution.": "Calculate (to the nearest tenth) the pH"::"of the resulting solution.":"(a calculator might prove helpful)"::ANS(I,J).1(10ZZ.5)"What's your answer? ":V16:H21:10 "::7"Calculate its Ksp at this temperature?"::dY2(14X):Y(Y.2)1:ANS(I,J)110Y"Your answer, please: ":V17:H22:101470X.1(30(1)1):Y(3(1)2)Z1E14(XY):ZZ(Z)2.303"Suppose that "X" moles of KOY:ANS(I,J)(ZZ)?::"What's your answer? ":V14:H21:10I1470[X(5(1)9)"You are given a STRONG,"::"but only SLIGHTLY SOLUBLE base, XOH.":"At a certain temperature, a saturated"::"solution of this base has a pH of "X".0.1470BVX(3(1)1):XX2:Y(3(1)1):YY2:Z2(3(1)2)`"A certain weak acid, HX, has a Ka"::"value of "X"E-"Z".":j"If the molarity of HX is "Y" M, you":t"should be able to calculate the "(91)"H"(15)(93)"."~ZZ(X10Z)1470*X(4(1)2):Y2((5(1)1)):X3ĪXX5$"In a certain aqueous solution,"::"the "(91)"H"(15)(93)" is "X"E-"Y".":."Calculate the hydroxide molarity."::3ANS(I,J)(1E14)(X10Y)8"Your answer: ":V12:H14:10Lin salt of":="formula XY are put in 1.00 L of water,":j"it easily saturates the solution."::"Given that the Ksp of this salt is 1E-"Y:ANS(I,J)10(X)14:"what is the "(91)"X"(15)(93)" in this solution?":V14:H36:10entrations are":m(91)"H"(15)(93)" = 1E-"X", "(91)"X"(16)(93)" = 1E-"Y" and "(91)"HX"(93)" = "ZZANS(I,J)10(1(XYZ))::"What is the value of Ka?":V14:H26:101470X(3(1)4):Y2X "When "X2" moles of a certa(93)" must be:":R::"Your answer is: ":V12:H17:10D\1470dfX(4(1)2):Y(3(1)1)pZ(3(1)1):ZZ110Zz"A certain acid dissociates as follows:":" HX <==> H"(15)" + X"(16):"at equilibrium, the concTM(0)8 D810,870,960,1250,1340,1410,1040,1110,1180b*X(13(1)1):ANS(I,J)1E1410(X)4"If the H"(15)" concentration in an aqueous":>"solution is known to be 10"(16)SS$(X)", then the":H"hydroxide concentration "(91)"OH"(16) fun!! @*@*@*@"::2:1600:TM12500:TM:(12)~10:"Would you like to play again?";:16368,0:BB$:BB$"Y"ĺ(12):21054,D1:55,D2:104,8:2048,0::::(12):"HERE'S YOUR QUESTION, "C$(C1):"------------------------"::TM1800:TM:o continue ";:BB$::340;21:16:C$(0)" WINS !!":780]21:16:C$(2)" WINS !!":78021:16:"NO WINNER":TM11000:TM::"Hope you had fun!! ":TM11500:TM:(12):7850 S$"*@*@*@*@*@ The game is over *@*@*@*@*@ *@*@*@* Hope you had)A(1,1)A(2,1)A(3,1)4B(5)A(1,2)A(2,2)A(3,2)RB(6)A(1,3)A(2,3)A(3,3)pB(7)A(1,1)A(2,2)A(3,3)B(8)A(1,3)A(2,2)A(3,1)K18B(K)3SS1:340B(K)3SS2:340KN1377024:8:16368,0:"Hit any key tAny corrections? ";:BB$::BB$"Y"5901D350NA(I,J)0Ģ24:2:"Sorry...That square is already taken!!":1560:QQ11000:QQ:350XD3I3J:790bB(1)A(1,1)A(1,2)A(1,3)lB(2)A(2,1)A(2,2)A(2,3)vB(3)A(3,1)A(3,2)A(3,3)B(4:"row 2";:31:"hard":12:"row 3";:31:"medium"|22:1:"Which row do you want? (1,2, or 3)";:16368,0:BB$:I(BB$)&I1I354001510:(3(3I)):1:973,255:">ROW<":973,0(:22:1:" ":24:12:""::490.C1:"It's "C$(2)"'s turn now.":i16:9:"col col col":9:" 1 2 3"22:1:"Which column? (1,2, or 3) ";:BB$:J(BB$)J3J15001510:16:(J8):973,255:">COL<":973,026:"row 1";:31:"easy":94rI$:I13:J$,J$,K$:I>|2:9:"Kw Ka Ksp"PI13:J13j(33I):((3J)8J)A(I,J)1ĺC$(0):430A(I,J)1ĺC$(2):430J:ISS1750SS276020:1:N2(N2)ī480C1:"It's "C$(0)"'s turnther key to start";:16368,0:BB$7"BB$"S"Ĺ800,96K,BB$"S"İ1510u6I122:I$I$(95):I:I$" "I$@I14:J$J$" "(124):IJI13:K$K$(123):J16:K$K$(95):J:I:K$K$(123):K$" "K$TNN1^(12)hwant me to print out the CORRECT answer if the incorrect answer is given (This may be a HINT to your opponent) ""Your choice? ";:16368,0:BB$:1510:(BB$,1)"N"TT1"(12):10:5:"Press for SILENT VERSION -or any oG 0:0:54,0:55,101:" ";:972,104:INITIALIZE HIRES CHARACTER MODEZ 230,64:62450` 10:9:"Equilibrium TIC-TAC-TOE": 23:8:"Press any key to continue ":16368,0:BB$:1510 A(3,3):ANS(3,3):B(8) (12):7t:"Do you (3):SS$(5)(5):SS$(6)(6):SS$(7)(7):SS$(8)(9):SS$(10)(11)(14):SS$(11)(11)(11):SS$(12)(11)(1) SS$(9)(10):SS$(13)(11)(2):SS$(14)(11)(3):SS$(15)(11)(5) 1660 D1(54):D2(55): SAVE DOS VECTORS D$(4) 8,99,99,99,99,99,99,99,99,99,99,99,70G DP$(E)P$(E)CH$:72: LOAD #_ FE1: MOVE TO EXP$g HTM JP(P$(0))10((P$(1))) c dC$(0)(18)(19):C$(2)(126)(127) nSS$(15)n xSS$(0)(14):SS$(1)(11):SS$(2)(1):SS$(3)(2):SS$(4)4:20(.5L):ANS(I,J):V:H:P$;:20: A DEBUGGING TOOLw <(P$)0P$"":V:H:" ":V:H:20 >TM1(P$) ?CH$(P$,TM,1) @CH(CH$)31% BCH68,99,99,99,99,99,99,99,99,99,99,30,99,68,68,99,68,68,68,68,68,68,68,68,68,6B BB$(8)(P$)1P$(P$,(P$)1):V:H:P$" ":V:H:P$;:20t BB$(8)(P$)2P$"":V:H:" ":V:H:20 BB$(13)ĺ:60: PARSE&EVALUATE 20: IGNORE OTHER #'S P$P$BB$:V:H:P$;:20: NORMAL NUMBERS? 2L((ANS(I,J))):2 100 INPUT ROUTINEZP$(0)"":P$(1)"":P$"":E0: DIRECT # TO P$(0) FOR #pBB$:CH(BB$)31}CH126CH30,24,24,24,24,24,24,24,24,24,24,30,24,30,30,24,30,30,30,30,30,30,30,30,30,30,24,24,24,24,24,50,24,24,24,24,24,3020                   for each box will be"::"similar, but the numbers are random.":1000x|10:"Have a good game."::"Please wait while I find it.":225xxx23:7:"Press any key to continue";:16368,0:BB$:(12):L(18)(19)" always play first, so trade off"::"going 1st when you play more than once."::wn"(2) Remember, numbers such as .0000003"::"can be input into the computer as 3E-7"::"...and will be displayed that way, too."::Exr"(3) The questions constant, Kw, (1E-14)"::"-- acid/base constants, Ka & Kb, and"::"-- solubility constants, Ksp."::vc"Use these labels as a hint on how to"::"solve the problems.":1000vh3:10:"SOME TECHNICAL NOTES":10:"--------------------":\wm"(1) " mathematical.":uT"You may need a calculator for some of"::"these questions, but most of them you "::"should be able to do in your head!":1000uY4:12:"ALMOST FINISHED":12:"---------------":gv^"The topics covered are:"::"-- the water ifferent question by choosing a":"totally different box."DtE1000tJ4:9:"EVEN MORE INSTRUCTIONS":9:"----------------------":uO"The difficulty level of the boxes varies":"with the position of the box. The boxes":"in the center are the mostuestion about an "::"equilibrium system.":1000ls;5:11:"MORE INSTRUCTIONS":11:"-----------------"::t@"If you answer incorrectly, your opponent":"can choose to answer a similar question"::"by choosing the same box, or choose a"::"totally dGAME" rCr,(12):5:14:"INSTRUCTIONS":14:"------------":r1"In this game, you and an opponent will"::"play TIC-TAC-TOE...."::" ....but with a difference.":1s6"For one, to claim each square, you must"::"correctly answer a qHARACTER MODE.q16304,0:16297,0:16299,0Gq23:" ":24:" "q22:5:"Would you like instructions?";:16368,0:BB$:BB$"Y"İ300q(12):10:"Please wait while I load the game..."q54,D1:55,D2q104,114:29184,0rD$"RUN TTT.p230,64:62450?pD1(54):D2(55): SAVE DOS VECTORSKpD$(4)fpTM(25856):TM72180pD$"BLOAD TTT.HRCG,A$6500"pD$"BLOAD TTT.SET,A$6800"pD$"BLOAD TTT.TITLE,A$4000" q0:0:54,0:55,101:" ";:972,104: INITIALIZE HIRES C      X32:1000 XX192:10004 L1,X:L1L11:160N L1,96:L1L11:L1,96v "BSAVE TEXT."F$",A$1900,L"L16400w4 "BINARY FILETITLE CREATED BY APPLE PIE? ";F$D"BLOAD"F$XL16384:L16400l(L1,131:L1L11wdX(L)nX192X1411000xX159X192200X224X251300X192X219400X02000LL1:100XX64:1000 ,X  XX192:1000% L1,X:L1L11:160/ L1,0R "BSAVE"F$",A$4000,L"L116384 S5 "BINARY FILETITLE CREATED BY APPLE WRITER?";F$K"BLOAD TEXT."F$_L6401:L116384jdX(L)nX192X1411000xX223X256200X192X219300X0X27400X962000LL1:100XX64:1000,XX32:1000  )256(219)B8:"HIT RETURN TO CONTINUE PROGRAM OR E)XIT":RT$V8I5AQQ:1465e8 RT$"E"Āk8D4$,L1K1):LL(L1K):C6$(C4$,L):1930/7Kf7C$(1):(CK):C1$:(CK):C3$:(CK):C5$:(CK):C6$l7r77I(222):"ERR:";:I0I15J53856I(I255)1:20307J43377(43583I)7K(J):(K);:K192JJ1:2030 8" AT LINE ";(218$(2),L):18956bKF6g(C2$)L1ĺC$(1):(CK):C1$:(CK):C2$:19356qK015:(C2$,L1K,1)" "C3$(C2$,L1K1):LL(L1K):C4$(C2$,L):19156vK6{(C4$)L1ĺC$(1):(CK):C1$:(CK):C3$:(CK):C4$:1935(7K015:(C4$,L1K,1)" "C5$(CL(D1$):LL1ĺD1$:1935m5NK015:(D1$,L1K,1)" "C$(1)(D1$,L1K1):LL(L1K):C$(2)(D1$,L):1880t5SK5XC$(1)""ĺD1$:19355Z(C$(2))L1ĺC$(1):(CK):C$(2):1935 6]K015:(C$(2),L1K,1)" "C1$(C$(2),L1K1):LL(L1K):C2$(C18304S1$;4 S$S$S1$14(37)11ī174584IC4&N10:[4' PRETTY PRINTER 4+:"CATALOG"::" BYE FOR NOW "::40D1$""ı45P0L1384:CKY4?C$(1)"":C$(2)"":C1$"":C2$"":C3$"":C4$"":C5$"":C6$""4DP1L1795I0#3S1$(27)AA1:1465::45673S1$"^"ġ:645N3S1$(34)S1$"'"3S1$(21)X(36):Y(37):S1$(X,2Y)16X,2Y1))3I1S1$(8)N10:17453S1$(21)ĺ" ";3S1$(8)I2II2:S1$;:S$(S$,I):18104S1$(13)Č958:D$;"OPEN NAME$"&2D$;"DELETE NAME$";2D$;"OPEN NAME$"Q2D$;"WRITE NAME$"]2I120i2NE$(I)p2I2D$;"CLOSE NAME$"22 INPUT ROUTINE 2S$"":S1$""2IN11LL:(95);:I21:122I1LL2S1$3FLAG2ī177N";NE$;".ANSR,L120"&1IA5(A5)401JJ1O1D$;"READ";NE$;".ANSR,R";I]1ANSR$(J)d1It1D$;"CLOSE"1"READING TUTORIAL ";A;" FROM DISK."1D$;"OPEN";NE$;".TUT,L200"1D$;"READ";NE$;".TUT,R";A1TUT$1D$;"CLOSE"12I0JD$;"CLOSE"0O;0T READ INFORMATION FROM DISK d0Y"READING QUESTION ";A;" FROM DISK."0^:D$;"OPEN";NE$;".QUESTION,L200"0cD$;"READ";NE$;".QUESTION,R";A0hQUEST$0mD$;"CLOSE"0rJ00w"READING ANSWERS FROM DISK."1|D$;"OPEOM DISK"./ :D$;"OPEN";NE$;".QUESTION,L200"9/I1A\/D$;"READ";NE$;".QUESTION,R";Ig/Q$(I)n/I~/"D$;"CLOSE"/'/,"READING TUTORIALS FROM DISK"/1D$;"OPEN";NE$;".TUT,L200"/6I1A/;D$;"READ";NE$;".TUT,R";I/@TUT$(I)0EK".D$;"OPEN";NE$;".N,L3"9.D$;"WRITE";NE$;".N,R1"D.A:QQT.D$;"CLOSE"\.:}. READ DISK INFORMATION NAME.D$;"OPEN NAME$,D1".I120.D$;"READ NAME$".NE$(I).I.D$;"CLOSE NAME$"./"READING QUESTIONS FRT,R";A-(34)TUT$&-D$;"CLOSE",-N- FIND LAST ARTICLE NO. INPUTp-"READING RECORD # FROM DISK"-D$;"OPEN";NE$;".N,L3"-D$;"READ";NE$;".N,R1"-A,QQ-D$;"CLOSE"--: RECORD LAST #."WRITING RECORD # ";A;" TO DISWRITING ANSWERS TO DISK" ,PJ0@,UD$;"OPEN";NE$;".ANSR,L120"S,ZIA5(A5)4],_JJ1},dD$;"WRITE";NE$;".ANSR,R";I,i(34)ANSR$(J),nI,sD$;"CLOSE",x"WRITING TUTORIAL TO DISK",}D$;"OPEN";NE$;".TUT,L200"-D$;"WRITE";NE$;".TUCH(CH$):CH1CH3ī1310.+#CH$"1"ī1210A+$CH$"3"ī1040R+(A$(A):755m+- WRITE IN INFORMATION+2"WRITING QUESTION TO DISK"+7:D$;"OPEN";NE$;".QUESTION,L200"+<D$;"WRITE";NE$;".QUESTION,R";A+A(34)QUEST$+FD$;"CLOSE",K"INUE";RT$+*:"TUTORIAL DESCRIPTION :":9*D1$TUT$G* Y1:1840k*:"HIT RETURN TO CONTINUE";RT$*:"DO YOU WANT TO -":"1. GET ANOTHER QUESTION ANSWER SET":"2. EDIT THIS QUESTION":"3. RETURN TO THE MENU"*"CHOOSE BY NUMBER";CH$+TO A)BORT OR ANY LETTER TO CONTINUE !!";:RT$@)RT$"A"ī1210O)A0ī1080Y)1620_)w):"QUESTION #";A:)D1$QUEST$:Y1:1840)::"ANSWERS :":)J15)1:Y4)D1$ANSR$(J):1840)J *(37)20Ą"HIT RETURN TO CONT::"WHAT IS THE ID.# OF THE QUESTION/ANSWER"V("FOR WHICH YOU WANT DESCRIPTIONS? "(:"IF YOU DO NOT KNOW THE ID.# HIT ANY LETTER. NUMBER PLEASE? ";A$:A(A$)-)AQQĺ::"WARNING";::" YOUR SELF-SET LIMIT IS ";QQ:"QUESTIONS"::"HIT 'A' QUESTION."'1580'J0''I1A1'JJ1T'D1$TUT$(I):Y1:I;"..";:1840Z''J5J0:::"HIT RETURN TO CONTINUE";::" ";RT$'I':"HIT RETURN TO EXIT TO MENU";RT$'1040' PRINT DESCRIPTIONS PER TITLE'FLAG2-( NOW ON FILE ARE:":&QI1A)&VJJ1J&[D1$Q$(I):Y1:I;"..";:1840P&`&eJ5J0:::"HIT RETURN TO CONTINUE";::" ";RT$&jI&o:"HIT RETURN TO EXIT TO MENU";RT$&t1040&y '~:"THE FOLLOWING IS A LIST OF TUTORIALS FOR EACH WERS AND TUTORIAL DESCRIPTION FOR SPECIFIC ID"Z%):"4. RETURN TO MAIN MENU":%.20:868::"CHOOSE 1,2,3 OR 4 ";Z$:Z(Z$):Z1Z4ī1070::%3Z1080,1150,1205,135%8 OUTPUT ALL QUESTIONS %B1430:1540%GJ0&L:"QUESTIONS ITEMS".$"IN ANOTHER QUESTION (Y/N) ";:C$F$(C$,1)"Y"ė:730O$ 135n$ OUTPUT INFO. CHOICE $::"ENTER YOUR CHOICE"$:"1. RECEIVE LIST OF ALL QUESTIONS"$:"2. RECEIVE LIST OF ALL TUTORIALS"8%$:"3. RECEIVE QUESTION, ANS::"THE TUTORIAL NOW READS: ":::TUT$W#:"DO YOU WISH TO MAKE ANOTHER CHANGE IN"#"THIS SUBJECT OR EXIT BEFORE DISK ENTRY?":"C)HANGE OR D)ISK? ";C$#(C$,1)"D"755#1325:FLAG2İ1465#AA1AA0:456$:"DO YOU WISH TO CHANGENEW TUTORIAL FOR THE QUESTION-"::QUEST$":"USE RIGHT ARROW AND REPT KEYS TO COPY TEXT OR SIMPLY TYPE OVER OLD CHARACTERS""CT$(TUT$,1)"N1(TUT$):N14Ģ12:980"TUT$(TUT$,N14)"12:TUT$;"LL200:1745(#TUT$CT$" - "S$:;!LL120:1745"!ANSR$(Z)S$+!990i!:"THE CORRECT ANSWER AT THE MOMENT IS ";::(TUT$,1):!:"WHAT SHOULD IT BE ";:"(A,B,C,D,E) ?";CT$!N1(TUT$):N15TUT$CT$" - ":990!TUT$CT$" - "(TUT$,N14)!990)"::"INPUT A TO RETURN TO MENU";:CHANGE$3 wCHANGE$"0"ī990] zZ(CHANGE$):Z1Z5CHANGE$""ī875 :ANSR$(Z)""ANSR$(Z)(64Z)". " :"USE RIGHT ARROW AND REPT KEY TO COPY EXISTING TEXT OR TYPE OVER OLD LETTERS."!N1(ANSR$(Z)):12:ANSR$(Z)OLD CHARACTERS.".RN1(QUEST$):12:QUEST$;?WLL197:1745M\QUEST$S$ya::"THE QUESTION IS NOW-":::QUEST$f990k:"THE OLD ANSWERS ARE-"pJ15:J;"- ";ANSR$(J):J u::"WHICH ANSWER DO YOU WISH TO CHANGE (1-5)"::"TYPE '0'E 1,2,3,4,5 OR 6";Z$:@,Z(Z$):Z0Z6Z$""Ģ18:956:800O/Z0:135k4Z835,875,950,925,10059I15:ANSR$(I)"":>QUEST$"":TUT$""::555C:"ENTER NEW QUESTION."H:"USE RIGHT ARROW AND REPT KEY TO COPY OR SIMPLY TYPE OVER J):"TUTORIAL DESCRIPTION : ":AD1$TUT$:Y1:1840 18::"WHAT DO YOU WANT TO CHANGE?"::"'0'";::" TO ESCAPE WITHOUT CHANGE OR => "%"1.QUESTION 2.ANSWERS 3.TUTORIAL 4.CORRECT ANSWER 5.TO DISK 6.EVERYTHING *:"CHOOSU ARE UNSURE HIT ANY LETTER."F6:868:A$:B(A$):B0B(A)ī735NABmA01080: READ QUESTIONw1620FLAG2::"QUESTION : ":D1$QUEST$:Y1:1840:"ANSWERS : ":J15 1:Y4 D1$ANSR$(J):1840465:456QQ(A)ī385^::"DO YOU WISH TO ENTER INFORMATION":"FOR ANOTHER QUESTION?"o:"Y/N":C$(C$,1)"Y"550385 INDIV. QUESTION EDITOR 1430::"WHICH QUESTION NUMBER NEEDS CHANGING? CHOOSE BETWEEN 1-";A:"IF YO):"TUTORIAL :"::D1$TUT$:Y1:184020:"YOU CAN 1. WRITE TO DISK ":9:"2. CHANGE SOME PART FIRST":9:"3. EXIT WITHOUT CHANGE ";"?";C$:CS(C$):CS1CS3ī685C$"1"İ1325:FLAG2İ1465C$"2"ė:AA1:760C$"3"AA1:1:QUEST$:=20:"TYPE 'ESC' TO RESTART FROM MENU":12NLL196:1745eTUT$CT$" - "S$:"RECORD # ";A;" NOW INCLUDES-"::"QUESTION :":D1$QUEST$:Y1:1840:"ANSWERS :":J15:1:Y4:D1$ANSR$(J):1840JJ@::::QUEST$::J15:1:Y4:D1$ANSR$(J):1840:Jz22:868:"WHICH ANSWER IS CORRECT (ABCDE/TF)? ";CT$CT$""ī650(CT$)84ī655(CT$)65(CT$)70ī650::"ENTER A TUTORIAL DESCRIPTION CONCERNING THE QUESTION."QUESTION- ":::QUEST$::QY"TYPE '^' TO STOP BEFORE THE 5TH ANSWER.":34,10Z20:"TYPE 'ESC' TO RESTART FROM MENU.":35,19:12[J15:ANSR$(J)"":J]J15b:11:"ANSWER # ";J;" IS"q12:1v1745{ANSR$(J)(64J)". "S$YPE 'ESC' TO RESTART (MENU).":123:LL197:17459?FDA$(A)UIQUEST$S$`NLL116S20:"NOW YOU CAN ENTER UP TO 5 POSSIBLE ANSWERS - ONLY ONE OF WHICH CAN BE RIGHT"::"HIT RETURN TO CONTINUE.";RT$X:"ENTER 1-5 ANSWERS FOR THE QQğ:"WARNING";::" YOUR SELF-SET LIMIT IS ";QQ:"QUESTIONS "::"HIT 'A' TO A)BORT OR ANY LETTER TO CONTINUE!";:RT$(RT$"A"ī456):AA1+:"YOU CAN EDIT ALL INPUT BEFORE IT IS SENT TO THE DISK.":0:"ENTER QUESTION # ";A!520:"TEXIT TO BASIC":M22:868:"CHOOSE BY NUMBER? ";Z$:Z(Z$):Z1Z6ī495nZ510,730,1040,505,385,1835D$;"RUN TUTORIAL (TE)":::"QUESTION EDITOR-":PAUSE1500:PAUSE!FLAG0:1430#:"ENTERING QUESTION # ";A1:x&A1:!QUEST$"":ANSR$"":TUT$""A"YOU HAVE SIX OPTIONS:":d8)"1. INPUT NEW QUESTIONS":8)"2. UPDATE OLD QUESTIONS":8)"3. REVIEW ALL QUESTIONS":8)"4. GOTO TUTORIAL":8)"5. WORK ON DIFFERENT TUTORIAL":8)"6. "INSERT NEXT DISK AND HIT RETURN";:RT$:400>X$"E"ī1835bX$"T"ĺD$;"RUN TUTORIAL (TE)"xX$"0"CK2:205X1ī433 NEW QUESTION 1430:::NE$;::" HAS ";A;" QUESTIONS":"YOU CAN ENTER A MAXIMUM OF ";QQ;" QUESTIONS."I;". ";NE$(I)IE:"TYPE 'D' TO VIEW DATA ON NEXT DISK""TYPE 'E' TO EXIT PROGRAM":"TYPE 'T' TO GO TO THE TUTORIAL"21:868:"CHOOSE BY NUMBER OR (D,E,T)";X$:X$""ī433X(X$)X0XI1ī433NE$NE$(X),X$"D"ĺ FRE(0)@:"PUT DATA DISK IN DRIVE1 AND HIT RETURN";:"";RT$J1500WY1:N10:12::"DISK CONTENTS"::"WHICH TUTORIAL DO YOU WISH TO EDIT?":"0. ";::"BEGIN NEW TUTORIAL NOT ON LIST"::I120NE$(I)""ī430I1I11@I5(QQ55)1ED$;"WRITE";NE$;".ANSR,R";I:J" "AOIQTD$;"CLOSE"pYD$;"OPEN";NE$;".TUT,L200"|^I1QQcD$;"WRITE";NE$;".TUT,R";Ih" "mIrD$;"CLOSE"tCK2ī456w105|D$;"CATALOG": TUTORIAL EDITOR:X=N NAME$"D$;"WRITE NAME$"*I1204"":JD$;"CLOSE NAME$"S100Y} D$;"OPEN";NE$;".QUESTION,L200"I1QQD$;"WRITE";NE$;".QUESTION,R";I" "I"D$;"CLOSE"'A0,1475;D$;"OPEN";NE$;".ANSR,L120" MAXIMUM";:QQ:QQ1QQ30ī225) 17252 263 ::" <<< CAUTION >>> ":::"DO NOT PROCEED IF DISK ALREADY HAS DATA" :"TYPE 'C' TO CONTINUE":"TYPE ANY LETTER TO RETURN TO THE MENU":RT$ RT$"C"ī100D$;"OPERATION PROGRAM "::7 I120:NE$(I)""ī220C NE$(I)J IP :"ABOVE NAMES ARE RESERVED ";::"PICK ANY OTHER":::"NAME OF NEW TUTORIAL IS-";NE$ NE$(I)NE$ 958::"HOW MANY QUESTIONS WILL YOU NEED TO STORE? <<20>>$) X0X20ī10' NE$(X)""ī106 NE$NE$(X)J NE$(X)"":1725k D$;"DELETE";NE$;".QUESTION" D$;"DELETE";NE$;".N" D$;"DELETE";NE$;".ANSR" D$;"DELETE";NE$;".TUT" 105 INIT PROGRAM 1500 ::" DISK PREPAE BY NUMBER ";ID$ ID(ID$)4 ID0ID6ī132T ID230,145,205,385,505,380^ 1500j I120 :IF NE$(I) = "" THEN GOTO 165 I;". ";NE$(I):I :"WHICH TUTORIAL DO YOU WISH TO DELETE? ENTER '0' TO RETURN TO MENU";:" ";X$:X(XE T U T O R I A L E D I T O R "::| }"1. PREP NEW DISK":"2. DELETE FILES":"3. SET UP FILES - NAME & NO. OF Q'S": "4. ";::"GOTO TUTORIAL EDITOR (MAIN PROGRAM)":::"5. GOTO THE TUTORIAL":"6. EXIT TO BASIC"  15:868:"CHOOSl0 10,"NUMBER OF POSSIBLE Q'S= ";QQL"NUMBER OF ACTUAL Q'S= ";Af"NAME OF TEST= ";NE$rD$(4)|1465 ::2000NE$(20)Q$(30),AR$(150),T$(30)(TUT$(30)d OUTER MENU inD$(13)(4)% x::" T H                        $::N(N$)$6N$"E"Ŀ0$@N1NI1ė:4080@$JNE$NE$(N)I$T960Y$YRV(4A5)_$^$:"BYE FOR NOW - TYPE RUN HELLO TO BEGIN AGAIN":#:K139:" ";:K:E#" T U T O R I A L R E V I E W MENU1"`#:K139:" ";:K::j#1100#"YOU MAY CHOOSE FROM THE FOLLOWING TOPICS"#:I120#NE$(I)""ī4120#I;". ";NE$(I)#I# $,"CHOOSE BY NUMBER OR E)XIT";N NUMBER OF QUESTIONS "h"B:"THE ";QS$;" FOR ";NE$::"HAS ";(4A5);" QUESTIONS ";NAME$;"!"r"GVRRV"L10:868:"HOW MANY DO YOU WISH TO TRY? ";:"";N$"VRV(N$)"`N$""ī3660"jRV1RVVRī3660"t" MENU 1 ": MISSED"U! :"QUIZ MODE IS LIKE THE TUTORIAL WITHOUT THE ADDITIONAL EXPLANATION."q! 8:"CHOOSE 1/2/3 ";TT$! (TT$)1(TT$)3ĺ"INVALID - TRY AGAIN":3305! TT(TT$)!* TT1QS$"TUTORIAL"!4 TT2QS$"TEST"!> TT3QS$"QUIZ"!C "IZ MODE":: 10:"TUTORIAL MODE MAY GIVE A BRIEF EXPLAIN- ATION OF THE ANSWER. YOU ARE GIVEN TWO MISSES BEFORE THE PROGRAM SUPPLIES THE ANSWER."! :"TEST MODE WAITS UNTIL THE LAST QUESTION IS ANSWERED, THEN GIVES THE SCORE AND WHICH ONE'S WERE:"IF THE PROGRAM GOES AWAY OR DOES NOT RUN PROPERLY, TURN THE COMPUTER OFF AND BEGIN AGAIN.":"HIT RETURN TO CONTINUE";RT$ : TYPE OF REVIEW 1:868:"DO YOU WANT TO BE IN -"::"1. TUTORIAL MODE":"2. TEST MODE":"3. QU0K5C$(1):(CK):C1$:C3$:C5$:C6$:LPLP5;Q INSTRUCTIONS W"ANSWER EACH QUESTION BY TYPING IN THE THE LETTER WHICH BEST ANSWERS THE QUESTION."::"HIT THE RETURN KEY TO CONTINUE WITH THE QUIZ, TEST OR TUTORIAL."g(CK):C1$:(CK):C2$:LPLP3:1215qK015:(C2$,L1K,1)" "C3$(C2$,L1K1):LL(L1K):C4$(C2$,L):1195xK(C4$)L1ĺC$(1):(CK):C1$:C3$:C4$:LPLP4:1215K015:(C4$,L1K,1)" "C5$(C4$,L1K1):LL(L1K):C6$(C4$,L):121K015:(D1$,L1K,1)" "C$(1)(D1$,L1K1):LL(L1K):C$(2)(D1$,L):1165WK(C$(2))L1ĺC$(1):(CK):C$(2):LPLP2:1215K015:(C$(2),L1K,1)" "C1$(C$(2),L1K1):LL(L1K):C2$(C$(2),L):1180K"(C2$)L1ĺC$(1):D$;"READ NAME$"(VI120:NE$(I):I>[D$;"CLOSE NAME$"D`\e PRETTY PRINTER jjD1$""ıtoL1LEtCKY: INDENTATION VARIABLEyC$(1)"":C$(2)"":C1$"":C2$"":C3$"":C4$"":C5$"":C6$""~L(D1$):LL1ĺD1$:LPLP1:1215PI5A54, D$;"READ";NE$;".ANSR,R";I:ANSR$(I)AIQD$;"CLOSE"u$"READING TUTORIALS FROM DISK.")D$;"OPEN";NE$;".TUT,L200".I1A3D$;"READ";NE$;".TUT,R";I8T$(I)=IBD$;"CLOSE"GL:D$;"OPEN NAME$"QR1" A,QQD$;"CLOSE"#F"READING QUESTIONS FROM DISK"l:D$;"OPEN";NE$;".QUESTION,L200"wI1AD$;"READ";NE$;".QUESTION,R";IQ$(I)ID$;"CLOSE""READING ANSWERS FROM DISK."D$;"OPEN";NE$;".ANSR,L120" ::"CHECK WITH TEACHER FOR EXPLANATION":::940O::"THE ANSWER WAS--":l:D1$T$(A(Q)):Y1:1130r DISK ROUTINES  FIND LAST ARTICLE NO. INPUT"READING RECORD # FROM DISK"D$;"OPEN";NE$;".N,L3"D$;"READ";NE$;".N,TINUE";RT$uz:K:" E X P L A N I T O R Y N O T E S ":z"=======================================""THE QUESTION WAS --":::D1$Q$(A(Q)):Y1:1130:IA(Q)5A(Q)54D1$ANSR$(I):Y4:1130I1(T$(A(Q)))4ĺ RESPONSE RT. H&MR1((1)8)>RF2āI18:RS$:IRWI0R1:RS$:I[\RS$aF1ĝ:" THAT'S ";R;" RIGHT ":875fF2ĺ:" TRY ANOTHER ANSWER";::G2$:kTT1Ą"HIT RETURN FOR MORE INFORMATION";MI$:890 p:"HIT RETURN TO CONTT3ī820K%Y1:::"INCORRECT ANSWERS ARE"::I1W1:D1$WA$(I):1130:y*(37)20Ą"HIT RETURN TO CONTINUE";RT$:/I4(22):"DO YOU WANT MORE QUESTIONS (Y/N) ";:MO$9MO$"Y"ĉ:210>::"BYE FOR NOW":::"CATALOG":C ANSWERN TO CONTINUE";RT$515/ REPORT CARD ;FR(0)JTT1ī820 NAME$;" YOU MISSED ";W1;" QUESTIONS OUT OF ";Q:W20ī790"BUT ";W2;" WERE ANSWERED CORRECTLY AFTER TWO TRIES.":"THAT IS ";((QW1)Q)100;"%";" CORRECT"  5TT1Ą"HIT RETURN FOR MORE INFORMATION";MI$:890T:"HIT RETURN PLEASE";RT$]515{ SECOND TRY SUBROUTINE:"SORRY ";NAME$;" BUT THE ANSWER WAS ....";:(T$(A(Q)),1):D1$(T$(A(Q)),3,(T$(A(Q)))):Y4:1130:::"HIT RETUR5 RETURN TO NEXT QUESTION*:515XGUESS$(T$(A(Q)),1)W1W11:WA$(W1)B$a515p5)::F2|W1W11 WRONG ANSWER RT.  *******835G2$(T$(A(Q)),1)ī735:::"<<>>":W2W21. RETURN TO MENU"::"WHICH? (1,2)";UN:UN515,20qGUESS$"A"GUESS$"B"GUESS$"C"GUESS$"D"GUESS$"E"GUESS$"F"GUESS$"T"ĺ"INVALID - TRY AGAIN":615vTT2ī670{958GUESS$(T$(A(Q)),1)ī6805)::F1RR183I),1)(T$(A(Q)),1)B$(Q)". "B$"==> "(ANSR$(I),((ANSR$(I))2))]ND1$ANSR$(I):1130dSInXLE39|]:LPLP1bCV(37)g(CV1):868:"CHOOSE BY LETTER (ABCDE/FT) OR Q)UIT ";GUESS$1lGUESS$"Q"ĺ:"1. PROCEED TO NEXT QUESTION":"2TI$(13)(13)8::12:"*** ";QS$;" ***"::34,2N BEGIN QUESTIONSTb QNī765r FORM FEEDxQQ1!B$Q$(A(Q))&+D1$(QSTART)") "Q$(A(Q))0Y1:11305:Y4:LE35?IA(Q)5A(Q)54FI(ANSR$(GOOD,RIGHT,GREAT,WELL DONElSORRY!,NO!,OOPS.,NOT QUITE.,CLOSE BUT NO CIGAR.,NOT SO.,INCORRECT.,BAD LUCK.v ENDQ0:W10:W20:R0:LP0DS0İ985I1A:A(I)I:IX((1)A)1YA(X):A(X)A(A):A(A)YAA1A0ī480 REVIEW **"0 |:"WHICH SELECTION ? (1-6)";SL$> SL(SL$)G NRVX SL$""ī325l SL1SL6ī325 SL3300,3600,4000,1225,5000,410 325  BEGIN REVIEW  MODIFIED 12/13/81 TERRIFIC,CORRECT,BRILLIANT,OUTSTANDING,SO FAR SO TORIAL)"7 RDE$:"2. NUMBER OF QUESTIONS: ";::RV:Q S" (1-";(4A5);")" TDE$:"3. CHANGE REVIEW TOPIC: ";::NE$: V" (GO TO MENU 1)" XDE$:"4. *** INSTRUCTIONS ***" ZDE$:"5. ** END THE REVIEW **" \DE$:"6. ** BEGIN THE4000: MENU # 1" @ MENU # 2 o E:"THE ";NE$;" REVIEW";:34:"MENU#2":"HAS THESE CHOICES: ";::NA$;: J:" PARAMETER VALUE" L" ========= =====" N:"1. TYPE OF REVIEW : ";::QS$: P" (QUIZ,TEST,TUSERT DISK WITH TEST DATA OR RESTART THE COMPUTER":[ :"WHEN READY HIT 'RETURN'";RT$n  MENU # 1 ::"WELCOME TO THE TUTORIAL REVIEW":: OS1ī270 4:868:"WHAT IS YOUR NAME ";:NAME$:(NAME$)2ī268 NAME$"QUIT"Ā z#    ԮԠϠȠ ˠŠΠձ Ť Ҡ2 ҾŠ žҠ ԮԠ ԮŠ! ԮŠ"ԮǠ ŠӠ ̠ Ӡ٠ ԠӠΠ ϭϠ ̠ũ "̠٩ԠǠԠǠԠ(ԠǠԠ+ ԠǠԠ1 ԠǠԠ)ɠԠ ͠Ӡ                "lPA1200:PA:*I1(A$)ALL((A$,I,1))30]LL(K(I1)(WL2)),LdIj STARTING POSITION CALCULATORK(XL(XRXL)2)((A$)(WL2))2:LYT(YBYT)2(DL2)  COPTION 1 BEFORE TRYING OPTION 2."72000:L161:1940hA$"(PRESS THE 1 OR 2 KEY AND )"}K15:L175:1940R:R21699 OPTION SELECTORR1730,1740(4);"RUN ELECT ARRANG OPT 1"(4);"RUN ELECT ARRANG OPT 21940:|A$"2. LEARN HOW TO SHOW ELECTRON ARRANGEMENTS"P2000:L126:1940qA$"USING BRACKET DIAGRAMS."2000:L134:19405:9,140267,140267,1659,1659,140:3A$"CAUTION! BE SURE YOU HAVE COMPLETED"2000:L149:1940!A$"ANGEMENT OF ELECTRONS IN ATOMS":E2000:L76:1940:1900gOA$"PLEASE SELECT ONE OF THESE OPTIONS:"|Y2000:L94:1940^A$"1. LEARN THE ORDER OF OCCUPANCY OF"c2000:L106:1940mA$"THE ENERGY LEVELS AND THEIR SUBSHELLS."r2000:L114:NA$:B$"HELLO ":A$B$NA$2 2000:L28:1940:aA$"WELCOME TO THE WORLD INSIDE THE ATOM."|2000:L40:1940:1900A$"THIS SERIES OF PROGRAMS WILL TEACH YOU""2000:L52:1940,A$"HOW TO DETERMINE"12000:L64:1940@A$"THE ARR BORDER:6.XL1:XR278:YT1:YB1909I15\XL,YTXR,YTXR,YBXL,YBXL,YTXLXL1:XRXR1:YTYT1:YBYB1I3XL6:XR273:YT10:YB16:WL4:DL6A$"HI THERE. PLEASE TELL ME YOUR FIRST NAME."2000:L16:194050X,Y:1500,XX20:YY14:50X,Y:1500EYY14:50X,Y:1500^YY14:54X,Y:1500~XX20:YY28:51X,Y:1500YY14:50X,Y:15001505PA175:PA: MENU PAGE(4);"BLOAD ASCII SET,A24576":233,96:232,0:1:0 I121366TPA175:PA:I)U14009VLL6:1364Wx DISPLAY BRACKET DIAGRAM^}3nX200:Y120X,Y(X12),Y(X12),(Y30)X,(Y30)X2401440XX20:Y120:1420 PLACE NUMBERS INX202:Y109:49X,Y:1500 YY14:10:DL12 -I112 2LL(I)' 7IR < 49,83,50,50,83,50,50,80,54,51,83,50_ AK1:L60k FI112y GI31356 HI61356 II91356 JI121356 KLL(I)K(I1)WL,L:1360 LLL6:1355 PI31366 QI61366 RI91366 SJ181300 X(PO8)72:0* J1IA LL((T$,J,1))64Y LL18LL46:1235h LL01240t LLX,L~ XX8 J 3 I  DISPLAY 1S22S22P6 ETC.  (4);"BLOAD LARGE CHARACTERS,A24576" (XL1:XR97:YT120:YB140:WLAMETERS" A$"BY ROY J. ARLOTTO"4 YT160:YB180> 2000M I1(A$)v PO((A$)1)(I1): LETTER POSITION X(PO8)72 T$(A$,1,I) J1I LL((T$,J,1))64 LL18LL46:1200 LL01205 LLX,L XX8 J YB30:WL7:DL87 LA$"ELECTRON ARRANGEMENTS IN ATOMS"d Q2000: CALC STARTING POSITION IN WINDOWs VI1(A$) [LL((A$,I,1))64 `LL01135 jLLK(I1)(WL2),L oI t DISPLAY BOTTOM BILLBOARD y6: VILOET ~ BOTTOM WINDOW PAR% 233,96:232,0:1:0:CX140:CY96+ ; 3:1CX,CYK 5:2CX,CY[ 1:3CX,CYk 2:4CX,CY $ DISPLAY TOP BILLBOARD .(4);"BLOAD MEDIUM CHARACTERS,A24576 3233,96:232,0:1:0:3 8 TOP WINDOW PARAMETERS BXL1:XR279:YT10:  ELECT ARRANG9 ELECTRON ARRANGEMENTS IN ATOMSELL(12)KQ n! PROGRAM USES "ORBITAL"" "MEDIUM CHARACTERS" AND # "LARGE CHARACTERS" FILES TITLE DISPLAY DISPLAY ORBITAL PICTURE(4);"BLOAD ORBITAL,A24576"     :3004110:X130:51X,Y:X142:50X,Y:120:260bA$"THE 5TH, 6TH AND 7TH LEVELS CAN HOLD"v150:L160:190A$" 32, 18, AND 8 ELECTRONS EACH."150:L170:190:260 300:110:X160:51X,Y:X172:50X,Y:300&X190:49X,Y:X20300$110:X76:56X,Y:120:2606L14017010?270FLvA$"THE 3RD LEVEL CAN HOLD 18 ELECTRONS."150:L140:190:300110:X100:49X,Y:X112:56X,Y:120:260A$" 32 ARE FOUND IN A FILLED 4TH LEVEL."150:L150:190 A$"CAPACITY OF ELECTRONS."4150:L150:190cA$"THE 1ST LEVEL HOLDS ONLY 2 ELECTRONS."|150:L160:190:260A$"MAX.":K1:L120:190110:X46:Y112:50X,Y:120:260A$"THE 2ND LEVEL HOLDS 8 WHEN FILLED."150:L170:190:150:L164:170:PA1800:PA:120:260:L DISPLAY TABLEHQ120::3fVX(0):A$"ENERGY LEVELS"y[150:L10:190e110jX46:Y28oI4955tIX,YyXX30~I120A$"EACH ENERGY LEVEL HAS A MAXIMUM"150:L140:190RONS IN ATOMS ARE FOUND TO HAVE"4150:L130:190Z$A$"DIFFERENT AMOUNTS OF ENERGY."s)150:L138:190:260.A$"ONLY 7 MAIN ENERGY VALUES ARE FOUND."3150:L150:1908A$"THESE ARE CALLED ":150:L158:190&BA$"ENERGY LEVELS":110:DLL1:270:A$"YES, THAT'S CORRECT. "C$" FILLS NEXT.":LL1:500v670:BXBX21:660:XXE:YYS:250:260:280: MAIN PROGRAM:3120XL1:XR269:YT1:YB24A$"LEARNING THE ORDER OF OCCUPANCY"150:L12:190 A$"ELECTOW ANSWER CHECKER 1C1HA$"WHAT SUBSHELL FILLS NEXT?":LL1:500`R$:A$R$:LL2:500oR$C$715|C2710CC1:LL1:270:A$"NO, TRY AGAIN.":LL1:500:260:280:685LL1:270:A$"NO, THE "C$" FILLS NEXT.":LL1:500:260:7200:310:YT92:YB104:650:310:8 FILL ERASER BLACK]YYTYB:0:X,Y(X8),Y:Y:3:k BOXERBX,BYBX,(BY10)(BX16),(BY10)(BX16),BYBX,BY: BOX REMOVER0:BX,BYBX,(BY10)(BX16),(BY10)(BX16),BYBX,BY:3: ARROLET SHORTCUT3r620:310:YT60:YB72:650:310:Gv D FILL GREENlwY7688:1:X,Y(X8),Y:Y:3:{ D GREEN SHORTCUT|630:310:YT76:YB88:650:310: F FILL BLUEY92104:6:X,Y(X8),Y:Y:3: F BLUE SHORTCUT64 ASC LINE DISPLAY SHORTCUT-150:190:AX COLOR FILLERSXb S FILL ORANGE}cY4456:5:X,Y(X8),Y:Y:3:g S ORANGE SHORTCUTh610:310:YT44:YB56:650:310:l P FILL VIOLETmY6072:2:X,Y(X8),Y:Y:3: q P VI  LINE 1 & 2 ERASER3 LL1:270:LL2:270:[ ,PA175:PA:: MEDIUM PAUSE } 6PA140:PA:: QUICK PAUSE @PA1100:PA:: LONG PAUSE ^L14017010:270:L:  SINGLE ASCII DISPLAY LL((A$,1,1))30 LLX,Y:,(Y9)(X18),(Y6):9 A$" HIT ":K1:L184L 190:16368,0g Z(16384):Z128262v Z160268 (16368),0:262 (16368),0:0:190:3:  ASCII ERASE-A-LINE 0: BLACK I12706 1I,L I 3  FOR ASCII SET WORD DISPLAYS- I1(A$)D LL((A$,I,1))30` LL(K(I1)(WL2)),Lg Im SINGLE LARGE CHAR. DISPLAY LL((A$,1,1))64 LLX,Y: PLOTS DIAGONALS XX6:YY2:X,Y(X18),(Y9):(X15),(Y9)(X18)233,105:232,0:WL5:DL6:: AS CII SETw K(XL(XRXL)2)((A$)(WL2)2):: CENTERING SUBROUTINE FOR LARGE CHARACTER WORD DISPLAYS I1(A$) LL((A$,I,1))64 LL1186 LL(K(I1)(WL2)),L I  " -(4);"BLOAD ASCII SET,A26880", 21:0I c1000: START OF PROGRAMX d GOSUBSx i KEYSTROKE DISPLAY ROUTINE jR$"":K126 kK$:(K$)13ı lLL(K$)30:LLK,L:R$R$K$:KK7:107 n233,96:232,0:WL8:DL12:: LARGE CHARACTERS6 x& ELECT ARRANG OPT 1 ? OPTION 1 OF MAIN PROGRAMX ELECT ARRANG^x BY ROY J. ARLOTTO~ LEARNING THE ORDER OF OCCUPANCYT$(19),XX(19),Y(19)((4);"BLOAD LARGE CHARACTERS,A24576"5008'A$"GIVE THE 5TH LEVEL 32 ELECTRONS?":L150:500q'A$"(TYPE ALL IN BEFORE HITTING RETURN.)":L160:500'L170:105'L14016010:270:L'R$"SPDF"1965'C21955'CC1:A$"NO, THAT'S INCORRECT. TRY AGAIN.":L140:500:260(Y AGAIN.":L170:500:2609&bL14017010:270:L:1865&gA$"NO, THE 5TH LEVEL HOLDS 32 ELECTRONS.":L170:500:260:350:1910&lA$"EXCELLENT! THE 5TH LEVEL HOLDS 32.":L170:500:260:350&vC1'{A$"NOW, WHAT SUBSHELLS ARE PRESENT TO":L140:YOUR CHANCE":L140:500J%?A$"TO GET INTO THE ACT.":L150:500:260:350R%DC1}%IA$"HOW MANY ELECTRONS CAN":L140:500%JA$"THE FIFTH LEVEL HOLD?":L150:500%NL160:105%SR$"32"1900%XC21895&]CC1:A$"SORRY, THAT'S INCORRECT. TR F SUBSHELLS!":L150:500'$XX4:615F$110:A$"S":Y44:240:300O$625i$!A$"P":Y60:240:300r$&635$+A$"D":Y76:240:300$0645$5A$"F":Y92:240:300:120:260:350$6 USER RESPONDS TO FILL REST OF BRACKETS%:A$"NOW, HERE'S 650:310(#110:A$"S":Y44:240:300L#620:310:YT60:YB72:650:310f#A$"P":Y60:240:300#630:310:YT76:YB88:650:310#A$"D":Y76:240:300:120:260:350# A$"THE 4TH LEVEL HAS A FULL HOUSE!":L140:500$ A$"IT HAS S, P, D &:650320("110:A$"S":Y44:240:300L"620:310:YT60:YB72:650:310p"A$"P":Y60:240:120:260:350"A$"TO GET 18 ELECTRONS IN THE 3RD LEVEL,":L140:500"A$"IT MUST HAVE S, P, & D SUBSHELLS.":L150:500 #XX3:610:310:YT44:YB56:RE, HAS ONLY AN S SUBSHELL.":L150:500:320U!XX1:610:310:YT44:YB56:650:310y!110:A$"S":Y44:240:120:260!A$"THE 2ND LEVEL HAS AN S & P SUBSHELL":L160:500!A$"FOR A TOTAL OF 8 ELECTRONS.":L170:500 "XX2:610:320:YT44:YB565009 A$"AND THE SUBSHELL CAPACITIES.":L150:500:260o A$"THESE SHOW THAT EACH ENERGY LEVEL":L160:500 A$"CAN HAVE ONLY CERTAIN SUBSHELLS IN IT.":L170:500:260 350 A$"THE 1ST LEVEL CAN HOLD 2 ELECTRONS.":L140:500,!A$"THEREFO:400:300$A$"1":X16:Y95:400>A$"4":X21:400:260cL140:270:L16018010:270:L ASSIGNING SUBSHELL TO EACH LEVELX146:X276:X3106:X4136:X5166:X6196:X7226X(0) A$"NOW, LOOK AT THE ENERGY LEVEL MAXIMUMS":L140:70:Y163:400:300-hA$"0":X175:400:300GmA$"1":X16:Y79:400arA$"0":X21:400:260pwL140:270|A$"F SUBSHELLS HOLD 14 ELECTRONS.":L140:500110:A$"F":X200:Y160:240:320120:A$"1":X210:Y163:400:300 A$"4":X215HOLD 6 ELECTRONS.":L140:500C@110:A$"P":X120:Y160:240:300iE120:A$"6":X130:Y163:400:320JX16:Y63:400:260OL140:270TA$"D SUBSHELL CAN HOLD 10 ELECTRONS.":L140:500^110:A$"D":X160:Y160:240:320c120:A$"1":X1"CERTAIN CAPACITIES.":L150:500:260@ L14015010:270:LzA$"AN S SUBSHELL HOLDS ONLY 2 ELECTRONS.":L140:500110:A$"S":X80:Y160:240:300120:A$"2":X90:Y163:400:300"X16:Y47:400:260'L140:270,A$"P SUBSHELLS X6:Y60:240:3202A$"D":Y160:XY:240:320IX6:Y76:240:320jA$"F":Y160:X200:240:320X6:Y92:240:320120:260 SUBSHELL CAPACITIES 120:X(0):350A$"THE SUBSHELLS ARE FOUND TO ALSO HAVE":L140:500&A$50:L140:190%110:A$"SUBSHELLS"d150:L154:170:120:260:L140:270:L154:270:L164:270120:A$"THE SUBSHELLS ARE NAMED:"150:L140:190110:A$"S":X80:Y160:240:300Y44:X6:240:320A$"P":Y160:X120:240:320(0)0A$"IN EACH ENERGY LEVEL, THE ELECTRONS"D150:L140:190lA$"ARE SEEN TO DIFFER IN HOW THEY"150:L150:190A$"CARVE OUT SPACE AROUND THE NUCLEUS"150:L160:190:260:350A$"THESE 4 DIFFERENT PATTERNS ARE CALLED" 12:56X,Y:300:X226:56X,Y:120:260/350C DRAW IN LINESLX40]#Y4210664h(I17z-X,Y(X20),Y2XX307I<X40AYFY42PX6024030UX,YX,(Y64)ZY42_Xx SUBSHELL EXPLANATION}120:XSHORTCUT.r620:300:YT60:YB72:650:320:Bv D FILL GREENgwY7688:1:X,Y(X8),Y:Y:3:~{ D GREEN SHORTCUT|630:300:YT76:YB88:650:320: F FILL BLUEY92104:6:X,Y(X8),Y:Y:3: F BLUE SHORTCUT640:30SC LINE DISPLAY SHORTCUT(150:190:<X COLOR FILLERSSb S FILL ORANGExcY4456:5:X,Y(X8),Y:Y:3:g S ORANGE SHORTCUTh610:300:YT44:YB56:650:320:l P FILL VIOLETmY6072:2:X,Y(X8),Y:Y:3:q P VIOLET  LINE 1 & 2 ERASER0 LL1:270:LL2:270:X ,PA175:PA:: MEDIUM PAUSE x 6PA140:PA: QUICK PAUSE @PA1100:PA:: LONG PAUSE ^L14017010:270:L:  SINGLE ASCII DISPLAY LL((A$,1,1))30 LLX,Y: A9)(X18),(Y6):6 A$" HIT ":K1:L184I 190:16368,0d Z(16384):Z128262s Z160268 (16368),0:262 (16368),0:0:190:3:  ASCII ERASE-A-LINE 0: BLACK I12706 1I,L I 3 FOR ASCII SET WORD DISPLAYS* I1(A$)A LL((A$,I,1))30] LL(K(I1)(WL2)),Ld Ij SINGLE LARGE CHAR. DISPLAY LL((A$,1,1))64 LLX,Y: PLOTS DIAGONALS XX6:YY2:X,Y(X18),(Y9):(X15),(Y9)(X18),(Y3,105:232,0:WL5:DL6:: AS CII SETt K(XL(XRXL)2)((A$)(WL2)2):: CENTERING SUBROUTINE FOR LARGE CHARACTER WORD DISPLAYS I1(A$) LL((A$,I,1))64 LL1186 LL(K(I1)(WL2)),L I  (4);"BLOAD ASCII SET,A26880") 21:0F c1000: START OF PROGRAMU d GOSUBSu i KEYSTROKE DISPLAY ROUTINE jR$"":K126 kK$:(K$)13ı lLL(K$)30:LLK,L:R$R$K$:KK7:107 n233,96:232,0:WL8:DL12:: LARGE CHARACTERS3 x23o) ELECT ARRANG OPT 1A": CONTINUATION OF U ELECT ARRANG OPT 1[u BY ROY J. ARLOTTO{ LEARNING THE ORDER OF OCCUPANCYT$(19),XX(19),Y(19)((4);"BLOAD LARGE CHARACTERS,A24576" -          RRANG OPT 1A" ARRANG OPT 1A" 76:X3106:X4136:X5166:X6196:X7226 W:X7226 W:LL3:500:260.zLL1L310:270:L.A$"WE WILL FIRST DO THIS FOR ELEMENT 118":LL1:500.A$"(AS YET, UNDISCOVERED.)":LL2:500/A$"ONCE WE SEE ITS TAINS THE S & P.":L140:500:260:2130]-MA$"TERRIFIC! IT DOES HAVE THE S & P.":L140:500-R110:A$"S":XX7:615:Y44:240:300-W625:A$"P":Y60:240:300:120:260:L140:270:L170:270-\(4);"RUN ELECT ARRANG OPT 1A" .^(4);"RUN ELECT A:500;,A$"THE 7TH LEVEL HAS WHAT SUBSHELLS?":L150:500P, A$T$:L160:500_,%L170:105y,*L14016010:270:L,4R$"SP"2125,9C22120,>CC1:A$"GIVE IT ANOTHER TRY.":L140:500:260,CL170:270:L140:270:2075'-HA$"NO, IT CON2045>+A$"YES, IT DOES HAVE S, P & D SUBSHELLS.":L140:500g+110:A$"S":XX6:615:Y44:240:300+625:A$"P":Y60:240:300+635:A$"D":Y76:240:300+ 120:260:L140:270:L150:270:L170:270,C1:A$"THIS ONE SHOULD BE EASY.":L140160:500*L170:1051*L14016010:270:LD*R$"SPD"2040R*C22035*CC1:A$"WOOPS, TRY AGAIN.":L140:500:260*L170:270:L140:270:1990*A$"SORRY, IT CONTAINS THE":L140:500+A$"S, P, AND D SUBSHELLS.":L150:500:260:35:A$"D":Y76:240:3007)645:A$"F":Y92:240:300[)120:260:L140:270:L170:270c)C1)A$"WHAT SUBSHELLS ARE PRESENT TO":L140:500)A$"GIVE THE 6TH LEVEL 18 ELECTRONS?":L150:500*T$"(TYPE ALL IN BEFORE HITTING RETURN)":A$T$:LL170:270:L140:270:1915S(A$"NOPE, IT CONTAINS THE S, P, D, & F":L140:500x(A$"SUBSHELLS.":L150:260:1970(A$"YES! THE 5TH HAS ALL FOUR SUBSHELLS.":L140:500(110:A$"S":XX5:615:Y44:240:300(625:A$"P":Y60:240:300)6840:260:LL1:270D[ A$"THE 3D ARROW POINTS TO THE 4P,":LL1:500u` A$"SO, WE FILL THE 4P NEXT.":LL2:500:260d 670:BXBX20:660:310:XX4:YY2:250:840:260:280o A$"OUR 4P ARROW POINTS TO THE 5S,":LL1:500 t A$"SO, WE FILL THE 5S NEXTHE 3P ARROW POINTS.":LL1:500:320_= A$"THE 4S FILLS NEXT! (NOT THE 3D!)":LL2:500:260B 670:BXBX20:660:310:XX4:YY1:250:840:260:280L A$"NEXT, WE GO BACK AND FILL THE 3D.":LL1:500:260Q 670:BXBX22:660:310:XX3:YY3:250: TELLS US TO FILL THE 3S NEXT!":LL2:500:260e 670:BXBX21:660:310:XX3:YY1:250:840:260n$ 280) A$"NEXT, THE 3P SUBSHELL IS FILLED.":LL1:500. 670:BXBX22:660:310:XX3:YY2:250:840:2603 LL1:270$8 A$"NOW, LOOK WHERE FILLED.":LL1:500H670:BXBX20:660:310:XX2:YY1:250:840:260V LL1:270 A$"NEXT, THE 2P FILLS.":LL1:500 670:BXBX20:660:310:XX2:YY2:250:840:260 LL1:270 A$"NOTE WHERE THE 2P ARROW POINTS!":LL1:5000 A$"ITPLACE AN":LL1:500HA$"ARROW THROUGH EACH SUBSHELL.":LL2:500:260`LL1L210:270:LA$"FIRST, THE 1S SUBSHELL FILLS.":LL1:500BYL5:661:310XX1:YY1:250:840:260LL1L210:270:LA$"NEXT, THE 2S SUBSHELL IS0=A$"GOING TO HAVE TO MEMORIZE ALL THAT?":LL2:500:260ULL1L210:270:LA$"FORTUNATELY, NO! OUR CHART ABOVE CAN":LL1:500A$"GIVE US THE PROPER ORDER OF FILLING.":LL2:500:260LL1L210:270:LA$"TO SEE THE ORDER, WE .A$"HAS BEEN FOUND TO BE THIS: ":LL2:500jA$"1S 2S 2P 3S 3P 4S 3D 4P 5S 4D":50:LL3:500:BXK1A$"5P 6S 4F 5D 6P 7S 5F 6D 7P (WHEW!)":LL4:500:BZK1255:260:LL1L210:270:LA$"WOW!! THAT LOOKS COMPLICATED! ARE WE":LL1:50ELEMENT 118":LL1:500AA$"(AS YET, UNDISCOVERED.)":LL2:500vA$"ONCE WE SEE ITS ORDER OF FILLING,":LL3:500A$"WE CAN USE IT FOR ANY SMALLER ATOM.":LL4:500:260LL1L410:270:LA$"THE ORDER IN WHICH FILLING OCCURS":LL1:500 TEACHING THE ORDER OF OCCUPANCYWkA$"OUR NEXT TASK IS TO DETERMINE THE":LL1:500pA$"ORDER IN WHICH ELECTRONS OCCUPY":LL2:500uA$"VARIOUS ENERGY LEVELS & SUBSHELLS.":LL3:500:260zLL1L310:270:LA$"WE WILL FIRST DO THIS FOR WRONG ANSWER NOISE#gS163361hSR1250<iA(S)DjSRJk] MAIN PROGRAMf120XL1:XR269:YT1:YB24X146:X276:X3106:X4136:X5166:X6196:X7226L1140:L2150:L3160:L4170:Y156:Y272:Y388:Y4104:L5162:L6172"fDOES FILL NEXT.":LL1:500R>XXX(M):YY(M):300:250:850:310:750:260:280:fH BELL ROUTINE|II13:(7):I:R SIRENSS16336TSI12USR110VA(S)WSRXSS110YA(S)(S)(S)ZSS[SI\fLS NEXT?":LL1:500! LL2:1053R$T$(M)825@ C2820*870:CC1:LL1:270:A$"NO, TRY AGAIN.":LL1:500:260:280:7774870:C3:LL1:270:A$"NO, THE "T$(M)" FILLS NEXT.":LL1:500:260:8309LL1:270:A$"VERY GOOD! THE "T$(M)" " "T1$"(T2$)1T2$" "T2$A OLD TOTAL LINE REMOVEROL25:270n NEW TOTAL LINE DISPLAYA$" "T$" "T1$" "T2$" ":L25:500 LAST ARROW ANSWER DHCEKERC1 A$"WHICH SUBSHELL FIL$"YES, THAT'S CORRECT. "C$" FILLS NEXT.":LL1:500q670:BXBX21:660:310:XXE:YYS:250:840:260:280: TOTALER DISPLAYTRTR1:T$(TR)C1C1(C11):T1$(C1)C2C2(C21):T2$(C2)(T$)1T$" "T$(T1$)1T1$SWER CHECKER 1C1CA$"WHAT SUBSHELL FILLS NEXT?":LL1:500QLL2:105`R$C$715mC2710CC1:LL1:270:A$"NO, TRY AGAIN.":LL1:500:260:280:685LL1:270:A$"NO, THE "C$" FILLS NEXT.":LL1:500:260:7205LL1:270:A0:YT92:YB104:650:320:3 FILL ERASER BLACKXYYTYB:0:X,Y(X8),Y:Y:3:f BOXERBX,BYBX,(BY10)(BX16),(BY10)(BX16),BYBX,BY: BOX REMOVER0:BX,BYBX,(BY10)(BX16),(BY10)(BX16),BYBX,BY:3: ARROW AN THEN FIRST ) ":K33:L80:190-/ L95:105b/ A$"IS THIS CORRECT? (Y OR N) ":K33:L110:190/ R4$:A$R4$:L125:K33:190/ (A$,1,1)"Y"2850/ L5012515:0:I22666:1I,L:I:L:3:2810/" CREATE AND APPEND FILE0, SS$"STUDENT S:L:2730.. :(4);"RUN ELECT ARRANG OPT 1"4. [. L13618610:270:L:L190:270:. 5:1,1277,1277,1901,1901,1:3. A$"BEFORE YOU LEAVE THIS SECTION":L50:K33:190. A$"PLEASE GIVE ME YOUR FULL NAME.":L65:K33:190/ A$" ( LAST - A$"TYPE STOP IF YOU WANT TO STOP NOW.":L186:K12:190r- X49:Y178:X,Y(X35),Y(X35),(Y9)X,(Y9)X,Y{- R3$- R3$"REVIEW"2800- R3$"REVEIW"2800- R3$"GO ON"2805- R3$"GOON"2805- R3$"STOP"2805 . L13818810:270 .":K12:L156:190Q, X117:Y148:1:X,Y(X42),Y(X42),(Y9)X,(Y9)X,Y:3, A$"IF YOU WANT TO DO THIS SECTION OVER,":L166:K12:190, A$"TYPE THE WORD REVIEW .":K12:L176:190, X113:Y168:5:X,Y(X48),Y(X48),(Y9)X,(Y9)X,Y:3":K1:L184L190:16368,0iZA(16384):ZA128262yZA160268 (16368),0:262 (16368),0:0:190:3: ASCII ERASE-A-LINE 0: BLACKI127061I,LI3 FOR ASCII SET WORD DISPLAYS-I1(A$)DLL((A$,I,1))30`LL(K(I1)(WL2)),LgIm SINGLE LARGE CHAR. DISPLAYLL((A$,1,1))64LLX,Y: PLOTS DIAGONALSXX6:YY2:X,Y(X18),(Y9):(X15),(Y9)(X18)STTE(TL$(M)) XSZST. TL$(M)(XS)6 :w K(XL(XRXL)2)((A$)(WL2)2):: CENTERING SUBROUTINE FOR LARGE CHARACTER WORD DISPLAYS I1(A$) LL((A$,I,1))64 LL1186 LL(K(I1)(WL2)),L I 075 n233,96:232,0:WL8:DL12:: LARGE CHARACTERSp x233,105:232,0:WL5:DL6:: AS CII SET GET CONFIG ROUTINE (NEEDS Z) TE0:ST0:XS0 M119 SU$(M):TL$(M) TE(TL$(M))TE ZTE141 TEZ138 M 0:L3160:L41709 ((4);"BLOAD LARGE CHARACTERS,A24576"\ -(4);"BLOAD ASCII SET,A26880"f 21:0 c1000: START OF PROGRAM d GOSUBS i KEYSTROKE DISPLAY ROUTINE jR$"":K126 kK$:(K$)13ı lLL(K$)30:LLK,L:R$R$K$:KK7:15)196:XX(16)226:XX(17)166:XX(18)196:XX(19)226 $Y(1)44:Y(2)44:Y(3)60:Y(4)44:Y(5)60:Y(6)44:Y(7)76:Y(8)60:Y(9)44:Y(10)76:Y(11)60:Y(12)44:Y(13)92:Y(14)76:Y(15)60:Y(16)44:Y(17)92:Y(18)76:Y(19)60 %XL1:XR269:YT1:YB24:L1140:L215S,2,2S,2,2P,6,3S,2,3P,6,4S,2,3D,10,4P,6,5S,2,4D,10i ! 5P,6,6S,2,4F,14,5D,10,6P,6,7S,2,5F,14,6D,10,7P,62 #XX(1)46:XX(2)76:XX(3)76:XX(4)106:XX(5)106:XX(6)136:XX(7)106:XX(8)136:XX(9)166:XX(10)136:XX(11)166:XX(12)196:XX(13)136:XX(14)166:XX(1/ :3% ELECT ARRANG OPT 2+B OPTION 2 OFW ELECT ARRANG]w BY ROY J. ARLOTTO} DISPLAYING ELECTRON ARRANGEMENTS USING BRACKET DIAGRAMSSU$(19),TL$(19),XX(19),Y(19)2 1               ARRANG OPT 2"1 :1 1:0:XL1:XR269:YT1:YB24::3m1 X146:X276:X3106:X4136:X5166:X6196:X7226 66:X6196:X7226 6 :66:X6196:X7226 XCORES OPTION 1"06 D$(4).0; D$;"OPEN";SS$B0@ D$;"CLOSE";SS$W0E D$;"APPEND";SS$k0J D$;"WRITE";SS$~0O NA$:T1$:T2$0S D$;"CLOSE";SS$0T (R3$,1)"G"29100Y A$"OPTION 1 COMPLETED.":L140:K33:190:PA11500:PA::1^ :(4);"RUN ELECTATOMIC NUMBER OF 8.":LL2:500V$jA$"HENCE, IT HAS 8 ELECTRONS.":LL3:500:260:282$oA$"TO DETERMINE WHERE THESE ELECTRONS":LL1:500$tA$"ARE LOCATED, WE DRAW OUR CHART":LL2:500$vA$"SHOWING THE ENERGY LEVELS & SUBSHELLS.":LL3:500:260 % & SUBSHELLS":LL2:500K#VA$"CAN BE EASILY DETERMINED & SHOWN":LL3:500#[A$"USING A BRACKET DIAGRAM .":LL4:500:2:100,172212,172:3:260:0:100,172212,172:3:283#`A$"FIRST, LET'S SELECT AN ELEMENT.":LL1:500$eA$"OXYGEN, O, HAS AN 5008"=A$"OF AN ELEMENT, WE MUST BE ABLE TO":LL2:500f"BA$"PLACE ITS ELECTRONS IN THE":LL3:500"GA$"VARIOUS ENERGY LEVELS & SUBSHELLS.":LL4:500"H260:283"LA$"THIS ARRANGEMENT OF ELECTRONS IN THE":LL1:500#QA$"VARIOUS ENERGY LEVELS"10655!R$"B"Đ::(4);"RUN ELECT ARRANG OPT 1"!$L186:K12:0:I10258:1I,L:I:3:A$"PLEASE ENTER A OR B ":190:320:0:I10260:1I,L:I:3:1035!)L13218210:270:L:L190:270"8A$"TO UNDERSTAND THE CHEMICAL PROPERTIES":LL1:A$"UNTIL YOU HAVE COMPLETED OPTION 1.":L146:K12:190u A$"PLEASE SELECT:A.CONTINUE THIS LESSON":L156:K12:190 A$" B.REVIEW OPTION 1":L166:K12:190 A$"(TYPE THE A OR B KEY AND )":L176:K12:190!L186:105:R$"A9,1281,1281,24:& MAIN PROGRAMe120:A$"LEARNING TO SHOW ELECTRON ARRANGEMENTS":L12:500A$"USING BRACKET DIAGRAMS.":L20:5005:9,128267,128267,1909,1909,128:3A$"CAUTION! DO NOT ATTEMPT THIS OPTION ":L136:K12:1907  TSI12USR110$VA(S),WSR9XSS110NYA(S)(S)(S)VZSS^[SId\f WRONG ANSWER NOISEgS16336hSR1250iA(S)jSRkpA$" TOTAL SO FAR LEFT TO PLACE ":L22:500:5:1,24279,24271:270:A$"NO, THE "T$(M)" FILLS NEXT.":LL1:500:260:8309LL1:270:A$"VERY GOOD! THE "T$(M)" DOES FILL NEXT.":LL1:500>XXX(M):YY(M):300:250:850:310:750:260:280:H BELL ROUTINEII13:(7):I:R SIRENSS16336 "T2$" ":L25:500%F LAST ARROW ANSWER DHCEKERNC1| A$"WHICH SUBSHELL FILLS NEXT?":LL1:500 LL2:105R$T$(M)825 C2820*870:CC1:LL1:270:A$"NO, TRY AGAIN.":LL1:500:260:280:777=4870:C3:LL(TR)#C1C1(C11):T1$(C1)@C2C2(C21):T2$(C2)W(T$)1T$" "T$q(T1$)1T1$" "T1$(T2$)1T2$" "T2$ OLD TOTAL LINE REMOVERL25:270 NEW TOTAL LINE DISPLAYA$" "T$" "T1$" L1:500:260:280:685YLL1:270:A$"NO, THE "C$" FILLS NEXT.":LL1:500:260:720LL1:270:A$"YES, THAT'S CORRECT. "C$" FILLS NEXT.":LL1:500670:BXBX21:660:310:XXE:YYS:250:840:260:280: TOTALER DISPLAYTRTR1:T$BX,BY: BOX REMOVERZ0:BX,BYBX,(BY10)(BX16),(BY10)(BX16),BYBX,BY:3:w ARROW ANSWER CHECKER 1C1A$"WHAT SUBSHELL FILLS NEXT?":LL1:500LL2:105R$C$715C2710CC1:LL1:270:A$"NO, TRY AGAIN.":L8:650:320:  F FILL BLUEFY92104:6:X,Y(X8),Y:Y:3:\ F BLUE SHORTCUT640:300:YT92:YB104:650:320: FILL ERASER BLACKYYTYB:0:X,Y(X8),Y:Y:3: BOXERBX,BYBX,(BY10)(BX16),(BY10)(BX16),BY10:300:YT44:YB56:650:320:4l P FILL VIOLETYmY6072:2:X,Y(X8),Y:Y:3:qq P VIOLET SHORTCUTr620:300:YT60:YB72:650:320:v D FILL GREENwY7688:1:X,Y(X8),Y:Y:3:{ D GREEN SHORTCUT |630:300:YT76:YB8A$"F":240:120:X16:Y95:A$"1":400:A$"4":X21:400B%120:^& CLEAR NUMBERS DISPLAYo'0:110:EMM(M1EM:290:M)3:120:X COLOR FILLERSb S FILL ORANGEcY4456:5:X,Y(X8),Y:Y:3:g S ORANGE SHORTCUTh6X,Y$X190:49X,Y:X202:56X,Y6X226:56X,Yj!X6:Y44:A$"S":240:120:X16:Y47:A$"2":400"110:X6:Y60:A$"P":240:120:X16:Y63:A$"6":400#110:X6:Y76:A$"D":240:120:X16:Y79:A$"1":400:A$"0":X21:4007$110:X6:Y92:8:260:277J4rA$"BE CAREFUL; HERE'S THAT ODD ONE AGAIN!":LL1:500:260~4wA$"4S FILLS NEXT. 2 GO THERE.":LL2:500:2604|M6:290:260:2814A$" 20 PLACED; 13 TO GO.":LL1:500:2604295:298:260:2775A$"NOW WE GO BACK & PLACE 10 IO THE 3S.":LL1:500:26003JM4:290:260:277`3TA$" 12 IN PLACE; 21 TO GO.":LL1:500:260x3Y295:298:260:2773^A$"6 NOW ARE PLACED INTO THE 2P.":LL1:500:2603cM5:290:260:2773hA$"18 PLACE; 15 TO GO.":LL1:500:260 4m295:2927722A$"4 IN PLACE; 29 TO GO.":LL1:500:260J2295:298:260:277z2"A$"6 ARE PLACED IN THE 2P.":LL1:500:2602'M3:290:260:2772,A$"KEEP AN EYE ON THE TALLY BOARD!":LL1:500:26026295:298:260:2773@A$"2 ELECTRONS NOW GO INT260:281D1A$"FIRST WE PUT 2 ELECTRONS IN THE 1S.":LL1:500:260[1M1:290:260:2771A$"33 MINUS 2 LEAVES US WITH 31 TO GO.":LL1:500:2601 880:295:298:260:2771A$"NOW, 2 ELECTRONS GO INTO THE 2S.":LL1:500:2602M2:290:260:L HELP YOU WITH ONE MORE":LL1:500b0A$"BEFORE YOU TRY SOME ON YOUR OWN.)":LL2:500:260:2810A$"ARSENIC, AS, ATOMIC NUMBER 33,":LL1:5000A$"HAS 33 ELECTRONS.":LL2:500:2600Z33:1301A$"ARSENIC AS Z=33":L12:500:0/A$"AS OUR TALLY BOARD TELLS US,":LL1:500`/A$"THERE ARE 0 LEFT TO PLACE.":LL2:500i/260/A$"SO THIS COMPLETES THE ELECTRON":LL3:500/A$"ARRANGEMENT FOR CALCIUM.":LL4:500:260/L12:270:L22:270:283:550:297#0A$"(I'LCED; 2 TO GO!":LL1:500:2606.295:298:260:277o.A$"NOW, REMEMBER THE ORDER OF OCCUPANCY?":LL1:500.A$"THE 4S FILLS NEXT. WE HAVE 2 LEFT,":LL2:500.A$"SO WE PUT THEM THERE.":LL3:500:260.M6:290:260:282/295:298:260260:281@-A$"3S FILLS NEXT WITH 2 ELECTRONS.":LL1:500:260W-M4:290:260:277-A$"12 ARE PLACED; 8 TO GO.":LL1:500:260-295:298:260:277-A$"6 ELECTRONS ARE NOW PUT IN THE 2P.":LL1:500:260-M5:290:260:277.A$"18 PLA PLACED 4 ELECTRONS.":LL1:500I,_A$"WE HAVE 16 TO GO.":LL2:500:260a,d295:298:260:281,iA$"2P FILLS NEXT; 6 ELECTRONS GO THERE.":LL1:500:260,nM3:290:260:277,sA$"NOW 10 HAVE BEEN PLACED; 10 TO GO.":LL1:500:260-x295:298:500,+7A$"WE HAVE PLACED 2, SO":LL2:500`+<A$"THERE ARE 18 MORE TO PLACE.":LL3:500:260}+F880:295:298:260:282+KA$"THE 2S FILLS NEXT;":LL1:500+PA$" 2 ELECTRONS GO THERE. ":LL2:500:260+UM2:290:260:281,ZA$"NOW WE HAVE1:500<*A$"FOR CALCIUM, CA, ATOMIC NUMBER 20.":LL2:500J*Z20:130*#A$"CALCIUM CA Z=20":L12:500:260:281*(A$"1S FILLS FIRST; 2 ELECTRONS GO THERE.":LL1:500:260*-M1:290:260:277+2A$"CA HAS 20 ELECTRONS AND":LL1:HE 2P SUBSHELL.":LL4:500:2606)M3:290:260:283e)A$"THIS COMPLETES THE ELECTRON":LL1:500)A$"ARRANGEMENT FOR THE ELEMENT OXYGEN.":LL2:500:295:298:260:281) L12:270:L22:270:550:297*A$"NEXT, LET'S FIND THE ARRANGEMENT":LLA$"WE HAVE 4 MORE TO GO.":LL2:500:260F(285:295:298:260:281~(A$"THE NEXT SUBSHELL TO FILL IS THE 2P.":LL1:500(A$"IT CAN HOLD 6 ELECTRONS, BUT WE ONLY":LL2:500(A$"HAVE 4 LEFT. SO WE PLACE ONLY":LL3:500)A$"4 ELECTRONS IN TA$"WATCH AS THE TOTALS APPEAR ABOVE.":LL4:500:300@'880]'295:298:300:260:283'A$"THE 2S FILLS NEXT;":LL1:500'A$"2 ELECTRONS GO THERE.":LL2:500'260:M2:290:260:281'A$"NOW WE HAVE PLACED 4 ELECTRONS.":LL1:500)( &Z8:130J&A$"1S FILLS FIRST. 2 ELECTRONS GO THERE.":LL1:500:260W&M1:290e&260:277&A$"SINCE OXYGEN HAS 8 ELECTRONS AND":LL1:500&A$"WE HAVE PLACED 2 OF THEM, THERE":LL2:500&A$"ARE 6 LEFT TO BE PLACED.":LL3:500:2607'y515:282D%~A$"NOW WE FOLLOW THE ORDER OF OCCUPANCY,":LL1:500z%A$"PLACING ELECTRONS IN THE SUBSHELLS":LL2:500%A$"UNTIL ALL 8 ELECTRONS ARE PLACED.":LL3:500:260:282%L12:270:L20:270%A$"OXYGEN O Z=8":L12:500285:K112:L22:A$TF$:190:K246:A$LP$:190:X,PA175:PA:: MEDIUM PAUSE x6PA140:PA: QUICK PAUSE@PA1100:PA:: LONG PAUSE A NUMBER IN BRACKET DISPLAYB(A$)1325CLL((A$,1,1)):LLX,Y: E ROUTINE FOR 2 246:L1622:K,L(K22),L:L:3:F" DISPLAY NUMBER IN BRACKET SUBy#110:A$TL$(M):XXX(M):YY(M):840:321:120:' TSF & LTG CALCULATOR(JI(TL$(M)):TFTFJI:TF$(TF):LP(ZTF):LP$(LP):)JI0:TF0:LP0:* TSF & LTG DISPLAY0+3:270:LL4:270:2LL1L210:270:L:LLL1L310:270:L:fLL1L410:270:L:~ TSF & LTG CLEARER0:K112:L1622:K,L(K22),L:L:K246:L1622:K,L(K22),L:L:3:0:K112:L1622:K,L(K22),L:L:3:" 0:KR>":K1:L184 190:16368,0=ZA(16384):ZA128262MZA160268b (16368),0:262 (16368),0:0:190:3: ASCII ERASE-A-LINE 0: BLACKI127061I,LI3LL1:270:LL2:270:LL)LL((A$,I,1))304LL(K(I1)(WL2)),L;IAb SINGLE LARGE CHAR. DISPLAYyLL((A$,1,1))64LLX,Y: PLOTS DIAGONALSXX6:YY2:X,Y(X18),(Y9):(X15),(Y9)(X18),(Y9)(X18),(Y6): A$" HIT X40EYNY42_X6024030qX,YX,(Y64)zY42X120:A$"MAX.":K1:L120:190:110X46:Y112:50X,YX76:56X,YX100:49X,Y:X112:56X,YX130:51XDIGIT NUMBERSKFLL((A$,1,1)):LL(X8),Y:LL((A$,2,1)):LL(X4),Y:f SINGLE ASCII DISPLAY}LL((A$,1,1))30LLX,Y: ASC LINE DISPLAY SHORTCUT150:190:110:X46:Y28I4955:IX,Y:XX30:IX40 Y42)=$$$> --?' ?- / ?I$$$6.??$$- ?'$--)- ?7&$ (-!d --'466&,??L(-?`-3666II%` ;.)) c݃ )  $` $``L666 `( $4>/-- ) ?(--;` I $d-66? -((@KA0UW_hz#/<JScoty&0;KWes#-6?GI  THAT'S CORRECT! 72 TO GO.":LL1:500:260=/ 165:260:281I/ M2LMR/ 680Y/ M/! A$"THIS COMPLETES THE BRACKET DIAGRAM":LL1:500/& A$"FOR TUNGSTEN":LL2:500:260/+ L12:270:L22:270:281:550:297 0:281:550:297 :. A$"HOW MANY ARE LEFT TO GO?":LL1:5008. LL2:101J. R$"72"3080X. C23075. CC1:LL1:270:A$"NO, CAREFULLY CHECK Z-2 ":LL1:500:260:281:3050. LL1:270:A$"NO, 74-2 LEAVES 72 TO GO.":LL1:500:260:3085*/ LL1:270:A$"SUPER! C23030X- CC1:LL1:270:A$"NO, COUNT THEM CAREFULLY.":LL1:500:260:281:3005- LL1:270:A$"NO, 2 HAVE BEEN PLACED SO FAR.":LL1:500:260:281:3040- LL1:270:A$"GREAT, 2 HAVE BEEN PLACED SO FAR.":LL1:500:260:281- 160- C1*2 ELECTRONS DO GO THERE.":LL1:500:260:290:260:281e,*A$"LET'S KEEP OUR TALLY BOARD":LL1:500,/A$"UP TO DATE AS WE GO.":LL2:500:260:281:880, 295:C1, A$"HOW MANY HAVE BEEN PLACED SO FAR?":LL1:500, LL2:101, R$"2"3035 - ELECTRONS ARE PLACED HERE?":LL1:5004+ LL2:101E+R$"2"2085S+C22080+CC1:LL1:270:A$"NO, TRY AGAIN.":LL1:500:260:281:2055+ LL1:270:A$"NO, 2 ELECTRONS GO THERE.":LL1:500:260:290:281:260:20907,%LL1:270:A$"SUPER, 2040F*CC1:LL1:270:A$"NO, TRY AGAIN.":LL1:500:260:281:2015*LL1:270:A$"NO, THE "SU$(M)" FILLS FIRST.":LL1:500:260:281:2050*LL1:270:A$"YES, THAT'S CORRECT. "SU$(M)" FILLS FIRST.":LL1:500:260:281*C1&+A$"HOW MANY:LL1:500I)A$"LET'S DO TUNGSTEN, W, ATOMIC NUMBER 74":LL2:500:260_)Z74:Z$(Z):130)A$"TUNGSTEN W Z=74":L12:500:260:281)C1:M1)A$"WHICH SUBSHELL FILLS FIRST?":LL1:500)LL2:101)R$SU$(M)2045*C2AT'S CORRECT! 24 TO GO.":LL1:500:260:(165:260:281F(M2LMO(680V(M(A$"THIS COMPLETES THE BRACKET DIAGRAM":LL1:500(A$"FOR IRON, FE":LL2:500:260(L12:270:L22:270:281:550:297 )A$"HERE'S ONE MORE FOR YOU TO DO."A$"HOW MANY ARE LEFT TO GO?":LL1:5005'vLL2:101G'{R$"24"1935U'C21930'CC1:LL1:270:A$"NO, CAREFULLY CHECK Z-2 ":LL1:500:260:281:1905'LL1:270:A$"NO, 26-2 LEAVES 24 TO GO.":LL1:500:260:1940'(LL1:270:A$"SUPER! THC21890U&]CC1:LL1:270:A$"NO, COUNT THEM CAREFULLY.":LL1:500:260:281:1865&bLL1:270:A$"NO, 2 HAVE BEEN PLACED SO FAR.":LL1:500:260:281:1898&gLL1:270:A$"GREAT, 2 HAVE BEEN PLACED SO FAR.":LL1:500:260:281&j160&lC1''qLECTRONS DO GO THERE.":LL1:500:260:290:260:281b%:A$"LET'S KEEP OUR TALLY BOARD":LL1:500%?A$"UP TO DATE AS WE GO.":LL2:500:260:281:880%D295:C1%IA$"HOW MANY HAVE BEEN PLACED SO FAR?":LL1:500%NLL2:101%SR$"2"1895&X ARE PLACED HERE?":LL1:500*$LL2:101;$!R$"2"1845I$&C21840$+CC1:LL1:270:A$"NO, PLEASE TRY AGAIN.":LL1:500:260:281:1815$0LL1:270:A$"NO, 2 ELECTRONS GO THERE.":LL1:500:260:290:281:260:18504%5LL1:270:A$"GREAT, 2 EFIq>???/---566$$$ 666666--- ???--- ??/6 --&??666-- 4 66666--- $$$???6-@F)@Xgw9Sar!>Z`mx 6K]t-Lbw(5K\m#7;     y A   A   }}]]}Q_]\#a#"4c'#$#c'"4'#$a#飿'!a#!룿'#4{YyyA A A A  I  }_]y]}_}]Y}_]]}]]\}U]\}]]X#c'#$'#$'#'#$飿'#飿'飿'룿'#yyyyiiy6I666?/6666d $ 6666646$du6&$ 56&I6&$t -6& -u6?$2666$$d -6? u$666$$26&d -? --??-u??< 6-??-66ve26- $6662ve $626f u$$ru e ?26- $666?//*----=*----}]& )-u6??6-- $??$ -)-u6?$)--6666II I---???   --L )-u6??$$$ --66?-?$,>? -$66$?$ 6666$ -6? -u?6-e I 6666$?$ -266$$/=$ u -$66?4m1?=6666$ -6&6I66 dI6II666 I6666$$ LI:--- I266&$?/--=-R <. .*--=R <.-II $)-u666??$$$ ---I 6666?/--=- --.--= --6?/-6??66---'$4666&---???66--u6??/?II?.--6??$,----6?$$$ 6666$$$$--u6??/u6)-u??6--6??6---??5666&?666v-- $$$4 66v $$4$6666 $$$$ v# 46v66$$ 4=---.--=I666M 6 $- 6666 $$$$6/-???-66=?---?I6666<-- ??d-- II& #7J 5' v-e- $??7-)-u&??666-- 4?6666--e$$$??/6---???66--??66---6---???66--??66-)-u??666--%$?-66666$$---$$6666)-=7666>/-=6II666??46666$$4- 66666--- 6666$$$$ 66666666$$$t&$$$4$)-u666??$$$ -6666$$$$--u6??7)-u66@ d';L_q~ !5AN[l~ "CPZaju)/7CNZg $4AN`r} -u>??v-==I66#$--=??$ -6666--e$??-    6?U $dI2-U--??d ?-($$$-?'- ? -< $$$?---d $$66v- $$-` $$M16'$$$$66-5&$$$?d l 9.??>--5=????7/------5=????????>---------->?????????7----------->??????????7/----------->???????????7----------->??????????7/-MII ---5??.ӚӚӚӚӚۀ????7?/-----5=??????7?--------.????????7?/----------5=??>???.-5?7-5?7/-->???>----5=??????>-------5=????????7/---------5???????????7/-----------5=?????????????>--------->?????????>-------5???????7-----5????7---5???.-->??.-5?7-I ?????????>---------------.????????????????7/-----------------5??????????????????.------------------>??????????????????>-----------------5?????????????????7----------------5???????????????7-------------->????????????7----------->????????.------->??????.----???????7/--------5?????????7/---------5???????????>----------->??????????7/---------->???????????.---------5?????????.-------5???????.-----5????7---5??7-57III )5--?????7/-------.?????????7/-----------.???????????7/------------5=????---->?????????????.------------->????????????7/=?--------------????????????>------------>???????????7-----------5??????????.---------->?????????.-------5???????.------5??????.----:?>--5=??.---.????>-----5=?????>------.??????7/------->??????7/------->4&=1-5556>6???'''$$%-<<<<<<$<$'<$,$,,,,,,,,,,,,-............6667676>6777,5=?7--5??7?----->??????>-------->??????7/--------->??????????7/----------->???????????7------------.?????????????.---------@  $4r266f u$$$ruۛ e 26v- %$4666?66------66&6vII6666?$66666$d 2I$$66666266&$ 66&$d 66&2266&$ -66 -u6?$ 26666$$$ -6?$*---/--- -%46666$$<?$2. -u?76& --u??v--u??vI6?--?666ve226v- %$466&626e ----????6  $ --?6 --66'$<6=$$466--6 -%466&<?$ 66666$d -6? --??6--  -%$$46666&<?$ 6 -u>???v--*-=766&$$$d -$ -%4666?-e$$?$ 666f -66#$$I666-- $$$I 66666?/--= ------b--u??--??66.---='$$66666----????66.--u???d -?6e--??$&----6&6 --??v-- ??d -? ---66&??-- 566&6I  Ibb5 II$4-I16666&$$$$-u???6---6???-)u?d-M nI) ?v- Iv-- Nd I16$II66uuuu66 -I16666fI  --????-I16666&$$??----J  6$R---6  4II  --&&$$$  --666 ??$$$ -6---?w?766$$$$$I --??v--???----??66666M6666-- $$$$666 $$$ 6666v  $$$$4$vd 4v66&$$ 4----.---=I1666? 6n $46I66666$ FOR MORE.)" (Z(16384):Z1281320 2Z160480 <(16368),0:1320 S5 I(I1)(I17) 1300& I0 1310A R$"1"ī200Q R$"2"380v 16);"CORRECT CORRECT TOTAL": "STUDENT NAME:";3);"1ST TRY 2ND TRY CORRECT": NA$(I);:(19):T1$(I);7);T2$(I);:TC((T1$(I))(T2$(I))):6);TC:NA$(IESS ON") 1" ELECT ARRANG OPT 2"> 6(4);"OPEN";S2$S @(4);"READ";S2$i |(4);"CLOSE";S2$  DISPLAY OF OPT 1 RESULTS 1200 1205 I118 NA$(I)""Ā 1300 I 1310 (16368),0:  1200 120::" STUDENT PROGRESS ON"E s" ELECT ARRANG OPT 1"K x` (4);"OPEN";S1$u (4);"READ";S1$ I1100 NA$(I) NA$(I)"0"200 T1$(I) T2$(I) I (4);"CLOSE";S1$ 400 ,::" STUDENT PROGR -:"TO CHECK STUDENT PROGRESS ON PROGRAMS"6 0::u 2:"ELECT ARRANG OPT 1";::" & ";::"ELECT ARRANG OPT 2"{ 8 <(15):"PRESS THE 1 OR 2 KEY" >"TO SELECT THE OPTION YOU WISH TO SEE.": AR$ FR$"1"100 KR$"2"300 P65# d INSTRUCTORS UTILITY" > USE WITH ELECT ARRANGY PROGRAMS OPT 1 AND 2d1000S1$"STUDENT SCORES OPTION 1":S2$"STUDENT SCORES OPTION 2""NA$(100),T1$(100),T2$(100)#:::("THIS PROGRAM ALLOWS YOU, THE INSTRUCTOR"-  ?????????>-------------.?????????????7/------------->?????????????7--------------5??????????????7-------------->??????????????>-------------->?????????????7/-------------5?????????????7------------>???????????.--------->???????7------5?????7--->?7->-:D$;"CATALOG"::"SEE YOU LATER":< TUTORIAL EDITOR | :"INSERT DISK WITH TUTORIAL EDITOR AND HIT RETURN";RT$ (4);"RUN TUTORIAL EDITOR" TEST MOD MENU RN$(0)"YES":RN$(1)"NO" ::HF$;::" FOR ";::NE$:A:"YOU MAXIT TO BASIC"8 j::"WHICH: 1,2,3,4,5 OR 6 ?";::CH$X n:CH(CH$):CH1CH6ī100 pCH1PT1:LE79:SF0:HF$"TEST PRINTOUT MENU" rCH2PT0:LE64:SF1:HF$"PIE FILE MENU" tCH3PT0:LE39:SF0 v xCH200,200,315,150,3000,145# NE$(N)NE$DS1:100) (NE$NE$(N):DS0Y d::"YOU MAY CHOOSE FROM THE FOLLOWING:": f:"1. PRINTOUT OF ";::NE$:::"2. CREATE APPLE PIE TEXT FILE" g:"3. GOTO THE TUTORIAL"::"4. GOTO THE TUTORIAL EDITOR" h:"5. INSTRUCTIONS"::"6. E8 :"INSERT A DATA DISK AND HIT ";::"RETURN";RT$:d "YOU MAY SELECT ONE OF THESE QUIZZES:"n 1670| :I120 NE$(I)""ī34 I;". ";NE$(I) !I ":"CHOOSE BY NUMBER OR E)XIT";N$::N(N$) $N$"E"ī145 &N1NIī34 '