These are 2 function I wrote for a story intro and have found them to be very useful.
I have revised them for more functionallity

Usage :
`textfadein(text$,x,y,c,d)  -  fade text$ in, centered on x at y in color c 0-black 1-green 2-red 3-blue, d is fade in speed
`textfadeout(text$,x,y,c,d)  - same as above but fade out

Check the example program
home

function textfadein(txt$,x,y,c,d)
  for f=0 to 255 step 8
    if c = 0 then ink rgb(f,f,f),0
    if c = 1 then ink rgb(f,0,0),0
    if c = 2 then ink rgb(0,f,0),0
    if c = 3 then ink rgb(0,0,f),0
    center text x,y,txt$
    wait d
  next f
endfunction


function textfadeout(txt$,x,y,c,d)
  for f=255 to 0 step -8
    if c = 0 then ink rgb(f,f,f),0
    if c = 1 then ink rgb(f,0,0),0
    if c = 2 then ink rgb(0,f,0),0
    if c = 3 then ink rgb(0,0,f),0
    center text x,y,txt$
    wait d
  next f
endfunction