home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / gz.img / NBZZ-2.PRG < prev    next >
Encoding:
Text File  |  1990-01-22  |  936 b   |  35 lines
  1. *─┌▓┐╫¿╒╦╫╙│╠╨≥╓«╢■(│⌡╩╝╗»╫╙│╠╨≥):NBZZ-2.PRG
  2. set talk off
  3. clear
  4. cf='     '
  5. @ 5,20 say '╟δ╘┌ A:┼╠▓σ╚δ╩²╛▌┼╠,╘┌ B:┼╠▓σ╚δ╩²╛▌╫╩┴╧┼╠.'
  6. ?
  7. ?
  8. ? '                ***************************************** '
  9. ? '                *             ╫ó          ╥Γ            * '
  10. ? '                *                                       * '
  11. ? '                *   ┤╦╫╙│╠╨≥╬¬╘┬╡╫╥≥╗╗╘┬╩▒╩²╛▌╫¬╥╞╧┬    * '
  12. ? '                *   ╘┬╢°╙├íú╘┌┤╦═¼╩▒╓╞╫≈└·╩╖╫╩┴╧▓ó╟σ    * '
  13. ? '                *   ╧┤ A:┼╠╩²╛▌íú                       * '
  14. ? '                *                                       * '
  15. ? '                ***************************************** '
  16. @ 20,15 say '╩╟╖±╒µ╡─╥¬│⌡╩╝╗»(Y/N)?  ' get cf
  17.      read
  18. if cf='y'.or.cf='Y'
  19. use b:nbzzjfk.dbf
  20. append from a:nbzzjf.dbf
  21. use b:nbzzdfk.dbf
  22. append from a:nbzzdf.dbf
  23. use
  24. set safety off
  25. use a:nbzzjf.dbf
  26. zap
  27. use a:nbzzdf.dbf
  28. zap
  29. use
  30. set safety on
  31. release all
  32. return
  33.  
  34.  
  35.