10 ' PRESENT2 par B.L.B. 20 ' crée sur 6128 le 04/06/89 30 DEFINT n,x,y 40 MODE 0:INK 0,0:INK 15,0:FOR n=1 TO 14:INK n,n+10:NEXT 50 PEN 15:LOCATE 7,11:PRINT"ALIGATOR":LOCATE 7,12:PRINT"Freeware" 60 x=190:y=240:xx=2:yy=-2 70 FOR n=1 TO 2064 80 x=x+xx:y=y+yy 90 IF TEST(x,y)=15 THEN PLOT x,y,(RND*13)+1:SOUND 1,100,1,15 100 IF x<192 OR x>448 THEN xx=-xx 110 IF y<208 OR y>238 THEN yy=-yy 120 NEXT 130 FOR t=1 TO 50:FOR m=1 TO 14:INK m,(RND*13)+13:NEXT:NEXT:RUN