fbc pdun007c.bas

D:\pdun007c>fbc pdun007c.bas
pdun007c.bas(6) error 59: Illegal specification, at parameter 4 (buffer) of loadmem()
        declare sub loadmem(fn as string,w as integer,h as integer,buffer as fb.Image Ptr)
                                                                             ^
pdun007c.bas(11) error 14: Expected identifier, found 'fb.Image'
        Dim As fb.Image Ptr GA = ImageCreate(16, 16)    'brick03.mem
               ^
pdun007c.bas(12) error 14: Expected identifier, found 'fb.Image'
        Dim As fb.Image Ptr GB = ImageCreate(16, 16)    'flame01.mem
               ^
pdun007c.bas(13) error 14: Expected identifier, found 'fb.Image'
        Dim As fb.Image Ptr GC = ImageCreate(16, 16)    'flame02.mem
               ^
pdun007c.bas(14) error 14: Expected identifier, found 'fb.Image'
        Dim As fb.Image Ptr GD = ImageCreate(16, 16)    'skull01.mem
               ^
pdun007c.bas(15) error 14: Expected identifier, found 'fb.Image'
        Dim As fb.Image Ptr GR = ImageCreate(16, 16)    'dereck1.mem
               ^
pdun007c.bas(16) error 14: Expected identifier, found 'fb.Image'
        Dim As fb.Image Ptr GM = ImageCreate(64, 32)    'map002.mem
               ^
pdun007c.bas(47) error 59: Illegal specification, at parameter 4 (buffer) of loadmem()
sub loadmem(fn as string,w as integer,h as integer,buffer as fb.Image Ptr)
                                                             ^
pdun007c.bas(49) warning 5(0): Implicit conversion
pdun007c.bas(67) error 28: Expected pointer
        GET (0, 0)-(w-1, h-1), buffer
                               ^
pdun007c.bas(71) error 3: Expected End-of-Line, found '('
loadmem "brick03.mem",16,16,GA()
                               ^
pdun007c.bas(71) error 133: Too many errors, exiting

D:\pdun007c>