Procedure mode(mo:byte);
 begin
   Inline($3A/mo/
          $CD/$9B/$BE/
          $0E/$BC);
 end;

Procedure TxtCurOff;
 begin
   Inline($CD/$9B/$BE/
          $84/$BB);
 end;

Procedure TxtCurOn;
 begin
   Inline($CD/$9B/$BE/
          $81/$BB);
 end;

Procedure Draw(Xpos, Ypos : Integer);
 begin
   Inline($2A/ypos/
          $ED/$5B/xpos/
          $CD/$9B/$BE/
          $F6/$BB);
 end;

Procedure Plot(Xpos, Ypos : integer);
 begin
   Inline($2A/ypos/
          $ED/$5B/xpos/
          $CD/$9B/$BE/
          $EA/$BB);
 end;

Procedure Move(Xpos, Ypos : Integer);
 begin
   Inline($2A/ypos/
          $ED/$5B/xpos/
          $CD/$9B/$BE/
          $C0/$BB);
 end;

Procedure resetcolor;
 begin
   Inline($CD/$9B/$BE/
          $02/$BC);
 end;

Procedure grapen(col:byte);
 begin
   Inline($3A/col/
          $CD/$9B/$BE/
          $DE/$BB);
 end;

Procedure Frame;
 begin
   Inline($CD/$9B/$BE/
          $19/$BD);
 end;

Procedure Ink(inkno:byte;inkcol:integer);
 begin
   Inline($3A/inkno/
          $ED/$4B/inkcol/
          $41/
          $CD/$9B/$BE/
          $32/$BC);
 end;

Procedure Border(bordno:integer);
 begin
   Inline($ED/$4B/bordno/
          $41/
          $CD/$9B/$BE/
          $38/$BC);
 end;

Procedure Origin(xpos,ypos : integer);
 begin
   Inline($2A/ypos/
          $ED/$5B/xpos/
          $CD/$9B/$BE/
          $C9/$BB);
 end;

Procedure Deg;
 begin
   Inline($3E/$FF/
          $CD/$9B/$BE/
          $97/$BD);
 end;

Procedure CLG;
 begin
   Inline($CD/$9B/$BE/
          $97/$BD);
 end;

Procedure Paper(no:byte);
 begin
   Inline($3A/no/
          $CD/$9B/$BE/
          $96/$BB);
 end;

Procedure Pen(no:byte);
 begin
   Inline($3A/no/
          $CD/$9B/$BE/
          $90/$BB);
 end;