From e879f67e751ca4caa8d1cb3b7319405b7d8351c8 Mon Sep 17 00:00:00 2001
From: d_m <d_m@plastic-idolatry.com>
Date: Wed, 17 Jul 2024 10:38:16 -0400
Subject: [PATCH] skip invalid grabs

---
 kodiak.tal | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/kodiak.tal b/kodiak.tal
index 4b6a660..576808a 100644
--- a/kodiak.tal
+++ b/kodiak.tal
@@ -384,10 +384,13 @@
         LTH2 ?&match                  ( i^ top^ row^ [n*] )
         POP2r POP2 &no POP #00 JMP2r  ( 0^ )
     &match                            ( i^ top^ row^ [n*] )
+        LDZk #40 AND ?&cancel         ( i^ top^ row^ [n*] )
         STH2 SWP2r column-x           ( x* [top^ row^ n*] )
         STH2r #0008 MUL2 #001c ADD2   ( x* y=28+8n* [top^ row^] )
         STH2r SWP                     ( x* y* row^ top^ )
         start-drag draw #01 JMP2r     ( 1^ )
+    &cancel                           ( i^ top^ row^ [n*] )
+        POP2 POP POP2r #00 JMP2r      ( 0^ )
 
 
 ( @on-click-up ( -> )