home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b015 / 7.ddi / B.PRG < prev    next >
Encoding:
Text File  |  1980-01-13  |  355 b   |  24 lines
  1. clear 
  2. set talk off
  3. set safe off
  4. do while .t.
  5.   bm='      '
  6.   qt=' '
  7.   @10,10 say '╟δ╩Σ╚╦▒¿▒φ├√│╞: ' get bm
  8.   read
  9.   ym='B'+trim(bm)+'_4.dbf'
  10.   use bb
  11.   zap
  12.   append from &ym
  13.   copy stru to &ym
  14.   use &ym
  15.   zap
  16.   append from bb
  17.   @12,10 say '╨▐╕─╞Σ╦√▒¿▒φ┬≡? <Y/N>:'get qt pict'a' 
  18.   read
  19.   if upper(qt)='N'
  20.      quit
  21.   endif
  22. enddo
  23.  
  24.