home *** CD-ROM | disk | FTP | other *** search
/ Entrepreneur's Library / Image.iso / inotec / bmpimu.rp_ / bmpimu.rp
Encoding:
Text File  |  1994-03-10  |  18.4 KB  |  363 lines
  1. // ╨ └ ╤ ╫ ┼ ╥
  2. // ±≡σΣφσπεΣεΓεΘ ±≥εΦ∞ε±≥Φ Φ∞≤∙σ±≥Γα ∩≡σΣ∩≡Φ ≥Φ  τα 1993π π.
  3. // 
  4. $─1=$╩1;   // ╧≡σΣ∩≡Φ ≥Φσ
  5. $─5=$─└╥└("╩╬═┼╫═└▀","├├├├");
  6. $─7=$╩7;    //─Φ≡σΩ≥ε≡
  7. $─8=$╩8;    //┴≤⌡παδ≥σ≡
  8. $─12=$╩12;    //╥σδσ⌠εφ
  9. // ┬ ≥√± ≈α⌡ ≡≤ßδσΘ
  10. ╥█╤▀╫╚;
  11. ╥╬╫═╬╤╥▄(12,2);
  12. $─╥=$─└╥└("╥┼╩╙┘└▀","──.╠╠.├├");
  13. $─╩=$─└╥└("╩╬═┼╓","──.╠╠.├├");
  14. ╙╤╥└═╬┬╚╥▄_─└╥╙("╥┼╩╙┘└▀",$─╩);
  15. $─└1=$─└╥└("═└╫└╦╬_├╬─└","──.╠╠.├├");
  16. ╧┼╨╚╬─("─└╥█", $─└1, $─└1);
  17. ╧╙┴01=╤═─80 - ╤═╩80 + ╤═─87;
  18. ╧╙┴01=(╤═─80 - ╤═╩80 < 0) ? 0 : ╧╙┴01;
  19. ╧╚└01=╤═─01+╤═─03+╤═─04+╤═─06+╤═─07+╤═─08+╤═─08+╤═─10+╤═─11+╤═─12+╤═─14+
  20. ╤═─15+╤═─16+╤═─19+╤═─20+╤═─21+╤═─23+╤═─25+╤═─26+╤═─28+╤═─29+╤═─30+╤═─31+
  21. ╤═─37+╤═─40+╤═─41+╤═─42.2+╤═─43+╤═─45+╤═─46+╤═─47+╤═─48+╤═─50+╤═─51+╤═─52+
  22. ╤═─55+╤═─56+╤═─58+╤═─60+╤═─61+╤═─62+╤═─63+╤═─64+╤═─65+╤═─67+╤═─68+╤═─69+
  23. ╤═─70+╤═─71+╤═─73+╤═─75+╤═─76+╤═─78+╤═─79+╤═─81+╤═─97+╧╙┴01;
  24. ╧╨┴01=╤═─68;
  25. ╧┬╤01=0;
  26. ╧╠╓01=╤═─19;
  27. ╧╩┴01=╤═─93;
  28. ╧╬╙01=╤═─07;
  29. ╧╩┬01=╤═─08;
  30. ╧└┬01=0;
  31. ╧╚╥01=╧╚└01-╧╨┴01-╧┬╤01-╧╠╓01-╧╩┴01-╧╬╙01-╧╩┬01-╧└┬01-╧╙┴01;
  32.  
  33. $─└2=$╤╠┼╤╥╚╥▄_─└╥╙(─└1,32);
  34. ╙╤╥└═╬┬╚╥▄_─└╥╙("╥┼╩╙┘└▀",$─└2);
  35. $─└2=$─└╥└("═└╫└╦╬_╠┼╤▀╓└","──.╠╠.├├");
  36. ╧┼╨╚╬─("─└╥█", $─└2, $─└2);
  37. ╧╙┴02=╤═─80 - ╤═╩80 + ╤═─87;
  38. ╧╙┴02=(╤═─80 - ╤═╩80 < 0) ? 0 : ╧╙┴02;
  39. ╧╚└02=╤═─01+╤═─03+╤═─04+╤═─06+╤═─07+╤═─08+╤═─08+╤═─10+╤═─11+╤═─12+╤═─14+
  40.     ╤═─15+╤═─16+╤═─19+╤═─20+╤═─21+╤═─23+╤═─25+╤═─26+╤═─28+╤═─29+╤═─30+╤═─31+
  41.     ╤═─37+╤═─40+╤═─41+╤═─42.2+╤═─43+╤═─45+╤═─46+╤═─47+╤═─48+╤═─50+╤═─51+╤═─52+
  42.     ╤═─55+╤═─56+╤═─58+╤═─60+╤═─61+╤═─62+╤═─63+╤═─64+╤═─65+╤═─67+╤═─68+╤═─69+
  43.     ╤═─70+╤═─71+╤═─73+╤═─75+╤═─76+╤═─78+╤═─79+╤═─81+╤═─97+╧╙┴01;
  44. ╧╨┴02=╤═─68;
  45. ╧┬╤02=0;
  46. ╧╠╓02=╤═─19;
  47. ╧╩┴02=╤═─93;
  48. ╧╬╙02=╤═─07;
  49. ╧╩┬02=╤═─08;
  50. ╧└┬02=0;
  51. ╧╚╥02=╧╚└02-╧╨┴02-╧┬╤02-╧╠╓02-╧╩┴02-╧╬╙02-╧╩┬02-╧└┬02-╧╙┴02;
  52.  
  53. $─└3=$╤╠┼╤╥╚╥▄_─└╥╙(─└2,32);
  54. ╙╤╥└═╬┬╚╥▄_─└╥╙("╥┼╩╙┘└▀",$─└3);
  55. $─└3=$─└╥└("═└╫└╦╬_╠┼╤▀╓└","──.╠╠.├├");
  56. ╧┼╨╚╬─("─└╥█", $─└3, $─└3);
  57. ╧╙┴03=╤═─80 - ╤═╩80 + ╤═─87;
  58. ╧╙┴03=(╤═─80 - ╤═╩80 < 0) ? 0 : ╧╙┴03;
  59. ╧╚└03=╤═─01+╤═─03+╤═─04+╤═─06+╤═─07+╤═─08+╤═─08+╤═─10+╤═─11+╤═─12+╤═─14+
  60.     ╤═─15+╤═─16+╤═─19+╤═─20+╤═─21+╤═─23+╤═─25+╤═─26+╤═─28+╤═─29+╤═─30+╤═─31+
  61.     ╤═─37+╤═─40+╤═─41+╤═─42.2+╤═─43+╤═─45+╤═─46+╤═─47+╤═─48+╤═─50+╤═─51+╤═─52+
  62.     ╤═─55+╤═─56+╤═─58+╤═─60+╤═─61+╤═─62+╤═─63+╤═─64+╤═─65+╤═─67+╤═─68+╤═─69+
  63.     ╤═─70+╤═─71+╤═─73+╤═─75+╤═─76+╤═─78+╤═─79+╤═─81+╤═─97+╧╙┴01;
  64. ╧╨┴03=╤═─68;
  65. ╧┬╤03=0;
  66. ╧╠╓03=╤═─19;
  67. ╧╩┴03=╤═─93;
  68. ╧╬╙03=╤═─07;
  69. ╧╩┬03=╤═─08;
  70. ╧└┬03=0;
  71. ╧╚╥03=╧╚└03-╧╨┴03-╧┬╤03-╧╠╓03-╧╩┴03-╧╬╙03-╧╩┬03-╧└┬03-╧╙┴03;
  72.  
  73. $─└4=$╤╠┼╤╥╚╥▄_─└╥╙(─└3,32);
  74. ╙╤╥└═╬┬╚╥▄_─└╥╙("╥┼╩╙┘└▀",$─└4);
  75. $─└4=$─└╥└("═└╫└╦╬_╠┼╤▀╓└","──.╠╠.├├");
  76. ╧┼╨╚╬─("─└╥█", $─└4, $─└4);
  77. ╧╙┴04=╤═─80 - ╤═╩80 + ╤═─87;
  78. ╧╙┴04=(╤═─80 - ╤═╩80 < 0) ? 0 : ╧╙┴04;
  79. ╧╚└04=╤═─01+╤═─03+╤═─04+╤═─06+╤═─07+╤═─08+╤═─08+╤═─10+╤═─11+╤═─12+╤═─14+
  80.     ╤═─15+╤═─16+╤═─19+╤═─20+╤═─21+╤═─23+╤═─25+╤═─26+╤═─28+╤═─29+╤═─30+╤═─31+
  81.     ╤═─37+╤═─40+╤═─41+╤═─42.2+╤═─43+╤═─45+╤═─46+╤═─47+╤═─48+╤═─50+╤═─51+╤═─52+
  82.     ╤═─55+╤═─56+╤═─58+╤═─60+╤═─61+╤═─62+╤═─63+╤═─64+╤═─65+╤═─67+╤═─68+╤═─69+
  83.     ╤═─70+╤═─71+╤═─73+╤═─75+╤═─76+╤═─78+╤═─79+╤═─81+╤═─97+╧╙┴01;
  84. ╧╨┴04=╤═─68;
  85. ╧┬╤04=0;
  86. ╧╠╓04=╤═─19;
  87. ╧╩┴04=╤═─93;
  88. ╧╬╙04=╤═─07;
  89. ╧╩┬04=╤═─08;
  90. ╧└┬04=0;
  91. ╧╚╥04=╧╚└04-╧╨┴04-╧┬╤04-╧╠╓04-╧╩┴04-╧╬╙04-╧╩┬04-╧└┬04-╧╙┴04;
  92.  
  93. $─└5=$╤╠┼╤╥╚╥▄_─└╥╙(─└4,32);
  94. ╙╤╥└═╬┬╚╥▄_─└╥╙("╥┼╩╙┘└▀",$─└5);
  95. $─└5=$─└╥└("═└╫└╦╬_╠┼╤▀╓└","──.╠╠.├├");
  96. ╧┼╨╚╬─("─└╥█", $─└5, $─└5);
  97. ╧╙┴05=╤═─80 - ╤═╩80 + ╤═─87;
  98. ╧╙┴05=(╤═─80 - ╤═╩80 < 0) ? 0 : ╧╙┴05;
  99. ╧╚└05=╤═─01+╤═─03+╤═─04+╤═─06+╤═─07+╤═─08+╤═─08+╤═─10+╤═─11+╤═─12+╤═─14+
  100.     ╤═─15+╤═─16+╤═─19+╤═─20+╤═─21+╤═─23+╤═─25+╤═─26+╤═─28+╤═─29+╤═─30+╤═─31+
  101.     ╤═─37+╤═─40+╤═─41+╤═─42.2+╤═─43+╤═─45+╤═─46+╤═─47+╤═─48+╤═─50+╤═─51+╤═─52+
  102.     ╤═─55+╤═─56+╤═─58+╤═─60+╤═─61+╤═─62+╤═─63+╤═─64+╤═─65+╤═─67+╤═─68+╤═─69+
  103.     ╤═─70+╤═─71+╤═─73+╤═─75+╤═─76+╤═─78+╤═─79+╤═─81+╤═─97+╧╙┴01;
  104. ╧╨┴05=╤═─68;
  105. ╧┬╤05=0;
  106. ╧╠╓05=╤═─19;
  107. ╧╩┴05=╤═─93;
  108. ╧╬╙05=╤═─07;
  109. ╧╩┬05=╤═─08;
  110. ╧└┬05=0;
  111. ╧╚╥05=╧╚└05-╧╨┴05-╧┬╤05-╧╠╓05-╧╩┴05-╧╬╙05-╧╩┬05-╧└┬05-╧╙┴05;
  112.  
  113. $─└6=$╤╠┼╤╥╚╥▄_─└╥╙(─└5,32);
  114. ╙╤╥└═╬┬╚╥▄_─└╥╙("╥┼╩╙┘└▀",$─└6);
  115. $─└6=$─└╥└("═└╫└╦╬_╠┼╤▀╓└","──.╠╠.├├");
  116. ╧┼╨╚╬─("─└╥█", $─└6, $─└6);
  117. ╧╙┴06=╤═─80 - ╤═╩80 + ╤═─87;
  118. ╧╙┴06=(╤═─80 - ╤═╩80 < 0) ? 0 : ╧╙┴06;
  119. ╧╚└06=╤═─01+╤═─03+╤═─04+╤═─06+╤═─07+╤═─08+╤═─08+╤═─10+╤═─11+╤═─12+╤═─14+
  120.     ╤═─15+╤═─16+╤═─19+╤═─20+╤═─21+╤═─23+╤═─25+╤═─26+╤═─28+╤═─29+╤═─30+╤═─31+
  121.     ╤═─37+╤═─40+╤═─41+╤═─42.2+╤═─43+╤═─45+╤═─46+╤═─47+╤═─48+╤═─50+╤═─51+╤═─52+
  122.     ╤═─55+╤═─56+╤═─58+╤═─60+╤═─61+╤═─62+╤═─63+╤═─64+╤═─65+╤═─67+╤═─68+╤═─69+
  123.     ╤═─70+╤═─71+╤═─73+╤═─75+╤═─76+╤═─78+╤═─79+╤═─81+╤═─97+╧╙┴01;
  124. ╧╨┴06=╤═─68;
  125. ╧┬╤06=0;
  126. ╧╠╓06=╤═─19;
  127. ╧╩┴06=╤═─93;
  128. ╧╬╙06=╤═─07;
  129. ╧╩┬06=╤═─08;
  130. ╧└┬06=0;
  131. ╧╚╥06=╧╚└06-╧╨┴06-╧┬╤06-╧╠╓06-╧╩┴06-╧╬╙06-╧╩┬06-╧└┬06-╧╙┴06;
  132.  
  133. $─└7=$╤╠┼╤╥╚╥▄_─└╥╙(─└6,32);
  134. ╙╤╥└═╬┬╚╥▄_─└╥╙("╥┼╩╙┘└▀",$─└7);
  135. $─└7=$─└╥└("═└╫└╦╬_╠┼╤▀╓└","──.╠╠.├├");
  136. ╧┼╨╚╬─("─└╥█", $─└7, $─└7);
  137. ╧╙┴07=╤═─80 - ╤═╩80 + ╤═─87;
  138. ╧╙┴07=(╤═─80 - ╤═╩80 < 0) ? 0 : ╧╙┴07;
  139. ╧╚└07=╤═─01+╤═─03+╤═─04+╤═─06+╤═─07+╤═─08+╤═─08+╤═─10+╤═─11+╤═─12+╤═─14+
  140.     ╤═─15+╤═─16+╤═─19+╤═─20+╤═─21+╤═─23+╤═─25+╤═─26+╤═─28+╤═─29+╤═─30+╤═─31+
  141.     ╤═─37+╤═─40+╤═─41+╤═─42.2+╤═─43+╤═─45+╤═─46+╤═─47+╤═─48+╤═─50+╤═─51+╤═─52+
  142.     ╤═─55+╤═─56+╤═─58+╤═─60+╤═─61+╤═─62+╤═─63+╤═─64+╤═─65+╤═─67+╤═─68+╤═─69+
  143.     ╤═─70+╤═─71+╤═─73+╤═─75+╤═─76+╤═─78+╤═─79+╤═─81+╤═─97+╧╙┴01;
  144. ╧╨┴07=╤═─68;
  145. ╧┬╤07=0;
  146. ╧╠╓07=╤═─19;
  147. ╧╩┴07=╤═─93;
  148. ╧╬╙07=╤═─07;
  149. ╧╩┬07=╤═─08;
  150. ╧└┬07=0;
  151. ╧╚╥07=╧╚└07-╧╨┴07-╧┬╤07-╧╠╓07-╧╩┴07-╧╬╙07-╧╩┬07-╧└┬07-╧╙┴07;
  152.  
  153. $─└8=$╤╠┼╤╥╚╥▄_─└╥╙(─└7,32);
  154. ╙╤╥└═╬┬╚╥▄_─└╥╙("╥┼╩╙┘└▀",$─└8);
  155. $─└8=$─└╥└("═└╫└╦╬_╠┼╤▀╓└","──.╠╠.├├");
  156. ╧┼╨╚╬─("─└╥█", $─└8, $─└8);
  157. ╧╙┴08=╤═─80 - ╤═╩80 + ╤═─87;
  158. ╧╙┴08=(╤═─80 - ╤═╩80 < 0) ? 0 : ╧╙┴08;
  159. ╧╚└08=╤═─01+╤═─03+╤═─04+╤═─06+╤═─07+╤═─08+╤═─08+╤═─10+╤═─11+╤═─12+╤═─14+
  160.     ╤═─15+╤═─16+╤═─19+╤═─20+╤═─21+╤═─23+╤═─25+╤═─26+╤═─28+╤═─29+╤═─30+╤═─31+
  161.     ╤═─37+╤═─40+╤═─41+╤═─42.2+╤═─43+╤═─45+╤═─46+╤═─47+╤═─48+╤═─50+╤═─51+╤═─52+
  162.     ╤═─55+╤═─56+╤═─58+╤═─60+╤═─61+╤═─62+╤═─63+╤═─64+╤═─65+╤═─67+╤═─68+╤═─69+
  163.     ╤═─70+╤═─71+╤═─73+╤═─75+╤═─76+╤═─78+╤═─79+╤═─81+╤═─97+╧╙┴01;
  164. ╧╨┴08=╤═─68;
  165. ╧┬╤08=0;
  166. ╧╠╓08=╤═─19;
  167. ╧╩┴08=╤═─93;
  168. ╧╬╙08=╤═─07;
  169. ╧╩┬08=╤═─08;
  170. ╧└┬08=0;
  171. ╧╚╥08=╧╚└08-╧╨┴08-╧┬╤08-╧╠╓08-╧╩┴08-╧╬╙08-╧╩┬08-╧└┬08-╧╙┴08;
  172.  
  173. $─└9=$╤╠┼╤╥╚╥▄_─└╥╙(─└8,32);
  174. ╙╤╥└═╬┬╚╥▄_─└╥╙("╥┼╩╙┘└▀",$─└9);
  175. $─└9=$─└╥└("═└╫└╦╬_╠┼╤▀╓└","──.╠╠.├├");
  176. ╧┼╨╚╬─("─└╥█", $─└9, $─└9);
  177. ╧╙┴09=╤═─80 - ╤═╩80 + ╤═─87;
  178. ╧╙┴09=(╤═─80 - ╤═╩80 < 0) ? 0 : ╧╙┴09;
  179. ╧╚└09=╤═─01+╤═─03+╤═─04+╤═─06+╤═─07+╤═─08+╤═─08+╤═─10+╤═─11+╤═─12+╤═─14+
  180.     ╤═─15+╤═─16+╤═─19+╤═─20+╤═─21+╤═─23+╤═─25+╤═─26+╤═─28+╤═─29+╤═─30+╤═─31+
  181.     ╤═─37+╤═─40+╤═─41+╤═─42.2+╤═─43+╤═─45+╤═─46+╤═─47+╤═─48+╤═─50+╤═─51+╤═─52+
  182.     ╤═─55+╤═─56+╤═─58+╤═─60+╤═─61+╤═─62+╤═─63+╤═─64+╤═─65+╤═─67+╤═─68+╤═─69+
  183.     ╤═─70+╤═─71+╤═─73+╤═─75+╤═─76+╤═─78+╤═─79+╤═─81+╤═─97+╧╙┴01;
  184. ╧╨┴09=╤═─68;
  185. ╧┬╤09=0;
  186. ╧╠╓09=╤═─19;
  187. ╧╩┴09=╤═─93;
  188. ╧╬╙09=╤═─07;
  189. ╧╩┬09=╤═─08;
  190. ╧└┬09=0;
  191. ╧╚╥09=╧╚└09-╧╨┴09-╧┬╤09-╧╠╓09-╧╩┴09-╧╬╙09-╧╩┬09-╧└┬09-╧╙┴09;
  192.  
  193. $─└10=$╤╠┼╤╥╚╥▄_─└╥╙(─└9,32);
  194. ╙╤╥└═╬┬╚╥▄_─└╥╙("╥┼╩╙┘└▀",$─└10);
  195. $─└10=$─└╥└("═└╫└╦╬_╠┼╤▀╓└","──.╠╠.├├");
  196. ╧┼╨╚╬─("─└╥█", $─└10, $─└10);
  197. ╧╙┴10=╤═─80 - ╤═╩80 + ╤═─87;
  198. ╧╙┴10=(╤═─80 - ╤═╩80 < 0) ? 0 : ╧╙┴10;
  199. ╧╚└10=╤═─01+╤═─03+╤═─04+╤═─06+╤═─07+╤═─08+╤═─08+╤═─10+╤═─11+╤═─12+╤═─14+
  200.     ╤═─15+╤═─16+╤═─19+╤═─20+╤═─21+╤═─23+╤═─25+╤═─26+╤═─28+╤═─29+╤═─30+╤═─31+
  201.     ╤═─37+╤═─40+╤═─41+╤═─42.2+╤═─43+╤═─45+╤═─46+╤═─47+╤═─48+╤═─50+╤═─51+╤═─52+
  202.     ╤═─55+╤═─56+╤═─58+╤═─60+╤═─61+╤═─62+╤═─63+╤═─64+╤═─65+╤═─67+╤═─68+╤═─69+
  203.     ╤═─70+╤═─71+╤═─73+╤═─75+╤═─76+╤═─78+╤═─79+╤═─81+╤═─97+╧╙┴01;
  204. ╧╨┴10=╤═─68;
  205. ╧┬╤10=0;
  206. ╧╠╓10=╤═─19;
  207. ╧╩┴10=╤═─93;
  208. ╧╬╙10=╤═─07;
  209. ╧╩┬10=╤═─08;
  210. ╧└┬10=0;
  211. ╧╚╥10=╧╚└10-╧╨┴10-╧┬╤10-╧╠╓10-╧╩┴10-╧╬╙10-╧╩┬10-╧└┬10-╧╙┴10;
  212.  
  213.  
  214. $─└11=$╤╠┼╤╥╚╥▄_─└╥╙(─└10,32);
  215. ╙╤╥└═╬┬╚╥▄_─└╥╙("╥┼╩╙┘└▀",$─└11);
  216. $─└11=$─└╥└("═└╫└╦╬_╠┼╤▀╓└","──.╠╠.├├");
  217. ╧┼╨╚╬─("─└╥█", $─└11, $─└11);
  218. ╧╙┴11=╤═─80 - ╤═╩80 + ╤═─87;
  219. ╧╙┴11=(╤═─80 - ╤═╩80 < 0) ? 0 : ╧╙┴11;
  220. ╧╚└11=╤═─01+╤═─03+╤═─04+╤═─06+╤═─07+╤═─08+╤═─08+╤═─10+╤═─11+╤═─12+╤═─14+
  221.     ╤═─15+╤═─16+╤═─19+╤═─20+╤═─21+╤═─23+╤═─25+╤═─26+╤═─28+╤═─29+╤═─30+╤═─31+
  222.     ╤═─37+╤═─40+╤═─41+╤═─42.2+╤═─43+╤═─45+╤═─46+╤═─47+╤═─48+╤═─50+╤═─51+╤═─52+
  223.     ╤═─55+╤═─56+╤═─58+╤═─60+╤═─61+╤═─62+╤═─63+╤═─64+╤═─65+╤═─67+╤═─68+╤═─69+
  224.     ╤═─70+╤═─71+╤═─73+╤═─75+╤═─76+╤═─78+╤═─79+╤═─81+╤═─97+╧╙┴01;
  225. ╧╨┴11=╤═─68;
  226. ╧┬╤11=0;
  227. ╧╠╓11=╤═─19;
  228. ╧╩┴11=╤═─93;
  229. ╧╬╙11=╤═─07;
  230. ╧╩┬11=╤═─08;
  231. ╧└┬11=0;
  232. ╧╚╥11=╧╚└11-╧╨┴11-╧┬╤11-╧╠╓11-╧╩┴11-╧╬╙11-╧╩┬11-╧└┬11-╧╙┴11;
  233.  
  234. $─└12=$╤╠┼╤╥╚╥▄_─└╥╙(─└11,32);
  235. ╙╤╥└═╬┬╚╥▄_─└╥╙("╥┼╩╙┘└▀",$─└12);
  236. $─└12=$─└╥└("═└╫└╦╬_╠┼╤▀╓└","──.╠╠.├├");
  237. ╧┼╨╚╬─("─└╥█", $─└12, $─└12);
  238. ╧╙┴12=╤═─80 - ╤═╩80 + ╤═─87;
  239. ╧╙┴12=(╤═─80 - ╤═╩80 < 0) ? 0 : ╧╙┴12;
  240. ╧╚└12=╤═─01+╤═─03+╤═─04+╤═─06+╤═─07+╤═─08+╤═─08+╤═─10+╤═─11+╤═─12+╤═─14+
  241.     ╤═─15+╤═─16+╤═─19+╤═─20+╤═─21+╤═─23+╤═─25+╤═─26+╤═─28+╤═─29+╤═─30+╤═─31+
  242.     ╤═─37+╤═─40+╤═─41+╤═─42.2+╤═─43+╤═─45+╤═─46+╤═─47+╤═─48+╤═─50+╤═─51+╤═─52+
  243.     ╤═─55+╤═─56+╤═─58+╤═─60+╤═─61+╤═─62+╤═─63+╤═─64+╤═─65+╤═─67+╤═─68+╤═─69+
  244.     ╤═─70+╤═─71+╤═─73+╤═─75+╤═─76+╤═─78+╤═─79+╤═─81+╤═─97+╧╙┴01;
  245. ╧╨┴12=╤═─68;
  246. ╧┬╤12=0;
  247. ╧╠╓12=╤═─19;
  248. ╧╩┴12=╤═─93;
  249. ╧╬╙12=╤═─07;
  250. ╧╩┬12=╤═─08;
  251. ╧└┬12=0;
  252. ╧╚╥12=╧╚└12-╧╨┴12-╧┬╤12-╧╠╓12-╧╩┴12-╧╬╙12-╧╩┬12-╧└┬12-╧╙┴12;
  253.  
  254. $─└13=$╤╠┼╤╥╚╥▄_─└╥╙(─└12,32);
  255. ╙╤╥└═╬┬╚╥▄_─└╥╙("╥┼╩╙┘└▀",$─└13);
  256. $─└13=$─└╥└("═└╫└╦╬_╠┼╤▀╓└","──.╠╠.├├");
  257. ╧┼╨╚╬─("─└╥█", $─└12, $─└12);
  258. ╧╙┴13=╤═─80 - ╤═╩80 + ╤═─87;
  259. ╧╙┴13=(╤═─80 - ╤═╩80 < 0) ? 0 : ╧╙┴13;
  260. ╧╚└13=╤═─01+╤═─03+╤═─04+╤═─06+╤═─07+╤═─08+╤═─08+╤═─10+╤═─11+╤═─12+╤═─14+
  261.     ╤═─15+╤═─16+╤═─19+╤═─20+╤═─21+╤═─23+╤═─25+╤═─26+╤═─28+╤═─29+╤═─30+╤═─31+
  262.     ╤═─37+╤═─40+╤═─41+╤═─42.2+╤═─43+╤═─45+╤═─46+╤═─47+╤═─48+╤═─50+╤═─51+╤═─52+
  263.     ╤═─55+╤═─56+╤═─58+╤═─60+╤═─61+╤═─62+╤═─63+╤═─64+╤═─65+╤═─67+╤═─68+╤═─69+
  264.     ╤═─70+╤═─71+╤═─73+╤═─75+╤═─76+╤═─78+╤═─79+╤═─81+╤═─97+╧╙┴01;
  265. ╧╨┴13=╤═─68;
  266. ╧┬╤13=0;
  267. ╧╠╓13=╤═─19;
  268. ╧╩┴13=╤═─93;
  269. ╧╬╙13=╤═─07;
  270. ╧╩┬13=╤═─08;
  271. ╧└┬13=0;
  272. ╧╚╥13=╧╚└13-╧╨┴13-╧┬╤13-╧╠╓13-╧╩┴13-╧╬╙13-╧╩┬13-╧└┬13-╧╙┴13;
  273.  
  274. ╥╬╫═╬╤╥▄(13,3);
  275. ╧╤╨1=(╧╚╥01/2 + ╧╚╥02 + ╧╚╥03 + ╧╚╥04/2)/12;
  276. ╧╤╨2=(╧╚╥01/2 + ╧╚╥02 + ╧╚╥03 + ╧╚╥04 + ╧╚╥05 + ╧╚╥06 + ╧╚╥07/2)/12;
  277. ╧╤╨3=(╧╚╥01/2 + ╧╚╥02 + ╧╚╥03 + ╧╚╥04 + ╧╚╥05 + ╧╚╥06 + ╧╚╥07 + ╧╚╥08 + ╧╚╥09 + ╧╚╥10/2)/12;
  278. ╧╤╨3=(╧╚╥01/2 + ╧╚╥02 + ╧╚╥03 + ╧╚╥04 + ╧╚╥05 + ╧╚╥06 + ╧╚╥07 + ╧╚╥08 + ╧╚╥09 + ╧╚╥10 + ╧╚╥11 + ╧╚╥12 + ╧╚╥13/2)/12;
  279. ╘╬╨╠└╥;
  280.  
  281.  &$─1                         ]                                                                  ε≥ 16.03.92 π. N 7
  282.  -----------------------------
  283.                                                                 ╨ └ ╤ ╫ ┼ ╥
  284.                                         ±≡σΣφσπεΣεΓεΘ ±≥εΦ∞ε±≥Φ Φ∞≤∙σ±≥Γα ∩≡σΣ∩≡Φ ≥Φ  τα &$─5] π.
  285.  
  286. -------------------------------------------------------------------------------------------------------------------------------------
  287. | ═αΦ∞σφεΓαφΦσ |                           ╬±≥α≥ΩΦ ∩ε ±≥α≥ⁿ ∞ ßαδαφ±α φα                                                            |
  288. |              |---------------------------------------------------------------------------------------------------------------------
  289. |   ±≥α≥σΘ     |  01.01 |  01.02 |  01.03 |  01.04 |  01.05 |  01.06 |  01.07 |  01.08 |  01.09 |  01.10 |  01.11 |  01.12 |  01.01 |
  290. |   ßαδαφ±α    |        |        |        |        |        |        |        |        |        |        |        |        |        |
  291. -------------------------------------------------------------------------------------------------------------------------------------
  292. |   ╚≥επ       |&╧╚└01 ]|&╧╚└02 ]|&╧╚└03 ]|&╧╚└04 ]|&╧╚└05 ]|&╧╚└06 ]|&╧╚└07 ]|&╧╚└08 ]|&╧╚└09 ]|&╧╚└10 ]|&╧╚└11 ]|&╧╚└12 ]|&╧╚└13 ]|
  293. |  αΩ≥ΦΓα      |        |        |        |        |        |        |        |        |        |        |        |        |        |
  294. |  ßαδαφ±α     |        |        |        |        |        |        |        |        |        |        |        |        |        |
  295. -------------------------------------------------------------------------------------------------------------------------------------
  296. |╤≥εΦ∞ε±≥ⁿ Φ∞≤-|        |        |        |        |        |        |        |        |        |        |        |        |        |
  297. |∙σ±≥Γα, ε±Γε- |        |        |        |        |        |        |        |        |        |        |        |        |        |
  298. |ßεµΣασ∞επε ε≥ |        |        |        |        |        |        |        |        |        |        |        |        |        |
  299. |φαδεπεεßδεµ.  |        |        |        |        |        |        |        |        |        |        |        |        |        |
  300. | ±≥≡α⌡εΓεπε   |        |        |        |        |        |        |        |        |        |        |        |        |        |
  301. | τα∩α±α.......|        |        |        |        |        |        |        |        |        |        |        |        |        |
  302. | εßⁿσΩ≥εΓ µΦδ-|        |        |        |        |        |        |        |        |        |        |        |        |        |
  303. | Ωε∞.±⌠σ≡√....|        |        |        |        |        |        |        |        |        |        |        |        |        |
  304. | εßⁿσΩ≥εΓ ±ε÷-|        |        |        |        |        |        |        |        |        |        |        |        |        |
  305. | Ω≤δⁿ≥.±⌠σ≡√..|        |        |        |        |        |        |        |        |        |        |        |        |        |
  306. | ∩≡εΣ≤Ω≥ε∩≡ε- |        |        |        |        |        |        |        |        |        |        |        |        |        |
  307. | ΓεΣεΓ........|        |        |        |        |        |        |        |        |        |        |        |        |        |
  308. -------------------------------------------------------------------------------------------------------------------------------------
  309. |╚±Ωδ■≈α■≥±  Φτ|        |        |        |        |        |        |        |        |        |        |        |        |        |
  310. |Φ≥επα αΩ≥ΦΓα  |        |        |        |        |        |        |        |        |        |        |        |        |        |
  311. |ßαδαφ±α Φ≥επΦ |        |        |        |        |        |        |        |        |        |        |        |        |        |
  312. |∩ε ±≈σ≥α∞:    |        |        |        |        |        |        |        |        |        |        |        |        |        |
  313. |-≡α±≈σ≥√ ± ß■Σ|        |        |        |        |        |        |        |        |        |        |        |        |        |
  314. | µσ≥ε∞(─68)...|&╧╨┴01 ]|&╧╨┴02 ]|&╧╨┴03 ]|&╧╨┴04 ]|&╧╨┴05 ]|&╧╨┴06 ]|&╧╨┴07 ]|&╧╨┴08 ]|&╧╨┴09 ]|&╧╨┴10 ]|&╧╨┴11 ]|&╧╨┴12 ]|&╧╨┴13 ]|
  315. -------------------------------------------------------------------------------------------------------------------------------------
  316. |-Γαδ■≥φ√Θ ±≈σ≥|&╧┬╤01 ]|&╧┬╤02 ]|&╧┬╤03 ]|&╧┬╤04 ]|&╧┬╤05 ]|&╧┬╤06 ]|&╧┬╤07 ]|&╧┬╤08 ]|&╧┬╤09 ]|&╧┬╤10 ]|&╧┬╤11 ]|&╧┬╤12 ]|&╧┬╤13 ]|
  317. -------------------------------------------------------------------------------------------------------------------------------------
  318. |-═─╤ ∩ε ∞α≥.  |        |        |        |        |        |        |        |        |        |        |        |        |        |
  319. | ÷σφφε±≥ ∞(19)|&╧╠╓01 ]|&╧╠╓02 ]|&╧╠╓03 ]|&╧╠╓04 ]|&╧╠╓05 ]|&╧╠╓06 ]|&╧╠╓07 ]|&╧╠╓08 ]|&╧╠╓09 ]|&╧╠╓10 ]|&╧╠╓11 ]|&╧╠╓12 ]|&╧╠╓13 ]|
  320. -------------------------------------------------------------------------------------------------------------------------------------
  321. |-Ω≡σΣΦ≥√ ßαφΩα|        |        |        |        |        |        |        |        |        |        |        |        |        |
  322. |Σδ  ≡αß.(93)..|&╧╩┴01 ]|&╧╩┴02 ]|&╧╩┴03 ]|&╧╩┴04 ]|&╧╩┴05 ]|&╧╩┴06 ]|&╧╩┴07 ]|&╧╩┴08 ]|&╧╩┴09 ]|&╧╩┴10 ]|&╧╩┴11 ]|&╧╩┴12 ]|&╧╩┴13 ]|
  323. -------------------------------------------------------------------------------------------------------------------------------------
  324. |-εßε≡≤ΣεΓαφΦσ |        |        |        |        |        |        |        |        |        |        |        |        |        |
  325. |Ω ≤±≥αφεΓΩσ   |        |        |        |        |        |        |        |        |        |        |        |        |        |
  326. |(07)..........|&╧╬╙01 ]|&╧╬╙02 ]|&╧╬╙03 ]|&╧╬╙04 ]|&╧╬╙05 ]|&╧╬╙06 ]|&╧╬╙07 ]|&╧╬╙08 ]|&╧╬╙09 ]|&╧╬╙10 ]|&╧╬╙11 ]|&╧╬╙12 ]|&╧╬╙13 ]|
  327. -------------------------------------------------------------------------------------------------------------------------------------
  328. |-Ωα∩Φ≥αδⁿφ√σ  |        |        |        |        |        |        |        |        |        |        |        |        |        |
  329. |ΓδεµσφΦ  (08) |&╧╩┬01 ]|&╧╩┬02 ]|&╧╩┬03 ]|&╧╩┬04 ]|&╧╩┬05 ]|&╧╩┬06 ]|&╧╩┬07 ]|&╧╩┬08 ]|&╧╩┬09 ]|&╧╩┬10 ]|&╧╩┬11 ]|&╧╩┬12 ]|&╧╩┬13 ]|
  330. -------------------------------------------------------------------------------------------------------------------------------------
  331. |-≡α±≈σ≥√ ∩ε   |        |        |        |        |        |        |        |        |        |        |        |        |        |
  332. |αΓαφ±α∞ Γ√Σαφ-|        |        |        |        |        |        |        |        |        |        |        |        |        |
  333. |φ√∞ (61) Γ ≈α-|        |        |        |        |        |        |        |        |        |        |        |        |        |
  334. |±≥Φ Ωα∩.Γδεµ.)|&╧└┬01 ]|&╧└┬02 ]|&╧└┬03 ]|&╧└┬04 ]|&╧└┬05 ]|&╧└┬06 ]|&╧└┬07 ]|&╧└┬08 ]|&╧└┬09 ]|&╧└┬10 ]|&╧└┬11 ]|&╧└┬12 ]|&╧└┬13 ]|
  335. -------------------------------------------------------------------------------------------------------------------------------------
  336. |-≤ß√≥ΩΦ(87,80)|        |        |        |        |        |        |        |        |        |        |        |        |        |
  337. |Σσßσ≥εΓ√σ ε±- |        |        |        |        |        |        |        |        |        |        |        |        |        |
  338. |≥α≥ΩΦ.........|&╧╙┴01 ]|&╧╙┴02 ]|&╧╙┴03 ]|&╧╙┴04 ]|&╧╙┴05 ]|&╧╙┴06 ]|&╧╙┴07 ]|&╧╙┴08 ]|&╧╙┴09 ]|&╧╙┴10 ]|&╧╙┴11 ]|&╧╙┴12 ]|&╧╙┴13 ]|
  339. -------------------------------------------------------------------------------------------------------------------------------------
  340. | ╚≥επε φαδεπε-|&╧╚╥01 ]|&╧╚╥02 ]|&╧╚╥03 ]|&╧╚╥04 ]|&╧╚╥05 ]|&╧╚╥06 ]|&╧╚╥07 ]|&╧╚╥08 ]|&╧╚╥09 ]|&╧╚╥10 ]|&╧╚╥11 ]|&╧╚╥12 ]|&╧╚╥13 ]|
  341. |  εßδαπασ∞α   |        |        |        |        |        |        |        |        |        |        |        |        |        |
  342. |     ßατα     |        |        |        |        |        |        |        |        |        |        |        |        |        |
  343. -------------------------------------------------------------------------------------------------------------------------------------
  344.  
  345. ╤≡σΣφσπεΣεΓα  ±≥εΦ∞ε±≥ⁿ Φ∞≤∙σ±≥Γα, ∩εΣδσµα∙α  φαδεπεεßδεµσφΦ■  &╧╤╨1     ] ≥√±.≡≤ß.
  346. τα 1 ΩΓα≡≥αδ 1993 π.
  347.  
  348. ╤≡σΣφσπεΣεΓα  ±≥εΦ∞ε±≥ⁿ Φ∞≤∙σ±≥Γα, ∩εΣδσµα∙α  φαδεπεεßδεµσφΦ■  &╧╤╨2     ] ≥√±.≡≤ß.
  349. τα ∩σ≡Γεσ ∩εδ≤πεΣΦσ 1993 π.
  350.  
  351. ╤≡σΣφσπεΣεΓα  ±≥εΦ∞ε±≥ⁿ Φ∞≤∙σ±≥Γα, ∩εΣδσµα∙α  φαδεπεεßδεµσφΦ■  &╧╤╨3     ] ≥√±.≡≤ß.
  352. τα 9 ∞σ± ÷σΓ 1993 π.
  353.  
  354. ╤≡σΣφσπεΣεΓα  ±≥εΦ∞ε±≥ⁿ Φ∞≤∙σ±≥Γα, ∩εΣδσµα∙α  φαδεπεεßδεµσφΦ■  &╧╤╨4     ] ≥√±.≡≤ß.
  355. τα 1993 π.
  356.  
  357.  
  358.    ╨≤ΩεΓεΣΦ≥σδⁿ                                     &$─7                 ]
  359.  
  360.    ├δαΓφ√Θ ß≤⌡παδ≥σ≡                                &$─8                 ]
  361.  
  362.    ╥σδσ⌠εφ &$─12         ]
  363.