10 CLEAR 200,&HD000 'Резервирование области в RAM
20 AD=&HD000
30 READ A$:IF A$="Z" THEN 100
50 A=VAL("&H"+A$):POKE AD,A:AD=AD+1:GOTO 30
100 DEFUSR=&HD000
110 A=USR(0)
120 IF A<>0 THEN PRINT A
130 GOTO 110
220 DATA CD,1F,52  :' CALL 521F
230 DATA CD,D5,00  :' CALL 00D5
240 DATA 26,00     :' LD   H,0
250 DATA 6F        :' LD   L,A
260 DATA C3,99,2F  :' JP   2F99
270 DATA C9,"Z"    :' RET