n=mod(peek(0)*4,5):?n,".";:for i=1to 50?asc(mid$(",\x01DB;\x01J(\x1f3D\x01k9X@a9!\x01FP\xc2\xd0b=-^\xdcM\x01&a\x01C\xd1\xfeOV3=TFQd-5Cb9\x01\!\F!\xcf[)5-[\xd0%<A/\xb2\x95\x01M\x1b\x01\x010\xdb\x01wAB\x013V[,\xaa.G>RC\x1b\x1f43Rc72\x05V\x01\xdcV[G7=Q\xc7)@\x1c\x81#JCR+\xb7\x01\x01Z8\xbbUM] M\x1e\xd7\x1c<\x04 B\x7f3\x01JESB\x8d:K\x05\x09\x02",i+n*50))-1,"";next
Note that non-ascii characters in the above source code will be escaped (such as \x9f).