10 CLEAR 200,&HD000:DEFUSR=&HD000
20 DATA 21,00,00          :'LD  HL,address(N1) 
30 DATA CD,5C,2C          :'LD  DAC,(HL)     
40 DATA 21,00,00          :'LD  HL,address(N2) 
50 DATA CD,50,2C          :'LD  ARG,(HL)
60 DATA CD,5C,2F          :'Сравнить DAC и ARG
70 DATA 32,00,F1          :'LD  (F100h),A 
90 DATA C9                :'RET             
100 FOR T=0 TO &H12:READ Z$:POKE &HD000+T,VAL("&h"+Z$):NEXT
110 INPUT"Left";N1:INPUT"Right";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 &HD001,VAL("&h"+L1$):POKE &HD002,VAL("&h"+H1$)
160 POKE &HD007,VAL("&h"+L2$):POKE &HD008,VAL("&h"+H2$)
180 H=USR(H):A=PEEK(&HF100)
190 IF A=255 THEN PRINT"LEFT < RIGHT"
200 IF A=1 THEN PRINT"LEFT > RIGHT"
210 IF A=0 THEN PRINT"LEFT = RIGHT"