10 ' ART-1 par B.L.B. 20 ' créé sur 6128 le 17/02/91 30 MODE 0:INK 0,0:PAPER 0:BORDER 0:DEFINT a-z 40 FOR n=4 TO 13:INK n,0:NEXT:INK 8,24 50 FOR xx=40 TO 296 STEP 64:FOR yy=32 TO 544 STEP 64:y=yy:x=xx:l=60 60 IF i=1 THEN c=12:i=-1 ELSE c=4:i=1 70 FOR m=x TO x+32 STEP 4:FOR n=m TO m+2:PLOT y,n,c:DRAW y+l,n:DRAW y+l,n+l:DRAW y,n+l:DRAW y,n:NEXT:y=y+4:l=l-8:c=c+i:NEXT:NEXT:NEXT 80 FOR t=100 TO 0 STEP -10:a=4:b=12:d=1:GOSUB 90:a=13:b=3:d=-1:GOSUB 90:NEXT:GOTO 80 90 FOR n=a TO b STEP d:INK n,24:INK n-d,12:INK n+d,12:FOR ho=1 TO t:NEXT:INK n,12:INK n-d,0:INK n+d,24:NEXT:RETURN