10 DATA  3A,00,E0      :' D000:LD A,(E000) ;Исходное число
20 DATA  47            :'      LD B,A      ;сохраняем в регистре B
30 DATA  CD,12,D0      :'      CALL D012   ;
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
Y
40 DATA  CD,A2,00      :'      CALL 00A2   ;Печатаем символ       
V
50 DATA  78            :'      LD A,B      ;Восстанавливаем       
V
60 DATA  CD,16,D0      :'      CALL D016   ;
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
V
Y
70 DATA  CD,A2,00      :'      CALL 00A2   ;Печатаем символ       
V
V
80 DATA  C9            :'      RET         ;Возврат в MSX-BASIC   
V
V
90 DATA  0F            :'D012: RRCA        ;░
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
[
V
100 DATA 0F            :'      RRCA        ;Ставим старший полубайт
V
110 DATA 0F            :'      RRCA        ;на место младшего      
V
120 DATA 0F            :'      RRCA        ;                       █
130 DATA E6,0F         :'D016: AND 0F      ;Выделяем младший полубайт
140 DATA 0E,0A         :'      LD C,0A     ;Сравниваем с 10
150 DATA B9            :'      CP C        ;
G
G
G
160 DATA FA,21,D0      :'      JP M,D021   ;Если меньше, то 
W
W
W
W
W
W
W
Y
170 DATA C6,37         :'      ADD A,37    ;                       
V
180 DATA C9            :'      RET         ;                       
V
190 DATA C6,30         :'D021: ADD A,30    ;░
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
[
200 DATA C9            :'      RET         ;
210 '                  :'E000: заданное число
220 FOR I=0 TO 35: READ A$
230   POKE &HD000+I,VAL("&h"+A$)
240 NEXT I
245 PRINT"Введите целое число, не превышающее 255";
250 INPUT BYTE: POKE &HE000,BYTE
255 PRINT"Ваше число в шестнадцатеричном виде: &h";
260 DEFUSR=&HD000:Z=USR(0)