Liren Large Software Subsidy 6/06.iso/b/b034/gz.img/╝∞╦.PRG

Text File | 1991-06-22 | 14.1 KB | 485 lines

*╝∞╦≈╫╙│╠╨≥:╝∞╦≈.PRG
use a:gz
store .t. to answer1
a1='         '
do while answer1
clear
@ 3,30 say '╝∞╦≈╧╡═│╣ª─▄╟σ╡Ñ'
@ 4,29 say '================='
@ 6,25 say '▒α║┼------------------ 1'
@ 8,25 say '╨╒├√------------------ 2'
@ 10,25 say '╗∙▒╛╣ñ╫╩-------------- 3'
@ 12,25 say '╚δ│º─Ω╘┬-------------- 4'
@ 14,25 say '╕≈│╡╝Σ,┐╞╩╥╚╦╩²------- 5'
@ 16,25 say '═╦│÷------------------ 6'
@ 18,20 say '╟δ╩Σ╚δ─·╥¬╤í╘±╡─╣ª─▄▒α║┼:' get a1
     read
do case
   case a1='1'
        bh=0
        clear
        ba=.t.
        do while ba
        input '╟δ─·╩Σ╚δ╥¬╝∞╦≈╡─╓░╣ñ▒α║┼:  ' to bh
        locate all for bh=▒α║┼
        store recno() to rno
        go rno
        ?
        list for bh=▒α║┼
        ?
        accept '╩╟╖±╗╣╥¬╝╠╨°╝∞╦≈(y/n)?  ' to bc
        ?
        if bc='n'.or.bc='N'
           ba=.f.
        endif
        enddo
   case a1='2'
        clear
        bd=.t.
        do while bd
        clear
        name='            '
        @ 5,5 say '╟δ─·╩Σ╚δ╥¬╝∞╦≈╡─╓░╣ñ╨╒├√:' get name
            read
        list for name=╨╒├√
        ?
        accept '╩╟╖±╗╣╥¬╝╠╨°╝∞╦≈(y/n)?  ' to be
        ?
        if be='n'.or.be='N'
           bd=.f.
        endif
        enddo
   case a1='3'
        pay1=0
        pay2=0
        bf=.t.
        do while bf
        clear
        ?
        ?
        input '╟δ╩Σ╚δ╥¬╝∞╦≈╡─╣ñ╫╩,┤╙: ' to pay1
        input '                              ╓┴: ' to pay2
        @ 5,45 say '╡─╓░╣ñ╝╟┬╝'
        ?
        list for ╗∙▒╛╣ñ╫╩>=pay1.and.╗∙▒╛╣ñ╫╩<=pay2
        ?
        accept '╩╟╖±╗╣╥¬╝╠╨°╝∞╦≈(y/n)?  ' to bg
        ?
        if bg='n'.or.bg='N'
           bf=.f.
        endif
        enddo
   case a1='4'
        year1=0
        year2=0
        b1=.t.
        do while b1
        clear
        ?
        ?
        input '╟δ╩Σ╚δ╥¬╝∞╦≈╡─╚δ│º─Ω╘┬,┤╙: ' to year1
        input '                              ╓┴: ' to year2
        @ 5,45 say '╡─╓░╣ñ╝╟┬╝'
        ?
        list for ╚δ│º─Ω╘┬>=year1.and.╚δ│º─Ω╘┬<=year2
        ?
        accept '╩╟╖±╗╣╥¬╝╠╨°╝∞╦≈(y/n)?  ' get bj
        ?
        if bj='n'.or.bj='N'
           b1=.f.
        endif
        enddo
   case a1='5'
        clear
        b2=.t.
        b3=0
        do while b2
        @ 5,30 say '╝∞╦≈╕≈│╡╝Σ,╓▒╩⌠╡─╚╦╩²╟σ╡Ñ'
        @ 6,29 say '=========================='
        @ 8,15 say '╓▒╩⌠---------------- 1'
        @ 8,45 say '╟░▓µ│╡╝Σ------------ 2'
        @ 10,15 say '│σ╤╣│╡╝Σ------------ 3'
        @ 10,45 say '╙═╞ß│╡╝Σ------------ 4'
        @ 12,15 say '▒╕┴╧│╡╝Σ------------ 5'
        @ 12,45 say '╗·╨▐─ú╛▀│╡╝Σ-------- 6'
        @ 14,15 say '╨┬▓·╞╖│╡╝Σ---------- 7'
        @ 14,45 say '╫▄╫░│╡╝Σ------------ 8'
        @ 16,15 say '═╦╨▌╣ñ╚╦------------ 9'
        @ 16,45 say '╚½│º╣ñ╚╦╚╦╩²-------- 10'
        @ 18,15 say '╕ú└√(╓╗╙╨╚½├±)------ 11'
        @ 18,45 say '═╦│÷---------------- 12'
        @ 21,25 say '╟δ╩Σ╚δ─·╥¬╤í╘±╡─▓┐├┼╩╟:' get b3
             read
           store '╚½├±' to qm
           store '╝»╠σ' to jt
           store '║╧═¼' to ht
           store '▓┐├┼' to bm
           store '╦∙╙╨╓╞'to syz
        if b3=1
           clear
           c1=0
           c11=0
           c111=0
           c2=0
           c21=0
           c211=0
           c3=0
           c31=0
           c311=0
           c4=0
           c41=0
           c411=0
           c5=0
           c51=0
           c511=0
           c6=0
           c61=0
           c611=0
           c7=0
           c71=0
           c711=0
           c8=0
           c81=0
           c811=0
           c9=0
           c91=0
           c911=0
           c10=0
           c101=0
           c1011=0
           c11=0
           c111=0
           c1111=0
           c12=0
           c121=0
           c1211=0
           c13=0
           c131=0
           c1311=0
           c14=0
           c141=0
           c1411=0
           c15=0
           c151=0
           c1511=0
           c16=0
           c161=0
           c1611=0
           cn=0
           cn1=0
           cn11=0
           cnn=0
           count all for ░α╫Θ='░∞╣½'.and.╦∙╙╨╓╞=qm to c1
           count all for ░α╫Θ='░∞╣½'.and.╦∙╙╨╓╞=jt to c11
           count all for ░α╫Θ='░∞╣½'.and.╦∙╙╨╓╞=ht to c111
           count all for ░α╫Θ='▒ú╬└'.and.╦∙╙╨╓╞=qm to c2
           count all for ░α╫Θ='▒ú╬└'.and.╦∙╙╨╓╞=jt to c21
           count all for ░α╫Θ='▒ú╬└'.and.╦∙╙╨╓╞=ht to c211
           count all for ░α╫Θ='└═╚╦'.and.╦∙╙╨╓╞=qm to c3
           count all for ░α╫Θ='└═╚╦'.and.╦∙╙╨╓╞=jt to c31
           count all for ░α╫Θ='└═╚╦'.and.╦∙╙╨╓╞=ht to c311
           count all for ░α╫Θ='╔·╝╝'.and.╦∙╙╨╓╞=qm to c4
           count all for ░α╫Θ='╔·╝╝'.and.╦∙╙╨╓╞=jt to c41
           count all for ░α╫Θ='╔·╝╝'.and.╦∙╙╨╓╞=ht to c411
           count all for ░α╫Θ='▓╞╬±'.and.╦∙╙╨╓╞=qm to c5
           count all for ░α╫Θ='▓╞╬±'.and.╦∙╙╨╓╞=jt to c51
           count all for ░α╫Θ='▓╞╬±'.and.╦∙╙╨╓╞=ht to c511
           count all for ░α╫Θ='╝╝┐¬'.and.╦∙╙╨╓╞=qm to c6
           count all for ░α╫Θ='╝╝┐¬'.and.╦∙╙╨╓╞=jt to c61
           count all for ░α╫Θ='╝╝┐¬'.and.╦∙╙╨╓╞=ht to c611
           count all for ░α╫Θ='╣⌐╧·1'.and.╦∙╙╨╓╞=qm to c7
           count all for ░α╫Θ='╣⌐╧·1'.and.╦∙╙╨╓╞=jt to c71
           count all for ░α╫Θ='╣⌐╧·1'.and.╦∙╙╨╓╞=ht to c711
           count all for ░α╫Θ='╣⌐╧·2'.and.╦∙╙╨╓╞=qm to c8
           count all for ░α╫Θ='╣⌐╧·2'.and.╦∙╙╨╓╞=jt to c81
           count all for ░α╫Θ='╣⌐╧·2'.and.╦∙╙╨╓╞=ht to c811
           count all for ░α╫Θ='╓╩╝∞'.and.╦∙╙╨╓╞=qm to c9
           count all for ░α╫Θ='╓╩╝∞'.and.╦∙╙╨╓╞=jt to c91
           count all for ░α╫Θ='╓╩╝∞'.and.╦∙╙╨╓╞=ht to c911
           count all for ░α╫Θ='╒■╣ñ'.and.╦∙╙╨╓╞=qm to c10
           count all for ░α╫Θ='╒■╣ñ'.and.╦∙╙╨╓╞=jt to c101
           count all for ░α╫Θ='╒■╣ñ'.and.╦∙╙╨╓╞=ht to c1011
           count all for ░α╫Θ='╧·╩█'.and.╦∙╙╨╓╞=qm to c11
           count all for ░α╫Θ='╧·╩█'.and.╦∙╙╨╓╞=jt to c111
           count all for ░α╫Θ='╧·╩█'.and.╦∙╙╨╓╞=ht to c1111
           count all for ░α╫Θ='╨╨╒■'.and.╦∙╙╨╓╞=qm to c12
           count all for ░α╫Θ='╨╨╒■'.and.╦∙╙╨╓╞=jt to c121
           count all for ░α╫Θ='╨╨╒■'.and.╦∙╙╨╓╞=ht to c1211
           count all for ░α╫Θ='▒α═Γ'.and.╦∙╙╨╓╞=qm to c13
           count all for ░α╫Θ='▒α═Γ'.and.╦∙╙╨╓╞=jt to c131
           count all for ░α╫Θ='▒α═Γ'.and.╦∙╙╨╓╞=ht to c1311
           count all for ░α╫Θ='1'.and.╦∙╙╨╓╞=ht to c1411
           count all for ░α╫Θ='2'.and.╦∙╙╨╓╞=ht to c1511
           count all for ░α╫Θ='3'.and.╦∙╙╨╓╞=ht to c1611
           store c1+c2+c3+c4+c5+c6+c7+c8+c9+c10+c12+c13+c14+c15+c16 to cn
           store c11+c21+c31+c41+c51+c61+c71+c81+c91+c101+c121+c131+c141+c151+c161 to cn1
           store c111+c211+c311+c411+c511+c611+c811+c911+c1011+c1211+c1311+c1411+c1511+c1611 to cn11
           store cn+cn1+cn11 to cnn
           ?
           ? '╓▒╩⌠         ╚½├±╣ñ╡─╚╦╩²:',cn
           ? '             ╝»╠σ╣ñ╡─╚╦╩²:',cn1
           ? '             ║╧═¼╣ñ╡─╚╦╩²:',cn11
           ? '                   ╫▄╚╦╩²:',cnn
           ?
           ?
           ? '╞Σ╓╨:'
           ? '    ░∞╣½'
           ? '      ╚½├±╣ñ╡─╚╦╩²:',c1
           ? '      ╝»╠σ╣ñ╡─╚╦╩²:',c11
           ? '      ║╧═¼╣ñ╡─╚╦╩²:',c111
           ?
           ?
           ? '    ▒ú╬└'
           ? '      ╚½├±╣ñ╡─╚╦╩²:',c2
           ? '      ╝»╠σ╣ñ╡─╚╦╩²:',c21
           ? '      ║╧═¼╣ñ╡─╚╦╩²;',c211
           ?
           ?
           wait
           ? '    └═╚╦'
           ? '      ╚½├±╣ñ╡─╚╦╩²:',c3
           ? '      ╝»╠σ╣ñ╡─╚╦╩²:',c31
           ? '      ║╧═¼╣ñ╡─╚╦╩²;',c311
           ?
           ?
           ? '    ╔·╝╝'
           ? '      ╚½├±╣ñ╡─╚╦╩²:',c4
           ? '      ╝»╠σ╣ñ╡─╚╦╩²:',c41
           ? '      ║╧═¼╣ñ╡─╚╦╩²:',c411
           ?
           ?
           ? '    ▓╞╬±'
           ? '      ╚½├±╣ñ╡─╚╦╩²:',c5
           ? '      ╝»╠σ╣ñ╡─╚╦╩²:',c51
           ? '      ║╧═¼╣ñ╡─╚╦╩²;',c511
           ?
           ?
           wait
           ? '    ╝╝┐¬'
           ? '      ╚½├±╣ñ╡─╚╦╩²:',c6
           ? '      ╝»╠σ╣ñ╡─╚╦╩²:',c61
           ? '      ║╧═¼╣ñ╡─╚╦╩²:',c611
           ?
           ?
           ? '    ╣⌐╧·1'
           ? '      ╚½├±╣ñ╡─╚╦╩²:',c7
           ? '      ╝»╠σ╣ñ╡─╚╦╩²:',c71
           ? '      ║╧═¼╣ñ╡─╚╦╩²:',c711
           ?
           ?
           ? '    ╣⌐╧·2'
           ? '      ╚½├±╣ñ╡─╚╦╩²:',c8
           ? '      ╝»╠σ╣ñ╡─╚╦╩²:',c81
           ? '      ║╧═¼╣ñ╡─╚╦╩²:',c811
           ?
           ?
           wait
           ? '    ╓╩╝∞'
           ? '      ╚½├±╣ñ╡─╚╦╩²:',c9
           ? '      ╝»╠σ╣ñ╡─╚╦╩²:',c91
           ? '      ║╧═¼╣ñ╡─╚╦╩²:',c911
           ?
           ?
           ? '    ╒■╣ñ'
           ? '      ╚½├±╣ñ╡─╚╦╩²:',c10
           ? '      ╝»╠σ╣ñ╡─╚╦╩²:',c101
           ? '      ║╧═¼╣ñ╡─╚╦╩²:',c1011
           ?
           ?
           ? '    ╧·╩█'
           ? '      ╚½├±╣ñ╡─╚╦╩²:',c11
           ? '      ╝»╠σ╣ñ╡─╚╦╩²:',c111
           ? '      ║╧═¼╣ñ╡─╚╦╩²:',c1111
           ?
           ?
           wait
           ? '    ╨╨╒■'
           ? '      ╚½├±╣ñ╡─╚╦╩²:',c12
           ? '      ╝»╠σ╣ñ╡─╚╦╩²:',c121
           ? '      ║╧═¼╣ñ╡─╚╦╩²:',c1211
           ?
           ?
           ? '     ▒α═Γ'
           ? '      ╚½├±╣ñ╡─╚╦╩²:',c13
           ? '      ╝»╠σ╣ñ╡─╚╦╩²:',c131
           ? '      ║╧═¼╣ñ╡─╚╦╩²:',c1311
           ?
           ?
           ? '     ║╧═¼╣ñ'
           ? '      ║╧═¼╣ñ1╚╦╩²:',c1411
           ? '      ║╧═¼╣ñ2╚╦╩²:',c1511
           ? '      ║╧═¼╣ñ3╚╦╩²:',c1611
           ?
           ?
        endif
        if b3=2
           d1=0
           d11=0
           d111=0
           clear
           count all for ▓┐├┼='╟░▓µ'.and.╦∙╙╨╓╞=qm to d1
           count all for ▓┐├┼='╟░▓µ'.and.╦∙╙╨╓╞=jt to d11
           count all for ▓┐├┼='╟░▓µ'.and.╦∙╙╨╓╞=ht to d111
           ?
           ?
           ?
           ? '  ╟░▓µ│╡╝Σ'
           ? '      ╚½├±╣ñ╡─╚╦╩²:',d1
           ? '      ╝»╠σ╣ñ╡─╚╦╩²:',d11
           ? '      ║╧═¼╣ñ╡─╚╦╩²:',d111
        endif
        if b3=3
           d2=0
           d21=0
           d211=0
           clear
           count all for ▓┐├┼='│σ╤╣'.and.╦∙╙╨╓╞=qm to d2
           count all for ▓┐├┼='│σ╤╣'.and.╦∙╙╨╓╞=jt to d21
           count all for ▓┐├┼='│σ╤╣'.and.╦∙╙╨╓╞=ht to d211
           ?
           ?
           ?
           ? '  │σ╤╣│╡╝Σ'
           ? '      ╚½├±╣ñ╡─╚╦╩²:',d2
           ? '      ╝»╠σ╣ñ╡─╚╦╩²:',d21
           ? '      ║╧═¼╣ñ╡─╚╦╩²:',d211
        endif
        if b3=4
           d3=0
           d31=0
           d311=0
           clear
           count all for ▓┐├┼='╙═╞ß'.and.╦∙╙╨╓╞=qm to d3
           count all for ▓┐├┼='╙═╞ß'.and.╦∙╙╨╓╞=jt to d31
           count all for ▓┐├┼='╙═╞ß'.and.╦∙╙╨╓╞=ht to d311
           ?
           ?
           ?
           ? '  ╙═╞ß│╡╝Σ'
           ? '      ╚½├±╣ñ╡─╚╦╩²:',d3
           ? '      ╝»╠σ╣ñ╡─╚╦╩²:',d31
           ? '      ║╧═¼╣ñ╡─╚╦╩²:',d311
        endif
        if b3=5
           d4=0
           d41=0
           d411=0
           clear
           count all for ▓┐├┼='▒╕┴╧'.and.╦∙╙╨╓╞=qm to d4
           count all for ▓┐├┼='▒╕┴╧'.and.╦∙╙╨╓╞=jt to d41
           count all for ▓┐├┼='▒╕┴╧'.and.╦∙╙╨╓╞=ht to d411
           ?
           ?
           ?
           ? '  ▒╕┴╧│╡╝Σ'
           ? '      ╚½├±╣ñ╡─╚╦╩²:',d4
           ? '      ╝»╠σ╣ñ╡─╚╦╩²:',d41
           ? '      ║╧═¼╣ñ╡─╚╦╩²:',d411
        endif
        if b3=6
           d5=0
           d51=0
           d511=0
           clear
           count all for ▓┐├┼='╗·─ú'.and.╦∙╙╨╓╞=qm to d5
           count all for ▓┐├┼='╗·─ú'.and.╦∙╙╨╓╞=jt to d51
           count all for ▓┐├┼='╗·─ú'.and.╦∙╙╨╓╞=ht to d511
           ?
           ?
           ?
           ? '  ╗·╨▐─ú╛▀│╡╝Σ'
           ? '      ╚½├±╣ñ╡─╚╦╩²:',d5
           ? '      ╝»╠σ╣ñ╡─╚╦╩²:',d51
           ? '      ║╧═¼╣ñ╡─╚╦╩²:',d511
        endif
        if b3=7
           d6=0
           d61=0
           d611=0
           clear
           count all for ▓┐├┼='╨┬▓·╞╖'.and.╦∙╙╨╓╞=qm to d6
           count all for ▓┐├┼='╨┬▓·╞╖'.and.╦∙╙╨╓╞=jt to d61
           count all for ▓┐├┼='╨┬▓·╞╖'.and.╦∙╙╨╓╞=ht to d611
           ?
           ?
           ?
           ? '  ╨┬▓·╞╖│╡╝Σ'
           ? '      ╚½├±╣ñ╡─╚╦╩²:',d6
           ? '      ╝»╠σ╣ñ╡─╚╦╩²:',d61
           ? '      ║╧═¼╣ñ╡─╚╦╩²:',d611
        endif
        if b3=8
           d7=0
           d71=0
           d711=0
           clear
           count all for ▓┐├┼='╫▄╫░'.and.╦∙╙╨╓╞=qm to d7
           count all for ▓┐├┼='╫▄╫░'.and.╦∙╙╨╓╞=jt to d71
           count all for ▓┐├┼='╫▄╫░'.and.╦∙╙╨╓╞=ht to d711
           ?
           ?
           ?
           ? '  ╫▄╫░│╡╝Σ'
           ? '      ╚½├±╣ñ╡─╚╦╩²:',d7
           ? '      ╝»╠σ╣ñ╡─╚╦╩²:',d71
           ? '      ║╧═¼╣ñ╡─╚╦╩²:',d711
        endif
        if b3=9
           d8=0
           clear
           count all for ▓┐├┼='═╦╨▌' to d8
           ?
           ?
           ?
           ? '  ═╦╨▌╣ñ╚╦'
           ? '      ═╦╨▌╣ñ╚╦╡─╚╦╩²:',d8
        endif
        if b3=10
           d9=0
           d91=0
           d911=0
           clear
           count all for ╦∙╙╨╓╞=qm to d9
           count all for ╦∙╙╨╓╞=jt to d91
           count all for ╦∙╙╨╓╞=ht to d911
           ?
           ?
           ?
           ? '  ╚½│º╚╦╩²:'
           ? '      ╚½├±╣ñ╡─╚╦╩²:',d9
           ? '      ╝»╠σ╣ñ╡─╚╦╩²:',d91
           ? '      ║╧═¼╣ñ╡─╚╦╩²:',d911
        endif
        if b3=11
           d10=0
           clear
           count all for ╦∙╙╨╓╞=qm to d10
           ?
           ?
           ?
           ? '  ╕ú└√╚╦╩²:'
           ? '      ╚½├±╣ñ╡─╚╦╩²:',d10
        if b3=12
           ? '═╦│÷'
        endif
   release c1,c11,c111,c2,c21,c211,c3,c31,c311,c4,c41,c411,c5,c51,c511
   release c6,c61,c611,c7,c71,c711,c8,c81,c811,c9,c91,c911,c10,c101,c1011
   release c12,c121,c1211,c13,c131,c1311,c14,c141,c1411,c15,c151,c1511,c16,c161,c1611
   release cn,cn1,cn11,cnn,d1,d11,d111,d2,d21,d211,d3,d31,d311,d4,d41,d411
   release d5,d51,d511,d6,d61,d611,d7,d71,d711,d8,d9,d91,d911
   return
   case a1='6'
        store .f. to answer1
endcase
enddo
release all
use
return