Smiley face by twobit

for i=1to 130a=asc(mid$("\xca\x16\xf0\x8a\x16\xea\xe6\xfc\xe6\\xf9\xe6\x8a\xe0\xd9\xc6\xb1\x97\xb4\x95\xa0\x93\x16\x8c\x91\x16\x8ey\x16yxbfyw\x8f\x92xv\xa6\xa9xu\xa6\xa9x^\x91\xa9bt\x91|ctMQ\xee\x16\xf2\x16\xf2\x16\xf2\x16\xf25>\xed5>\xedLS\xedcRz]dfduz{zu\xee\x8a{v\xee\{w\xf0\x17|x\xac}\x90\x16\x8e\x91\x16\x8c\xa9\xa0\xab\xb5\xc3\xc8\xdc\xdb\xf6.\xe8.\xf9\xe6\\xfc\xe6\x16\xea\x8a\x16\xef\x11",i))
while(a)b$="#"
q=q+1
d=23
if(mod(a,d))b$=".":d=1
a=a-d:?b$;
if(!mod(q,44))?
wend
next

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

download

return to the top page