Usando el ratón Kempston desde BASIC

[radastan]

Para los que quieran experimentar, y una buena novedad a futuros juegos de concursos.

X = IN 64479
Y = IN 65503 (en BASIC no podemos usar más de 175)

botones con IN 64223:

255 si no hay botones pulsados
253 si se ha pulsado botón izquierdo
254 si se ha pulsado botón derecho
252 si se ha pulsado ambos botones

Programa de ejemplo:

10 LET x = IN 64479
20 LET y = IN 65503
30 LET p = IN 64223
40 IF p = 254 OR p = 252 THEN CLS
50 IF p = 253 AND y<176 THEN PLOT x,y
60 GO TO 10

Si queréis probarlo en un emulador debéis activar el ratón Kempston, cuando pulséis los botones dibujareis o realizaréis un CLS.

Evidentemente desde BASIC no podemos realizar un dibujado pixel a pixel muy fiable a menos que movamos el cursor muy despacio, pero con la conveniente modificación es posible realizar un cursor carácter a carácter bastante bueno, para un juego de disparos, una vanetura gráfica, o un clon de Lemmings.

[jordigahan]

interesante...
por cierto, hay alguna manera de usar el teclado numerico del pc?

[na_th_an]

Si algún emu permite configurarlo, supongo que sí.