'IchigoJam IGO playback

'PCG oattern
POKE#700+8*24,60,102,195,129,129,195,102,60,60,126,255,255,255,255,126,60

10 'igo kifu
100 L=#A5:M=#E8:N=#900:Q=19:CLS:FORX=1TOQ:FORY=1TOQ:POKEN+Y*32+X,L:NEXT:NEXT:S=3814:B=0:T=760
160 IFS>#1000THEN?"END":END
170 GOSUB900
190 GSB610
200 S=S+1:GOTO160
610 POKEC,M+B:B=B^1:R=S:FORS=3814TOR:GOSUB900
620 IFPEEK(C)=B|MPOKEC,B|#F8
660 NEXT
670 F=0:R=S:FORS=3814TOR:GSB900
700 IFPEEK(C)<#F8GOTOT
710 D=PEEK(C-1):IF(D=L)|(D=M+B)POKEC,M+B:F=1:GOTOT
720 D=PEEK(C+1):IF(D=L)|(D=M+B)POKEC,M+B:F=1:GOTOT
730 D=PEEK(C+32):IF(D=L)|(D=M+B)POKEC,M+B:F=1:GOTOT
740 D=PEEK(C-32):IF(D=L)|(D=M+B)POKEC,M+B:F=1
760 NEXT:IFFGOTO670
770 R=S:FORS=3814TOR:GOSUB900
780 D=PEEK(C):IFD&#FE=#F8:POKEC,L
790 NEXT
800 RTN
900 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
910 C=N+Y*32+X:RTN

'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