CLS : REM "PR076:日月地三球运转演示"
SCREEN 9: COLOR 0, 0
CIRCLE (320, 180), 40, 4
PAINT (320, 180), 4, 4
a = 0: b = 0
DO
a = a + 2 * 3.14159 / 180
x = SIN(a) * 120
y = COS(a) * 120
CIRCLE (320 - x * 6 / 5, 180 + y), 25, 1
PAINT (320 - x * 6 / 5, 180 + y), 1, 1
b = b + 2 * 3.14159 / 15
x1 = SIN(b) * 40
y1 = COS(b) * 40
CIRCLE ((320 - x * 6 / 5) - x1 * 6 / 5, 180 + y + y1), 11, 7
PAINT ((320 - x * 6 / 5) - x1 * 6 / 5, 180 + y + y1), 7, 7
FOR i = 1 TO 30000: NEXT
CIRCLE (320 - x * 6 / 5, 180 + y), 25, 0
PAINT (320 - x * 6 / 5, 180 + y), 0, 0
CIRCLE ((320 - x * 6 / 5) - x1 * 6 / 5, 180 + y + y1), 11, 0
PAINT ((320 - x * 6 / 5) - x1 * 6 / 5, 180 + y + y1), 0, 0
LOOP
END

REM "PR080:情系电脑"
SCREEN 9
PAINT (10, 10), 1
LINE (204, 64)-(436, 196), 7, BF
LINE (224, 80)-(417, 180), 8, BF
LINE (242, 197)-(403, 197), 8
LINE (242, 198)-(403, 211), 7, BF
LINE (320, 198)-(320, 211), 8
FOR i = 0 TO 15 STEP 3
CIRCLE (263 + 2 * i, 204), 1, 1
NEXT
LINE (371, 203)-(373, 205), 12, BF
LINE (383, 201)-(395, 208), 8, BF
LINE (384, 202)-(394, 207), 3, BF
PSET (270, 213), 7
a = -130
DO
DRAW "TA" + STR$(a)
DRAW "U2"
a = a + 2
LOOP UNTIL a = -50
LINE (270, 212)-(374, 212), 8
LINE (270, 213)-(374, 213), 7
PAINT (320, 215), 7
LINE (305, 227)-(335, 227), 8
LINE (250, 228)-(390, 233), 7, BF
VIEW SCREEN (227, 83)-(414, 177), 2
r1 = 0: r2 = r1 + 28
r3 = r1 + 56: r4 = r1 + 84
DO
CIRCLE (320, 131), r1, 12
CIRCLE (320, 131), r2, 11
CIRCLE (320, 131), r3, 9
CIRCLE (320, 131), r4, 13
COLOR 14, 2
LOCATE 9, 37
PRINT "GOOD-BYE,"
COLOR 4, 2
LOCATE 12, 35
PRINT "DEAR FRIENDS!"
CIRCLE (320, 131), r1, 2
CIRCLE (320, 131), r2, 2
CIRCLE (320, 131), r3, 2
CIRCLE (320, 131), r4, 2
r1 = r1 + 1: r2 = r2 + 1
r3 = r3 + 1: r4 = r4 + 1
IF r1 > 112 THEN r1 = r1 - 112
IF r2 > 112 THEN r2 = r2 - 112
IF r3 > 112 THEN r3 = r3 - 112
IF r4 > 112 THEN r4 = r4 - 112
LOOP
END

CLS : REM "PR078:模拟石英电子钟"
SCREEN 7
PAINT (10, 10), 8
CIRCLE (160, 100), 96, 15
CIRCLE (160, 100), 95, 7
PAINT (160, 100), 7
CIRCLE (160, 100), 86, 1
CIRCLE (160, 100), 85, 9
PAINT (160, 100), 9
COLOR 12, 9
FOR k = 0 TO 3
k$ = STR$(k)
PSET (160, 100), 10
DRAW "A" + k$
DRAW "BU58"
DRAW "M-4,-0M-0,-8M+8,-0M-0,+8M-4,-0"
NEXT k
l = 0
WHILE l > -360
IF l / 90 <> INT(l / 90) THEN
f = l * 2 * 3.14159 / 360
CIRCLE (160 + SIN(f) * 62 * 6 / 5, 100 - COS(f) * 62), 1, 10
END IF
l = l - 30
WEND
m = 0
WHILE m > -360
m$ = STR$(m)
PSET (160, 100), 3
DRAW "TA" + m$
IF m / 30 <> INT(m / 30) THEN DRAW "BU62U0"
m = m - 6
WEND
DO
t$ = TIME$
IF LEN(T$) = 7 THEN d = 0 ELSE d = 1
IF s <> VAL(RIGHT$(t$, 2)) THEN SOUND 100, .5
h = VAL(LEFT$(t$, 1 + d))
m = VAL(MID$(t$, 3 + d, 2))
s = VAL(RIGHT$(t$, 2))
h1 = CINT(-(h * 360 / 12 + m * 360 / 60 / 12))
m1 = CINT(-(m * 360 / 60 + s * 360 / 60 / 60))
s1 = CINT(-(s * 360 / 60))
IF h1 < -360 THEN h1 = h1 + 360
h1$ = STR$(h1): m1$ = STR$(m1): s1$ = STR$(s1)
FOR i = 1 TO 30
c1 = 15: c2 = 15: c3 = 4
IF i = 30 THEN c1 = 9: c2 = 9: c3 = 9
PSET (160, 100), c1
DRAW "TA" + h1$ + "BU4" + "U30"
PSET (160, 100), c2
DRAW "TA" + m1$ + "BU4" + "U50"
PSET (160, 100), c3
DRAW "TA" + s1$ + "BU3" + "U52"
p1 = s1 - 180
IF p1 < -360 THEN p1 = p1 + 360
p1$ = STR$(p1): P2$ = STR$(P2)
PSET (160, 100), c3
DRAW "TA" + p1$ + "BU3" + "U7"
NEXT i
CIRCLE (160, 100), 4, 4
PAINT (160, 100), 4
CIRCLE (160, 100), 2, 4
PAINT (160, 100), 4
LOCATE 17, 16: PRINT DATE$
LOCATE 9, 20
IF h >= 12 THEN PRINT "PM" ELSE PRINT "AM"
LOOP
END

CLS : REM PR075"电脑台历钟"
  DIM a(12)
  FOR i = 1 TO 12: READ a(i): NEXT
  FOR i = 1 TO 7: READ b$(i): NEXT
  y = VAL(RIGHT$(DATE$, 4))
  m = VAL(LEFT$(DATE$, 2))
  d = VAL(MID$(DATE$, 4, 2))
  s = y - 1 + INT((y - 1) / 4) - INT((y - 1) / 100) + INT((y - 1) / 400)
  t = s + a(m) + d
  IF m > 2 THEN IF y / 4 = INT(y / 4) AND y / 100 <> INT(y / 100) OR y / 400 = INT(y / 400) THEN t = t + 1
  p = t - INT(t / 7) * 7 + 1
  DATA 0,31,59,90,120,151,181,212,243,273,304,334
  DATA "日","一","二","三","四","五","六"
  INPUT "是否需要定闹?(Y/N)", y$
  IF y$ = "N" OR y$ = "n" THEN GOTO a
  PRINT "注："
  PRINT "  定闹时间为24小时制，分钟必须为两位，不足两位补零。时与分用逗号分隔。"
  INPUT "输入定闹时间(时,分):", hl$, ml$
a: CLS
SCREEN 9
  PAINT (10, 10), 8
  LINE (120, 50)-(510, 250), 14, BF
  LINE (130, 60)-(500, 240), 2, BF
  LINE (170, 90)-(460, 210), 1, BF
b:  DO
  COLOR 11, 1
  LOCATE 9, 27: PRINT "────"
  COLOR 15, 1
  LOCATE 9, 36: PRINT y
  COLOR 11, 1
  LOCATE 9, 42: PRINT "年  ────"
  COLOR 11, 1
  LOCATE 11, 28: PRINT "今天是"
  COLOR 14, 1
  LOCATE 11, 34: PRINT m
  COLOR 11, 1
  LOCATE 11, 38: PRINT "月"
  COLOR 14, 1
  LOCATE 11, 40: PRINT d
  COLOR 11, 1
  LOCATE 11, 44: PRINT "日, 星期"
  COLOR 14, 1
  LOCATE 11, 52: PRINT b$(p)
  IF LEN(TIME$) = 7 THEN k = 0 ELSE k = 1
  COLOR 12, 1
  LOCATE 13, 29: PRINT "现在是"
  COLOR 7, 1
  LOCATE 13, 36
  hh = VAL(LEFT$(TIME$, 1 + k))
  IF hh >= 12 THEN PRINT "下午" ELSE PRINT "上午"
  IF hh > 12 THEN hh = hh - 12
  COLOR 15, 1
  LOCATE 13, 40: PRINT hh
  COLOR 12, 1
  LOCATE 13, 43: PRINT "时"
  COLOR 15, 1
  LOCATE 13, 45: PRINT MID$(TIME$, 3 + k, 2)
  COLOR 12, 1
  LOCATE 13, 47: PRINT "分"
  COLOR 15, 1
  LOCATE 13, 49: PRINT RIGHT$(TIME$, 2)
  COLOR 12, 1
  LOCATE 13, 51: PRINT "秒"
  COLOR 11, 1: LOCATE 15, 33
  PRINT "定闹时间:"
  COLOR 13, 1
  LOCATE 15, 43: PRINT hl$; ":"; ml$
  REM IF RIGHT$(TIME$, 2) = "60" THEN GOTO b
  IF hl$ = LEFT$(TIME$, 1 + k) AND ml$ = MID$(TIME$, 3 + k, 2) THEN
   SOUND 1000, 2
   FOR i = 1 TO 500: NEXT
   SOUND 2000, 2
  END IF
  LOOP
  END

哈。QBQB，你迷上动画了？

打蜜蜂运行到这句时出现问题：“LOCATE 45, PX”，提示信息“Illegal function call”

大家好  小弟也有一个不知好不好：

日月地三球运转演示
    说明：本程序先画出处于屏幕中心位置的红太阳，画出处于太阳一侧的兰色的地球和白色的月亮，停留一定的时间，然后擦除刚刚画的地球和月亮。以太阳为中心偏转一定的角度，通过半径与一定角度的正弦与余弦值的乘积，定位出表示地球的新的圆心位置，重画地球；同理，也可不断定出表示月球的圆的圆心位置。停留一定的时间，既而又擦除地球和月亮重画，如此周而复始。重要的是，重画月亮时，月亮偏转的角度一定要是重画地球偏转角度的１２倍。这样，地球绕太阳一周，月亮刚好绕地球１２周，符合一年１２个月的自然规律。不过实际上地球绕太阳和月亮绕地球运转，并不是正园轨道，本程序画的只是简单的演示图。
　
CLS : REM "PR076:日月地三球运转演示"
SCREEN 9: COLOR 0, 0
CIRCLE (320, 180), 40, 4
PAINT (320, 180), 4, 4
a = 0: b = 0
DO
a = a + 2 * 3.14159 / 180
x = SIN(a) * 120
y = COS(a) * 120
CIRCLE (320 - x * 6 / 5, 180 + y), 25, 1
PAINT (320 - x * 6 / 5, 180 + y), 1, 1
b = b + 2 * 3.14159 / 15
x1 = SIN(b) * 40
y1 = COS(b) * 40
CIRCLE ((320 - x * 6 / 5) - x1 * 6 / 5, 180 + y + y1), 11, 7
PAINT ((320 - x * 6 / 5) - x1 * 6 / 5, 180 + y + y1), 7, 7
FOR i = 1 TO 30000: NEXT
CIRCLE (320 - x * 6 / 5, 180 + y), 25, 0
PAINT (320 - x * 6 / 5, 180 + y), 0, 0
CIRCLE ((320 - x * 6 / 5) - x1 * 6 / 5, 180 + y + y1), 11, 0
PAINT ((320 - x * 6 / 5) - x1 * 6 / 5, 180 + y + y1), 0, 0
LOOP
END

谁能不能编一些动画的程序给我看一看。  矛盾！！！