' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' TABLA PERIODICA ELEMENTOS QUIMICOS COLOR 4, 15: CLS COLOR 8, 15 LOCATE 2, 77: PRINT "Ü" FOR a = 3 TO 14 LOCATE a, 77: PRINT "Û" NEXT LOCATE 2, 9: PRINT "Ü" LOCATE 3, 9: PRINT "Û" LOCATE 4, 13: PRINT "Ü" LOCATE 5, 13: PRINT "Û" LOCATE 6, 13: PRINT "Û" LOCATE 7, 13: PRINT "Û" LOCATE 15, 25: PRINT "Û"; STRING$(52, "ß") LOCATE 16, 25: PRINT "Û" LOCATE 17, 5: PRINT STRING$(21, "ß") LOCATE 18, 73: PRINT "Ü" FOR a = 19 TO 22 LOCATE a, 73: PRINT "Û" NEXT LOCATE 23, 17: PRINT STRING$(57, "ß") COLOR 15, 4 LOCATE 2, 4: PRINT "ÚÄÄÄ¿" LOCATE 3, 4: PRINT "³ H ³" LOCATE 4, 4: PRINT "ÃÄÄÄÅÄÄÄ¿" LOCATE 5, 4: PRINT "³ Li³ Be³" LOCATE 6, 4: PRINT "ÃÄÄÄÅÄÄÄ´" LOCATE 7, 4: PRINT "³ Na³ Mg³" LOCATE 8, 4: PRINT "ÃÄÄÄÅÄÄÄÅÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄ´" LOCATE 9, 4: PRINT "³ K ³ Ca³ Sc³ Ti³ V ³ Cr³ Me³ Fe³ Co³ Ni³ Cu³ Zn³ Ga³ Ge³ As³ Se³ Br³ Kr³" LOCATE 10, 4: PRINT "ÃÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄ´" LOCATE 11, 4: PRINT "³ Rb³ Sr³ Y ³ Zr³ Nb³ Mo³ Tc³ Ru³ Rh³ Pd³ Ag³ Cd³ In³ Sn³ Sb³ Te³ I ³ Xe³" LOCATE 12, 4: PRINT "ÃÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄ´" LOCATE 13, 4: PRINT "³ Cs³ Ba³ La³ Hf³ Ta³ W ³ Re³ Os³ Ir³ Pt³ Au³ Hg³ Tl³ Pb³ Bi³ Po³ At³ Rn³" LOCATE 14, 4: PRINT "ÃÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÙ" LOCATE 15, 4: PRINT "³ Fr³ Ra³ Ac³ Ku³ Ha³" LOCATE 16, 4: PRINT "ÀÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÙ" LOCATE 2, 72: PRINT "ÚÄÄÄ¿" LOCATE 3, 72: PRINT "³ He³" LOCATE 4, 52: PRINT "ÚÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÅÄÄÄ´" LOCATE 5, 52: PRINT "³ B ³ C ³ N ³ O ³ S ³ Ne³" LOCATE 6, 52: PRINT "ÃÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄ´" LOCATE 7, 52: PRINT "³ Al³ Si³ P ³ S ³ Cl³ Ar³" LOCATE 18, 16: PRINT "ÚÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄ¿" LOCATE 19, 16: PRINT "³ Ce³ Pr³ Nd³ Pm³ Sm³ Eu³ Gd³ Tb³ Dy³ Ho³ Er³ Tm³ Yb³ Lu³" LOCATE 20, 16: PRINT "ÃÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄ´" LOCATE 21, 16: PRINT "³ Th³ Pa³ U ³ Np³ Pu³ Am³ Cm³ Bk³ Cf³ Es³ Fm³ Md³ No³ Lr³" LOCATE 22, 16: PRINT "ÀÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÙ" COLOR 7, 7