Cómo mostrar una imagen GIF en QBasic

QBasic es una herramienta que se utiliza para ejecutar el lenguaje de programación BASIC. Se traduce en acciones comandos de entrada de computadora, como correr un archivo o cerrar una aplicación en sistemas basados ​​en DOS. Un uso para QBasic es abrir los archivos de imagen y pantalla. Viendo un archivo GIF se puede hacer usando una serie de comandos para extraer los datos relevantes del archivo y convertirlo en una forma que puede mostrar QBasic.

Instrucciones

1 QBasic abierta.

2 Escribe las nueve líneas siguientes en la ventana de comandos:

filenum% = FreeFile

ABIERTO DE ENTRADA $ filename.pal AS # filenum%

PARA DummyColour% = 0 a 255

ENTRADA # filenum%, r, g, b

OUT y H3C8, DummyColour%

OUT y H3C9, r

OUT y H3C9, g

OUT y H3C9, b

SIGUIENTE DummyColour%

3 Reemplazar "nombre de archivo" con el nombre del archivo GIF. No incluya la extensión "gif". Haga clic en "Enter" para extraer la información gif paladar que controla la pantalla.

4 Escribe las dos líneas siguientes en la ventana de comandos, de nuevo en sustitución de "nombre de archivo".

DEF SEG = & HA000

BLOAD "filename.bsv"

Presione ENTRAR." El GIF se mostrará en el monitor.