02-05-2006, 12:48 AM
. . . :roll:
Code:
SCREENRES 320, 200, 32, 2, 1
DIM AS INTEGER P1, P2 = 1
DIM AS INTEGER Smoke(320*200*4+4)
START$ = "FreeBasic, Rocks!"
LEND$ = " Hello, World! "
SX = 1: SV = -1
LOCATE 12, 20 - INT(LEN(START$) / 2): PRINT START$
SLEEP 1000
FOR i = 1 TO LEN(START$)
LTT = ASC(MID$(START$, i, 1))
DO
SCREENSET P1, P2
SWAP P1, P2
CLS
IF LTT = ASC(MID$(LEND$, i, 1)) THEN
DSPL$ += CHR$(LTT)
EXIT DO
END IF
PUT (SX,-1), Smoke, Alpha, 220
SX += SV
IF SX < -1 THEN SV = 1
IF SX > 1 THEN SV = -1
LOCATE 12, 20 - INT(LEN(START$) / 2): PRINT START$
LTT += 1
IF LTT > 255 THEN LTT = 0
IF LTT = 7 THEN LTT = 14
LOCATE 12, 20 - INT(LEN(START$) / 2): PRINT DSPL$ + CHR$(LTT)
SLEEP 30
GET(0,0)-(319, 199), Smoke
LOOP
NEXT
SLEEP