Управление монитором и мышью Опции

[RNic7]

По нажатию на левую кнопку мыши все символы переворачиваются вверх ногами. по наведению мыши на символ "Ф", он меняется на "Р".

Буду очень признателен, если хотя бы намекнете, как делать. Устал висеть в гугле уже третие сутки

[IUnknown]

Вот нашел что-то.

Это "что-то" к заданию твоему не имеет никакого отношения.

Вот пример работы с мышой из Паскаля: по нажатию на левую кнопку символ под указателем мыши меняется на пробел. проверял под DosBox-ом (компилятор - Турбо Паскаль 7.0). Для выхода - просто нажать Esc.

uses Crt;

Function msInit : boolean;
var status : Word;
begin
   asm
      mov ax, $00
      int $33
      mov status, ax
   end;
   msInit := (status = $FFFF);
end;

procedure msShow; assembler;
asm
   mov ax, $01
   int $33
end;
procedure msHide; assembler;
asm
   mov ax, $02
   int $33
end;

function msBtnPressed (var X, Y : Word) : Byte;
var
   btn : Byte;
   pX, pY : Word;
begin
   asm
      mov ax, $03
      int $33
      mov btn, bl
      mov pX, cx
      mov pY, dx
   end;
   X := pX; Y := pY;
   msBtnPressed := btn
end;

procedure CallProc (X, Y : Word);
type
   vmRec =
   record
      Ch : Char;
      Attr : Byte;
   end;
var
   vm : array[0 .. 80 * 25 - 1] of vmRec
   absolute $B800:$0000;
begin
   X := X div 8; Y := Y div 8;
   vm[80 * Y + X].Ch := ' ';
end;

var
   X, Y : Word;
   Finish : Boolean;
begin
   if not msInit then Halt(0);

   msShow;
   Finish := False;
   repeat

      if msBtnPressed (X, Y) = 1 then { левая кнопка мыши }
      begin
         msHide;
         CallProc(X, Y);
         msShow;
      end;

      if KeyPressed then
      begin
         Finish := (ReadKey = #27);
         while KeyPressed do ReadKey;
      end;
   until Finish;
   msHide;
end.

Также в FAQ-е есть статья, там написано что и как.