10 CLEAR 200,&HF000:DEFUSR=&HF000
20 DATA 21,00,00     :'LD  HL,address(N1) ;F000h
30 DATA CD,5C,2C     :'LD  DAC,(HL)       ;F003h
40 DATA 21,00,00     :'LD  HL,address(N2) ;F006h
50 DATA CD,50,2C     :'LD  ARG,(HL)       ;F009h
60 DATA CD,9A,26     :'DAC:=DAC+ARG       ;F00Ch
70 DATA 21,00,00     :'LD  HL,address(N1) ;F00Fh
80 DATA CD,67,2C     :'LD  (HL),DAC       ;F012h
90 DATA C9           :'RET                ;F015h
100 FOR T=0 TO &H15:READ Z$:POKE &HF000+T,VAL("&h"+Z$):NEXT
110 INPUT"Первое слагаемое";N1:INPUT"Второе слагаемое";N2
120 A$=HEX$(VARPTR(N1)):B$=HEX$(VARPTR(N2))
130 L1$=RIGHT$(A$,2):L2$=RIGHT$(B$,2)
140 H1$=LEFT$(A$,2):H2$=LEFT$(B$,2)
150 POKE &HF001,VAL("&h"+L1$):POKE &HF002,VAL("&h"+H1$)
160 POKE &HF007,VAL("&h"+L2$):POKE &HF008,VAL("&h"+H2$)
170 POKE &HF010,VAL("&h"+L1$):POKE &HF011,VAL("&h"+H1$)
180 H=USR(H)
190 PRINT"Сумма:";N1