10 'Sternenbrunnen
20 MODE 1:PRINT CHR$(23)CHR$(1):DEG:TAG 30 a=0:b=0:f=1.002:n=860 40 r=50:u=1:w=13:GOSUB 90 50 TAGOFF:PRINTCHR$(23)CHR$(0):TAG 60 f=1.0013:n=332:w=-3:GOSUB 90 70 u=-1:GOSUB 90:w=3:GOSUB 90 80 CALL &BB18:END 90 ORIGIN 320+a,200+b:x=r:y=r 100 FOR i=1 TO n:MOVE -y*u,x:PRINT CHR$(88); 110 xx=x*COS(w)-y*SIN(w):y=x*SIN(w)+y*COS(w) 120 x=xx*f:y=y*f:NEXT i:RETURN |