Liren Large Software Subsidy 6/06.iso/b/b032/6.img/31/GYC143.PRG

Text File | 1987-09-10 | 2.6 KB | 162 lines

dime pxcy(18),pxjl(18)
@ 2,0 say repl("í╘",40)
@ 5,0 clear
do tsh
sele 3
use lsk1
go bott
zdy=recn()
go top
@ 10,6 say " "
wait "                ─·╥¬░╤╣²╚Ñ┤≡┤φ╡─╡Ñ┤╩╖┼╘┌╟░├µ┬≡(y/n)?" to asn
@ 5,0 clear
if asn="y".or.asn="Y"
 use lsk1
 if file("lsk1.idx")
  reindex
 else
  index on dds/cycs to lsk1
 endif
 set index to lsk1
 erase lsk0.dbf
 copy to lsk0
 use
 erase lsk1.dbf
 erase lsk1.idx
 rena lsk0.dbf to lsk1.dbf
 use lsk1
endif
pg143=1
input "                    ┤╙╡┌╝╕╥│┐¬╩╝(1-"+str(int(zdy/18),3)+")?" to ì
pg143
go 1+18*(pg143-1)
@ 5,0 clear
do tsh2
@ 23,34 say "╡┌"+str(pg143,3)+" ╥│"
sele 4
rest from "fwbl.mem" addi
if ssfwh=3
 use dydc
else
 use yydc
endif
sele 3
do while .t.
 sele 3
 pxcy=repl(" ",16)
 i1=1
 j5=5
 do while .t.
  @ j5,2+40*mod((i1+1),2) say trim(zw) get pxcy(i1)
  i1=i1+1
  if mod(i1,2)=1
   j5=j5+2
  endif
  skip
  if .not.eof().and.i1<19
   loop
  else
   go 1+18*(pg143-1)
   exit
  endif
 enddo
 clear gets
 i1=1
 j5=5
 xhl=0
 pxjl=0
 ss=0
 do while .t.
  pxcy(i1)=repl(" ",len(trim(ywm))+1)
 if pxjl(i1)=0
  @ j5,2+40*mod((i1+1),2) say trim(zw) get pxcy(i1)
  if xhl>0
   @ j5+1,20+40*mod((i1+1),2) say repl(" ",18)
  endif
  read
  set exac on
  if trim(ywm)=trim(pxcy(i1))
   @ j5,40*mod((i1+1),2) say "í╠"
   pxjl(i1)=1
   ss=ss+1
   if cycs<100
    repl dds with dds+1
    repl cycs with cycs+1
    sele 4
    go c->xsh
    repl dds with dds+1
    repl cycs with cycs+1
    sele 3
   endif
  else
   @ j5,40*mod((i1+1),2) say "í┴"
   @ j5+1,20+40*mod((i1+1),2) say ywm
   if cycs<100
    repl cycs with cycs+1
    sele 4
    go c->xsh
    repl cycs with cycs+1
    sele 3
   endif
  endif
 endif
 i1=i1+1
  if mod(i1,2)=1
   j5=j5+2
  endif
  skip
  if .not.eof().and.i1<19
   loop
  else
  if ss<18
   yn="y"
   @ 23,20 say " ╥¬░╤╕╒▓┼╫≈┤φ╡─╡Ñ┤╩╘┘╫≈╥╗┤╬┬≡?"  get yn
   read
   if yn="y".or.yn="Y"
    i1=1
    j5=5
    go 1+18*(pg143-1)
    xhl=xhl+1
    loop
   endif
  endif
   pg143=pg143+1
   exit
  endif
 enddo
 if 1+18*(pg143-1)>zdy
  @ 5,0 clear
  @ 10,18 say "******* ▒╛╜┌╡Ñ┤╩╥╤╚½▓┐▓Γ╤Θ═Ω▒╧ ********"
  @ 14,28 say "  ░┤╚╬╥Γ╝ⁿ╖╡╗╪"
  wait " "
  exit
 else
  go 1+18*(pg143-1)
 endif
 @ 24,3 say "                         ░┤╚╬╥Γ╝ⁿ╝╠╨°                ì
         "
 @ 23,0
 wait "  "
 if .not.eof()
  @ 5,0 clear
  wait "                            ╝╠╨°▓Γ╤Θ┬≡(y/n)?" to yn
  if yn="y".or.yn="Y"
   @ 5,0 clear
   @ 23,34 say "╡┌"+str(pg143,3)+" ╥│"
   loop
  else
   exit
  endif
 else
  exit
 endif
enddo
@ 5,0 clear
do tsh
use
sele 4
use
sele 2
zxcx="gyc140"
retu