home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 4.ddi / PRG / SPLINE.PRG < prev    next >
Encoding:
Text File  |  1990-03-06  |  2.0 KB  |  115 lines
  1. STOR KTYPE1 TO KTYPE
  2. STOR BGCH1 TO LR
  3. STOR NK1 TO NS
  4. STOR NZL1 TO XL
  5. STOR DL1 TO DL
  6. STOR CHX1 TO CHX
  7. STOR DIR1 TO DIR
  8. STOR TRIM(CHX) TO CHX
  9. STOR TRIM(LR) TO LR
  10. DO CASE
  11. CASE XL=1
  12. USE \HOUSEM\DBF\SPLINE1
  13. CASE XL=2
  14. USE \HOUSEM\DBF\SPLINE2
  15. CASE XL=3
  16. USE \HOUSEM\DBF\SPLINE3
  17. CASE XL=4
  18. USE \HOUSEM\DBF\SPLINE4
  19. CASE XL=5
  20. USE \HOUSEM\DBF\SPLINE5
  21. CASE XL=6
  22. USE \HOUSEM\DBF\SPLINE6
  23. ENDC
  24. STOR 'NO' TO W
  25. DO WHIL W<>'OK'
  26. DO WHIL .NOT. EOF()
  27. STOR 50 TO NUM
  28. STOR 15 TO DB
  29. DO WHIL .NOT. EOF()
  30. IF DO>=DL.AND.DB<=DL
  31. STOR RECNO() TO NUM
  32. GOTO BOTTOM
  33. SKIP
  34. ELSE
  35. STOR DO TO DB
  36. SKIP
  37. ENDI
  38. ENDD
  39. IF NUM=50
  40. SET TALK ON
  41. ?"╡┌",NS,"╝ⁿ ╓▒ ╛╢ ╬¬",DL
  42. INPUT "'╓▒╛╢╨í╙┌▒Ω╫╝╓╡,╘┘╩Σ╚δ╓▒╛╢=" TO DL
  43. SET TALK OFF
  44. STOR DL TO DR
  45. GOTO TOP
  46. ELSE
  47. GOTO BOTTOM
  48. SKIP
  49. ENDI
  50. ENDD
  51. GOTO NUM
  52. SKIP-1
  53. STOR DO TO ADB
  54. SKIP
  55. STOR DO TO AD
  56. IF ADB<>DL.AND.AD<>DL
  57. ?" ╡┌",NS,"╝ⁿ ╓▒ ╛╢ ╬¬",DL
  58. ?"╜¿╥Θ╩Σ╚δ╚τ╧┬╗¿╝ⁿ┐╫╛╢:",ADB,"╗≥",AD
  59. INPUT '╘┘╩Σ╚δ╓▒╛╢=' TO DL
  60. SET TALK OFF
  61. STOR DL TO DR
  62. ENDI
  63. IF ADB=DL.OR.AD=DL
  64. LOCA FOR DO=DL
  65. STOR B TO B
  66. STOR DI TO DI
  67. STOR KNUM TO KS
  68. STOR 'OK' TO W
  69. ELSE
  70. INPUT '╘┘╩Σ╚δ╓▒╛╢=' TO DL
  71. SET TALK OFF
  72. STOR DL TO DR
  73. STOR 'NO' TO W
  74. GOTO TOP
  75. ENDI
  76. ENDD
  77. IF DIR='H'
  78. USE \HOUSEM\DBF\SPLJD
  79. LOCA FOR TYPE="&CHX" .AND. OI="&LR" .AND. ZK=2
  80. STOR DGCH TO DGCH
  81. STOR BGCH TO BGCH
  82. STOR XDGCH TO XDGCH
  83. ELSE
  84. USE \HOUSEM\DBF\SPLJD
  85. LOCA FOR TYPE="&CHX".AND.OI="&LR".AND.ZK=1
  86. STOR DGCH TO DGCH
  87. STOR XDGCH TO XDGCH
  88. STOR BGCH TO BGCH
  89. ENDI
  90. STOR DL TO D
  91. STOR DGCH TO GCH
  92. DO \HOUSEM\PRG\ZGCH
  93. USE \HOUSEM\DBF\OUTLF
  94. GOTO NR
  95. REPL SCHD1 WITH SCH,XCHD1 WITH XCH,DL1 WITH DL,DR1 WITH DL,DGCH1 WITH DGCH
  96. STOR BGCH TO GCH
  97. STOR B TO D
  98. DO \HOUSEM\PRG\ZGCH
  99. USE \HOUSEM\DBF\KEYSIZE
  100. GOTO BOTTOM
  101. APPE BLANK
  102. REPL KTYPE1 WITH KTYPE,B1 WITH B,BGCH1 WITH BGCH,BS1 WITH SCH
  103. REPL BX1 WITH XCH
  104. STOR DI TO D
  105. STOR XDGCH TO GCH
  106. DO \HOUSEM\PRG\ZGCH
  107. USE \HOUSEM\DBF\KEYSIZE
  108. GOTO BOTTOM
  109. REPL DIGCH1 WITH XDGCH
  110. REPL DI1 WITH DI,KS1 WITH KS,DIS1 WITH SCH
  111. REPL DIX1 WITH XCH
  112. USE \HOUSEM\DBF\OUTLF
  113. GOTO NR
  114. RETURN
  115.