for i=1to 195w=i
v=0
while(w<>v)w=w+v
a$=str$(w,"%.0f")
c$=""
for b=1to len(a$)c$=mid$(a$,b,1)+c$next
v=val(c$)wend
?c$next