home *** CD-ROM | disk | FTP | other *** search
*│╔▒╛║╦╦π╫╙│╠╨≥╓«╬σ(╫╩┴╧▓Θ╤»):CBHS-5.PRG set talk off cx1=' ' bh=0 clear @ 07,20 say '************************ ' @ 08,20 say '* * ' @ 09,20 say '* ╗╢╙¡─·▓Θ╤»│╔▒╛╫╩┴╧ * ' @ 10,20 say '* * ' @ 11,20 say '* ╟δ╘┌B:┼╠▓σ╚δ└·╩╖┼╠ * ' @ 12,20 say '* * ' @ 13,20 say '************************ ' ? ? wait clear @ 1,27 say '─·╥¬▓Θ╤»╡─▓┐├┼╩╟' @ 2,27 say '================' @ 4,25 say '╙═╞ß--------------- 1' @ 6,25 say '╟░▓µ--------------- 2' @ 8,25 say '╗·─ú--------------- 3' @ 10,25 say '│σ╤╣--------------- 4' @ 12,25 say '╨┬▓·╞╖------------- 5' @ 14,25 say '▒╕┴╧--------------- 6' @ 16,25 say '╫▄╫░--------------- 7' @ 18,25 say '═╦│÷--------------- 8' @ 20,20 say '╟δ╩Σ╚δ─·╥¬╤í╘±╡─╣ª─▄▒α║┼' get cx1 read if cx1='1' store '╙═╞ß' to w1 endif if cx1='2' store '╟░▓µ' to w1 endif if cx1='3' store '╗·─ú' to w1 endif if cx1='4' store '│σ╤╣' to w1 endif if cx1='5' store '╨┬▓·╞╖' to w1 endif if cx1='6' store '▒╕┴╧' to w1 endif if cx1='7' store '╫▄╫░' to w1 endif clear year=' ' mon1=' ' mon2=' ' clear @ 3,30 say '─·╥¬▓Θ╤»╡─╚╒╞┌╩╟' @ 4,30 say '================' @ 8,35 say '' get year @ 8,42 say '─Ω' @ 10,30 say '' get mon1 @ 10,36 say '╘┬ ╓┴' @ 10,43 say '' get mon2 @ 10,48 say '╘┬' read mon11=val(mon1) mon22=val(mon2) set scoreboard off set status off clear @ 2,30 say '─·╥¬▓Θ╤»╡─▓·╞╖╩╟' @ 3,30 say '================' do &qbl7 use b:cbk go bh store ▓·╞╖├√│╞ to w2 sum all ▓·┴┐,HGSJ┴┐,HGSJCB╜≡╢ε,DGSJ┴┐,DGSJCB╜≡╢ε,QLSJCB╜≡╢ε,FLSJCB╜≡╢ε,WGSJCB╜≡╢ε,JGSJCB╜≡╢ε,DBSJCB╜≡╢ε,CYSJCB╜≡╢ε,CL╨í╝╞╜≡╢ε to r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11,r12 for ▓┐├┼=w1.and.▒α║┼=bh.and.(╘┬╖▌>=mon11.or.╘┬╖▌<=mon22) sum all RL╜≡╢ε,DL╜≡╢ε,GZ╜≡╢ε,FL╜≡╢ε,JF╜≡╢ε,FP╜≡╢ε,GL╜≡╢ε,XJ╜≡╢ε,ZJ╜≡╢ε to r13,r14,r15,r16,r17,r18,r19,r20,r21 for ▓┐├┼=w1.and.▒α║┼=bh.and.(╘┬╖▌>=mon11.or.╘┬╖▌<=mon22) k=r1+0.0000000000000000001 z1=r2/k z2=r3/k z3=r4/k z4=r5/k z5=r6/k z6=r7/k z7=r8/k z8=r9/k z9=r10/k z10=r11/k z11=r12/k z12=r13/k z13=r14/k z14=r15/k z15=r16/k z16=r17/k z17=r18/k z18=r19/k z19=r20/k z20=r21/k clear dy=' ' @ 10,25 say '┤≥╙í┬≡(Y/N)? ' get dy read if dy='y'.or.dy='Y' set print on set device to print endif clear @ 0,7 say '▓·╞╖: '+w2+' ┤╙ '+year+'─Ω'+mon1+'╘┬╓┴'+mon2+'╘┬╡─╕≈╧ε─┐║╧╝╞╩²╝░╞╜╛∙╡Ñ╬╗' @ 1,7 say '*****************************************************************' @ 2,1 say '▓·┴┐║╧╝╞: '+str(r1,10,0) @ 2,41 say '▓─┴╧╜≡╢ε╨í╝╞ '+str(r12,14,2) @ 3,1 say '║╕╣▄╓╪┴┐ '+str(r2,14,2) @ 3,41 say '▓─┴╧╡Ñ╬╗╨í╝╞ '+str(z11,8,4) @ 4,1 say '║╕╣▄╞╜╛∙╓╪┴┐╡Ñ╬╗ '+str(z1,8,4) @ 4,41 say '╞ß┴╧╜≡╢ε '+str(r13,14,2) @ 5,1 say '║╕╣▄│╔▒╛╜≡╢ε '+str(r3,14,2) @ 5,41 say '╞ß┴╧╞╜╛∙│╔▒╛ '+str(z12,8,4) @ 6,1 say '║╕╣▄╞╜╛∙│╔▒╛ '+str(z2,8,4) @ 6,41 say '╢»┴ª╜≡╢ε '+str(r14,14,2) @ 7,1 say '┤°╕╓╓╪┴┐ '+str(r4,14,2) @ 7,41 say '╢»┴ª╞╜╛∙│╔▒╛ '+str(z13,8,4) @ 8,1 say '┤°╕╓╞╜╛∙╓╪┴┐╡Ñ╬╗ '+str(z3,8,4) @ 8,41 say '╣ñ╫╩╜≡╢ε '+str(r15,14,2) @ 9,1 say '┤°╕╓│╔▒╛╜≡╢ε '+str(r5,14,2) @ 9,41 say '╣ñ╫╩╞╜╛∙│╔▒╛ '+str(z14,8,4) @ 10,1 say '┤°╕╓╞╜╛∙│╔▒╛ '+str(z4,8,4) @ 10,41 say '╕ú└√╜≡╢ε '+str(r16,14,2) @ 11,1 say '╞ß┴╧│╔▒╛ '+str(r6,14,2) @ 11,41 say '╕ú└√╞╜╛∙│╔▒╛ '+str(z15,8,4) @ 12,1 say '╞ß┴╧╞╜╛∙│╔▒╛╡Ñ╬╗ '+str(z5,8,4) @ 12,41 say '│╡╝Σ╛¡╖╤╜≡╢ε '+str(r17,14,2) @ 13,1 say '╕¿┴╧│╔▒╛ '+str(r7,14,2) @ 13,41 say '│╡╝Σ╛¡╖╤╞╜╛∙│╔▒╛ '+str(z16,8,4) @ 14,1 say '╕¿┴╧╞╜╛∙│╔▒╛╡Ñ╬╗ '+str(z6,8,4) @ 14,41 say '╖╧╞╖╦≡╩º╜≡╢ε '+str(r18,14,2) @ 15,1 say '═Γ╣║╝■│╔▒╛ '+str(r8,14,2) @ 15,41 say '╖╧╞╖╦≡╩º╞╜╛∙│╔▒╛ '+str(z17,8,4) @ 16,1 say '═Γ╣║╝■╞╜╛∙│╔▒╛╡Ñ╬╗ '+str(z7,8,4) @ 16,41 say '╣▄└φ╖╤╜≡╢ε '+str(r19,14,2) @ 17,1 say '╝╙╣ñ╖╤│╔▒╛ '+str(r9,14,2) @ 17,41 say '╣▄└φ╖╤╞╜╛∙│╔▒╛ '+str(z18,8,4) @ 18,1 say '╝╙╣ñ╖╤╞╜╛∙│╔▒╛╡Ñ╬╗ '+str(z8,8,4) @ 18,41 say '╖╤╙├╜≡╢ε╨í╝╞ '+str(r20,14,2) @ 19,1 say '┤≥░ⁿ╖╤│╔▒╛ '+str(r10,14,2) @ 19,41 say '╖╤╙├╞╜╛∙│╔▒╛╨í╝╞ '+str(z19,8,4) @ 20,1 say '┤≥░ⁿ╖╤╞╜╛∙│╔▒╛╡Ñ╬╗ '+str(z9,8,4) @ 20,41 say '╜≡╢ε╫▄╝╞ '+str(r21,14,2) @ 21,1 say '▓─┴╧▓ε╥∞│╔▒╛ '+str(r11,14,2) @ 21,41 say '╞╜╛∙│╔▒╛╫▄╝╞ '+str(z20,8,4) @ 22,1 say '▓─┴╧▓ε╥∞╞╜╛∙│╔▒╛╡Ñ╬╗'+str(z10,8,4) @ 23,1 say ' ' set print off set device to screen wait set scoreboard on set status on use release all return 
