;------------------------------------------------------------
;skin.bb INCLUDEFILE
;2003 jammin/EchtZeit
;http://mitglied.lycos.de/graphicfreak/
;tmpa@gmx.de
;------------------------------------------------------------


Function skinwindow(window$,picture$)
inbank=CreateBank(2+Len(window$)+Len(picture$))
outbank=CreateBank(1)
PokeByte(inbank,0,Len(window$))
PokeByte(inbank,1,Len(picture$))
For i=0 To Len(window$)-1
PokeByte(inbank,2+i,Asc((Mid$(window$,i+1,1))))
Next
For i=0 To Len(picture$)-1
PokeByte(inbank,2+Len(window$)+i,Asc((Mid$(picture$,i+1,1))))
Next
CallDLL("skin.dll","_skinwindow",inbank,outbank)
FreeBank outbank
FreeBank inbank
End Function


Function move(window$)
inbank=CreateBank(2+Len(window$))
outbank=CreateBank(1)
PokeByte(inbank,0,Len(window$))
For i=0 To Len(window$)-1
PokeByte(inbank,2+i,Asc((Mid$(window$,i+1,1))))
Next
CallDLL("skin.dll","_move",inbank,outbank)
FreeBank inbank
FreeBank outbank
End Function