Bienvenue prog4fun !

DIM w0, h0, wp, hp, a$, t$, i, j, xt, yt, x0, y0, xf, yf, c$, stph
DIM b$(100), pos(100)
LABEL ra

DATA "667369788669788569326532"
READ a$: t$ = ""
FOR i = 1 TO LEN(a$) STEP 2
    t$ = t$ + CHR$(VAL(MID$(a$, i, 2)))
NEXT i
t$ = t$ + "prog4fun"
wp = 25*(LEN(t$) + 2): hp = 120
w0 = wp + 20: h0 = hp + 40
WIDTH 0, w0: HEIGHT 0, h0
PICTURE 1: WIDTH 1, wp: HEIGHT 1, hp
2D_TARGET_IS 1
PRINT_TARGET_IS 1: FONT_NAME 1, "Lucida Console": FONT_SIZE 1, 30: FONT_BOLD 1
FONT_COLOR 1,0,0,255
FOR i = 1 TO LEN(t$)
    c$ = MID$(t$, i, 1)
ra:
    j = 1+INT(RND(LEN(t$))): if b$(j) <> "" THEN GOTO ra
    b$(j) = c$: pos(i) = j
NEXT i
a$ = ""
FOR i = 1 TO LEN(t$): a$ = a$ + b$(i): NEXT i
PRINT a$
xf = 0
FOR i = 1 TO LEN(t$)
    c$ = MID$(t$, i, 1)
    IF c$ <> " "
        x0 = (pos(i)-1)*25: xf = (i-1)*25
        FONT_COLOR 1,0,0,255
        PRINT_LOCATE x0, 0: PRINT " "
        stph = 5: IF xf < x0 THEN stph = -1*stph
        FOR xt = x0 TO xf STEP stph
            PRINT_LOCATE xt, 40: PRINT c$: WAIT 20
            PRINT_LOCATE xt, 40: PRINT " "
        NEXT xt
        FONT_COLOR 1,255,0,0: PRINT_LOCATE xf, 80: PRINT c$: WAIT 100
    END_IF
NEXT i
PRINT_LOCATE xf+25, 80: PRINT " !": WAIT 300
FONT_COLOR 1, 0,0,255: PRINT_LOCATE 0, 0: PRINT t$ + " !": WAIT 300
FONT_COLOR 1, 0,255,0: PRINT_LOCATE 0, 40: PRINT t$ + " !"
END