0 Members and 1 Guest are viewing this topic.
:.ATST3:[F09090F000000000]?Pic1:[F0F0F0F000000000]?Pic2:48?D:For(T,2,15):For(S,0,23):If rand^2:1?{D+L1}:Pt-Change(S*4,T*4,Pic2):End:D++:End:End:4?X?Y:Repeat getKey(15):Y/4*24+(X/4)+L1?I:Y/4*24+(X+3/4)+L1?J:Y+3/4*24+(X/4)+L1?N:Y+3/4*24+(X+3/4)+L1?O:If getKey(48):ClrHome:Disp "I",{I}?Dec,i,"J",{J}?Dec,i,"N",{N}?Dec,i,"O",{O}?Dec,i,I?Dec,J?Dec,i,N?Dec,O?Dec:.those are the newline "i"s btw:While getKey(48):Pause 10:End:End:If getKey(1):If getKey(54):ClrHome:Disp {I+24}?Dec,{J+24}?Dec:While getKey(54):Pause 10:End:End:If {I+24} or {J+24}:Else:Y++:End:End::If getKey(4):If getKey(54):ClrHome:Disp {N-24}?Dec,{O-24}?Dec:While getKey(54):Pause 10:End:End:If {N-24} or {O-24}:Else:Y--:End:End::If getKey(2):If getKey(54):ClrHome:Disp {J-1}?Dec,{O-1}?Dec:While getKey(54):Pause 10:End:End:If {J-1} or {O-1}:Else:X--:End:End::If getKey(3):If getKey(54):ClrHome:Disp {I+1}?Dec,{N+1}?Dec:While getKey(54):Pause 10:End:End:If {I+1} or {N+1}:Else:X++:End:End:Pt-Change(X,Y,Pic1):DispGraph:Pt-Change(X,Y,Pic1):End