% PERCENT COMPOSITION ASSESMENTJ BY MARK L. SEATVET APRIL 1983T "" "PERCENT COMPOSITION ASSESMENT" 53280,0 53281,0d ""n "INDICATE FIRST ELEMENT BY SYMBOL"; A$x "" A$; " 'S ATOMIC WEIGHT"; A1 ""7 "NUMBER OF UNITS"; U1B ""k A$; " CONSISTS OF" ;A1U1;" AMU'S" I 1 1500 : "" "INDICATE SECOND ELEMENT BY SYMBOL"; B$ "" B$; " 'S ATOMIC WEIGHT"; B2 ""  "NUMBER OF UNITS"; U2(  ""Q  B$; " CONSISTS OF" ;B2U2;" AMU'S"h " I 1 1500 : u  ""  "INDICATE THIRD ELEMENT BY SYMBOL"; C$  C$ "" 810  ""  C$;" 'S ATOMIC WEIGHT";  C3  ""  "NUMBER OF UNITS"; U3"  ""K  C$; " CONSISTS OF" ;C3U3;" AMU'S"b  I 1 1500 : o  ""  "INDICATE FOURTH ELEMENT BY SYMBOL"; D$  D$ "" 810  ""  D$;" 'S ATOMIC WEIGHT";  D4 & "" 0 "NUMBER OF UNITS"; U4 : ""F D D$; " CONSISTS OF" ;D4U4;" AMU'S"] N I 1 1500 : j X "" b "INDICATE FIFTH ELEMENT BY SYMBOL"; E$ g E$ "" 810 l "" v E$;" 'S ATOMIC WEIGHT";  E5  ""  "NUMBER OF UNITS"; U5  ""@  E$; " CONSISTS OF" ;E5U5;" AMU'S"W  I 1 1500 : d  ""  "INDICATE SIXTH ELEMENT BY SYMBOL"; F$  F$ "" 810  ""  F$;" 'S ATOMIC WEIGHT ";  F6  "" "NUMBER OF UNITS"; U6 "";  F$; " CONSISTS OF" ;F6U6;" AMU'S"R I 1 1500 : ]  ""~* "PRESS ANY NUMBER ";Z4 Z 0 900> Z 0 900H Z "" 900R Y0 400Y(A1U1)(B2U2)(C3U3)(D4U4)(E5U5)(F6U6) A(A1U1)Y1001 B(B2U2)Y100G C(C3U3)Y100] D(D4U4)Y100s E(E5U5)Y100 F(F6U6)Y100 """";A$;" IS" ;A; "%" """";B$;" IS" ;B; "%" """";C$;" IS" ;C; "%" ""$"";D$;" IS" ;D; "%". ""J"";E$;" IS" ;E; "%"T ""p$"";F$;" IS" ;F; "%"z- ""."";Y;" AMU'S TOTAL"7 ""8 "HIT ANY NUMBER : "9 "EMPIRICAL FORMULA"; EF: EF 0 3000; EF 0 3000# "7 AZ A(1A1)c A$;" EQUALS" ;AZ;" MOL/" ;A$;" ATOMS"m "" BZ B(1B2) B$;" EQUALS" ;BZ;" MOL/" ;B$;" ATOMS" "" C3 0 4000 CZ C(1C3) C3 0 4000# C$;" EQUALS" ;CZ;" MOL/" ;C$;" ATOMS"- ""C D4 0 4000W DZ D(1D4)m D4 0 4000 D$;" EQUALS" ;DZ;" MOL/" ;D$;" ATOMS" "" E5 0 4000 EZ E(1E5) E5 0 4000 E$;" EQUALS" ;EZ;" MOL/" ;E$;" ATOMS" ""/ F6 0 4000C FZ F(1F6)Y F6 0 4000 F$;" EQUALS" ;FZ;" MOL/" ;F$;" ATOMS" "" "INDICATE APPROPREATE DIVISOR"; DIV DIV 0 4000 "" AE AZDIV AE  "" BE BZDIV% BE2 ""D CE CZDIVM CEZ ""l DE DZDIVu DE "" EE EZDIV EE "" FE FZDIV I 1 2500 :  53280,0 53281,0 "EMPIRICAL FORMULA"# ""M A$;AE;B$;BE;C$;CE;D$;DE;E$;EE;F$;FEvp "ANOTHER ASSESSMENT? (Y/N)" ;u Q$z Q$ "Y" 2 Q$ "N"