ClrHome:Disp "John Chen's"," Chem-Converter"
Pause 
ClrHome
1üT
Menu("Unit of Measure:","Moles",M,"Particles",P,"Volume (L)",V,"Mass (g)",G)
Lbl V:1+TüT
Lbl G:1+TüT
Lbl P:1+TüT
Lbl M
If T=1:Input "Moles=",M:ClrHome
If T=4:Then:Input "Volume (L)=",A:A/22.4üM:End
If T=2:Then:Input "Particles/atoms=":A/(6.02û23)üM:End
If T=3:Input "Total Mass (g)=",G
If Tĝ3:Then:Output(7,2,"Molar Mass="):Output(8,2,"Unknown"):
1üC:0üK:Repeat K=105:getKeyüK:If K=25:1üC:If K=34:2üC
If K>0:Then:Output(7,1," "):Output(8,1," "):End:Output(6+C,1,">"):End
End
If C=1 or T=3:Then:ClrHome
Disp "Cl=35.45 S=32.06","C=12.01 O=16.00","H=1.008 U=238","S=32.06 Br=79.90","Fe=55.85 N=14.01","Ca=40.08 F=19.00"
Input "Molar Mass=",N
End
If T=3:G/NüM

ClrHome
Disp "Mole=","Atom=","Volm=","Mass="
Output(1,6,M)
Output(2,6,6.02û23*M)
If C=1 or T=3:Then:Output(4,6,M/N):Else:Output(4,1,"     ")
Output(3,6,22.4*M)