Setvirtualresolution(640,480)
ResetTimer()

CreateText(1,"Example Text")
SetTextSize(1,25)
SetTextPosition(1,0,100)

CreateText(2,"")
SetTextSize(2,20)
SetTextPosition(2,0,40)

Repeat
    For y=100 to 200
        SetTextY(1,y)
        SetTextString(2,Str(GetTextY(1)))
        Sleep(50)
        Sync()
    Next y
Until Timer()>12
End