From ab118735df66d6c3bd9ceceb5b094c42c3a698b2 Mon Sep 17 00:00:00 2001
From: Neil McPhail <neil@themcphails.uk>
Date: Sun, 8 Feb 2026 21:57:42 +0000
Subject: [PATCH] Sacrifice some maze for victory sound

---
 game.tap | Bin 978 -> 979 bytes
 list.txt |   6 +++---
 pac.bas  |   6 +++---
 3 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/game.tap b/game.tap
index fddb44eb54cc3c073b9295f6ba3c0f3bdaefae84..927a62230c14e09dd7718b9cc4be7edcb913fbd4 100644
GIT binary patch
delta 96
zcmcb_ewkfNn1O+zATe110(LPoGVEdw-m_7xjFHunkAWd_^F&59#>vN-#QAg#fP5g(
lF$B_#lkYIiVT_nu$t){)9V`Hn0IA?&V3<6WS&NA`1OWQn6F2|>

delta 86
zcmcc2eu-U7n1O+zATe110(LSpGVEjy-n~(*jFHupkAWd{^F&592$Oa48YZR5_n2le
ehEJ|!mYuwUSyR~Ri2+a%5a<{JX+{PH-e3T4rxKz7

diff --git a/list.txt b/list.txt
index 4b6ad53..555850e 100644
--- a/list.txt
+++ b/list.txt
@@ -1,10 +1,10 @@
     1 FOR i=1 TO 9: PRINT AT i,0;"  ..............": NEXT i: LET p=22562: LET z=4
     2 READ a: READ b: DEF FN b()=FN a(g,(g-p<0))+FN a(g,-(g-p>0)): DATA 1,8,2,3,2,4,2
     3 IF a THEN PRINT AT a,b;" ";AT a,17-b;" ";AT 10-a,b;" ";AT 10-a,17-b;" ": GO TO 2
-    4 LET g=22831: POKE 22689,129: POKE 22704,129: FOR s=1 TO 85 STEP 0: LET k$=INKEY$
+    4 LET g=22831: POKE 22689,129: POKE 22704,129: FOR s=1 TO 89 STEP 0: LET k$=INKEY$
     5 BEEP .002,s/3: LET n=FN a(p,(32*(k$="d"))-(32*(k$="e"))-(k$="o")+(k$="p"))
     6 LET a=(a*NOT n)+n: POKE p,0: LET q=PEEK (p+a): LET p=p+a*(q<>56): DATA 6,3,8,4,2
-    7 LET p=p+(-14*a*(q>99)): LET q=PEEK p: POKE p,54: LET j=g-p: DATA 4,4,4,5,4,6,4,8
+    7 LET p=p+(-14*a*(q>99)): LET q=PEEK p: POKE p,54: LET j=g-p: DATA 4,4,4,6,4,8,0,1
     8 LET j=FN a(g,32*(j<-18))+FN a(g,-32*(j>18)): LET j=(FN b()*NOT j)+j: POKE g,z
     9 LET b=j-(b*NOT j): LET g=g+b: LET z=PEEK g: POKE g,40: IF z=54 OR q=40 THEN RUN 
-   10 LET s=s+1*(q=4): NEXT s: RUN : DEF FN a(l,n)=n*(PEEK (l+n)<>56): DATA 0,1
+   10 LET s=s+1*(q=4): NEXT s: BEEP 1,10: RUN : DEF FN a(l,n)=n*(PEEK (l+n)<>56)
diff --git a/pac.bas b/pac.bas
index 568695f..fffb636 100644
--- a/pac.bas
+++ b/pac.bas
@@ -2,10 +2,10 @@
 @walls:
     READ a: READ b: DEF FN b()=FN a(g,(g-p<0))+FN a(g,-(g-p>0)): DATA 1,8,2,3,2,4,2
     IF a THEN PRINT AT a,b;" ";AT a,17-b;" ";AT 10-a,b;" ";AT 10-a,17-b;" ": GO TO @walls
-    LET g=22831: POKE 22689,129: POKE 22704,129: FOR s=1 TO 85 STEP 0: LET k$=INKEY$
+    LET g=22831: POKE 22689,129: POKE 22704,129: FOR s=1 TO 89 STEP 0: LET k$=INKEY$
     BEEP .002,s/3: LET n=FN a(p,(32*(k$="d"))-(32*(k$="e"))-(k$="o")+(k$="p"))
     LET a=(a*NOT n)+n: POKE p,0: LET q=PEEK (p+a): LET p=p+a*(q<>56): DATA 6,3,8,4,2
-    LET p=p+(-14*a*(q>99)): LET q=PEEK p: POKE p,54: LET j=g-p: DATA 4,4,4,5,4,6,4,8
+    LET p=p+(-14*a*(q>99)): LET q=PEEK p: POKE p,54: LET j=g-p: DATA 4,4,4,6,4,8,0,1
     LET j=FN a(g,32*(j<-18))+FN a(g,-32*(j>18)): LET j=(FN b()*NOT j)+j: POKE g,z
     LET b=j-(b*NOT j): LET g=g+b: LET z=PEEK g: POKE g,40: IF z=54 OR q=40 THEN RUN
-    LET s=s+1*(q=4): NEXT s: RUN: DEF FN a(l,n)=n*(PEEK (l+n)<>56): DATA 0,1
\ No newline at end of file
+    LET s=s+1*(q=4): NEXT s: BEEP 1,10: RUN : DEF FN a(l,n)=n*(PEEK (l+n)<>56)
\ No newline at end of file