From 064f93ed35de3e99cc3ba5a9fa7d88da2ed3d96f Mon Sep 17 00:00:00 2001
From: Neil McPhail <neil@themcphails.uk>
Date: Sun, 8 Feb 2026 21:38:23 +0000
Subject: [PATCH] Make game play at constant speed

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

diff --git a/game.tap b/game.tap
index cc15fc67e0899359004709e6a2c485c249cd3de6..fddb44eb54cc3c073b9295f6ba3c0f3bdaefae84 100644
GIT binary patch
delta 120
zcmcc4eu-U7n1O+zATe110(LSpGVEjy-n~)Gmx-}zatf32<T*_8f;y&r3=FIc3_2!2
zngvKtUdJrX!pp!BIC(#lo$$vjTa6V-8k$;%voy7{tiGh{R83Z3c4Z8ooW|@SXaLj$
O1UiO5nvsElHy8ke^BOY%

delta 143
zcmcb_ew|%Rn1O+zATe110`@U8GVEgxKCn^Dmx(caatf0%%a?SWs>#!s6j*o}I1(p6
zVzN{Im1S$d2h_&EaQb7G?TRD~O{*uSKmk?;1|1V1&BDMi*_hdtF@JI;vxlY`P=pO3
WqhkT&a{&2JBXkUbd`1QaUU>kFdmC~9

diff --git a/list.txt b/list.txt
index 15602e3..4b6ad53 100644
--- a/list.txt
+++ b/list.txt
@@ -4,7 +4,7 @@
     4 LET g=22831: POKE 22689,129: POKE 22704,129: FOR s=1 TO 85 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: POKE g,z: LET j=g-p: DATA 4,4,4
-    8 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
+    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
+    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 6,4,8,0,1
+   10 LET s=s+1*(q=4): NEXT s: RUN : DEF FN a(l,n)=n*(PEEK (l+n)<>56): DATA 0,1
diff --git a/pac.bas b/pac.bas
index 38c7e5d..568695f 100644
--- a/pac.bas
+++ b/pac.bas
@@ -5,7 +5,7 @@
     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 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 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 6,4,8,0,1
\ No newline at end of file
+    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