Please put program name
Please put program name 2
Dagi krokodil animation
fd 100000 pu setxy -200 -200 pd setcolor 4 make "ir random 45 seth 45+:ir repeat 500 [ fd 1 if xcor>0 [ seth 0 lt 45+:ir ] ]