0 Members and 1 Guest are viewing this topic.

:.B:[18183C3C3C000000020F1E0E0400000000001C1F1F1C0000000000040E1E0F02→Pic1:[0000003C3C3C1818000000207078F040000038F8F838000040F0787020000000:[0000001818000000→Pic2:[0000183C3C180000:0→X→Y:0→T→S:Pic1→D:0→B:Repeat getKey(15):If getKey(2):6→B:End:If getKey(3):2→B:End:If getKey(4):0→B:End:If getKey(1):4→B:End:If getKey(4) and getKey(2):7→B:End:If getKey(2) and getKey(1):5→B:End:If getKey(3) and getKey(4):1→B:End:If getKey(3) and getKey(1):3→B:End:If getKey(54):S+(getKey(3)-getKey(2)*2)→S:T+(getKey(1)-getKey(4)*2)→T:End:Pt-Off(X/256,Y/256,B*8+Pic1:If getKey(54):If (B=1) or (B=3) or (B=5) or (B=7):Pt-On(X/256,Y/256,Pic2:Else:Pt-On(X/256,Y/256,Pic2+8:End:End:S/2+X→X:T/2+Y→Y:If S:If S<<0:S+1→S:Else:S-1→S:End:End:If T:If T<<0:T+1→T:Else:T-1→T:End:End:If X<<0:DrawInv :X+22528→X:End:If X>>22528:X-22528→X:End:If Y<<0:Y+14336→Y:End:If Y>>14336:Y-14336→Y:End::DispGraph:End:Return:Lbl AA:For(A,0,1):For(B,0,1):Pt-Change(8*B+X,8*A+Y,2*A+B*8+D):End:End

:If S:If S<<0:S+1→S:Else:S-1→S:End:End:If T:If T<<0:T+1→T:Else:T-1→T:End:End