Ejemplo 2: XBasic