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

Make game play at constant speed

Browse Source
This commit is contained in:
Neil McPhail
2026-02-08 21:38:23 +00:00
parent bf39665d16
commit 064f93ed35
3 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
game.tap
View File

Binary file not shown.

6
list.txt
View File

@@ -4,7 +4,7 @@
4 LET g=22831: POKE 22689,129: POKE 22704,129: FOR s=1 TO 85 STEP 0: LET k$=INKEY$ 4 LET g=22831: POKE 22689,129: POKE 22704,129: FOR s=1 TO 85 STEP 0: LET k$=INKEY$
5 BEEP .002,s/3: LET n=FN a(p,(32*(k$="d"))-(32*(k$="e"))-(k$="o")+(k$="p")) 5 BEEP .002,s/3: LET n=FN a(p,(32*(k$="d"))-(32*(k$="e"))-(k$="o")+(k$="p"))
6 LET a=(a*NOT n)+n: POKE p,0: LET q=PEEK (p+a): LET p=p+a*(q<>56): DATA 6,3,8,4,2 6 LET a=(a*NOT n)+n: POKE p,0: LET q=PEEK (p+a): LET p=p+a*(q<>56): DATA 6,3,8,4,2
7 LET p=p+(-14*a*(q>99)): LET q=PEEK p: POKE p,54: POKE g,z: LET j=g-p: DATA 4,4,4 7 LET p=p+(-14*a*(q>99)): LET q=PEEK p: POKE p,54: LET j=g-p: DATA 4,4,4,5,4,6,4,8
8 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 8 LET j=FN a(g,32*(j<-18))+FN a(g,-32*(j>18)): LET j=(FN b()*NOT j)+j: POKE g,z
9 LET b=j-(b*NOT j): LET g=g+b: LET z=PEEK g: POKE g,40: IF z=54 OR q=40 THEN RUN 9 LET b=j-(b*NOT j): LET g=g+b: LET z=PEEK g: POKE g,40: IF z=54 OR q=40 THEN RUN
10 LET s=s+1*(q=4): NEXT s: RUN : DEF FN a(l,n)=n*(PEEK (l+n)<>56): DATA 6,4,8,0,1 10 LET s=s+1*(q=4): NEXT s: RUN : DEF FN a(l,n)=n*(PEEK (l+n)<>56): DATA 0,1

6
pac.bas
View File

@@ -5,7 +5,7 @@
LET g=22831: POKE 22689,129: POKE 22704,129: FOR s=1 TO 85 STEP 0: LET k$=INKEY$ LET g=22831: POKE 22689,129: POKE 22704,129: FOR s=1 TO 85 STEP 0: LET k$=INKEY$
BEEP .002,s/3: LET n=FN a(p,(32*(k$="d"))-(32*(k$="e"))-(k$="o")+(k$="p")) BEEP .002,s/3: LET n=FN a(p,(32*(k$="d"))-(32*(k$="e"))-(k$="o")+(k$="p"))
LET a=(a*NOT n)+n: POKE p,0: LET q=PEEK (p+a): LET p=p+a*(q<>56): DATA 6,3,8,4,2 LET a=(a*NOT n)+n: POKE p,0: LET q=PEEK (p+a): LET p=p+a*(q<>56): DATA 6,3,8,4,2
LET p=p+(-14*a*(q>99)): LET q=PEEK p: POKE p,54: POKE g,z: LET j=g-p: DATA 4,4,4 LET p=p+(-14*a*(q>99)): LET q=PEEK p: POKE p,54: LET j=g-p: DATA 4,4,4,5,4,6,4,8
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 j=FN a(g,32*(j<-18))+FN a(g,-32*(j>18)): LET j=(FN b()*NOT j)+j: POKE g,z
LET b=j-(b*NOT j): LET g=g+b: LET z=PEEK g: POKE g,40: IF z=54 OR q=40 THEN RUN LET b=j-(b*NOT j): LET g=g+b: 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,1 LET s=s+1*(q=4): NEXT s: RUN: DEF FN a(l,n)=n*(PEEK (l+n)<>56): DATA 0,1