10 CLEAR 200,&HD000:DEFUSR=&HD000
20  DATA 11,C3,98      :'LD  DE,98C3h
30  DATA 21,A1,56      :'LD  HL,56A1h
40  DATA ED,53,30,D0   :'LD  (D030h),DE
50  DATA ED,63,32,D0   :'LD  (D032h),HL
60  DATA EB            :'EX  DE,HL
70  DATA ED,53,34,D0   :'LD  (D034h),DE
80  DATA ED,63,36,D0   :'LD  (D036h),HL
90  DATA EB            :'EX  DE,HL
100 DATA ED,53,38,D0   :'LD  (D038h),DE
110 DATA ED,63,3A,D0   :'LD  (D03Ah),HL
120 DATA C9,"RET"      :'RET
140 READ A$
150 IF A$="RET" THEN 180
160 POKE &HD000+T,VAL("&h"+A$)
170 T=T+1:GOTO 140
180 A=USR(A)
190 PRINT "До команды EX DE,HL:"
200 PRINT " DE=";HEX$(PEEK(&HD031));HEX$(PEEK(&HD030))
210 PRINT " HL=";HEX$(PEEK(&HD033));HEX$(PEEK(&HD032))
220 PRINT "После команды EX DE,HL:"
230 PRINT " DE=";HEX$(PEEK(&HD035));HEX$(PEEK(&HD034))
240 PRINT " HL=";HEX$(PEEK(&HD037));HEX$(PEEK(&HD036))
250 PRINT "После еще одной команды EX DE,HL:"
260 PRINT " DE=";HEX$(PEEK(&HD039));HEX$(PEEK(&HD038))
270 PRINT " HL=";HEX$(PEEK(&HD03B));HEX$(PEEK(&HD03A))