CreateImage 4, GroundLevel - 1, PipeImg(PipeNum), PipeImgBuff(PipeNum)

DEF SEG = PipeImg(0).Image.Segment
POKE PipeImg(0).Image.Address + 5, 1
PRINT PipeImgBuff(0)  'Empty string

DEF SEG = SSEG(PipeImgBuff(0))
POKE SADD(PipeImgBuff(0)) + 5, 1
PRINT PipeImgBuff(0)  'String with face character in it

SUB CreateImage (Wid AS INTEGER, Hei AS INTEGER, NewImgData AS TxtGFX, NewImg AS STRING)
    NewImgData.Size = Wid * Hei * 2
    NewImgData.Wid = Wid
    NewImgData.Hei = Hei

    NewImg = SPACE$(NewImgData.Size)

    NewImgData.Image.Segment = SSEG(NewImg)
    NewImgData.Image.Address = SADD(NewImg)
END SUB