home *** CD-ROM | disk | FTP | other *** search
/ Shareware 1 2 the Maxx / sw_1.zip / sw_1 / PROGRAM / DOORDR50.ZIP / UNITINTR.ARJ / CFGEDITR.INT < prev    next >
Text File  |  1992-02-02  |  1KB  |  32 lines
  1. Unit CfgEditr;
  2. {$V-}
  3. interface
  4. uses ddscott, crt;
  5. type
  6.  datatypetype= (dString,dbyte,dinteger,dword,dlongint,dreal,dnoentry);
  7.  TemplateDef= record
  8.                header: string;
  9.                headercolor: byte;
  10.                titles: array[1..2,1..20] of string[40];
  11.                datalength: array[1..2,1..20] of byte;
  12.                data: array[1..2,1..20] of string[40];
  13.                databyte: array[1..2,1..20] of byte;
  14.                dataint: array[1..2,1..20] of integer;
  15.                datalongint: array[1..2,1..20] of longint;
  16.                dataword: array[1..2,1..20] of word;
  17.                startx,starty: byte;
  18.                Normalfore: byte;
  19.                Inversefore: byte;
  20.                Inverseback: byte;
  21.                titlefore: byte;
  22.               end;
  23. var
  24.  offset: byte;
  25.  
  26. procedure GetInput(Pos,menu: byte; var template: templatedef; var chainout: char);
  27. procedure GoNextField(var pos, menu: byte; template: Templatedef);
  28. procedure GoPrevField(var pos, menu: byte; template: Templatedef);
  29. procedure SwitchSide(var pos, menu: byte; template: Templatedef);
  30. procedure DoEntry(var template: Templatedef; var chainout: char);
  31.  
  32.