2 DEFINT a-z:MODE 1:BORDER 0:INK 0,0:INK 1,26:INK 2,7,0:INK 3,9:a$="2000 JOYEUX ANNIVERSAIRE AMSTRAD.EU 2026":FOR a=1 TO 40:PEN 2:FOR f=0 TO RND*99:PRINT"+"CHR$(8);:NEXT:SOUND 3,99,1:PEN 1:PRINT MID$(a$,a,1);:NEXT:INK 2,22:WINDOW#3,6,35,6,23:FOR l=0 TO 6
8 FOR c=0 TO 79:FOR t=0 TO 2:PLOT t*4+l*10,30+c*4,2*TEST(400+c*2,399-l*2):DRAWR 0,2:MOVE 639-t*4-l*10,348-c*4:DRAWR 0,-2:NEXT t,c,l:WHILE 1:l=6+RND*29:r$=MID$(a$,l,1):WINDOW l,l,6,13:PEN 3:PRINT STRING$(6*RND,r$);:PEN 1+RND:PRINT r$:PRINT#3,CHR$(11);:WEND