From ab08ce5dff164b246b249c44932959309ac15800 Mon Sep 17 00:00:00 2001
From: Neil McPhail <neil@themcphails.uk>
Date: Sun, 8 Feb 2026 15:26:46 +0000
Subject: [PATCH] Add sound

---
 game.tap | Bin 972 -> 983 bytes
 pac.bas  |  14 +++++++-------
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/game.tap b/game.tap
index 5a50934cf6b97911173f96246e6aa2ce6ac52f32..cc15fc67e0899359004709e6a2c485c249cd3de6 100644
GIT binary patch
delta 159
zcmX@Zew|%Rn1O+zATe110`@U8GVEgxJ}^<tpS{Y~gpYxNWn#`%{&<Fu>9$5j7RH7^
z5&g)?(Tv^-Rv)ufY?tveutqXm*E29M;;Ud5%A286tZxid!_2@ic>|*-OQNkt;^e=K
zlAMW}Rv!y&3$zm_%QJa1CQi;~+8~%@o29Ffq;)t8D3@-VuAMYlhj}_D$O=XV23~mp
D%|t0u

delta 168
zcmcc4euiC4n1O+zATe110yZ-<GHhlJ-a1jtpS{A?kdJ|ZabnI@sT78f>9$5j7RDeE
z{YVC@k5#rNKqd>r<N!u*E?x#!Plk`#Dz?ie?`HH=OS08S(mI@{shwx_r9j63s169M
zJ{H>U(<snR(zN<mU<;%tYcY8<CQUA5+8|hAo29E!p>;S5D3@-Vu3a(NoOwDYR3q<Z
E0B&F{p8x;=

diff --git a/pac.bas b/pac.bas
index 841f8f1..38c7e5d 100644
--- a/pac.bas
+++ b/pac.bas
@@ -1,11 +1,11 @@
-    FOR i=1 TO 9: PRINT AT i,0;"  \{17}\{0}\{16}\{4}..............": NEXT i: LET p=22562: LET x=1
+    FOR i=1 TO 9: PRINT AT i,0;"  \{17}\{0}\{16}\{4}..............": NEXT i: LET p=22562: LET z=4
 @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: LET z=4: POKE 22689,129: POKE 22704,129: FOR s=1 TO 85 STEP 0
-    LET k$=INKEY$: LET n=FN a(p,(32*(k$="d"))-(32*(k$="e"))-(k$="o")+(k$="p"))
-    LET b=(b*NOT n)+n: POKE p,0: LET q=PEEK (p+b): LET p=p+b*(q<>56): DATA 6,3,8,4,2
-    LET p=p+(-14*b*(q>99)): LET q=PEEK p: POKE p,54: POKE g,z: LET j=g-p: DATA 4,4,4
+    LET g=22831: POKE 22689,129: POKE 22704,129: FOR s=1 TO 85 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: POKE g,z: LET j=g-p: DATA 4,4,4
     LET j=FN a(g,32*(j<-18))+FN a(g,-32*(j>18)): IF j=0 THEN LET j=FN b(): DATA 5,4
-    LET x=j-(x*NOT j): LET g=g+x: 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 6,4,8,0,0
\ No newline at end of file
+    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 6,4,8,0,1
\ No newline at end of file