home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 4.ddi / PRG / CONGEAR.PRG < prev    next >
Encoding:
Text File  |  1990-02-28  |  1.0 KB  |  47 lines
  1. STOR Z11 TO Z
  2. STOR M1 TO M
  3. STOR BF1 TO BF
  4. STORE DL1 TO D
  5. STOR DGR1 TO B
  6. STOR ALF1 TO ALF
  7. STOR DIR1 TO DIR
  8. STOR ANGR1 TO Z2
  9. SET TALK ON
  10. ACCEP ' ┼Σ ±ε │▌ ┬╓ ═╝ ║┼ :' TO DRAW
  11. SET TALK OFF
  12. ACCEPT ' ╙╨ ╬▐ ╚╚ ┤ª └φ ╥¬ ╟≤ ? [N]' TO YN
  13. SET TALK OFF
  14. IF UPPER(YN)='Y'
  15. ACCEPT ' ╚╚ ┤ª └φ ╥¬ ╟≤ :' TO TREAT
  16. SET TALK OFF
  17. ELSE
  18. STOR '     ' TO TREAT
  19. ENDI
  20. ENDI
  21. INPUT ' │▌ ┬╓ ╘╦ ╢» ╛½ ╢╚ ╡╚ ╝╢ = (7 - 10)' TO YDDJ
  22. INPUT ' │▌ ┬╓ ╞╜ ╬╚ ╨╘ ╛½ ╢╚ ╡╚ ╝╢ =(7 -10)' TO PWDJ
  23. INPUT ' │▌ ┬╓ ╜╙ ┤Ñ ╛½ ╢╚ ╡╚ ╝╢ =(7 - 10)' TO JCDJ
  24. ACCEPT ' │▌ ┬╓ ▓α ╧╢ =(DE,DC)' TO CHX
  25. SET TALK OFF
  26. USE \HOUSEM\DBF\SIN
  27. STOR INT(BF) TO SINB
  28. IF SINB<>0
  29. LOCA FOR RECNO()=SINB
  30. STOR SB TO SINB
  31. ENDI
  32. IF SINB=0
  33. STOR 10000 TO B1
  34. ELSE
  35. STOR 4*M/SINB TO B1
  36. ENDI
  37. USE \HOUSEM\DBF\CONGEAR
  38. APPE BLANK
  39. REPL M1 WITH M,BF1 WITH BF,ALF1 WITH ALF
  40. REPL Z11 WITH Z,Z21 WITH Z2,YDDJ1 WITH YDDJ,PWDJ1 WITH PWDJ 
  41. REPL JCDJ1 WITH JCDJ,CHX1 WITH CHX,DRAW1 WITH DRAW,TREAT1 WITH TREAT
  42. REPL DIR1 WITH DIR
  43. DO \HOUSEM\PRG\CONTJD
  44. USE \HOUSEM\DBF\OUTLF
  45. GOTO NR
  46. RETURN
  47.