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