home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #3 / Amiga Plus CD - 2002 - No. 03.iso / AmiSoft / Dev / Lang / Nano.lha / nano / prog / datedata.n < prev    next >
Encoding:
Text File  |  2002-06-13  |  5.3 KB  |  143 lines
  1. // data for date.n and calendar.n
  2.  
  3. null = 0;
  4.  
  5. sunday = 0; monday = 1; tuesday = 2; wednesday = 3; thursday = 4;
  6. friday = 5; saturday = 6;
  7.  
  8. days[0][0] = 1; days[0][1] = 8; days[0][2] = 15; days[0][3] = 22;
  9. days[0][4] = 29;
  10.  
  11. days[1][0] = 2; days[1][1] = 9; days[1][2] = 16; days[1][3] = 23;
  12. days[1][4] = 30;
  13.  
  14. days[2][0] = 3; days[2][1] = 10; days[2][2] = 17; days[2][3] = 24;
  15. days[2][4] = 31;
  16.  
  17. days[3][0] = 4; days[3][1] = 11; days[3][2] = 18; days[3][3] = 25;
  18. days[3][4] = -1;
  19.  
  20. days[4][0] = 5; days[4][1] = 12; days[4][2] = 19; days[4][3] = 26;
  21. days[4][4] = -1;
  22.  
  23. days[5][0] = 6; days[5][1] = 13; days[5][2] = 20; days[5][3] = 27;
  24. days[5][4] = -1;
  25.  
  26. days[6][0] = 7; days[6][1] = 14; days[6][2] = 21; days[6][3] = 28;
  27. days[6][4] = -1;
  28.  
  29.  
  30. init centurys -1;
  31. centurys[0][4] = 15; centurys[0][5] = 16;
  32.  
  33. centurys[1][0] = 17; centurys[1][2] = 18; centurys[1][4] = 19;
  34. centurys[1][5] = 20;
  35.  
  36. centurys[2][0] = 21; centurys[2][2] = 22; centurys[2][4] = 23;
  37. centurys[2][5] = 24;
  38.  
  39. centurys[3][0] = 25; centurys[3][2] = 26; centurys[2][4] = 27;
  40. centurys[3][5] = 28;
  41.  
  42. centurys[4][0] = 29; centurys[4][2] = 30; centurys[4][4] = 31;
  43. centurys[4][5] = 32;
  44.  
  45. scenturys[0] = 20; scenturys[1] = 24; scenturys[2] = 28; scenturys[3] = 32;
  46.  
  47.  
  48. years[0][0] = 0; years[0][1] = 6; years[0][2] = -1; years[0][3] = 17;
  49. years[0][4] = 23; years[0][5] = 28; years[0][6] = 34; years[0][7] = -1;
  50. years[0][8] = 45; years[0][9] = 51; years[0][10] = 56; years[0][11] = 62;
  51. years[0][12] = -1; years[0][13] = 73; years[0][14] = 79; years[0][15] = 84;
  52. years[0][16] = 90; years[0][17] = -1;
  53.  
  54. years[1][0] = 1; years[1][1] = 7; years[1][2] = 12; years[1][3] = 18;
  55. years[1][4] = -1; years[1][5] = 29; years[1][6] = 35; years[1][7] = 40;
  56. years[1][8] = 46; years[1][9] = -1; years[1][10] = 57; years[1][11] = 63;
  57. years[1][12] = 68; years[1][13] = 74; years[1][14] = -1; years[1][15] = 85;
  58. years[1][16] = 91; years[1][17] = 96;
  59.  
  60. years[2][0] = 2; years[2][1] = -1; years[2][2] = 13; years[2][3] = 19;
  61. years[2][4] = 24; years[2][5] = 30; years[2][6] = -1; years[2][7] = 41;
  62. years[2][8] = 47; years[2][9] = 52; years[2][10] = 58; years[2][11] = -1;
  63. years[2][12] = 69; years[2][13] = 75; years[2][14] = 80; years[2][15] = 86;
  64. years[2][16] = -1; years[2][17] = 97;
  65.  
  66. years[3][0] = 3; years[3][1] = 8; years[3][2] = 14; years[3][3] = -1;
  67. years[3][4] = 25; years[3][5] = 31; years[3][6] = 36; years[3][7] = 42;
  68. years[3][8] = -1; years[3][9] = 53; years[3][10] = 59; years[3][11] = 64;
  69. years[3][12] = 70; years[3][13] = -1; years[3][14] = 81; years[3][15] = 87;
  70. years[3][16] = 92; years[3][17] = 98;
  71.  
  72. years[4][0] = -1; years[4][1] = 9; years[4][2] = 15; years[4][3] = 20;
  73. years[4][4] = 26; years[4][5] = -1; years[4][6] = 37; years[4][7] = 43;
  74. years[4][8] = 48; years[4][9] = 54; years[4][10] = -1; years[4][11] = 65;
  75. years[4][12] = 71; years[4][13] = 76; years[4][14] = 82; years[4][15] = -1;
  76. years[4][16] = 93; years[4][17] = 99;
  77.  
  78. years[5][0] = 4; years[5][1] = 10; years[5][2] = -1; years[5][3] = 21;
  79. years[5][4] = 27; years[5][5] = 32; years[5][6] = 38; years[5][7] = -1;
  80. years[5][8] = 49; years[5][9] = 55; years[5][10] = 60; years[5][11] = 66;
  81. years[5][12] = -1; years[5][13] = 77; years[5][14] = 83; years[5][15] = 88;
  82. years[5][16] = 94; years[5][17] = -1;
  83.  
  84. years[6][0] = 5; years[6][1] = 11; years[6][2] = 16; years[6][3] = 22;
  85. years[6][4] = -1; years[6][5] = 33; years[6][6] = 39; years[6][7] = 44;
  86. years[6][8] = 50; years[6][9] = -1; years[6][10] = 61; years[6][11] = 67;
  87. years[6][12] = 72; years[6][13] = 78; years[6][14] = -1; years[6][15] = 89;
  88. years[6][16] = 95; years[6][17] = -1;
  89.  
  90.  
  91. months[0][0] = 6; months[0][1] = 5; months[0][2] = 2; months[0][3] = 1;
  92. months[0][4] = 7; months[0][5] = 3; months[0][6] = 4;
  93.  
  94. months[1][0] = 7; months[1][1] = 6; months[1][2] = 3; months[1][3] = 2;
  95. months[1][4] = 1; months[1][5] = 4; months[1][6] = 5;
  96.  
  97. months[2][0] = 1; months[2][1] = 7; months[2][2] = 4; months[2][3] = 3;
  98. months[2][4] = 2; months[2][5] = 5; months[2][6] = 6;
  99.  
  100. months[3][0] = 2; months[3][1] = 1; months[3][2] = 5; months[3][3] = 4;
  101. months[3][4] = 3; months[3][5] = 6; months[3][6] = 7;
  102.  
  103. months[4][0] = 3; months[4][1] = 2; months[4][2] = 6; months[4][3] = 5;
  104. months[4][4] = 4; months[4][5] = 7; months[4][6] = 1;
  105.  
  106. months[5][0] = 4; months[5][1] = 3; months[5][2] = 7; months[5][3] = 6;
  107. months[5][4] = 5; months[5][5] = 1; months[5][6] = 2;
  108.  
  109. months[6][0] = 5; months[6][1] = 4; months[6][2] = 1; months[6][3] = 7;
  110. months[6][4] = 6; months[6][5] = 2; months[6][6] = 3;
  111.  
  112.  
  113. init monthd -1;
  114. monthd[0][0] = 1; monthd[0][1] = 10;
  115. monthd[1][0] = 4; monthd[1][1] = 7;
  116. monthd[2][0] = 2; monthd[2][1] = 3; monthd[2][2] = 11;
  117. monthd[3][0] = 8;
  118. monthd[4][0] = 5;
  119. monthd[5][0] = 6;
  120. monthd[6][0] = 9; monthd[6][1] = 12;
  121.  
  122.  
  123. data[0][0] = 7; data[0][1] = 6; data[0][2] = 5; data[0][3] = 4;
  124. data[0][4] = 3; data[0][5] = 2; data[0][6] = 1;
  125.  
  126. data[1][0] = 1; data[1][1] = 7; data[1][2] = 6; data[1][3] = 5;
  127. data[1][4] = 4; data[1][5] = 3; data[1][6] = 2;
  128.  
  129. data[2][0] = 2; data[2][1] = 1; data[2][2] = 7; data[2][3] = 6;
  130. data[2][4] = 5; data[2][5] = 4; data[2][6] = 3;
  131.  
  132. data[3][0] = 3; data[3][1] = 2; data[3][2] = 1; data[3][3] = 7;
  133. data[3][4] = 6; data[3][5] = 5; data[3][6] = 4;
  134.  
  135. data[4][0] = 4; data[4][1] = 3; data[4][2] = 2; data[4][3] = 1;
  136. data[4][4] = 7; data[4][5] = 6; data[4][6] = 5;
  137.  
  138. data[5][0] = 5; data[5][1] = 4; data[5][2] = 3; data[5][3] = 2;
  139. data[5][4] = 1; data[5][5] = 7; data[5][6] = 6;
  140.  
  141. data[6][0] = 6; data[6][1] = 5; data[6][2] = 4; data[6][3] = 3;
  142. data[6][4] = 2; data[6][5] = 1; data[6][6] = 7;
  143.