do
z=peek(0)
line input""a$
a$=chr$(z)+a$
for i=1to 7c$=mid$(a$,i,1)
m=m+("-"=c$)
u=u+("_"=c$)next
s=s+m
if m?s
s=s+u
if u?s
m=0
u=0loop