L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ 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 iõ`  \ 濭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- ( t Ϡ@跻~!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𳈈췍Ȍ X0 · 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䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`  <"\:FBF:<<@@\bBb\\bb\@<:FBBB8 0 "" "8.TTTT>DDDD8DDD8:FF:\bb\@@:F|<@>>H0BBBb\BBB$DDTTlB$$BBBb\@<~ ~880(8DRj2x$B~BBB>DD
DDDDD>~~~BB>BB>"B$$$$$~$~$$x8P<F&db  R"\   T8|8T| ~@ BB<~B > 60HH0>>>***>"6*""">$ 88>>>>*>><> ?:{>     `H XN7<6NWRU@ TPhhHNɍ-Ɍ+*+*++8 $%ll%J) +%j )* * (je$*h-HJJJ'hH*&'*&'*&')&&OH**hQ**O+i+$$! $%%#"%Nh`1:" "$DSOUND17670#$DY132$DZ4014E$D6,Z:7,2:768M$D:Y$EVTVT2_$Ek$ N END q$*Nw$4N}$>N#>DA$"+"A$"-"S1&#HDS117520C#RD(A$)48(A$)5717520U#\DVT1:HT:A$m#fDVT:HT:" ":17530}#pDVT:HT:A$#zDUC1UC0#DSOUND17580#DZ2012#D6,Z:7,2:768#D#D17060#DUCUC1:UC3UC0#D17060$DVT:HT0 "CLL1,"C(G$,1)"+"(G$,1)"-"S0;"CG$(G$,L)F"CHTL4Z"CVT:HT1:" "o"CVT1:HT1:" "z"C17060"CAA128"CA64A9117420"CA$(A)"D17430" DA$(A3232(UC0))"DG$G$A$" DL(G$)"*DHTL4#4DSUB017520ND2SOUND0!B17060)!CA13617380;!CSOUND17210I!CZ1205\!&C6,Z:7,2:768b!0Cn!:CL(G$)}!DCL117320!NCL117290!XCSOUND17290!bCY110!lCZ1256!vC6,Z:7,3:768!C:!CVT:5:" "!CG$"":HT4"C1706 ::1: hB HIRES INPUT - rB16368,08 |B1:VTK B"===> "T BHT4^ BG$""n BA(16384) BVT:HT1:" " BVT:HT1:(95) BA12717060 B16368,0 BA14117610 BA15517590 BA14717160 !BSOUNDSOUND1:SOU1sulfite,SO3 -2 +$1thiocyanate,SCN -=.1tin II,Sn +2O81tin IV,Sn +4_B1zinc,Zn +2u: PRESS ANY KEY :16368,0:CU$"!/-\":24:"! Press any key":C1:L4:24:1:(CU$,C,1) :KEY(16384):KEY128CC1L(CL):15050xalate,C2O4 -20oxide,O -260perchlorate,ClO4 -O0permanganate,MnO4 -c0peroxide,O2 -2y0phosphate,PO4 -30phosphite,PO3 -30potassium,K +0silver,Ag +0sodium,Na +0strontium,Sr +21sulfate,SO4 -21sulfide,S -2iron II,Fe +2 *0iron II,Fe +3340lead II,Pb +2E>0lithium,Li +ZH0magnesium,Mg +2nR0manganese,Mn +\0mercury I,Hg2 +2f0mercury II,Hg +2p0monohydrogen phosphate,HPO4 -2z0nickel II,Ni +20nitrate,NO3 -0nitrite,NO2 -0oe,H2PO4 -/flouride,F -,/hydride,H ->/hydrogen,H +]/hydrogen carbonate,HCO3 -z/hydrogen sulfate,HSO4 -/hydrogen sulfite,HSO3 -/hydronium,H3O +/hydroxide,OH -0hypochlorite,ClO - 0iodate,IO3 -0iodide,I -  0:/carbonate,CO3 -2*D/chlorate,ClO3 -2=N/chloride,Cl -QX/chlorite,Cl2 -gb/chromate,CrO4 -2l/chromium III,Cr +3v/cobalt II,Co +2/copper I,Cu +/copper II,Cu +2/cyanide,CN -/dichromate,Cr2O7 -2 /dihydrogen phosphat' in place of an answer"B(:"will end a round of questioning."M)15000U)80b. DATA y.acetate,CH3COO - .aluminum,Al +3.ammonium,NH4 +/barium,Ba +2/bismuth,Bi +3/bromide,Br -&/cadmium,Cd +20/calcium,Ca +2."((:" USE ONLY ROMAN NUMERALS."3(15000`("Typing CTRL-S anytime the computer is"(:"waiting for input will toggle the sound"(:"between on and off. (the CTRL-S will"(:"NOT become part of your input)."(::"Typing in 'Ela and the",n(:" sign of the charge."7x(15000\("If you are entering the NAME:"(:"1. You may type the name in upper or "(:" lowercase letters."(::"2. If you want to type in 'IRON II',"(:" don't type in 'IRON 2'r.""(:" (example: +2, -3)"((([2(:" IF THE MAGNITUDE OF THE CHARGE IS 1,";<(:" THEN USE ONLY '+' OR '-', NOT '+1'"F(:" OR '-1'."P(15000Z("3. You MUST have ONE SPACE between the" d(:" last letter of the formuarge MUST be entered in"K':" addition to the formula. A positive";x':" charge is entered as '+', and a"(:" negative charge is entered as '-'." (:" If the charge is greater than 1,"(:" type the sign, then the numbete. Use ESC to shift";A':" between upper and lowercase."h':" ESC = next key uppercase."':" ESC ESC = shift lock."':" ESC in shift lock mode will return"':" you to lowercase'15000':"2. The ion's chto be tested. You can see the name";R`':"and type in the formula, or see the"yj':"formula and type in the name."t'15000~':"If you are entering the FORMULA:"':':"1. You MUST enter lowercase letters"':" where appropria' INSTRUCTIONS ':13$'14);"Instructions"d.':"You should know something about IONS if"8':"you are going to take this test. If you";B':"don't, it won't make much sense."L'::"You have a choice as to how you would"%V':"like START1:FINISHW:W0:R0,TS2SUB12&<01100Q@ MUSICAL POKESJ768,173:769,48:770,192:771,136:772,208:773,4:774,198:775,7T776,240:777,8:778,202:779,208:780,246:781,166:782,6:783,76:784,0:785,03:786,96^s you missed"XX1G:X". Start the test over from the start"QXX1l:X". End the test.":"Enter your choice"VT20:17000G(G$)G1(W0)1770,80,20000TRYTRY1X1WW$(X)WW$(X):F$(X)FF$(X)XX@:X0:SUB0-J14:1:"Total Score"ET3:1:"Try # ";TRYv^:"Right :";R,((R(RW)100)10.5)10;"%"h:"Wrong :";W,((W(RW)100)10.5)10;"%"r:"Would you like to ...."|XX1W01700 :X". Try again on the ones ...." :HT(40(F$(X)))2AVT13:CENTER1:A$F$(X):500K1540Y:"RIGHTjSOUND1530zJ100286,J:7,4:768RR116"Press the SPACE BAR to continue"(16384)1601580"1560,16368,06Y:1520%x:"That's not correct"6ySOUND1410G}J1010010]6,J:7,5:768:JgWW1WW$(W)W$(X):FF$(W)F$(X)TS21480:"The correct name is ....":(40(W$(X)))2W$(X)1540:"The correct formula iVT2:17000# G$"E"G$"e"16001 16368,0@ TS11340P LL(F$(X))i (F$(X)(G$,LL)1520s 21400 <L(G$):LL(W$(X)) FLLL1400 PY1L ZL$(G$,Y,1):LL$(W$(X),Y,1) dL$LL$(L$)32(LL$)(L$)32(LL$)1400 nA$F$(X):F$(X)F$(C):F$(C)A$$ tX4 ~:VT1:HT1I TS2SU1:1180R SU0f XSTARTFINISHv :VT1:HT1 VTVT1:VT TS1A$F$(X):1230 A$W$(X) 500 VTVT3:VT TS1ĺ"Enter name":1270 "Enter formula" VTOGRAM START  TS310000$ :@ START1:FINISH60:TRY1a $11:1:"Reading data ....."u .XSTARTFINISH 8W$(X),F$(X) BX L11:1:"Randomizing data ....." VXSTARTFINISH:C((8)FINISH)1 `A$W$(X):W$(X)W$(C):W$(C)A$ jry!" 6,10:7,150:7689 23:1:" "B 170]  SUBSCRIPT PRINTOUT m L(A$):S0x J1L L$(A$,J,1) L$"+"L$"-"S1 &S1570 0(L$)48(L$)57SK1 :VTSK:HTJ1:L$ DSK0 NJ X  PR14:"THE Ion Test"> 10:1:"Which format would you like?"j 12:1:"1. Given FORMULA, enter NAME" 14:1:"2. Given NAME, enter FORMULA" ::"3. Get instructions" VT21:17000 TS(G$) TS1TS31000 23:"Invalid ent~ INITIALIZE 7W$(60),F$(60),WW$(60),FF$(60)CSOUND1N16384b((24576)72802(4);"BLOAD HIRES CHAR"<(4);"BLOAD CHAR TABLE"F8000PZ54,0:55,96d1:13:"Larry Seltzer"n3:12:"proudly presents" x6:          "@@@uk]n9~]jYg]~}~}~]~}j]v5~}n}~{}3}{}@@@@}n}~@}f3YkOKWM@}~}n}~@@@]f}nMf>>{>{{>{f>>{>p>@Mj}~@kOkUk_k]kW@]~}nMn}n]nmf}~m~]~}f}v}~]f}f}j}~{}@@@]~}~}z}v9v}v}z]fmv}~}~]v}fMv@@@}f9~ej5~}f}~}v}f}z}~]z]~9~9fk}+W@@UjUj@Uj+U+U+U+UՃ@UjUjUj@uk]j]j]fMf]j}j]j]j}f]j5jMjMj{UU[UՃ@UjUj@+U+U+U+U+UՃ@UjUjUjUjUjUjUjUjUjUjUjUjUjUjUjUj+UՃ@}j}j@mfUkLkUMՃ@]jmjmj@@Ճ@UjUjUjUjUjUj`UjUjUjUjUjUjUjUj+U+UՃ@]fmjMf>`6`6``6c~``>p>``@Mfmj@kLkUk[k]kUՃ@]jmjMjm~]jmfmjmj]jmfmjmj]fmfmfmj{YՃ@UjUjUj`````@`````@UjUjUjUjUjUjUjUjUjUjUjUjUjUj+U+U+UՃ@]jmj}zmj]jMjMz]fmjmjMj]jmfMj@?7??7?3??@Ճ@mf]jui5j}f}j`mjmfmzmj]z]j]j]fkU+WՃ@UjUjUjUjUjUjUjUjUjUjUjUjUjUj@UjUj@Uj+U+U+U+UՃ@UjUjUj@5k]j]j]jMf]j}j]j]j}j]jujMjMj[UU[UՃ@UjUj@+U+U+U+U+UՃ@UjUjUjUjUjUjUjUjUjUjUjUjUjUjUjUj+UՃ@}j}j@mjYkLkUUՃ@]jmjmj@@Ճ@UjUjUjUjUjUj`UjUjUjUjUjUjUjUj+U+UՃ@]jmjMf>`6`6``6````>`>``@Mjmj@kLkUkYk]kUՃ@]jmjMjmj]jMfmjmj]jmjmjmj]jmjmjmj[UՃ@UjUjUj`````@`````@UjUjUjUjUjUjUjUjUjUjUjUjUjUj+U+U+UՃ@]jmj}jmj]jMjMj]jmjmjMj]jmjMj@7337>3333;3@Ճ@mj]j]guj}j}j`mjmjmjmj]j]j]j]jkU+WՃ@UjUjUjUjUjUjUjUjUjUjUjUjUjUj@UjU~@Uj+U+U+U+UՃ@UjUjUj@un]j]j]jMf]jmj]j]jmj]jujmjmj[UU[UՃ@UjUj@+U+U+U+U+UՃ@UjUjUjUjUjUjUjUjUjUjUjU~UjUjUjUj+UՃ@mjmj@mjUkOk_UՃ@]jmjmj@@Ճ@UjUjUjUjUjUj`UjUjUjU~UjUjUjUj+U+UՃ@]jmjMf6`6`6``6````6`6``@Mjmj@kOk_kYk_k_Ճ@]jmjMjmj]jMfmjmj]jmjmjmj]jmjmjmj[UՃ@UjUjUjc````@`````@UjUjUjUjUjUjUjUjUjUjUjUjUjUj+U+U+UՃ@]jmjmjmj]j}jmj]j}jmj}j]jmjMj@ 33&73 !;3@Ճ@mj]jMfujmjmj~`mjmjmjmj]j]j]j]j{W+WՃ@UjUjUjUjUjUjUjUjU~UjUjUjUjUj@m~mz@mf{YkUkO{M̓@]fm~m~@unyj}jjMfyjmj}jyjmjyj}j}j}j{U{U{UՃ@}f}~@kWk_k\k_kU@y~}~}~mn]~ykm~}~]f]nm~mz]f]~}f]~[Y@mjmj@}j{UkWK_{UՃ@}j}j}j@@@m~}fej}fm~m~m~mv]~mzy~]v}v}~k}+W@j}jMf6`>`>`>`>`>`>`>`6`6``@Mj}j@kWk_kYk_k_Ճ@yj}jMjmjjMf}j}j]j}j}jmjj}j}j}j{UՃ@]v]~yk6c6{>{>{>f>{66>c@uny~}~]fejyfmv]~y~mfy~}v}~}~[}{}{M̓@yj}jmj}j}j}j}jj]jmj}jjmjMj@-???67-?'?@Ճ@}j}jMf}jmjmj~`}j}j}j}jyj]j}j}j{W+WՃ@y~]fm~]v}v}~}~]~]zm~}f]vY~}~@mvmz@mfKYkUk_M̓@]fmvmf@UjUjUjUjUjUjUjUjUjUjUjUjUjUj+U+U+UՃ@}fmf@kOk_k\k_kU@]rmv}vmf]v}gmfmr]f]fmvmz]f]vmf]v[Y@UjUj@Uj+U+U+U+UՃ@UjUjUj@@@mvufej]fmvmvcmvmv]vmz]v]vuvuvkM+W@UjUjUj```````````@UjUj@+U+U+U+U+UՃ@UjUjUjUjUjUjUjUjUjUjUjUjUjUjUjUj+UՃ@]v]v}g6c{6{{6fx{6s6{c@un]vun]fej]fmv]f]vmf]v]vmvmf[qKM[M̓@UjUjUjUjUjUjUjUjUjUjUjUjUjUj@-3;3273-!;@Ճ@UjUjUjUjUjUj`UjUjUjUjUjUjUjUj+U+UՃ@]f]fmv]vuv}vmv]v}zmv}f]vYv}v@}~m~@mfKYkU+]M̓@]fm~mf@UjUjUjUjUjUjUjUjUjUjUjUjUjUj+U+U+UՃ@Mfm~@kLkUk^k]kU@]~m~M~mf]~}gm~m~]f]fmvm~]f]~mf]v[Y@UjUj@Uj+U+U+U+UՃ@UjUjUj@@@m~ufejYf}~mvcmvmv]~m~]~]vuvu~k}+W@UjUjUj```````````@UjUj@+U+U+U+U+UՃ@UjUjUjUjUjUjUjUjUjUjUjUjUjUjUjUj+UՃ@]v]~Mf>{66gfn6>{c@5k]~un]fuk]fmv]~]v}f]vYvm~m~[]K}[M̓@UjUjUjUjUjUjUjUjUjUjUjUjUjUj@?;3333>33??33@Ճ@UjUjUjUjUjUj`UjUjUjUjUjUjUjUj+U+UՃ@]~]f}~]~u~Mvm~]~m~mvMf]~Y~Mv@}zmv@mfkYkW+MM̓@]f=zmf@UjUjUjUjUjUjUjUjUjUjUjUjUjUj+U+U+UՃ@Mfmv@kLkUk^k]kW@]fmzMzm]zmf=vmf]f]mvmv]f]fmf]v[Y@UjUj@Uj+U+U+U+UՃ@UjUjUj@@@=fufejYf}fmvc=v=~]zmv]z]vuvufkm+W@UjUjUj```````````@UjUj@+U+U+U+U+UՃ@UjUjUjUjUjUjUjUjUjUjUjUjUjUjUjUj+UՃ@]~]zMf>{{>6oc>p>{c @uk]zun]fyk]fmv]v]v}f]vYvmzmv[Mkm[M̓@UjUjUjUjUjUjUjUjUjUjUjUjUjUj@?;????@Ճ@UjUjUjUjUjUj`UjUjUjUjUjUjUjUj+U+UՃ@]v]f}z]~u~Mvmz]fmvmvMf]~YfMv          L.&"&""` ,2"2l"><$,22, &""w  0 "2 # ***+&""#"""&&l22, `&< $g""2lw""c***6ccg""< >$> !-3>">""w"""""""""""?"  "??""r""w"">""w>**>p #"c  g"?c6**""ws&*2""w""""""""""*,"""w1 #Iw"""""w""""c""**6"c""cw"">""> "$$$||||<<|||>> "2*&" >" ">"  " 0($~ p>" """">"""""""< "00>> " L <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""**6""">>8  80,"*:<>""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""**6"""">>>> >00000>"(~ < (&20 *, **>> """ " >> ">> """>""""""< >> "  &<]gjnA 'FNVry);@CQZ`cfiknAq%svz} !A%u)A-:=h ,5>BFIKMOQSUY[]_acegikmoqsuwy{} <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "$$! $%%#,fp% "Lp"% $`"H Β*+)hi#"H Β!*0+i+idH#d hd`"%$$%H hi#`$% Βc,d*+Me,dPMc*!0 +i+`%J) b+je *`PPPP򠥹,r0tL"$!e (' !!%##`f`" e$$ ",r0st(!#L"L $b . % `L a,gPgA[8 & & &mh)mi ̒e$*+Me$(Mc,dp ,cpP!pA* +i+Mebrs"t`,Tb@0,U`* L" {LB$!$$"% %L"c`g`g`,,Lҩc`@a`de` qLXde`s$t%L$td`e`g`f`Yd`e`L$e (' 8!$!$%"{LȎ !%# "LȎ5 )5`)aW L| JHIHa`G~ҏ#+@HPXs{ɐG֐G+R$a`1  emhi` b` ,r0rbj$s%t`@b`s$$hLde`,rSjd LL LHLH C `u8967 ,R,W U ,P`ɭӠҠΠΠ Р̺((*)  b+*HN OI*P,h*,H,`0ɛ` ɍ $h`ɐ 6+` qLȎ LȎ         X Y Z [ \ ] hhh`HH ' hh^ `HHHV  V ` Lhhh`,n àϠȥ𬠄𠠠ŠϠÊәĠ̠ m ` 18)`8`HHH n  V H$hb V W X Y m [ l \ ] S ^ T _  ' hhh`HHV ' b i-c ihh`HH$Hȱhhh` LHHHHHHV W L m m  뭒 L   m   (m , r0+p  LJ  LJ -  ȱ  LJ ȱ  LJ s tL m JJJJl ȱm n   ,L, L%" n  :, " +, S l L\DЪ m L\        s t   ަL !8 HȑnhmȑstLS g ^ m  ` ^LLg L@A8m  @0 /@   q@8 @8e@@AiAP`L2Ġ JJJJHȱH ȩȩȩȑhhȩȩȑ /"& &  "  gLS) LSȩȩȩ ȩȩȩ gȭ  ̠̍̍̍̍͠͠͠à̍͠ ̍͠à̍͠Š̍͠Ơ̍̍͠͠͠Π̍Ҡ̍̍͠͠Ԡ̍͠Р̍͠ՠ̍͠Π̍͠Р͠٠̍Ԡ̍͠РĠ̍ Ƞ̍Р̍͠Š̍ҠΠŠӍƠ͠Ԡ̍͠נΠ̍Ҡ̍͠Ϡ̍͠ɠ̍͠Р̍͠Ġ̍ȠŠ̍Ġ̍͠Ƞ̍͠Š̍͠Ԡ̍͠٠̠̍̍͠͠Ƞ̍̍͠͠Р̍͠Π̍͠Р̍͠Ӡ̍͠Š̍͠Ǡ̍͠Ԡ͠٠̍Ԡ̍͠ɠŠ̍ؠΠŠӍà̍͠ ̠̍̍͠͠àҍҠ̍͠Ҡ̍͠Р̍͠Ҡ̍à̍͠ɠ̍͠ӠΠ̍ӠŠӍҠ̍͠Ӡ̍͠٠̍͠ڠ̍͠Π̍̍͠͠͠Ԡ̠̍͠ڠà̍Ǡ̍͠Ǡ̍͠à̍Ӡ̍͠ Š̍ˠΠ̍֠̍͠͠à̍͠͠Š̍ƠΠ̍àԠ̍Π̠̍àҠРӠ̍ӠҠ̍àŠ̍ΠŠӍˠ̍͠à̍͠Ӡ̍͠ԠϠΠ̍ƠŠ̍ΠΠŠӍΠ̍̍̍͠͠͠͠ӠΠ̍ȠΠōȠ͠ŠӍ̠̍͠ ̍͠ Π̍àΠ̍ΠΠ̍          9:15~A$"R":V19:H31:15A19:H9:15$tA$"P":V19:H11:15=uA$"U":V19:H13:15VvA$"M":V19:H15:15owA$"M":V19:H17:15xA$"K":V19:H19:15yA$"F":V19:H21:15zA$"S":V19:H23:15{A$"M":V19:H25:15|A$"D":V19:H27:15}A$"O":V19:H2iA$"B":V12:H29:150jA$"I":V12:H31:15IkA$"O":V12:H33:15blA$"T":V12:H35:15{mA$"N":V12:H37:15nA$"R":V14:H3:15oA$"A":V14:H5:15pA$"C":V14:H7:15qA$"H":V19:H5:15rA$"A":V19:H7:15 sA$" ":V1:15_A$"F":V12:H9:156`A$"A":V12:H11:15OaA$" ":V12:H13:15hbA$"E":V12:H15:15cA$"S":V12:H17:15dA$"R":V12:H19:15eA$"T":V12:H21:15fA$"U":V12:H23:15gA$"G":V12:H25:15hA$"L":V12:H27:1517:H11:15$UA$"M":V17:H13:15=VA$"U":V17:H15:15VWA$"D":V17:H17:15oXA$"B":V17:H19:15YA$"Y":V17:H21:15ZA$"O":V17:H23:15[A$"R":V17:H25:15\A$"M":V17:H27:15]A$"B":V17:H29:15^A$"U":V17:H3JA$"B":V10:H31:150KA$"E":V10:H33:15ILA$" ":V10:H35:15bMA$"E":V10:H37:15zNA$"S":V12:H3:15OA$"A":V12:H5:15PA$"A":V12:H7:15QA$"E":V17:H5:15RA$"R":V17:H7:15SA$"D":V17:H9:15 TA$"M":V:15@A$"B":V10:H11:156AA$"O":V10:H13:15OBA$"C":V10:H15:15hCA$"U":V10:H17:15DA$"H":V10:H19:15EA$"D":V10:H21:15FA$"G":V10:H23:15GA$"D":V10:H25:15HA$"N":V10:H27:15IA$"N":V10:H29:15A$"N":V8:H25:15,6A$"A":V8:H27:15D7A$"E":V8:H29:15\8A$"S":V8:H31:15t9A$"E":V8:H33:15:A$"R":V8:H35:15;A$"R":V8:H37:15<A$"B":V10:H3:15=A$"R":V10:H5:15>A$" ":V10:H7:15?A$"R":V10:H9" ":V8:H3:15&+A$"A":V8:H5:15=,A$"C":V8:H7:15T-A$"I":V8:H9:15l.A$" ":V8:H11:15/A$"R":V8:H13:150A$"N":V8:H15:151A$"E":V8:H17:152A$"O":V8:H19:153A$"I":V8:H21:154A$"U":V8:H23:1554:H33:15" A$" ":V4:H35:15:!A$"E":V4:H37:15Q"A$"A":V6:H3:15h#A$"G":V6:H5:15$A$"L":V6:H27:15%A$"I":V6:H29:15&A$" ":V6:H31:15'A$" ":V6:H33:15(A$"L":V6:H35:15)A$"R":V6:H37:15*A$):CLCSCH256:ADRS7,CL:ADRS8,CH:ADRS3M(4);"BLOAD TABLE,A$4000":dA$" ":V2:H3:15|A$"E":V2:H37:15A$"I":V4:H3:15A$"E":V4:H5:15A$" ":V4:H27:15A$" ":V4:H29:15A$" ":V4:H31:15 A$" ":V15000:G (1);0:V:H:" ";T$;" ":24:1:C$:X(X1):X103X1k JJ1:J101J0:22:1:C$:5r 6 ADRS0:(4);"BLOAD RBOOT":520:ADRS(0),"HRCG":ADRS0ADRSADRS65536 CSADRS768:CS:(4);"BLOAD PRINT.SET,A";CS,CH(CS2566,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98 IX75:I99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,126 24:9:L$;A$;K$:I(0) (1);1:V:H:"$%";T$;"&*":ILEMENT ";(11);"A";(12);"T WT ";(11);"C";(12);"LASS"[ (1);0;(11):24:2:EL$(X)C X24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,7:22:1:"INPUT THE ATOMIC # OF THE ELEMENT THAT YOU WISH TO EXAMINE. PRESS RETURN.";A$ 22:1:C$:23:1:C$:I(A$):I(I):I1I103ī10 XI:I(0) 1:1:(1);1;(24): 22:1:"A";(12);"T";(11);"# S";(12);"YMBOL ";(11);"E";(12);" ":T$" ":K$(11):L$(12):X1 22:14:"PRESS ANY KEY":23:4:"TO EXAMINE ELEMENT OF YOUR CHOICE":I12000::22:1:C$:23:1:C$ (16384)127ī10X 16368,0:22:1:C$]:10:10:"THE PERIODIC CHART"::15:14:"FORMATTING"::12:12:"BY CARL BOWDEN":20EL$(103):(4);"OPEN ELEMENT":(4);"READ ELEMENT":I1103:EL$(I)::(4);"CLOSE ELEMENT"(15);(20);(16):I(49234):(15);(23):6e C$"           13500:J::::::i"DO YOU WANT TO SEE THIS DEMONSTRATION AGAIN, "A$" (YES OR NO)";:D$(D$,1)"Y"ė:60::::"BYE !!"::7(N:(24):"LET ME DEMONSTRATE."QX"ONE POSITIVE CHARGE, ONE NEGATIVE"ibX0:Y95:A279:B95ylXX2:AA2vAX2670X,Y:A,B0:X2,Y:A2,B:7620::"PARTICLES WITH OPPOSITE CHARGES ";:"ATTRACT" :JCT" :"2. REPEL"+ :"3. NEITHER"x :"TYPE IN THE ANSWER OF THE ONE YOU THINK IS CORRECT (1,2, OR 3)";:C :: C1ĺ"GOOD JOB, "A$" !" &C2C3āJ135:L(S):L118:L1:J:"WRONG, "A$ 0C1C3520 :J13500:JD7 X2Y158A277B2420( 370N ::"LIKE CHARGES ";::"REPEL"a :J13500:Ji : ::" STATIC ELECTRICITY" : :"WHEN TWO PARTICLES WITH OPPOSITE" "CHARGES ARE BROUGHT TOGETHER, THEY " :"1. ATTRA:A279:B95% XX2:AA2:Y95:B953 X,Y:A,BK "0:X2,Y:A2,B:7[ ,AX30320d 6270o @J16 JXX1:YY2:AA1:BB2 TX,Y:A,B ^0:X1,Y2:A1,B2:7 hJ rXX2:YY1:AA2:BB1 |X,Y:A,B 0:X2,Y1:A2,B1:"RIGHT, "A$" !"K A1A3āJ135:L(S):L118:L1:J:"WRONG, "A$\ A1A3130m J12000:Js | :7 (24):"LET ME DEMONSTRATE WITH" B((1)2):B0B$"POSITIVE" B1B$"NEGATIVE" "TWO "B$" CHARGES" X0:Y95 F:::; P"WHEN TWO PARTICLES WITH THE SAME CHARGE"^ Z"ARE BROUGHT TOGETHER, THEY"s d:"1. ATTRACT" n:"2. REPEL" x:"3. NEITHER" :"TYPE IN THE ANSWER OF THE ONE YOU THINK IS CORRECT (1,2, OR 3)"; A :: A2ġ **STATIC ELECTRICITY**; ** BY **X ** BRANDON WEBER **u ** THE GREEN APPLES ** ** CEDAR FALLS IOWA ** S16336A$(100)(:"WHAT IS YOUR NAME? ";A$2 <::" STATIC ELECTRICITY"       W YOU TO COLLECTDATA THAT WOULD BE SIMILAR TO THE DATA THAT RUTHERFORD, HIMSELF, WOULD HAVE COLLECTED FROM ";"HIS EXPERIMENT.""(HIT SPACE BAR TO CONTINUE) ":A$IA SPEED OF 36 MILLION MILES PER HOUR AND AIMED DIRECTLY AT A THIN PIECE OF GOLD (.0000001 INCH THICK).:"HIT SPACE BAR TO CONTINUE":L$q:" THIS COMPUTER PROGRAM (WRITTEN BY BRANDON WEBER) SIMULATES RUTHERFORD'S EXPERIMENT. IT WILL ALLODISCOVERED THAT SOME ELEMENTSWERE RADIOACTIVE, THAT IS PARTICLES WOULD SUDDENLY SHOOT OUT OF THE ATOMS. HE SET UP A LEAD BOX WITH A RADIOACTIVE ELEMENT, THAT(14):(15):"SHOT OUT A LIGHT WEIGHT,"h"POSITIVELY CHARGED PARTICLE, TRAVELLING AT ING RADIATION, TO HELP BETTER UNDERSTAND THE STRUCTURE OF THE ATOM. HE WAS A STUDENT OF J.J. THOMSON'SAND SET UP HIS EXPERIMENT TO TEST THOMSON'S IDEAS"(7):(17):"ABOUT THE ATOM.""":" HERE IS HOW THE EXPERIMENT WORKS. RUTHERFORD A$\A$"Y"A$"YES"9003fA$"N"A$"NO"890<p830gz"TOTAL SHOTS =";N1:J14000:J:::"DO YOU WANT TO CLEAR THE SCREEN ";A$A$"N"A$"NO"210P12:50"":" IN 1910, ERNEST RUTHERFORD PERFORMEDAN EXPERIMENT US0:XX1,YC:7650,XXX1:YYC=X0Y0790FX,YZ0:XX1,YC:7c700lC1CX1(5(C1.0555))CC.042  J*4(24)>"# OF PARTICLES IN CENTER=";M1H"DO YOU WANT TO DO IT AGAIN ";R :530' D178CC180C180C0:620S N160CC164C164C((1)21)70:620 X164CC171C171C((1)40)21:620 b171CC178C178C((1)29)61:620 l750 vD((1)2) D0700 XXX1:YYC X0Y159790 X,Y0CC157C157C((1)30)46:450K 157CC160C160C((1)30)86T 750d D((1)2)q D0530 XXX1:YYC X279Y159790 X,Y 0:XX1,YC:7 480 XXX1:YYC X279Y0790 &X,Y 00:XX1,YC:7X,Y:320 hC((1)181)) rC160580K |C100C100C0:M1M11:450v 100CC115C115C((1)20)1:450 115CC135C135C((1)4)41:450 135CC143C143C((1)80)8:450 143CC150C150C((1)18)28:450$ 152000:P8 "HOW MANY PARTICLES DO YOU WISH TO FIRE ";? AL A0820W J1Am K115:L(S):K (15):"SHOT # ";J  N1N11 "N3J ,N3N315:N3((N3))B22:150 6X10:Y80 @0:X5,Y:7 JXX5 TX160360 ^10 FB20 P(24)& Z0,7910,796 d0,8010,80F n0,8110,81Z xP12F12:150 "FIRST, THE SOURCE OF RADIOACTIVE PARTICLES" K12000:K 160,73160,87 161,73161,87 B22ı F12210 "NEXT THE GOLD LEAF" P1  ***********************= ** RUTHER **[ ** BRANDON WEBER **y ** ** ** THE GREEN APPLES ** ** NORTH CENTRAL IOWA** ***********************S16336(9402::7 <M         :7753,28:7754,31:7755,50:7756,62:_7757,55:7758,10:7759,33:7760,44:7761,45:7762,0:e K:7726,54:7727,14:7728,14:7729,14:y7730,45:7731,12:7732,12:7733,12:7734,36:7735,28:7736,28:7737,6:7738,0:7739,63:7740,23:7741,23:7742,23:7743,54:7744,14:7745,14:7746,14:7747,45:%7748,12:7749,12:7750,12:7751,36:7752,282:7699,12:7700,4:7701,0:7702,63:z7703,23:7704,23:7705,23:7706,54:7707,14:7708,14:7709,14:7710,45:7711,12:7712,12:7713,12:7714,36:7715,28:7716,28:7717,22:7718,58:7719,63:7720,63:%7721,0:7722,63:7723,23:7724,23:7725,23$,1)"Y"60::*232,252:233,29{7676,4:7677,0:7678,10:7679,0:7680,25:7681,0:7682,45:7683,0:7684,63:7685,0:7686,12:7687,12:7688,12:7689,45:7690,21:7691,14:7692,21:7693,21:$7694,21:7695,21:7696,45:7697,12:7698,1ROM AN ATOM PRODUCE ALL THE COLORS OF THE SPECTRUM."EbK17000:l"WHEN AN ELECTRON LOSES SO MUCH ENERGY THAT IT FALLS TO THE NUCLEUS, X-RAYS AREPRODUCED."vK17500::: "DO YOU WANT TO SEE THIS DEMONSTRATION AGAIN?";:A$:(AH11J,77$J170ĕ1JH1,773&K135:KJ0:1263,77:JG1:T:::D"PHOTONS TRAVEL AT ABOUT 186,000 MILES PER SECOND, AND MANY PHOTONS PUT TOGETHER MAKE LIGHT."NK17000:5X"DIFFERENT AMOUNTS OF ENERGY TAKEN AWAY F OCCURS, A ";::"PHOTON";::" OF LIGHT IS PRODUCED. WATCH CLOSELY.";XK17500:q2100X,77Y:WW40{A50XW((A31.42)):YW((A31.42))XX(.2X)2100X,77Y510290H13:***********PHOTONJ1702630X,77Y r100X1,76Y1! |A/ JG1570 "WHEN ENERGY IS ADDED TO THE ATOM, THE ELECTRON JUMPS TO AN OUTER ELECTRON 'ORBIT', OR SHELL." K15500::H"WHEN ENERGY IS TAKEN AWAY, THE ELECTRON JUMPS TO AN INNER 'ORBIT'. WHEN THIS "THE ELECTRON 'ORBITS' THE NUCLEUS, BUT DOES NOT TOUCH IT.K W75:H5\ "A50150H ,XW((A31.42)):YW((A31.42)) 6XX(.2X) @X1W(((AH)31.42)):Y1W(((AH)31.42)) JX1X1(.2X1) TA50360 ^2100X1,77Y1 h210 NEUTRAL CHARGE"- :"(HIT ANY KEY)";:A$9 :::M (232)252210^ :670:(24)g :7q 1:0 396,73:4106,72 "THIS IS THE NUCLEUS OF OUR DEMONSTRATIONATOM. IT IS COMPOSED OF 1 NEUTRON AND 1PROTON." K16000: > UCED. FIRST, YOU MUST KNOW THAT THERE ARE 3 TYPES OF BASIC ";X "PARTICLES INVOLVED" :" THE ELECTRON, WHICH HAS A 'NEGATIVE' CHARGE;" " THE PROTON, WHICH HAS A 'POSITIVE' CHARGE;" " AND THE NEUTRON, WHICH HAS A OF LIGHT" P- Z" BY"P d" BRANDON WEBER"X n:> x" LIGHT IS CONSIDERED BOTH A PARTICLEAND A WAVE BY PHYSICISTS. THIS THEORY IS HARD TO EXPLAIN, BUT I WILL ATTEMPT TO SHOW YOU EXACTLY HOW LIGHT IS PRO- Df  **********************; ***** WRITTEN BY *****X **** BRANDON WEBER ***u( ******* 3/10/81 ******- ***THE GREEN APPLES***. ***CEDAR FALLS IOWA***2 ********************** <:::::A F" PRODUCTION   N",31,"FEB",28ZSPLAY, PRESS ANY ONE KEY AND HAVE PATIENCE. NOW PRESS A KEY TO CONT.";:Z$bL'LOOP$"ON"::5000zV'CH%1CH%6010010`'4000:2000:3000:5000:10070 N"MAR",31,"APR",30,"MAY",31,"JUN",30,"JUL",31,"AUG",31,"SEP",30,"OCT",31,"NOV",30,"DEC",31,"JA'9000:2000:3000::5000'::(9):"TERMINATE WITH 'RETURN'. TO CONTINUE, ENTER THE NUMBER OF MINUTES (1 - 60) DESIRED AS AN INTERVAL BETWEEN DISPLAYS AND PRESS RETURN. ";QQ$$'CH%(QQ$):CH%0ĉ::.'CH%1CH%6010010K8':"TO HALT DIE, PRESS ANY OTHER KEY.":" ";G$$G$"Y"ė:(11):(15):"THANK YOU"::" WHEN YOU TIRE OF THE DISPLAY, PRESS":"ANY KEY.":$G$"Y"9300$"SATELLITES PASSING BETWEEN JUPITER AND EARTH APPEAR IN BLACK."::"PRESS A KEY TO CONTINUE":Z$::SD$"D"TZ%TZ%1$ZTZ%24c$:(11):10)MO$;", ";DY%;", ";YR%:(10):HR%;":";:MN%10ĺ"0";$MN%;" ZONE ";:SD$"D"ĺTZ%1:10)"DAYLIGHT TIME (D)":9409$TZ%:10)"STANDARD TIME (S)" $:"DO I HAVE THIS RIGHT? IF SO, PRESS 'Y',OTHERWIS ZONE (GMT = UT = 0). IN THE U. S., THE ZONES ARE: 5) EASTERN 6) CENTRAL"$"7) MOUNTAIN":"8) PACIFIC":"TIME ZONES EAST OF GREENWICH ARE COUNTEDNEGATIVELY GOING EAST FROM GMT. ";TZ%:(TZ%)129375$9350$:"ENTER LOCAL TIME IN HOURS AND MINUTES SEPARATED BY COMMAS. USE A 24 HOUR CLOCK(0 - 23) ";HR%,MN%:HR%0HR%239360$MN%0MN%599360$:"STANDARD OR DAYLIGHT TIME? (S/D) ";SD$$SD$"S"9375$SD$"D"9370y$:"ENTER TIME PLEASE REENTER.";:" ";YR%:9330+w$6300|$6100:MF$"OFF"ė:(12):" ENTER THE FIRST THREE LETTERS OF THE MONTH ";MO$:9340$6200:DF$"ON"ė:(12):" INVALID DAY OF THE MONTH PLEASE REENTER.";:" ";DY%:OMMAS. PRESS 'RETURN' WHEN FINISHED WITH THIS AND ALL OTHER ENTRIES."}c$:"USE THE FIRST THREE LETTERS OF THE MONTH"h$:"FORMAT: ... OCT,3,1968":" ";MO$,DY%,YR%:!r$6000:YF$"ON"ė:(12):" YEAR OUT OF 1800 - 2000 RANGE XD26.364 #C139:COCXD:Y79`#RAD(X)XPI180:DEG(X)X180PI:ASN(X)(X(XX1))s"$M$(14),D%(14),$I314:M$(I):D%(I):IT$:"PROGRAM IS GOOD FOR THE YEARS 1800-2000"K^$:"ENTER MONTH, DAY, AND YEAR IN THAT ORDERSEPARATED BY C25.328:N2.0830853:J1221.647:J2.9025179u#PI4(1):A11.92:A2.02:B15.537:B2.167:D528.07:D610.406:LOOP$"NO"#UA84.5506:UB203.405863:UC41.5015:UD101.2916323:UE109.977:UF50.2345169:UG176.3586:UH21.4879802 #XA5.906:XB9.397:XC14.989:OUGH BINOCULARS"7F#:(9):"PROGRAMMED BY BOB MANSKE"_P#(9):"MAY 16, 1980 COPYWRITE 1980"Z#(9):"ALL RIGHTS RESERVED"d#:(9):"PRESS A KEY TO CONTINUE ":(9):Z$#D1365.25:D230.6001:D31720994.5:D42415020)#M1358.476:M2.9856003:N12dX3606520n6600+xX0ıBX360XX360:bXX(1):6600:XX(1)360hxX28468.145X(X360(X360))360:(#::(8):(9):"A VIEW OF JUPITER AND THE"2#(9):"FOUR GALILEAN SATELLITES"<#(9):"AS SEEN THRZZ.01ZZ0:".0";:?pYF$"OFF":YR%1800YR%2000YF$"ON"EzMF$"OFF":I314:M$(I)MO$MO%I:MF$"ON":I14I:8DF$"OFF":DY%0DY%D%(MO%)DF$"ON"BD%(14)28:TYR%4:T%T:TT%D%(14)29YR%1900YR%1800D%(14)28 (23):(1):LOOP$"ON"5270(Q$=(16384)127ı16368,0::(21):"PRESS 'C' TO CONTINUE. ";:Z$:Z$"C"Ą" INTERVAL? ";CH%:5000::|T0V$"E":T0V$"W":V$"C":CU0Ē0:ZP1,YZP1,Y:ZP,Y1ZP,Y10):" ";YR%;" ";:HR%10ĺ" ";9~HR%":";:MN%10ĺ"0";CMN%;RTX4:5500\(24)" 4 MOONS 1V CALLISTO ";V$;" ";:ZZ(X4):ZZ10ĺ" ";ZZ1ĺ" ";:CU(U4):ZPP4:5600ZZ;:(30):" ZONE ";:SD$"S"ĺTZ%;"S";:5267TZ%1;"D";:ZZ(X2):ZZ10ĺ" ";; aZZ1ĺ" ";:CU(U2):ZPP2:5600j dZZ;:(30):" ";M$(MO%);" ";:DY%10ĺ" ";y nDY%", " sTX3:5500 w(23) x" AND THE III GANYMEDE ";V$;" ";:ZZ(X3):ZZ10ĺ" "; zZZ1ĺ" ";:CU(U3):ZPP3:5600}ZZ;:(381143,81:135,82143,82:136,83142,83:TX1:5500 U(21):(1):"EAST <-- I IO ";V$;" ";:ZZ(X1):ZZ1ĺ" ";:CU(U1):ZPP1:5600 WZZ;:(30):" --> WEST":TX2:5500 ZTX2:5500 ^(22) _" JUPITER II EUROPA ";:(23):V$;:(25)R%1:2500:6300:6000:YF$"ON"Ģ(23):(1):Z$:::A TM%0:c 0:0,Y279,Y:3:134,Y144,Y P1X1COC:P2X2COC:P3X3COC:P4X4COC:P1,Y:P2,Y:P3,Y:P4,Y2 136,75142,75:135,76143,76:135,77143,77:134,78144,78:134,80144,80:135,(U2):X3XC(U3):X4XD(U4)$ X 4 MN%MN%CH%U MN%59MN%MN%60:HR%HR%1| HR%23DY%DY%1:HR%HR%24:6200 DF$"ON"DY%1:4500 MO%15MO%MO%12 MO$M$(MO%):DF$"OFF"  TM%MO% MO%MO%15 TM%12MO%13YR%Y(M))A2(RAD(2M))8 BB1(RAD(N))B2(RAD(2N))J KRAD(JAB)_  DT(D5D6(K))z  PSDEG(ASN((K)DT))  JCDDT173 & U1RAD(UAUBJCPSB):U2RAD(UCUDJCPSB):U3RAD(UEUFJCPSB):U4RAD(UGUHJCPSB) N X1XA(U1):X2XB ::8191:100001Y%YR%:MO%12Y%Y%1y2500:DYDY%HR%24MN%1440Z:JD(D1Y%)(D2(MO%1))B%D3DY: A%(Y%100):B%2A%(A%4): DJDD4:MM1M2D:NN1N2D:JJ1J2D:XM:6500:MX:XN:6500:NX:XJ:6500:JX AA1(RAD        050::VT1:#Y23114#6,Y:7,2:768@#XYABM#X1X1W#Y:X_#L$k#Y1:X1t#" "#X1X:Y1Y#Y#1:15#(WRD$,T)#T$T34171$2:T$"MOTION ""$J150:,$6,T:7,2:7686$@$A75(L$",")(X1FINISH:X&(J0(" ";=(CURRENTI(VTVT2O(e: PRESS ANY KEY s:16368,0:CU$"!/-\":VT24:A$"! PRESS ANY KEY":10000:VTVT2:C1:L4:VT:1:(CU$,C,1):KEY(16384):KEY128CC1L(CL):15P(L$(WRD$,J,1)BZ(L$"@"L$"&"JJ1:LL064(L$"&"):10320Nd(I(L$)bn(I65I90LL0px((ILL);(SOUND10450(L$" "10450(X12(S(16336)(X(L$" "L$"."L$","10450 (FINISH20150(L$" .")A$,CURRENT,KCURRENT)#'CURRENTK8'LW(WRD$):NLLWY'LW0SPACESSPACES1:10460j'K1(WRD$)'(WRD$,K,1)"@"NLNL1'K(SPACESNLWIDTH10280 (VTVT2(1(SPACE0((SPACESSPACESNL12(VT<(J1LWF(LL32E PRINTER '54,0:55,96'$'L(A$)/.'VTC8'CENTER010120KB'I0VL'K1L`V'II1`'(A$,K,1)"&"(A$,K,1)"@"II1j'Kt'(40I)2~'10130'1'SPACES0'CURRENT1L'KCURRENTL'(A$,K,1)" "ĂK'WRD$(1000:J ^$(% WORDS AT BEGINNING 4&%L(A$)D0%HT(40L)2S:%X2301jD%X1X5:X1249570yN%X1S9610X%X1:" ";b%XS9590l%X:HT:A$v%6,X230:7,2:768%X% ' LOWER CAS#X1X1#Y:X#L$'#Y1:X10#" ">#X1X:Y1YE#YP#1:15_#(WRD$,T)f#Tv$T34171$2:T$"MOTION ""$J150:,$6,T:7,2:7686$@$A$"WRITTEN BY":S5:9500J$A$"LARRY SELTZER":S7:9500T$J1:779,208:780,246:781,166:782,6:783,76:784,0:785,03:786,96G^\(# INTRODUCTION b2#x<#WRD$"PROJECTILE"F#T110P#X11:Y110Z#L$(WRD$,T,1)d#TTT14n#A(TT1)22x#BTTA#Y2311#6,Y:7,2:768#XYAB (T10.5)10 X S(S10.5)10;b V((GTV0)10.5)10Ol 3:24:T:868cv 5:24:S:868w 7:24:V:868 3070 @ MUSICAL POKESJ768,173:769,48:770,192:771,136:772,208:773,4:774,198:775,7AT776,240:777,8:778,20200  15000 ) THROW UP BALL 1 T0B 54,0:55,96V 3:15:"TIME:"n 5:15:"HEIGHT: " 7:15:"VELOC.: " V030 TT.2 S12GTTV0T 0 20,191Y1& S032200 3: 20,191(S2)D Y1S2 N TALL, WE CAN USE THE FORMULA:":100001 CENTER1M A$"V = GT + V ":10000Y VTVT1u A$" O":10000 CENTER0 15000A$"@NOW LET'S SEE WHAT WILL HAPPEN WHEN WE THROW A BALL UP WITH AN INITIAL VELOCITY OF 30 METERS/SECOND":100F THE BALL, WE CAN JUST USE THE FORMULA:":10000E pVTVT1:CENTER1h zA$"S = 1/2 G T + V T":10000t VTVT3 A$" 2 ":10000 A$" O ":10000 CENTER0 VTVT1$ A$"AND TO COMPUTE THE VELOCITY OF THE B *CENTER15 4A$"@DISTANCE = @RATE X @TIME":10000B >CENTER0M H15000 RA$"@FIRST, LET'S JUST EXAMINE THE VERTICAL COMPONENT OF THE MOTION. @TO DO THIS, IMAGINE THROWING A BALL UP IN THE AIR.":10000 \VTVT10 fA$"@TO COMPUTE THE HEIGHT O VTVT1 A$"@IF THE MOTION TAKES PLACE IN A FRICTIONLESS ENVIRONMENT, THE HORIZONTAL MOTION IS FOUND USING THE VERY SIMPLE FORMULA:":10000 CENTER1 A$"S = VT":10000 CENTER0 A$"@THIS IS, OF COURSE, THE SAME FORMULA AS:":10000 (4);"BLOAD CHAR TABLE"! 8000D $VT1:SOUND0:CENTER0:WIDTH40O .G9.8U 8[ Bi  STUFF o  A$"@PROJECTILE MOTION IS SIMILAR TO FREEFALL MOTION, EXCEPT THAT IT INCLUDES A HORIZONTAL COMPONENT IN ADDITION TO A VERTICAL ONE.":10000 1000: INITIALIZE)9000:INTRO;2000: STUFFU(3000: THROW UP BALLi254,189:55,158q<:F11:12:P"PLEASE WAIT":Z(4);"RUN PRO.V" INITIALIZE 16384(768)1731060(4);"BLOAD HIRES CHAR"       C6,X:7,2:768 CX$ C170406 CSOUND17370A CY13P CX4014c C6,X:7,2:768m CX:Yy CVTVT2 CG$G$(A128) lCL(G$) vCVT:L5:(A) {CSOUND17310 CX2012 C6,X:7,2:768 CX C17040!CSOU17180BSOUND17180$BY1102BX1256EC6,X:7,3:768MC:aCVT:5:" "k&CG$""v0C17040:CLL1DCG$(G$,L)NCVT:L6:" "XC17040bCG$G$(A128)lCL(G$)vCVT:L5:(A){CSOUND17310CX2012z#Xİ  ήԠӠҠҠŠ Ԡ Ԡ Ġ Ǡ  ɮԠԮԠŠ" !̠ɠ Ϯ֠ ҠΠƠԠ Ҡ à٠ ŮŠ ӮՠӠҠ Ϯ֠" ҠŠΠϮɠ ̠ɠ̠Ϡ ̠Ϯà!Š  Ϡ"Š ɭӠҠ͠Ҡٮ̠@@YY3fP*U*U*U*U*U*U*U*U*U*U*U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*U@*U*U*U*U*U`F `P*ysdy?N3N3~9~O9fys($'<.'*** WRITTEN BYT8'*** LYNELL JACKSONnB'*** JANUARY 14, 1987tL'V'*** LAST MODIFIED BY`'*** LYNELL JACKSONj'*** JANUARY 27, 1987t'~'<*** "ISL HELLO" ***>DMONDAY-SATURDAY." #""F#"TECHNICAL/SOFTWARE SUPPORT HOURS ARE"w#"8:30 AM --> 4:30 PM PST MONDAY - FRIDAY." #""#"CALL US FOR A FREE CATALOG OF"#"COMPUTER SUPPLIES AND THE LATEST AND"#"MOST UP TO DATE PUBLIC DOMAIN SOFTWARE." Z#"A DIVISION OF U.S.COMPUTER SUPPLY INC."O d#"511-104 ENCINITAS BOULEVARD"j n#"ENCINITAS, CA 92024" x#"(800) 992-1992 (USA) #"(800) 992-1993 (FOR CA) #"(619) 942-9998 (FOREIGN) #"" #"ORDER HOURS ARE"#"6:00 AM --> 4:30 PM PST l24:7110 vGO$: # : TB%(21(PR$)2)I TB%:PR$;O U (#r +#<*** DATA LOCATION ***>x /# 2#"FOR OTHER PUBLIC DOMAIN AND" <#"USER-SUPPORTED PROGRAMS PLEASE CONTACT:" F#"" P#"THE INTERNATIONAL SOFTWARE LIBRARY",16297,1:16300,1:16301,1:16304,12 70108 @ :M I1ND%_ PR$:I:7110f Ip 7010v  RN$""ė:D$;"CATALOG": (:D$;"RUN ";RN$ 2 X [<*** SUBROUTINES ***> _ bPR$"< PRESS ANY KEY TO CONTINUE >" GF%11110 :E PR$" U.S. COMPUTER SUPPLY INC. PRESENTS:"S 10:7110 PR$"THE INTERNATIONAL SOFTWARE LIBRARY" $13:7110 .7010:1210 L V: `PR$"* LOADING PROGRAM *" j11:7110: ~D$;"BLOAD ISL HELLO.GRAPHIC"( CING FOR PRINTING DATA LINE6 * I = LOOP VARIABLE S * GO$ = CONTINUE STRING GF%1:* DISPLAY GRAPHIC FLAG, 1=YES, 0=NO ND%20:* NUMBER OF DATA LINES RN$"":* NAME OF THE PROGRAM TO RUN NEXT  <*** MAIN PROGRAM ***>  <*** "ISL HELLO" ***>">*** PROGRAM WRITTEN BYV(*** LYNELL JACKSONp2*** JANUARY 14, 1987vdg<*** VARIABLES ***>knD$(4):* CONTROL-DxH$(8):* CONTROL-H* PR$ = DATA LINE FOR PRINTING * TB% = TAB SPA     P*Os?~~?O`P*U*U*U*U*U@*U*U*U*U*U``P*?U`<P*U*U*U*U T*U*U*U*U`P*U*U*U*U*U*U*U*U*U*U*U`L}|L1`><P*ysd?N3N?~9rO9fIs`P*U*U*U*U*U@*U*U*U*U*U``s3O{qc<P*?U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*UP*U*U*U*U*U` `P*ysx?N30~9O9fp">>">>"""<">>>>">">>>>>>>">">>">>>"">"">>"> "">">">>>>">>">>">">>">">>           I,J:.'769,100:: DURATION$8'( 5>>>&%-.&'76666666666666&''..%%>&>$$$$$$$>>>.--%''7666666666e 5>>>&%-.&'76666666666666&''..%%>&>$$$$$$$>>>.--%''76666666661& 80,100P1,100P1,1500 0 P28013.125J 80,125P2,125P2,150P b P38019.685| 80,138P3,138P3,150 ' : GENERATES MUSIC TONES' 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174, 0,3,76,2,3,96 $'I770790:J:R t :CALC. % REMAINING6R100(D900)100\PP1: TIME PERIOD OF 100 UNITSn805P,150RRR(R10)1022:RR;"% REMAINING AFTER ";T;" DAYS " PITCHPITCH1768,PITCH 770::TONE ROUTINE* P1806.5651500:Q:!:PLOT DECAY7PAUSE(200(1))IQ1PAUSE:QP0[X1,Y1kA(X1,Y1)1$DD1::DECAY COUNTER.381B0:326,0L16:352,26V32:326,52`48:30,26j768,40:769,3:770: :CLICK SPEAKE l32:326,52 v48:30,26- P296606 510X 24:"HALF LIFE IS 656 DAYS."f 16368,0w KY(16384) KY128680 16368,0 : 10 "DO YOU WANT TO DO THIS AGAIN? ";Q$ (Q$,1)"Y"240 :10:20)"OK"Q">"">"">>>"">"""">>">"">"""">>>">""">>"">"">""0""""""""""""""""""""""""""""""""""6"""""""""""""""""""""""""""""""""2"> 2 ">222"> > &"> " " >""""> >"  > ""*"">"">"> "">"2""> " >"">"">"> 2" &""**"**>"" **"""""">*"""">"*">""""""*"""*">">"""""""*"*" *""""&"*"&&"""2*"""""""e-\oPa(Ӡ͢Ҡ̠)*]Pa(ӠâϠԠ)G[Q^-rq-rq -rq -rq-rq]Π)_UVWUV W ]נ`q81? rr81?rrbf-r_5 Lq,PqUVWX`P%qxR\q\Y-TM6oa(ޠ)GPa(Ԡ)KV@p(ŠΠҠԠ)2Xoa(ҭŠϢŠ) Zd"q@q00<q88r88@rrrqLq'>q88rr880rr@qu\9Aq.?6@r`8r8r %\h`%_B` %\D``%\F`@%\H`78 r%\ JY\q\q\]ŠU2q/UVW\Yq0q\q1\q2UVW\Y3d6?eL\^)4qdqdqqdq 5qqUVWpX"8qd ed!e:P a(٠̠)oa(ԠŠҠ)UVWY&d,eO4rN@"Hr-(qqq3qqq*M,q\L.qhqc\0qqq\I1qqpq"\q|)UVWq.?6?8rrY[d2e?o5 q88 rrP a@*#rGd2e[3"d ed!ed"ed,eM[V$qq"qqKM6o a(̠ΠŠ)Y%oq\q\qqq[/qqvq\q6q\[q(\\[/qqq\q6q\[q(\\[Nq.?6?r.?6?r.?6?r.?6?r.?6?r.?6?r.?6?r.?6?r.?6?r _d"ed,eM[0d&ed$ed%ed'eM[#qqq\q\ qq\q\9 qq\q\qq\\q*q\qq\qq0q    >">">"">""""<"">>>"">"">"">80 W33EA1TT1.059"DISPLAY MARS ";MAHS4686.980UE4.0934lA4154.936128.471P4A4(1E4E4)2K41E4U4P4E4 J4355.7Q180 W4289 MA1TT.6 "DISPLAY JUPITER ";JU S54332.125E5.04A267.72666.813)P2A2(1E2E2)25K21E2BU2P2E2UJ2131.3Q180bW2140.5sVE1TT1.5"DISPLAY EARTH ";EAS3365.256E3.0167A394.55591.445P3A3(1E3E3)2K31E3U3P3E3J3102.6Q1CTED PLANETS ARE DISPLAYED7"DISPLAY MERCURY ";MEES187.969RE1.0167gA143.40328.597}P1A1(1E1E1)2K11E1U1P1E1J177.1Q180W137.58ME1TT2.3"DISPLAY VENUS ";VES2224.701E2.00681*E1)/2 /  E1=ECCENTRICITY:U1=P1/E1:K1=1/E1f  REM A1=MINIMUM AND MAXIMUM DISTANCE FROM THE SUN  J1=LONGITUDE OF PERIHELION IN RADIANS  W1=DAYS FRON 0 DEGREES TO PERIHELION FOR 1980 TT=SCALING FACTOR TO USE FULL PLOTTING AREA IF SELE04000 ?:; D:"YOU HAVEN'T PICKED THE PLANETS YET"E N::s "CHOOSE THE PLANETS YOU WANT TO DISPLAY"y  "ENTER A 1 FOR YES AND A 0 FOR NO"  (2020-2079) GET SPECITIC VALUES FOR EACH PLANET  S1=ORBITAL PERIOD:P1=A1*(1-EP  FA IS THE RATIO OF X TO Y TO PLOT A CIRCLE AN THE APPLE INSTEAD OF AN OVALa $X1140:Y196o :::: "DO YOU WANT TO DISPLAY" :"THE SAME PLANETS AS YOUR LAST RUN" "Y OR N ";A$ : &A$"N"2000 0A$"Y"1800 :S1TERCLOCKWISE.# DSRD2V1Q2V1/ V1V1JM X(V1)RV:Y(V1)RVFAe "XXTTX1:YYTTY1k ,  (1000)DISPLAY PRIMARY PAGE,SET TEXT MODE 16300,0:16303,0 T1.5708 Q3.14159265 Q26.2831853 VL.99999999 FA2932E RV IS THE RADIUS VECTOR OR DISTANCE FROM THE SUN TO THE PLANETT VPERVEZc V1VVLt V1VVL V1(V(VV1))T3.1415927 V1 IS THE ANGLE THAT THE PLANET LIES FROM THE SUN. THE 0 POINT BEING AT THE RIGHT, INCREASING COUN * SOLAR SYSTEM *8 * SIMULATOR * BU1000fZ (100-110) PLOT X AND Y VALUESodX,Yun (200-300) CALCULATE THE X AND Y PLANET POSITIONSDZ(ZSRD)SRD D IS FOR DAYSBQ(DSRDQ2) RVA(P(1E(B)))     '*,,,,3----$????'$% #`6.-%-%$??????46.---$?-/5?->/&5>%,$,---??75-?.=7-?.=7-?.=7-?6-5666>???????'$$$,->%,$,---??75-?.=7-?.=7-?.=7-?6-5666>???????'$$$,-/=$/=$------------''''TU/T8ePT ?UeRU @QJJJ`ŴxaI1S-Q/ ?QJJJ`& ')*& *'JJ) **- m- ʥ0J)m-)(`)J Ji,`#" ! &#` L# !" #`#&/TeRTUU+5&E%0Q&&S [TePTUeQPF0'@0- &`0(Q) &E%0Q&&QeS)j00',"&,i8i#H&ii&hif&i'`'i,&i,&iPII&.if&JJJJS)PIȄR-Q?eQ _$ .WS.)`*()H)&JJ&&h' &' &' f&') .'#i-|0J, i` @ &Q&%0Q&&`H()*hH8(H)S hIiHSQUhPTh()*IiR*fS8PQ+- 8gh dYY fo[%h`$joPd6?eM6dKid2e?Pa(Ӡ΢ϠР)d2eqd6?e:jq.?6@r`$jd6?e`%[_Gd6?eLf UVW'Xij'kYKM6Kd6300' N33:P$"SYMBOL":I$"NAME":300K N33:P$"NAME":I$"SYMBOL":300{ N17:P$"ELEMENT":I$"OXIDATION STATE":300 N7:P$"RULE":I$"RULE # " ,I150 .C1ćA$(I),Q$(I) 0C1ćQ$(I),A$(I) 2I 3C3400 4I133 6C3ćQ$ADICAL SYMBOLS". " 5. OXIDATION STATES"T " 6. SOLUBILITY RULE NUMBERS"} :"GIVE NUMBER OF CHOICE: ";:"";C$ C(C$):C1C6170 C200,205,210,215,220,230 N50:P$"SYMBOL":I$"ELEMENT":300 N50:P$"ELEMENT":I$"SYMBOL":Q$(50),A$(50),R(50): ::10:"YOUR NAME? ";NAM$H2:3:WR0qd6)" C H E M I S T R Y D R I L L"x8:"WHICH WOULD YOU LIKE TO GIVE:":" 1. ELEMENT NAMES"" 2. ELEMENT SYMBOLS"" 3. RADICAL NAMES" " 4. R     u VERSION !#$%"#$%*:!sDEGREE INTERVALS1u VERNAL EQUINOX IS TO RIGHTOu AT DOUBLE DOT. PLANETS nu REVOLVE COUNTERCLOCKWISEu THE SUN (DOT AT CENTER).u ORIGINAL PROGRAM FROMu MICRO APPLE 1 BY DAVIDu PARTYKA. WE THINK THE u BUGS ARE OUT OF THIS Z1DEDN7000851003XX279:Y190:100:A$E::Z10:DE0N(5)"WOULD YOU LIKE TO BEGIN THIS PROGRAM":"AGAIN? Y OR N " S$RS$"N"1000\:0u:::::::::::::::::::::::::::::::u BIG OUTER CIRCLE IS STARSu IN 10 F5:YG5:M5X:N5Y:3:100R (5600-5640) SET UP VALUES FOR SATURN AND PLOT aSA06000AA6:PP6:EE6:PEU6:EZK6:SRDS6:JJ6:WW6:ZZ1W200:F6X:G6YTY15640XM6:YN6:0:100XF6:YG6:M6X:N6Y:3:100pZ1Z1DAY1TY15440'6XM4:YN4:0:100G@XF4:YG4:M4X:N4Y:3:100|r (5500-5540) SET UP VALUES FOR JUPITOR AND PLOT|JU05600AA5:PP5:EE5:PEU5:EZK5:SRDS5:JJ5:WW5:ZZ1W200:F5X:G5YTY15540XM5:YN5:0:100XK3:SRDS3:JJ3:WW3:ZZ1W.200:F3X:G3Y=TY15340SXM3:YN3:0:100sXF3:YG3:M3X:N3Y:3:100 (5400-5440) SET UP VALUES FOR JUPITOR AND PLOTMA05500"AA4:PP4::EE4:PEU4:EZK4:SRDS4:JJ4:WW4:ZZ1W,200:F4X:G4 PVE05300IZAA2:PP2:EE2:PEU2:EZK2:SRDS2:JJ2:WW2:ZZ1W\d200:F2X:G2YkiTY15240nXM2:YN2:0:100xXF2:YG2:M2X:N2Y:3:100 (5200-5240) SET UP VALUES FOR EARTH AND PLOT EA05400AA3:PP3:EE3:PEU3:EZ (5100-5140)SET UP VALUES FOR MERCURY AND PLOT>ME05200uAA1:PP1:EE1:PEU1:EZK1:SRDS1:JJ1:WW1:ZZ1W200:F1X:G1YTY15140 XM1:YN1:0:100XF1:YG1:M1X:N1Y:3:100F (5200 - 5240)SETUP VALUE FORVENUS AND PLOT HIGH RES,FULL SCREEN, PAGE 2#e (4805-4860)PLOT REFERENCE POINTS AND OUTER 10 DEGREE CIRCLEl3X140:Y96:100X141:Y96:100X248:Y96:100L10Q2136Q2XX1(L1)105.9YY1(L1)105.9FA100L1/$DT1DT04020#DT14060-::Y"ENTER # OF DAYS SINCE JAN 0,1980 ";DEcZ1DE::"ENTER # OF DAYS TO PLOT ";DN::"ENTER # OF DAYS BETWEEN PLOTS ";DADA04800:"0 NOT ALLOWED":4070 4800 INIT5.5Q180W62115%SA1TT.1/<::G:"DO YOU WANT ":r"POINT (0) OR CONTINUOUS(1) PLOTS";TYTY0TY14000:::"DO YOU WANT TO START AT":"A SPECIFIC DATE (0)":"OR THE BEGINNING OF THE YEAR (1) ";DT78A5507.046460.595/P5A5(1E5E5)2;K51E5HU5P5E5ZJ513.6Q180fW51604wJU1TT.19"DISPLAY SATURN ";SAS610825.863E6.0555A6937.541838.425P6A6(1E6E6)2K61E6U6P6E6 J69E NUMBER OF THE TOPIC"F Q:"THAT YOU WOULD LIKE HELP ON, OR 'R' TO"^ R:"RUN A PROGRAM."n Z19:"===>" _19:5:A$:A$ `A$"R"4000 dA(A$) nA11000 xA22000 (7) 95  A$"FREEFALL":10000 :"THERE ARE TWg X14NM$(X),P$(X)%X7 ::16368,0TA$"INSTRUCTIONS":10000(:"THERE ARE TWO DIFFERENT PROGRAMS IN"2:"THIS PHYSICS DEMONSTRATION. THEY ARE:"<:"1. FREEFALL"F:"2. PROJECTILE MOTION" P::"PLEASE ENTER TH      IS INSOLUBLE"INSOLUBLE"N PB"p 5,"ALL OXIDES ARE INSOLUBLE EXCEPT: RULE 1 AND GROUP II (BE, MG, SR, BA, RA, CA) WHICH WILL REACT" 6,"ALL HYDROXIDES AND SULFIDES ARE INSOLUBLE EXCEPT RULE 1 AND GROUP II (2A ON TABLE)" 7,"EVERYTHING NOT ABOVE MENTIONED-1,CL,-1,F,-1Gx 1,"ALL NA, NH4+1, AND K COMPOUNDS ARE SOLUBLE"|2,"ALL NITRATES, ACETATES, AND CHLORATES ARE SOLUBLE"}3,"ALL HALIDES ARE SOLUBLE EXCEPT: AG, HG, PB"~4,"ALL SULFATES ARE SOLUBLE EXCEPT: BA, CA, SR, RA,OSPHATE,PO4-3,ARSENATE,ASO4-3,CUPROUS,CU+1,CUPRIC,CU+2FERROUS,FE+2,FERRIC,FE+3,STANNOUS,SN+2,STANNIC,SN+4,PLUMBOUS,PB+2,PLUMBIC,PB+4,MERCUROUS,HG2+2,MERCURIC,HG+2 BE,+2,LI,+1,ZN,+2,AG,+1,H,+1,NA,+1,K,+1,MG,+2,CA,+2,BA,+2,AL,+3,O,-2,S,-2,BR,-1,I,LO-1,CHLORITE,CLO2-1,CHLORATE,CLO3-1,PERCHLORATE,CLO4-1,PERMANGANATE,MNO4-1,NITRATE,NO3-1~ HYDROXIDE,OH-1,NITRITE,NO2-1,CYANIDE,CN-1,CARBONATE,CO3-2,SULFITE,SO3-2,SULFATE,SO4-2,MANGANATE,MNO4-26OXALATE,C2O4-2,CHROMATE,CRO4-2,DICHROMATE,CR2O7-2,PHM,AG,SILVER,CD,CADMIUM,SN,TIN,SB,ANTIMONYI,IODINE,CS,CESIUM,BA,BARIUM,W,TUNGSTEN,PT,PLATINUM,AU,GOLD,HG,MERCURY,PB,LEAD,BI,BISMUTH,U,URANIUMLACETATE,C2H302-1,AMMONIUM,NH4+1,BICARBONATE,HCO3-1,BISULFATE,HSO4-1,BISULFITE,HSO3-1Y`HYPOCHLORITE,C,PHOSPHORUS,S,SULFURtCL,CHLORINE,AR,ARGON,K,POTASSIUM,CA,CALCIUM,SC,SCANDIUM,TI,TITANIUM,V,VANADIUM,CR,CHROMIUMMN,MANGANESE,FE,IRON,CO,COBALT,NI,NICKEL,CU,COPPER,ZN,ZINC,AS,ARSENIC,BR,BROMINE)KR,KRYPTON,RB,RUBIDIUM,SR,STRONTIUM,MO,MOLYBDENUP60ĺ"BY YOUR SCORE, YOU MUST BE FAILING..."W22:"ANOTHER ROUND? ";:V$:V$"N"Āa:50H,HYDROGEN,HE,HELIUM,LI,LITHIUM,BE,BERYLLIUM,B,BORON,C,CARBON,N,NITROGEN,O,OXYGENF,FLUORINE,NE,NEON,NA,SODIUM,MG,MAGNESIUM,AL,ALUMINUM,SI,SILICON,P"GOOD SHOW":690)"EXCELLENT":690;"JOLLY GOOD"NKI11000:KIUJo:P(((QWR)Q)100)4:NAM$;", YOU DID ";QWR;" CORRECTLY"::"OUT OF ";Q::"THAT'S ";P;"% RIGHT.":P89ĺ"FINE JOB--YOU'VE STUDIED ENOUGH."-ELLED...TRY AGAIN":Z1Z11:6455"FORGET IT. . ."AWRWR1RWR3ĺS$(1)hWR2WR6ĺS$(2)WR5WR10ĺS$(3)WR9ĺS$(4)KI1500:KI::"RIGHT ANSWER: ";Q$(R(J)):KI11000:KI:690R1((1)3)1:R1682,684,686RONG, "NAM$ bJ1Q l@ v:"THE ";P$;" IS: ";:C6ĺN {A$(R(J))W ~Z10 ::"NOW, ";NAM$;", GIVE THE"::"CORRESPONDING ";I$;": "; "";A$:: A$Q$(R(J))680 C1C3665 Z10662(A$,3)(Q$(R(J)),3)ĺ"MISSP0 K1J1! R(J)R(K)510( &K/ 0JZ XS$(1)"OOPS, WRONG. THAT'S OK, "NAM$ ZS$(2)"WRONG; THINK A LITTLE HARDER, "NAM$ \S$(3)"WRONG AGAIN. YOU'RE TRYING MY PATIENCE, "NAM$ ^S$(4)"STUPID! IMBECILE! MORON! IDIOT! YOU'RE W(I),A$(I) 8C3ćA$(I),Q$(I)' :I3 <I117@ =C5400Q >A$(I),Q$(I)X @Ie AC6400p BI17 DQ$(I),A$(I) FI :5:"HOW MANY QUESTIONS, ";NAM$::"(1 - ";N;"): ";:Q: QN400 J1Q R(J)((1)N)1 J156,FREEFALL DEMONSTRATION,FREEFALL IIe: PROJECTILE MOTION TUTORIAL,PRO.IV,PROJECTILE PLOTTER,PRO.VI X:11040 4+/.::"TO RUN THE ";NM$(X);","a.:"PRESS 'R'. TO GO BACK TO THE MAIN MENU,"|."PRESS ANY OTHER KEY".A$.A$"R"10..13/"NOW RUNNING THE PROGRAM"/(13);(4);"RUN";P$(X)#: FREEFALL TUTORIAL,FREEFALL I"THAT YOU WANT TO RUN."'18:"===>":18:5:A$:A$F"X(A$)V,X1X410a612020m'L(A$)'(40L)2);A$$'Y1L.'(40L)2Y1:"-";8'='B'*24+ +"PRESS THE SPACE BAR";+ +A$*+A$" "ĺ(7)SHOULD PRESS THE SPACE BAR TO RETURN"; :"TO THE MENU."F 12000LjA$"RUN A PROGRAM":10000:"THE FOLLOWING PROGRAMS ARE AVAILABLE:"X14X". ";NM$(X)X"PLEASE ENTER THE NUMBER OF THE PROGRAM":THE FIRST TIME." 11000! 6 A$NM$(X):10000g :"WHEN THE COMPUTER HAS FINISHED PLOTTING" :"THE PROJECTILE, YOU WILL HEAR A CLICKING" "SOUND. THIS SOUND INDICATES THAT THE" :"COMPUTER HAS FINISHED PLOTTING, AND YOU"% :"100002Z :"TO USE THE PROGRAM, YOU MUST CHANGE"cd :"THE FIRST TWO PARAMETERS, WHICH ARE THE"n :"ANGLE OF INCLINATION, AND THE INITIAL"x :"VELOCITY. THIS IS BECAUSE THEY BOTH" :"ARE EQUAL TO ZERO WHEN THE PROGRAM IS" :"RUN FOR YOU RUN THE PROGRAM, YOU WILL SEE"RR :"A LIST OF PARAMETERS DEALING WITH THE"S :"PROJECTILE. TO CHANGE A PARAMETER,"T :"TYPE IN THE NUMBER OF THE PARAMETER,"U :"RETURN, THE CORRECTION, AND RETURN AGAIN"V 11000W X A$NM$(X):"). :"PROJECTILE PLOTTER WILL BE RUN"@8 :"AUTOMATICALLY"KB 12000U( :X4x2 A$"PROJECTILE PLOTTER":10000< :"THIS PROGRAM ALLOWS YOU TO ENTER SOME"F :"DATA ABOUT A PROJECTILE AND SEE IT"P :"PLOTTED ON THE SCREEN."#Q :"WHEN:"WHEN YOU ARE ASKED TO ENTER AN ANSWER,"]:"PLEASE ENTER YOUR ANSWER AND THEN PRESS":"RETURN TO ALLOW THE COMPUTER TO ACCEPT":"IT. 11000  A$"PROJECTILE MOTION TUTORIAL":10000$ :"WHEN THE TUTORIAL IS FINISHED, THEORIAL":10000=:"VERY LITTLE HAS TO BE DONE DURING THIS"l:"PROGRAM. WHENEVER THE SCREEN BECOMES":"FULL WITH WRITING, YOU WILL BE ASKED TO":"PRESS ANY KEY. YOU CAN PRESS ANY KEY":"EXCEPT THE RESET, SHIFT, OR CTRL KEYS.",EY ARE:/:"1. PROJECTILE MOTION TUTORIAL"O:"2. PROJECTILE PLOTTER"} :"WHICH WOULD YOU LIKE INFORMATION ON?"15:"===>" 15:5:A$*A(A$)4A12200>A22600H(7)R2080:X3 A$"PROJECTILE MOTION TUTION.")::"JUST SIT BACK AND ENJOY."V::"WHEN IT IS OVER, THE PROGRAM WILL"w:"RETURN TO THE MAIN MENU"12000A$"PROJECTILE MOTION":10000:"THE PROJECTILE MOTION DEMONSTRATION IS":"BROKEN UP INTO TWO PARTS. THUTORIAL":10000: 6:"WHEN THE PROGRAM IS FINISHED, THE"f @:"FREEFALL DEMONSTRATION WILL BE RUN"~ J:"AUTOMATICALLY." T12000 :X2 A$"FREEFALL DEMONSTRATION":10000 :"NOTHING AT ALL HAS TO BE DONE DURING":"THIS DEMONSTRATY EXCEPT THE RESET, SHIFT,"2 :"OR CTRL KEYS."b :"WHEN YOU ARE ASKED TO ENTER AN ANSWER," :"PLEASE ENTER YOUR ANSWER AND PRESS THE" :"RETURN KEY TO ALLOW THE COMPUTER TO" :"ACCEPT YOUR ANSWER." 11000 " ,A$"FREEFALL T1080 :X11 A$"FREEFALL TUTORIAL":10000` :"VERY LITTLE HAS TO BE DONE DURING THE" :"RUN OF THIS PROGRAM. WHENEVER THE" :"SCREEN BECOMES FULL WITH WRITING, YOU" :"WILL BE ASKED TO PRESS ANY KEY. YOU CAN" "PRESS ANY KEO PARTS TO THE FREEFALL"5 :"PROGRAM. THEY ARE:"T :"1. FREEFALL TUTORIAL"y :"2. FREEFALL DEMONSTRATION." $::"WHICH WOULD YOU LIKE INFORMATION ON?" .15:"===>"; 815:5:A$:A$ BA(A$) LA11500 VA21700 `(7):RE IS A BRIEF DEMONSTRATION PROBLEM TO ILLUSTRATE HOW TO SOLVE PROJECTILE MOTION PROBLEMS.....":10000rVTVT1.A$"@A BALL IS FIRED FROM A CANNON WITH AN INITIAL VELOCITY OF 30 M/SEC AND AN ANGLE OF INCLINATION OF 45"(2)". @HOW HIGH WILL THE BA0 d5230nVTVT1xA$"@THIS IS WHY YOU WILL HAVE TO FIND THE TIME THAT A PARTICLE STOPS BY USING THE VERTICAL COMPONENT, AND THEN USING THAT TIME IN THE HORIZONTAL COMPONENT FORMULA.":1000015000p HORIZONTAL PROBLEM fzA$"@HE((G$)47(G$)5852102A$"@I CAN'T FIGURE OUT WHAT YOUR ANSWER IS, BUT THE CORRECT ANSWER IS THAT IT WILL NEVER STOP!":10000<5230FA$"@THAT'S CORRECT!":10000P5230ZA$"@THAT'S NOT CORRECT. @THE SPACESHIP WILL NEVER STOP.":10001000017000"G$"H"5100MA$"@NO HINTS ON THIS PROBLEM!":10000X17000c:VT1(G$,8)"IT WON'T"5190(G$,11)"IT WILL NOT"5190 (G$,13)"IT WILL NEVER"5190(G$,5)"NEVER"5190(G$,10)"AT NO TIME"5190T TA$"@NOW LET'S EXAMINE THE HORIZONTAL COMPONENT OF PROJECTILE MOTION.":10000iCENTER1:VTVT1A$"PROBLEM 2":10000CENTER0A$"@A SPACESHIP IS TRAVELLING AT 1000 M/SEC IN A FRICTIONLESS ENVIRONMENT. @AT WHAT TIME WILL IT STOP?":V0)GS12GTTV0T.S(S10.5)10C(SAN).64410oA$"@SORRY, THAT'S NOT CORRECT.":10000&A$"@THE CORRECT ANSWER IS "(S)" METERS.":1000004420:A$"@THAT IS CORRECT!!":10000D15000N HORIZONTAL COMPONEN+ V T":10000 VTVT39 A$" 2 ":10000Y A$" O ":10000f CENTER0 A$"@HOW HIGH (IN METERS) DOES THE BALL GET WITH AN INITIAL VELOCITY OF "(V0)" M/SEC?":10000 17000 :VT1 AN(G$) V0T(VZERO AT THE HIGHEST POINT.":10000^ hA$"@USE THE EQUATION: V=GT+VO AND SOLVE FOR T.":10000 rA$"@THIS IS THE TIME AT WHICH THE BALL REACHES ITS HIGHEST POINT.":10000 |A$"@NOW SUBSTITUTE INTO THE EQUATION:":10000 CENTER1 A$"S=1/2 GT T BEGINS TO FALL BACK TOWARDS THE @EARTH?":10000= ,VTVT1z 6A$"@ENTER YOUR ANSWER OR '@H' IF YOU NEED HELP.":10000 @17000 J(G$,1)"H"4310 T:VT1" ^A$"@TO COMPUTE THE ANSWER TO THIS PROBLEM, FIRST USE THE FACT THAT THE VELOCITY IS VERY SIMPLE PROBLEM.":10000' 15000@ V0(((8)10)1)10M CENTER1h A$"@PROBLEM 1":10000u CENTER01 "A$"@A TENNIS BALL IS THROWN DIRECTLY UPWARDS WITH AN INITIAL VELOCITY OF "(V0)" M/SEC. @HOW HIGH (IN METERS) WILL IT GET BEFORE IE SAME TIME TO GO UP AS IT DID TO GO DOWN.":10000 A$"2. @THE VELOCITY CHANGED FROM POSITIVE TO NEGATIVE AT THE HIGHEST POINT (IT WAS ACTUALLY ZERO AT THIS POINT)." 10000:VTVT1 A$"@NOW LET'S USE THESE TWO FACTS TO COMPUTE THE ANSWER TO A $  900040005000)(6000327000=<8000GF8200[P54,189:55,158rZ(4);"RUN PRO.VI" EXPLANATION A$"@SOME THINGS YOU SHOULD HAVE NOTICED IN THIS EXAMPLE ARE:":10000VTVT12 A$"1. @THE BALL TOOK TH           `H XN7<6NWRU@ TPhhHNɍ-Ɍ+*+*++8 $%ll%J) +%j )* * (je$*h-HJJJ'hH*&'*&'*&')&&OH**hQ**O+i+$$! $%%#"%Nh` K1(WRD$))#'(WRD$,K,1)"@"NLNL10#'KL#(SPACESNLWIDTH10280X# (VTVT2_#(1k#(SPACE0#((SPACESSPACESNL1#2(VT#<(J1LW#F(LL32#P(L$(WRD$,J,1)#Z(L$"@"L$"&"JJ1:LL064(L$"&"):10320#d(I(L$)$n(I65I901)"`'(A$,K,1)"&"(A$,K,1)"@"II10"j'K>"t'(40I)2I"~'10130P"'1]"'SPACES0n"'CURRENT1L"'KCURRENTL"'(A$,K,1)" "ĂK"'WRD$(A$,CURRENT,KCURRENT)"'CURRENTK"'LW(WRD$):NLLW"'LW0SPACESSPACES1:10460 #'#16384!<#(24576)729050:!F#(4);"BLOAD HIRES CHAR"W!P#(4)"BLOAD CHAR TABLE"z!Z#VT1:SOUND0:CENTER0:WIDTH40!d#G9.8!n#!x#!' LOWER CASE PRINTER !'54,0:55,96!$'L(A$)!.'VT!8'CENTER010120!B'I0!L'K1L"V'II0:VV(VV10.5)10 !TT.054 !H12GTTVVT? !DVHTK !X3D5Y !Y183H3h !TR18720o !0z !X1,Y1 !H08760 !3 !X,Y !8740 "H08760 "H08760 "X,Y $"X1X:Y1Y ."8590 8" (# INITIALIZE !2VH:D(D10.5)10l X5D30v Y1832010? X,YX,Y5F YU TR0:8500d TR1:8500j }4! THROW BALL >!T0:X10:Y10H!3R!5,183\!V030f!AN45p!ANAN3.141592653180z!VHV0(AN):VVV0(AN) !VH(VH10.5)1X12Y5(Y5)X111Y10(Y10)X10K5,183Y3X1,183Y3RYXy CONTROL THROWING OF BALL  TR0:8500 T(0VV)G:T(T10.5)10& S12GTTVVT0 Y183S3: 3D X526510N X,YX5,YX Xb DTON OF THIS MOTION. @NOTICE HOW IT CONFORMS TO OUR INFORMATION.":10000R15000Xl@ SET UP GRID sJ3T5,05,183279,183^X091hY1187rX5(X5)Y1189|X10(X10)Y1191X35,183X35,Y1XY060A$"S = V T":10000"VTVT1:A$" H ":10000GCENTER0RSVHTA$"WE FIND THAT AT "(T)" SECONDS, THE BALL HAS TRAVELLED "(S)" METERS. @THIS IS THE ANSWER TO THE SECOND PART.":10000VTVT1GA$"@HERE IS A DEMONSTRATI@SINCE IT TAKES "(T)" SECONDS TO GO UP, IT MUST ALSO TAKE "(T)" SECONDS TO GO DOWN, SO IT WILL HIT THE GROUND AT "(T2)" SECONDS.":1000015000X SECOND PART OF PROBLEM bTT2lA$"@USING THE EQUATION:":10000vCENTER1 2 ":100005ZA$" V ":10000BdCENTER0WnS12GTTVVTkxS(S10.5)10A$"AND WE GET HEIGHT = "(S):10000A$"@THIS IS THE ANSWER TO THE FIRST PART.":10000VTVT1A$"@THE SECOND PART IS EASY NOW. 10000:CENTER0 CENTER0tA$"@THIS MEANS THAT AT "(T)" SECONDS, THE BALL IS AT ITS HIGHEST POINT.":1000015000(A$"@WE NOW INSERT THIS INTO THE EQUATION:":100002CENTER1<A$"S = 1/2 GT + V T":10000FVTVT3PA$" 10000CENTER1/A$"V = GT + V ":10000;VTVT1WA$" O":10000fT(0VV)GzT(T10.5)10CENTER0A$"@WHEN YOU INSERT THE DATA INTO THE EQUATION AND SOLVE FOR 'T', YOU GET:":10000CENTER1A$"T = "(T): "(TH)(2)" = "(VV):10000,tVTVT1f~A$" V"(" ",(A$)5):10000sCENTER0~15000A$"@TO FIND HOW HIGH THE BALL WILL RISE, WE USE THE FACT THAT THE VELOCITY IS ZERO AT THE HIGHEST POINT, AND THE EQUATION:":0VHV0(AN)!$VVV0(AN)7.VH(VH10.5)10M8VV(VV10.5)10ZBCENTER1LA$"V = "(V0)" X @C@O@S "(TH)(2)" = "(VH):10000VVTVT1`A$" H"(" ",(A$)5):10000 jA$"V = "(V0)" X @S@I@N10000VTVT1.A$" H O ":10000OA$"V = V @S@I@N @A":10000[VTVT1xA$" V O ":10000CENTER0A$"@WHEN WE PUT THE GIVEN INFORMATION INTO THESE FORMULAS, WE GET...":10000V030:TH45ANTH3.14159265318LL GET, AND HOW FAR AWAY WILL IT LAND.":10000915000A$"@FIRST, WE HAVE TO FIGURE OUT THE HORIZONTAL AND VERTICAL COMPONENTS FROM THE GIVEN DATA. @THE FORMULAS THAT HAVE TO BE USED TO DO THIS ARE:":10000CENTER1A$"V = V @C@O@S @A":"can experiment with projectile motion"W :"with the use of this last part of the"i :"program." ::"It allows you to enter an initial" :"velocity and angle of inclination of a" :"projectile and see the path traced out"! :"o4  900010002000)(40003-5000=26000E<30Yd54,189:55,158vn(4);"RUN PHYSICS.MENU" FINAL WORDS 54,0:55,96:1"This is the end of the formal":"demonstration. If you would like, you"( :        (; !) )###'  . #<$)-2  <"\:FBF:<<@@\bBb\\bb\@<:FBBB8 0 "" "8.TTTT>DDDD8DDD8:FF:\bb\@@:F|<@>>H0BBBb\BBB$DDTTlB$$BBBb\@<~ ~880(8DRj2x$B~BBB>DD
DDDDD>~~~BB>BB>"B$$$$$~$~$$x8P<F&db  R"\   T8|8T| ~@ BB<~B > 60HH0>>>***>"6*""">$ 88>>>>*>><> ?:{> ,2:768(CX:Y(CVTVT2#(C040<(CSOUND17370G(CY13V(CX4014i(C6,X:7,2:768s(CX:Y(CVTVT2(C(C6,X:7,2:768(CX:Y(CVTVT2(C "'&CG$""'0C17040$':CLL13'DCG$(G$,L)E'NCVT:L5:" "P'XC17040c'bCG$G$(A128)o'lCL(G$)'vCVT:L4:(A)'{CSOUND17310'CX2012'C6,X:7,2:768'CX'C17040'CSOUND17370'CY13'CX4014(C6,X:76384)&BA12717040$&B16368,05&BA14117320G&BA13617250Y&BSOUND17120g&BX1205z&B6,X:7,2:768&B&BL(G$)&BL117210&BL117180&BSOUND17180&BY110&BX1256&C6,X:7,3:768&C:'CVT:5:" NY KEY %:16368,0*%:CU$"!/-\":VT24J%:A$"! PRESS ANY KEY":10000^%:VTVT2:C1:L4u%:VT:1:(CU$,C,1)%:KEY(16384):KEY128CC1L(CL):15050%::VT1:%hB HIRES INPUT %mB16368,0%rB1:VT%|B"===>"%BG$""&BA(1LL0$x((ILL);$$(SOUND104506$(L$" "10450A$(X12Q$(S(16336)X$(X{$(L$" "L$"."L$","10450$(FINISH20150(L$" .")75(L$",")$(X1FINISH:X$(J$(" ";$(CURRENT$(VTVT2$(%: PRESS A#X,Y#X#T$:"^$''(h$:lr$ 173,48,192,136,208,4,198,7,240,8,202,208,246,166,6,76,0,3,96: PRESS ANY KEY :16368,0:CU$"!/-\":24:"! press any key":C1:L4:24:1:(CU$,C,1) :KEY(16384):KEY128CC1LJ(16336)d6240j.(# INITIALIZE 92#16384O<#(24576)729050lF#(4);"BLOAD HIRES CHAR"P#(4);"BLOAD CHAR TABLE"Z#VT1:SOUND0:CENTER0:WIDTH40d#G9.8n#x#XS3:YS3#TR$(0)"OFF":TR$(1)"ON"#X768786#YHTXXSD5Y183HYS/X2796230>TR16180E0PX1,Y1_H06230mY06220t3}X,Y6210$Y06210.X,Y8H06230BX1X:Y1YL6040V16368,0`(16384)1606250 bSS1:S5S0:2795190(Y1831010*2X,YX,Y51<YDFDOT(3)05260QPDT2VH^ZX5DXSrdX5X2795260nY1831010xX,YX,Y5Yp THROW BALL zT0:X10:Y1035,183TT.05H12GTTVVTDVnes !THETAAN3.141592653180CVHV0(THETA):VVV0(THETA)RT(0VV)GgS12GTTVVTzDOT(1)05120Y183SYSY0Y18351203X526510X,YX5,YXDOT(2)05190 DTVHX5DXS X5X05,183279,183"X0(274XS)-Y1187DX5(X5)Y1189]X10(X10)Y1191wXXS5,183XXS5,Y1~XY0(183YS)X13Y5(Y5)X11"Y10(Y10)X10,5,183YYSX1,183YYS6Y@ dotted lil distance."36 "3. point where it hits ground.">@ J13KJ J3:35fT DOT(J)1ĺ"Yes":2920q^ "No "xh Jr VT10:17000| G$"G"2010 J(G$) DOT(J)DOT(J)12(DOT(J)1) 2880  SET UP GRID 35,on" :"the graph."! VT11, 170009 XS(G$)C 2010X TRTR12(TR1)b 2010k :1 "Where would you like the dotted lines?" "(press 'G' to Go back to menu)"" :"1. greatest height reached." , "2. midpoint of totaXS(G$).x XS0XS6XS(XS)Đ:VT1:2540> XS62790G :1t "Please enter a number to indicate the" :"maximum distance on the graph. When you" "divide 274 by this number, you will have" "the number of meters that will fit es are for the"> :"maximum distance that will fit on the"k :"screen. Which one would you like??"q  "1. 274m"( "2. 137m"2 "3. 92m"< "4. 68m"F "5. 54m"P "6. other"Z :"enter your choice"d VT16:17000n indicate the"> :"maximum height on the graph. When you"p :"divide 183 by this number, you will have" "the number of meters that will fit on" :"the graph." VT11 17000 YS(G$) 2010 :1 "The following choicike??"   "1. 183m"+$ "2. 91m":. "3. 61m"I8 "4. 45m"XB "5. 36m"iL "6. other"V :"enter your choice"` VT16:17000j YS(G$)t YS0YS6YS(YS)Đ:VT1:2280~ YS62530 :1 "Please enter a number tole of inclination." 17000+ AN(G$)8 Y1823j Y:" "q Y{ 2020 :1 "The following are choices for the" :"maximum height that will fit on the" :"graph. Which one would you l) pCH0CH92010E zCH2180,2230,2280,2540,2800,2820,2980,100S 18:VT20v "Enter new initial velocity." 17000 V0(G$) Y1823 Y:" " Y 2020 18:VT20 "Enter new ang/ :"4. max X (distance) ";(274XS);" "\ :"5. Trace mode ";TR$(TR);" "d :| *"6. Dotted lines" 4:"7. Graph projectile" >:"8. End and return to MAIN MENU" H:"Enter your choice." R