Hilfe: ZX81 ‚BASIC‘ Peek-Funktion ...

Question

Ich möchte den Code eines Zeichens finden gedruckt ...

Dies ist der Code:

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

Es sollte nur den Codewert von T drucken

Ich konnte später verwenden:

40 Print Peek (Code C) 

oder so etwas.

Aber die 10-30-Bit nicht funktioniert. Es gibt immer '0' -mit verschiedene Buchstaben zu: G, T 'schwarze Grafik' und M,

Was mache ich falsch?

-Will zur Kollisionserkennung verwendet werden.

Answer 1

jdehaan das Recht, den Druck des T ohne Hinter ; den Cursor nach unten auf die nächste Zeile nach dem Drucken. (Mit ;, dann ist es eine Position nach rechts sein.)

das Zeichen lesen Sie gerade geschrieben würden Sie wieder eine Position zurückbewegen müsste:

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

gibt mir 57, die der Zeichencode für T ist.

Answer 2

Nach dieser ist es die richtige Adresse zu spähen, aber vielleicht ist der Cursor nicht an der richtigen Position? Wenn ich mich recht erinnere (Mann, was machst du mit dem alten Dinge :-)! ) Der Druck AT könnte die Cursor um eine Position nach den gedruckten Zeichen (oder einer Zeile darunter).

Verschieben