Reversi for IchigoJam

10 'Ichigo Reversi V1
50 CLS
60 FOR X=1TO8:POKE#900+X,#30+X
70 POKE#900+X*32,#30+X:NEXT
100 FOR X=1TO8:FOR Y=1TO8
110 LCX,Y:?CHR$(#90);:NEXT:NEXT
120 LC4,4:?"OX";:LC4,5:?"XO";
160 LC0,10:U=#4F:?CHR$(U)
200 T=U:IFU=#4F:U=#58 ELSE U=#4F
210 GOTO 800
300 'Return TO ADDRESS
310 IFPEEK(Y*32+X+#900)!=#90THEN?"error TRY AGAIN";:BEEP:WAIT(30):GOTO210
316 C=0
320 FORI=-1TO1:FORJ=-1TO1
330 IF(I=0ANDJ=0)GOTO500
340 K=1
350 [1]=PEEK(Y*32+X+#900+I*K+J*K*32)
370 IF[1]=T K=K+1:GOTO350
380 IF[1]!=U GOTO 500
400 K=K-1:IFK<1 GOTO500
410 C=C+1:POKEY*32+X+#900+(J*32+I)*K,U
420 GOTO400
500 NEXT:NEXT
510 IFC=0 LC0,13:?"Error":WAIT(60):GOTO210
520 LCX,Y:?CHR$(U);
530 GOTO 200
800 'TUGINO TE NYUURYOKU
806 FORX=#A40TO#AAF:POKEX,00:NEXT:LC0,10
810 ?CHR$(U),"NO BANN."
815 LC0,11
820 INPUT "Enter X",X
830 INPUT "Enter Y",Y
840 GOTO 300