\START85\
\COMMENT=Program file dated 12/22/98, 16:35
\NAME=chem
\FILE=C:\TI85LINK\PROGRAMS\CHEM.85P
:ClLCD
:Disp " AP Chemistry Notes"
:Disp "Version 2.1, c. 1998":Disp ""
:Disp "  \LC-beta\\LC-gamma\ \hexA\ndy Schech\LC-tau\er"
:Pause 
:Lbl B1
:ClLCD
:Disp "1. Polyatomic Ions"
:Disp "2. Periodic Table"
:Disp "3. Gases"
:Disp "4. Oxidation States"
:Disp "5. Endo. & Exo."
:Disp "6. Molecular Shapes"
:Menu(5,"exit",A5,1,"pick",A1,3,"next",A3,4,"help",A4,2,"prev",B2)
:Lbl A3
:ClLCD
:Disp "7. Bonds"
:Disp "8. Solutions"
:Disp "9. Nuclear & Waves"
:Disp "10. Atomic Structure"
:Disp "11. Heat"
:Menu(5,"exit",A5,1,"pick",A1,3,"next",B2,4,"help",A4,2,"prev",B1)
:Lbl B2
:ClLCD
:Disp "12. Don't choose!"
:Menu(5,"exit",A5,1,"pick",A1,3,"next",B1,4,"help",A4,2,"prev",A3)
:Lbl A1
:Input K
:ClLCD
:If K==1
:Then
:Disp "Polyatomic Ions:"
:Disp "C2 H3 O2 \(-)\1 acetate"
:Disp "C2 O4 \(-)\2 oxalate"
:Disp "Cl O \(-)\1 hypochlorite"
:Disp "Cl O2 \(-)\1 chlorite"
:Disp "Cl O3 \(-)\1 chlorate"
:Disp "Cl O4 \(-)\1 perchlorate"
:Pause 
:Disp "C N \(-)\1 cyanide"
:Disp "C O3 \(-)\2 carbonate"
:Disp "Cr O7 \(-)\2 dichromate"
:Disp "Cr O4 \(-)\2 chromate"
:Disp "Mn O4 \(-)\1 permanganate"
:Disp "N H4 +1 ammonium"
:Disp "N O2 \(-)\1 nitrite"
:Pause 
:Disp "N O3 \(-)\1 nitrate"
:Disp "O H \(-)\1 hydroxide"
:Disp "P O3 \(-)\3 phosphite"
:Disp "P O4 \(-)\3 phosphate"
:Disp "H S O3 \(-)\1 bisulfite"
:Disp "S O3 \(-)\2 sulfite"
:Disp "S O4 \(-)\2 sulfate"
:Pause 
:Goto B1
:End
:If K==2
:Then
:Disp "Periodic Table:"
:Disp "- metals on left"
:Disp "- nonmetals on right"
:Disp "- metalloids: B,Si,As"
:Disp "  Ge,Te,Al,Sb,etc."
:Disp "atomic #= #p"
:Disp "mass #= #p + #n"
:Pause 
:Disp "Factors that affect:"
:Disp "1. main energy levels"
:Disp "2. e\(-)\ from diff. orb."
:Disp "3. paired or unpaired"
:Disp "4. Z(eff)=nuc. charge"
:Pause 
:Goto B1
:End
:If K==3
:Then
:Disp "Gases:"
:Disp "P=n*R*T/V=D*R*T/mw"
:Disp "R=62.4 mmHg L/mol \deg\K"
:Disp "R=.0821 atm L/mol \deg\K"
:Disp "R=8.31 J/mol \deg\K"
:Disp "v=\sqrt\(3*R*T/mw)"
:Disp "t2/t1=\sqrt\(mw1/mw2)"
:Pause 
:Disp "Ideal Gases:"
:Disp "- mols. have no vol."
:Disp "- mols. don't attract"
:Disp "- boiling point= 0\deg\K"
:Disp "- real P < ideal P"
:Disp "- real V > ideal V"
:Disp "(P+n\^2\a/V\^2\)(V-nb)=nRT"
:Pause 
:Goto B1
:End
:If K==4
:Then
:Disp "Oxidation States:"
:Disp "Fe,Co,Ni  +2,+3"
:Disp "Sn,Pb,Pt  +2,+4"
:Disp "Hg,Cu     +1,+2"
:Disp "Au,Tl     +1,+3"
:Disp "Mn        +2,+3,+4,+7"
:Disp "Cr        +2,+3,+6"
:Pause 
:Goto B1
:End
:If K==5
:Then
:Disp "Endothermic Reactions"
:Disp "-up in PE (s~l~g)"
:Disp "-absorbs heat"
:Disp "-stronger bonds"
:Disp "-\UC-Delta\H pos. (on left)"
:Pause 
:ClLCD
:Disp "Exothermic Reactions:"
:Disp "-down in PE (g~l~s)"
:Disp "-releases heat"
:Disp "-weaker bonds"
:Disp "-\UC-Delta\H neg. (on right)"
:Pause 
:Goto B1
:End
:If K==6
:Then
:Disp "Shapes:"
:Disp "X+E=2 linear  180\deg\"
:Disp "X+E=3 trig plane  120"
:Disp "X+E=4 tetrahed. 109.5"
:Disp "X+E=5 trig bipyramid"
:Disp "X+E=6 octahedral"
:Pause 
:Disp "X3 E1 trig pyramid"
:Disp "X4 E1 see-saw"
:Disp "X3 E2 T-shape"
:Disp "X5 E1 sqr pyramid"
:Disp "X4 E2 sqr planar"
:Disp "- X+E=# hybrids"
:Pause 
:Goto B1
:End
:If K==7
:Then
:Disp "Bonds:"
:Disp "ln P=\(-)\\UC-Delta\Hv/(R*T)+ln A"
:Disp "ln P vs. 1/T linear"
:Disp "  m=\(-)\\UC-Delta\Hv/R"
:Disp "- high vp=weak bond"
:Disp "net.: SiC,SiO2,C(g,d)"
:Pause 
:Disp "Stronger forces when:"
:Disp "dispersion: more e\(-)\"
:Disp "dipole: more e\(-)\"
:Disp "H-bonds: N,O,F"
:Disp "metallic: charge dens"
:Disp "ionic: F=kQ1Q2/r\^2\"
:Disp "network: very strong"
:
:Pause 
:Goto A3
:End
:If K==8
:Then
:Disp "Solutions:"
:Disp "- solute=dissolvee"
:Disp "- solvent=dissolver"
:Disp "n=M*V"
:Disp "m=n solute/kg solvent"
:Disp "T(b) H2O=100+m*.52\deg\C"
:Disp "T(f) H2O=-m*1.86\deg\C"
:Pause 
:Goto A3
:End
:If K==9
:Then
:Disp "Nuclear & Waves:"
:Disp "alpha=\LC-alpha\=4n,2p=He"
:Disp "beta=\LC-beta\=0n,0p,1e"
:Disp "gamma=\LC-gamma\=0n,0p,0e"
:Disp "E=mc\^2\=\UC-Delta\mc\^2\=\(-)\B/n\^2\"
:Disp "B=13.6 eV=1312 kJ/mol"
:Disp "c=3\E\8 m/s=3\E\17 nm/s"
:Pause 
:Disp "h=6.63\E\\(-)\34 J/photon"
:Disp "h=3.99\E\\(-)\13 kJ/mol"
:Disp "v=\LC-lambda\f=c in vacuum"
:Disp "E=hf=hc/\LC-lambda\"
:Disp "\LC-lambda\=h/m*v=h/p"
:Disp "KE=E(photon)-E(thr.)"
:Pause 
:Goto A3
:End
:If K==10
:Then
:Disp "Atomic Structure:"
:Disp "- Lyman=level 1=UV"
:Disp "- Balmer=level 2=vis."
:Disp "- Paschen=level 3=IR"
:Disp "- paramag=unpaired e\(-)\"
:Disp "QN1=main energy level"
:Disp "QN2=orbital=L"
:Pause 
:Disp " - s=0,p=1,d=2,f=3"
:Disp "QN3=magnetic - #=2L+1"
:Disp " - s=0,p=1,0,\(-)\1,d=..."
:Disp "QN4=spin=1/2,\(-)\1/2"
:Pause 
:Goto A3
:End
:If K==11
:Then
:Disp "Heat:"
:Disp "q=mc\UC-Delta\T=C\UC-Delta\T"
:Disp "\UC-Delta\H=kJ/mol=enthalpy"
:Disp "\UC-Delta\H=\UC-Delta\E-W=\UC-Delta\E+\UC-Delta\nRT"
:Disp "P\UC-Delta\V=\UC-Delta\nRT=\(-)\W=-\UC-Delta\E+q"
:Disp "- W+ =done on system"
:Disp "- \UC-Delta\H+ =absorbs heat"
:Pause 
:Disp "R=.00831 kJ"
:Disp "\UC-Delta\H=\UC-Sigma\\UC-Delta\Hf prod-\UC-Sigma\\UC-Delta\Hf r\#\
ct"
:Disp "\UC-Delta\H=\UC-Sigma\\UC-Delta\E(b)"
:Disp "- bond broken, \UC-Delta\E+"
:Disp "\UC-Delta\S=q/T=\UC-Sigma\S prod-\UC-Sigma\S rct"
:Disp "no entrapy:"
:Disp " 0\deg\K, perfect crystal"
:Pause 
:Disp "spontaneous:"
:Disp " \UC-Delta\S(sys) > q(sys)/T"
:Disp " \UC-Delta\S(sys)+\UC-Delta\S(surr) > 0"
:Disp " \UC-Delta\G < 0, K > 1"
:Disp "\UC-Delta\G=\UC-Delta\H-T\UC-Delta\S=\(-)\R*T ln K"
:Disp "\UC-Delta\G=\UC-Sigma\\UC-Delta\G prod-\UC-Sigma\\UC-Delta\G rct\#\
"
:Disp "\UC-Delta\G=\UC-Delta\G\deg\+RT ln K"
:Pause 
:Goto A3
:End
:If K==12
:Then
:Disp "You've disobeyed!"
:Goto A5
:End
:Disp "Bad number!"
:Pause 
:Goto B1
:Lbl A4
:ClLCD
:Outpt(1,1,"If you want help, youbetter beg!"
:Pause 
:Goto B1
:Lbl A5
\STOP85\