user_punchCd.inc

USER_PUNCH
# headings depends on database used - they must be in ascending alphabetic order ignoring ()
-heading pH Cd(OH)2 Cd(OH)3- Cd(OH)4-2 Cd+2 Cd2OH+3 CdCl+ CdCl2 CdCl3- CdNO3+ CdOH+ CdOHCl
-start
10 punch -la("H+")
20 Cdt=SYS("Cd",n,n$,t$,c)
30 rem sort array n long
40 gosub 1000
50 for i=1 to n
60   punch 100*c(i)/Cdt
65   print i, n$(i)          # but printed output only if PRINT is true
70 next i
80 print
90 end

include 'sort.inc'