10 INPUT C,B:POKE &HA000,C:POKE &HA001,B 'C - регистр, B - значение
20 DEFUSR=&H9000:AD=&H9000
30 READ A$:IF A$="z" THEN 70
40 POKE AD,VAL("&h"+A$):AD=AD+1:GOTO 30
70 A=USR(0):END
90  DATA 3A,00,A0       :'  LD    A,(A000h)
100 DATA 4F             :'  LD    C,A
110 DATA 3A,01,A0       :'  LD    A,(A001h)
120 DATA 47             :'  LD    B,A
130 DATA CD,47,00       :'  CALL  0047h
140 DATA C9,"z"         :'  RET