for i=1to 100b=b+asc(mid$("N<H48H354@8@;548445K817893879314D84G93944;>34488314134=:549;48<<4E6=88534431539;43153452584G55?;1<53",i))-48
?b
next