Ayuda: Función de la ojeada ZX81 ‘BASIC’ ...

Question

Quiero encontrar el código de un carácter impreso ...

Este es el código:

10 Print AT 2,2; "T"
20 Let C=Peek(Peek 16398+256*Peek 16399)
30 Print Peek(C)

Sólo debe imprimir el valor del código de T

Me vendría después:

40 Print Peek (Code C) 

O algo.

Sin embargo, el no funciona 10-30 bits. Siempre vuelve '0' -Con diferentes letras demasiado: G, 'gráfico negro' T y M,

¿Qué estoy haciendo mal?

-Will ser utilizado para la detección de colisiones.

Answer 1

derecho de jdehaan, imprimir la T sin ; dinámico cambiará el cursor hacia abajo a la siguiente línea después de la impresión. (Con ;, es ser una posición a la derecha.)

Para leer el carácter que acababa de escribir que tendría que retroceder una posición otra vez:

PRINT AT 2,2;"T";AT 2,2;
PRINT PEEK(PEEK 16398+PEEK 16399*256)

Me da 57, que es el código de caracteres para T.

Answer 2

De acuerdo con este que es la dirección correcta para echar un vistazo, pero tal vez el cursor no está en la posición correcta? Si recuerdo bien (hombre, ¿qué haces con esa cosa vieja :-)! ) El PRINT AT podría mover la posición del cursor uno después del carbón impreso (o una línea por debajo).