From bf39665d16002b9613564ca33b8711a0572875ec Mon Sep 17 00:00:00 2001
From: Neil McPhail <neil@themcphails.uk>
Date: Sun, 8 Feb 2026 15:27:03 +0000
Subject: [PATCH] Add autolisting

---
 Makefile |  8 ++++++--
 list.txt | 10 ++++++++++
 2 files changed, 16 insertions(+), 2 deletions(-)
 create mode 100644 list.txt

diff --git a/Makefile b/Makefile
index c2c6189..dc16b9e 100644
--- a/Makefile
+++ b/Makefile
@@ -1,8 +1,12 @@
-all: game.tap
+all: game.tap list.txt
+
+list.txt: game.tap
+	listbasic game.tap > list.txt
+	
 game.tap: pac.bas
 	zmakebas -l -i 1 -s 1 -n pac -a 1 -o game.tap pac.bas
 
 clean:
-	rm -f *.tap
+	rm -f *.tap list.txt
 
 .PHONY: all clean
\ No newline at end of file
diff --git a/list.txt b/list.txt
new file mode 100644
index 0000000..15602e3
--- /dev/null
+++ b/list.txt
@@ -0,0 +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$
+    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
+    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