home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 4.ddi / PRG / GEAR.PRG < prev    next >
Encoding:
Text File  |  1990-02-28  |  1.8 KB  |  92 lines
  1. STOR Z11 TO Z
  2. STOR M1 TO M
  3. STOR BF1 TO LK
  4. STOR L1 TO L
  5. STOR ALF1 TO LL
  6. STOR DIR1 TO DIR
  7. STOR NZL1 TO NZL1
  8. SET TALK ON
  9. ?"╟δ╩Σ╚δ╡┌",NZL1,"│▌ ┬╓▓╬╩²:"
  10. SET TALK OFF
  11. STOR 'N' TO YN
  12. SET TALK ON
  13. ACCE ' │▌ ┬╓ ╩╟ ╖± ╨▐ ╒² ? [N]' TO YN
  14. SET TALK OFF
  15. IF UPPER(YN)='Y'
  16. INPUT ' ┼Σ ±ε │▌ ┬╓ │▌ ╩² =' TO Z2
  17. ACCEP ' ┼Σ ±ε │▌ ┬╓ ═╝ ║┼ :' TO TGCH
  18. INPUT ' ╨▐ ╒² ╧╡ ╩² =' TO DB
  19. ACCEP ' ╩╟ ╖± ╕▀ ╢╚ ▒Σ ╬╗ ? [Y]' TO LR
  20. SET TALK OFF
  21. IF UPPER(LR)='N'
  22. SET TALK ON
  23. INPUT ' ╓╨ ╨─ ╛α =' TO AD
  24. SET TALK OFF
  25. ELSE
  26. STOR (Z+Z2)*M/2 TO AD
  27. ENDI
  28. ELSE
  29. STOR 0 TO DB
  30. STOR 0 TO Z2
  31. STOR Z*M/2 TO AD
  32. ENDI
  33. IF NZL1=1
  34. ACCEPT ' ╙╨ ╬▐ ╚╚ ┤ª └φ ╥¬ ╟≤ ? [N]' TO YN
  35. SET TALK OFF
  36. IF UPPER(YN)='Y'
  37. ACCEPT ' ╚╚ ┤ª └φ ╥¬ ╟≤ :' TO GCH
  38. SET TALK OFF
  39. ELSE
  40. STOR '     ' TO GCH
  41. ENDI
  42. ENDI
  43. INPUT ' │▌ ┬╓ ╘╦ ╢» ╛½ ╢╚ ╡╚ ╝╢ =(3-12)' TO YDDJ
  44. INPUT ' │▌ ┬╓ ╞╜ ╬╚ ╨╘ ╛½ ╢╚ ╡╚ ╝╢ =(3-12)' TO PWDJ
  45. INPUT ' │▌ ┬╓ ╜╙ ┤Ñ ╛½ ╢╚ ╡╚ ╝╢ =(3-12)' TO JCDJ
  46. ACCEPT ' │▌ ┬╓ ▓α ╧╢ =(D,DB,DC,DE)' TO CHX
  47. SET TALK OFF
  48. USE \HOUSEM\DBF\SIN
  49. STOR INT(LK) TO SINB
  50. IF SINB<>0
  51. LOCA FOR RECNO()=SINB
  52. STOR SB TO SINB
  53. ENDI
  54. IF SINB=0
  55. STOR 10000 TO L1
  56. ELSE
  57. STOR 4*M/SINB TO L1
  58. ENDI
  59. IF L>L1
  60. ACCEPT ' ▓Γ ┴┐ ╣╠ ╢¿ ╧╥ │▌ ║± └┤ ╝± ▓Θ ▓α ╧╢ , ╨╨ ╖± ? [Y]' TO YN
  61. SET TALK OFF
  62. IF UPPER(YN)='N'
  63. STOR 'DL' TO XDGCH
  64. ELSE
  65. STOR 'DS' TO XDGCH
  66. ENDI
  67. ELSE
  68. ACCEPT ' ▓Γ ┴┐ ╣½ ╖¿ ╧▀ │ñ ╢╚ └┤ ╝± ▓Θ ▓α ╧╢ , ╨╨ ╖± ? [Y]' TO YN
  69. SET TALK OFF
  70. IF UPPER(YN)='N'
  71. STOR 'DS' TO XDGCH
  72. ELSE
  73. STOR 'DL' TO XDGCH
  74. ENDI
  75. ENDI
  76. USE \HOUSEM\DBF\GEAR
  77. APPE BLANK
  78. REPL M1 WITH M,Z11 WITH Z,BF1 WITH LK,TREAT1 WITH GCH
  79. REPL A01 WITH AD,ALF1 WITH LL,B1 WITH L,YDDJ1 WITH YDDJ
  80. REPL PWDJ1 WITH PWDJ,JCDJ1 WITH JCDJ,CHX1 WITH CHX
  81. REPL ZX1 WITH XDGCH
  82. IF DB<>0
  83. REPL CSI1 WITH DB,Z21 WITH Z2,DRAW1 WITH TGCH
  84. ENDI
  85. IF LK<>0
  86. REPL DIR1 WITH DIR
  87. ENDI
  88. DO \HOUSEM\PRG\TJD
  89. USE \HOUSEM\DBF\OUTLF
  90. GOTO NR
  91. RETURN
  92.