Справка: ZX81 ‘BASIC’ Функция Peek…

Question

Я хочу найти напечатанный код символа ...

Это код:

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

Следует просто напечатать значение кода T

Я мог бы позже использовать:

40 Print Peek (Code C) 

Или что-то.

Но 10-30 бит не работает. Он всегда возвращает «0» - тоже с разными буквами: G, T «черный рисунок» и M,

Что я делаю не так?

-Будет использоваться для обнаружения столкновений.

Answer 1

Справа от jdehaan, печать T без запаздывания ; переместит курсор вниз на следующую строку после печати.(С ;, это будет на одну позицию вправо.)

Чтобы прочитать только что написанный символ, вам нужно снова вернуться на позицию:

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

дает мне 57, который является символьным кодом для T.

Answer 2

Согласно это это правильный адрес для просмотра, но, возможно, курсор находится не в правильном положении? Если я хорошо помню (чувак, что ты делаешь с этой старой вещью :-)! ) PRINT AT может перемещать курсор на одну позицию после напечатанного символа (или на одну строку ниже).