View difference between Paste ID: UxudGmNx and Gq6w6any
SHOW: | | - or go back to the newest paste.
1-
var x=0,p=0,r=0,s="",m=s:do:
1+
var i=0,x=0,p=0,r=0,s="",m=s,t=" XO!":do:
2-
if instr(m,"!")=0then read x,p,m:r=p:s=m:if m=""then end
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)], _
4
t[3and(r\4)],t[3and(r)])+iif(((i)mod x),"",!"\n"): _
5-
var i=k(7and((getkey-97)\3)),n=p+i,c=@m[n],d=@m[n+i]
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}:
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-
data 10,71,!" XXXXX   \n X   XXXX\n X   X  X\n XX    !X\n" _
10+
11-
"XXX XXX!X\nX O X X!X\nX OOX XXX\nX   X    \nXXXXX    \n", _
11+
12-
11,29,!"  XXXXXXX \n  X     X \n  X O   X \nXXXXX X X \n" _
12+
13-
"X O     X \nX  XOXX XX\nX!!O  X  X\nX!!      X\nXXXXXXXXXX\n",0,0,"
13+
data 3,71,"5E041E41150=E5MB4MBTE@40ED0", _
14-
14+
4,29,"1EE010101810EDA0B010@IA@OP@@O00@EEE@