{$N+}
{$E+}
{$X+}
uses graph,crt;
const
x0=500; {начало координат}
y0=400;
mtrx=10;
mtry=10;
shag=0.0001;
var
gm,gd:integer;
x1,y1,i, j:integer;
xmin, xmax, ax :real;
x,y:real;
sx, sy: integer;
 Coord: String;



Procedure ShowMouse; assembler; {показать мышь}
Asm
Mov AX,$01
Int $33
end;

{procedure get_mouse_status(var button: Byte: var x, y: Word);
begin
regs.AX:=$03;
intr($33, regs);
with regs do
button:=BL;
x:=CX;
y:=DX;
end;
end;


{Function getnum(num, {var x,y: real):word; {получить координаты при нажатии кнопки мыши}
{var
kn:word;
begin
asm
mov ax,$05
mov bx,num
int $33
mov x,cx
mov y,dx
mov kn,bx
end;
leftnum:=kn
end;  }


Function InitMouse:boolean; {Инициализация мыши}
var
ResultRegAX:word;
begin
asm
mov ax,$00
int $33
mov ResultRegAX,ax
end;
If ResultRegAX=$FFFF then InitMouse:=true else InitMouse:=false
End;

{function gx(x:real; sx:Integer):integer;
begin
gx:=trunc(sx*x)+Getmaxx div 2;
end;

function gy(y:real; sy:Integer):integer;
begin
gy:=trunc(sy*y)+Getmaxy div 2;
end; }



begin


writeln ('Vvedite predely izmeneniya X.');
write ('ot: ');
readln (xmin);
write ('do: ');
readln (xmax);
 gd:=InstallUserDriver('vesa256',nil);
 gm:=3;
 initgraph (gd,gm,'');

{------------------}
setcolor(8);
{Оси}
for i:=0 to 768 do putpixel(x0,i,8);
for i:=0 to 1024 do putpixel(i,y0,8);

OutTextXY(497,0,'^'); OutTextXY(999,397,'>'); {стрелки осей OX, OY}
SetColor(LightGreen);
OutTextXY(480,0,'y'); OutTextXY(999,410,'x');
OutTextXY(505,405,'0');
SetColor(Green); {установка зеленого цвета}
For i:=1 to 20 do {нанесение делений и числовых отметок на ось OY}

begin Str(20*(21-i), Coord); j:=i*20+10;
OutTextXY(2, j-5, Coord);
Line(28, j, 30, j)
end;
For i:=1 to 29 do {нанесение делений и числовых отметок на ось OX}
begin Str(20*i,Coord); j:=i*20+30;
If Odd(i) then OutTextXY(j-8, 436,Coord); Line(j,430, j,432)
end;
SetViewPort(31,4,630,429,FALSE); {установка текущего графического окна}

{sx:=getmaxx div 3 - 10;
sy:=getmaxy div 3 - 10; }
x:=xmin;
repeat
begin
y:=x*x*x*ln(abs(x*x-4));
{putpixel (x0+trunc(x*mtrX),y0-trunc(y*mtrY),yellow);}
{putpixel (gx(x, sx), gy(y,sy), yellow);}
 x:=x+shag;
end;
until x<=xmax;

if initMouse then
Begin
ShowMouse;
{getnum (0,x,y);   }

end;
readkey;
closegraph;
end.

Function getnum(num:word; var x,y: word):word;
var px, py, kn:word;
begin
asm
mov ax,$05
mov bx,num
int $33
mov px,cx
mov py,dx
mov kn,bx
end;
x := px; y := py;
getnum:=kn
end;

 putpixel(zcrtx+trunc(x*mtrX),zcrty-trunc(y*mtrY),colorg) end;

Uses Graph, Printer, Crt;

Procedure CopyToPRN( X1, Y1, X2, Y2 : Integer; Bk1, Bk2 : Word;
                    Inverse : Boolean; Mode : Byte );
Var
 ScanLine : Integer;
 N1, N2   : Byte;

 Function ConstructByte( X, Y : Integer ) : Byte;
 Const
   Bits : Array[ 0 .. 7 ] Of Byte = ( 128, 64, 32, 16, 8, 4, 2, 1 );
 Var P     : Word;
     CByte : Byte;
     Bit   : Byte;
     YY    : Integer;
 Begin
   CByte := 0;
   For Bit := 0 To 7 Do
     Begin
       YY := Y + Bit;
       P := GetPixel( X, YY );
       If ( YY <= Y2 ) AND ( P <> Bk1 ) AND ( P <> Bk2 )
         Then Inc( CByte, Bits[ Bit ] );
     End;
   ConstructByte := CByte;
 End;

 Procedure DoLine;
 Var
   XPixel : Integer;
   PrintByte : Byte;
 Begin
   If Mode = 1
     Then Write( Lst, #27'L' )
     Else Write( Lst, #27'*', Chr( Mode ) );
   Write( Lst, Chr( N1 ), Chr( N2 ) );
   For XPixel := X1 To X2 Do
     Begin
       PrintByte := ConstructByte( XPixel, ScanLine );
       If( Inverse ) Then PrintByte := NOT PrintByte;
       Write( Lst,  Chr( PrintByte ) );
     End;
   Write( Lst, #10 );
 End;

Label Quit;

Begin
 Mode := Mode MOD 7;
 If Mode In [ 0, 5 ]
   Then Mode := 4;
 Write( Lst, #27'3'#24 );
 N1 := Lo( Succ( X2 - X1 ) );
 N2 := Hi( Succ( X2 - X1 ) );
 ScanLine := Y1;
 While ScanLine < Y2 Do
   Begin
     If KeyPressed AND ( ReadKey = #27 )
       Then Goto Quit;
     DoLine;
     Inc( ScanLine, 8 );
   End;
 Quit:
 Write( Lst, #27#2 );
End;

Begin
 { Инициализация графики }
 { Построение изображения }
 CopyToPrn(0, 0, GetMaxX, GetMaxY, Black, Black, False, 1);
 { Закрываем графику }
End.