dim statnames$(6)
data "STR", "CON", "DEX", "INT", "WIS", "CHA"
for i = 1 to 6
    read statnames$(i)
next i
dim stat(6)
acceptable = false

while 1
    sum = 0 : n15 = 0
    for i = 1 to 6
        stat(i) = rollstat()
        sum = sum + stat(i)
	if stat(i) >= 15 then n15 = n15 + 1
    next i
    if sum >= 75 and n15 >= 2 then exit while
wend

for i = 1 to 6
    print statnames$(i); ": "; stat(i)
next i
print "-------"
print "TOT: "; sum
end

function d6()
    d6 = 1 + int(rnd(1) * 6)
end function

function rollstat()
    a = d6() : b = d6() : c = d6() : d = d6()
    rollstat = a + b + c + d - min(min(a, b), min(c, d))
end function