1 BORDER 26:MODE 0:CLG 4:PRINT"JOYEUX  ANNIVERSAIRE":INK 12,3:TAG:PLOT 274,348,15:PRINT"2 5";:CALL &BC59,1:FOR a=1 TO 5:g=(5+a)*32:i=a*64:ORIGIN 0,0,400-g,232+g,390-i,310-i:CLG 12:FOR b=1 TO 150:MOVE b*4,354-i:DRAWR RND*64,9,8:DRAWR-9,-9,5:NEXT:CALL &BBBA
8 PLOT 400-g,399-a*64,7:PRINT STRING$(5+a*2,42);:NEXT:MOVE 164,28:PRINT"AMSTRAD.EU";:CALL &BC59:FOR l=1 TO 5:FOR a=1 TO l+2:PLOT 220-l*32+a*64,399-l*64,1+RND*2:DRAWR 0,42:DRAWR 8,0:DRAWR 0,-42:DRAWR-4,0:DRAWR 0,40:DRAWR 0,10,14+RND:NEXT a,l:CALL &BB06:RUN