home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 4.ddi / PRG / TXT.PRG < prev    next >
Encoding:
Text File  |  1980-01-04  |  3.2 KB  |  149 lines
  1. SET TALK OFF
  2. USE \HOUSEM\DBF\OUTLF
  3. DO WHILE .NOT.EOF()
  4. IF GPSZ1="CG"
  5. STOR SCHL1 TO L0
  6. STOR DR1 TO D0
  7. STOR L1-L0 TO L
  8. REPL L1 WITH L
  9. DO CASE
  10. CASE DGCH1="Y"
  11. INSERT BLANK
  12. REPL DL1 WITH D0,DR1 WITH D0,L1 WITH L0,LL1 WITH 1000,GPSZ1 WITH "G "
  13. CASE DGCH1="N"
  14. INSERT BEFORE BLANK
  15. REPL DL1 WITH D0,DR1 WITH D0,L1 WITH L0,LL1 WITH 1000,GPSZ1 WITH "G "
  16. SKIP
  17. ENDC
  18. ENDI
  19. SKIP
  20. ENDD
  21. DELE FOR GPSZ1="O".OR.GPSZ1="H"
  22. PACK
  23. COPY TO \HOUSEM\DBF\OUTL FIELDS DL1,DR1,L1,SCHD1,XCHD1,SCHL1,XCHL1,ANGL1,DGL1,;
  24. ANGR1,DGR1,LK1,LL1,NZL1,NK1,GPSZ1,DGCH1 FOR DIR1<>'H'.AND.DIR1<>'F'
  25. USE \HOUSEM\DBF\OUTL
  26. DO WHIL .NOT.EOF()
  27. IF ANGL1=1
  28. REPL ANGL1 WITH 0
  29. ENDI
  30. IF DGL1=0.01
  31. REPL DGL1 WITH 0
  32. ENDI
  33. IF ANGR1=1
  34. REPL ANGR1 WITH 0
  35. ENDI
  36. IF DGR1=0.01
  37. REPL DGR1 WITH 0
  38. ENDI
  39. SKIP
  40. ENDD
  41. USE \HOUSEM\DBF\OUTL
  42. GOTO BOTTOM
  43. APPE BLANK
  44. COPY TO \HOUSEM\TXT\OUTL.TXT SDF
  45. USE \HOUSEM\DBF\OUTLF
  46. COPY TO \HOUSEM\DBF\HOLEF FOR DIR1='H'.OR. DIR1='F'
  47. USE \HOUSEM\DBF\HOLEF
  48. DO WHIL .NOT.EOF()
  49. IF DIR1='H'
  50. EXIT
  51. ENDI
  52. GOTO BOTTOM
  53. IF DIR1='F'
  54. STORE DL1 TO DL2
  55. STORE DR1 TO DR2
  56. STORE L1 TO L2
  57. STORE SCHD1 TO SCHD2
  58. STORE XCHD1 TO XCHD2
  59. STORE SCHL1 TO SCHL2
  60. STORE XCHL1 TO XCHL2
  61. STORE ANGL1 TO ANGL2
  62. STORE DGL1 TO DGL2
  63. STORE ANGR1 TO ANGR2
  64. STORE DGR1 TO DGR2
  65. STORE LK1 TO LK2
  66. STORE LL1 TO LL2
  67. STORE NK1 TO NK2
  68. STORE GPSZ1 TO GPSZ2
  69. STORE DGCH1 TO DGCH2
  70. STORE DIR1 TO DIR2
  71. ENDI
  72. DELETE
  73. PACK
  74. USE \HOUSEM\DBF\HOLE2
  75. APPEND BLANK
  76. REPL  DL1 WITH DL2,DR1 WITH DR2,L1 WITH L2,SCHD1 WITH SCHD2,XCHD1 WITH XCHD2,;
  77. SCHL1 WITH SCHL2,XCHL1 WITH XCHL2,ANGL1 WITH ANGL2,DGL1 WITH DGL2,ANGR1 WITH ANGR2,DGR1 WITH DGR2
  78. REPL LK1 WITH LK2,LL1 WITH LL2,NK1 WITH NK2,GPSZ1 WITH GPSZ2,DGCH1 WITH DGCH2,DIR1 WITH DIR2
  79. USE \HOUSEM\DBF\HOLEF
  80. ENDD
  81. USE \HOUSEM\DBF\HOLE2
  82. COPY TO \HOUSEM\DBF\HOLE FIELDS DL1,DR1,L1,SCHD1,XCHD1,SCHL1,XCHL1,ANGL1,DGL1,;
  83. ANGR1,DGR1,LK1,LL1,NK1,GPSZ1,DGCH1 FOR DIR1='F'
  84. IF RECNO()=1
  85. USE \HOUSEM\DBF\HOLEF
  86. COPY TO \HOUSEM\DBF\HOLE FIELDS DL1,DR1,L1,SCHD1,XCHD1,SCHL1,XCHL1,ANGL1,DGL1,;
  87. ANGR1,DGR1,LK1,LL1,NK1,GPSZ1,DGCH1 FOR DIR1='H'
  88. ENDI
  89. USE \HOUSEM\DBF\HOLE
  90. DO WHIL .NOT.EOF()
  91. IF ANGL1=1
  92. REPL ANGL1 WITH 0
  93. ENDI
  94. IF DGL1=0.01
  95. REPL DGL1 WITH 0
  96. ENDI
  97. IF ANGR1=1
  98. REPL ANGR1 WITH 0
  99. ENDI
  100. IF DGR1=0.01
  101. REPL DGR1 WITH 0
  102. ENDI
  103. SKIP
  104. ENDD
  105. USE \HOUSEM\DBF\HOLE
  106. GOTO BOTTOM
  107. APPE BLANK
  108. COPY TO \HOUSEM\TXT\HOLE.TXT SDF
  109. USE \HOUSEM\DBF\KEYSIZE
  110. GOTO BOTTOM
  111. APPE BLANK
  112. REPL KTYPE1 WITH '0'
  113. COPY TO \HOUSEM\TXT\KEYSIZE.TXT SDF
  114. USE \HOUSEM\DBF\GEAR
  115. COPY TO \HOUSEM\TXT\GEAR.TXT SDF
  116. USE \HOUSEM\DBF\TQJD
  117. COPY TO \HOUSEM\TXT\TQJD.TXT SDF
  118. USE \HOUSEM\DBF\JDZ
  119. COPY TO \HOUSEM\TXT\JDZ.TXT SDF
  120. USE \HOUSEM\DBF\CONGEAR
  121. COPY TO \HOUSEM\TXT\CONGEAR.TXT SDF
  122. USE \HOUSEM\DBF\CONJDZ
  123. COPY TO \HOUSEM\TXT\CONJDZ.TXT SDF
  124. USE \HOUSEM\DBF\WB
  125. COPY TO \HOUSEM\TXT\WB.TXT SDF
  126. USE \HOUSEM\DBF\WBJDZ
  127. COPY TO \HOUSEM\TXT\WBJDZ.TXT SDF
  128. USE \HOUSEM\DBF\WW
  129. COPY TO \HOUSEM\TXT\WW.TXT SDF
  130. USE \HOUSEM\DBF\WWJDZ
  131. COPY TO \HOUSEM\TXT\WWJDZ SDF
  132. USE \HOUSEM\DBF\BW
  133. COPY TO \HOUSEM\TXT\BW.TXT SDF
  134. USE \HOUSEM\DBF\CW
  135. COPY TO \HOUSEM\TXT\CW.TXT SDF
  136. USE \HOUSEM\DBF\LGCH
  137. GOTO BOTTOM
  138. APPE BLANK
  139. COPY TO \HOUSEM\TXT\LGCH.TXT SDF
  140. USE \HOUSEM\DBF\KLGCH
  141. GOTO BOTTOM
  142. APPE BLANK
  143. COPY TO \HOUSEM\TXT\KLGCH.TXT SDF
  144. USE \HOUSEM\DBF\HKE
  145. GOTO BOTT
  146. APPE BLAN
  147. COPY TO \HOUSEM\TXT\HK.TXT SDF
  148. RETURN
  149.