У меня еще Fuse есть под рукой. Ну вот ни там, ни там не работает DemoRus.Mod
Код:
MODULE DemoRus; (*$MAIN*)
IMPORT B := Basic, GrFonts, S := NewSupercode;
BEGIN
B.Init;
B.BORDER(B.Cyan); B.PAPER(B.Black); B.CLS;
B.INK(B.Red); B.FONT(GrFonts.ZxSpecRus8x8);
S.LITERY(4, 0, 3, 5, 7, "priwet, mir!");
B.INK(B.Yellow); B.FONT(GrFonts.ZxSpecRom8x8);
S.LITERY(4, 65, 3, 5, 7, "HELLO WORLD!");
B.INK(B.Green); B.FONT(GrFonts.MsDosCga8x8);
S.LITERY(4, 130, 3, 5, 7, "HELLO WORLD!");
B.PAUSE(B.WaitAKey);
B.Quit
END DemoRus.
В то же время TestFontRus работает.
Код:
(*$MAIN*) MODULE TestFontRus; (*$866*)
IMPORT b := Basic, GrFonts, io := Console;
BEGIN
b.Init; io.Clear(io.Black); io.SetColors(io.YellowOnGreen);
b.FONT(GrFonts.MsDosCgaRus8x8);
io.WriteStr("┌──────────────────────┐"); io.WriteLn;
io.WriteStr("│▓▒░Привет, Савелий!░▒▓│"); io.WriteLn;
io.WriteStr("└──────────────────────┘"); io.WriteLn;
io.SetColors(io.CyanOnBlue);
io.At(2, 4); io.WriteStr("╔══════════════════════╗");
io.At(2, 5); io.WriteStr("║ Привет, Савелий! ║");
io.At(2, 6); io.WriteStr("╚══════════════════════╝");
io.SetColors(io.RedOnYellow);
io.At(5, 8); io.WriteStr("╓──────────────────────╖");
io.At(5, 9); io.WriteStr("║ Привет, Савелий! ║");
io.At(5,10); io.WriteStr("╙──────────────────────╜");
io.SetColors(io.GreenOnBlack);
io.At(8,12); io.WriteStr("╒══════════════════════╕");
io.At(8,13); io.WriteStr("│ Привет, Савелий! │");
io.At(8,14); io.WriteStr("╘══════════════════════╛");
b.PAUSE(0);
b.Quit
END TestFontRus.
- - - Добавлено - - -
Сообщение от
Oleg N. Cher
какой именно версии у Вас Unreal Speccy?
Unreal Speccy Portable 0.0.50 а Fuse 1.6.0
Ответить с цитированием
Надеюсь, пригодится.
Как раз в мае 2023 года 40 лет, как я написал первую прогу для 8080 в машинных кодах и набил ее на пленочной клавиатуре МСУВТ В7. Летит время! Фото на аватарке это 2005 год. А сейчас я даже со своими детьми не снимаюсь, старичелло. Когда 4 летней дочке старые альбомчики показываю, она в шоке, какой когда-то был ее папа-дед. Сорри, за оффтоп. Так что все попробуем, что чего как.
