Sorry your browser is not supported!

sync on
sync rate 0
backdrop on
color backdrop rgb ( 0, 0, 0 )

load dll "c:\windows\system32\user32.dll",1

global hwnd=0
global dll1func$="MessageBoxA"
global msg$="test"
global title$="test"
global mparameter1=0

calldll(1,dll1func$,hwnd,msg$,title$,mparameter1)

global tx# as float:tx#=500
global ty# as float:ty#=0
global tx2# as float:tx2#=0
global ty2# as float:ty2#=0

global txt$="test"

do

tx# = tx#+1
tx2# = screen width()

if tx2#>screen width()-text width(txt$) then tx2#=screen width()-text width(txt$)
if tx#>tx2# then tx#=tx2#
    
scroll(0,txt$)

text 10,40,str$(tx#)
text 10,60,str$(tx2#)
text 10,80,str$(screen width())
text 10,100,str$(screen height())

   sync
loop

function scroll(cntr=0,txt$ as string="")
select cntr
case 0
text tx#-tx2#,ty#-ty2#,txt$
endcase
case 1
center text tx#-tx2#,ty#-ty2#,txt$
endcase
endselect
endfunction

delete dll 1
function calldll(dllnum,dllfunc$,hwnd,msg$,title$,parameter1=0)
call dll dllnum,dllfunc$,hwnd,msg$,title$,parameter1
endfunction

sync on
sync rate 60
backdrop on
color backdrop rgb ( 0, 0, 0 )

load dll "c:\windows\system32\user32.dll",1

global hwnd=0
global dll1func$="MessageBoxA"
global msg$="test"
global title$="test"
global mparameter1=0

calldll(1,dll1func$,hwnd,msg$,title$,mparameter1)

global tx# as float:tx#=500
global ty# as float:ty#=0
global tx2# as float:tx2#=0
global ty2# as float:ty2#=0

global txt$="test"
tx2# = screen width()
if tx2#>screen width()-text width(txt$) then tx2#=screen width()-text width(txt$)

do

 inc tx#
 if tx#>tx2# then tx#=tx2#

 scroll(txt$)

text 10,40,str$(tx#)
text 10,60,str$(tx2#)
text 10,80,str$(screen width())
text 10,100,str$(screen height())

   sync
loop

function scroll(txt$)

text tx#,ty#,txt$

endfunction

delete dll 1
function calldll(dllnum,dllfunc$,hwnd,msg$,title$,parameter1=0)
call dll dllnum,dllfunc$,hwnd,msg$,title$,parameter1
endfunction

sync on
sync rate 60
backdrop on
color backdrop rgb ( 0, 0, 0 )

load dll "c:\windows\system32\user32.dll",1

global hwnd=0
global dll1func$="MessageBoxA"
global msg$="test"
global title$="test"
global mparameter1=0

calldll(1,dll1func$,hwnd,msg$,title$,mparameter1)

global tx# as float:tx#=0
global ty# as float:ty#=0
global tx2# as float:tx2#=0
global ty2# as float:ty2#=0

global txt$="test"

global direction=1

do

tx2# = screen width()

 scroll(direction,txt$)

text 10,40,str$(tx#)
text 10,60,str$(tx2#)
text 10,80,str$(screen width())
text 10,100,str$(screen height())

   sync
loop

function scroll(direction=0,txt$)
select direction
case 0
inc tx#
if tx#>tx2# then tx#=tx2#
endcase
case 1
dec tx#
if tx#<0 then tx#=0
endcase
endselect
if tx#>tx2#-text width(txt$) then tx#=tx2#-text width(txt$)
text tx#,ty#,txt$
endfunction

delete dll 1
function calldll(dllnum,dllfunc$,hwnd,msg$,title$,parameter1=0)
call dll dllnum,dllfunc$,hwnd,msg$,title$,parameter1
endfunction