1
Escribir una subrutina para controlar la visibilidad del cursor del ratón y leer sus coordenadas . Se debe tomar un parámetro que afecta a la función de la subrutina en función de su valor: 1 muestra el cursor , 2 y 3 se esconde actualiza las variables globales B, H y V. Estas variables almacenan el estado de los botones , la posición horizontal y la posición vertical de el cursor . Definir las variables y comprobar para ver si el cursor ya está oculto, absteniéndose de ocultarlo de nuevo si ese es el caso . Esta primera parte de la rutina debe ser algo como esto :
ratón SUB ( Param )
COMPARTIDA B, H, V
STATIC Cursor
SI param = 1 ENTONCES Cursor = 1
SI param = 2 Y Cursor = 0 THEN EXIT SUB
SI param = 2 Y Cursor = 1 ENTONCES : Cursor = 0
2
Introduzca el código de montaje necesario para interactuar con el ratón y guardar los valores de botón y la posición. La segunda parte de la rutina debe ser exactamente como lo siguiente a la obra:
POKE 100 , 184 : POKE 101, Param : POKE 102 , 0
POKE 103 , 205: POKE 104 , 51 : POKE 105 , 137
POKE 106 , 30: POKE 107 , 170: POKE 108 , 10
POKE 109 , 137: POKE 110 , 14 : POKE 111 , 187
< p > POKE 112 , 11 : POKE 113 , 137: POKE 114 , 22
POKE 115 , 204: POKE 116 , 12 : POKE 117 , 203
LLAMADA absoluta ( 100 )
< p > B = PEEK (& HAAA )
H = PEEK (& HBBB ) + PEEK (& HBBC ) * 256
V = PEEK (& HCCC ) + PEEK (& HCCD ) * 256
< p> END SUB
3
Llame al subprograma en el cuerpo principal de su código para utilizar el ratón. Para mostrar u ocultar el cursor , ingrese ya sea "Ratón 1 " o "Mouse 2 . " Escriba "Mouse 3 " antes de hacer nada con las variables B, H y V. El valor de B varía en función del estado de los botones del ratón. Si B = 0 ningún botón es presionado , mientras que 1 significa que el botón izquierdo , 2 significa el derecho y 3 significa tanto .