SOLUTION 1Na 1Cl 1Zn 1S(6) 1 chargeUSER_PRINT-start 10 t = SYS("aq", count, name$, type$, moles, 1) 20 PRINT "Species Molality Z Eq/kgw" 30 FOR i = 1 TO count 40 s$ = SPECIES_FORMULA$(name$(i), count1, species$, coef) 50 FOR j = 1 TO count1 60 IF species$(j) <> "charge" THEN GOTO 110 70 IF coef(j) = 0 THEN GOTO 120 80 PRINT PAD$(name$(i), 15), moles(i), coef(j), moles(i)*coef(j) 90 IF coef(j) > 0 THEN anions = anions+coef(j)*moles(i) ELSE cations = cations+coef(j)*moles(i)100 GOTO 120110 NEXT j120 NEXT i130 PRINT "Cations, eq: ", cations140 PRINT "Anions, eq: ", anions150 END-end