home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 15 / graphen / graphdef.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-04-21  |  552 b   |  20 lines
  1. CONST
  2.       MaxDateiAnzahl = 4; { Maximalanzahl der auszuwertenden Dateien }
  3.  
  4. TYPE CPM_Name = Strg80            ;
  5.      Zeile    = Strg80            ;
  6.  
  7. VAR    Datei            : Text    ;
  8.        zh,s,
  9.        xs,yx,
  10.        xBez,yBez        : Zeile   ;
  11.        DateiNr,
  12.        DateiAnzahl,i    : Word    ;
  13.        xalt,yalt,
  14.        xneu,yneu        : Integer ;
  15.  
  16.        x,y,x1,x2,y1,y2  : Real    ;
  17.        Datei_Name       : ARRAY [1 .. MaxDateiAnzahl] OF CPM_name;
  18.        Punkt            : Boolean ;
  19.        c                : Char    ;
  20.