From 4efbb83d4fc918552cec7e318726d356a3d877a6 Mon Sep 17 00:00:00 2001
From: Frederic L <27208977+FreddyFunk@users.noreply.github.com>
Date: Wed, 9 Aug 2023 21:36:10 +0200
Subject: [PATCH] gomoko: fix "intelligent move" coordinates

---
 40_Gomoko/gomoko.bas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/40_Gomoko/gomoko.bas b/40_Gomoko/gomoko.bas
index 662cca13..d57c10a1 100644
--- a/40_Gomoko/gomoko.bas
+++ b/40_Gomoko/gomoko.bas
@@ -28,7 +28,7 @@
 440 A(I,J)=1
 500 REM *** COMPUTER TRIES AN INTELLIGENT MOVE ***
 510 FOR E=-1 TO 1: FOR F=-1 TO 1: IF E+F-E*F=0 THEN 590
-540 X=I+F: Y=J+F: GOSUB 910
+540 X=I+E: Y=J+F: GOSUB 910
 570 IF L=0 THEN 590
 580 IF A(X,Y)=1 THEN 710
 590 NEXT F: NEXT E