home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 4.ddi / PRG / TJD.PRG < prev    next >
Encoding:
Text File  |  1990-02-28  |  5.0 KB  |  219 lines
  1. STOR M*Z TO D
  2. IF NZL1=1
  3. ?' ╟δ ╤í ╘± ╧┬ ┴╨ ▓Γ ┴┐ ╥╟ ╞≈ ╫Θ ║╧ ,▓ó ╝ⁿ ╚δ ╫Θ ║┼'
  4. IF YDDJ>=5.AND.YDDJ<=8
  5. ?'  1) ╡Ñ│▌╥╟,│▌┬╓═≥─▄▓Γ┴┐╗·,│▌╧≥╥╟   ú¿╩╩╙├╙┌ú╡---ú╕╝╢│▌┬╓ú⌐'
  6. ENDI
  7. IF YDDJ>=3.AND.YDDJ<=6
  8. ?'  2) │▌╛α╥╟,▓¿╢╚╥╟,╓ß╧≥│▌╛α╥╟    ú¿╩╩╙├╙┌ú│---ú╢╝╢│▌┬╓ú⌐'
  9. ENDI
  10. IF YDDJ>=3.AND.YDDJ<=7
  11. ?'  3) │▌╛α╥╟,│▌╨╬╥╟,│▌╧≥╥╟    ú¿╩╩╙├╙┌ú│---ú╖╝╢│▌┬╓ú⌐'
  12. ENDI
  13. IF YDDJ>=3.AND.YDDJ<=7
  14. ?'  4) │▌╛α╥╟,╗∙╜┌╥╟,│▌╧≥╥╟    ú¿╩╩╙├╙┌ú│---ú╖╝╢│▌┬╓ú⌐'
  15. ENDI
  16. IF YDDJ>=6.AND.YDDJ<=9
  17. ?'  5) ╦½─÷╥╟,╣½╖¿╧▀╟º╖╓│▀,│▌╧≥╥╟    ú¿╩╩╙├╙┌ú╢---ú╣╝╢│▌┬╓ú⌐'
  18. ENDI
  19. IF YDDJ>=6.AND.YDDJ<=8
  20. ?'  6) ╠°╢»╥╟,│▌╨╬╥╟,╗∙╜┌╥╟,│▌╧≥╥╟,╣½╖¿╧▀╟º╖╓│▀ ( ╗∙╜┌,│▌╨╬╬≤▓ε )    ú¿╩╩╙├╙┌ú╢---ú╕╝╢│▌┬╓ú⌐'
  21. ENDI
  22. IF YDDJ>=6.AND.YDDJ<=8
  23. ?'  7) ╠°╢»╥╟,│▌╨╬╥╟,╗∙╜┌╥╟,│▌╧≥╥╟,╣½╖¿╧▀╟º╖╓│▀ ( ╗∙╜┌,╓▄╜┌╬≤▓ε )    ú¿╩╩╙├╙┌ú╢---ú╕╝╢│▌┬╓ú⌐'
  24. ENDI
  25. IF YDDJ>=9.AND.YDDJ<=12
  26. ?'  8) ╠°╢»╥╟,│▌╛α╥╟,│▌╧≥╥╟    ú¿╩╩╙├╙┌ú╣---ú▒ú▓╝╢│▌┬╓ú⌐'
  27. ENDI
  28. SET TALK OFF
  29. INPUT TO KS
  30. ENDI
  31. STORE (90-LK) TO SINE
  32. USE \HOUSEM\DBF\SIN
  33. STOR INT(SINE) TO SINE
  34. IF SINE<>0
  35. LOCA FOR RECNO()=SINE
  36. STOR SB TO SINE
  37. STOR 3.14159*M*Z/2/SINE TO LL
  38. STOR M*Z/SINE TO D
  39. ELSE
  40. STOR M*Z/2 TO LL
  41. STOR M*Z TO D
  42. ENDI
  43. IF YDDJ<10
  44. STOR "J"+CHR(48+YDDJ) TO BGCH
  45. ELSE
  46. STOR YDDJ-10 TO NUM
  47. STOR "J"+CHR(49)+CHR(48+NUM) TO BGCH
  48. ENDI
  49. IF KS<4.OR.KS=4
  50. USE \HOUSEM\DBF\FPK
  51. LOCA FOR LL>LMIN.AND.LL<=LMAX
  52. STOR &BGCH TO YD1
  53. IF KS=1
  54. USE \HOUSEM\DBF\FF0
  55. LOCA FOR D>DMIN.AND.D<=DMAX.AND.M>MMIN.AND.M<=MMAX
  56. STOR &BGCH TO YD2
  57. STOR YD1+YD2 TO YD1
  58. ENDI
  59. ENDI
  60. IF KS>=5.AND.KS<8
  61. USE \HOUSEM\DBF\FW0
  62. LOCA FOR D>DMIN.AND.D<=DMAX
  63. STOR &BGCH TO YD2
  64. IF KS=5
  65. USE \HOUSEM\DBF\FI2
  66. LOCA FOR D>DMIN.AND.D<=DMAX.AND.M>MMIN.AND.M<=MMAX
  67. STOR &BGCH TO YD1
  68. ENDI
  69. IF KS=6.OR.KS=7.OR.KS=8
  70. USE \HOUSEM\DBF\FR0
  71. LOCA FOR D>DMIN.AND.D<=DMAX.AND.M>MMIN.AND.M<=MMAX
  72. STOR &BGCH TO YD1
  73. ENDI
  74. ENDI
  75. IF KS=1.OR.KS=2.OR.KS=3.OR.KS=4.OR.KS=7.OR.KS=8
  76. USE \HOUSEM\DBF\FPT
  77. LOCA FOR D>DMIN.AND.D<=DMAX.AND.M>MMIN.AND.M<=MMAX
  78. STOR &BGCH TO GP2
  79. IF KS=8
  80. STOR GP2 TO GP1
  81. ENDI
  82. IF KS=7
  83. STOR GP2 TO GP1
  84. USE \HOUSEM\DBF\FPB
  85. LOCA FOR D>DMIN.AND.D<=DMAX.AND.M>MMIN.AND.M<=MMAX
  86. STOR &BGCH TO GP2
  87. ENDI
  88. IF KS=4
  89. USE \HOUSEM\DBF\FPB
  90. LOCA FOR D>DMIN.AND.D<=DMAX.AND.M>MMIN.AND.M<=MMAX
  91. STOR &BGCH TO GP1
  92. ENDI
  93. IF KS=3.OR.KS=1.OR.KS=2
  94. USE \HOUSEM\DBF\FF0
  95. LOCA FOR D>DMIN.AND.D<=DMAX.AND.M>MMIN.AND.M<=MMAX
  96. STOR &BGCH TO GP1
  97. ENDI
  98. IF KS=1
  99. STOR 0.6*(GP1+GP2) TO GP1
  100. ENDI
  101. IF KS=2
  102. STOR 0.6*(GP1+GP2)/SINB TO GP1
  103. ENDI
  104. ENDI
  105. IF KS=5
  106. USE \HOUSEM\DBF\FI4
  107. LOCA FOR D>DMIN.AND.D<=DMAX.AND.M>MMIN.AND.M<=MMAX
  108. STOR &BGCH TO GP1
  109. ENDI
  110. IF KS=6
  111. USE \HOUSEM\DBF\FPB
  112. LOCA FOR D>DMIN.AND.D<=DMAX.AND.M>MMIN.AND.M<=MMAX
  113. STOR &BGCH TO GP1
  114. USE \HOUSEM\DBF\FF0
  115. LOCA FOR D>DMIN.AND.D<=DMAX.AND.M>MMIN.AND.M<=MMAX
  116. STOR &BGCH TO GP2
  117. ENDI
  118. USE \HOUSEM\DBF\FB0
  119. LOCA FOR L>BMIN.AND.L<=BMAX
  120. STOR &BGCH TO JC1
  121. USE \HOUSEM\DBF\FPT
  122. LOCA FOR D>DMIN.AND.D<=DMAX.AND.M>MMIN.AND.M<=MMAX
  123. STOR &BGCH TO LL
  124. USE \HOUSEM\DBF\FR0
  125. LOCA FOR D>DMIN.AND.D<=DMAX.AND.M>MMIN.AND.M<=MMAX
  126. STOR &BGCH TO LR
  127. IF CHX='b'.OR.CHX='c'.OR.CHX='d'.OR.CHX='e'
  128. IF PWDJ<10
  129. STOR "J"+CHR(48+PWDJ) TO MATE
  130. ELSE
  131. STOR "J"+CHR(49)+CHR(48+PWDJ-10) TO MATE
  132. ENDI
  133. IF XDGCH='DS'
  134. USE \HOUSEM\DBF\CHPC
  135. LOCA FOR CXZL='&CHX' .AND. D>DMIN.AND.D<=DMAX.AND.M>MMIN.AND.M<=MMAX
  136. STOR -&MATE/1000.000 TO ESS
  137. USE \HOUSEM\DBF\TSC1
  138. LOCA FOR D>DMIN.AND.D<=DMAX.AND.M>MMIN.AND.M<=MMAX
  139. STOR &MATE/1000.000 TO TWS
  140. STOR ESS-TWS TO ESI
  141. ENDI
  142. IF XDGCH='DL'
  143. USE \HOUSEM\DBF\TWC1
  144. LOCA FOR D>DMIN.AND.D<=DMAX.AND.M>MMIN.AND.M<=MMAX
  145. STOR &MATE/1000.000 TO TWS
  146. USE \HOUSEM\DBF\GFXC
  147. LOCA FOR CXZL='&CHX' .AND. D>DMIN.AND.D<=DMAX.AND.M>MMIN.AND.M<=MMAX
  148. STOR -&MATE/1000.000 TO EWS
  149. STOR EWS-TWS TO EWI
  150. ENDI
  151. ELSE
  152. USE \HOUSEM\DBF\CHX
  153. STOR SUBSTR(CHX,1,1) TO ESS
  154. STOR &ESS TO ESS
  155. STOR ESS*LL TO ESS
  156. STOR SUBSTR(CHX,2,1) TO ESI
  157. STOR &ESI TO ESI
  158. STOR ESI*LL TO ESI
  159. IF XDGCH='DS'
  160. USE \HOUSEM\DBF\TSC
  161. LOCA FOR D>DMIN.AND.D<=DMAX.AND.M>MMIN.AND.M<=MMAX
  162. STOR &BGCH TO TWS
  163. ENDI
  164. IF XDGCH='DL'
  165. USE \HOUSEM\DBF\TWC
  166. LOCA FOR D>DMIN.AND.D<=DMAX.AND.M>MMIN.AND.M<=MMAX
  167. STOR &BGCH TO TWS
  168. ENDI
  169. ENDI
  170. USE \HOUSEM\DBF\TQJD
  171. APPE BLANK
  172. LOCA FOR RECNO()=NZL1
  173. REPL ZX1 WITH XDGCH,JC1 WITH 'FB0'
  174. DO CASE
  175. CASE KS=1
  176. REPL YD1 WITH 'FI1',GP1 WITH 'FI3'
  177. CASE KS=2
  178. REPL YD1 WITH 'FPK',GP1 WITH 'FFB'
  179. CASE KS=3
  180. REPL YD1 WITH 'FPK',GP1 WITH 'FF0'
  181. CASE KS=4
  182. REPL YD1 WITH 'FPK',GP1 WITH 'FBT'
  183. CASE KS=5
  184. REPL YD1 WITH 'FI2',GP1 WITH 'FI4'
  185. CASE KS=6
  186. REPL YD1 WITH 'FRW',GP1 WITH 'FBF'
  187. CASE KS=7
  188. REPL YD1 WITH 'FRW',GP1 WITH 'FBT'
  189. CASE KS=8
  190. REPL YD1 WITH 'FR0',GP1 WITH 'FPT'
  191. ENDC
  192. USE \HOUSEM\DBF\JDZ
  193. APPE BLANK
  194. LOCA FOR RECNO()=NZL1
  195. IF CHX='b'.OR.CHX='c'.OR.CHX='d'.OR.CHX='e'
  196. IF XDGCH='DS'
  197. REPL ZYD1 WITH YD1,ZGP1 WITH GP1,ZJC1 WITH JC1,ZESS WITH ESS
  198. REPL ZESI WITH ESI,ZTWS WITH TWS
  199. ELSE
  200. REPL ZYD1 WITH YD1,ZGP1 WITH GP1,ZJC1 WITH JC1,ZESS WITH EWS
  201. REPL ZESI WITH EWI,ZTWS WITH TWS
  202. ENDI
  203. ELSE
  204. REPL ZYD1 WITH YD1,ZGP1 WITH GP1,ZJC1 WITH JC1,ZESS WITH ESS
  205. REPL ZESI WITH ESI,ZTWS WITH TWS
  206. ENDI
  207. IF KS>=5.AND.KS<=7
  208. REPL ZYD2 WITH YD2
  209. ENDI
  210. ?'   '
  211. IF KS=3.OR.KS=4.OR.KS=6.OR.KS=7
  212. REPL ZGP2 WITH GP2
  213. ENDI
  214. IF XDGCH='DL'
  215. REPL ZFR0 WITH LR
  216. ENDI
  217. RETURN
  218.  
  219.