mmmmmmmm bueno para compilar tu programa seria bueno que busques por Qbasic7.1 con el cual editas y compilas tus programas, ademas trae nuevas funciones que facilitan la tarea.
y si deseas exportar informacion desde tu programa para la futura impresion...para esto hay muchas formas dependiendo de tus necesidades...pero una herramienta es el formato de imagen BMP....es muy simple y de gran ayuda si kieres crear imagenes (te recomiendo el formato monocromatico xDDDDD) ....ejemplo....puedes crear una funcion k exporte a un archivo bmp listo para impresion el cual contenga toda la informacion que desees.
ejemplo: desarrollado por mi xDDDDD
este programa lee los BMP...pero solo interpreta los monocromaticos
------------------------------------------------------------------------------------------------------------------
SCREEN 12
file$ = "xxx.bmp" 'EL ARCHIVO QUE QUIERES LEER
OPEN file$ FOR BINARY AS #1
A$ = SPACE$(14): GET #1, 1, A$
B$ = SPACE$(4): GET #1, 15, B$
PRINT "Archivo : "; file$
COLOR 15
PRINT "Encabezado del Archivo": COLOR 7
PRINT "Firma (2): "; MID$(A$, 1, 2)
PRINT "Tama¤o (4): "; CVI(MID$(A$, 3, 4))
PRINT "Campo Reservado (4): "; CVI(MID$(A$, 7, 4))
PRINT "Desajuste de Imajen (4): "; CVI(MID$(A$, 11, 4))
PRINT: COLOR 15
PRINT "Encabezado de Informacion": COLOR 7
PRINT "Tama¤o (4): "; CVI(MID$(B$, 1, 4))
B$ = SPACE$(CVI(MID$(B$, 1, 4))): GET #1, 15, B$
PRINT "ancho de la imagen (4): "; CVI(MID$(B$, 5, 4))
PRINT "altura de la imagen (4): "; CVI(MID$(B$, 9, 4))
PRINT "planos (2): "; CVI(MID$(B$, 13, 2))
PRINT "profundidad del modelo (2): "; CVI(MID$(B$, 15, 2))
PRINT "metodo de compresion (4): "; CVI(MID$(B$, 17, 4))
PRINT "tama¤o total de la imagen (4): "; CVI(MID$(B$, 21, 4))
PRINT "resolucion horizontal/metro (4): "; CVI(MID$(B$, 25, 4))
PRINT "resolucion vertical/metro (4): "; CVI(MID$(B$, 29, 4))
PRINT "numero de colores de la paleta (4): "; CVI(MID$(B$, 33, 4))
PRINT "numero de colores importantes de la paleta (4): "; CVI(MID$(B$, 37, 4))
PRINT: COLOR 15
IF CVI(MID$(B$, 15, 2)) <> 1 THEN
PRINT "EL FORMATO NO ES MONOCROMATICO"
CLOSE: SLEEP: END
END IF
SLEEP: CLS
DES = CVI(MID$(A$, 11, 4)) 'DESAJUSTE DE LA IMAGEN
X = CVI(MID$(B$, 5, 4)) 'PIXELES HORIZONTALES
Y = CVI(MID$(B$, 9, 4)) 'PIXELES VERTICALES
C$ = " "
AN = (FIX((X - 1) / 32) + 1) * 32
' IMPRIME LA IMAGEN EN LA PANTALLA
FOR YY = 1 TO Y
FOR XX = 1 TO X
IF XX >= 640 THEN EXIT FOR
C = FIX((XX - 1) / 8)
A = 1 + DES + ((Y - YY) * AN / 8) + C 'SITUA AL BYTE DE LECTURA
B = 2 ^ (8 - (XX - C * 8))
GET #1, A, C$ 'LEE EL BYTE ESPECIFICADO
VALOR = (ASC(C$) AND B) / B 'LEE EL BIT ESPECIFICADO POR XX,YY..1 o 0
PSET (XX, YY), VALOR * 15
NEXT XX
IF YY >= 480 THEN EXIT FOR
NEXT YY
CLOSE
END
------------------------------------------------------------------------------------------------------------------
El principio, que imprime la informacion del archivo es para que veas como se comportan los archivos BMP...el formato inicial.....lo escencial esta luego de eso....y si puedes leer un archivo BMP pues seguro que puedes crear uno xDDDD para exportar lo que desees monocromaticamente.
suerte y espero que sea de ayuda
