home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / pstoolbx / tabellen.int < prev    next >
Encoding:
Text File  |  1993-07-28  |  1.1 KB  |  52 lines
  1. {$F+,O+,D-,L-,R-,B-}
  2.  
  3. UNIT Tabellen;
  4.  
  5. INTERFACE
  6.  
  7. CONST
  8.   epakte: ARRAY[1..30] OF BYTE = (
  9.  
  10.   GZ_JUL: ARRAY[1..29] OF BYTE = (
  11.  
  12.   GZ: ARRAY[1..30] OF BYTE = (
  13.  
  14.   vollmondtag: ARRAY[1..30] OF BYTE = (
  15.  
  16. (******************************************************************************)
  17. (*                                                                            *)
  18. (*    Hier folgen die Tabellen für die Mondphasen:                            *)
  19. (*                                                                            *)
  20. (******************************************************************************)
  21.  
  22. jt1: ARRAY[1..261] OF LongInt = (
  23.  
  24. dez1: ARRAY[1..260] OF INTEGER = (
  25.  
  26. a1: ARRAY[1..260] OF INTEGER = (
  27.  
  28. b1: ARRAY[1..260] OF INTEGER = (
  29.  
  30. jt2: ARRAY[1..361] OF LongInt = (
  31.  
  32. dez2: ARRAY[1..360] OF INTEGER = (
  33.  
  34. a2: ARRAY[1..360] OF INTEGER =(
  35.  
  36. b2: ARRAY[1..360] OF INTEGER = (
  37.  
  38. a_neudez: ARRAY[0..40] OF INTEGER = (
  39.  
  40. a_voll: ARRAY[0..40] OF ShortInt = (
  41.  
  42. a_volldez: ARRAY[0..40] OF ShortInt = (
  43.  
  44. b_neudez: ARRAY[0..40] OF ShortInt = (
  45.  
  46. b_volldez: ARRAY[0..40] OF ShortInt = (
  47.  
  48. PROCEDURE SHIFT;
  49.  
  50. IMPLEMENTATION
  51.  
  52.