From ef3b557c0d31c5ad1f49146ff7162e58731d1d0d Mon Sep 17 00:00:00 2001
From: Neil McPhail <neil@themcphails.uk>
Date: Sun, 8 Feb 2026 22:48:17 +0000
Subject: [PATCH] Improve format of the autolisting

---
 Makefile                | 12 +++++++++---
 list.txt => listing.txt | 10 +++++++++-
 2 files changed, 18 insertions(+), 4 deletions(-)
 rename list.txt => listing.txt (54%)

diff --git a/Makefile b/Makefile
index dc16b9e..3300e6e 100644
--- a/Makefile
+++ b/Makefile
@@ -1,7 +1,13 @@
-all: game.tap list.txt
+all: game.tap listing.txt
 
-list.txt: game.tap
-	listbasic game.tap > list.txt
+listing.txt: game.tap
+	echo "DEC-Man Listing for the 2026 BASIC 10Liner Competition (PUR-80 Category) by mcphail (btl AT mcphail.uk)" > $@
+	echo "-------------------------------------------------------------------------------------------------------" >> $@
+	echo "\n (Note - Line 1 has 4 extra control characters before the line of dots for PAPER BLACK and INK GREEN." >> $@
+	echo "  These characters are shown in the listing as € signs.)\n" >> $@
+	echo "....> ---------|---------|---------|---------|---------|---------|---------|---------|" >> $@
+	listbasic game.tap | sed 's/"  /"  €€€€/' >> $@
+	echo "....> ---------|---------|---------|---------|---------|---------|---------|---------|" >> $@
 	
 game.tap: pac.bas
 	zmakebas -l -i 1 -s 1 -n pac -a 1 -o game.tap pac.bas
diff --git a/list.txt b/listing.txt
similarity index 54%
rename from list.txt
rename to listing.txt
index 555850e..6b449c6 100644
--- a/list.txt
+++ b/listing.txt
@@ -1,4 +1,11 @@
-    1 FOR i=1 TO 9: PRINT AT i,0;"  ..............": NEXT i: LET p=22562: LET z=4
+DEC-Man Listing for the 2026 BASIC 10Liner Competition (PUR-80 Category) by mcphail (btl AT mcphail.uk)
+-------------------------------------------------------------------------------------------------------
+
+ (Note - Line 1 has 4 extra control characters before the line of dots for PAPER BLACK and INK GREEN.
+  These characters are shown in the listing as € signs.)
+
+....> ---------|---------|---------|---------|---------|---------|---------|---------|
+    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 89 STEP 0: LET k$=INKEY$
@@ -8,3 +15,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
     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: BEEP 1,10: RUN : DEF FN a(l,n)=n*(PEEK (l+n)<>56)
+....> ---------|---------|---------|---------|---------|---------|---------|---------|