XProfan

Proc Test

    Declare h1&, h2&
    h1& = presentment("Text",32,32,RGB(0,0,255),RGB(255,0,0))
    h2& = presentment("Txt2",48,48,RGB(0,255,0),RGB(0,0,255))
    Return Str $(h1&)+"_"+Str $(h2&)

ENDPROC

Proc presentment

    Parameters Text$, x&, y&, color&, bg&
    MCLS x&, y&
    StartPaint -1
    CLS bg&
    Text Color color&,-1
    DrawText 1,1,Text$;-1
    EndPaint
    Return Create("HPIC",0,"&MEMBMP")

ENDPROC

CLS
Declare Test$, pic1&, pic2&
test$ = Test()
pic1& = Val(SubStr$(test $,1,"_"))
pic2& = Val(SubStr$(test $,2,"_"))
DrawPic pic1&,0,0;0
DrawPic pic2&,0,32;0
WaitInput
DeleteObject pic1&
DeleteObject pic2&