AlphaGo-Kifu-playback V2.0 for IchigoJam

' AlphaGo Kifu playback
' Platform: IchigoJam V1 and after
' Revesiton 2.0

10 'igo kifu
100 L=#A5:M=#E8:N=#900:Q=19:CLS:FORY=1TOQ:C=Y*32+N:FORX=1TOQ:C=C+1:POKEC,L:NEXT:NEXT:S=3814:B=0:T=760
160 IFX>Q?"END":END
170 X=PEEK(S):IFX<#F0Y=(X&#F)+1:X=(X>>4)+1ELSES=S+1:Y=PEEK(S):X=(X<<3+Y>>5)&#1f+1:Y=Y&#1F+1
180 C=N+Y*32+X
610 POKEC,M+B:B=B^1:E=B|#F8:FORY=1TOQ:C=Y*32+N:FORX=1TOQ:C=C+1:IFPEEK(C)=B|MPOKEC,E
660 NEXT:NEXT
670 E=M+B:F=0:FORY=1TOQ:C=Y*32+N:FORX=0TOQ:C=C+1:IFPEEK(C)<#F8GOTOT
710 D=PEEK(C-1):IF(D=L)|(D=E)POKEC,E:F=1:GOTOT
720 D=PEEK(C+1):IF(D=L)|(D=E)POKEC,E:F=1:GOTOT
730 D=PEEK(C+32):IF(D=L)|(D=E)POKEC,E:F=1:GOTOT
740 D=PEEK(C-32):IF(D=L)|(D=E)POKEC,E:F=1
760 NEXT:NEXT:IFFGOTO670
770 FORY=1TOQ:C=Y*32+N:FORX=1TOQ:C=C+1:IFPEEK(C)&#FE=#F8:POKEC,L
790 NEXT:NEXT:S=S+1:GOTO160
OK


'kifu

POKE3814,241,227,240,111,35,242,15,241,207,241,208,241,176,241,240,45
POKE3830,240,176,241,143,242,13,130,57,241,238,242,14,240,79,240,80
POKE3846,240,48,46,240,47,30,240,112,240,143,62,29,240,113,44,241
POKE3862,47,38,67,242,5,242,4,241,229,211,241,232,233,232,217,199
POKE3878,240,207,240,208,61,60,94,240,239,126,78,77,93,76,75,92
POKE3894,109,91,110,74,58,59,43,71,56,241,233,242,8,242,37,242
POKE3910,38,163,125,236,242,36,242,35,242,69,88,106,124,141,123,174
POKE3926,241,79,98,53,131,146,100,54,37,39,23,55,24,115,116,99
POKE3942,83,114,84,66,103,82,104,136,122,138,139,140,137,155,153,133
POKE3958,172,171,185,186,190,184,169,40,41,201,241,177,241,145,241,112
POKE3974,241,111,241,144,241,175,241,113,188,167,118,242,2,242,3,242
POKE3990,34,241,226,242,67,102,36,19,242,1,120,150,121,225,241,225
POKE4006,241,224,209,52,68,105,119,73,213,197,196,242,42,87,75,215
POKE4022,214,182,183,198,230,166,216,151,208,168,200,152,210,193,227,194
POKE4038,226,241,81,241,146,142,241,15,158,157,241,17,240,241,242,11
POKE4054,242,43,242,12,242,44,14,28,189,173,206,20,4,5,3,192
POKE4070,176,224,51,22,177,241,237,237,240,145,240,81,240,175,241,16
POKE4086,240,240,242,9,242,41,241,82,242,148