10 PRINT"Найду большее из двух чисел (0╤255)"
20 INPUT"Первое число ";N1:INPUT"Второе число ";N2
40 POKE &HC000,N1:POKE &HC001,N2
50 CLEAR 200,&HD000:DEFUSR=&HD000:I=&HD000
70 READ A$:IF A$="z" THEN 110
90 POKE I,VAL("&h"+A$):I=I+1:GOTO 70
110 A=USR(0)
120 PRINT"Большее число:";PEEK(&HC003):END
130 DATA 3A,00,C0    :'LD A,(C000h)
140 DATA 47          :'LD B,A
150 DATA 3A,01,C0    :'LD A,(C001h)
160 DATA B8          :'CP B
170 DATA F2,0C,D0    :'JP P,D00Ch
180 DATA 78          :'LD A,B
190 DATA 32,03,C0    :'LD (C003h),A
200 DATA C9,"z"      :'RET