home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b032 / 6.img / 31 / ZCX142.PRG < prev    next >
Encoding:
Text File  |  1987-08-17  |  674 b   |  46 lines
  1. para zdz,qrh,qlh,lj,sl,rj,cdhs,aa
  2. go top
  3. ns&aa=0
  4. n&aa=0
  5. ij&aa=1
  6. nn&aa=0
  7. mm&aa=0
  8. @ qrh,qlh clear to qrh+rj*(cdhs-1),qlh+lj*sl-1
  9. do while ij&aa<=cdhs
  10.  ji&aa=1
  11.  do while ji&aa<=sl
  12.   if .not.eof()
  13.    @ qrh+(ij&aa-1)*rj,qlh+lj*(ji&aa-1) say trim(&zdz)
  14.    skip
  15.    ji&aa=ji&aa+1
  16.    loop
  17.   endif
  18.    mm&aa=ij&aa
  19.    nn&aa=ji&aa-1
  20.    exit
  21.  enddo
  22.  if eof()
  23.   if ji&aa=sl+1
  24.    mm&aa=ij&aa
  25.    nn&aa=sl
  26.   else
  27.    exit
  28.   endif
  29.   exit
  30.  endif
  31.  ij&aa=ij&aa+1
  32. enddo
  33. if mm&aa=0.and.nn&aa=0
  34.  mm&aa=cdhs
  35.  nn&aa=sl
  36. endif
  37. skip -((mm&aa-1)*sl+nn&aa)
  38. hzts0&aa=trim(&zdz)
  39. hzts1&aa=hzts0&aa
  40. @ qrh,qlh get hzts0&aa
  41. clear gets
  42. r&aa=qrh
  43. c&aa=qlh
  44. sele &aa
  45. retu
  46.