先发个星星
SCREEN 12
star$ = "ta-72r50ta0r50ta-144r50ta-72r50ta144r50ta-144r50ta72r50ta144r50ta0r50ta72r50ta0"
PSET (80, 50): DRAW "c14" + star$ + "bm+0,+10p14,14"
PSET (250, 200): DRAW "s7c14" + star$ + "bm+0,+10p14,14"

谢谢,看的晕

中华人民共和国国旗图案比例如下：
旗面——长：高=3：2；
将旗面对分为四块，将左上方矩形上下10等分、左右15等分；
大星——外接圆半径为旗高的3/20，中心：在上5下5、左5右10处；
小星——外接圆半径为旗高的1/20，
小星中心点——第一点：上2下8、左10右5处；第二点：上4下6、左12右3处；
              第三点：上7下3、左12右3处；第四点：上9下1、左10右5处；
              小星的星尖各有一个指向大星中心点。
                                                    （出处：国旗法）

可参考《中国大百科全书》No.2《法学》《国旗》条目，其中有中华人民共和国国旗彩图、墨线图。

现依版副提示，绘制1/4的旗面。
screen 12:cls
window screen(-50,-50)-(100,50)
star$ = "c14ta-72r95 ta0r95 ta-144r95 ta-72r95 ta144r95 ta-144r95 ta72r95 ta144r95 ta0r95 ta72r95"
s$(1)= "c14ta-96r62 ta-24r62 ta-168r62 ta-96r62 ta120r62 ta-168r62 ta48r62 ta120r62 ta-24r62 ta48r62"
s$(2)= "c14ta-48r62 ta24r62 ta-120r62 ta-48r62 ta168r62 ta-120r62 ta96r62 ta168r62 ta24r62 ta96r62"
s$(3)= "c14ta-70r62 ta2r62 ta-142r62 ta-70r62 ta146r62 ta-142r62 ta74r62 ta146r62 ta2r62 ta74r62"
s$(4)= "c14ta-92r62 ta-20r62 ta-164r62 ta-92r62 ta124r62 ta-164r62 ta52r62 ta124r62 ta-20r62 ta52r62"
PSET (0,0): DRAW "ta90r130" + star$ + "bm+0,+10p14,14"
PSET (50, -27): DRAW "s2ta66r85" + s$(1) + "bm+0,+10p14,14"
PSET (70, -9): DRAW "ta144r85" + s$(2) + "bm+0,+10p14,14"
PSET (70, 18): DRAW "ta92r85" + s$(3) + "bm+0,+10p14,14"
PSET (50, 36): DRAW "ta70r85" + s$(4) + "bm+0,+10p14,14"
paint(0,40),13
end

现依版副提示，绘制1/4的旗面。
screen 12:cls
window screen(-50,-50)-(100,50)
paint(0,0),4
for i=-5 to 9
  for j=-5 to 4
    'line(i*10,j*9)-(i*10+10,j*9+9),3,b
  next j,i
star$ = "c14ta90r130 ta-72r250 ta144r250 ta0r250 ta-144r250 ta72r250"
s$(1)= "s2ta66r85 c14ta-96r165 ta120r165 ta-24r165 ta-168r165 ta48r165"
s$(2)= "ta144r85 c14ta-48r165 ta168r165  ta24r165 ta-120r165 ta96r165"
s$(3)= "ta-70r165 ta146r165 ta2r165 ta-142r165 ta74r62"
s$(4)= "ta70r85 c14ta-92r165 ta124r165  ta-21r165 ta-164r165 ta52r165"
p$="ta90r31 ta-36r39 ta-108r39 ta180r39 ta108r39  p14,14"
PSET (0,0): DRAW star$ :PRESET (0,0): draw"ta90r85"+s$(3)+"p14,14"
PSET (50, -27): DRAW s$(1):PRESET (50, -27): DRAW p$
PSET (70, -9): DRAW s$(2)):PRESET (70,-9): DRAW p$
PSET (70, 18): DRAW "ta92r85c14" + s$(3)):PRESET (70, 18): DRAW p$
PSET (50, 36): DRAW s$(4)):PRESET (50, 36): DRAW p$
end

现依版副提示，绘制1/4的旗面。
screen 12:cls
window screen(-50,-50)-(100,50)
paint(0,0),4
for i=-5 to 9
  for j=-5 to 4
    'line(i*10,j*9)-(i*10+10,j*9+9),3,b
  next j,i
star$ = "c14ta90r130 ta-72r250 ta144r250 ta0r250 ta-144r250 ta72r250"
s$(1)= "s2ta66r85 c14ta-96r165 ta120r165 ta-24r165 ta-168r165 ta48r165"
s$(2)= "ta144r85 c14ta-48r165 ta168r165  ta24r165 ta-120r165 ta96r165"
s$(3)= "ta-70r165 ta146r165 ta2r165 ta-142r165 ta74r62"
s$(4)= "ta70r85 c14ta-92r165 ta124r165  ta-21r165 ta-164r165 ta52r165"
p$="ta90r31 ta-36r39 ta-108r39 ta180r39 ta108r39  p14,14"
PSET (0,0): DRAW star$ :PRESET (0,0): draw"ta90r85"+s$(3)+"p14,14"
PSET (50, -27): DRAW s$(1):PRESET (50, -27): DRAW p$
PSET (70, -9): DRAW s$(2)):PRESET (70,-9): DRAW p$
PSET (70, 18): DRAW "ta92r85c14" + s$(3)):PRESET (70, 18): DRAW p$
PSET (50, 36): DRAW s$(4)):PRESET (50, 36): DRAW p$
end

现依版副提示，绘制1/4的旗面。
screen 12:cls
window screen(-50,-50)-(100,50)
paint(0,0),4
for i=-5 to 9
  for j=-5 to 4
    'line(i*10,j*9)-(i*10+10,j*9+9),3,b
  next j,i
star$ = "c14ta90r130 ta-72r250 ta144r250 ta0r250 ta-144r250 ta72r250"
s$(1)= "s2ta66r85 c14ta-96r165 ta120r165 ta-24r165 ta-168r165 ta48r165"
s$(2)= "ta144r85 c14ta-48r165 ta168r165  ta24r165 ta-120r165 ta96r165"
s$(3)= "ta-70r165 ta146r165 ta2r165 ta-142r165 ta74r62"
s$(4)= "ta70r85 c14ta-92r165 ta124r165  ta-21r165 ta-164r165 ta52r165"
p$="ta90r31 ta-36r39 ta-108r39 ta180r39 ta108r39  p14,14"
PSET (0,0): DRAW star$ :PRESET (0,0): draw"ta90r85"+s$(3)+"p14,14"
PSET (50, -27): DRAW s$(1):PRESET (50, -27): DRAW p$
PSET (70, -9): DRAW s$(2)):PRESET (70,-9): DRAW p$
PSET (70, 18): DRAW "ta92r85c14" + s$(3)):PRESET (70, 18): DRAW p$
PSET (50, 36): DRAW s$(4)):PRESET (50, 36): DRAW p$
end

请在你发贴的上方<修改>的字样那里单击一下.

狂晕~~~