anarchy golf - the source code

196 algorithm by pooq

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

Note that non-ascii characters in the above source code will be escaped (such as \x9f).