第一部分“TO WX X”为子程序，此程序可根据X的大小，画出不同大小的五角星；第二部分为“TO WXHQ”，此程序中引用了子程序“TO WX X”，只要分别将两程序输入，然后运行“TO WXHQ”程序即可。
＜1＞TOWXHQ
.ASPECT 1.4
PU SETXY XCOR-90 YCOR＋75
PD RT 90 FD 180 RT
90 FD 135 RT 90 FD 180 RT 90 FD 135
PU SETXY XCOR＋30 YCOR-30 PD WX 30
PU SETXY XCOR＋40 YCOR＋15 LT 90 PD WX 15
PU SETXY XCOR＋3 YCOR-25 PD LT 90 WX 15
PU SETXY XCOR-10 YCOR-20 PD LT 90 WX 15
PU SETXY XCOR-30 YCOR
-5 PD LT 90 WX 15
PC 2 8
BG 6 BRIGHT 0 0
HT
END
＜2＞TO WX X
.ASPECT 1.4
RT 90
REPEAT 5 ［FD：X RT 144］
END
(青海 任主强)