home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 4.ddi / PRG / ZGT.PRG < prev    next >
Encoding:
Text File  |  1990-02-28  |  1.9 KB  |  101 lines
  1. SET TALK OFF
  2. PUBL Z1,SCH,XCH,DGCH,GCH,KS
  3. CLEAR
  4. STOR 0 TO NR
  5. STOR 0 TO NS
  6. DO \HOUSEM\PRG\REFH
  7. DO \HOUSEM\PRG\BASE
  8. USE \HOUSEM\DBF\OUTLF
  9. APPE FROM \HOUSEM\DBF\OUTL.TXT SDF FOR GPSZ1<>" "
  10. USE \HOUSEM\DBF\OUTLF
  11. COPY TO \HOUSEM\DBF\HK FIELDS DL1,DR1,L1,SCHD1,XCHD1,SCHL1,XCHL1,ANGL1,DGL1,ANGR1,DGR1,;
  12. LL1,LK1,NK1,GPSZ1,DGCH1 FOR GPSZ1="GK".OR.GPSZ1="DK".OR.GPSZ1="LK".OR.GPSZ1=;
  13. "CK".OR.GPSZ1="R".OR.GPSZ1="ZK"
  14. DELE ALL FOR GPSZ1="GK".OR.GPSZ1="DK".OR.GPSZ1="LK".OR.GPSZ1="CK".OR.GPSZ1=;
  15. "R".OR.GPSZ1="ZK"
  16. PACK
  17. GOTO TOP
  18. DO WHIL .NOT.EOF()
  19. IF GPSZ1="G"
  20. DO CASE
  21. CASE DL1=DR1
  22. STOR NR+1 TO NR
  23. DO \HOUSEM\PRG\CUMN
  24. CASE DL1<>DR1
  25. STOR NR+1 TO NR
  26. DO \HOUSEM\PRG\CONE
  27. ENDC
  28. ENDI
  29. DO CASE
  30. CASE GPSZ1="P "
  31. STOR NR+1 TO NR
  32. DO \HOUSEM\PRG\KEY
  33. CASE GPSZ1="PP"
  34. STOR NR+1 TO NR
  35. DO \HOUSEM\PRG\KEY
  36. CASE GPSZ1="S"
  37. STOR NR+1 TO NR
  38. DO \HOUSEM\PRG\SPLINE
  39. CASE GPSZ1="K"
  40. STOR NR+1 TO NR
  41. CASE GPSZ1="M"
  42. STOR NR+1 TO NR
  43. STOR NS+1 TO NS
  44. DO \HOUSEM\PRG\MSCRE
  45. CASE GPSZ1="T"
  46. STOR NR+1 TO NR
  47. STOR NS+1 TO NS
  48. DO \HOUSEM\PRG\TSCRE
  49. CASE GPSZ1="PI"
  50. STOR NR+1 TO NR
  51. STOR NS+1 TO NS
  52. DO \HOUSEM\PRG\GSCRE
  53. CASE GPSZ1="Z"
  54. STOR NR+1 TO NR
  55. DO \HOUSEM\PRG\GEAR
  56. CASE GPSZ1="CG"
  57. STOR NR+1 TO NR
  58. DO \HOUSEM\PRG\CONGEAR
  59. CASE GPSZ1="WB"
  60. STOR NR+1 TO NR
  61. DO \HOUSEM\PRG\WB
  62. CASE GPSZ1="WW"
  63. STOR NR+1 TO NR
  64. DO \HOUSEM\PRG\WW
  65. CASE GPSZ1="BW"
  66. STOR NR+1 TO NR
  67. DO \HOUSEM\PRG\BW
  68. CASE GPSZ1="CW"
  69. STOR NR+1 TO NR
  70. DO \HOUSEM\PRG\CW
  71. ENDC
  72. IF GPSZ1="O".OR.GPSZ1="H"
  73. STOR NR+1 TO NR
  74. DO \HOUSEM\PRG\KLG
  75. ENDI
  76. SKIP
  77. ENDD
  78. USE \HOUSEM\DBF\HK
  79. STOR 1 TO NNK
  80. DO WHIL .NOT.EOF()
  81. GOTO NNK
  82. DO CASE
  83. CASE GPSZ1="GK".OR.GPSZ1="R".OR.GPSZ1="ZK"
  84. STOR DL1 TO D
  85. STOR DGCH1 TO GCH
  86. IF GCH<>'     '
  87. DO \HOUSEM\PRG\ZGCH
  88. USE \HOUSEM\DBF\HK
  89. GOTO NNK
  90. REPL SCHD1 WITH SCH,XCHD1 WITH XCH
  91. ENDI
  92. CASE GPSZ1="CK".AND.(SCHD1=1.0.OR.SCHD1=2.0.OR.SCHD1=3.0)
  93. DO \HOUSEM\PRG\CK
  94. ENDC
  95. SKIP
  96. STOR NNK+1 TO NNK
  97. ENDD
  98. COPY TO \HOUSEM\DBF\HKE
  99. DO \HOUSEM\PRG\TXT
  100. DO \HOUSEM\PRG\REDIT
  101.