Cómo apoyar el ratón en QBasic

QBasic es una versión simplificada del sistema operativo básico rápida lanzada por Microsoft a principios de 1990. Basic es un acrónimo para principiantes de uso múltiple del código de instrucción simbólica. El lenguaje de programación QBasic fue originalmente diseñado para dar a los programadores por primera vez la capacidad de realizar tareas de programación elementales. Si bien es un excelente lenguaje de programación para los principiantes a aprender, que carece de una función de la funcionalidad del ratón. Afortunadamente, es posible añadir la funcionalidad del ratón usando el código de libre acceso.

Instrucciones

1 Poner en marcha el entorno QBasic haciendo clic en el menú "Inicio" y seleccione "Ejecutar".

2 Escribe "cmd" en el cuadro de entrada de ejecución y pulse "OK".

3 Iniciar el entorno de programación escribiendo "Qbasic" y presionar enter.

4 Borrar el mensaje de bienvenida, pulsando la tecla "Escape".

5 Escriba el siguiente código en la ventana de QBasic:

SUB ratón (Funk)

COMPARTIDO B, H, V

POKE 100, 184: 101 POKE, Funk: POKE 102, 0

POKE 103, 205: 104 POKE, 51: POKE 105, 137

POKE 106, 30: POKE 107, 170: POKE 108, 10

POKE 109, 137: 110 POKE, 14: POKE 111, 187

POKE 112, 11: POKE 113, 137: POKE 114, 22

POKE 115, 204: 116 POKE, 12: POKE 117, 203

LLAME Absoluto (100)

B = PEEK (y HAAA)

H = PEEK (y HBBB) + PEEK (y HBBC) * 256

V = PEEK (y HCCC) + PEEK (y HCCD) * 256

END SUB

6 Pulse la tecla Intro para activar el soporte de ratón.