您所在位置：主题：显示火焰跳动的源程序（转贴）
qb45
[专家分：2880] 发布于 2003-10-30 18:05:00
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$ <> ""
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$ <> ""
