10 BORDER 0:DEFINT a-y:FOR a=0 TO 15:INK a,ASC(MID$("06?HBD;>>;DBH?61",a+1))-48:NEXT:MODE 0:SYMBOL AFTER 32:z=HIMEM-255:LOCATE 1,25:t$="BONNES FETES DE FIN D'ANNEE REMPLIES D'AMOUR DE SANTE DE TENDRESSE ET D'ARGENT  JOYEUX NOEL ET BONNE ANNEE 2023   "
20 WHILE 1:FOR b=1 TO LEN(t$):d=ASC(MID$(t$,b,1))*8:FOR e=0 TO 7:c$=BIN$(PEEK(z+d),8):d$="   ":FOR f=1 TO 8:e$=CHR$(32+&CE*-(MID$(c$,f,1)="1")):d$=d$+e$+e$:NEXT:PRINT d$;:d=d+1:p=1+p MOD 14:PEN p:NEXT e,b:PEN 2:PRINT" RETROPOKE  12/2022":CALL &BB06:WEND