home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b032 / 6.img / 31 / ZCX132.PRG < prev    next >
Encoding:
Text File  |  1987-09-03  |  427 b   |  33 lines
  1. sele 2
  2. if recn()=1
  3.  yyz="trim(ywm)"
  4.  zyy="trim(zw)"
  5. else
  6.  yyz="trim(zw)"
  7.  zyy="trim(ywm)"
  8. endif
  9. sele 4
  10. lspg=recn()
  11. sele 3
  12. go bott
  13. zs=recn()
  14. go (lspg-1)*yzs+1
  15. erase lsk3.dbf
  16. if lspg*yzs<=zs
  17.  copy next yzs to lsk3
  18. else
  19.  copy next zs-recn()+1 to lsk3
  20. endif
  21. sele 5
  22. use lsk3 
  23. wz=9
  24. zxcx="zcx131"
  25. @ 12,0 say repl("í╓",40)
  26. do cd with yyz,13,0,20,4,1,7
  27. use
  28. @ 13,0 clear
  29. do tsh
  30. zxcx="zcx132"
  31. sele 4
  32. retu
  33.