1 BORDER 0: POKE 23624,64: POKE 23693,64: CLS : OVER 0: INVERSE 0: LET o$=CHR$ 0: LET i$=CHR$ 1: LET a$="3#4$1%4'4)6+6,5-3.5.1/3050515465666758296=4>1F6F5J1M3N5O2P4R3S4T1W1X2Z4Z5Z4[3£5£4a5a1b0c4c3d5d0g3i2n0o4o5o5p5q4r5r4t4u4v5x0y5y4{3|4|3}4}2©DPLA": LET b$=a$(139 TO ): LET c$=CHR$ 21+i$+CHR$ 16+o$+CHR$ 17+CHR$ 7+CHR$ 19+i$+CHR$ 128: LET d$=CHR$ 18+i$+CHR$ 19+o$+CHR$ 17+CHR$ 2+b$(1)+CHR$ 17+CHR$ 6+b$(2)+CHR$ 17+CHR$ 4+b$(3)+CHR$ 17+CHR$ 5+b$(4): LET e$=CHR$ 20+i$+d$: LET f$=CHR$ 22+i$+o$+"0 OK, "+CHR$ 20+i$+b$+CHR$ 20+o$+":1": LET a=69: LET b=128: LET c=11: LET d=21: LET e=1: LET f=3190: RANDOMIZE : LET g=INT (RND*2)*2-1: PRINT CHR$ 163'': IF SCREEN$ (0,1)=CHR$ 32 THEN LET a=a-2: LET e=e+4
   2 FOR h=0 TO 19: PRINT d$;: PRINT TAB 28;e$: NEXT h: LET e$=CHR$ 22+CHR$ 21+CHR$ 28+e$: LET d$=CHR$ 22+CHR$ 21+o$+d$
   3 IF INKEY$<>"" THEN OUT 254,17: OUT 254,0: GO TO 3
   4 LET h=c+2: LET i=2*INT (RND*a)+e: PRINT d$;: PRINT TAB VAL a$(i)+c; INK INT (RND*6)+1;CHR$ (CODE a$(i+1)+b): PRINT e$
   5 FOR j=1 TO 4: LET k=h+j: IF SCREEN$ (d,k)=b$(j) THEN PRINT AT d,k;c$
   6 NEXT j: LET l=c+g: LET c=l: LET h=c+2: IF l<6 OR l>12 THEN LET g=-g
   7 IF INKEY$="" THEN LET m=USR f: GO TO 4
   8 BORDER 0: POKE 23693,7: PRINT #1; BRIGHT INT (RND*2);f$: IF INKEY$<>"" THEN OUT 254,16: GO TO 8
9999 REM "DPLA TOxNz" (my tokens in ZX Spectrum BASIC 16/128K w/ support of CPU acceleration) V1 (precalc. 16K+ RAM): 2024-01-09