работа с прерываниями

[BrYan91]

извеняюсь наперёд если чтото не то
нада этот код на делфи переделать, консоль или визуально

uses crt,dos;
var Active:boolean;
    X,Y:integer;
    Rg:registers;
    Buttons:byte;
procedure SetRatio(x,y:byte);
begin
if Active then
begin
rg.ax:=$F;
rg.cx:=x;
rg.dx:=x;
Intr($3,rg);
end;end;
procedure msGOTO(x,y:integer);
Begin
if Active then
begin
rg.ax:=4;
rg.cx:=x;
rg.dx:=y;
Intr($33,rg);
end;end;
procedure Reset;
var b:boolean;
begin
rg.ax:=00;
Intr($33,rg);
Active:=(rg.bx=2) or(rg.bx=3);
SetRatio(8,16);
msGoto(80,22);
X:=1;
Y:=1;end;
procedure Show;
begin
if Active then
begin
rg.ax:=01;
Intr($33,rg);
end;end;
procedure HidE;
begin
if Active then
begin
rg.ax:=02;
Intr($33,rg);
end;
end;
Begin
Reset;
Show;
readln;
Hide;
readln;
end.

From artemavd: Слушай сюда, умник, если я в пятый раз увижу созданную тобой одну и ту же тему, я тебе такой бан сделаю, что мало не покажется. Понял?! Я запарился за тобой темы удалять. Еще раз и бан сразу без разбора.

[Пепел Феникса]

а в Делфи нет прерываний

[savva]

Напиши нормально, что нужно сделать?Что ты дал нам код? и "ули"(простите за выражение) с ним делать?

From artemavd: . Но все же придерживаеся русского языка.