home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 07 / astrodat / astrotyp.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-06-10  |  1.2 KB  |  38 lines
  1. (* ---------------------------------------------------------------- *)
  2. (*                         ASTROTYP.PAS                             *)
  3. (*                     ein paar Astro-Typen:                        *)
  4. (* ---------------------------------------------------------------- *)
  5.  
  6.    Astro_String = STRING[20];
  7.  
  8.    Astro_Datum  = RECORD
  9.                     Tag  : 1..31;
  10.                     Monat: 1..12;
  11.                     Jahr : Jul_Ref_Jahr..3000;
  12.                   END;
  13.  
  14.    Astro_Zeit   = RECORD
  15.                     Stunden : 0..23;
  16.                     Minuten : 0..59;
  17.                     Sekunden: 0..59;
  18.                   END;
  19.  
  20.    Astro_Winkel = RECORD
  21.                     Grad: 0..359;
  22.                     Min : 0..59;
  23.                     Sek : 0..59;
  24.                   END;
  25.  
  26.    Astro_OrtPtr = ^Astro_Ort;
  27.    Astro_Ort    = RECORD
  28.                     Ortsname    : Astro_String;
  29.                     Laengengrad : REAL;
  30.                     Breitengrad : REAL;
  31.                     naechster   : Astro_OrtPtr;
  32.                   END;
  33.  
  34.    Astro_Tage   = 0..6;
  35.  
  36. (* ---------------------------------------------------------------- *)
  37. (*                       Ende von ASTROTYP.PAS                      *)
  38.