mcphail/BASIC10Liner2026
Private
Public Access
1
0
Fork 0
Code Activity

Make autorun work without program name clobbering play

Browse Source
This commit is contained in:
Neil McPhail
2026-02-08 14:18:53 +00:00
parent 3305baccd7
commit fe4ef0640a
3 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Makefile
View File

@@ -1,6 +1,6 @@
all: game.tap all: game.tap
game.tap: pac.bas 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: clean:
rm -f *.tap rm -f *.tap

BIN
game.tap
View File

Binary file not shown.

2
pac.bas
View File

@@ -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: @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 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 IF a THEN PRINT AT a,b;" ";AT a,17-b;" ";AT 10-a,b;" ";AT 10-a,17-b;" ": GO TO @walls