home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b032 / 6.img / 31 / FK1.PRG < prev    next >
Encoding:
Text File  |  1987-08-20  |  233 b   |  15 lines
  1. para xx1,yy1,xx2,yy2,fk
  2. zzz=fk
  3. @ xx1,yy1 say repl(zzz,(yy2-yy1)/2+1)
  4. zz1=1
  5. do while .t.
  6. @ xx1+zz1,yy1 say zzz
  7. @ xx1+zz1,yy2 say zzz
  8. zz1=zz1+1
  9. if xx1+zz1=xx2
  10.  exit
  11. endif
  12. enddo
  13. @ xx2,yy1 say repl(zzz,(yy2-yy1)/2+1)
  14. retu
  15.