home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / gz.img / CBHS-3.PRG < prev    next >
Encoding:
Text File  |  1990-02-28  |  4.5 KB  |  58 lines

  1. *│╔▒╛║╦╦π╫╙│╠╨≥╓«╚²(│⌡╩╝╗»╫╙│╠╨≥):CBHS-3.PRG
  2. set talk off
  3. clear
  4. cf='     '
  5. @ 5,25 say '╟δ╘┌ A:┼╠▓σ╚δ╩²╛▌┼╠'
  6. ?
  7. ?
  8. ? '                ***************************************** '
  9. ? '                *             ╫ó          ╥Γ            * '
  10. ? '                *                                       * '
  11. ? '                *   ┤╦╫╙│╠╨≥╬¬╘┬╡╫╥≥╗╗╘┬╩▒╩²╛▌╫¬╥╞╧┬    * '
  12. ? '                *   ╘┬╢°╙├íú╘┌┤╦╓«╟░─·╓╞╫≈┴╦└·╩╖╫╩┴╧    * '
  13. ? '                *   ┬≡ú┐                                * '
  14. ? '                *                                       * '
  15. ? '                ***************************************** '
  16. @ 20,15 say '╩╟╖±╒µ╡─╥¬│⌡╩╝╗»(Y/N)?  ' get cf
  17.      read
  18. if cf='y'.or.cf='Y'
  19. use &qbl6
  20. sum all HGSJ┴┐,HGSJCB╜≡╢ε,DGSJ┴┐,DGSJCB╜≡╢ε,QLSJCB╜≡╢ε,FLSJCB╜≡╢ε,WGSJCB╜≡╢ε,JGSJCB╜≡╢ε,DBSJCB╜≡╢ε,CYSJCB╜≡╢ε to s1,s2,s3,s4,s5,s6,s7,s8,s9,s10 for ▒α║┼=117-qbl2.or.▒α║┼=118-qbl2
  21. sum all RL╜≡╢ε,DL╜≡╢ε,GZ╜≡╢ε,FL╜≡╢ε,JF╜≡╢ε,FP╜≡╢ε,GL╜≡╢ε,ZJ╜≡╢ε,FYCY╜≡╢ε to s11,s12,s13,s14,s15,s16,s17,s18,s19 for ▒α║┼=117-qbl2.or.▒α║┼=118-qbl2
  22. replace all ╘┬╖▌ with mo2,▓·┴┐ with 0,HGSJ┴┐╡Ñ╬╗ with 0,HGSJ┴┐ with 0,HGDE┴┐ with 0,HGSJCB╡Ñ╬╗ with 0,HGSJCB╜≡╢ε with 0,DGSJ┴┐╡Ñ╬╗ with 0,DGSJ┴┐ with 0,DGDE┴┐ with 0,DGSJCB╡Ñ╬╗ with 0,DGSJCB╜≡╢ε with 0
  23. replace all QLMJDE┴┐ with 0,QLSJCB╡Ñ╬╗ with 0,QLSJCB╜≡╢ε with 0,FLDE╜≡╢ε with 0,FLSJCB╡Ñ╬╗ with 0,FLSJCB╜≡╢ε with 0,WGDE╜≡╢ε with 0,WGSJCB╡Ñ╬╗ with 0,WGSJCB╜≡╢ε with 0,JGDE╜≡╢ε with 0,JGSJCB╡Ñ╬╗ with 0,JGSJCB╜≡╢ε with 0
  24. replace all DBSJCB╡Ñ╬╗ with 0,DBSJCB╜≡╢ε with 0,CYSJCB╡Ñ╬╗ with 0,CYSJCB╜≡╢ε with 0,CL╨í╝╞╡Ñ╬╗ with 0,CL╨í╝╞╜≡╢ε with 0,╣ñ╩▒ with 0,RL╞╜╛∙│╔▒╛ with 0,RL╜≡╢ε with 0,DL╞╜╛∙│╔▒╛ with 0,DL╜≡╢ε with 0,GZ╞╜╛∙│╔▒╛ with 0,GZ╜≡╢ε with 0
  25. replace all FL╞╜╛∙│╔▒╛ with 0,FL╜≡╢ε with 0,JF╞╜╛∙│╔▒╛ with 0,JF╜≡╢ε with 0,FP╞╜╛∙│╔▒╛ with 0,FP╜≡╢ε with 0,GL╞╜╛∙│╔▒╛ with 0,GL╜≡╢ε with 0,XJ╞╜╛∙│╔▒╛ with 0,XJ╜≡╢ε with 0,ZJ╞╜╛∙│╔▒╛ with 0,ZJ╜≡╢ε with 0,FYCY╜≡╢ε with 0
  26. use &qbl4
  27. go 4
  28. sum next 1 HG╓╪┴┐,HG╜≡╢ε,DG╓╪┴┐,DG╜≡╢ε,╞ß┴╧,╕¿┴╧,═Γ╣║╝■,╝╙╣ñ╖╤,┤≥░ⁿ╖╤,▓─┴╧▓ε╥∞,╚╝┴╧,╢»┴ª,╣ñ╫╩,╕ú└√╖╤,│╡╝Σ╛¡╖╤,╖╧╞╖,╣▄└φ╖╤,║╧╝╞,╖╤╙├▓ε╥∞ to h1,h2,h3,h4,h5,h6,h7,h8,h9,h10,h11,h12,h13,h14,h15,h16,h17,h18,h19
  29. replace all ╘┬╖▌ with mo2,HG╓╪┴┐ with 0,HG╜≡╢ε with 0,DG╓╪┴┐ with 0,DG╜≡╢ε with 0,╞ß┴╧ with 0,╕¿┴╧ with 0,═Γ╣║╝■ with 0,╝╙╣ñ╖╤ with 0,┤≥░ⁿ╖╤ with 0
  30. replace all ▓─┴╧▓ε╥∞ with 0,╚╝┴╧ with 0,╢»┴ª with 0,╣ñ╫╩ with 0,╕ú└√╖╤ with 0,│╡╝Σ╛¡╖╤ with 0,╖╧╞╖ with 0,╣▄└φ╖╤ with 0,║╧╝╞ with 0,╖╤╙├▓ε╥∞ with 0
  31. go 1
  32. replace next 1 HG╓╪┴┐ with s1,HG╜≡╢ε with s2,DG╓╪┴┐ with s3,DG╜≡╢ε with s4,╞ß┴╧ with s5,╕¿┴╧ with s6,═Γ╣║╝■ with s7,╝╙╣ñ╖╤ with s8,┤≥░ⁿ╖╤ with s9,▓─┴╧▓ε╥∞ with s10
  33. replace next 1 ╚╝┴╧ with s11,╢»┴ª with s12,╣ñ╫╩ with s13,╕ú└√╖╤ with s14,│╡╝Σ╛¡╖╤ with s15,╖╧╞╖ with s16,╣▄└φ╖╤ with s17,║╧╝╞ with s18,╖╤╙├▓ε╥∞ with s19
  34. go 2
  35. replace next 1 HG╓╪┴┐ with h1,HG╜≡╢ε with h2,DG╓╪┴┐ with h3,DG╜≡╢ε with h4,╞ß┴╧ with h5,╕¿┴╧ with h6,═Γ╣║╝■ with h7,╝╙╣ñ╖╤ with h8,┤≥░ⁿ╖╤ with h9,▓─┴╧▓ε╥∞ with h10
  36. replace next 1 ╚╝┴╧ with h11,╢»┴ª with h12,╣ñ╫╩ with h13,╕ú└√╖╤ with h14,│╡╝Σ╛¡╖╤ with h15,╖╧╞╖ with h16,╣▄└φ╖╤ with h17,║╧╝╞ with h18,╖╤╙├▓ε╥∞ with h19
  37. use &qbl5
  38. go 126-qbl1
  39. sum next 1 HG╜≡╢ε,DG╜≡╢ε,╞ß┴╧,╕¿┴╧,═Γ╣║╝■,╝╙╣ñ╖╤,┤≥░ⁿ╖╤,▓─┴╧▓ε╥∞,╚╝┴╧,╢»┴ª,╣ñ╫╩,╕ú└√╖╤,│╡╝Σ╛¡╖╤,╖╧╞╖,╣▄└φ╖╤,║╧╝╞,╖╤╙├▓ε╥∞ to u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,u15,u16,u17
  40. replace all ╘┬╖▌ with mo2,▓·┴┐ with 0,HG╜≡╢ε with 0,DG╜≡╢ε with 0,╞ß┴╧ with 0,╕¿┴╧ with 0,═Γ╣║╝■ with 0,╝╙╣ñ╖╤ with 0,┤≥░ⁿ╖╤ with 0,▓─┴╧▓ε╥∞ with 0,╚╝┴╧ with 0
  41. replace all ╢»┴ª with 0,╣ñ╫╩ with 0,╕ú└√╖╤ with 0,│╡╝Σ╛¡╖╤ with 0,╖╧╞╖ with 0,╣▄└φ╖╤ with 0,║╧╝╞ with 0,╖╤╙├▓ε╥∞ with 0
  42. go 1
  43. replace next 1 HG╜≡╢ε with u1,DG╜≡╢ε with u2,╞ß┴╧ with u3,╕¿┴╧ with u4,═Γ╣║╝■ with u5,╝╙╣ñ╖╤ with u6,┤≥░ⁿ╖╤ with u7,▓─┴╧▓ε╥∞ with u8,╚╝┴╧ with u9
  44. replace next 1 ╢»┴ª with u10,╣ñ╫╩ with u11,╕ú└√╖╤ with u12,│╡╝Σ╛¡╖╤ with u13,╖╧╞╖ with u14,╣▄└φ╖╤ with u15,║╧╝╞ with u16,╖╤╙├▓ε╥∞ with u17
  45. use &qbl3
  46. go 2
  47. sum next 1 ╣ñ╩▒,HG┴┐,HG│╔▒╛,DG┴┐,DG│╔▒╛,╞ß┴╧,╕¿┴╧,═Γ╣║╝■,╝╙╣ñ╖╤,┤≥░ⁿ╖╤,╚╝┴╧,╢»┴ª,╣ñ╫╩,╕ú└√╖╤,│╡╝Σ╛¡╖╤,╖╧╞╖,╣▄└φ╖╤ to n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12,n13,n14,n15,n16,n17
  48. go 1
  49. replace next 1 ╣ñ╩▒ with n1,HG┴┐ with n2,HG│╔▒╛ with n3,DG┴┐ with n4,DG│╔▒╛ with n5,╞ß┴╧ with n6,╕¿┴╧ with n7,═Γ╣║╝■ with n8
  50. replace next 1 ╝╙╣ñ╖╤ with n9,┤≥░ⁿ╖╤ with n10,╚╝┴╧ with n11,╢»┴ª with n12,╣ñ╫╩ with n13,╕ú└√╖╤ with n14,│╡╝Σ╛¡╖╤ with n15,╖╧╞╖ with n16,╣▄└φ╖╤ with n17
  51. go 2
  52. replace next 1 ╣ñ╩▒ with 0,HG┴┐ with 0,HG│╔▒╛ with 0,DG┴┐ with 0,DG│╔▒╛ with 0,╞ß┴╧ with 0,╕¿┴╧ with 0,═Γ╣║╝■ with 0,╝╙╣ñ╖╤ with 0,┤≥░ⁿ╖╤ with 0,╚╝┴╧ with 0,╢»┴ª with 0,╣ñ╫╩ with 0,╕ú└√╖╤ with 0,│╡╝Σ╛¡╖╤ with 0,╖╧╞╖ with 0,╣▄└φ╖╤ with 0
  53. endif
  54. use
  55. release all
  56. return
  57.  
  58.