' *** TEXT_SHD.LST *** 2nd GFA-Manual, page 20-31 > PROCEDURE text_shadow(x,y,text$) ' ' *** Put text$ with TEXT on screen in large shadow-letters ' *** Use a space as first and last character ' LOCAL i GRAPHMODE 2 DEFTEXT 1,0,0,26 TEXT x,y,text$ TEXT x+2,y,text$ FOR i=4 TO 6 TEXT x+i,y+i,text$ NEXT i GRAPHMODE 3 DEFTEXT 0 TEXT x+1,y+1,text$ GRAPHMODE 1 DEFTEXT 1 RETURN ' ********* '