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`*e..(e+(,e//)e-))FV*+ *+-, -,` L@@@@````aaaabbbbcccc l`o LJ`L+*-,pI ( ) (LL)ɠ8項)`i)`0415 Qf0f1(58140`0gSʩO(0LW,gLhL<j jɃ IiL@0L@kkl fmL, Q,L, 0,da, 2dfa fdae, 0aLL)%e**e++e,,e--L,T , L uL5'(()(JJJJi')) vL5wL5` o I  ,P,R,U,Wp pIW, W ` @,T `?, 0,U0 0 `  0 o L~()R ;R0 `,  cJ)ef}ff@f}f8ɠ 0iL!8頝f00ef?g '?LhL@g) iL@hL@g) iLhL 40`          o8`,cnnqY,tL5, 0H,UdL5,`0&0*&0*&0*5H*hjH*hjH*hje5e5e(e+40Q&0*&0*&0*1H*hjH*hjH*hje1e1e)e-0`ɠ0i`8` *`)*594/1>04`,0`0 40٭  ``?g7e}ee@e}e8eHfh eie0f1 )$ (-%e8%4@e$5em%e@em$@e )$ (-%f8%<@f$=fm%f@fm$@f@g g`g0e1f4e5@e<f=@f @g`I*/4i0 ;0ޥI> \4>iR ;>,R0 % >`/041*f1 e0  gL ܢ>(0  )1 L,US>OV gL gmZ0 -\1 #Z\ UV ` `> *`>HHKh& &gIMQUY](B(F(J(N(R(V(Z(^BFJNRVZ^(C(G(K(O(S(W([(_CGKOSW[_P@PDPHPLPPPTPXP\@DHLPTX\PAPEPIPMPQPUPYP]AEIMQU]Y,00L `*<*/}9/4}TX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_(@(D(H(L(P(T(X(\@DLHPTX\(A(E(I(M(Q(U(Y(]AEzed{e`d|e[d}eUfd~e deSdeEdeCdeTdeOdeRdeSde LgdeFdeRdeEdeEdedededel[z_ed`e}daedbe Ucdceddedeedfedgedhe~diedjedkeUddle dmedne doedpedqedredsedte`Ueduedvedwe%dxe dye"ddDe8dEedFeLdGeU`dHedIe dJedKedLedMe|dNedOedPeUadQedRe}dSedTedUedVedWedXedYeUbdZed[ed\ed]e|d^edd)ed*e d+ed,eU]d-ed.ed/ed0ed1ed2ed3ed4e d5eU^d6ed7e d8ed9ed:ed;e d<ed=ed>eU_d?ed@eLdAe-dBedCededededeUZdededededededededeU[dededededeLd ed!ed"ed#eU\d$ed%eMd&ed'ed(e+]ŠŠԠŠĭ̤ a(ΠɬϬ)M6\Xa(ӠˠӠ)GM(a()2QUXdededede|dedede}dede UYd ed ed ed ed e     ~~~~~~~)> ^^^^^^^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>>>>>>>>>>>>>>>~~~~~~~~~~~~~~~~~>>>>>>>>>>>>>>>>~~~~~~~~~~~~~~~~>>>>>>>>>>>>>>>>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>>~>>>>>>>>>>>>>~~~~~~~~~~~~~~~~>>>>>>>>>>>>>>>>~~~~~~~~~~~~~~~~>>>>>>>>>>>>>>>>~~~~~^^^^^^^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^^^^^^^^^^^^^^^^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^^^^^^^^^^^^^^^^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^^^^^^^^^^^^^^^^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^^^^^~~~~~~~^^^^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^^^^^^^^^^^^^^^^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^^^^^^^^^^^^^^^^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^^^^^^^^^^^^^^^^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^^^^^~~~~~~~^^^^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^^^^^^^^^^^^^^^^>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^^^^^^^^^^^^^^^^>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^^^^^^^^^^^^^^^^>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^^^^^^^^^^^^^^^^>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>~~~~~`u~~~~ ``ɥ I I I I I I`` Y F 8 }Lop, 0 opWXU*S $ @@ )(P)*+,-H h8*hjL `HTTh Hh`AB00AB`"B&F*J.N2R6V:Z`  "" I I I I I I`ɥ0 Z\ ;,R0 Z\ L_X_`! -04, ) _\8)0 ) \8)0 Lp]Lp8]b\mb \\*;, 0,1T(Z+ 9mZ/)-8\ >m\44*`114 %5e4e4HTihH*hjTH9H*hj9hH *m8`UVL0LL, 0,gWbUXp) *V WLdp) 8e?e?WXX Y$NZ  \\_ )``U`i@LhGL5,Y0[m^[Zm]ZU`[8^[Z]ZRP)+*-,@`, 01JJJJe 08 )e 08 JJJJe `8  c8 8 `noo o`ZU, 0ZɀɁɂ,U0  Io`g Le8xIf8HI8``apd)g def S@e :e S@f :f )@gɭSiS` L ` )?` )`  \ `, 0 0pLd 8ȰLx`O M &N&OjN`, ,0`8Hh`n() (i) () o   (FEFEF) dAR(EFNF)2 n:"MR = "(MR10)10C xARAR180PIQ }AR180ARk :"AR = "(AR10)10P:"AR = "ARPlPI3.14159 !X12T"ENTER THE MAGNITUDE OF FORCE "X" ";:"";F(X)("ENTER THE BEARING OF FORCE "X" ";:"";A(X)*A(X)A(X)180PI-NF(X)(A(X))2NFNFN8EF(X)(A(X))<EFEFF(X)(A(X))F:PX ZMR(NFN 0<@""""""" """I"$">"" @?< """""$@@$@@"@@ >">>>>>>>$>">>>>>>">>>>>>>">>>>""!>">">>>>>$>>>`J@>>>> >>> A>>>>>A>>>>>A>>>>A>>A$>>>>>$>>!!!!!!!!!!!!!@>>>>>>>>>$A>>>>A>>A$>>>>  A>>>>>>$>0@@@"1 @ A""!AA1`@  A1 @A A!!!!!!!!!!!!!@8A Ai A A@ @@>A @ x >>? @@@A <> ?????????????@ <)N*m+Jn)m)eeU`8VUU ڑ` :` ^6789 Q@ q . @^`6798 Q`H h``noVVi@iA)moo g p g) pmn578,234:44579,234:44580,234: # == CUT TO 13 CHARS ==H (44567,12Y 2D$"CATALOG"n 7 == RESTORE == <44578,32:44579,47:44580,174:44567,29 W -- DOS 3.3 HELLO -- '::O" - PALMYRA HIGH SCHOOL - " DUANE COATES PALMYRA NE 68418 780 - 5363 *** TWO COL CATALOG ***SOFTALK,DOSTALK,JULY 82  D$(4)D$"NOMONICO" == REMOVE == 44                                            o@`@2@>A> >>>>"<<"><> >I>>>8>  "<<>>?> >>>>I<<> A>>>">A>>>><>I>I>>><?@>>>>><"A<<><"<><<@@?????????????hA@>>><><>"@  >>>><"A<<>>!@) >>>>>"<<A?@@B@ "1>""""">$>>">I""A">>>" "!">A""A"I>$ A@" @"> A "1I"I""@@""""I"A$""$ B@@!!!!!!!!!!!!!A@@">""@ """I"A$"@>i """">$@AC@@@ >""">"""$">">">I"">""""" "!"">">>"I"$>B@@"> @""> A>>">A>I"I"">A >"">I"A$">"$>A !!!!!!!!!!!!!hB!@@>>""""@>>"">I"A$">>@A >"">""$@<~AB8@@>"""" """"$"""" """I""""""""">>!"" " """I"$"" D |<@""""">"""A"I"I"""A> """I"$">""$A!!!!!!!!!!!!!TCJCJJllYYYY^^OOeOeOeOeOCJCsTJJJJlYlYlYYeeeeeeeJJJJJsTJ^JJ^OllllYeTTeTTeTe^^sT^^^OOlOlOlTTTTTTTTTT^^^s , TJJCCYYlYlYlYlYeTeTeTeTT^^JsTJ^JJlllllllTTTTTTTTTT^JsT^^JlOOlOOlOlCCTTCTTCY^sTllllllJJJJJJJJJJeTeTeTTs`I I@ L@&0 P @İ   / @``@ @``@ rrrrrssss@@"&*.*&""&*.*&" @,P,R,T,W   @L@L@ɰ0ɷɶL@ɱɲɳɴ,ɵ8и L@  L@    L@   Lk@  Lh@ I I0#'+/37;?L@LJNO,H h`ɥ` 0 >>>>>A@@@L"VERY GOOD"V%`"RIGHT"+j:t"CORRECT"@~R"YOU GOT IT"X^'EO,ASTATINE,AT,RADON,RN,FRANCIUM,FR,RADIUM,RAD RANDOMIZE REMOVEDVX((1)7)1X1040,1060,1080,1100,1120,1140,1160"GOOD":$"EXCELLENT":8"SUPER":L"VERY GOOD":`"RIGHT":t"CORRECT":"YOU GOT IT":EBAC0 THORIUM,TH,URANIUM,U,NEPTUNIUM,NP,PLUTONIUM,PU,AMERICIUM,AM,CURIUM,CM,EINSTEIN,ES,FERMIUM,FM,MENDELEVIUM,MD,HAFNIUM,HF: TANTALUM,TA,TUNGSTEN,W,OSMIUM,OS,IRIDIUM,IR,PLATINUM,PT,GOLD,AU,MERCURY,HG,THALLIUM,TL,LEAD,PB,BISMUTH,BI,D POLONIUM,PTRIUM,Y,ZIRCONIUM,ZR  NIOBIUM,NB,MOLYBDENUM,MO,TECHNETIUM,TC,RUTHENIUM,RU,RHODIUM,RH,PALLADIUM,PD,SILVER,AG,CADMIUM,CD,INDIUM,IN,TIN,SN& ANTIMONY,SB,TELLURIUM,TE,IODINE,I,XENON,XE,CESIUM,CS,BARIUM,BA,LANTHANUM,LA,CERIUM,CE,NEODYMIUM,ND,ACTINIUM,LORINE,CL,ARGON,AR,POTASSIUM,K,CALCIUM,CA  SCANDIUM,SC,TITANIUM,TI,VANADIUM,V,CHROMIUM,CR,MANGANESE,MN,IRON,FE,COBALT,CO,NICKEL,NI,COPPER,CU,ZINC,ZN  GALLIUM,GA,GERMANIUM,GE,ARSENIC,AS,SELENIUM,SE,BROMINE,BR,KRYPTON,KR,RUBIDIUM,RB,STRONTIUM,SR,YYME MORE?" hZ$& r(Z$,1,1)"N"Ā= |(Z$,1,1)"Y"150H :150  HYDROGEN,H,HELIUM,HE,LITHIUM,LI,BERYLLIUM,BE,BORON,B,CARBON,C,NITROGEN,N,OXYGEN,O,FLUORINE,F,NEON,NE)  SODIUM,NA,MAGNESIUM,MG,ALUMINUM,AL,SILICON,SI,PHOSPHORUS,P,SULFUR,S,CHF)" IS THE SYMBOL FOR "C$(V):% V] "THE CHEMICAL SYMBOL FOR ";C$(F);" IS ";D$(F)f "320p ,1000z 6RR1 @ D:: J"YOU GOT ";R;" RIGHT AND ";W;" WRONG. FOR ";(100R(RW));"%." TR0:W0 [ ^"WOULD YOU LIKE TO TRY SOAL SYMBOLS FOR THE ELEMENTS."::O "HOW MANY PROBLEMS DO YOU WISH TRY?";N:Z I1Nm F((1)851) :"---------------------------------------": C$(F)" ?";:" ";A$(F): A$(F)D$(F)300 WW1 V185 A$(F)D$(V)ĺA$(4 AUTHOR - ROBERT PITEL, FAIRFAX PUBLIC SCHOOL\( REVISED BY LEE KOHRS - 19 SEP 792REVISED BY D. COATES MARCH 1982 ZC$(85),D$(85),A$(85)dE185:C$(E),D$(E):E:5! "THE PURPOSE OF THIS PROGRAM IS TO LEARN THE CHEMIC      sMX.!qmr}Q.B,f)R60g>;lJWXW@ћ(]Sqfi3jdכʡx#]$7:JTOYsOOOOOOOOOOOeJCCJJJJJJJ^^JlllOlYlOeTeOeJJsJJJCTJ^CTTCeTeOTeOOOlYOlY^lYYYsJCTeCeOOYOltYJ^YsCJCJCC^JCCTJCeTOTTeeTOeOTelelYlOeellYOlY^YJ^lYY^^Y^^CsJJJCTJ^CTTCeTeOTeOOOlYOlY^lYYYsCJCeCeTOelltOl^Y^sTJCeOOOl^JYJs}@0\1sm&` iCqBWa2R2)/筒VE f3#_h0z@EK%MH # z#=|>>fJ^4 ^c&c$$kfcccccccccccccccccccccccccccc+ l=9c\ *I&eX[wy+J(^4@Dfop@ P.*8uIbp[O 1025e z@l }KO2 NDp9E&~\,F+uf Kz??5.<:(_z7-sEfdTJ^J^OlOlOlOlOOCCTTTTeeJJ^JsT^^^^OOOOOOOOOOCTCTCTT^^sJYY^YeOeOOeOOeJCCCCT^YY^sJYYYYYYeeeeeeeJJCJCJCYYYsJ^Y^Y^YYeeOOOOllTTCTCTCTJeTsJYYYYeOeOeOOCCCCCCCYYYYYsTOlOOlJ^^^^YCTTCTTCTOlCsTJJJJJJlllllllTTeTeTeJJJsSAINT FRANCIS,DENVER,JULESBURG,SOUIX CITY,YANKTON L 191,86,172,107,134,100,158,72,90,92,36,68,132,172,84,148,16,152,52,102,181,50,150,40  CX(I)((J1)7),Y(I)" J) I/ 5 V TE$(12),TW$(12),X(12),Y(12)b I112n TW$(I)u I 0I112 :"TEMP FOR ";TW$(I)" IS ";:TE$(I) DI N1  OMAHA,LINCOLN,GRAND ISLAND,NORFOLK,NORTH PLATTE,SCOTTSBLUFF,SALINA,0195,84196,88195,92196,1073 7196,107232,107p <196,107194,110220,133214,140214,144228,154227,176} "49234,0 ,232,0:233,64 10:1 6I112 @X(I),Y(I) JI ^I112 hA(TE$(I)) rJ1A |C$(TE$(I),J,1):C(C$) 500  32 26,020,9666,10064,176B 0,9620,96V 66,126210,126 #24,36128,40130,41140,42146,48166,46174,50 (174,50184,40180,32189,23184,4185,0 -189,23232,23 2174,50180,58188,62188,68186,68194,76194,8 NANCY BERTRANDM NEBRASKA WEATHER MAP : MODIFIED BY D. COATES S"THIS PROGRAM WILL GIVE YOU A LIST OF TOWNS FOR YOU TO PUT TEMP.BY AND THEN WILL PLACE THEM IN THEIR PROPER PLACES."(4)"BLOAD SMALL CHARACTERSA4000L059C "    p,ɐp6GW%n141zIeƇX@nK^%嶏Wf9B8uӏSvIV멗j|z((x pj/tWz &#e-S2hxx(y3Soz?U+T)L|-x666$,e$? u66$$666$, u -=?-?/- 666$$=/u6ve $666 $-66 $$&- 6ve $66?-----/------.-=6/?7 I--??q - &)u6'4$46v-=$ u$66$>46666$ u66 -?6- I166&$ -66" ->?7--'du66& -6&$6M??666$ u6&66&/I66?6666$-  6666&$ & 6&66$, u6& -6?$- 666?- 66$B=G?C ,`FL'F<>BH=_?`C ,L@J mT 1V GL`w^ J +T @T J Q U R @T )Y 1V 7TGB 8FX134,100,158,72,90,92,36,68,132,172,84,148,16,152,52,102,181,50,150,40 ),X(12),Y(12) I112% TW$(I), I8 0I112_ :"TEMP FOR ";TW$(I)" IS ";:TE$(I)f DIl N  OMAHA,LINCOLN,GRAND ISLAND,NORFOLK,NORTH PLATTE,SCOTTSBLUFF,SALINA,SAINT FRANCIS,DENVER,JULESBURG,SOUIX CITY,YANKTONI L 191,86,172,107,220,133214,140214,144228,154227,1764 "49234,0G ,232,0:233,64Q 10:1] 6I112l @X(I),Y(I)s JI ^I112 hA(TE$(I)) rJ1A |C$(TE$(I),J,1):C(C$) CX(I)((J1)7),Y(I) J I   TE$(12),TW$(126,126210,126B #24,36128,40130,41140,42146,48166,46174,50o (174,50184,40180,32189,23184,4185,0 -189,23232,23 2174,50180,58188,62188,68186,68194,76194,80195,84196,88195,92196,107 7196,107232,107' <196,107194,110K NANCY BERTRAND1 NEBRASKA WEATHER MAP7"THIS PROGRAM WILL GIVE YOU A LIST OF TOWNS FOR YOU TO PUT TEMP.BY AND THEN WILL PLACE THEM IN THEIR PROPER PLACES."500 326,020,9666,10064,1760,9620,96 6  !%)-159=("(&(*(.(2(6(:(>"&*.26:>(#('(+(/(3(7(;(?#'+/37;?P P$P(P,P0P4P8P< $(,048"&*.26:>#'+/37;?#'+/37;?( ($(((,(0(4(8(< $(,048<(!(%()(-(1(5(9(=L `ࠐL %I1L7LAL7LLLLLLLL`,0L;LL7LLLL \ L7i8Hgh)0N`ILI $( @ࠐL %1RI1iHL;LLLLLLLL`,L;L;L; 8頪L iL  * VOLUME MISMATCH)L * READ ERROR) * ABOR 8頪L i###$$$$ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @  !!!!!!!"""""""####. OF CO                         [ * DISKETTE COPIED.   * ERRORS.ȥ((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPȑ  l L  v Lb X * VOLUME NOXL`LP&0 P @İEMORY USED BY A/ @``@ @``@ rrrrrssss@@"&*.*&""&*.*&"Y                                   868:5:"ANOTHER EQUATION ON SAME SCREEN?";A$:(A$,1,1)"N"1020h:(1023)123ĺ:D$;"RUN HELLO"nI24:1:"PRESS 'SPACE BAR' TO CONTINUE";:X$:::X(#768:E(222):E255ģ22015:43000n-#(218)15ġ:Q902#E16Ģ23:868:23:"I CAN NOT UNDERSTAND YOUR EQUATION":10954#Q8113307#E53E13350<#ZH(37):ZH:1:868:ZHF#CQ5:U - LOOK ABOVE CURRENT SCREEN":5:"WINDOW":S"D - LOOK BELOW SCREEN WINDOW":{"L - LOOK LEFT OF SCREEN WINDOW":"R - LOOK RIGHT OF SCREEN WINDOW":"S - SHRINK (ZOOM IN)":"E - EXPAND (ZOOM AWAY)":32,0::89991'#L EQUATIONS"::"MUST BE IN THE FORM:":v11:"Y = EXPRESION"::18:"- OR -"::9:"Y^2 = EXPRESION (FOR CONICS)":89993:" ONCE A RELATION IS PLOTTED, YOU MAY"::"CHOOSE ONE OF 6 OPTIONS CONCERNING THE"::"SCREEN WINDOW."-32,3::"$):(Z$,J,1)" "A$A$(Z$,J,1)1zJ:Z$A$:X:::3:15:"POLYGRAPH":::" POLYGRAPH WILL PLOT ANY MATHEMATICAL":b"RELATION EXPRESSED USING 'X' AS THE"::"INDEPENDENT VARIABLE, AND 'Y' AS":)l"THE DEPENDENT VARIABLE. ALZ4((MYR)100)100:1090JA$"":J1(Z$):(Z$,J,3)"SQR"A$A$"-"`A$A$(Z$,J,1):J3(A$):(A$,J2,3)"---"A$(A$,1,J2)(A$,J1,(A$)J):Z$A$:Z9(Z$):16:2:50Z$"Y=SQR("(Z$,5,(Z$)4)")":1098"pA$"":J1(Z1,1)"Y"FA1:1020,(A$,1,1)"N"2010w5:868:5:"ANOTHER EQUATION ON SAME SCREEN?";A$:(A$,1,1)"N"1020(A$,1,1)"Y"20201090 Z3Z11.75:Z4Z21.75 15:868:15:"MEAN Y VALUE?";MY R(Z4Z3)2:Z3((MYR)100)100::Z2R1SX10:Z1R1SX10:1800zX$"E"R1(Z4Z3)2:Z4R1ST10:Z3R1ST10:R1(Z2Z1)2:Z2R110SX:Z1R110SX:1800::1:"ANOTHER GRAPH?";A$:(A$,1,1)"N"57(A$,1,1)"Y"2000FA0:3:868:3:"REUSE THE SAME EQUATION?";A$:(A$,""/vR1Z2Z1:X$"R"Z1Z1R1:Z2Z2R1:1800SX$"L"Z1Z1R1:Z2Z2R1:1800R1Z4Z3:X$"D"Z4Z4R1:Z3Z3R1:1800X$"U"Z4Z4R1:Z3Z3R1:1800SX(Z2Z1)2:ST(Z4Z3)2X$"S"R1(Z4Z3)2:Z4R1ST10:Z3R1ST10:R1(Z2Z1)2YZ3Z3Y(YZ4Z4Y'2XZ21310S<Q80:Z3(Z3):Z4(Z4.99):ZF1Z3Z4]F1100fxST1xV1V10ıV1VV10:STST10:1410VV10:STST10:1410:1096l16368,0:24:"PRESS U,D,L,R,S,E, OR 'SPACE BAR'";:X$::ZL$ЭZ3J01260ZC158ZC158AZZ,ZC1ZY,ZC1:ZZ,ZCZY,ZCJ:J0Z4ST:ZC159(Z3J)(Z4Z3)159:ZC0ZC1591290Z3J01290ZC158ZC158ZZ,ZC1ZY,ZC1:ZZ,ZCZY,ZC J:Z39999:Z49999:XZ11:Q81 XX1:15: ";(Z41000)1000;" SCALE = ";STOKZ1:XX0:JZ1Z2SX:KKSX:J0XXKSXyJ:Z5(Z1XX)(Z2Z1)279:Z50Z50Z5279Z5279ZZZ55:ZYZ55:ZZ0ZZ0ZY279ZY279J0Z3ST:ZC159(Z3J)(Z4Z3)159:ZC0ZC1591260 )(Z2Z1)279:ZC0ZC27912302ZC278ZC278TZC1,ZZZC1,ZY:ZC,ZZZC,ZYJ:J0Z2SX:ZC(Z1J)(Z2Z1)279:ZC0ZC2791242ZC278ZC278ZC1,ZZZC1,ZY:ZC,ZZZC,ZYJ!23:868:23:"VERTICAL: ";(Z31000)1000;" TOHORIZONTAL: ";(Z11000)1000;" TO ";(Z21000)1000;" SCALE = ";SXqKZ3:XX0:JZ3Z4ST:KKST:J0XXKSTJ:Z6159((Z3XX)(Z4Z3)159):Z60Z60Z6159Z6159ZZZ65:ZYZ65:ZZ0ZZ0ZY159ZY159J0Z1SX:ZC(Z1J2:(Z$,I,3)"SQR"ZF1:.KI:ZL$"Y"1300RL16304,0:2:1200:XZ1Z7:Q90~(Z3)(Z4)ē0,Z6279,Z6:0,Z61279,Z61(Z1)(Z2)ēZ5,0Z5,159:Z51,0Z51,1593:50V(Z2Z1)2:1400:SXST:V(Z4Z3)2:1400C22:868:22:"";Z39 $17:868:17:"MAXIMUM Y?";Z4:Z3Z4Z3Z41050h B19:868:19:"NUMBER OF PLOT POINTS?";ZP G16:FA1Ģ21:868:21:"INPUT YOUR EQUATION? ";Z$:6000 HZ7(Z2Z1)ZP:21:868:21:Z$:(Z$,2,1)"^"5000JZ9(Z$):2:ZF0:I1(Z$)2:Z1Z2Z1Z21020a 11:868:11:"SHOULD I COMPUTE THE Y LIMITS?";ZK$:(ZK$,1,1)"Y"1050 13:868:13:"EQUAL SPACING?";A$:(A$,1,1)"Y"3000 (A$,1,1)"N"1045 ZL$"Y":1090 (ZK$,1,1)"N"1040 15:868:15:"MINIMUM Y?91:50 PZC,ZD Z50e 8190:I768777:Y:I,Y:I:104,168,104,166,223,154,72,152,72,96:16 ZO$"+-*/^>=<":ZA$"SGNINTABSSQRRNDLOGEXPCOSSINTANATN":7000:9000 7:868:7:"ENTER MINIMUM X?";Z1:Q90:62450 9:868:9:"MAXIMUM X?";Z 2XZ253 3XXZ7:157 4ZC(Z1X)(Z2Z1)279^ 5XZ2ZF1XZ1Z7:ZF0:Q90:4000m 8XZ21900 9XZ2İ16:22016:43000 :ZC0ZC279Q90:50 <ZD159(Z3Y)(Z4Z3)159:ZD0ZD159Q90:50 BZ3Y0Q90:50 FQ90ēZC,ZD:Q,1)):ZHZH1:ZI:i ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ZI23262406:ZI,58:: COPYRIGHT 1979 MECC NAME: POLYGRAPH VERSION 10/22/79 AUTHOR: DARRELL RICKE #LANGUAGE: APPLESOFT (FP) o(1000:SEE LINES 20-35 FOR REMARKSkZH2326:ZI1Z9:ZJ010:(Z$,ZI,3)(ZA$,3ZJ1,3)ĂZJ:11 ZH,(210ZJ(ZJ2)5):ZIZI2:ZHZH1:ZI ZJ07:(Z$,ZI,1)(ZO$,ZJ1,1)ĂZJ:14 ZH,(200ZJ(ZJ4)2):ZHZH1:ZI ZH,((Z$,ZI            čͬìÍͬլčͬȬčͬҬčͬ¬čͬϬŭӍͬ¬čͬҬčͬ٬čͬŬŭčŬҬŭčάҬ4 AUTHOR - ROBERT PITEL, FAIRFAX PUBLIC SCHOOL\( REVISED BY LEE KOHRS - 19 SEP 792REVISED BY D. COATES MARCH 1982 <NE47ZC$(NE),D$(NE),A$(NE),A(NE)dE1NE:C$(E),D$(E):E:51 "THE PURPOSE OF THIS PROGRAM IS TO   8,7888,7885,70&85,7083,65780,6083,65K100,12195,112I8,Y8tX,YX8,Y8u3$vX-{X956}Y95X,YX,Y20:X,Y20X20,Y20:X20,Y20X20,Y40:X12,Y40X20,Y40:X12,Y40X11,Y30:X11,Y30X8,Y8X,YX8,Y8 PUTS CRACKBACK92,10091,9091,9088,8888,888 gYY3lX,YX,Y20:X,Y20X20,Y20:X20,Y20X20,Y40:X12,Y40X20,Y40:X12,Y40X11,Y30:X11,Y30X8,Y8:X,YX8,Y8q0sX,YX,Y20:X,Y20X20,Y20:X20,Y20X20,Y40:X12,Y40X20,Y40:X12,Y40X11,Y30:X11,Y30X90,5:95,5115,12:115,1295,24/ 0 FLAG NEW? :J1400:JF D6 N55,4055,5:50,4050,5:60,555,5:3:53,573,12:73,1253,24 P0 S80,6080,40:80,40100,40:100,40100,100:92,100100,100 U3 X SLAB FALLS [Y60 ]X82921 CRACK J1100' 92,10091,90. J; J1100L 91,9088,88S J` J1100q 88,8888,78x J J150 88,7885,70 85,7083,65 80,6083,65 J1500:J  DOWN FLAG 0 &90,4090,5:95,4095,5:95,52201002$ @Y(14132)I(2903)+ J1T TI,YI3,YI3,Y3I,Y3I,YI3,Y3[ ^0 hI,YI3,YI3,Y3I,Y3I,YI3,Y3 rI s0 t100,100100,112 u3 v100,10092,100 w92,10088,106 x88,10692,112 y92,112100,112 0,140140,159" 145,140140,135/ CANNOND 220,134250,134Y 220,134228,126n 250,134258,130 258,130230,126 230,126220,120 220,120225,115 225,115262,120 262,120268,125 "268,125258,130 1 BULLET 6I,40 n60,4060,60% x60,6080,606 80,6080,40B FLAG 90,4090,5:95,4095,5:95,590,5:3:95,5115,12:115,1295,24 80,40100,40 GROUND 100,40100,159 100,1590,159 100,135279,135 100,140145,140 14L  TONY GRAPH&(62) WATER+100,159108,151:108,151116,159:116,159124,151:124,151132,159:132,159140,151- CASTLE/320,400,159<0,4020,40F20,4020,60P20,6040,60Z40,6040,40 d40,4060    čͬԬčĬլčùčͬŬčͬӬčͬҬčͬƬčͬčά׬čͬͬčͬ¬čͬլŭčͬ٬čͬϬčͬҬčͬլčͬĬŭčͬ¬čάĬčͬͬÍͬͬčͬčͬŬčͬҬŭŭčάŬŭӍͬӬčͬ٬¬čͬŬŭčŬɬčͬάčάάččͬĬčҬǬčͬĬt "WRITE A PROGRAM THAT WILL LIST ALL THE PEOPLE WHO RECEIVED AN A BOTH SEMESTERS. TRY IT ON THIS DATA."}100d "HEINZ",A,B,MORGAN,A,A,BOOLE,C,A,TELER,A,A,PASCAL,D,B,LOCKHART,A,B  , 1013,761014,110*1015,165 ES - DISTANCES "::V"PROJECTION OBJECT VIEWPOINT SCREEN ":c" !"}" ! ***"" ! * * +"" ! ***"" ^ ^" " ! 140,805Y } 110Z N$=NAME, G$=GRADE#LOOP.N$,G$=G$"A"50E(20M2N$U<20F "JONES","B","STEIN","B","DALEY","A"P "HILL","C","SNOW","A","BARNES","A"ZN:"100-99 A+":" 96-98 A":" 94-95 A-":" 91-93 B+":" 88-90 B":" 86-87 B-":" 83-85 C+":" 80-82 C":" 78-79 C-":" 75-77 D+"" 72-74 D":" 70-71 D-":" -69 F)EE GRAPHS AGAIN (Y/N) ";A$+A$"N"1970;A$"Y"300w:"WOULD YOU LIKE TO RUN THIS PROGRAM AGAIN (Y/N) ";B$B$"Y"ī65B$"N"ė12:12:"HAVE A NICE DAY"23:   GRAPH MAX SCALE *I11514ME10I8408>I]HME(ME(10(I1))1)(10(I1))rMESME(10(I1))~RI115\MC10I880fIpMC(MC(10(I1))1)(10(I1))uCSMC(10(I1))zbA$l:"WOULD YOU LIKE TO S J F M A M J J A S O N D"2XI112@bXI2010UlY150(GC(I)CF)dvX,YX,Y4kIwI112XI2010Y150(EC(I)CF)X1,YX2,YI" COST VS MONTH"" PUSH ANY KEY TO GO ON"1890Y150(EE(I)EF)# X1,YX2,Y* IJ " ENERGY VS MONTH"v " PUSH ANY KEY TO GO ON TO NEXT GRAPH"~ B$ : :3 10,510,155250,155 I3025020 I,155I,158 &I 0I515515 :2,I5,I DI&N21:"I3025020 OI,155I,158# TI3 ^I515515@ c2,I5,IG hIx r21:" J F M A M J J A S O N D" I112 G$(I)"N"430 XI2010 Y150(GE(I)EF) X,YX,Y4 I I112 E$(I)"N"490 XI2010 I))RE EE(I)(E$(I))3.6% I3 ME0:MC0? I112V EE(I)MEMEEE(I)m GE(I)MEMEGE(I) EC(I)MCMCEC(I) GC(I)MCMCGC(I) I 800 EFME150:CFMC150 , GRAPHING 1 6:3 @10,510,155250,155 JF NO BILL ENTER AN "5 P:"AMOUNT OF GAS ";G$(I)[ Z:"AMOUNT OF ELECTRICITY ";E$(I)b xI THIS CONVERTS THE UNITS TO JOULES I112 G$(I)"N"165 GC(I)(G$(I))RG GE(I)(G$(I))1.10775 E$(I)"N"190 EC(I)(E$( (1000 CU FEET) AND ELECTRICITY (KWHR) TO JOULES"` <G$(12),E$(12),GE(12),EE(12),GC(12),EC(12) A THIS PICKS UP THE NEEDED DATA B:"COST PER UNIT OF ELECTRICITY ";RE C:"COST PER UNIT OF GAS ";RG FI112 K:5:"FOR MONTH #";I M:"I JNEL JOHNSON: PHYSICS/COMPUTER GRAPH PROBLEMB:("THIS PROGRAM IS SUSPOSE TO GRAPH THE AMOUNT OF GAS AND ELECTRICITY USED FOR AMONTH IN A YEAR AND THE COST PER MONTH FOR A YEAR GIVEN THE AMOUNTS"1 2:"THIS PROGRAM CONVERTS GAS     ÍͬϬÍͬ׬ÍͬˬÍͬƬÍͬӬÍͬͬÍͬ֬ÍͬլÍͬͬŭÍͬͬÍ˸čͬčͬլčͬЬӍͬҬčͬčͬìčͬȬčȬɬŭčͬϬčŬԬčάά٬Ǭč̬ͬčĬ¬Z2 3-0,80279,80@(140,0140,159O2X02795g7Z5Z0:X,76X,84v<X,78X,82AZZ1FXKZ4PY01595UZ5Z0:136,Y144,YZ138,Y142,Y_ZZ1dYn21:"ENTER X,Y ";X,Y x5X X$ LOOP%F$,L$8............L(L$..........T220\<F$eF110}P"NAME NOT ON LIST"Z "JOHN","SMITH","TOM","JONES"d "HARRY","MORGAN","BILL","ROSE","FLAG","FLAG"nF "THE BEARING OF THE RESULTANT IS ";((B1BR)57.3.5);" DEGREES" "WHAT IS THE BEARING OF THE SECOND COMPONENT ";B2:B2(B23.14159)180: MR(M12M222M1M2(3.14159(B1B2))) "THE MAGNITUDE OF THE RESULTANT IS ";(MR.5) ST(3.14159(B1B2)) SS(M2ST)MR BRARCSN(SS) F D THE COMPONENTS":7 (L:L100,200:5t d:::"WHAT IS THE MAGNITUDE OF ONE COMPONENT ";M1:: n"WHAT IS THE BEARING OF THIS COMPONENT ";B1:B1(B13.1416)180: x"WHAT IS THE MAGNITUDE OF THE SECOND COMPONENT ";M2:TH%ARCSN(X)(X(XX1))K "WHAT TYPE OF PROBLEM IS THIS":6)"(1) THE COMPONENTS ARE KNOWN AND YOU WISH TO FIND THE RESULTANT":" 6)"(2) A RESULTANT IS KNOWN AND AND YOU WISH TO FIN   ŠŠz#?XñҠҠˠ!̠ͱǠ ΠҠĠ ĠŠǠӠ  à"̧Ӡנ ӠЮӠЮ ͮΠ Ԡ ̧Ӡננ ijŠ ͱ! ͳҠҤϠ ԠҠƠ   РԠ ҠŠԠ ŠϠ ҠӠ ֠Ԡ ĠĠZŠŠ  ҠР ɠŠ ŠҠ­Š àҠ Ϡ ̠#ҠРϠ ϠΠǠ٠Ԡ ӠӠ Š٠ Ƞ ҠР ̠̰à ӠϠŭ͠Π ӠҠĠҠӠǠ֠Ԡ  ϠŠ̠Š̠ ӠϠŠ٠Ƞ٠Ƞ"VECTOR";:10:"LENGTH";:25:"ANGLE"+6I1NV3:I;:12:M(I);:26:A(I)\b&s0M(XXYY):A(YX)DTRDX0AA180NA0AA360X3:"SUM";:12:M;:26:Ab23:1l"Q TO QUIT, N TO DO NEW SET OF VECTORS"v;:26:A(I):^5h"IS THIS THE RIGHT DATA?";R$Or(R$,1)"N"I0:200d|(R$,1)"Y"400"PLEASE ANSWER YES OR NO":360X0:Y0I1NAA(I)DTRX(I)M(I)(A)Y(I)M(I)(A)XXX(I)YYY(I)%"ENTER LENGTH, DIRECTION OF VECTOR #";I6M(I),A(I)MM(I)0A(I)0300[I10200"PROGRAM ALLOWS A MAXIMUM OF 10 VECTORS"K11000:"II1,NI16@"VECTOR";:10:"LENGTH";:25:"ANGLE":JI1N T3:I;:12:M(I)Q3(1):& I"PLOT SUBROUTINE ERROR":j Z:WRITTEN BY STAN MCCASLIN, PERU STATE COLLEGE. (402) 872-5295 dX(10),Y(10),M(10),A(10) nDTR3.14159265180. II1 "AFTER ENTERING ALL VECTORS, ENTER 0,0" "ANGLES ARE IN DEGREES."'Q2N0Q2N166 8P1P260@ 9G912:P3(G9)P1P3(G9)P264F :j <G912:P3(G9)P1P3(G9)P264p =x ?73 @P3(G9),Q3(G9)P2,Q2: BP1P270 CP3(1)P3(2)71 DP3(1),Q3(1)P3(2),Q3(2): FP3(1)P3(2)68 GP3(2),Q3(2)P3(1),(N1G8)G7 +PN0PN245= ,G9G9G0:P3(G9)P:Q3(G9)N1I -G90ıi .P1N0P1N2Q1N0Q1N155w /P1P250 0G912:P3(G9)P1P3(G9)P253 1 2G912:P3(G9)P1P3(G9)P253 3 473 5P1,Q1P3(G9),Q3(G9): 7P2N0P2N2G90 G80G8N1348 G9G9G0:P3(G9)N0:Q3(G9)G8F !G9G045U "QG7N2G8g #QN0QN138 $G9G9G0:P3(G9)N2:Q3(G9)Q %G9G045 &PP1:G70PG8G7 'PN0PN242 (G9G9G0:P3(G9)P:Q3(G9)N0 )G9G045 *PP1:G70PP2G1X2G2:Q1G3Y1G4:Q2G3Y2G42 P1P228E P1N0P1N2ıV Q1N1Q1N1g Q2N0Q2N0x Q2N1Q2N1 Q1N0Q1N0 29 P1N0P1N2Q1N0Q1N1P2N0P2N2Q2N0Q2N130 P1,Q1P2,Q2: G7(Q2Q1)(P2P1):G8Q2G7P2: 100%"WRITE HIRES EXEC":@"CLOSE HIRES EXEC":S G1181(XLXS)c G249G1XSv G3159(YSYL) G4G3YLN00:N1159:N2279:G01:G5G1XG2:G6G3YG4G5N0G5N2ıG6N0G6N1ıG5,G6:# P1G1X1G2: LJd "HEINZ",A,B,MORGAN,A,A,BOOLE,C,A,TELER,A,A,PASCAL,D,B,LOCKHART,A,B  _** SPACE-BAR ROUTINE **3_24:7:16368,0T_"PRESS ";::"SPACE BAR";:j_" TO CONTINUE.";_(16384)12824540_(16384)1283224570_24510_16368,0::  -- DOS 3.3 HELLO -- '::O" - PALMYRA HIGH SCHOOL - " DUANE COATES PALMYRA NE 68418 780 - 5363 *** TWO COL CATALOG ***SOFTALK,DOSTALK,JULY 82  D$(4)D$"NOMONICO" == REMOVE == 44"C WEIGHTS THAN I AM USING.)"tw:" PLEASE USE ATOMIC WEIGHTS ACCURATE TO WITHIN ONE TENTH (1/10) OF A GRAM."}|200I1NG((1)1000)10:G0ī390R((1)103):R0ī391:" FIND THE NUMBER OF MOLES OF ";G;" GRAMS OFCTLY SOLVED THE PROBLEM THE CORRECT ANSWER WILL APPEAR ON THE SCREEN"r:" YOUR ANSWERS WILL NOT HAVE TO BE EXACT, ANY ANSWER WITHIN 10% WILL BE SUFFICIENT. (DUE TO THE FACT THAT YOU MAY HAVE A DIFFERENT SOURCE FOR YOUR ATOMIO;" MOLES"J200Tz^" YOU WILL BE GIVEN SOME PROBLEMS, AND WILL BE REQUIRED TO SOLVE FOR THE NUMBER OF MOLES"Rh:" YOU WILL BE GIVEN THREE (3) ATTEMPTS TO SOLVE THE EQUATION CORRECTLY. IF AFTER THE THIRD ATTEMPT YOU HAVE NOT CORRE"7":" #MOLES = ";G;" GRAMS / ";AW(R);" GRAMS/MOLE"Q'MO(GAW(R)100)100,::" FIRST DIVIDE ";G;" BY ";AW(R);" TO GET ";MO6"AND THE GRAMS CANCEL IN OUR EQUATION LEAVING US WITH THE DIMENSION OF MOLES" @:" SO OUR ANSWER IS :";M:"FOR EXAMPLE:"0G((1)100)10>G0ī245PR((1)103)^R1ī250nR103ī250:" GIVEN ";G;" GRAMS OF ";E$(R);" WHOSE""GRAM-ATOMIC WEIGHT IS ";AW(R);" G/MOLE":" YOUR EQUATION WOULD LOOK LIKE THIS:T. IF THE CORRECT ANSWER IS NOT ATTAINED IN THREE TRIES THE COMPUTER WILL GIVE THE CORRECT ANSWER."t" HOW MANY PROBLEMS DO YOU WISH TO TRY ?";N:23023:"PRESS ANY KEY WHEN READY......"C$:C$(32)ī220:210:03,257dI11032nE$(I),SYM$(I),AN(I),AW(I)9xI?" THIS PROGRAM WILL DRILL THE STUDENT ON THE SUBJECT OF MOLAR QUANTITIES"n" THE COMPUTER WILL DEMONSTRATE A FORMULA THEN GIVE THE STUDENT A SIMILAR PROBLEM TO WORK OUA,91,231,URANIUM,U,92,238,NEPTUNIUM,NP,93,237,PLUTONIUM,PU,94,242@ AMERICIUM,AM,95,243,CURIUM,CM,96,247,BERKELIUM,BK,97,247,CALIFORNIUM,CF,98,249B EINSTEINIUM,ES,99,254,FERMIUM,FM,100,253,MENDELEVIUM,MD,101,256,NOBELIUM,NO,102,254,LAWRENCIUM,LW,1195N8 GOLD,AU,79,197,MERCURY,HG,80,200.5,THALLIUM,TL,81,204,LEAD,PB,82,207: BISMUTH,BI,83,209,POLONIUM,PO,84,210,ASTATINE,AT,85,210,RADON,RN,86,222< FRANCIUM,FR,87,223,RADIUM,RA,88,226,ACTINIUM,AC,89,227,THORIUM,TH,90,232A> PROTACTINIUM,P 2 DYSPROSIUM,DY,66,162.5,HOLMIUM,HO,67,165,ERBIUM,ER,68,167,THULIUM,TM,69,169 4 YTTERBIUM,YB,70,173,LUTETIUM,LU,71,175,HAFNIUM,HF,72,178.5,TANTALUM,TA,73,181,WOLFRAM,W,74,1846 RHENIUM,RE,75,186,OSMIUM,OS,76,190,IRIDIUM,IR,77,192,PLATINUM,PT,78,ODINE,I,53,127,XENON,XE,54,131,CESIUM,CS,55,133,BARIUM,BA,56,137,LANTHANUM,LA,57,139 . CERIUM,CE,58,140,PRASEODYMIUM,PR,59,141,NEODYMIUM,ND,60,144,PROMETHIUM,PM,61,147 0 SAMARIUM,SM,62,150,EUROPIUM,EU,63,152,GADOLIMIUM,GD,64,157,TERBIUM,TB,65,159PM,ZR,40,91,NIOBIUM,NB,41,93,MOLYBDENUM,MO,42,96,TECHNETIUM,TC,43,98 ( RUTHENIUM,RU,44,101,RHODIUM,RH,45,103,PALLADIUM,PD,46,106.5,SILVER,AG,47,108 * CADMIUM,CD,48,112.5,INDIUM,IN,49,115,TIN,SN,50,119,ANTIMONY,SB,51,122,TELLURIUM,TE,52,127.5T , ILT,CO,27,59R NICKEL,NI,28,59,COPPER,CU,29,63.5,ZINC,ZN,30,65,GALLIUM,GA,31,70 " GERMANIUM,GE,32,72.5,ARSENIC,AS,33,75,SELENIUM,SE,34,79,BROMINE,BR,35,80 $ KRYPTON,KR,36,84,RUBIDIUM,RB,37,85.5,STRONTIUM,SR,38,87.5,YTTRIUM,Y,39,89C & ZIRCONIU,27,SILICON,SI,14,28,PHOSPHORUS,P,15,31P  SULFUR,S,16,32,CHLORINE,CL,17,35.5  ARGON,AR,18,40,POTASSIUM,K,19,39,CALCIUM,CA,20,40  SCANDIUM,SC,21,45,TITANIUM,TI,22,48,VANDIUM,V,23,51  CHROMIUM,CR,24,52,MANGANESE,MN,25,55,IRON,FE,26,56,COBA(E$(200),SYM$(200),AN(200),AW(200) HYDROGEN,H,1,1,HELIUM,HE,2,4,LITHIUM,LI,3,7,BERYLLIUM,BE,4,9,BORON,B,5,11,CARBON,C,6,12,NITROGEN,N,7,14,OXYGEN,O,8,16,FLOURINE,F,9,19 NEON,NE,10,20,SODIUM,NA,11,23,MAGNESIUM,MG,12,24'  ALUMINUM,AL,13     -PRINT OUT DESIRED VALUES2x"ELEMENT = ";D$(N6)?N9117QC(N9)01540^N81N9fD$nN8tN8N81B(N6,N8)01530N86N81215001510(N62)(N610)(N618)(N636)(N654)(N686)01530 "NO VALUE N6."WELL ... I CAN'T FIND THAT ELEMENT."P "PLEASE TYPE THAT IN AGAIN."Y600t--ATOMIC NUMBER GIVEN((A$)312802N6(A$)<N6(N6)1370FN611370PN61031390Z"OK NOW ... DON'T TRY TO FOOL ME."d1290n0A~"PLEASE ENTER YOUR LIST OF DESIRED CHARACTERISTICS FIRST."J600h--LOOK FOR TYPE OF INPUTyB$(A$,1,1)N09N$(N)B$N$1310N--EITHER NAME, OR SYMBOLN61103A$D$(N6)1390A$X$(N6)13904)(C15)(C16)01070&C171070_"AN UNKNOWN CHARACTERISTIC WAS FOUND IN YOUR LIST."}"PLEASE RETYPE THE LIST"$600.D(C)18JJ1BB$","790L--STORE OPTIONS IN CVKK117:C(KK)D(KK):`S11j600tS11117 IS FOUNDH(P)KPP1(JJ1:J(A$)810T--AN OPTION IS FOUND^PP1lP21040wCH(1)P11010C10H(1)H(2)(C1)(C2)(C3)(C4)(C5)(C6)(C7)(C8)(C9)01070(C10)(C11)(C12)(C13)(C1B$"CHAR-"770%B$"CHAR="1140L--EXTRACT DESIRED CHARACTERISTICST J6\P1m J(A$)880~*B$(A$,J,1)4K09>N$(K)HB$N$900RK\P1880fB$","950p"I DIDN'T UNDERSTAND THAT"z600 --A DIGIT01+--CHECK FOR LIST OF CHARACTERISTICS6A$Q1$u CODE IN THE LOOP FROM 660 TO 710 MODIFIED TO SQUEEZE OUT BLANKS WHICH WAS FORMERLY DONE BY A DELETE STRING FUNCTION CALL EXT$(STRING,START,LEN)(A$)51140B$(A$,1,5)g612l--DECODE INPUT"q9vKK117:D(KK)0:V--REMOVE SPACES FROM A$^J0hJJ1yJ(A$)720B$(A$,J,1)B$" "660Q1$B$JJ1J(A$)720B$(A$,J,1)B$" "701Q1$Q1$B$J(A$)7:"***?";::" APPEARS, YOU MAY EITHER ENTER"W "ANOTHER ELEMENT OR ANOTHER SET OF"o"CHARACTERISTICS."w?89D:S10I(5)N"ENTER YOUR LIST OF CHAR= #'S"X"***?"bA$""dC$:C$(13)620eC$;:C$(3)1650fA$A$C$OR (3) THE ATOMIC";"NUMBER OF ANY ELEMENT YOU DESIRE."f"THE COMPUTER WILL THEN LOOK AT YOUR""LIST OF CHARACTERISTICS AND WILL PRINT""THE DESIRED INFORMATION FOR THAT""ELEMENT.""AFTER THE RESULTS ARE PRINTED AND". D N770792:A:N,A:CN1025510:768,N:769,120:770:N POKE 768, FREQ ( 0-255) POKE 769, LENGTH (0-255) 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96,0,0  ::" VERY GOOD, THAT IS CORRECT."X::" THE EQUATION SHOULD LOOK LIKE THIS:":;G;" GRAMS ";SYM$(R);" / ";AW(R);" G-MOLE ";MO;" MOLES"200!MISS0&I I "E$(R):," #MOLES = ";::"?";5TRY;C:aMO(GAW(R)10000)10000{(TRYMO)MO.1ī470500:"THAT IS NOT CLOSE ENOUGH, TRY AGAIN."MISSMISS1T11000:TMISS3ī395MISS3ī520&C WEIGHTS THAN I AM USING.)"tw:" PLEASE USE ATOMIC WEIGHTS ACCURATE TO WITHIN ONE TENTH (1/10) OF A GRAM."}|200I1NG((1)1000)10:G0ī390R((1)103):R0ī391:" FIND THE NUMBER OF MOLES OF ";G;" GRAMS OFCTLY SOLVED THE PROBLEM THE CORRECT ANSWER WILL APPEAR ON THE SCREEN"r:" YOUR ANSWERS WILL NOT HAVE TO BE EXACT, ANY ANSWER WITHIN 10% WILL BE SUFFICIENT. (DUE TO THE FACT THAT YOU MAY HAVE A DIFFERENT SOURCE FOR YOUR ATOMIO;" MOLES"J200Tz^" YOU WILL BE GIVEN SOME PROBLEMS, AND WILL BE REQUIRED TO SOLVE FOR THE NUMBER OF MOLES"Rh:" YOU WILL BE GIVEN THREE (3) ATTEMPTS TO SOLVE THE EQUATION CORRECTLY. IF AFTER THE THIRD ATTEMPT YOU HAVE NOT CORRE"7":" #MOLES = ";G;" GRAMS / ";AW(R);" GRAMS/MOLE"Q'MO(GAW(R)100)100,::" FIRST DIVIDE ";G;" BY ";AW(R);" TO GET ";MO6"AND THE GRAMS CANCEL IN OUR EQUATION LEAVING US WITH THE DIMENSION OF MOLES" @:" SO OUR ANSWER IS :";M:"FOR EXAMPLE:"0G((1)100)10>G0ī245PR((1)103)^R1ī250nR103ī250:" GIVEN ";G;" GRAMS OF ";E$(R);" WHOSE""GRAM-ATOMIC WEIGHT IS ";AW(R);" G/MOLE":" YOUR EQUATION WOULD LOOK LIKE THIS:T. IF THE CORRECT ANSWER IS NOT ATTAINED IN THREE TRIES THE COMPUTER WILL GIVE THE CORRECT ANSWER."t" HOW MANY PROBLEMS DO YOU WISH TO TRY ?";N:23023:"PRESS ANY KEY WHEN READY......"C$:C$(32)ī220:210:03,257dI11032nE$(I),SYM$(I),AN(I),AW(I)9xI?" THIS PROGRAM WILL DRILL THE STUDENT ON THE SUBJECT OF MOLAR QUANTITIES"n" THE COMPUTER WILL DEMONSTRATE A FORMULA THEN GIVE THE STUDENT A SIMILAR PROBLEM TO WORK OUA,91,231,URANIUM,U,92,238,NEPTUNIUM,NP,93,237,PLUTONIUM,PU,94,242@ AMERICIUM,AM,95,243,CURIUM,CM,96,247,BERKELIUM,BK,97,247,CALIFORNIUM,CF,98,249B EINSTEINIUM,ES,99,254,FERMIUM,FM,100,253,MENDELEVIUM,MD,101,256,NOBELIUM,NO,102,254,LAWRENCIUM,LW,1195N8 GOLD,AU,79,197,MERCURY,HG,80,200.5,THALLIUM,TL,81,204,LEAD,PB,82,207: BISMUTH,BI,83,209,POLONIUM,PO,84,210,ASTATINE,AT,85,210,RADON,RN,86,222< FRANCIUM,FR,87,223,RADIUM,RA,88,226,ACTINIUM,AC,89,227,THORIUM,TH,90,232A> PROTACTINIUM,P 2 DYSPROSIUM,DY,66,162.5,HOLMIUM,HO,67,165,ERBIUM,ER,68,167,THULIUM,TM,69,169 4 YTTERBIUM,YB,70,173,LUTETIUM,LU,71,175,HAFNIUM,HF,72,178.5,TANTALUM,TA,73,181,WOLFRAM,W,74,1846 RHENIUM,RE,75,186,OSMIUM,OS,76,190,IRIDIUM,IR,77,192,PLATINUM,PT,78,ODINE,I,53,127,XENON,XE,54,131,CESIUM,CS,55,133,BARIUM,BA,56,137,LANTHANUM,LA,57,139 . CERIUM,CE,58,140,PRASEODYMIUM,PR,59,141,NEODYMIUM,ND,60,144,PROMETHIUM,PM,61,147 0 SAMARIUM,SM,62,150,EUROPIUM,EU,63,152,GADOLIMIUM,GD,64,157,TERBIUM,TB,65,159PM,ZR,40,91,NIOBIUM,NB,41,93,MOLYBDENUM,MO,42,96,TECHNETIUM,TC,43,98 ( RUTHENIUM,RU,44,101,RHODIUM,RH,45,103,PALLADIUM,PD,46,106.5,SILVER,AG,47,108 * CADMIUM,CD,48,112.5,INDIUM,IN,49,115,TIN,SN,50,119,ANTIMONY,SB,51,122,TELLURIUM,TE,52,127.5T , ILT,CO,27,59R NICKEL,NI,28,59,COPPER,CU,29,63.5,ZINC,ZN,30,65,GALLIUM,GA,31,70 " GERMANIUM,GE,32,72.5,ARSENIC,AS,33,75,SELENIUM,SE,34,79,BROMINE,BR,35,80 $ KRYPTON,KR,36,84,RUBIDIUM,RB,37,85.5,STRONTIUM,SR,38,87.5,YTTRIUM,Y,39,89C & ZIRCONIU,27,SILICON,SI,14,28,PHOSPHORUS,P,15,31P  SULFUR,S,16,32,CHLORINE,CL,17,35.5  ARGON,AR,18,40,POTASSIUM,K,19,39,CALCIUM,CA,20,40  SCANDIUM,SC,21,45,TITANIUM,TI,22,48,VANDIUM,V,23,51  CHROMIUM,CR,24,52,MANGANESE,MN,25,55,IRON,FE,26,56,COBA<(E$(200),SYM$(200),AN(200),AW(200) HYDROGEN,H,1,1,HELIUM,HE,2,4,LITHIUM,LI,3,7,BERYLLIUM,BE,4,9,BORON,B,5,11,CARBON,C,6,12,NITROGEN,N,7,14,OXYGEN,O,8,16,FLOURINE,F,9,19 NEON,NE,10,20,SODIUM,NA,11,23,MAGNESIUM,MG,12,24'  ALUMINUM,AL,13      XSXSY(I)fpXXLXLX.zYXLXLY=XXSXSXLYXSXSY_XSXLXLXSf5|:SCALE CONSTANTSXSXL:YSXS:YLXL:10B1.6XSE1.6XL: DRAW AXESY10:Y20:X1B:X2E:20X10:X20:Y1YS:Y2YL:20"ANY OTHER KEY TO SEE GRAPH";(IN$:IN$"Q"9999TIN$"N"G0:I0:200aG0800o16304,0y1250  DETERMINE SCREEN DIMENSION *XS0:XL04I1N>X(I)XLXLX(I)HY(I)XLXLY(I)RX(I)XSXSX(I) \Y(I)IA(N)ī230 RI 8003 AI:KK2:1000? T$:10[ ----------------------a h %3y *0,79279,79 4Y015910:139,Y139,Y5:Y >N$((N10.5)10):R$((R1800PI.5)10) C:21:"N = "N$,"I = "I$,"R = "R$ H 0:167" ----------------------1 II180PI= NN2N1J N1500[ RA((I)N)s N$((N10.5)10) R$((R1800PI.5)10) :21:"N = "N$,"I = "I$,"R = "R$ 800 6AI:K1:1000 TAR:K1:1000 hT$:10 r  FOR THE REFRACTING MEDIUM ?"3 x15:18:"";N2$O N2$""Ģ15:(27):120] N2(N2$) 19:" WHAT IS THE ANGLE OF INCIDENCE ? " 21:18:"";I$ I(I$) I0I90Ģ21:(27):160 I$""Ģ21:(27):160 (I$)58(I$)48I11 XX1(YY1'-K0A2A(X)(X(XX1))P<PI3.14159F6:" WHAT IS THE INDEX OF REFRACTION FOR THE INCIDENT MEDIUM ? "P9:18:"";N1$ZN1$""Ģ9:(27):80dN1(N1$) n12:" WHAT IS THE INDEX OF REFRACTION$,I)(C): APPEND TO A$ I7 " ": ERASE CURSORJ A$: OPTIONALU :500[ a g v I1(A$) A((A$,I,1)) A65A90I11050 (A); $I .UI1:I1615 dA$"":5202 gA$(A$,I1):520 lC63UCF0CC32: IF A LETTER OR SPECIAL SYMBOL AND IN LOWER CASE MODE, THEN CHANGE CHAR TO LOWER CASE (C);: ECHO UCF1UCF0: IF SINGLE UPPER CSE SWITCH BACK TO LOWER CASE A$(A:: ,H$(8): CTRL-H, A$"":I1255= C$:C(C$):H C3ĀV C31620o & CONTROL CHARACTER 0C8600: BACKSPACE :C13680:TEM DC27520: ESC NUCFUCF1:UCF2UCF0 S520 XI2520 ]" ";H$;H$;" ";H$; bISE ":1000A A$" FLAG DETERMINES UPPER OR LOWER CASE. ":1000 ::"ESC";:A$" SWITCHES TO LOWER CASE, OR TO UPPER CASE FOR THE NEXT CHARACTER ONLY. ":1000 ::"ESC ESC";:A$" SWITCHES TO ALL UPPER CASE. ":1000 "::A$"TRY IT NOW!":1000OUTINE AT LINE 1000":1000Q A$" CONVERTS AND ENTIRE STRING (EXCEPT FOR":1000 A$" THE FIRST CHARACTER) AND PRINTS IT AS LOWER CASE. ":1000 ::A$"LINES 500-699 GET CHARACTERS DIRECTLY ":1000 A$" FROM THE KEYBOARD, AND THE UPPER CAx936:5A$(255)jUCF2: UPPER CASE FLAG :0=LOWER CASE,2=UPPER CASE, 1=ONE UPPER CASE INPUTA$"THIS PROGRAM DEMONSTRATES THE USE OF":1000A$" THELOWER CASE ADAPTER WITH ":1000A$"APPLESOFT":1000 " BASIC. ":A$"THE SUBR   000.0005)1000" MOLES "SYM$(R)(2003!MISS0:&I I::" VERY GOOD, THAT IS CORRECT."V::" THE EQUATION SHOULD LOOK LIKE THIS:":;G;" GRAMS ";SYM$(R);:15:"! 1 MOLE ";SYM$(R)"--------------+------------------- = "15:"! "AW(R)" GRAMS "SYM$(R):12:((GAW(R))1 "E$(R):," #MOLES = ";::"?";5TRY;A_MO(GAW(R)10000)10000y(TRYMO)MO.1ī470500:"THAT IS NOT CLOSE ENOUGH, TRY AGAIN."MISSMISS1T11000:TMISS3ī395MISS3ī520$UCTANCE","SPECIFIC HEAT"rD P@ "COVALENT RADIUS (ANGSTROMS)","ATOMIC RADIUS (ANGSTROMS)"J "IONIC RADIUS (ANGSTROMS)","FIRST IONIZATION ENERGY"T "ELECTRONEGATIVITY","HEAT OF VAPORIZATION"^ "HEAT OF FUSION","ELECTRICAL CONDUCTANCE"h "THERMAL CONDIN FILE FOR"D$1540;" ";D$;" = ";B(N6,N8)CN9IR600" "ATOMIC NUMBER","ATOMIC WEIGHT","BOILING POINT (C)", "MELTING POINT (C)", "DENSITY (GRAMS/ML)"6 "VALANCE (MOST COMMON)","VALENCE (2ND MOST COMMON" omine,Br,Strontium,Sr,  Silver,Ag,Tin,Sn\ & Iodine,I,Cesium,Cs,Barium,Ba,Lanthanum,Lay 0 Uranium,U,Plutonium,Pu : Tungsten,W,Osmium,Os,Platinum,Pt,Gold,Au,Mercury,Hg,Lead,Pb D Radon,Rn,Radium,Ra  RANDOMIZE REMOVED A(F)1 XOxygen,O,Fluorine,F,Neon,Ne  Sodium,Na,Magnesium,Mg,Aluminum,Al,Silicon,Si,Phosphorus,P,Sulfur,S,Chlorine,Cl,Argon,Ar,Potassium,K,Calcium,Ca  Titanium,Ti,Chromium,Cr,Manganese,Mn,Iron,Fe,Cobalt,Co,Nickel,Ni,Copper,Cu,Zinc,Zn  Germanium,Ge,Br. FOR ";(100R(RW));"%."' TR0:W0- [U ^"WOULD YOU LIKE TO TRY SOME MORE?"] hZ$ r(Z$,1,1)"N"(Z$,1,1)"n"Ā |(Z$,1,1)"Y"(Z$,1,1)"y"150 :150  Hydrogen,H,Helium,He,Lithium,Li,Beryllium,Be,Boron,B,Carbon,C,Nitrogen,N,1NE8 A$(F)D$(V)ĺA$(F)" IS THE SYMBOL FOR "C$(V):? Vw "THE CHEMICAL SYMBOL FOR ";C$(F);" IS ";D$(F) 1200 "320 ,1000 11200 6RR1 @ AST1324 BST1:150 D:: J"YOU GOT ";R;" RIGHT AND ";W;" WRONGLEARN THE CHEMICAL SYMBOLS FOR THE ELEMENTS."::; 1200Q I147:A(I)0:I] I1NEp F((1)NE1) A(F)1160 :"---------------------------------------": C$(F)" ?";:" ";A$(F): A$(F)D$(F)300 WW1 V(X,2),N(X,3):X @ I1NS:J1NP(I):S(I,J)" ";:J::IF IR RHO VALUE , D VALUE ";RHO$,D$7t RHO$""RHO$"40"K~ D$""D$"250"p (RHO$)45(RHO$)57ĺ"":2210 (D$)45(D$)57ĺ"":2210 160 "ENTER NO. OF OBJECT ";T X1NE:E(T,X,1),E(T,X,2),E(T,X,3):X  X1NS:N(X,1),N !"3 " \-------------/"@ 23:"'"g " ^ RHO ^"{$ " !"25)"!". " \-------------------------/"8 18:"'"B 18:"D"L :V "DEFAULT VALUES RHO = 40 D = 250"` j " ENTE3: DRAW VECTORS!X10:Y10,I1N@$X2X(I):Y2Y(I)H.20OI]X2X:Y2Ye2023:1:"PRESS ANY KEY TO SEE TABLE";:G1:868::86816368,00:20 3:20(16384)1271260F16368,0P:610'D999XK55 Ph  3.5,3.8,8.9,11.8,15,16.5,20.1,25.6,32.9,40,52,60.1,64.5,68.9,63.8,60.6, 63.1,60.3 ,58  54.9,58.1,49.2,50.6,45,42.4,39.2,34,34.9,32.9,28.1,28.1,29.1,27.4,21.5,22.1,20,21,16.9,16.9,15,13.9,12.9,12.9,10.1,9.4,9.1,7.2,5.1,5.1,3.2,3.1,2, D(300) X1% D(X)6D(X)99940@XX1H10Q(LXXW*k,3:4,80279,80z-X42795.X,82X,78/X021235X17PD(X)D(X1)8XLX809Y04<X5Y,80X5Y,805P>YFXX1   ORRECT","RESPONSES IN ";I1;" ATTEMPTS"?"FOR ";P;"%."["WANT TO TRY ANOTHER?"cX$y(X$,1)"N"9000(X$,1)"Y"1790&8490@24J"PRESS ";::" SPACE BAR ";::" TO CONTINUE.";TX$:X$" "8020^*!"4!" |Z5.001D1(DA(A8))5D1A(A8)Z51700?NN1I1310QD$wD$E$ĺ12)"******CORRECT******"}D$E$ĺ12)"CORRECT ANS = "E$:D$E$16901310P((N(I1)100).5)N$;","" YOU HAD ";N;" C,1530A6.515706" ";I;:12)B$;:24)"= ";AE$C$K1590l"" ";I;:12)C$;:24)"= ";w,E$B$6A11710,1600@D0JDTY" CORRECT ANS. = ";ZA(A8)]^A(8)501660hZ5.01r1670IA71750dA(1)B(C,1)&nB$D$(C)3xC$X$(C)@N2217RA(N2)B(C,N2)ZN2lA11500,1450A(A8)01500A86A81214801310C2C10C18C36C54C8615001310A6(1)A11520,1530A81540,1570IZATION ENERGY","ELECTRONEGATIVITY"Q "HEAT OF VAPORIZATION","HEAT OF FUSION"  "ELECTRICAL CONDUCTANCE","THERMAL CONDUCTANCE" "SPECIFIC HEAT"C((1)103)1(A9313402T(C)A91310<T(C)01310FT(C)0PII1 Z2; "ATOMIC NUMBER","ATOMIC WEIGHT","BOILING POINT (C)" "MELTING POINT (C)","DENSITY (GRAMS/ML)","VALENCE (MOST COMMON)" "VALENCE(2ND MOST COMMON)","COVALENT RADIUS (ANGS)" "ATOMIC RADIUS (ANGS)","IONIC RADIUS (ANGS)"# "FIRST IONHJ: 3 D GRAPHICS PROGRAM FROM 'Microcomputer Graphics' BY ROY MYERS f VERTICES OF OBJECT  VERTICES OF FIRST OBJECTA 5,7,-5, 5,7,5, 5,-7,5, 5,-7,-5, -5,7,-5, -5,-7,-5, -5,-7,5, -5,7,5, 0,7,8, 0,-7,8, 5,-3,0, 5,-3,2, 5,-5,2, 5,-5,0, """"""  .5)10). C:21:"N = "N$,"I = "I$,"R = "R$4 H: @ J CC1[ X79YY(A)n X139Y159:x X139 Y79139(A)YY X/5 qs r ; qa ` `$$(ɠ$C q$W ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\I/O ERROR\@  UmU+&*Y Y P ,X B АX I8Mt_=gH?J QVQT_ɕ%[^ZZ\[]^Z_[ 0W Г J1  @)ȹ@)ȹ@) q P^ɠ 0   qL MW'WП < XX QLiLLs4        ITY IN METERS/SECOND ";V17 4"ENTER WIND SPEED ";WS$E 5WS(WS$)T 7V(AN)V1u <T((((VA)100.5)100)2) AHV(AN)V1 B:21:"ANGLE "D" VELOCITY "V1" WIND VEL. "WS FX0T.1 PSVX.5AX2 SHVXWSX279110 V155S0 :3'0,00,155279,155VY015550:0,155Y1,155Y:Y:0,553,55v!X027950:X,155X,156:X"X0279100:X,157X,158:X#21(A9.8-"ENTER ANGLE IN DEGREES ";D.D010/AN(D180)3.14159 2"ENTER VELOC HE VECTOR vz^: N(I,1), V(I,2), V(I,3) CROSS PRODUCT OF VECTORS u AND v for THE FIRST VECTOR OF SURFACE I _: SS = # OF SURFACES IN FIRST OBJECT IN DATAd VIEWPOINT AND SCREEN PARAMETERS nNV30xNS16NE34RTICE OF SURFACE I [:E(O,I,1) E(O,I,2) E(O,I,3) O= # OF THE OBJECT (1 OR 2) 1,2 VERTICES OF VISIBLE EDGE 3 = # OF VISIBLE SURFACES IT IS A PART OF \: U1, U2, U3 = X,Y,Z VALUES OF THE VECTOR u ]: V1, V2, V3 = X,Y,Z VALUES OF T IN X,Y PLANE; V: PHI = ANGLE FROM ORIGIN IN Z DIRECTION W: V(I,1), V(I,2), V(I,3) VALUES OF X,Y,Z COORDS. FOR VERTICE I X: SV( ,1) SV( ,2) PLOT VALUES OF X & Y COORDINATES Y: NP( ) = # OF VERTICES IN EACH SURFACE Z: S(I,J) = Jth VE,26,30,27, 28,29,25,24,28, 27,28,24,23,27, 29,30,26,25,29A F:\ P: NV = # OF VERTICES v Q: NS = # OF SURFACES R: NE = # OF EDGES S: RHO = OBSERVER TO ORIGIN DISTANCE T: D = OBSERVER TO PROJ. SCREEN DIST. U: TH = ANGLE FROM ORIGIN5,5,5,5,5,5,5,5,5,5,5Q  SURFACE ARRAY POINTERS TO EACH VERTICE 9 #1,2,3,4,1, 1,5,8,9,2,1, 5,6,7,8,5, 4,3,10,7,6,4, 3,2,9,10,3, 7,10,9,8,7, 1,4,6,5,1, 11,12,13,14,11, 15,16,17,18,15, 19,20,21,22,19,23,24,25,26,23, 27,30,29,28,27, 27,23-5,2,-1, -5,2,2, -5,5,2, -5,5,-1, 5,2,-5, 5,2,1, 5,-2,1, 5,-2,-5 c  VERTICES OF SECOND OBJECT  -2,-7,-5, -2,-9,-5, -5,-9,-5, -5,-7,-5, -2,-7,9, -2,-9,9, -5,-9,9, -5,-7,9  NUMBER OF VERTICES FOR EACH OF THE SURFACES  5,6,5,6,5,-----------------------,Y1591240=J139278SQJ,79(139J)TgJ1,79(139J)TnJtJ139278J,79YJTJ1,79YJTJJ6,79YJTJ,79YJTJ,84YJT23:7:1300X7:1300X39 DJ,79YJT$ FJ1,79YJT+ GJ; IKK21200A J] L----------------------n OY1591130 QJ139139X VJ,(J139)T79 [J1,(J139)T79 `J e jJ139139X tJ,79(J139)T ~J1,79(J139)T J   T(A) CC1' X79YYT> X139Y159:1050H X139T Y139TZ i K11100u S139X $Y1591090 )--------------------- .JS139 0J,79(139J)T 2J1,79(139J)T 4J 7KK21200 8 BJS1----------------------- ;2,19,1983 DUANE COATESX-----------------------^  THIS PROGRAM FACTORS NUMBERS"ENTER THE NUMBER YOU WANT TO FACTOR#:10:"";A:%E(A)(XX12AX(AX)75<NUX:100 F10(A !IF YOU WANT TO CHANGE THE PROGRAM"C>!"YOU ARE IN.....TYPE 'NEW'"nH!:"IF YOU WANT TO CONTINUE THE SAME "R!"PROGRAM.....TYPE 'CONT'"\!NC$f!NC$"CONT"ī840p!NC$"NEW"ī290z!8500(#)N*m+Jn)m)eeU`8VUU ڑ` :` ^6789 Q@ q . @^`6798 Q`H h``noVVi@iA)moo g p g) pmn0 A :3%0,390:0,39394(21:A9.8_2"ENTER VELOCITY IN METERS/SECOND ";Vq<T2((VA))FX0T.2PSVX.5AX2SX279110V38S038S39110Y1Z10,38SdG1100:g0j10,38SnX x:4 TY OF OBJECTS 4YE7P(1)1:P(2)2NYE7P(1)2:P(2)1 DRAW VISIBLE EDGES OF FIRST PRIORITY OBJECT :3I112E(P(1),I,3)01030JE(P(1),I,1):KE(P(1),I,2)SV(J,1),SV(J,2)SV(K,1),SV(K,2)E2S(I,J)K1NCE(O,K,1)E2E(O,K,2)E1E(O,K,3)2:720JKqE(O,N,1)E1:E(O,N,2)E2:E(O,N,3)1MM1ĺE(O,N,1),E(O,N,2),E(O,N,3);MM1ĺNN1E1E2JISSO2:N1MM1ijI ESTABLISH PRIORIN EDGE ARRAY 20XERHS2C1:YERHS2S1:ZERHC2>:N1:O1JDI1NSXNE2S(I,1)jXVXXEV(E2,1)|bVYYEV(E2,2)lVZZEV(E2,3)vGGN(I,1)VXN(I,2)VYN(I,3)VZ{MM1ĺ"SURFACE "I" "GGGG0740E1S(I,1)J2NP(I) V(S(I,1),3)*V1V(S(I,3),1)V(S(I,1),1)IV2V(S(I,3),2)V(S(I,1),2)hV3V(S(I,3),3)V(S(I,1),3)N(I,1)U2V3V2U3N(I,2)U3V1V3U1N(I,3)U1V2V1U2I & DETERMINE VISIBILITY OF EACH SURFACE AND COLLECT VISIBILE EDGES I JI1NSTNP(I)^I:| FILL SURFACE ARRAY FI1NSUJ1NP(I)aS(I,J)jJ,I CALACULATE VECTOR TO EACH SURFACE I1NSU1V(S(I,2),1)V(S(I,1),1)U2V(S(I,2),2)V(S(I,1),2) U3V(S(I,2),3)RRAY I1NVX,Y,Z;V(I,1)X:V(I,2)Y:V(I,3)ZX1XS1YC1:Y1XC1C2YS1C2ZS2:Z1XS2C1YS2S1ZC2RHOSV(I,1)D(X1Z1)CX:SV(I,2)D(Y1Z1)CY"I,QZ14306 READ # OF POINTS IN EACH SURFACE SS10?V(NV,3),SV(NV,3),NP(NS),S(NS,6),N(NS,3),E(2,NE,3)I2000aRHO(RHO$):D(D$){THETA(360TH).01745PH(90PH90).01745CX140:CY96:S1(TH):C1(TH):S2(PH):C2(PH):12:12:"PATIENCE PLEASE" FILL VERTEX A@>IT^hu,)u66?$$ -  666-?? -.-=--u?6.-=$466&--??6-u6?I9.-?$--6)u?v- ?d)u6?d-6/?6&66$, u66$, u6&,> 6&66$, u66$, u6&6 gW'  `^ :F Y %^LǏLZ^[_\Z][`1''YFXX1  25":" PROBLEMS. TYPE ANOTHER NUMBER BETWEEN"D" 1 AND 25. ":BN1220:"OKAY, ";N$(0);", HERE ARE ";A;" PROBLEMS."***************C0: BEGINS CORRECT COUNTW0: BEGINS WRONG COUNTP0: BEGINS PROBLEM COUNTPP1*****% SELECT NUMBER OF PROBLEMS;: CLEARS SCREENm::"HOW MANY PROBLEMS DO YOU WANT TO WORK?":"TYPE A NUMBER BETWEEN 1 AND 25 AND HIT THE 'RETURN' KEY.":BA(B)A1A251240.:"NO, ";N$(0);", YOU MAY NOT DO OVER }***************/~ CORRECT RESPONSE DATA? "CORRECT"Q "RIGHT-ON!"c "GOOD WORK"u "WELL DONE" "VERY GOOD" "YOU'RE SO SMART." "GREAT!!" "THAT'S RIGHT." "FINE JOB" "THAT IS CORRECT."***************% FOURTH DATA, COPPER, 63.5I "0.100","6.35","0.200","12.7"j "1.00","63.5","2.00","127"X***************b FIFTH DATA, NITROGEN, 14.0l "0.10","1.4","0.20","2.8"v "1.0","14","2.0","28" "1.00","14.0","2.00","28.0" SECOND DATA, OXYGEN, 16.0:@ "0.10","1.6","0.20","3.2"VJ "1.0","16","2.0","32"k*************** THIRD DATA, CHLORINE, 35.5 "0.100","3.55","0.200","7.10" "2.0","71","1.00","35.5" "0.20","7.1","0.10","3.6" **********M5$(X),G5$(X):X)X110:C$(X):X>***************S*****DATA******h*************** FIRST DATA, CARBON, 12.0 "0.10","1.2","1.00","12.0" "2.00","24.0","0.20","2.4" "2.0","24","1.0","12",***************6uM1$(X),G1$(X):X3x SECOND VARIABLE, OXYGEN>}X14TM2$(X),G2$(X):Xs THIRD VARIABLE, CHLORINE~X16M3$(X),G3$(X):X FOURTH VARIABLE, COPPERX14M4$(X),G4$(X):X FIFTH VARIABLE, NITROGENX16:"YOU NEED NOT INCLUDE THE UNITS IN"<H:"YOUR ANSWER."NJ::: SPACEL" ** PRESS 'SPACE BAR' TO CONTINUE. **":H$(0)N: CLEARS SCREENd***************i INITIALIZE VARIABLES AND LOAD DATAn FIRST VARIABLE, CARBONsX16 CLEARS SCREEN?:::" REMEMBER, ";N$(0);", YOUR ANSWER"k<:"MUST CONTAIN THE CORRECT NUMBER OF">:"SIGNIFICANT FIGURES TO BE COUNTED"@:"RIGHT."B:" TO RESPOND, TYPE YOUR ANSWER AND"D:"THEN PRESS THE 'RETURN' KEY."&FLES OF A SINGLE"@ ,:"ELEMENT. YOU WILL BE GIVEN EITHER THE"o .:"NUMBER OF MOLES OF THE ELEMENT OR THE" 0:"MASS OF THE ELEMENT AND BE ASKED FOR" 2:"THE OTHER." 4::: SPACE 6" ** PRESS 'SPACE BAR' TO CONTINUE. **":H$(0)8:O"4 " AND THEN PRESS THE 'RETURN' KEY. ":A$(0)G !A$(0)"N"100^ # DIRECTIONS GIVENt $: CLEARS SCREEN %::"DIRECTIONS:" &:" THE FOLLOWING PROBLEMS ARE" (:"CONVERSIONS FROM EITHER MOLES TO GRAMS" *:"OR FROM GRAMS TO MO**** *"' X15000:X:: TIME DELAY: :: GREETING] "WHAT IS YOUR NAME? ":N$(0)x :"HELLO, ";N$(0);"."  DIRECTIONS REQUIRED? :"WOULD YOU LIKE TO READ THE DIRECTIONS," " ";N$(0);"?" :"TYPE A 'Y' FOR YES OR A 'N' FOR N **"2 " * *"] " * CONVERSION PROBLEMS *" " * *" " *** ***" " * **** **** **** *" " * ***** ***** ***** * ***"1 " * *"\ " * MOLES TO GRAMS AND *" " * *" " ** **" " * GRAMS TO MOLES *" " ** : MOLES TO GRAMS...5: GRAMS TO MOLES...R: CONVERSION PROBLEMS.j: T. C. D. UTECHT: BLOOMFIELD, NE 68718" * ***** ***** ***** ***** *"" * **** **** **** *" " ***            COUNTS TOTAL&12502&p FINAL SCORE DISPLAYn&::"YOU HAD ";C;" CORRECT AND ";W;" WRONG, ";N$(0)"."&:"YOUR SCORE IS ";(C(CW))100;" %"&' XARE ";G5$(X):" GRAMS OF NITROGEN IN ";M5$(X);" MOLES."A%= 1250V%***************o% SELECTS A RESPONSE%X((1)101)%:C$(X)%CC1: COUNT CORRECT%(CW)A6000: COUNTS TOTAL%1250%|WW1: COUNTS WRONG&(CW)A6000:;" MOLES OF":" NITROGEN."$$12505$ QUESTION 2s$$ ::"HOW MANY GRAMS = ";M5$(X);" MOLES":" OF NITROGEN?"$) :"NITROGEN HAS A MOLECULAR WEIGHT OF 14.0":" GRAMS PER MOLE."$. :G5$(0)$3 G5$(X)G5$(0)50007%8 :"THAT'S INCORRECT. THERE 1)#Q512300## QUESTION 1b#::G5$(X);" GRAMS EQUAL HOW MANY MOLES OF":" NITROGEN?"#:"MOL WT OF NITROGEN IS 14.0 GRAMS/MOL."#:G5$(0)#M5$(X)M5$(0)5000#:"YOU'RE WRONG, ";N$(0);"."$" ";G5$(X);" GRAMS EQUAL ";M5$(X)G4$(0);" GRAMS IS NOT CORRECT, ";N$(0);"."p"|"THERE ARE ";G4$(X);" GRAMS IN ";M4$(X);" MOLES":" OF COPPER."z"5500"***************" FIFTH PROBLEM, NITROGEN" SELECTS DATA"X((1)61)" SELECTS QUESTION 1 OR 2#Q5((1)2E WRONG, ";N$(0);", ";M4$(X);""O!6" MOLES EQUAL ";G4$(X);" GRAMS OF COPPER."Y!>5500j!H QUESTION 2!R::"HOW MANY GRAMS ARE IN ";M4$(X);" MOLES":" OF COPPER?"!\:"COPPER'S MOL WT IS 63.5 G/MOL."!f:G4$(0)!pG4$(0)G4$(X)5000+"z: X((1)41)0  SELECTS QUESTION 1 OR 2C Q4((1)21)R Q412120d  QUESTION 1 ::"";M4$(X);" MOLES EQUAL HOW MANY GRAMS":" OF COPPER?" :"COPPER'S MOL WT IS 63.5 G/MOL." :G4$(0) *G4$(X)G4$(0)5000!4:"YOU'RE MOL WT OF CHLORINE IS 35.5 GRAMS":" PER MOLE."?:G3$(0)WG3$(X)G3$(0)5000:"YOR'RE INCORRECT. THERE ARE ";G3$(X):" GRAMS IN ";M3$(X);" MOLES OF CHLORINE."5500 *************** FOURTH PROBLEM, COPPER  SELECTS DATAF CHLORINE IS 35.5 GRAMS":" PER MOLE."5X:M3$(0)MbM3$(0)M3$(X)5000l:"WRONG, ";M3$(X);" MOLES OF CHLORINE ARE IN":" ";G3$(X);" GRAMS."v5500 QUESTION 2::"HOW MANY GRAMS ARE IN ";M3$(X);" MOLES":" OF CHLORINE?"1:"TH00***************5 THIRD PROBLEM, CHLORINEH SELECTS DATAZX((1)61)x SELECTS QUESTION 1 OR 2&Q3((1)21)0Q311920: QUESTION 1D::"HOW MANY MOLES OF CHLORINE ARE IN ";G3$(X):" GRAMS?"'N:"THE MOL WT OSTION 2N::M2$(X);" MOLES OF OXYGEN EQUAL HOW MANY":" GRAMS OF OXYGEN?":"MOLECULAR WEIGHT OF OXYGEN IS 16.0 G/MOL":G2$(0)G2$(X)G2$(0)5000:"WRONG, ";N$(0);", ";M2$(X);" MOLES OF":" OXYGEN EQUAL ";G2$(X);" GRAMS."55r QUESTION 1F|::G2$(X);" GRAMS = HOW MANY MOLES OF OXYGEN?":"MOLECULAR WEIGHT OF OXYGEN IS 16.0 GRAMS":" PER MOLE.":M2$(0)M2$(X)M2$(0)5000:"NO, ";G2$(X);" GRAMS = ";M2$(X);" MOLES OF":" OXYGEN."5500 QUEG1$(X)G1$(0)5000^:"WRONG, ";M1$(X);" MOLES OF CARBON EQUAL ":" ";G1$(X);" GRAMS."h"5500~@ ***************J SECOND PROBLEM, OXYGENM SELECTS DATAPX((1)41)T SELECTS QUESTION 1 OR 2^Q2((1)21)hQ211720:M1$(0) M1$(X)M1$(0)5000g:"WRONG, ";G1$(X);" GRAMS EQUAL ";M1$(X);" MOLES OF":" CARBON."q5500 QUESTION 2::M1$(X);" MOLES OF CARBON EQUAL HOW MANY":" GRAMS?":"MOLECULAR WEIGHT OF CARBON = 12.0 G/MOL":G1$(0)IRST PROBLEM, CARBON' SELECTS DATA9X((1)61)W SELECTS QUESTION 1 OR 2jQ1((1)21)yQ111520 QUESTION 1::G1$(X);" GRAMS EQUAL HOW MANY MOLES OF ":" CARBON?":"MOLECULAR WEIGHT OF CARBON IS 12.0 G/MOL" COUNTS "A" PROBLEMS1 BEGIN PROBLEM ADVANCEn:::" PRESS 'SPACE BAR' FOR PROBLEM ";P;".":H$(0): CLEARS SCREEN*************** SELECT PROBLEM ROUTINER((1)41)(R1400,1600,1800,2000x*************** F LL4:310:460 320% LL1:310C CC(CC)LL5:310:500L 370R C$(V),2,1))32)(((D$(V),1))32);/ ^(95);5 hQ r----------------------e w * PRINT DAY * y--------------------- |(P$(CC),1); W23 (((P$(CC),W,1))32); W LL2:310  ----------------------- V(V) 1360  ' O C T O B E R',' N O V E M B E R',' D E C E M B E R'C K1Q ,K20320[ 60540p @(K2)K20340z J0630 TMK(0) ^" WHAT YEAR IS THIS FOR? " hY rY(Y) |Y1Y9999ī0350 0870 1210 1360 K1210 1360155S155110# ZXHVWSX,155S* nX0 qX s"TOTAL TIME IN AIR ------ "T" SEC. u" HORIZONTAL DISTANCE --- "(XHVWSX)" METERS";:T$ v:21 x45 Y)936:H$(16):H$"0123456789ABCDEF":4:13:H$:QY015:(Y6):10c(H$,Y1,A);X015:X:X12,2Y10Y:X12,2Y11:X,Y:HE OF NAMING OF COUMPOUNDS"#420tS16ĺ"YOU HAVE DONE WELL, HOWEVER THERE IS SOME ROOM FOR IMPROVEMENT"::"THANK YOU"CSS1 TI20İ20* ^I19āT11000:T1 hI7 r |S16ĺ"YOU HAVE DONE FAIRLY WELL, A LITTLE MORE WORK WOULD SHOW IMPROVED RESULTS.":S18ĺ"YOU HAVE DONE AN EXCELLENT JOB. THERE IS NOTHING THAT I CAN DO TO IMPROVE YOUR KNOWLEDGYDROGEN SELENIDEm H I,HYDROGEN IODIDE,SN CL2,TIN(II) CHLORIDE,SN I4,TIN(IV) IODIDE,FE2 O3,IRON(III) OXIDEy I120 B$(I),Z$(I) I I120 :4 "B$(I) ,A$ 6A$Z$(I)ĺ"CORRECT":340 @"THE CORRECT ANSWER IS ";Z$(I) JO,MAGNESIUM OXIDE,CA C O3,CALCIUM CARBONATE,MN3 (P O4)2,MANGANESE PHOSPHATEl AS CL3,ARSENIC TRICHLORIDE HG CL2,MERCURY(II) CHLORIDE,NA CL,SODIUM CHLORIDE,RB2 S,RUBIDIUM SULFIDE AL (N O2)3,ALUMINUM NITRITE,AS CL5,ARSENIC PENTACHLORIDE,H2 SE,H-------LEAD(II) OXIDE"= :" NOTICE THE SPACE----!!!!"E 20K ` B$(100),Z$(100) K I,POTASSIUM IODIDE,CA F2,CALCIUM FLUORIDE,BA (CL O4)2,BARIUM PERCHLORATE ZN S O3,ZINC SULFITE,AG N O3,SILVER NITRATE,H F,HYDROGEN FLUORIDEK MG GIVEN THEIR CHEMICAL FORMULAS." d:"WHEN THE QUESTION MARK APPEARS AFTER THE CHEMICAL FORMULA, THEN WRITE THE CHEMICAL NAME OF THAT COMPOUND." n:"*** BE SURE YOU LEAVE A SPACE BETWEEN THE CATION AND ANION ***" x:" EXAMPLE  60023:"PRESS SPACE BAR TO CONTINUE"8C$H(C$(32)ıP230m< WRITTEN BY LEE A KOHRSsFP::" ****FORMULA I****"( Z::"THIS PROGRAM ALLOWS YOU TO TEST YOUR ABILITY TO WRITE THE NAMES OF CHEMICAL COMPOUNDS,     čͬčͬŬčìӬč̬ɬčҬլčìάčŬάčάŬčԬϬčͬɬčͬ֬čͬҬŭӍͬˬčͬčͬìčҬӬŭčŬ̬ŭӍάҬ̬ͬčάɬčӬЬŭάŬŭӍͬčͬǬčάάŭӍάϬŭӍŬƬӍͬŬčά¬ŭčάìŭčάȬŭӍͬŬŭŭӍͬɬ         A$(NUMBER)&(NUMBER100050J-B$(A$,(A$)6):A$","(A$,6)d.(B$)4A$B$A$:50/A$","(B$,3)A$:B$(B$,(B$)3):462  p 8"ENTER A NUMBER BETWEEN 1 AND 255 ";NB ::S N" - ";(N)[ :g 22:T$n5N";: 3"YOU MAY CHANGE YOUR LIST OF CHAR."["AT ANY TIME BY TYPING, CHAR= #'S"ai89r(5)"YOU MAY CHANGE YOUR LIST OF""CHARACTERISTICS AT ANY TIME, OR YOU""MAY ENTER EITHER (1) THE NAME, OR""(2) THE SYMBOL, OGRAM, YOU"0"MUST GIVE THE COMPUTER A LIST"Z"OF THE CHARACTERISTICS ABOUT WHICH"y"YOU DESIRE INFORMATION.""FOR EXAMPLE, IF YOU WANTED INFORMATION""ABOUT BOILING POINTS AND DENSITY""YOU WOULD TYPE ";::"CHAR = 3,5USLY" T89 Y(5)? ^"SPECIFICALLY, THE CHARACTERISTICS"K _"ARE:"Q `W aw b"NUMBER","CHARACTERISTICS" h"------","---------------" i rN417 |D$ " "N4,D$ N4 89   (5) "WHEN YOU USE THIS PRY"230    ' (5)L "THIS PROGRAM IS DESIGNED AS A"q "SOURCE OF INFORMATION ABOUT 7" "DIFFERENT CHARACTERISTICS OF" "THE CHEMICAL ELEMENTS." " # '"TO STOP THE PROGRAM PRESS 'CTRL'" ("AND 'C' SIMULTANEOX,11),B(X,12),B(X,13)= B(X,14),B(X,15),B(X,16),B(X,17),Q$D X\ DC$;"CLOSE CHEMFL"l DC$;"IN#0"u 255{ (5) "DO YOU WANT A DESCRIPTION OF THIS" "PROGRAM? (Y OR N)" X$ (X$,1,1)"N"580 (X$,1,1)"$(3)1650 dANS$(5)120& n90. x:E DC$;"OPEN CHEMFL"k A(110),B(110,17),D$(103),X$(103)| C(17),D(17) DC$;"READ CHEMFL" X1103 B(X,1),D$(X),X$(X),B(X,2),B(X,3),B(X,4),B(X,5),B(X,6) B(X,7),B(X,8),B(X,9),B(X,10),B( CDC CYBER 70/73-26 BASIC 3.1[ - COPYWRIGHT BY MECC AUGUST 1,1978 -- NOT FOR RESALE 2 ASSOCIATED FILES AND PROGRAMS: < FILE CHEMFL P ONE OF A SERIES OF THREE PROGRAMS U145 Y(23):"PRESS ANY KEY TO CONTINUE" ZANS$ _ANS B PROGRAM NAME - CHEM1 VERSION: 8/17/77 CHECKED: HTKODC$(4)U^(5)"PLEASE WAIT APPROX. 60 SECONDS""THE COMPUTER IS LOADING DATA""AT THIS TIME." AUTHORS - KEN BRUMBAUGH, MECC _ PAUL CONRAD, BURNSVILLE! (         0: ZC dS$ n0B  B,E1"CBE,(XX1U+C1C10S$S$" "(C)" ":80|,C9C33S$S$" "(C)" ":80-C126C161S$S$(C)" ":802C100C9ST$" "(C):70<ST$(C)FS$S$ST$"-"(C)" " PX10ĺS$:S$"":X IU TEST EACH EDGE OF SECOND PRIORITY OBJECT FOR VISIBILITY STATUS a$E1NEy.E(P(2),E,3)011508IE(P(2),E,1):JE(P(2),E,2)BSV(I,3)0XTSV(I,1):YTSV(I,2):1170:SV(I,3)VILSV(J,3)0XTSV(J,1):YTSV(J,2):1170:SV(J,  D$(4)$D$;"BLOAD SNCHAR"*1(3M222:"WHICH SHAPE ? ";SW<0:1fFS100,100nPT$~UT$"E"ĉ:Z30 ; * THIS PROGRAM FACTORS NUMBERST"ENTER THE NUMBER YOU WANT TO FACTORf#:10:"";A:q%E(A){(XX12AX(AX)75<8:NUX:100FA$;" , ";:NUAX:100:A$KXE40P(7): t ~$KK1110:T(KK)1:2N15773>T(N1)2FN1UN193103aT(N1)2iN1T(39)2:T(41)2:T(43)2:T(44)2:T(45)2:T(49)2:T(52)2:T(75)2:T(76)2T(77)T(81)T(84)2T(85)2:T(86)2:T(87)2:T(89)2:T(90)2:T(91))"NUMBER";:12)"NAME";:24)"SYMBOL"31040]"NUMBER";:12)"SYMBOL";:24)"NAME"g1040"NUMBER";:12)"NAME/SYMBOL";:24)"SYMBOL/NAME""------";:12)"-----------";:24)"-----------"1150$.N31A88D$BN3E ELEMENT MUST"q1r"BE SPELLED CORRECTLY"7zg"TYPE IN YOUR ANSWER AFTER THE EQUAL SIGN"m"PRESS ";::" RETURN ";:" AFTER YOUR ANSWER"GOOD LUCK, ";N$;" "N0:I0A1980,1060A8990,1010,1030E "/" 3 NAME/SYMBOL SYMBOL/NAME"5 `*"WHAT TYPE OF PROBLEM DO YOU DESIRE?"y,"TYPE (1, 2, OR 3)"4A89A81A83810>H"HOW MANY QUESTIONS DO YOU WANT";RA7\fA1880,900p:"THE NAME OR SYMBOL OF TH CHARACTERISTIC DO YOU WANT TO WORK ON (1-17)";7A8KA81A817670T830Z"TYPE GIVEN THE DETERMINE THE""---- --------- -------------"" 1 NAME SYMBOL" " 2 SYMBOL NAMISTICS AND NUMBERS (YES OR NO)";(&X$?0(X$,1,1)"N"660W:(X$,1,1)"Y"540]DcNiSX"NUMBER";:12)"CHARACTERISTIC"b"------";:12)"--------------"lN4117vD$" "N4;:12)D$N48000/"WHAT-45,49,52,57-73"? " 75-77,81,84-87,89-91,93-103"E ^ "3 COMPLETE 1-103"d m 255 "WHICH SET DO YOU WANT TO WORK WITH?" "SET (1, 2, OR 3) A9 A91A93500  A1700,540 "DO YOU WANT THE CHARACTER|X$ (X$,1,1)"N"4904 (X$,1,1)"Y"370? :(5)` "SET ATOMIC NUMBER" "--- -------------"  "1 ESSENTIAL 1-38,40,42,46-48,50,51" " 53-56,74,78-80,82,83,88,92"  "2 DIFFICULT 39,41,438% @" 2 PHYSICAL/CHEMICAL"Q A" CHARACTERISTICS OF ELEMENTS" J:::"WHICH PROGRAM DO YOU WISH TO RUN?" L"ENTER (1 OR 2)" ^A1 cA11A12340 h r"DO YOU WANT A DESCRIPTION OF THE SETS OF ELEMENTS (YES OR NO)"; ,B(X,12),B(X,13)8 B(X,14),B(X,15),B(X,16),B(X,17),Q$? XW DC$;"CLOSE CHEMFL"] "HI... WHAT'S YOUR NAME? ";N$ " ,"THIS PROGRAM IS DESIGNED TO CHECK YOUR" -"KNOWLEDGE OF :" .: 6" 1 CHEMICAL SYMBOLS AND NAMES" (103,17),D$(103),X$(103)Q :::::"THERE WILL BE A DELAY OF APPROX 60 SECS"w :"THE COMPUTER IS LOADING DATA" DC$;"READ CHEMFL" X1103 B(X,1),D$(X),X$(X),B(X,2),B(X,3),B(X,4),B(X,5),B(X,6) B(X,7),B(X,8),B(X,9),B(X,10),B(X,11)C PROGRAM NAME - CHEM3 VERSION: 8/17/77 CHECKED: HTK AUTHORS - KEN BRUMBAUGH, MECC, _ PAUL CONRAD, BURNSVILLE(:EDITED BY L. KOHRS 9-7-792-ASSOCIATED FILES=CHEMFL |DC$(4)}DC$;"OPEN CHEMFL"A(20),T(110) B! ! ! !!!!!!!!!  "";"BLOAD SNCHAR"%.XX17(YY1Q2A(X)(X(XX1))`<PI3.14159F6:" WHAT IS THE INDEX OF REFRACTION FOR THE INCIDENT MEDIUM ? "P9:18:"";N1$ZN1$""Ģ9:(27):80dN1(N1$)/ n12:" WHAT IS THE IND! " """$):A$;:11:",";! INUAX:1003 J24(A$):A$@ KXE40J P(7)P ZV dm nA$(NUMBER)" " NUMBER1000150 B$(A$,(A$)6):A$","(A$,6) (B$)4A$B$A$:150 A$","(B$,3)A$:B$(B$,(B$)3):146 :"^":19:"!":19:"!":16:"PHI = -1"A\13:"DIRECTLY BELOW"rf18:"ENTER PHI VALUE (DEFAULT = .4) ";PHI$pPHI$""PH.4:2210z(PHI$)45(PHI$)57ĺ"":2080PH(PHI$)PH1PH12080:" RHO & D VALU) (THETA$)45(THETA$)57ĺ"":2000:TH(THETA$)A  G*/:" PHI VALUE - ABOVE, BELOW ":::413:"DIRECTLY ABOVE">16:"PHI = 1":19:"!":19:"!":19:(118)H35:"FROM":19:"+ <--- PHI = 0 SIDE":'R19 PARAMETERS K:" THETA VALUE - COMPASS POINTS ":::16:"NORTH = 0"::21:"!":8:"WEST = 270 --+-- EAST = 90":21:"!"::16:"SOUTH = 180"::"ENTER THETA VALUE (DEFAULT = 40) ";THETA$THETA$""TH40:2080:YHSV(J,2)FSV(J,3)1XVSV(J,1):YVSV(J,2):XHSV(I,1):YHSV(I,2)d V1(XHXV)2:V2(YHYV)2zXTXVV1:YTYVV2I27(11702V1V12:V2V22<XTXTVIV1FYTYTVIV2PIZXV,YVXT,YTdE""  INPUT OF1):QE(P(1),L,2):R1SV(Q,1)SV(P,1):R2SV(Q,2)SV(P,2)ZU1XTSV(P,1):U2YTSV(P,2)tU2R1U1R20VI1:{L PLOT VISIBLE PORTION OF EDGES WHICH ARE PARTLY HIDDEN SV(I,3)1XVSV(I,1):YVSV(I,2):XHSV(J,1)3)VI"VSV(I,3)SV(J,3)21140>`SV(I,3)SV(J,3)01260cjSV(I,1),SV(I,2)SV(J,1),SV(J,2)jtE}~"":T$::10 CLASSIFY ENDPOINTS OF EDGES AS VISIBLE OR HIDDEN VI1L1NEE(P(1),L,3)11240PE(P(1),L,4Y015910:139,Y139,Y5:YP >N$((N10.5)10):R$((R1800PI.5)10)v C:21:"N = "N$,"I = "I$,"R = "R$| H   CC1 X79YY(A) X139Y159: X139 Y79139(A)YY  9Y139,79 BTTIH139% D14TT,3 TAR:1000G ^139X,Y139,79S hT$:10Y r_ p IA(N)230y 800 AI:1000 139X,159Y139,79 139X,159Y139,79 &T$:10 ----------------------  %3 *0,79279,79 58(I$)48I110:1672 ----------------------A II180PIV SI(I): SIN(I)b NN2N1o N1500 N$((N10.5)10) RA((I)N) R$((R1800PI.5)10) :21:"N = "N$,"I = "I$,"R = "R$ 800 6AI:1000 @139X,15EX OF REFRACTION FOR THE REFRACTING MEDIUM ?"C x15:18:"";N2$_ N2$""Ģ15:(27):120m N2(N2$) 19:" WHAT IS THE ANGLE OF INCIDENCE ? " 21:18:"";I$ I(I$) I0I90Ģ21:(27):160 I$""Ģ21:(27):160 (I$) hT$:10 r ( IA(N)2301 800? AI:1000W 139X,159Y139,79o 139X,159Y139,79{ &T$:10 ----------------------  %3 *0,79279,79 4Y015910:139,Y139,Y5:Y >N$((N10.5)10):R$((R1800PI ----------------------) II180PI5 NN2N1B N1500Z N$((N10.5)10)k RA((I)N) R$((R1800PI.5)10) :21:"N = "N$,"I = "I$,"R = "R$ 800 6AI:1000 @139X,159Y139,79 TAR:1000 ^139X,Y139,79HE REFRACTING MEDIUM ?"+ x15:18:"";N2$G N2$""Ģ15:(27):120U N2(N2$) 19:" WHAT IS THE ANGLE OF INCIDENCE ? " 21:18:"";I$ I(I$) I0I90Ģ21:(27):160 I$""Ģ21:(27):160 (I$)58(I$)48I110:167 XX1(YY192A(X)(X(XX1))H<PI3.14159F6:" WHAT IS THE INDEX OF REFRACTION FOR THE INCIDENT MEDIUM ? "P9:18:"";N1$ZN1$""Ģ9:(27):80dN1(N1$) n12:" WHAT IS THE INDEX OF REFRACTION FOR T" " " "  we will delete that"6 "program from our library."> :g "WILLAMETTE APPLE CONNECTION, INC."{ "P.O. Box 7252 "SALEM, OREGON 97303-0053 ::-