home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / xy.img / S4 / ZKTJ.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  750 b   |  31 lines
  1. STORE .T. TO DIT
  2. STORE "  " TO ZKN,MBXH,MBM
  3. STORE 0 TO ZSHU,SHU1,SHU2,SHU
  4. CLEAR
  5. DO XZC
  6. SELECT 1
  7. USE B:AC2&Z
  8. SELECT 2
  9. USE ZK1
  10. CLEAR
  11. @ 2,20 SAY "&ZZ"+"╫¿╥╡┤╙──╕÷─Ω╝╢┐¬╩╝═│╝╞(82,83,84,85...)" GET ZKN
  12. READ
  13. @ 3,20 SAY "╒²╘┌═│╝╞,╟δ╡╚┤² !"
  14. DM="&Z"+"&ZKN"+"001"
  15. LOCATE FOR BXH="&DM"
  16. DO WHILE "&Z"=SUBSTR(BXH,1,2)
  17. MBXH=SUBSTR(BXH,3,2)
  18. MBM=BM
  19. SELECT 1
  20. COUNT FOR MBXH=SUBSTR(BIN,1,2).AND.XI=MBM.AND.B1="─╨" TO SHU1
  21. COUNT FOR MBXH=SUBSTR(BIN,1,2).AND.XI=MBM.AND.B1="┼«" TO SHU2
  22. SELECT 2
  23. REPL B1 WITH SHU1,B2 WITH SHU2
  24. ZSHU=ZSHU+SHU1+SHU2
  25. @ 5,20 SAY "&ZZ"+"╫¿╥╡ "+SUBSTR(BXH,3,2)+"╝╢ "+BM+"░α╡▒╟░═│╝╞╚╦╩²: ì
  26. "+STR((SHU1+SHU2),4)
  27. @ 7,20 SAY "&ZZ"+"╫¿╥╡ ╡▒╟░└█╝╞╚╦╩²: "+STR(ZSHU,4)
  28. SKIP+1
  29. ENDDO
  30. WAIT "═│╝╞╜ß╩°,░┤╚╬╥Γ╝ⁿ╖╡╗╪▓╦╡Ñ."
  31. RETURN