include rus_add.e sequence s s="񆦇" ---^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^-cp866 clear_screen() puts(1, "Test of the current Russian code page\n\n") puts(1, "cp 866 -> " & s & '\n') -- DOS puts(1, "cp 1251 -> " & recode(s, "dw") & "\n") -- WIN puts(1, "cp 8859-5 -> " & recode(s, "di") & "\n") -- ISO puts(1, "cp koi8-r -> " & recode(s, "dk") & "\n") -- KOI puts(1, "cp Mac OS -> " & recode(s, "dm") & "\n") -- MAC puts(1, "cp utf-8 -> " & recode(s, "du") & "\n\n") -- UTF puts(1, "Press Enter to exit...") s[1] = getc(0)