10 CLEAR 200,&HF000:DEFUSR=&HF000
20 INPUT"Ваше число";N:A$=HEX$(VARPTR(N))
30 POKE &HF100,VAL("&h"+RIGHT$(A$,2)):POKE&HF101,VAL("&h"+LEFT$(A$,2))
40 DATA 2A,00,F1     :'LD   HL,(F100h)
50 DATA CD,5C,2C     :'CALL 2C5Ch
70 DATA 21,F6,F7     :'LD   HL,F7F6h
80 DATA 11,00,F2     :'LD   DE,F200h
90 DATA 01,10,00     :'LD   BC,10h
100 DATA ED,B0       :'LDIR
130 DATA C9          :'RET
140 FOR T=0 TO 17:READ Z$:POKE &HF000+T,VAL("&h"+Z$):NEXT
150 X=USR(X)
160 FOR T=0 TO 15:PRINT HEX$(PEEK(VARPTR(N)+T)),HEX$(PEEK(&HF200+T))
170 NEXT