       (*************************************************)
       (*************************************************)
       (***** *******  ****        *****       **********)
       (***** * **** * **** ************* ***** *********)
       (***** ** ** ** **** ************* ***** *********)
       (***** ***  *** ****      ******** ***** *********)
       (***** ******** **** ************* ***** *********)
       (***** ******** **** ************* ***** *********)
       (***** ******** ****        *****        *********)
       (*************************************************)
       (****                                          ***)
       (****  (C)dIMOW wQ^ESLAW aLEKSANDROWI^,1986G   ***)
       (****                                          ***)
       (*************************************************)
       (*************************************************)




  (*   kratkoe opisanie paketa MED  10.10.86*)
  (*       dlq dwk-3,3m2 s kontrollerom kgd *)
	(* last update 19 MAY 87*)

  PROCEDURE INIT;EXTERNAL;
           (* inicializaciq |kranow*)
  PROCEDURE FINIT;EXTERNAL;
           (*okon~anie raboty*)

  PROCEDURE WINDOW(XL,YB,XR,YT:INTEGER);EXTERNAL;
            (*ob'qwlenie wirtualxnogo okna*)
            (*XL,YB-nivnij lewyj ugol,XR,YT-werhnij prawyj*)
  PROCEDURE VIEWPORT(XL,YB,XR,YT:INTEGER);EXTERNAL;
            (*ob'qwlenie polq wywoda 0:399,0:279*)

  PROCEDURE GRMODE(ONOFF:INTEGER);EXTERNAL;
            (*wkl=1/wykl=0 gr.|krana*)
  PROCEDURE ANMODE(ONOFF:INTEGER);EXTERNAL;
            (*wkl=1/wykl=0 ac |krana*)

  PROCEDURE NEWPICTURE(I:INTEGER);EXTERNAL;
            (*inwersiq=-1/o~istka=0/zaliwka=1 polq wywoda*)

  PROCEDURE DRAWMODE(I:INTEGER);EXTERNAL;
            (*ustanowka revima wywoda:-1,0,1*)
  PROCEDURE LINESTYLE(I:INTEGER);EXTERNAL;
            (*ustanowka tipa linii 0-7*)
  PROCEDURE USERSTYLE(I:INTEGER);EXTERNAL;
            (*ustanowka "polxzowatelxskogo" tipa*)
	(* I - l`boe celoe*)
  PROCEDURE SETCHUP(I,J:INTEGER);EXTERNAL;
            (*ustanowka poworota simwola: 0,1/1,0/0,-1/-1,0*)
		(* 1,1/-1,1/1,-1/-1,-1*)
  PROCEDURE SETCHSIZE(I,J:INTEGER);EXTERNAL;
            (*ustanowka razmera simwola(wirt.ed.)   *)
  PROCEDURE SETFONT(I:INTEGER);EXTERNAL;
            (*wybor fonta, 1,2 matrica 8X9,16h18 *)
  PROCEDURE SETHATCH(I:INTEGER);EXTERNAL;
            (*wybor {trihowki*)
		(*I=0..7*)
  PROCEDURE LINE(X,Y,XX,YY:INTEGER);EXTERNAL;
            (*liniq*)
  PROCEDURE DOT(X,Y:INTEGER);EXTERNAL;
            (*to~ka*)
  PROCEDURE CIRCLE(X,Y,R:INTEGER);EXTERNAL;
            (*okruvnostx*)
  PROCEDURE ARC(X,Y,R,XS,YS,XT,YT,CW:INTEGER);EXTERNAL;
            (*duga ot XS,YS do XT,YT,CW=1-po ~asowoj,0 - protiw*)
  PROCEDURE CHARACTER(X,Y:INTEGER; C:CHAR);EXTERNAL;
   (*simwol w poz. X,Y ;koi7n0n1 16B,17B=rus/lat, upr. ne otrab.*)

  PROCEDURE CURSOR(VAR X,Y:INTEGER;VAR C:CHAR);EXTERNAL;
   (*gr.kursor,upr:ESC<A-D>,ESC<ne A-D>- perekl.skorosti;C=navali+wyhod*)

  PROCEDURE FILL(X,Y:INTEGER);EXTERNAL;
            (*zapolnenie grani~no-opredelennoj oblasti, soderv. X,Y*)

  TYPE TCELL=ARRAY[1..8] OF CHAR;
  PROCEDURE CELL(X,Y:INTEGER; VAR C:TCELL);EXTERNAL;
            (*wywod 8h8 bit X:0-49,Y:0-34*)
  PROCEDURE CLRCELL(X,Y:INTEGER);EXTERNAL;
            (*o~iska 8h8 bit teku}im wywodom*)

  PROCEDURE VANPOS(X,Y:INTEGER);EXTERNAL;
            (*pozicionirowanie ac kursora blizko k X,Y*)

  PROCEDURE ANPOS(ROW,COLUMN:INTEGER);EXTERNAL;
            (*pozic. w terminah stroki:1-24, stolbca:1-80 ac |krana*)
  PROCEDURE ANCLEAR(ROW,COLUMN:INTEGER);EXTERNAL;
            (*to ve + o~iska ot |toj pozicii*)

(* wse koordinaty, krome ogoworennyh osobo -32768:+32767*)

(* X,Y=0 - niz gr. |krana*)

(* wesx wywod teku}imi atributami*)
(* pri wywode dug ne sleduet naru{atx proporcii po h i u *)
(* ne sleduet delatx pole wywoda<8 po X*)
(* HATCH=3 trebuet bolx{ogo steka pri bolx{ih razmerah kontura po Y*)
(* prowerqlosx s PASCAL OMSI V1.1G*)
(* ispolxzuet EIS, pri isp. na dwk2m : .LOAD FS -|mulqtor EIS/FIS*)

(*************************************************************)
(*                                                           *)
(*   s awtorom movno swqzatxsq po tel. 536-56-42 (ot 18.00)  *)
(*   w krajnih slu~aqh movno po dom.   535-31-55             *)
(*                                                           *)
(*************************************************************)
   