1 BORDER 0: POKE 23624,64: PO
KE 23693,64: CLS : OVER 0: INVER
SE 0: LET o$=CHR$ 0: LET i$=CHR$
 1: LET a$="3#4$1%4'4)6+6,5-3.5.
1/3050515465666758296=4>1F6F5J1M
3N5O2P4R3S4T1W1X2Z4Z5Z4[3£5£4a5a
1b0c4c3d5d0g3i2n0o4o5o5p5q4r5r4t
4u4v5x0y5y4{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 CH
R$ 163'': IF SCREEN$ (0,1)=CHR$ 
32 THEN LET a=a-2: LET e=e+4
   2 FOR h=0 TO 19: PRINT d$;: P
RINT TAB 28;e$: NEXT h: LET e$=C
HR$ 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: PRI
NT #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