1TO star :x :y :len :col
2	REPEAT 9
3	[
4		SETPOS [20+:x 20+:y]
5		SETPC :col
6		FD :len
7		RT 40
8	]
9END
10
11//dessine nb �toiles
12TO stars :nb
13	REPEAT :nb
14	[
15		GIVE "x HAZARD 350
16		GIVE "y HAZARD 350
17
18		GIVE "len HAZARD 25
19		GIVE "col HAZARD 15
20
21		star :x :y :len :col
22	]
23END
24
25CS
26stars 40
27
28SETPOS [150 50]
29WRITE "Stars