10 DEFINT a-z:FOR a=0 TO 15:INK a,ASC(MID$("0J6?HBD245>A73=1",a+1,1))-48:NEXT:a$="-JoYeUx AnNiVeRsAiRe- * 20 ANS * AMSTRAD.EU - Le mordant informatique - Site Retro Passion ":MODE 0:x=8+RND*8:y=2+RND*6:p=y:WHILE z<50:WHILE RND*9>1:x=(2*(ABS(a)>148)+1)*x
20 y=(2*(ABS(b)>88)+1)*y:a=a+x:b=b+y:FOR c=0 TO 1:FOR l=0 TO 1:ORIGIN 160+c*317,94+l*211:MOVE a,b:DRAW -a,b,p:DRAW -a,-b:DRAW a,-b:DRAW a,b:NEXT l,c:LOCATE 1,13:PRINT LEFT$(a$,20):a$=RIGHT$(a$,LEN(a$)-1)+LEFT$(a$,1):WEND:z=z+1:p=(1+p) MOD 15:WEND:RUN