10 DEFINT a-z:MODE 0:CALL &BC02:INK 0,0:BORDER 0:PEN 5:b=RND*4:LOCATE 6,8:PRINT MID$("CHAMPAGNE!-BIRTHDAY-* 20 ANS *AMSTRAD.EUINCROYABLE",b*10+1,10);CHR$(23);CHR$(1):g=RND*60+60:x=RND*560-280:y=RND*80+290:s=6+RND*4:a=x/y*s:FOR l=0 TO y STEP s:p=p+a
20 PLOT 320+p,l,4:SOUND 7,MAX(15,ABS(p)),1:PLOT 320+p,l:NEXT:x=320+x:m=RND*27:WHILE e<g:INK 5,m:f=e/2:PLOT x-e,y,5:DRAWR e*2,0:SOUND 7,999,1,15:INK 5,RND*27:PLOT x,y-e:DRAWR 0,e*2:PLOT x-f,y+f:DRAWR e,-e:PLOT x-f,y-f:DRAWR e,e:e=e+s:WEND:RUN:' P.M.