to 2spiral :a :b
CS PD ST
setpensize [3 3]
repeat 2[setpencolor 4 wait 30 fd :a * 20 wait 30 rt 90 wait 30 fd :b * 20 wait 30 rt 90] 
end

to 3spiral :a :b :c
CS PD ST
setpensize [3 3]
repeat 4[setpencolor 1 wait 30 fd :a * 20 wait 30 rt 90 wait 30 fd :b * 20 wait 30 rt 90 wait 30 fd :c * 20 wait 30 rt 90] ST
end

to 4spiral :a :b :c :d
CS PD ST
window
setpensize [3 3]
setpencolor 4
repeat 12[setpencolor 5 wait 30 fd :a * 20 wait 30 rt 90 wait 30 fd :b * 20 wait 30 rt 90 wait 30 fd :c * 20 wait 30 rt 90 wait 30 fd :d * 20 wait 30 rt 90] ST
wrap
end

to banner
setlabelfont[[MS Sans Serif] -20 0 0 400 0 0 0 0 3 2 1 34]
setpc 1
label "www.numeracysoftware.com
end

to border
cs pu fd 250 lt 90 fd 350 rt 180 pd setpc 1 setpensize[5 5] 
repeat 2[fd 700 rt 90 fd 500 rt 90]
end

to carret
lt 90 bk 35 rt 90
end

to carret2
lt 90 bk 50 rt 90
end

to carret3
lt 90 bk 25 rt 90
end

to spirals
border
pu fd 30 lt 90 bk 20 rt 90
setlabelfont[[MS Sans Serif] -20 0 0 400 0 0 0 0 3 2 1 34]
setpc 4 fd 280
label [SPIRALS] bk 280
carret2
label [Spirals are made by the turtle moving forward a certain distance and then]
carret3
label [turning right.  The forward distance depends on the numbers you type in.]
carret
label [For example, if you use the numbers 7, 4 and 6 the turtle will]
carret3
fd 100 label [move FORWARD 7 and then turn right] bk 100
carret3
fd 100 label [move FORWARD 4 and then turn right] bk 100
carret3
fd 100 label [move FORWARD 6 and then turn right] bk 100
carret3
fd 100 label [move FORWARD 7 and then turn right] bk 100
carret3
fd 100 label [move FORWARD 4 and then turn right, and so on....] bk 100
carret
label [The turtle will keep repeating the sequence until it gets back to where it] 
carret3
label [started or until it goes off the screen.] 
carret
label [There are three tasks for you to try.] 
carret
label [In the Commander Window type either TASK1, TASK2 or TASK3 and then]
carret3
label [press ENTER or click on the EXECUTE button.]
carret carret3 fd 200 banner HT
end

to task1
border
pu fd 30 lt 90 bk 20 rt 90
setlabelfont[[MS Sans Serif] -24 0 0 400 0 0 0 0 3 2 1 34]
setpc 4 fd 280
label [Task 1] bk 280
carret carret
label [Type the command 2SPIRAL followed by two numbers]
carret
label [separated by a space]
carret fd 230
label [e.g. 2SPIRAL 3  7] bk 230
carret carret
label [Try using lots of different pairs of numbers.]
carret carret
label [What sorts of shapes do you get?]
carret carret
label [What is the connection between the numbers you use] 
carret
label [and the shape you get?]
carret carret3 fd 200 banner HT
end

to task2
border
pu fd 30 lt 90 bk 20 rt 90
setlabelfont[[MS Sans Serif] -20 0 0 400 0 0 0 0 3 2 1 34]
setpc 4 fd 280
label [Task 2] bk 280
carret2
label [Type the command 3SPIRAL followed by three numbers separated by]
carret
label [spaces]
fd 230
label [e.g. 3SPIRAL 6 3 1] bk 230
carret2
label [Try using lots of different sets of numbers and see what patterns you get.]
carret2
label [Which combinations of numbers produce a single square?] 
carret2
label [Which combinations of numbers produce a 3 by 3 square grid?] 
carret2
label [Which combinations of numbers produce a pattern with 4 lines of symmetry?] 
carret2
label [Which combinations of numbers produce a pattern with rotational symmetry] 
carret
label [but no lines of symmetry?]
carret carret fd 200 banner HT
end

to task3
border
pu fd 30 lt 90 bk 20 rt 90
setlabelfont[[MS Sans Serif] -20 0 0 400 0 0 0 0 3 2 1 34]
setpc 4 fd 280
label [Task 3] bk 280
carret
label [Type the command 4SPIRAL followed by four numbers separated by]
carret3
label [spaces]
fd 220
label [e.g. 4SPIRAL 4 2 5 7] bk 220
carret
label [Try using lots of different sets of numbers and see what patterns you get.]
carret
label [Which combinations of numbers produce a single square or rectangle?] 
carret
label [Which combinations of numbers produce a spiral which grows horizontally] 
carret3
label [across the screen?] 
carret
label [Which combinations of numbers produce a spiral which grows vertically] 
carret3
label [up or down the screen?]
carret
label [Which combinations of numbers produce a spiral which grows diagonally] 
carret3
label [across the screen?]
carret
label [Can you predict in which direction the spiral will grow, just by looking at] 
carret3
label [the four numbers used?]
carret carret fd 200 banner HT
end