绘制五星红旗

Author: 青海任主强 Date: 1993-08-20

        第一部分“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
        (青海任主强)