UNIT RAPSVARS;
INTERFACE
Const Apos = '''';
  UpLeft = #201;
  UpRight = #187;
  LoLeft =  #200;
  LoRight = #188;
  HWall = #205;
  VWall = #186;
Type   Buffer = array[1..25,1..80,1..2] Of Char;
       ScreenPointer = ^Buffer;
       Filenam = Record
                 Filenm : String[34];
       End;

Fieldrecord = Record
       Fldln    : Integer;
       Fldpos   : Integer;
       Fldlen   : Integer;
       Fldtyp   : Char;
       Flddecn  : Integer;
       Fldints  : Char;
       Fldcolr  : Char;
       FldBkColr: Char;
       Fldattr  : Char;
       FldKey   : Char;
     End;
VAR
       RecordNumber : LongInt;
       Size         : Integer;
       Dups         : Boolean;
       Global_Register_Val   : Char;
       Error    : Integer;
       Filevar  : Text;
       Filevar1 : Text;
       CH     : Char;
       Xpos   : Integer;
       Ypos   : Integer;
       X, Y   : Integer;
       X1, X2 : Integer;
       Y1, Y2 : Integer;
       lnndx  : Integer;
       Posndx : Integer;
       Fldseq : Integer;
       Hldfldseq   : Integer;
       Maxfld      : Integer;
       Frstdatafld : Integer;
       Lastdatafld : Integer;
       Datalen  : Integer;
       MaxKeylen   : Integer;
       Keychar  : char;
       Function_Key : Char;
       Function_Id  : Char;
       Scrnln   : Array [1..200,1..80] Of Char;
       Scrnptr  : ScreenPointer;
       Workline : Array[1..80] Of Char;
       Clearscrn : Boolean;
       Crtmode : Char;
       Continue : Boolean;
       FKey     : Boolean;
       Mapln    : Array [1..200] of Integer;
       Mappos   : Array [1..200] of Integer;
       Maplen   : Array [1..200] of Integer;
       Maptyp   : Array [1..200] Of Char;
       Mapdecn  : Array [1..200] Of Integer;
       Mapints  : Array [1..200] Of Char;
       Mapcolr  : Array [1..200] Of Char;
       Mapattr  : Array [1..200] Of Char;
       MapKey   : Array [1..200] Of Char;
       Filename : Filenam;
       Mapname  : Filenam;
       Applname : Filenam;
       Datafld  : Boolean;
       Fldrec   : Array [1..250] Of Fieldrecord;
       MapTextColor : Byte;
       Mapbkcolor   : Byte;
       MapBoxColor  : Byte;
       DfltTextColor: Char;
       DfltBkColor  : Char;
       DfltBoxColor : Char;
       Goodline     : Boolean;
       Hldchar      : Char;
       CompChar     : Char;
       Skip_Prev    : Boolean;
       ScrnPrompt   : String[80];
       Errorfld     : Byte;
       CondCode     : Integer;
       OrigTextMode : Word;
       GraphDriver  : Integer;
       GraphMode    : Integer;
       ProgName     : String;
       CmdLine      : String;
       Scrnln1      : String[80];
       ScreenTime   : String[11];
       ScreenDate   : String[10];
       Year, Month, Day, Dayofweek  : word;
       Hour, Minute, Second, sec100 : Word;
       TChr, Tchr1, Tchr2, Tchr3, Tchr4, Tchr5, Tchr6, Tchr7, Tchr8, Tchr9,
       Tchr10       : String;
       TNum, TNum1, TNum2, TNum3, TNum4, TNum5, TNum6, TNum7, TNum8, TNum9,
       TNum10       : LongInt;
Implementation
END.