Руссифицированный бейсик

[Den1982]

Существует ли сабж в природе? Без разницы какой 48/128/Beta/Mega... Ну очень хочется юзерфрендли бейсик с русскими буковками.
Пробую сейчас руссифицировать BetaBasic 1.8, по статье в Радиолюбителе 03-1994 (стр.16), но знаний не хватает. Вроде все делаю как надо, но в итоге кракозябры вместо букофф. Подозрение что в листинге программы на асме где то ошибка.

	ORG	55670
MESS	LD	A,0
	RST	#10
	JP	#EE0C
	ORG	MESS+8
BEGIN	CP	128
	JR	NC,WORD
	CP	2
	JR	C,CONTR
CHR_	BIT	0,(IY+02)
	JR	Z,SCREEN
	LD	HL,(CHANK)
PRINT	LD	(23606),HL
CONTIN	CALL	#0B03
	CP	2
	CALL	C,LDADD
	JR	C,CONTR
	JP	#FBAA
SCREEN	LD	HL,(CHANS)
	JR	PRINT
CONTR	LD	HL,CHANS
	BIT	0,(IY+02)
	JR	Z,ALTER
	INC	HL
	INC	HL
ALTER	OR	A
	JR	Z,ORDIN
	LD	DE,RUSS
LDO	LD	(HL),E
	INC	HL
	LD	(HL),D
	RET
ORDIN	LD	DE,LAT
	JR	LDO
WORD	LD	HL,15360
	LD	(23606),HL
	CP	#A8
	JR	Z,FN_
	LD	HL,CONTIN
	LD	(#FBA8),HL
	CALL	#FBAA
LDADD	LD	HL,BEGIN
	LD	(#FBA8),HL
	RET
FN_	LD	HL,WAIT
	LD	(#FBA8),HL
	JR	CONTIN
WAIT	CP	"A"
	JR	NC,CONTIN
	LD	HL,BEGIN
	LD	(#FBA8),HL
	JP	(HL)
CHANS	DEFW	15360
CHANK	DEFW	15360
RUSS	EQU	54901-256
LAT	EQU	15360

Прошу помощи у кодеров
TRD с моими мучениями. Загружаем BBR.B, RUN, RANDOMIZE USR 58419.

[Advertiser]