`Function to write text over sprites
`Turns text into sprites. Therefore you need a sprite number for every string
function spritetext(string$,xpos,ypos,spritenum,priority)
if bitmap exist(4)=0
   create bitmap 4,3000,3000
endif
set current bitmap 4
cls rgb(12,24,36)
text 0,0,string$
set text size 27
textsize=text size()
textlength=len(string$)
tempval=2
get image spritenum,0,0,textlength*textsize+tempval+1,textsize+tempval+1,1
set current bitmap 0
sprite spritenum,xpos,ypos,spritenum
set sprite priority spritenum,priority
endfunction