谁有pc logo的命令（复杂点）

to z1:x
　　lt 10 repeat 2[fd 70 rt 90 repeat 360[fd 5*pi/180 lt 1]home rt 10] lt 10
　　repeat 6[repeat 360[fd :x*pi/180 lt 1]make"x :x+5]make"x :x-30
　　repeat 6[repeat 360[fd :x*pi/180 rt 1]make"x :x+5]
　　end
　　to fdf
　　pu fd 30 lt 90 fd 70 rt 90 pd repeat 16[fd 20 rt 90 fd 20 lt 90 fd 20 rt 90 fd 20 lt 45]pu home pd repeat 8[repeat 4[fd 20 rt 90]rt 45]repeat 8[pu fd 28 pd fd 20 rt 90 fd 20 lt 90 fd 20 lt 90 fd 40 lt 90 fd 20 lt 90 fd 20 rt 90 pu fd 48 rt 180+45]
　　end
　　to ee
　　make "x (300-random 600)
　　make "y (600-random 1200)
　　pu setxy se :y :x seth (random 360)
　　pd e (random 15)
　　setpc (random 15)
　　ee
　　end
　　to e:d
　　repeat 5[fd :d rt 144]
　　end
　　to w
　　make"x1 "半夜
　　make"x2 "光天化日
　　make"x3 "早上
　　make"x4 "上课时
　　make"x5 "吃饭时
　　make"y1 "厕所
　　make"y2 "大街
　　make"y3 "讲台
　　make"y4 "美国
　　make"y5 "海里
　　make"m1 "林浩子
　　make"m2 "吴易初
　　make"m3 "张俊涛
　　make"m4 "陈相
　　make"m5 "王俊杰
　　make"n1 "跳
　　make"n2 "睡觉
　　make"n3 "吃饭
　　make"n4 "杀人
　　make"n5 "自杀
　　end
　　to z
　　w
　　make "a (random 5)
　　if :a=1[make"x :x1]
　　if :a=2[make"x :x2]
　　if :a=3[make"x :x3]
　　if :a=4[make"x :x4]
　　if :a=5[make"x :x5]
　　make "a (random 5)
　　if :a=1[make"y :y1]
　　if :a=2[make"y :y2]
　　if :a=3[make"y :y3]
　　if :a=4[make"y :y4]
　　if :a=5[make"y :y5]
　　make "a (random 5)
　　if :a=1[make"m :m1]
　　if :a=2[make"m :m2]
　　if :a=3[make"m :m3]
　　if :a=4[make"m :m4]
　　if :a=5[make"m :m5]
　　make "a (random 5)
　　if :a=1[make"n :n1]
　　if :a=2[make"n :n2]
　　if :a=3[make"n :n3]
　　if :a=4[make"n :n4]
　　if :a=5[make"n :n5]
　　make "a (random 5)
　　if :a=1[make"2x :m1]
　　if :a=2[make"2x :m2]
　　if :a=3[make"2x :m3]
　　if :a=4[make"2x :m4]
　　if :a=5[make"2x :m5]
　　make "b (word "在:x "的时候:y"上，:m"和:2x"在:n".)
　　pr :b
　　end

repeat 360 [fd 1 rt 360/360] 圆

这个更牛

TO MIAO
SETPC 10 SETW 3 SETBG 0
MAKE "S 1
REPEAT 12 [ASK 1 [PU RT 360 / 12 FD 105 PD SETPC 10 TT :S PU SETXY [0 0] PD] MAKE "S :S + 1]
PD STAMPOVAL 20 20 STAMPOVAL 120 120 FILL
HT PD FD 100 BK 100 WAIT 100 PE FD 100 BK 100 RT 360 / 60 PD
MIAO
END