10 ' EUROPE par B.L.B.
20 ' créé sur 6128 le 13/04/90 30 INK 0,2:INK 1,24:BORDER 0:PAPER 0:PEN 1:MODE 2 40 FOR m=0 TO 330 STEP 30:t=30 50 DEG:ORIGIN 120*SIN(m),120*COS(m) 60 c=1:GOSUB 90:t=t-15:c=0:GOSUB 90 70 GRAPHICS PEN 1:FILL 1 80 NEXT:CALL &BB06:END 90 RAD:MOVE 320,200 100 FOR n=0 TO 52 STEP 10.053 110 DRAW t*SIN(n)+320,t*COS(n)+200,c 120 NEXT:RETURN |