From 20ea46db9a14c3964920bb0f5f5dcae9d9a53a30 Mon Sep 17 00:00:00 2001
From: d_m <d_m@plastic-idolatry.com>
Date: Tue, 16 Jul 2024 22:03:21 -0400
Subject: [PATCH] skip held cards in waste

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

diff --git a/kodiak.tal b/kodiak.tal
index 450c6c8..4b6a660 100644
--- a/kodiak.tal
+++ b/kodiak.tal
@@ -140,6 +140,7 @@
     &ok                               ( lim^ zp^ c^ )
         #0008 .Screen/y DEO2          ( lim^ zp^ c^ ; y<-8 )
         LIT2 [ &x $2 ] .Screen/x DEO2 ( lim^ zp^ c^ ; x<- )
+        DUP #80 AND ?&done            ( lim^ zp^ c^ )
         draw-c                        ( lim^ zp^ ; draw c )
     ,&x LDR2 #0008 ADD2 ,&x STR2      ( lim^ zp^ ; x<-x+8 )
     INC GTHk ?&loop                   ( lim^ zp+1^ )