Новый символ Опции

[manhunt]

Для программы нужен красивый символ)). Возможно ли создать в паскале символ notx4 токо чтоб было не так "notx4", а Х в нижнем регистре 4 и над иксом отрицание. Возможно ли такое и с помощю каких средств? Спасибо.

[volvo]

Вот так, например:

uses Dos;

procedure Reg_Table (var Table; Where : Integer);
var
   Regs : Registers;
begin
   with Regs do
   begin
      AX := $1100;
      BX := $0E00;
      CX := 1;
      DX := Where;
      BP := Ofs (Table);
      ES := Seg (Table);
      Intr ($10, Regs);
   end;
end;

const
   New_Sym : array[1 .. 14] of Byte =
   ( $FF, $00, $88, $50, $20, $55, $57, $89,
     $00, $00, $00, $00, $00, $00 );

begin
   Reg_Table (New_Sym, 254);
   WriteLn(Chr(254));
end.

, из-под DOSBox-а выглядит чем-то напоминающим отрицание X₄ (художник из меня - никакой, да и в 14 линий по 8 пикселов вряд-ли можно что-то сверхкрасивое уложить. Попробуй, может у тебя получится)

DOSBox:


Напрямую из проводника, естественно, работать не будет...