for i=1to 250c=asc(mid$("_\x88~\x9d\xdf\xd2\xe6\xea\xda\xdax\xb6\xc6\xa2\x9e\xb8\xa0\x8a\xcb\x95\x9a\xe2\xcb\xdf\xb2\xc5\xd8\x94\x9b\xab\xda\x94\xcc\xb2\xc0\xa6\x94\x8a\xea\x8e\xaa\xd3\xcax\x95\xa6\xd7\xa3\x8b\x9b\xad\xae\xb9z\xde\xca\x9f\xc6\xea\xcb\x93\x8f\xc4\x9d\xc6\x90\x9c\x9f\xe8\x85\xe9\x85~\xbe\xca\xc4\x95\xa0\xab\x9e\x9d\xea\xd6\xb8\xbb\xa3\xbb\x96\x7f\xc3\xd9\x91\xc0\x88\x85\xeb\xd8\xe4\x8e\xd0\xde\xbe\xb9x\xd2\xc4\xea\xb4\x82\x89\xbf\xc7x}\x91\x90w\x9e\x84\x94\xe8\xab\xc6\xc0\xe4\xa0\x9b\x88\xaa\xd9\xa7\xd3\xdb}\x8fx\xa9\xd6\xb2\xde\xe9\xab\xb6\xce\xe6\xa8\x88\xba\xe8\x9f\xac\xc6\xaa\xe6\xa8w\xaa\x91\xca\x89\xa9\xe6\xce\xa6\xbb\xb8\xae\xd0\xde{\xdf\xad\x9d\xaf\x92\x84\xb4\xaa\xd2}\xc4\xce~\x8b\xdb\xae|\xad\xeb\xde\x89\xa8v\xc5\x93\xcb\xb2\xb9\xcb\xd3\xde\xa9\xbf\x94\xc3\xa8\xaf\xca\xdb\x7f\xe8}zv\xd8\x8fw\x92\xc5\x84\xd1\x83\xcb\xd1~\x9f\xb3\x85\x89\x86\x82\xcb\xa6\xc4\xb8\xeb\xa7\xc4\xd3\xdf\xa1\xcb\x88\xb5|\xbe}\xd2\xda\xca",i))-92 ?chr$(mod(c,12)+46),chr$(int(c/12)+46);next ?1
Note that non-ascii characters in the above source code will be escaped (such as \x9f).