XBase - MOSTRAR FOTO BMP

HOLA A TOD@S,
Hace tiempo pregunte en el foro por una función que me mostrase una foto en formato bmp o jpg, un compañero me contesto y me envió una función, pero al compilarla me daba dos errores, se lo comente, pero no he tenido noticias, alguno tiene una función que me pueda enviar.
Gracias. esta es la función que me envio.
PROCEDURE Main()
LOCAL oBmp, nWidth, nHeight

// Crea un objeto XbpBitmap y carga el archivo BMP
oBmp := XbpBitmap():new()
oBmp:createFromFile("ruta/archivo.bmp")

// Obtiene las dimensiones del BMP cargado
nWidth := oBmp:width()
nHeight := oBmp:height()

// Crea una ventana para mostrar el BMP
CREATE WINDOW WinWidth, WinHeight TITLE "Imagen BMP"
ACTIVATE WINDOW WinWidth
SET WINDOW WinWidth SIZE nWidth, nHeight

// Dibuja el BMP en la ventana
DRAW OBJECT oBmp TO WinWidth

READ // Espera hasta que el usuario cierre la ventana

// Limpia la ventana y libera los recursos
SET WINDOW WinWidth OFF
RELEASE oBmp
RETURN
y estos son los errores que me da al compilar
C:\Users\ANTONIO\Desktop\pruebabmp>XPP verbmp
Xbase++ (R) Compiler 1.90.355 Apr 9 2009
Copyright (c) Alaska Software. All rights reserved.
File: verbmp.prg Line: 25
verbmp.prg(13:0): error XBT0200: Syntax Error
verbmp.prg(23:0): error XBT0200: Syntax Error
2 error(s) found in file verbmp.prg!
me da error en las lineas 13 y 23