Calculating percentages using csnobol4

percent.sno

#!/bin/sh
exec snobol4 -b  "$0" "$@"
-INCLUDE "/usr/lib/snobol4/1.4.1/bq.sno"
        FLOAT = Span('01234567890.')
        SPACES = Span(' ')
        T = table()
        input('readline', 1, , '/home/mcarter/.mcacc/work/s3/epics.rep')

mine    readline 'mine' :F(mine)
norm    line = readline
        line 'Grand:' SPACES FLOAT . grand :S(report)
        line Span(&ucase  '.') . key SPACES FLOAT SPACES FLOAT SPACES FLOAT . fvalue
        T[key] = fvalue :(norm)

report
        A = convert(T, 'ARRAY')
        idx = 0
reploop
        idx = idx + 1
        ticker = a[idx, 1] :F(END)
        pc =  100 * A[idx,2] / grand
        output = BQ('printf "%-6s %6.2f\n" "'  ticker '" '   pc)
        :(reploop)
END