for i=0to 99n=n+asc(mid$("<\x18\x08*\x12\x12
\x0e\x0c6$\x1e\x06\x1c\x02\x04\x14\x18
\x18\x1aL\x0e@ \x04\x0e\x10\x0c\x02<\x12\x12\x1e4\x02(\x08\x12
8\x06\x0c.*\x02\x06F\x1a\x10\x1e\x14\x12
\x0c2F\x0c\x12\x0c\x02\x10\x02R\x12\x0c&\x1e\x10\x0e\x1e\x1c\x0c\x14
D
\x18\x06\x0c><\x18\x0c\x0c$\x04\x0c\x14\x18L\x06\x08
D4 ",i))
?"324161",n+87507next
Note that non-ascii characters in the above source code will be escaped (such as \x9f).