Liren Large Software Subsidy 6/06.iso/b/b034/gz.img/╕┤╓╞.PRG

Text File | 1989-01-07 | 6.0 KB | 249 lines

*╩²╛▌╕┤╓╞╫╙│╠╨≥:╕┤╓╞.PRG
set talk off
cp1=.t.
do while cp1
cp='        '
cp2='   '
clear
@ 4,30 say '╩²╛▌╕┤╓╞└α╨═'
@ 5,29 say '============='
@ 7,20 say '╕┤╓╞▒╕╙├┼╠(┤╙ A:┼╠╕┤╡╜ B:┼╠)----------- 1'
@ 9,20 say '╘¡╩╝╩²╛▌╕┤╓╞(┤╙ B:┼╠╕┤╡╜ A:┼╠)--------- 2'
@ 11,20 say '╓╞╫≈└·╩╖╫╩┴╧--------------------------- 3'
@ 13,20 say '═╦│÷ ---------------------------------- 4'
@ 15,20 say '╟δ╩Σ╚δ─·╥¬╤í╙├╡─▒α║┼:  ' get cp
     read
    do case
case cp='1'
     cpbm1=0
     aw1=.t.
     do while aw1
     aw1=.f.
     clear
     @ 2,34 say '╥¬╕┤╓╞╡─▓┐├┼'
     @ 3,33 say '============='
     @ 5,15 say '╓▒╩⌠--------------- 1'
     @ 5,45 say '╕ú└√--------------- 6'
     @ 7,15 say '═╦╨▌--------------- 2'
     @ 7,45 say '╙═╞ß--------------- 7'
     @ 9,15 say '╟░▓µ--------------- 3'
     @ 9,45 say '╗·─ú--------------- 8'
     @ 11,15 say '│σ╤╣--------------- 4'
     @ 11,45 say '╨┬▓·╞╖------------- 9'
     @ 13,15 say '▒╕┴╧--------------- 5'
     @ 13,45 say '╫▄╫░--------------- 10'
     @ 16,33 say '********'
     @ 17,33 say '* ╠ß╩╛ *'
     @ 18,33 say '********'
     @ 19,20 say '1. ╒Γ╥╗╫╙│╠╨≥╣ª─▄╬¬╕┤╓╞▒╕╙├┼╠,╥╘╖└═≥╥╗;'
     @ 20,20 say '2. ╘┌ A:┼╠(╔╧)▓σ╚δ╥╤╨▐╕─┴╦╫ε╘¡╩╝╩²╛▌╡─▓┐├┼╣ñ╫╩┐¿,'
     @ 21,20 say '   ╘┌ B:┼╠(╧┬)▓σ╚δ▒╕╙├┐¿.'
     @ 15,10 say '╟δ╩Σ╚δ╥¬╕┤╓╞╡─▓┐├┼╡─▒α║┼' get cpbm1
      read
     if cpbm1=1
        store '╓▒╩⌠' to w1
        store 'copy file a:gz.dbf to b:╓▒GZ.DBF' to xx
     endif
     if cpbm1=2
        store '═╦╨▌' to w1
        store 'copy file a:gz.dbf to b:═╦GZ.DBF' to xx
     endif
     if cpbm1=3
        store '╟░▓µ' to w1
        store 'copy file a:gz.dbf to b:╟░GZ.DBF' to xx
     endif
     if cpbm1=4
        store '│σ╤╣' to w1
        store 'copy file a:gz.dbf to b:│σGZ.DBF' to xx
     endif
     if cpbm1=5
        store '▒╕┴╧' to w1
        store 'copy file a:gz.dbf to b:▒╕GZ.DBF' to xx
     endif
     if cpbm1=6
        store '╕ú└√' to w1
        store 'copy file a:gz.dbf to b:╕úGZ.DBF' to xx
     endif
     if cpbm1=7
        store '╙═╞ß' to w1
        store 'copy file a:gz.dbf to b:╙═GZ.DBF' to xx
     endif
     if cpbm1=8
        store '╗·─ú' to w1
        store 'copy file a:gz.dbf to b:╗·GZ.DBF' to xx
     endif
     if cpbm1=9
        store '╨┬▓·╞╖' to w1
        store 'copy file a:gz.dbf to b:╨┬GZ.DBF' to xx
     endif
     if cpbm1=10
        store '╫▄╫░' to w1
        store 'copy file a:gz.dbf to b:╫▄GZ.DBF' to xx
     endif
     use a:gz
     if ▓┐├┼<>w1
     clear
     @ 5,22 say '─·╘┌ A:┼╠(╔╧)▓σ╚δ╡─▓┐├┼╩²╛▌┐¿┤φ┴╦'
     @ 7,22 say '         ╟δ─·╓╪╨┬▓σ╣²'
     ?
     ?
     wait
     aw1=.t.
     endif
     use
     enddo
     clear
     @ 8,30 say '╒²╘┌╕┤╓╞,╟δ─═╨─╡╚┤²'
     &xx
     @ 12,20 say '╕┤╓╞═Ω▒╧,╩╟╖±╝╠╨°╕┤╓╞(y/n)?  ' get cp2
          read
     if cp2='n'.or.cp2='N'
        cp1=.f.
     endif
case cp='2'
     cpbm2=0
     aw2=.t.
     do while aw2
     aw2=.f.
     clear
     @ 2,34 say '╥¬╕┤╓╞╡─▓┐├┼'
     @ 3,33 say '============='
     @ 5,15 say '╓▒╩⌠--------------- 1'
     @ 5,45 say '╕ú└√--------------- 6'
     @ 7,15 say '═╦╨▌--------------- 2'
     @ 7,45 say '╙═╞ß--------------- 7'
     @ 9,15 say '╟░▓µ--------------- 3'
     @ 9,45 say '╗·─ú--------------- 8'
     @ 11,15 say '│σ╤╣--------------- 4'
     @ 11,45 say '╨┬▓·╞╖------------- 9'
     @ 13,15 say '▒╕┴╧--------------- 5'
     @ 13,45 say '╫▄╫░--------------- 10'
     @ 16,33 say '********'
     @ 17,33 say '* ╠ß╩╛ *'
     @ 18,33 say '********'
     @ 19,20 say '1. ╒Γ╥╗╫╙│╠╨≥╣ª─▄╬¬╕┤╓╞╫ε╘¡╩╝╩²╛▌╡─▓┐├┼╣ñ╫╩┐¿,╥╘┤²╨▐╕─;'
     @ 20,20 say '2. ╘┌ A:┼╠(╔╧)▓σ╚δ╕≈▓┐├┼╣ñ╫╩┐¿,'
     @ 21,20 say '   ╘┌ B:┼╠(╧┬)▓σ╚δ▒╕╙├┐¿.'
     @ 15,10 say '╟δ╩Σ╚δ╥¬╕┤╓╞╡─▓┐├┼╡─▒α║┼' get cpbm2
      read
     if cpbm2=1
        store '╓▒╩⌠' to w1
        store 'copy file b:╓▒GZ.DBF to a:gz.dbf' to xx
     endif
     if cpbm2=2
        store '═╦╨▌' to w1
        store 'copy file b:═╦GZ.DBF to a:gz.dbf' to xx
     endif
     if cpbm2=3
        store '╟░▓µ' to w1
        store 'copy file b:╟░GZ.DBF to a:gz.dbf' to xx
     endif
     if cpbm2=4
        store '│σ╤╣' to w1
        store 'copy file b:│σGZ.DBF to a:gz.dbf' to xx
     endif
     if cpbm2=5
        store '▒╕┴╧' to w1
        store 'copy file b:▒╕GZ.DBF to a:gz.dbf' to xx
     endif
     if cpbm2=6
        store '╕ú└√' to w1
        store 'copy file b:╕úGZ.DBF to a:gz.dbf' to xx
     endif
     if cpbm2=7
        store '╙═╞ß' to w1
        store 'copy file b:╙═GZ.DBF to a:gz.dbf' to xx
     endif
     if cpbm2=8
        store '╗·─ú' to w1
        store 'copy file b:╗·GZ.DBF to a:gz.dbf' to xx
     endif
     if cpbm2=9
        store '╨┬▓·╞╖' to w1
        store 'copy file b:╨┬GZ.DBF to a:gz.dbf' to xx
     endif
     if cpbm2=10
        store '╫▄╫░' to w1
        store 'copy file b:╫▄GZ.DBF to a:gz.dbf' to xx
     endif
     use a:gz
     if ▓┐├┼<>w1
     clear
     @ 5,22 say '─·╘┌ A:┼╠(╔╧)▓σ╚δ╡─▓┐├┼╩²╛▌┐¿┤φ┴╦'
     @ 7,22 say '         ╟δ─·╓╪╨┬▓σ╣²'
     ?
     ?
     wait
     aw2=.t.
     endif
     use
     enddo
     clear
     @ 8,30 say '╒²╘┌╕┤╓╞,╟δ─═╨─╡╚┤²'
     &xx
     @ 12,20 say '╕┤╓╞═Ω▒╧,╩╟╖±╝╠╨°╕┤╓╞(y/n)?  ' get cp2
          read
     if cp2='n'.or.cp2='N'
     cp1=.f.
     endif
case cp='3'
     xx1=dtoc (date(),1)
     xx2=substr(xx1,3,4)
     xx3='b:GZ'+xx2+'.dbf'
     clear
     @ 10,25 say '╟δ╘┌ A:┼╠▓σ╚δ╓▒╩⌠▒╛╘┬╣ñ╫╩┐¿'
     @ 12,25 say '╟δ╘┌ B:┼╠▓σ╚δ╣ñ╫╩╡╡░╕┐¿'
     ?
     wait
     copy file a:gz.dbf to &xx3
     clear
     @ 10,25 say '╟δ╘┌ A:┼╠▓σ╚δ╕ú└√▒╛╘┬╣ñ╫╩┐¿'
     ?
     wait
     use &xx3
     append from a:gz.dbf
     clear
     @ 10,25 say '╟δ╘┌ A:┼╠▓σ╚δ╟░▓µ│╡╝Σ▒╛╘┬╣ñ╫╩┐¿'
     ?
     wait
     use &xx3
     append from a:gz.dbf
     clear
     @ 10,25 say '╟δ╘┌ A:┼╠▓σ╚δ│σ╤╣│╡╝Σ▒╛╘┬╣ñ╫╩┐¿'
     ?
     wait
     use &xx3
     append from a:gz.dbf
     clear
     @ 10,25 say '╟δ╘┌ A:┼╠▓σ╚δ╗·─ú│╡╝Σ▒╛╘┬╣ñ╫╩┐¿'
     ?
     wait
     use &xx3
     append from a:gz.dbf
     clear
     @ 10,25 say '╟δ╘┌ A:┼╠▓σ╚δ▒╕┴╧│╡╝Σ▒╛╘┬╣ñ╫╩┐¿'
     ?
     wait
     use &xx3
     append from a:gz.dbf
     clear
     @ 10,25 say '╟δ╘┌ A:┼╠▓σ╚δ╙═╞ß│╡╝Σ▒╛╘┬╣ñ╫╩┐¿'
     ?
     wait
     use &xx3
     append from a:gz.dbf
     clear
     @ 10,25 say '╟δ╘┌ A:┼╠▓σ╚δ╨┬▓·╞╖│╡╝Σ▒╛╘┬╣ñ╫╩┐¿'
     ?
     wait
     use &xx3
     append from a:gz.dbf
case cp='4'
     ? '═╦│÷'
     cp1=.f.
endcase
enddo
release all
return