标题绘制五星红旗
栏目软件操作与技巧
作者青海 任主强
发布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
(青海 任主强)