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 4101e69..5a50934 100644 Binary files a/game.tap and b/game.tap differ 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