From fe4ef0640a9106a2a7e2a08e79d352e639f460c2 Mon Sep 17 00:00:00 2001 From: Neil McPhail Date: Sun, 8 Feb 2026 14:18:53 +0000 Subject: [PATCH] Make autorun work without program name clobbering play --- Makefile | 2 +- game.tap | Bin 970 -> 972 bytes pac.bas | 2 +- 3 files changed, 2 insertions(+), 2 deletions(-) diff --git a/Makefile b/Makefile index d140352..c2c6189 100644 --- a/Makefile +++ b/Makefile @@ -1,6 +1,6 @@ all: game.tap game.tap: pac.bas - zmakebas -l -i 1 -s 1 -n pac -o game.tap pac.bas + zmakebas -l -i 1 -s 1 -n pac -a 1 -o game.tap pac.bas clean: rm -f *.tap diff --git a/game.tap b/game.tap index 4101e69dd359867e708c48f3c3d79e41fb3f13d6..5a50934cf6b97911173f96246e6aa2ce6ac52f32 100644 GIT binary patch delta 73 zcmX@beumvnn1O+zATe110yZ-r7iiJ_ZIx28J`1K$??*!RqUp UOdTU2n~8zJT4|$QFEist0DGhm_5c6? diff --git a/pac.bas b/pac.bas index 99af620..841f8f1 100644 --- a/pac.bas +++ b/pac.bas @@ -1,4 +1,4 @@ - FOR i=1 TO 9: PRINT AT i,2;"\{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 x=1 @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