10 ' WINEFFAC par B.L.B. 90 20 ' créé sur 6128 le 20/06/90 30 BORDER 9:INK 0,26:INK 1,0:PAPER 0:PEN 1:PAPER #1,1:MODE 2 40 GOSUB 130:FOR n=1 TO 80:WINDOW #1,n,n,1,25:CLS #1:NEXT 50 GOSUB 130:FOR n=80 TO 1 STEP-1:WINDOW #1,n,n,1,25:CLS #1:NEXT 60 GOSUB 130:FOR n=1 TO 40:WINDOW #1,n,n,1,25:CLS #1:WINDOW #1,81-n,81-n,1,25:CLS #1:NEXT 70 GOSUB 130:FOR n=40 TO 1 STEP-1:WINDOW #1,n,n,1,25:CLS #1:WINDOW #1,81-n,81-n,1,25:CLS #1:NEXT 80 GOSUB 130:FOR n=1 TO 10:FOR m=0 TO 7:WINDOW #1,n+(m*10),n+(m*10),1,25:CLS #1:NEXT:NEXT 90 GOSUB 130:FOR n=1 TO 80:WINDOW #1,n,n,1,12:CLS #1:WINDOW #1,81-n,81-n,13,25:CLS #1:NEXT 100 GOSUB 130:FOR n=1 TO 5:FOR m=0 TO 4:WINDOW #1,1,80,n+(m*5),n+(m*5):CLS #1:NEXT:NEXT 110 GOSUB 130:FOR n=1 TO 80:WINDOW #1,n,n,1,5:CLS #1:WINDOW #1,81-n,81-n,6,10:CLS #1:WINDOW #1,n,n,11,15:CLS #1:WINDOW #1,81-n,81-n,16,20:CLS #1:WINDOW #1,n,n,21,25:CLS #1:NEXT 120 GOTO 40 130 FOR ho=1 TO 200:NEXT:MODE 2:FOR n=1 TO 20:DRAW RND*640,RND*400,1:NEXT::RETURN