XProfan

Source watts on the 15.07.2007 from the MMJ-Quellcodesammlung (Dietmar horn) in The Babyklappe on XProfan.Com stored:
Text: Text in the Window moving
Def @CSleep(1) !KERNEL32,Sleep

Proc moveText

    Declare way%
    Parameters frompos%,topos%,delays%,txt$
    let way%=0

    Whilenot equ(way%,topos%)

        textcolor rgb(0,0,255),-1
        StartPaint GetActiveWindow()
        DrawText frompos%,20,txt$
        EndPaint
        @CSleep(delays%)

        ifnot equ(way%,topos%-1)

            textcolor getpixel(frompos%-1,20),getpixel(frompos%-1,20)
            StartPaint GetActiveWindow()
            DrawText frompos%,20,txt$
            EndPaint

        endif

        dec frompos%
        inc way%

    Wend

ENDPROC

Proc FlyText

    Declare way%,fly%
    Parameters frompos%,topos%,delays%,txt$
    let fly%=20
    let way%=0

    Whilenot equ(way%,topos%)

        textcolor rgb(0,0,255),-1
        StartPaint GetActiveWindow()
        DrawText frompos%,fly%,txt$
        EndPaint
        @CSleep(delays%)

        ifnot equ(way%,topos%-1)

            textcolor getpixel(frompos%-1,fly%),getpixel(frompos%-1,fly%)
            StartPaint GetActiveWindow()
            DrawText frompos%,fly%,txt$
            EndPaint

        endif

        dec frompos%
        inc way%
        case mod(frompos%,5):inc fly%

    Wend

ENDPROC

example
Settruecolor 1
Cls Rgb(0,255,0)
textcolor rgb(0,0,255),-1
UseFont Arial,30,0,0,0,0
moveText 550,500,10,If I stand press a Button
waitinput
textcolor rgb(0,0,255),-1
UseFont Arial,40,0,0,0,0
flyText 550,450,10,copyright by Dieter Zornow
waitinput