home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / bd / sysdd.pas < prev   
Pascal/Delphi Source File  |  1989-12-28  |  1KB  |  50 lines
  1. Unit SysDD; {                                          SYSDD.PAS
  2. ----------  }
  3. {$N+}
  4. {$E+}
  5.  
  6. {Uses No Other Unit}
  7.  
  8.  
  9. Interface {
  10. --------- }
  11.  
  12. { ----------------------- Global System Data Design ------------------------}
  13.  
  14.  
  15. Var
  16.   IOCode : Integer;    {Stores value of IOResult, to see if I/O was ok}
  17.   Prefix : String[15]; {DX Station Prefix}
  18.   First_Ltr_Prefix : String[1]; {Need test first ltr in USSR case}
  19.   Country: String[50]; {DX Country}
  20.   B,                   {Other Station Latitude}
  21.   L2 : Double;         {Other Station Longitude}
  22.   Not_Found : Boolean;
  23.   MyYear,              {All These for generating local time and date}
  24.   MyMonth,
  25.   MyDay,
  26.   MyDayOfWeek : Word;
  27.   MyMonthStr,
  28.   MyDayOfWeekStr : String[3];
  29.  
  30.                     {Set to Your Local Time in Unit FindTime}
  31.   YourMinute,
  32.   YourSecond,
  33.   YourSec100  : Word;      {Other stations local hour}
  34.  
  35.   Your_Time_Corr,
  36.   Adj_Time_Corr,                   {Your Time correction adjusted for DST}
  37.   Other_Stn_Time_Corr : ShortInt;  {Time correction from UTC to Local}
  38.  
  39.   OtherHour,
  40.   UTCHour,
  41.   YourHour : ShortInt;     { YourHour set to integer type for computations}
  42.  
  43.  
  44. Implementation {
  45. -------------- }
  46.  
  47. {No Procedures}
  48.  
  49.  
  50. End. {Unit SysDD}