Your best "Hello, world!" program in FreeBasic

[Rattrapmax6]

. . . :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