回 帖 发 新 帖 刷新版面

主题:显示火焰跳动的源程序(转贴)

DEFINT A-Z

SCREEN 13

OUT &H3C8, 0
FOR t = 0 TO 63
   OUT &H3C9, t
   OUT &H3C9, 0
   OUT &H3C9, 0
NEXT t


DO

   COLOR 60: LOCATE 25, 1
   A$ = STRING$(40, 219): PRINT A$;

   FOR y1% = 185 TO 192
      FOR x1% = 0 TO (1 + LEN(A$)) * 8
         c% = POINT(x1%, y1%) - RND * 25
         IF c% >= 0 THEN PSET (x1%, y1% - 1), c%
      NEXT
   NEXT
   WAIT &H3DA, 8

LOOP UNTIL INKEY$ <> ""

回复列表 (共1个回复)

沙发

能分析一下是怎么实现的啊??
  我看不明白啊

我来回复

您尚未登录,请登录后再回复。点此登录或注册