diff --git a/game.tap b/game.tap index ed45668..4101e69 100644 Binary files a/game.tap and b/game.tap differ diff --git a/pac.bas b/pac.bas index 42c4e21..99af620 100644 --- a/pac.bas +++ b/pac.bas @@ -6,6 +6,6 @@ LET k$=INKEY$: LET n=FN a(p,(32*(k$="d"))-(32*(k$="e"))-(k$="o")+(k$="p")) LET b=(b*NOT n)+n: POKE p,0: LET q=PEEK (p+b): LET p=p+b*(q<>56): DATA 6,3,8,4,2 LET p=p+(-14*b*(q>99)): LET q=PEEK p: POKE p,54: POKE g,z: LET j=g-p: DATA 4,4,4 - LET j=FN a(g,32*(j<-31))+FN a(g,-32*(j>31)): IF j=0 THEN LET j=FN b(): DATA 5,4 + LET j=FN a(g,32*(j<-18))+FN a(g,-32*(j>18)): IF j=0 THEN LET j=FN b(): DATA 5,4 LET x=j-(x*NOT j): LET g=g+x: LET z=PEEK g: POKE g,40: IF z=54 OR q=40 THEN RUN LET s=s+1*(q=4): NEXT s: RUN: DEF FN a(l,n)=n*(PEEK (l+n)<>56): DATA 6,4,8,0,0 \ No newline at end of file