home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / ck.img / S5 / CKJ1.PRG < prev    next >
Encoding:
Text File  |  1988-12-02  |  694 b   |  46 lines
  1. * CKJ1.PRG ╩²╛▌┐Γ╫▄┐Γ┤ª└φ
  2. CLEAR
  3. USE &P0:CK88
  4. COUNT TO KK
  5. USE
  6. USE &P0:CKK88
  7. ZAP
  8. I=1
  9. DO WHILE I<=KK
  10. USE &P0:CK88
  11. STORE 0 TO A3,A4
  12. @4,20 SAY "╧╓╘┌╒²╘┌╜°╨╨╩²╛▌┤ª└φ,╟δ─·╔╘║≥ !"
  13. GO I
  14. A1=C02
  15. A2=C03
  16. A5=C04
  17. A6=C07
  18. SUM ALL C06,C08 TO A3,A4 FOR C02=A1.AND.C03=A2.AND.C04=A5
  19. I=I+1
  20. USE
  21. USE &P0:CKK88
  22. APPE FROM CK0
  23. REPL C02 WITH A1,C03 WITH A2,C06 WITH A3,C08 WITH A4
  24. REPL C04 WITH A5,C07 WITH A6,NAM WITH " ",DAT WITH " "
  25. USE
  26. ENDDO
  27. J=1
  28. DO WHILE J<=KK
  29. @4,20 SAY "╧╓╘┌╒²╘┌╜°╨╨╩²╛▌┤ª└φ,╟δ─·╔╘║≥ !"
  30. USE &P0:CKK88
  31. COUNT TO KK1
  32. IF KK1>J
  33. GO J
  34. A1=C02
  35. A2=C03
  36. A3=C06
  37. A4=C08
  38. A5=C04
  39. DELE ALL FOR C02=A1.AND.C03=A2.AND.C04=A5.AND.RECNO()>J
  40. PACK
  41. ENDIF
  42. J=J+1
  43. ENDDO
  44. USE
  45. RETURN
  46.