10 CLEAR 100,&HD000:DEFUSR=&HD000:AD=&HD000
40 READ A$:IF A$="Z"THEN 80
60 POKE AD,VAL("&h"+A$):AD=AD+1:GOTO 40
80 A=USR(0):PRINT"σΥΝΝΑ:"PEEK(&HD00C):END
110 DATA 06,0A      :' LD    B,0Ah
120 DATA 3E,00      :' LD    A,00h
130 DATA 80         :' ADD   A,B      ;
W
W
Y
140 DATA 10,FD      :' DJNZ  D004h    ;
W
W
W
[
150 DATA 32,0C,D0   :' LD    (D00C),A
160 DATA C9,"Z"     :' RET