From 44a8aceb6269b55379d46257c5c740abb61425c8 Mon Sep 17 00:00:00 2001
From: 4am <a2_4am@sent.com>
Date: Thu, 17 Nov 2022 01:06:05 -0500
Subject: [PATCH] add Gamco variant [fixes Percent]

---
 src/patchers/gamco.a | 16 +++++++++++++++-
 src/strings/en.a     |  2 +-
 2 files changed, 16 insertions(+), 2 deletions(-)

diff --git a/src/patchers/gamco.a b/src/patchers/gamco.a
index d5be264..66e9581 100644
--- a/src/patchers/gamco.a
+++ b/src/patchers/gamco.a
@@ -16,12 +16,26 @@
          !byte $33,$32,$01,$30,$03,$31,$39,$31
          !byte $03,$31,$32,$38,$02,$31,$31,$02
          !byte $39,$36
-         bcs   .exit      ; passport-test-suite/Essential Grammar.woz [C=0] matches
+         bcs   .var2      ; passport-test-suite/Essential Grammar.woz [C=0] matches
          jsr   PrintByID
          !byte s_poke
          jsr   modify
          !byte $34,$34,$01,$30,$02,$31,$30,$03
          !byte $32,$33,$34,$03,$31,$36,$39,$02
          !byte $33,$39
+         bvc   .exit
+.var2
+         ldy   #$12
+         jsr   SearchTrack
+         !byte $32,$01,$30,$03,$31,$39,$31,$03
+         !byte $31,$32,$38,$03,$32,$35,$30,$02
+         !byte $33,$31
+         bcs   .exit      ; passport-test-suite/Percent (Gamco).woz [C=0] matches
+         jsr   PrintByID
+         !byte s_poke
+         jsr   modify
+         !byte $36,$01,$30,$03,$31,$36,$39,$03
+         !byte $31,$32,$38,$03,$31,$36,$39,$02
+         !byte $33,$39
 .exit
 }
diff --git a/src/strings/en.a b/src/strings/en.a
index f148f61..02f1d05 100755
--- a/src/strings/en.a
+++ b/src/strings/en.a
@@ -373,7 +373,7 @@ StringTableHigh           ; must be kept in sync with constants in enid.a
 .passport
          !text "Passport ",$00
 .header
-         !text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2022-08-04",$00
+         !text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2022-11-17",$00
 .bar9
          !text "_________",$00
 .bar18