%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:1994 File Name:LANTHANI Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Lbl 1:\ClrText \Locate 2,1,"58" \Locate 9,1,"Ce" \Locate 14,1,"140,116" \Locate 9,3,"CERIUM" \Locate 1,5,"[Xe]4f2.5d0.6s2" \Prog "CHOIX CL" \If \theta=38:\Then 3\->X:\Return:\IfEnd \theta=27\=>\Goto2 \If \theta=39:\Then 3\->X:\Return:\IfEnd \theta=29\=>\GotoZ \Lbl 2:\ClrText \Locate 2,1,"59" \Locate 9,1,"Pr" \Locate 14,1,"140,908" \Locate 9,3,"PRASEODYME" \Locate 1,5,"[Xe]4f3.5d0.6s2" \Prog "CHOIX CL" \theta=38\=>\Goto1 \theta=27\=>\Goto3 \If \theta=39:\Then 3\->X:\Return:\IfEnd \theta=29\=>\GotoZ \Lbl 3:\ClrText \Locate 2,1,"60" \Locate 9,1,"Nd" \Locate 14,1,"144,24" \Locate 9,3,"NEODYME" \Locate 1,5,"[Xe]4f4.5d0.6s2" \Prog "CHOIX CL" \theta=38\=>\Goto2 \theta=27\=>\Goto4 \If \theta=39:\Then 3\->X:\Return:\IfEnd \theta=29\=>\GotoZ \Lbl 4:\ClrText \Locate 2,1,"61" \Locate 9,1,"Pm" \Locate 14,1,"145" \Locate 9,3,"PROMETHIUM" \Locate 1,5,"[Xe]4f5.5d0.6s2" \Prog "CHOIX CL" \theta=38\=>\Goto3 \theta=27\=>\Goto5 \If \theta=39:\Then 3\->X:\Return:\IfEnd \theta=29\=>\GotoZ \Lbl 5:\ClrText \Locate 2,1,"62" \Locate 9,1,"Sm" \Locate 14,1,"150,36" \Locate 9,3,"SAMARIUM" \Locate 1,5,"[Xe]4f6.5d0.6s2" \Prog "CHOIX CL" \theta=38\=>\Goto4 \theta=27\=>\Goto6 \If \theta=39:\Then 3\->X:\Return:\IfEnd \theta=29\=>\GotoZ \Lbl 6:\ClrText \Locate 2,1,"63" \Locate 9,1,"Eu" \Locate 14,1,"151,964" \Locate 9,3,"EUROPIUM" \Locate 1,5,"[Xe]4f7.5d0.6s2" \Prog "CHOIX CL" \theta=38\=>\Goto5 \theta=27\=>\Goto7 \If \theta=39:\Then 3\->X:\Return:\IfEnd \theta=29\=>\GotoZ \Lbl 7:\ClrText \Locate 2,1,"64" \Locate 9,1,"Gd" \Locate 14,1,"157,25" \Locate 9,3,"GADOLINIUM" \Locate 1,5,"[Xe]4f7.5d1.6s2" \Prog "CHOIX CL" \theta=38\=>\Goto6 \theta=27\=>\Goto8 \If \theta=39:\Then 3\->X:\Return:\IfEnd \theta=29\=>\GotoZ \Lbl 8:\ClrText \Locate 2,1,"65" \Locate 9,1,"Tb" \Locate 14,1,"158,925" \Locate 9,3,"TERBIUM" \Locate 1,5,"[Xe]4f9.5d0.6s2" \Prog "CHOIX CL" \theta=38\=>\Goto7 \theta=27\=>\Goto9 \If \theta=39:\Then 3\->X:\Return:\IfEnd \theta=29\=>\GotoZ \Lbl 9:\ClrText \Locate 2,1,"66" \Locate 9,1,"Dy" \Locate 14,1,"162,50" \Locate 9,3,"DYSPROSIUM" \Locate 1,5,"[Xe]4f10.5d0.6s2" \Prog "CHOIX CL" \theta=38\=>\Goto8 \theta=27\=>\GotoA \If \theta=39:\Then 3\->X:\Return:\IfEnd \theta=29\=>\GotoZ \Lbl A:\ClrText \Locate 2,1,"67" \Locate 9,1,"Ho" \Locate 14,1,"164,930" \Locate 9,3,"HOLMIUM" \Locate 1,5,"[Xe]4f11.5d0.6s2" \Prog "CHOIX CL" \theta=38\=>\Goto9 \theta=27\=>\GotoB \If \theta=39:\Then 3\->X:\Return:\IfEnd \theta=29\=>\GotoZ \Lbl B:\ClrText \Locate 2,1,"68" \Locate 9,1,"Er" \Locate 14,1,"167,26" \Locate 9,3,"ERBIUM" \Locate 1,5,"[Xe]4f12.5d0.6s2" \Prog "CHOIX CL" \theta=38\=>\GotoA \theta=27\=>\GotoC \If \theta=39:\Then 3\->X:\Return:\IfEnd \theta=29\=>\GotoZ \Lbl C:\ClrText \Locate 2,1,"69" \Locate 9,1,"Tm" \Locate 14,1,"168,934" \Locate 9,3,"THULIUM" \Locate 1,5,"[Xe]4f13.5d0.6s2" \Prog "CHOIX CL" \theta=38\=>\GotoB \theta=27\=>\GotoD \If \theta=39:\Then 3\->X:\Return:\IfEnd \theta=29\=>\GotoZ \Lbl D:\ClrText \Locate 2,1,"70" \Locate 9,1,"Yb" \Locate 14,1,"173,04" \Locate 9,3,"YTTERBIUM" \Locate 1,5,"[Xe]4f14.5d0.6s2" \Prog "CHOIX CL" \theta=38\=>\GotoC \theta=27\=>\GotoE \If \theta=39:\Then 3\->X:\Return:\IfEnd \theta=29\=>\GotoZ \Lbl E:\ClrText \Locate 2,1,"71" \Locate 9,1,"Lu" \Locate 14,1,"174,967" \Locate 9,3,"LUTETIUM" \Locate 1,5,"[Xe]4f14.5d1.6s2" \Prog "CHOIX CL" \theta=38\=>\GotoD \theta=27\=>\GotoE \If \theta=39:\Then 3\->X:\Return:\IfEnd \theta=29\=>\GotoZ \Lbl Z:\Prog "FIN" %End