logo小海龟复杂图形命令

TO HJ
FD 50 RT 45 FD 20 RT 90 FD 20 RT 45 FD 50 LT 90 RT 45
FD 30 RT 135 FD 70 RT 135 FD 30 BK 30 RT 45 FD 30 * 0.7
LT 90 BK 30 RT 15 FD 30 LT 15 BK 30 RT 15 FD 30 LT 15
REPEAT 2 [LT 15 BK 30 RT 15 FD 30]
LT 90 FD 4 * 13.3 * 0.6 RT 90 PU FD 30 * 0.7 PD
END

TO HJSK
MAKE "A ITEM 1 MOUSE
MAKE "B ITEM 2 MOUSE
PU SETXY SE :A :B PD
HJ
WAIT 1
CLEAN
HJSK
END

TO HJSK2
HJ
WAIT 10
CLEAN
PU FD 10 PD
HJSK2
END

这里有两个。
一、运行hjsk
火箭跟着鼠标走
二、运行hjsk2
火箭不断向上升