10 MODE 2:INK 1,6:INK 0,0:BORDER 0:x=320:y=335:x1=1:y1=0:ORIGIN x,y:DEG:PLOT 25,7:FOR q=0 TO 360 STEP 7.5:x=COS (q):y=SIN (q):a=25:b=15:c=4:f=0:GOSUB 90:f=-115:GOSUB 90:a=145:b=55:c=28:f=-250:GOSUB 90 20 IF q<=180 THEN a=40:b=a:c=-35:f=-145:g=60:PLOT a*x+g,b*y+c*x+f:DRAW a*x1+g,b*y1+c*x1+f:g=g+15:DRAW a*x+g,b*y+c*x+f:DRAW a*x1+g,b*y1+c*x1+f:g=0 30 PLOT 25*x,15*y2+4*x:x1=x:y1=y:NEXT q:LOCATE 37,2:PRINT"AU FOU!":LOCATE 23,25:PRINT"Appuyez sur une touche, pour rire...":WHILE INKEY$="":WEND 40 MODE 2:INK 1,6:INK 0,0:BORDER 0:DEFSTR a,b:DIM a(3,2):FOR i=1 TO 3:FOR j=0 TO 1:READ a(i,j):NEXT j:NEXT i:DATA "le","l'","du","de l'","au","a l'" 50 DATA " histoire"," echelle"," fou"," plafond"," fou"," pinceau","rien":FOR n=1 TO 6:pris(n)=0:NEXT n:FOR n=1 TO 6:RESTORE 50 60 m=INT(RND(TIME)*6+1):IF pris(m)<>0 THEN 60 ELSE pris(m)=1:FOR i=1 TO m:READ r$:NEXT i:b(n)=r$:IF RIGHT$(r$,1)="e" THEN g(n)=1 ELSE g(n)=0 70 NEXT n:PRINT" C' est ",a(1,g(1));b(1);" ";a(2,g(2));b(2);" qui repeint son";b(3):PRINT" L' autre";b(4);" arrive et lui dit :":PRINT" _ Accroche-toi ";a(3,g(5));b(5);" , j'enleve ";a(1,g(6));b(6);" ." 80 PRINT:PRINT" Tapez une touche ...":WHILE INKEY$="":WEND:PRINT CHR$(11);" ":GOTO 50 90 DRAW a*x,b*y+c*x+f:DRAW a*x1,b*y1+c*x1+f,1:PLOT a*x,b*y+c*x+f:RETURN 100 REM Yann Lossouarn 13 rue de l'Eglise 91330 Yerres