The comp.sys.sinclair Crap Games Competition 2021: 25th edition extravaganza!

[R-Tape]

Not looking. I'm still getting phone reminders every day at 10am to climb this mountain myself.

[Pobulous]

Finally gave this game a look - it's definitely worth a go.

I've got the emulator at 200% which makes the early game insta-deaths less penalising.

I'll try my best before peeking at the RZX.

[TMD2003]

@R-Tape and @Pobulous - if you get stuck, ask me first before looking at the RZX and I'll give a hint. The RZX might have a few extra spoilers.

[C.Born]

@equinox

Because I like truffles....

By priming the system variables:
23662/23663 OLDPPC - Line number to which CONTINUE jumps.
23664 OSPCC - Number within line of statement to which CONTINUE jumps.

...You can use CONTINUE effectively as a GOTO a sub-statement within a line.

so

Code: Select all

5 print "Hello ";
10 poke 23662,100
15 poke 23663,0
20 poke 23664,3
25 continue
30 stop

100 print "Goodbye":print "There ":print "World"

Prints "Hello World".

ok dan
my reworked vars lister from "zakboekje voor de ZX Spectrum" page 162
which infact has a BUG
line 9969 should be
IF var >128 AND ...

i would like it fully as a one-liner

Code: Select all

 80 LET abc=1: LET b$=STR$ 1: DIM c(1): DIM d$(1): FOR b=1 TO 1: NEXT b
  
8000 DEF FN p(a)=PEEK a+256*PEEK (a+1): LET p=FN p(23627)
8010 LET v=PEEK p: LET t=(v<=95)+2*(v>95 AND v<=127)+3*(v>128 AND v<=159)+4*(v>159 AND v<=191)+5*(v>191 AND v<=223)+6*(v>223)
8012 IF t=1 OR t=3 OR t=5 THEN  LET t=32*(t=1)-32*(t>1)-64*(t>3): PRINT CHR$ (v+t);"$ " AND t<>3;"() " AND t>1;: LET p=p+1: LET l=FN p(p): LET p=p+l+2: PRINT l
8014 IF t=2 THEN  PRINT CHR$ v: LET p=p+6
8021 IF t=4 THEN  PRINT CHR$ (v-64);: LET p=p+1: LET v=PEEK p: POKE 23664,7+3*(v>127): CONTINUE : PRINT CHR$ v;: POKE 23664,3: CONTINUE : PRINT CHR$ (v-128): LET p=p+6
8022 IF t=6 THEN  PRINT " FOR  NEXT ";CHR$ (v-128): LET p=p+19
8028 IF v<>128 THEN  GO TO 8010

EDIT
it does NOT see DEF FN, thats why i removed line 8826