Why does this image not create?

sub Sx_Scale_Image( _
    src_img as any ptr, _
    new_img as any ptr, _
    new_w as integer = 8, _
    new_h as integer = 8 _
)

    dim as integer src_w=0,src_h=0
    dim as any ptr new_mask

    if Sx_Image_About(src_img,src_w,src_h)=0 then exit sub

    new_img=imagecreate(new_w,new_h)
    line new_img,(0,0)-(new_w-1,new_h-1),0,bf

    new_mask=imagecreate(new_w,new_h)
    line new_mask,(0,0)-(new_w-1,new_h-1),0,bf

    Sx_Glyph_Refresh src_img, new_img, new_mask

    imagedestroy new_mask

end sub

sub Sx_Scale_Put( _
    src_img as any ptr , _
    x0 as integer = 0, _
    y0 as integer = 0, _
    x1 as integer = 7, _
    y1 as integer = 7 _
)

    dim as integer _
        new_w=x1-x0+1, _
        new_h=y1-y0+1

    dim As fb.Image Ptr  _
        new_img

    Sx_Scale_Image _
        src_img, new_img, new_w, new_h

    put(x0,y0),new_img,pset

    imagedestroy new_img

end sub
```
C:\Data\dungeon\graphics.bas(187) error 14: Expected identifier, found 'fb' in 'dim As fb.Image Ptr  _'
C:\Data\dungeon\graphics.bas(191) error 42: Variable not declared, new_img in 'src_img, new_img, new_w, new_h'
C:\Data\dungeon\graphics.bas(193) error 14: Expected identifier, found 'new_img' in 'put(x0,y0),new_img,pset'
C:\Data\dungeon\graphics.bas(195) error 1: Argument count mismatch, found 'new_img' in 'imagedestroy new_img'