home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 4.ddi / PRG / CK.PRG < prev    next >
Encoding:
Text File  |  1990-02-28  |  1.2 KB  |  73 lines
  1. STOR DGCH1 TO GCH
  2. STOR DL1 TO D
  3. STOR L1 TO L
  4. STOR SCHD1 TO TYPE
  5. STOR XCHD1 TO XH
  6. STOR XCHL1 TO XCHL
  7. STOR SCHL1 TO SCHL
  8. STOR LL1 TO LG
  9. STOR LK1 TO LK
  10. STOR NK1 TO NK
  11. IF NK=4.OR.NK=5
  12. STOR -L1 TO L
  13. ENDI
  14. USE \HOUSEM\DBF\CK
  15. LOCA FOR DM=D.AND.TYP=TYPE
  16. STOR D1 TO D
  17. STOR D2 TO D1
  18. IF TYPE=2.0 .OR. TYPE=3.0
  19. STOR H1 TO H
  20. IF XH<>0.0
  21. STOR XH TO H
  22. ENDI
  23. STOR L-H TO LL
  24. USE \HOUSEM\DBF\HK
  25. GOTO NNK
  26. IF GCH='L'
  27. IF NK=1
  28. STOR SCHL1+H TO SCHL
  29. ELSE
  30. STOR XCHL1+H TO XCHL
  31. ENDI
  32. ELSE
  33. IF NK=1
  34. STOR SCHL1-H TO SCHL
  35. ELSE
  36. STOR XCHL1-H TO XCHL
  37. ENDI
  38. ENDI
  39. APPE BLANK
  40. GOTO NNK
  41. REPL DL1 WITH D1,DR1 WITH D1,L1 WITH H,DGCH1 WITH '  '
  42. INSE BLANK
  43. REPL DL1 WITH D,DR1 WITH D,L1 WITH LL,SCHL1 WITH SCHL,XCHL1 WITH XCHL,;
  44. LL1 WITH LG,LK1 WITH LK,NK1 WITH NK,GPSZ1 WITH 'CK'
  45. ENDI
  46. IF TYPE=1.0
  47. USE \HOUSEM\DBF\HK
  48. GOTO NNK
  49. STOR (D1-D)/2 TO H
  50. STOR L-H TO LL
  51. IF GCH='L'
  52. IF NK=1
  53. STOR SCHL1+H TO SCHL
  54. ELSE
  55. STOR XCHL1+H TO XCHL
  56. ENDI
  57. ELSE
  58. IF NK=1
  59. STOR SCHL1-H TO SCHL
  60. ELSE
  61. STOR XCHL1-H TO XCHL
  62. ENDI
  63. ENDI
  64. APPE BLANK
  65. GOTO NNK
  66. REPL DL1 WITH D1,DR1 WITH D,L1 WITH H,DGCH1 WITH ' '
  67. INSE BLANK
  68. REPL DL1 WITH D,DR1 WITH D,L1 WITH LL,SCHL1 WITH SCHL,XCHL1 WITH XCHL,;
  69. LL1 WITH LG,LK1 WITH LK,NK1 WITH NK,GPSZ1 WITH 'CK'
  70. ENDI
  71. GOTO NNK
  72. RETURN
  73.