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