1 ' Spiralu
2 ' B A Knight 3 ' Amstrad Action December 1986 4 ' 10 MODE 2:INK 0,0:INK 1,26:BORDER 0 20 FOR a=60 TO 580 STEP 10 30 y=200+125*COS(a/639*PI*4) 40 ORIGIN a,y 50 z=75*COS(a/639*PI*6) 60 GOSUB 160 70 NEXT a 80 FOR b=320 TO 639 STEP 10 90 y=200+125*COS(a/639*PI*4) 100 ORIGIN b,y 110 z=75*COS(a/639*PI*6) 120 NEXT b 130 PLOT a,y 140 PLOT b,y 150 GOTO 150 160 FOR n=1 TO 360 170 x=SIN(n) 180 y=COS(n) 190 PLOT z*x,z*y 200 NEXT n:RETURN |