**TI85** Program file dated 02/25/03, 18:13€ qCHEMSYMqoDisp "Type in the chemical","symbol.","","(Case sensitive)"ÖPause ÖClLCD:InpSt "Boron ",x:If x"B":Disp "Wrong. B":Pause ÖClLCD:InpSt "Magnesium ",x:If x"Mg":Disp "Wrong. Mg":Pause ÖClLCD:InpSt "Galium ",x:If x"Ga":Disp "Wrong. Ga":Pause ÖClLCD:InpSt "Helium ",x:If x"He":Disp "Wrong. He":Pause ÖClLCD:InpSt "gold ",x:If x"Au":Disp "Wrong. Ö Au":Pause ÖCILCD:InpSt "Silver ",x:If x"Ag":Disp "Wrong. ÖAu":Pause ÖClLCD:InpSt "Xenon",x:If x"Xn":Disp "Wrong. ÖXn":PauseÖClLCD:InpSt "Tin",x:If x"Sn":Disp "Wrong. Sn":PauseÖClLCD:InpSt "Plutonium",x:If x"Pu":Disp "wrong. Pu":PauseÖ+Ä