9999:  BORDER 0: PAPER 0: CLEAR 
USR "a"-512: LET u=23606: LET b=
u+18: LET s=b+69: POKE b,70: POK
E s,70: LET a=USR "a"-511: LET c
=a-392: LET a$="CgGc1U5Q3W7SAeEa
LpPl:^>Z<£@\JnNjDhHd2V6R4X8TBfFb
KoOk9]=Y;_?[ImMi": DIM b$(64): F
OR n=1 TO 32: LET b$(n)=CHR$ (n+
48): LET b$(65-n)=CHR$ (80+n): N
EXT n: POKE b,22: PRINT #1;AT 0,
0;"  BUSY  ": OVER 1: FOR n=1 TO
 64: PLOT CODE a$(n)-49,0: FOR f
=0 TO 7: POKE a+(n-1)*8+f,PEEK (
22432+f): NEXT f: NEXT n: POKE b
,64: CLS : POKE s,56: PRINT AT 0
,9;" ZX SPECTRUM ": POKE s,198: 
PRINT AT 1,9;" PRESS A KEY ": PO
KE s,7: PRINT AT 3,3;"15-color s
tandard palette:": BRIGHT 1: FOR
 n=1 TO 7: PRINT PAPER 8-n,, BRI
GHT 0,,: NEXT n: PRINT ''TAB 2; 
INK 6;"3,584 8x8 ordered dithers
...": POKE u,c-256*INT (c/256): 
POKE u+1,INT (c/256): FOR l=0 TO
 2: FOR p=7 TO 0 STEP -1: FOR i=
0 TO p: POKE s-1,1: PRINT INK i;
 PAPER p;b$ AND i<>p; BRIGHT 0;b
$ AND i<>p;: NEXT i: NEXT p: NEX
T l: POKE u,0: POKE u+1,60: POKE
 b,71: POKE s,71: REM 3543Colors
.tap v1.0 by dpla on 2021-09-12.