10 OUT &HAA,&B110
20 A=INP(&HA9)
30 PRINT A:GOTO 10
...con lo que obtendremos en A, 254, 253, 251, 239, 247, 223, 191 y 127,
respectivamente para cada tecla. El £nico problema es que al ejecutar este
programa en MSX2 el motor del casette se pone en funcionamiento.
Eso es porque esta lectura es un poco "ilegal". Primero hay que leer el
registro del PPI para saber como esta el casette, el diodo de mayusculas,
etc. y luego combinar el balor leido con el que vamos a escribir.
Pero cómo os gusta complicaros la vida...
IF NOT PEEK(&HFBFB) AND 1 THEN shift está pulsado
IF NOT PEEK(&HFBFB) AND 2 THEN ctrl está pulsado
IF NOT PEEK(&HFBFB) AND 4 THEN graph está pulsado
IF NOT PEEK(&HFBFB) AND 16 THEN graph está pulsado
IF NOT PEEK(&HFBEC) AND 4 THEN esc está pulsado
IF NOT PEEK(&HFBEC) AND 64 THEN select está pulsado
Hala, a cascalla! X-)
