home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b032 / 6.img / 31 / ZCX130.PRG < prev    next >
Encoding:
Text File  |  1987-08-17  |  348 b   |  28 lines
  1. dime dm(51)
  2. publ yzs
  3. sele 3
  4. use lsk1
  5. go bott
  6. lsk1zs=recn()
  7. go top
  8. do case
  9.  case lsk1zs<=300
  10.   yzs=0
  11.  case lsk1zs>300.and.lsk1zs<=1568
  12.   yzs=28
  13.  case lsk1zs>1568
  14.   yzs=56
  15.  case lsk1zs>1568.and.lsk1zs<=6272
  16.   yzs=84
  17.  other
  18.   loop
  19. endcase
  20. if yzs>0
  21.  erase lsk2.dbf
  22.  copy to lsk2 for mod(recn(),yzs)=1
  23. endif
  24. use
  25. sele 2
  26. retu
  27.  
  28.