View difference between Paste ID: 2P2V0MTT and KhW0V25f
SHOW: | | - or go back to the newest paste.
1-
var i=0,x=0,p=0,r=0,s="",m=s,t=" XO!":do:
1+
var i=0,x=0,p=0,r=0,s="",m=s,t=" XO!":do
2-
i=instr(m,"!"):if i=0then read x,p,s:m="": _
2+
i=instr(m,"!"):if i=0then read x,p,s:m="":_
3-
while s[i]:r=s[i]-48:i+=1:m+=chr(t[3and r\16], _
3+
while s[i]:r=s[i]-48:i+=1:m+=chr(t[3and r\16],_
4-
t[3and r\4],t[3and r])+iif(i mod x,"",!"\n"): _
4+
t[3and r\4],t[3and r])+iif(i mod x,"",!"\n"):_
5-
wend:r=p:s=m:x=x*3+1:if x=1then end
5+
wend:r=p:s=m:x=x*3+1:if x=1then end                       
6
cls:?m:locate 1+p\x,1+p mod x,0:?"@
7-
dim as byte k(7)={-1,1,0,0,0,0,x,-x}:
7+
dim as byte k(7)={-1,1,0,0,0,0,x,-x}
8
i=k(7and((getkey-97)\3)):var n=p+i,c=@m[n],d=@m[n+i]
9
if i then:select case*c\9:case 3:p=n:case 8,4
10
if*d=32then*d=*c:*c=32:p=n
11
if*d=33then*c=*d+(*c=79):*d=43:p=n
12
end select:else p=r:m=s:endif:loop
13-
data 3,71,"5E041E41150=E5MB4MBTE@40ED0", _
13+
data 3,71,"5E041E41150=E5MB4MBTE@40ED0",_
14
4,29,"1EE010101810EDA0B010@IA@OP@@O00@EEE@