Make autorun work without program name clobbering play
This commit is contained in:
2
Makefile
2
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
|
||||
|
||||
2
pac.bas
2
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
|
||||
|
||||
Reference in New Issue
Block a user