2026-02-08 15:26:46 +00:00
|
|
|
FOR i=1 TO 9: PRINT AT i,0;" \{17}\{0}\{16}\{4}..............": NEXT i: LET p=22562: LET z=4
|
2026-02-07 14:12:04 +00:00
|
|
|
@walls:
|
2026-02-07 22:01:44 +00:00
|
|
|
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
|
2026-02-08 15:26:46 +00:00
|
|
|
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"))
|
|
|
|
|
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
|
2026-02-08 11:56:44 +00:00
|
|
|
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
|
2026-02-08 15:26:46 +00:00
|
|
|
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
|
